| ■ デフォルトのプリンター以外を指定する方法 |  |
プリンターの定義をすると複数のレポートを別々のプリンターや別々のクラスに出力することができます。
EX)
//STEP1 EXEC PGM=EZTP00
//SYSPRINT DD SYSOUT=X ←デフォルトのプリンターはＳＹＳＰＲＩＮＴ
//SYSSNAP DD DUMMY
//FILEA DD *
AAA001001
BBB002002
//LISTA DD SYSOUT=T,DCB=(RECFM=FBA,LRECL=137) ←プリンター１のＳＹＳＯＵＴＣＬＡＳＳはＴ
//LISTB DD SYSOUT=R,DCB=(RECFM=FBA,LRECL=137) ←プリンター２のＳＹＳＯＵＴＣＬＡＳＳはＲ
//SYSLIN DD *
LIST OFF
PARM LIST(NOPARM NOFILE)
FILE FILEA
AAA 1 3 A HEADING('A')
BBB * 3 A HEADING('B')
CCC * 3 A HEADING('C')
*
FILE LISTA PRINTER EXTENDED IBM5550 ←プリンター１定義
FILE LISTB PRINTER ←プリンター２定義
*
JOB INPUT FILEA
PRINT REPT1
PRINT REPT2
REPORT REPT1 PRINTER LISTA ←プリンター１指定
TITLE 1 '***** TEST *****'
LINE 1 AAA BBB CCC
REPORT REPT2 PRINTER LISTB ←プリンター２指定
TITLE 1 '***** TEST *****'
LINE 1 AAA BBB CCC
↓実行結果
＜ＪＯＢのデータセットの結果（ＳＤＳＦの？で見たところ）＞
JESMSGLG JES2 2 U000001 A LOCAL
JESJCL JES2 3 U000001 A LOCAL
JESYSMSG JES2 4 U000001 A LOCAL
SYSPRINT STEP1 103 U000001 X LOCAL
LISTA STEP1 104 U000001 T LOCAL ←レポートが分れて出力（プリンター１）
LISTB STEP1 105 U000001 R LOCAL ←レポートが分れて出力（プリンター２）
|
※漢字を使う時は、ＰＲＩＮＴＥＲ定義に EXTENDED IBM5550 を指定しないと ＤＢＣＳＣＯＤＥのエラーとなる場合があります。