Daniel Cremieux wrote: >How can i do with DFSORT to add a constant to every record of a file , >please ? > >For example : >Before : >aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa >bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb >cccccccccccccccccccccccccccccccccc > >After : >AAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa >AAAbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb >AAAcccccccccccccccccccccccccccccccccc
Daniel, You can use DFSORT's INREC, OUTREC or OUTFIL statement to do that. Here's a DFSORT job to do what you want. I assumed your input file has RECFM=FB and LRECL=80, but you can change the job appropriately for for other LRECLs: //S1 EXEC PGM=ICEMAN //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file (FB/80) //SORTOUT DD DSN=... output file (FB/83) //SYSIN DD * OPTION COPY OUTREC FIELDS=(C'AAA',1,80) /* For RECFM=VB input files, the job would be: //S2 EXEC PGM=ICEMAN //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file (VB) //SORTOUT DD DSN=... output file (VB) //SYSIN DD * OPTION COPY OUTREC FIELDS=(1,4,C'AAA',5) /* Frank Yaeger - DFSORT Team (IBM) Specialties: ICETOOL, IFTHEN, OVERLAY, Symbols, Migration => DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/ ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
