実行環境

22. 複数のプログラムで単一のスプールを作るには?

CPYSPLF で 2つのスプールファイルをマージすることも可能だが、それは面倒なので次のように 2本の印刷用 RPG を実行させるとき、最初の PGM001 は LR を ON にせずに RETURN のみで終了させ、次の PGM002 が LR 終了するようにすれば 1つのスプールに 2本のプログラムからの印刷が行なわれる。

ソースコード
OVRPRTF FILE(QPRINT) SHARE(*YES)
CALL  MYLIB/PGM001
CALL  MTLIB/PGM002
DLTOVR  QPRINT