■  入力ファイルの一部を置き換えてCOPYする方法


//GENEXECPGM=ICEGENER 
//SYSPRINTDDSYSOUT=* 
//SYSUT1DDDSN=INFILE,DISP=SHR 
//SYSUT2DDDSN=OUTFILE,DISP=(,KEEP),… 
//SYSINDD* 
 GENERATE MAXFLDS=2,MAXLITS=1←MAXFLDSはRECORDステートメントの数
 RECORD FIELD=(39,1,,1),    MAXLITSはリテラルの数
 RECORD FIELD=(1,'T',,40) 
/*  
  このサンプルは、INPUTのから39バイトを OUTPUTの1バイト目からセット、
1バイト「T」をOUTPUTの40バイト目にセットする


BEFORE PAGE

TOP PAGE