kolusu Site Admin
![Site Admin Site Admin](images/ranks/adminpic.jpg)
Joined: 26 Nov 2002 Posts: 12370 Topics: 75 Location: San Jose
|
Posted: Fri Sep 11, 2015 10:14 am Post subject: |
|
|
rama krishna reddy,
You have been a member of this board for about 9 years and yet you are not following the rules.
I added the code tags for your post and see how easy it is to read. Next time learn how to use code tags.
Either way here is a JCL which will give you the desired results. I assumed you want to pick all the groups of records that have the word "FEE" anywhere in the 134 bytes.
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//INA DD DISP=SHR,DSN=Your input FB 134 byte report file
//INB DD DISP=SHR,DSN=Same input FB 134 byte file
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
JOINKEYS F1=INA,FIELDS=(135,9,A),SORTED,NOSEQCK
JOINKEYS F2=INB,FIELDS=(135,9,A),SORTED,NOSEQCK
REFORMAT FIELDS=(F1:1,135)
//*
//JNF1CNTL DD *
INREC IFTHEN=(WHEN=GROUP,BEGIN=(3,4,CH,EQ,C'FN20'),
PUSH=(135:ID=8)),
IFTHEN=(WHEN=INIT,OVERLAY=(143:C'Y'))
//*
//JNF2CNTL DD *
INREC IFOUTLEN=143,
IFTHEN=(WHEN=GROUP,BEGIN=(3,4,CH,EQ,C'FN20'),PUSH=(135:ID=8)),
IFTHEN=(WHEN=(1,134,SS,EQ,C'FEE'),
OVERLAY=(144:SEQNUM,3,ZD,RESTART=(135,8)),HIT=NEXT),
IFTHEN=(WHEN=(144,3,ZD,EQ,1),OVERLAY=(143:C'Y'))
//* |
_________________ Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
www.linkedin.com/in/kolusu |
|