PGM        PARM(&VALID &PARAM)
             DCL        VAR(&VALID) TYPE(*CHAR) LEN(1)
             DCL        VAR(&PARAM) TYPE(*CHAR) LEN(2028)
             DCL        VAR(&message) TYPE(*CHAR) LEN(512)
 
/*********************************************************************/
/*QIBM_QZDA_... :  serveur de BASE DE DONNéES (TFR ET ODBC)          */
/*                 ce pgm ne fait que logger les accès à QSYSOPR.    */
/*                                                                   */
/*********************************************************************/
             CALLPRC    PRC(FILSRVS2) PARM(&PARAM &message)
 
             if (&message = ' ') then(chgvar &message &param)
 
             SNDMSG     MSG(&MESSAGE) TOUSR(*SYSOPR)
/* REFUS                                                             */
/*            CHGVAR &VALID '0'                                      */
/* SINON OK                                                          */
             CHGVAR &VALID '1'
             ENDPGM