*-------- DEBUT MACRO-INSTRUCTION ---------------------------------* * * Identificateur message MSG_MSG_ID = *BLANK MSG_MSG_ID = 'CPI9801' * * Fichier de messages MSG_MSGF_NAME = *BLANK MSG_MSGF_LIB = *BLANK MSG_MSGF_NAME = 'QCPFMSG' MSG_MSGF_LIB = '*LIBL' * * Données du message MSG_MSG_DTA = *BLANK * * Longueur données message VAR_BIN_API_01 = 130 * * Type de message MSG_MSG_TYPE = *BLANK MSG_MSG_TYPE = '*INFO' * * Call stack entry = nom programme à tester MSG_MSG_QUEUE = *BLANK MSG_MSG_QUEUE = :01 * * Call stack counter = 0 VAR_BIN_API_02 = 0 * * Clé message = non utilisé MSG_MSG_KEY = *BLANK * * API à appeler = QMHSNDPM PGM_API_01 = *BLANK PGM_API_01 = 'QMHSNDPM' * :02 = '0' ERRAPI_EXCPT_ID = *BLANK ERRAPI_OCTETS_I = 116 ERRAPI_OCTETS_O = 0 APPELER &PGM_API_01 MSG_MSG_ID MSG_QUAL_MSGF MSG_MSG_DTA VAR_BIN_API_01 MSG_MSG_ TYPE MSG_MSG_QUEUE VAR_BIN_API_02 MSG_MSG_KEY CODE_ERREUR_API SI ERRAPI_OCTETS_O = 0 ET ERRAPI_EXCPT_ID = *BLANK :02 = '1' FIN *-------- FIN MACRO-INSTRUCTION -----------------------------------*