PGM                                                                
/*---------------------------------------------------------*/                   
/*   USCRTUQ     :   RUNQRY *NONE QUSRSYS/ACCESSLOG        */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)                           
             DCL        VAR(&QNAMELIB) TYPE(*CHAR) LEN(20) +                    
                          VALUE('CMDQ      QTEMP     ')                         
             DCL        VAR(&APIERR) TYPE(*CHAR) LEN(4) +                       
                          VALUE(X'00000000') /* 2 �i��  */                      
             DCL        VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00')              
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))                 
                                                                                
             CHGVAR     VAR(&QNAMELIB) VALUE('TESTQ     QTEMP     +             
                          ' *CAT &NULL)                                         
             CALL       PGM(QUSCRTUQ) PARM(&QNAMELIB 'PF        ' +             
                          'F' 0 1000 100 3 '*ALL      ' 'DSPTEMP CMDQ')         
                                                                                
 ERROR:      RCVMSG     RMV(*NO) MSG(&MSG)                                      
             SNDPGMMSG  MSG(&MSG) MSGTYPE(*DIAG)                                
             ENDPGM