PGM        PARM(&DATE &OUTQ)                                       
/*---------------------------------------------------------*/                   
/*    PRT001    :    �������̔��s                          */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&DATE) TYPE(*DEC) LEN(6 0)                          
             DCL        VAR(&OUTQ) TYPE(*CHAR) LEN(10)                          
                                                                                
             CHGJOB     OUTQ(&OUTQ)                                             
             CALL       PGM(MYLIB/PRT001) PARM(&DATE)                           
             ENDPGM