MAINFRAME - TIP OF THE DAY :
Q. If there is a situation, where we need to code more than 255 steps in a JOB?
A. We need to split jcl into two jcls , at the end of the first jcl check the condition code and initiate the second jcl.
Programmers Voted for below topics. Please Vote for good Posts.
Thank You! for your feedback. Connecting to the server. Please Wait...
Posted: Fri Jan 12, 2007 9:41 pm Post subject: Eliminate records using Seq and PDS
I would like to be able to eliminate records from a sequential dataset by comparing it to the members of a PDS. One of the fields in the seq. dataset would correspond with the member name in the PDS. Any help would be great.
Posted: Thu Jan 25, 2007 4:59 am Post subject: Eliminate records using Seq and PDS
Can you elaborate your requirement clearly and also do you have any constraints such as you should use only utility or pgm, can you use EZT or REXX.
I just wanted to give you some idea of how this can be achieved
1.You can get the entire list of PDS members and write into a PS file.
2. Now assume you have 2 files one PS file with the data FILEA and FILEB with list of members of PDS, now Using any SORT or EZT pgm do a match on keys and eliminate the Matched records.
Find below some sample code of how to get the member names using REXX. The below code display the member names instead you can write into a file.
"LMINIT DATAID(LMID) DATASET('"HERE GIVE UR PDSNAME"')"
DO FOREVER = 1
"LMMLIST DATAID("LMID") MEMBER(LMMEM)"
IF RC > 0
Vali I appreciate if u can post ur approach or code it will be useful for others with similar kind of requirement. Please note post it in the
appropriate forum using which lang/utility u have acheived it.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum