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


//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