■ 入力ファイルの一部を置き換えてCOPYする方法
//GEN EXEC PGM=ICEGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=INFILE,DISP=SHR //SYSUT2 DD DSN=OUTFILE,DISP=(,KEEP),… //SYSIN DD * GENERATE MAXFLDS=2,MAXLITS=1 ←MAXFLDSはRECORDステートメントの数 RECORD FIELD=(39,1,,1), MAXLITSはリテラルの数 RECORD FIELD=(1,'T',,40) /* ↑ このサンプルは、INPUTの1から39バイトを OUTPUTの1バイト目からセット、
1バイトの「T」をOUTPUTの40バイト目にセットする