Page 1 of 1

Eliminate records using Seq and PDS

Posted: Fri Jan 12, 2007 9:41 pm
by valis
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.

Eliminate records using Seq and PDS

Posted: Thu Jan 25, 2007 4:59 am
by Veera
Vilas,

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.

ADDRESS "ISPEXEC"
"LMINIT DATAID(LMID) DATASET('"HERE GIVE UR PDSNAME"')"
"LMOPEN DATAID("LMID")"
DO FOREVER = 1
"LMMLIST DATAID("LMID") MEMBER(LMMEM)"
IF RC > 0
THEN LEAVE
ELSE
SAY LMMEM
END
"LMFREE DATAID("LMID")"

Thanks
Veera

Posted: Fri Jan 26, 2007 10:29 pm
by valis
Nevermind, I don't actually need to do this.

Posted: Fri Jan 26, 2007 11:50 pm
by Veera
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.

Thanks
Veera.