■  入力ファイルの一部を置き換えてＣＯＰＹ／ＳＯＲＴする方法

▲その１

//SORT1		EXEC	SORT
//SORTIN		DD	DSN=…,DISP=SHR
//SORTOUT		DD	DSN=…,DISP=(,KEEP),…
//SYSIN		DD	*
	SORT FIELD=COPY			←OPTION COPYと同じ
	OUTFIL FNAMES=SORTOUT,
		OUTREC=(1,39,C'T')
/*			↑
			このサンプルは、ＩＮＰＵＴの１～３９ バイト目をＯＵＴＰＵＴの１～３９バイトにセット、 「Ｔ」をＯＵＴＰＵＴの４０バイト目にセットする

---

▲その２

//SORT1		EXEC	SORT
//SORTIN		DD	DSN=…,DISP=SHR
//SORTOUT		DD	DSN=…,DISP=(,KEEP),…
//SYSIN		DD	*
	OPTION COPY
	OUTFIL FNAMES=SORTOUT,
		OUTREC=(1,10,11,1,CHANGE=(1,X'00',X'F0',C' ',C'X'),20,40)
/*			↑
			ＩＮＰＵＴの１バイト目から１０バイトをそのままセット ＩＮＰＵＴの１１バイト目から１バイトを変更 （X'00'はX'F0'へ、C'  'はC'X'へ変更） ＩＮＰＵＴの２０バイト目から４０バイトをセット
		注意）	既に他のビットが立っている場合はＵ－２１２でアベンドします。   ↓ メッセージ MATCH NOT FOUND FOR SORTOUT CHANGE FIELD AT POSITION 11   ↓ この場合は、「NOMATCH=(11,1)を指定します」

---

▲その３

//SORT1		EXEC	SORT
//SORTIN		DD	*
AAAAA67890
BBBBB67890
CCCCC67890
//SORTOUT		DD	DSN=…,DISP=(,KEEP),…
//SYSIN		DD	*
	OPTION COPY
	OUTFIL FNAMES=SORTOUT,
		OUTREC=(1,5,CHANGE=(5,C'AAAAA',C'XXXXX',C'BBBBB',C'ZZZZZ',
		NOMATCH=(1,5),
		6,75)
/*			↑
			ＩＮＰＵＴの１バイト目から５バイトをセットするがその５バイトが、AAAAAだった場合はXXXXXに変換、BBBBBだった場合はZZZZZに変換してセット AAAAAでもBBBBBでもない場合はそのままセット その次にＩＮＰＵＴの６バイト目から７５バイトをそのままセット

---

▲その４ -z/OS Ver2Rel4以上-

//SORT1		EXEC	SORT
//SORTIN		DD	*
Z1234567890
Y1234567890
X1234567890
//SORTOUT		DD	DSN=…,DISP=(,KEEP),…
//SYSIN		DD	*
	SORT FIELDS=(1,1,CH,A)
		OUTREC FINDREP=(IN=X'E7',OUT=C'@')
/*			↑
			入力にZ(=X'E7')があったら、@に変換して出力   OUTRECのかわりにINRECを使うとSORT前に置き換えてからＳＯＲＴできます

BEFORE PAGE

TOP PAGE

ホワイトニング マウスウォッシュ [歯を白くする 口臭予防 虫歯予防 歯周炎予防 歯肉炎予防 口内浄化] アップルミント味 500ml 医薬部外品 OraLuLu オーラルル 価格：1,980円～（税込、送料無料) (2023/10/28時点) 楽天で購入