■  キャラクターからパックへ変換する方法


OUTREC指定でTOフィールドを設定すればできます。

//SORT1EXECSORT 
//SORTINDD* 
12345678901
//SORTOUTDDDSN=OUTFILE,DISP=(,KEEP),… 
//SYSINDD* 
 OPTION COPY
 OUTFIL FNAMES=SORTOUT,CONVERT,
 OUTREC=(1,11,ZD,TO=PD,LENGTH=6)←1〜11バイトを6バイトのパックに変換して出力
/*    
 


BEFORE PAGE

TOP PAGE