Function SET185F - Delete Old Messages
FUNCTION OPTIONS(*DIRECT);
********** COMMENT(=======================================================);
********** COMMENT(This function is used to delete all old messages);
********** COMMENT(=======================================================);
CHANGE FIELD(#S_185FON) TO(O);
CALL PGM(SETGETMSGQ) PARM(#S_185QUE #S_185FON #S_185KEY #S_185LVL1 #S_185MSGI #S_185SEV #S_185SEND #S_185RTNT) NUM_LEN(*DEFINED);
IF COND('#S_185RTNT *NE OK');
MESSAGE MSGTXT('Error when removing all old messages');
ELSE;
MESSAGE MSGTXT('All old messages have been removed');
ENDIF;
********** COMMENT(--------);
********** COMMENT(Finished);
********** COMMENT(--------);
RETURN;
FUNCTION OPTIONS(*DIRECT);
********** COMMENT(=======================================================);
********** COMMENT(This function is used to delete all old messages);
********** COMMENT(=======================================================);
CHANGE FIELD(#S_185FON) TO(O);
CALL PGM(SETGETMSGQ) PARM(#S_185QUE #S_185FON #S_185KEY #S_185LVL1 #S_185MSGI #S_185SEV #S_185SEND #S_185RTNT) NUM_LEN(*DEFINED);
IF COND('#S_185RTNT *NE OK');
MESSAGE MSGTXT('Error when removing all old messages');
ELSE;
MESSAGE MSGTXT('All old messages have been removed');
ENDIF;
********** COMMENT(--------);
********** COMMENT(Finished);
********** COMMENT(--------);
RETURN;