■ キャラクターからパックへ変換する方法
OUTREC指定でTOフィールドを設定すればできます。
※ZDフィールドで指定した数字の先行の空白はゼロに変換されます。
//SORT1 EXEC SORT //SORTIN DD * 10 98765 12345678901 //SORTOUT DD DSN=OUTFILE,DISP=(,KEEP),… //SYSIN DD * OPTION COPY OUTFIL FNAMES=SORTOUT,CONVERT, OUTREC=(1,11,ZD,TO=PD,LENGTH=6) ←1~11バイトを6バイトのパックに変換して出力 /*