One file consists of header records and detail records.
Key of the file is Emp no, Dept no and Record type.
Here record-type=0 means header. 1,2 etc indicates detail records. EMP-NO and DEPT-NO fields are common to both header and detail records. Emp-status field is only present in header records. I want to extract all the employee records where emp-status=confirmed. But it should extract the corresponding detail records also.
EMP-NO DEPT-NO RECORD-TYPE EMP-STATUS REMAINING DATA
X(4) X(2) 9(2) X(9) X(33)
A111 B1 0 TEMPORARY
A111 B1 1 ………………………………………
A111 B1 2 ………………………………………
B111 B1 0 CONFIRMED
B111 B1 1 ………………………………………
B111 B1 2 ………………………………………
C111 B1 0 TEMPORARY
C111 B1 1 ………………………………………
C111 B1 2 ………………………………………
C111 B1 3 ………………………………………
D111 B1 0 CONFIRMED
D111 B1 1 ………………………………………
Output should be
B111 B1 0 CONFIRMED
B111 B1 1 ………………………………………
B111 B1 2 ………………………………………
D111 B1 0 CONFIRMED
D111 B1 1 ………………………………………
Could someone please help me out ?
Extracting details records based on header record criteria
Previous topic • Next topic • 4 posts
• Page 1 of 1
Extracting details records based on header record criteria
by pacha » Sun Mar 21, 2010 10:38 pm
- pacha
- Posts: 10
- Joined: Sun Mar 21, 2010 10:27 pm
- Has thanked: 0 time
- Been thanked: 0 time
Re: Extracting details records based on header record criteria
by skolusu » Mon Mar 22, 2010 8:59 pm
pacha,
Use the following DFSORT JCL which will give you the desired results
Use the following DFSORT JCL which will give you the desired results
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=your input FB 50 byte file,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=GROUP,BEGIN=(7,2,ZD,EQ,0),PUSH=(51:9,9))
OUTFIL INCLUDE=(51,9,CH,EQ,C'CONFIRMED'),BUILD=(1,50)
//*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=your input FB 50 byte file,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=GROUP,BEGIN=(7,2,ZD,EQ,0),PUSH=(51:9,9))
OUTFIL INCLUDE=(51,9,CH,EQ,C'CONFIRMED'),BUILD=(1,50)
//*
Re: Extracting details records based on header record criteria
by pacha » Tue Mar 23, 2010 11:26 am
Skolusu,
Thanks for providing me the solution. But my installation is having April, 2006 DFSORT functions. GROUP and PUSH functions are not available in our version. Updation to the latest version will take time
. Is it possible to achieve the same result using some other methods.
Thanks for providing me the solution. But my installation is having April, 2006 DFSORT functions. GROUP and PUSH functions are not available in our version. Updation to the latest version will take time
. Is it possible to achieve the same result using some other methods.- pacha
- Posts: 10
- Joined: Sun Mar 21, 2010 10:27 pm
- Has thanked: 0 time
- Been thanked: 0 time
Re: Extracting details records based on header record criteria
by skolusu » Tue Mar 23, 2010 9:23 pm
pacha,
Use the following DFSORT/ICETOOL JCL
Use the following DFSORT/ICETOOL JCL
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=your input FB 50 byte file,DISP=SHR
//OUT DD SYSOUT=*
//TOOLIN DD *
SPLICE FROM(IN) TO(OUT) ON(51,8,CH) WITH(1,50) WITHALL -
KEEPBASE USING(CTL1)
//CTL1CNTL DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=INIT,OVERLAY=(51:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(7,2,ZD,EQ,0),OVERLAY=(51:SEQNUM,8,ZD,9,9)),
IFTHEN=(WHEN=NONE,OVERLAY=(59:SEQNUM,8,ZD,
51:51,8,ZD,SUB,59,8,ZD,M11,LENGTH=8))
OUTFIL FNAMES=OUT,INCLUDE=(59,9,CH,EQ,C'CONFIRMED'),BUILD=(1,50)
//*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=your input FB 50 byte file,DISP=SHR
//OUT DD SYSOUT=*
//TOOLIN DD *
SPLICE FROM(IN) TO(OUT) ON(51,8,CH) WITH(1,50) WITHALL -
KEEPBASE USING(CTL1)
//CTL1CNTL DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=INIT,OVERLAY=(51:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(7,2,ZD,EQ,0),OVERLAY=(51:SEQNUM,8,ZD,9,9)),
IFTHEN=(WHEN=NONE,OVERLAY=(59:SEQNUM,8,ZD,
51:51,8,ZD,SUB,59,8,ZD,M11,LENGTH=8))
OUTFIL FNAMES=OUT,INCLUDE=(59,9,CH,EQ,C'CONFIRMED'),BUILD=(1,50)
//*
Previous topic • Next topic • 4 posts
• Page 1 of 1
Return to DFSORT/ICETOOL/ICEGENER
-
- Related topics
- Replies
- Views
- Last post
-
- Merge the records based on Header
by nagarajan_v » Tue Jul 30, 2013 4:13 pm - 9 Replies
- 3799 Views
- Last post by skolusu
Fri Aug 02, 2013 11:07 pm
- Merge the records based on Header
-
- Merge the records based on Header
by nagarajan_v » Sun Aug 04, 2013 1:55 am - 5 Replies
- 2213 Views
- Last post by BillyBoyo
Tue Aug 06, 2013 5:45 am
- Merge the records based on Header
-
- How to sort groups of records based on the header
by Irene Ioujanina » Mon Feb 23, 2009 10:13 pm - 4 Replies
- 3408 Views
- Last post by Irene Ioujanina
Tue Feb 24, 2009 12:28 am
- How to sort groups of records based on the header
-
- How to sort groups of records based NOT on the header
by Irene Ioujanina » Fri Feb 03, 2012 8:50 pm - 3 Replies
- 3022 Views
- Last post by Irene Ioujanina
Fri Feb 03, 2012 10:38 pm
- How to sort groups of records based NOT on the header
-
- Parse/Format file based on header value and then skip header
by noorkh » Wed Oct 07, 2015 6:18 pm - 5 Replies
- 2504 Views
- Last post by BillyBoyo
Thu Oct 08, 2015 3:40 pm
- Parse/Format file based on header value and then skip header