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('TESTPRT2' *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)                                  
             CRTPF      FILE(QTEMP/TESTPRT2) RCDLEN(132) +                      
                          IGCDTA(*YES) AUT(*ALL)                                
             CPYSPLF    FILE(QSYSPRT) TOFILE(QTEMP/TESTPRT2) JOB(*) +           
                          SPLNBR(*LAST)                                         
             ENDPGM