■  CSVファイルを作成するサンプル


例えばホストのファイルレイアウトが、

    項目1:パック6バイト
    項目2:パック5バイト
    項目3:パック4バイト
    項目4:キャラクター4バイト
    項目5:キャラクター3バイト
    項目6:キャラクター2バイト

であるとし、出力ファイルが80バイトの固定長であるとします。


JCLはこーんな感じになります。
//SORT1EXECSORT 
//SORTINDDDSN=INFILE,DISP=SHR 
//SORTOUTDDDSN=OUTFILE,DISP=(,KEEP),… 
//SYSINDD* 
 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)←残りスペースクリア
/*