| ■ 入力ファイルの一部を置き換えてＣＯＰＹ／ＳＯＲＴする方法 |  |
▲その１
//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前に置き換えてからＳＯＲＴできます