Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How to code the following requirement?

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

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Wed May 14, 2008 12:29 pm    Post subject: How to code the following requirement?
Reply with quote

INPUT:
Code:
WDCP TR   WDCP   WDCP ID
 ID SSN   NOD ID GUAR AGCY
C 9       N 3    C 3     
15------- 24---- 27-------
310789954 004    836     
312520249 002    836     
312929875 002    836     
325807809 003    836     
325807809 002    836     
242293732 001    836     
242293732 001    836           
242293732 001    836     
242293732 001    836     
346685284 001    836     
378920533 001    836     
378920533 001    836     
413963981 003    836     
413963981 003    836     
433679765 004    836     

REQUIRED OUTPUT:
Code:
 WDCP TR   WDCP   WDCP ID
 ID SSN   NOD ID GUAR AGCY
C 9       N 3    C 3     
15------- 24---- 27-------
242293732 001    836         
242293732 001    836     
242293732 001    836     
242293732 001    836         
378920533 001    836     
378920533 001    836     
413963981 003    836     
413963981 003    836     

I want only the records where the SSN and NOD ID field combinely occurs
more than one times.

I tried the XSUM option, but the output i got was,
Code:
 WDCP TR   WDCP   WDCP ID
 ID SSN   NOD ID GUAR AGCY
C 9       N 3    C 3     
15------- 24---- 27-------     
242293732 001    836           
242293732 001    836     
242293732 001    836         
378920533 001    836     
413963981 003    836


Anybody please help me how to get the required output.

Regards
R KARTHIK
Back to top
View user's profile Send private message

krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Wed May 14, 2008 12:38 pm    Post subject:
Reply with quote

You can use the below SYNCTOOL solution for your problem:

Code:
//**********************************************
//GETMATCH EXEC PGM=SYNCTOOL                   
//TOOLMSG  DD SYSOUT=*                         
//DFSMSG   DD SYSOUT=*                         
//IN       DD *                                 
310789954 004 836                               
312520249 002 836                               
312929875 002 836                               
325807809 003 836                               
325807809 002 836                               
242293732 001 836                               
242293732 001 836                               
242293732 001 836                               
242293732 001 836                               
346685284 001 836                               
378920533 001 836                               
378920533 001 836                               
413963981 003 836                               
413963981 003 836                               
433679765 004 836                           
/*                                           
//OUT      DD SYSOUT=*                                     
//TOOLIN   DD *                             
  SELECT FROM(IN) TO(OUT) ON(1,13,CH) ALLDUPS
/*                                           
//*                                         


OUT will contain the req o/p
Back to top
View user's profile Send private message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Wed May 14, 2008 1:03 pm    Post subject: Reply to: How to code the following requirement?
Reply with quote

Hi krisprems,

Thanks for ur immediate help.

It's working now.

Regards
R KARTHIK.
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 Speed-up/reduce CPU use of code prino PL/I & Assembler 0 Tue Sep 26, 2017 12:05 am
This topic is locked: you cannot edit posts or make replies. how to code for GDG in Rexx cvnlynn CLIST & REXX 13 Wed Aug 09, 2017 9:13 pm
This topic is locked: you cannot edit posts or make replies. rexx code to create a ps file Bharath Vikraman CLIST & REXX 4 Mon Aug 07, 2017 10:30 am
No new posts I want to retire TRX and use only Rex... Abhinav Sharma CLIST & REXX 6 Sat Jul 29, 2017 2:53 am
No new posts UNIT=AFF for Easytrieve code gandikk JCL & VSAM 7 Wed Jul 12, 2017 11:42 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us