An example of OUTFIL conversion:
//VTOF EXEC PGM=SORTThe above step will copy the records from SORTIN to SORTOUT. If the input records are shorter than 80 bytes, the output is padded with ‘*’ (Specified by VLFILL).
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSDUMP DD SYSOUT=*
//SORTIN DD DSN=M145.TEMP.SORT.IN,DISP=SHR
//SORTOUT DD DSN=M145.TEMP.SORT.OUT,
// DISP=(NEW,CATLG,DELETE),UNIT=DASD,
// SPACE=(TRK,(500,500),RLSE),
// DCB=(RECFM=FB,LRECL=80)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT,VTOF,OUTREC=(5,80),VLFILL=C'*'
//*
If VLFILL option is not specified, by default the records are padded with spaces.
VLFILL=C’x’ => pad with the character x.
VLFILL=X’yy’ => pad with hexadecimal character X’yy’.
I can't thank you enough for this tip. It works perfect. Thank you so much.
ReplyDelete