prasanth_urs
New User
Joined: 04 Dec 2006 Posts: 44 Location: Pune,India
|
|
|
|
Hi all,
Please help in this issue.
DBASE SER-NO LEN
ABCDE 11111 12
CDEFG 22222 34
DBASE SER-NO LEN
ABCDE 11111 12
CDEFG 22222 34
This is the input file i have.....i need to keep the first heading and to remove all the other heading as well as space lines.
Please reply ASAP. |
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Prasanth,
Here's a DFSORT job that will do what you asked for. I assumed your input file has RECFM=FB and LRECL=80, but you can change the job appropriately for other attributes.
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//SORTOUT DD DSN=... output file (FB/80)
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:8C'0')),
IFTHEN=(WHEN=(1,16,CH,EQ,C' '),
OVERLAY=(81:C'00000002')),
IFTHEN=(WHEN=(1,16,CH,EQ,C'DBASE SER-NO LEN'),
OVERLAY=(81:SEQNUM,8,ZD))
OUTFIL OMIT=(81,8,ZD,GT,+1),BUILD=(1,80)
/*
|
|
|