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

ＯＵＴＲＥＣ指定でＴＯフィールドを設定すればできます。

//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)			←１〜１１バイトを６バイトのパックに変換して出力
/*

※ＺＤフィールドで指定した数字の先行の空白はゼロに変換されます。

BEFORE PAGE

TOP PAGE