■  入力ファイルを整形してプリントするサンプル

//MYJOB1 JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1) //STEP1 EXEC PGM=IEBPTPCH //SYSPRINT DD SYSOUT=* //SYSUT1 DD * ABCDEFGHIJKLMNOPQRSTUVWXYZ AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXYZ 123456789012345678901234567890123456789012345678901234567890123456789012 //SYSUT2 DD SYSOUT=* //SYSIN DD * PRINT TYPORG=PS,MAXFLDS=2 TITLE ITEM=(' - TESTA - ',3) RECORD FIELD=(1,4,,5), FIELD=(10,5,,18) /* // ※TITLE ITEMはリスト上のタイトルです。 ※MAXFLDSはFILEDの数です。

     実行結果

PAGE 0001 - TESTA - D EFGHIJKLMN B BBCCCDDDEE 4 5678901234

※IEBPTPCHのRECORD FIELDSパラメータは、IEBGENERとほぼほぼ同じです。

BEFORE PAGE

TOP PAGE