■ CSVファイルを作成するサンプル
例えばホストのファイルレイアウトが、
項目1:パック6バイト
項目2:パック5バイト
項目3:パック4バイト
項目4:キャラクター4バイト
項目5:キャラクター3バイト
項目6:キャラクター2バイト
であるとし、出力ファイルが80バイトの固定長であるとします。
JCLはこーんな感じになります。
//SORT1 EXEC SORT //SORTIN DD DSN=INFILE,DISP=SHR //SORTOUT DD DSN=OUTFILE,DISP=(,KEEP),… //SYSIN DD * OPTION COPY OUTFIL FNAMES=SORTOUT OUTREC=(1,6,PD,EDIT=(TTTTTTTTTTT),LENGTH=11,C',', ←項目1 7,5,PD,EDIT=(TTTTTTTTT),LENGTH=9,C',', ←項目2 12,4,PD,EDIT=(TTTTTTT),LENGTH=7,C',', ←項目3 16,3,C',',19,2,C',',21,1,C',',) ←項目4〜6 41X) ←残りスペースクリア /*