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

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

//SORT1		EXEC	SORT
//SORTIN		DD	*
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

【10％OFFクーポン配布中・2個セット】防水ケース スマホ防水ケース 完全防水 防水等級IPX8 指紋認証/Face ID認証対応 防水携帯ケース タッチ可 気密性抜群 iPhone Android 6.8インチ以下全機種対応 水中撮影 お風呂 海水浴 水泳など適用 2021お金収納 サーフィン 価格：1000円（税込、送料別) (2022/8/20時点) 楽天で購入