View previous topic :: View next topic
Author
Message
Richa Jain New User Joined: 18 Mar 2008Posts: 35 Location: Gurgaon
Input file contain a header record and detail records. eg.
ABCDEF66GHI GHG 12345
ABCDEF66GHI GHG 12345 GHDG HTYEUIYR UREIOWOE ETWYTWE
AGDJULL77GH TYU 12345 HJFHJ BHDSJHDF FJDSJFKLS FHSDFDSD
FSGAHJK77JKI GJJ 12345 JUJLL LLKLGYUU IOUJKLJLL KLLKLFGJGJ
FGSFASK66JSK GJH 12345 HJKH HLJJKLJKL JLJLKLKLJHHJ UYTUYTUYT
I want to create two files. One file contains records which has '66' at position 7-8 in one file and another file should contain records which has '77' at position 7-8.
Also I need a header record in both the files.
Thanks
Back to top
Arun Raj Moderator Joined: 17 Oct 2006Posts: 2481 Location: @my desk
Quote:
Also I need a header record in both the files
How does your header record look like? Are they same for both the output files? Also can you post the sort product info and file attibutes.
Back to top
ksathishkumar83 New User Joined: 21 Nov 2006Posts: 50 Location: India
Hi,
Assuming your File length is 80 and the First Record is a Header Record. The output file DD Names are File1 and File 2.
Please try with the below card
Code:
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD),HIT=NEXT),
IFTHEN=((WHEN=81:8,ZD,EQ,1),
OVERLAY=89:C'HHHHH'),HIT=NEXT),
IFTHEN=((WHEN=81:8,ZD,GT,1),
OVERLAY=89:C'RRRRR'))
SORT FIELDS=COPY
OUTFIL FNAMES=FILE1,
INCLUDE=((81,8,ZD,EQ,1,AND,89,5,CH,EQ,C'HHHHH'),OR,
(7,2,CH,EQ,C'66' AND,89,5,CH,EQ,C'RRRRR'))
OUTFIL FNAMES=FILE2,
INCLUDE=((81,8,ZD,EQ,1,AND,89,5,CH,EQ,C'HHHHH'),OR,
(7,2,CH,EQ,C'77' AND,89,5,CH,EQ,C'RRRRR'))
OUTREC BUILD=(1,80)
Back to top
ksathishkumar83 New User Joined: 21 Nov 2006Posts: 50 Location: India
Please try the below card.
Code:
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD))
SORT FIELDS=COPY
OUTFIL FNAMES=FILE1,INCLUDE =((81,8,ZD,EQ,1,OR,7,2,CH,EQ,C'66')
OUTFIL FNAMES=FILE2,INCLUDE =((81,8,ZD,EQ,1,OR,7,2,CH,EQ,C'77')
Back to top
Please enable JavaScript!