最後に紹介する印刷スプールのデータ・ベースへの変換は
少し驚く方法を紹介する。
印刷スプールをデータ・ベースに変換するのは
CPYSPLF を使うものと誰もが思っているはずなのだが
なぜそうしなければならないのだろうか ?

CRTPF FILE(QTEMP/QPRINT) RCDLEN(132)
     IGCDTA(*YES) LVLCHK(*NO) AUT(*ALL)

でデータ・ベース : QTEMP/QPRINT を作成したのであるから
このデータ・ベースに直接、出力できないのだろうか?
答えは YES である。

OVRPRTF で出力ファイルをこの QTEMP/QPRINT にオーバーライドして
印刷出力してみよう。
先の例では、

OVRPRTF FILE(QPRINT) TOFILE(QTEMP/QPRINT)
     
LVLCHK(*NO) SECURE(*YES) OVRSCOPE(*JOB)
          
OPNSCOPE(*JOB)

に印刷スプール : QPRINT をデータ・ベース : QTEMP/QPRINT に
オーバーライドさせてデータ・ベースに直接、印刷してみよう。

【 サンプル: TESTPRT4 】

0001.00              PGM
0002.00 /*-------------------------------------------------------------------*/
0003.00 /*   TESTPRT4  :   印刷スプールをデータ・ベースへコピーする          */
0004.00 /*                                                                   */
0005.00 /*   2017/08/19  作成                                                */
0006.00 /*-------------------------------------------------------------------*/
0007.00              DCL        VAR(&JOB)  TYPE(*CHAR) LEN(10)
0008.00              DCL        VAR(&USER) TYPE(*CHAR) LEN(10)
0009.00              DCL        VAR(&JOBNBR) TYPE(*CHAR) LEN(6)
0010.00              DCL        VAR(&TYPE) TYPE(*CHAR) LEN(1)
0011.00              DCL        VAR(&RCVDTA) TYPE(*CHAR) LEN(128)
0012.00              DCL        VAR(&RCVLEN) TYPE(*CHAR) LEN(4)
0013.00              DCL        VAR(&APIERR) TYPE(*CHAR) LEN(116) +
0014.00                           VALUE(X'000074') /* 2 進数  */
0015.00
0016.00 /*( 環境の取得 )*/
0017.00              RTVJOBA    JOB(&JOB) USER(&USER) NBR(&JOBNBR) TYPE(&TYPE)
0018.00
0019.00 /*( データ・ベースの作成 )*/
0020.00              CRTPF      FILE(QTEMP/QPRINT) RCDLEN(132) IGCDTA(*YES) +
0021.00                           LVLCHK(*NO) AUT(*ALL)
0022.00              MONMSG     CPF7300
0023.00
0024.00 /*( スプールを *HOLD にオーバーライド )*/
0025.00              OVRPRTF    FILE(QPRINT) TOFILE(QTEMP/QPRINT) +
0026.00                           LVLCHK(*NO) SECURE(*YES) OVRSCOPE(*JOB) +
0027.00                           OPNSCOPE(*JOB)
0028.00
0029.00 /*( 印刷ジョブの実行 )*/
0030.00              PGM102     TKFROM() TKEND(9999) OUTPUT(*PRINT)
0031.00              DLTOVR     FILE(QPRINT) LVL(*JOB)
0032.00              MONMSG     CPF9800
0033.00
0034.00              ENDPGM

【解説】