IBM MAINFRAME HELP FORUMS for COBOL, JCL, CICS, DB2, IMS etc...

mohitsaini · Joined: 15 May 2006 Posts: 40

My data is something like this:

Claim# | Trans | Date/Time | Line-Count
188007615401 | 00 | 20080505/1506373 | 5
188007615401 | 74 | 20080505/1506373 | 4
188007615401 | 00 | 20080505/ 921269 | 4

My requirement is when

"Trans = 74" AND "the previous Trans = 00" AND "Date/Time is matching for both of them"

THEN bypass all the records belonging to claim# 188007615401.

Thanks,
Mohit

Skolusu · Joined: 07 Dec 2007 Posts: 304 Location: San Jose

Mohitsaini,

The following DFSORT/ICETOOL JCL will produce the desired results. I assumed that your input is 80 bytes and of FB recfm.

Code:
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
----+----1----+----2----+----3----+----4----+----5----+----6
188007615401 | 00 | 20080505/1506373 | 5
188007615401 | 74 | 20080505/1506373 | 4
188007615401 | 00 | 20080505/ 921269 | 4
//OUT DD SYSOUT=*
//TOOLIN DD *
SPLICE FROM(IN) TO(OUT) ON(1,12,CH) KEEPNODUPS WITHALL -
WITH(1,80) KEEPBASE USING(CTL1)
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=(16,2,CH,EQ,C'74'),OVERLAY=(81:20,18))
SORT FIELDS=(01,12,CH,A,81,18,CH,D)
OUTFIL FNAMES=OUT,BUILD=(01,80),
OMIT=(20,18,CH,EQ,81,18,CH,AND,16,2,CH,EQ,C'00')
/*

Hope this helps...

Cheers

mohitsaini · Joined: 15 May 2006 Posts: 40

Thanks Kolusu