PGM                                                                
             DCL        VAR(&CMD) TYPE(*CHAR) LEN(128)                          
             DCL        VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00')              
             DCL        VAR(&CRLF_NULL) TYPE(*CHAR) LEN(3) +                    
                          VALUE(X'1500')                                        
                                                                                
             CHGVAR     VAR(&CMD) VALUE('TESTPRT1' *CAT &CRLF_NULL)             
             OVRPRTF    FILE(STDOUT) TOFILE(QSYSPRT) +                          
                          OUTQ(CHAO.USR/QEZJOBLOG) HOLD(*YES) +                 
                          SECURE(*YES) OVRSCOPE(*JOB) SHARE(*YES)               
             CALLPRC    PRC('ÆȹÄζ') PARM((&CMD *BYREF))                       
             DLTOVR     FILE(STDOUT) LVL(*JOB)                                  
             ENDPGM