Trucs et Astuces - AS400 - Tips and Tricks
PGM /*===========GESTION-DES-MESSAGES-D'ERREUR--------------------------*/ DCL VAR(&MSGID) TYPE(*CHAR) LEN(7) DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(512) DCL VAR(&MSGF) TYPE(*CHAR) LEN(10) DCL VAR(&MSGFLIB) TYPE(*CHAR) LEN(10) /*-RENVOI-DES-MESSAGES-VERS-L'APPELANT------------------*/ MONMSG MSGID(CPF0000 QWM0000) EXEC(GOTO + CMDLBL(STDMONMSG)) GOTO CMDLBL(DEBUTPGM) STDMONMSG: /*-----------CAPTURE-DU-MESSAGE----------------------*/ RCVMSG MSGTYPE(*LAST) RMV(*NO) MSGDTA(&MSGDTA) + MSGID(&MSGID) MSGF(&MSGF) + SNDMSGFLIB(&MSGFLIB) /*-----------PROMOTION-DU-MESSAGE--------------------*/ SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) + MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE) RETURN DEBUTPGM: /*===========CORPS-DU-PROGRAMME-------------------------------------*/ FIN: ENDPGM |