PGM                                                                
             DCL        VAR(&CMDSTR) TYPE(*CHAR) LEN(128)                       
             DCL        VAR(&CMDLEN) TYPE(*DEC) LEN(15 5)                       
             DCL        VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00')              
                                                                                
             CHGVAR     VAR(&CMDSTR) VALUE('?CALL QTROBJ/PGM201' +              
                          *TCAT &NULL)                                          
             CHGVAR     VAR(&CMDLEN) VALUE(%SCAN(&NULL &CMDSTR) -1)             
             CALL       PGM(QCMDEXC) PARM(&CMDSTR &CMDLEN)                      
             MONMSG     CPF6801                                                 
             ENDPGM