Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

how to bypass this record?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
mohitsaini
Warnings : 1

New User


Joined: 15 May 2006
Posts: 90

PostPosted: Wed Jul 02, 2008 8:26 pm    Post subject: how to bypass this record?
Reply with quote

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
Back to top
View user's profile Send private message

Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Wed Jul 02, 2008 10:43 pm    Post subject: Reply to: how to bypass this record?
Reply with quote

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
Back to top
View user's profile Send private message
mohitsaini
Warnings : 1

New User


Joined: 15 May 2006
Posts: 90

PostPosted: Thu Jul 03, 2008 11:40 am    Post subject:
Reply with quote

Thanks Kolusu
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS DB-How to update a record (a sing... Nic Clouston IMS DB/DC 9 Thu Mar 09, 2017 4:38 pm
No new posts To Merge mutliple records into a sing... anandgbe DFSORT/ICETOOL 6 Wed Feb 22, 2017 8:49 am
No new posts How to update a portion of text in a ... Bill Woodger DFSORT/ICETOOL 25 Wed Nov 09, 2016 9:41 pm
No new posts sort with previous record anatol DFSORT/ICETOOL 9 Thu Oct 06, 2016 2:36 am
No new posts Get Record count in summary record fo... Atul Banke DFSORT/ICETOOL 21 Fri Sep 23, 2016 4:17 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us