PGM                                                                
             DCL        VAR(&USER) TYPE(*CHAR) LEN(10)                          
             DCL        VAR(&JOBNBR) TYPE(*CHAR) LEN(6)                         
                                                                                
             RTVJOBA    USER(&USER) NBR(&JOBNBR)                                
             OVRPRTF    FILE(QPRTOBJD) OUTQ(QGPL/QPRINTS) HOLD(*YES) +          
                          LVLCHK(*NO) SECURE(*YES) OVRSCOPE(*JOB) +             
                          OPNSCOPE(*JOB)                                        
             CRTPF      FILE(QTEMP/DSPDUMP) RCDLEN(132) IGCDTA(*YES) +          
                          LVLCHK(*NO) AUT(*ALL)                                 
             DSPOBJD    OBJ(SPOOLWTR) OBJTYPE(*LIB) OUTPUT(*PRINT)              
             CPYSPLF    FILE(QPRTOBJD) TOFILE(QTEMP/DSPDUMP) JOB(*) +           
                          SPLNBR(*LAST)                                         
             DLTSPLF    FILE(QPRTOBJD) JOB(*) SPLNBR(*LAST)                     
             ENDPGM