PGM                                                                
/*-------------------------------------------------------------------*/         
/*   TESTPRT4  :   印刷スプールをデータ・ベースへコピーする          */         
/*                                                                   */         
/*   2017/08/19  作成                                                */         
/*-------------------------------------------------------------------*/         
             DCL        VAR(&JOB)  TYPE(*CHAR) LEN(10)                          
             DCL        VAR(&USER) TYPE(*CHAR) LEN(10)                          
             DCL        VAR(&JOBNBR) TYPE(*CHAR) LEN(6)                         
             DCL        VAR(&TYPE) TYPE(*CHAR) LEN(1)                           
             DCL        VAR(&RCVDTA) TYPE(*CHAR) LEN(128)                       
             DCL        VAR(&RCVLEN) TYPE(*CHAR) LEN(4)                         
             DCL        VAR(&APIERR) TYPE(*CHAR) LEN(116) +                     
                          VALUE(X'000074') /* 2 進数  */                        
                                                                                
/*( 環境の取得 )*/                                                              
             RTVJOBA    JOB(&JOB) USER(&USER) NBR(&JOBNBR) TYPE(&TYPE)          
                                                                                
/*( データ・ベースの作成 )*/                                                    
             CRTPF      FILE(QTEMP/QPRINT) RCDLEN(132) IGCDTA(*YES) +           
                          LVLCHK(*NO) AUT(*ALL)                                 
             MONMSG     CPF7300                                                 
                                                                                
/*( スプールを *HOLD にオーバーライド )*/                                       
             OVRPRTF    FILE(QPRINT) TOFILE(QTEMP/QPRINT) +                     
                          LVLCHK(*NO) SECURE(*YES) OVRSCOPE(*JOB) +             
                          OPNSCOPE(*JOB)                                        
                                                                                
/*( 印刷ジョブの実行 )*/                                                        
             PGM102     TKFROM() TKEND(9999) OUTPUT(*PRINT)                     
             DLTOVR     FILE(QPRINT) LVL(*JOB)                                  
             MONMSG     CPF9800                                                 
                                                                                
             ENDPGM