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

ＯＵＴＲＥＣ指定でＥＤＩＴパターンを設定すればできます。
（ＥＤＩＴマスクパターンの詳細はＤＦＳＯＲＴのマニュアル(P.261)を
参照してください）。

//SORT1		EXEC	SORT
//SORTIN		DD	DSN=INFILE,DISP=SHR
//SORTOUT		DD	DSN=OUTFILE,DISP=(,KEEP),…
//SYSIN		DD	*
	OPTION COPY
	OUTFIL FNAMES=SORTOUT,CONVERT,
	OUTREC=(1,2,			←１～２バイトをそのまま出力
	3,3,PD,EDIT=(TTTTT),LENGTH=5,			←３～５バイト目のパックをキャラクターに変換して出力
	6,5,PD,EDIT=(TTTTTTTTT),LENGTH=9)			←６～１０バイト目のパックをキャラクターに変換して出力
/*
	※先行ゼロをブランクにするなら、ＥＤＩＴのマスクにＩを指定します。  （上記の例）   OUTREC=(1,2,          3,3,PD,EDIT=(IIIIT),LENGTH=5,          6,5,PD,EDIT=(IIIIIIIIT),LENGTH=9) ※編集文字を指定したり、リテラルを挿入したりもできます。  （上記の例）   OUTREC=(1,2,          C'*',     ←リテラル          3,3,PD,EDIT=(TTTTT),LENGTH=5,          C'#',    ←リテラル          6,5,PD,EDIT=(T-TTTTTTTT),LENGTH=10)  ←ハイフン編集 ※出力するデータのトータルレングスがＳＯＲＴＯＵＴのＤＣＢで指定したレングスと違う 場合はＡＢＥＮＤします（Ｕ０２２２）。 xxx BYTE FIXED RECORD LENGTH IS NOT EQUAL TO zzz BYTE LRECL FOR SORTOUT

上記の方法を応用するとホストファイルからＣＳＶファイルを簡単に作成することができます。
サンプルはこちらです。

BEFORE PAGE

TOP PAGE

元祖オキコラーメン 48個（1ケース） 【送料無料】　/カップラーメン 沖縄 土産 沖縄お土産 ご当地ミニラーメン 価格：2800円（税込、送料無料) (2023/2/5時点) 楽天で購入