Extracting matching records using DFSORT

Vidusha · New User Joined: 01 Feb 2006 Posts: 20 Location: Chennai

Hi,

My input file has three types of record AA, AB and AC like below

AA0001000123
AB48901
AC0009
AA0001000222
AB00121
AA0001000123
AA0001000233
AA0001000123
AB80909

AA is the main record..AB and AC are optional under that.
I want to extract all AA records which satisfy (10,3,EQ,123) and its optional records

so my output should look like

AA0001000123
AB48901
AC0009
AA0001000123
AA0001000123
AB80909

Could you please provide the approach of getting this using DFSORT

murmohk1 · Posted: Wed Jul 25, 2007 3:37 pm

Vidusha,

Vidusha · New User Joined: 01 Feb 2006 Posts: 20 Location: Chennai

Hi,

I want to extract all AA records which satisfy (10,3,EQ,123) and its optional records

So the records you have mentioned do not satify the condition.

The file is FB of LRECL 125

Let me know if you need any other information

krisprems · Posted: Wed Jul 25, 2007 5:12 pm

Vidusha
Check the Include or omit groups of records Smart DFSORT trick at

www.ibm.com/servers/storage/support/software/sort/mvs/tricks/

shankar.v · Posted: Fri Jul 27, 2007 12:00 pm

// EXEC PGM=ICETOOL
//DFSMSG DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//IN DD *
AA0001000123
AB48901
AC0009
AA0001000222
AB00121
AA0001000123
AA0001000233
AA0001000123
AB80909
//T1 DD DSN=&&T1,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE)
//T2 DD DSN=&&T2,DISP=(MOD,PASS),SPACE=(CYL,(5,5),RLSE)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN) TO(T1) USING(CTL1)
COPY FROM(T1) TO(T2) USING(CTL2)
COPY FROM(T1) TO(T2)
SPLICE FROM(T2) TO(OUT) ON(90,9,ZD) WITHALL WITH(1,80) USING(CTL3)
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,9,ZD)),
IFTHEN=(WHEN=(1,2,CH,EQ,C'AA'),OVERLAY=(90:SEQNUM,9,ZD)),
IFTHEN=(WHEN=NONE,OVERLAY=(99:SEQNUM,9,ZD,90:81,9,ZD,SUB,99,9,ZD,M11,LENGTH=9))
/*
//CTL2CNTL DD *
INCLUDE COND=(1,2,CH,EQ,C'AA',AND,10,3,CH,EQ,C'123')
INREC IFTHEN=(WHEN=(1,2,CH,EQ,C'AA',AND,10,3,CH,EQ,C'123'),OVERLAY=(108:C'*'))
/*
//CTL3CNTL DD *
OUTFIL FNAMES=OUT,INCLUDE=(108,1,CH,EQ,C'*'),OUTREC=(1,80)
/*
//

shankar.v · Posted: Fri Jul 27, 2007 1:23 pm

Tuned the before one is below
// EXEC PGM=ICETOOL
//DFSMSG DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//IN DD *
AA0001000123
AB48901
AC0009
AA0001000222
AB00121
AA0001000123
AA0001000233
AA0001000123
AB80909
//T DD DSN=&&T,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN) TO(T) USING(CTL1)
SPLICE FROM(T) TO(OUT) ON(90,9,ZD) WITHALL WITH(1,80) KEEPBASE KEEPNODUPS USING(CTL2)
/*
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,9,ZD)),
IFTHEN=(WHEN=(1,2,CH,EQ,C'AA'),OVERLAY=(90:SEQNUM,9,ZD)),
IFTHEN=(WHEN=NONE,OVERLAY=(99:SEQNUM,9,ZD,108:X,90:81,9,ZD,SUB,99,9,ZD,M11,LENGTH=9))
OUTREC IFTHEN=(WHEN=(1,2,CH,EQ,C'AA',AND,10,3,CH,EQ,C'123'),OVERLAY=(108:C'*'))
/*
//CTL2CNTL DD *
OUTFIL FNAMES=OUT,INCLUDE=(108,1,CH,EQ,C'*'),OUTREC=(1,80)
/*
//

Frank Yaeger · Posted: Fri Jul 27, 2007 8:42 pm

Vidusha,

Here's a DFSORT/ICETOOL job that will do what you asked for. You'll need z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 (April, 2006) in order to use INREC with SPLICE. If you don't have the April, 2006 PTF, ask your System Programmer to install it (it's free). For complete details on all of the new DFSORT and ICETOOL functions available with the April, 2006 PTF, see:

Use [URL] BBCode for External Links