Eliminate records using Seq and PDS
Moderators: Frank Yaeger, DikDude, Moderator Group
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.
Eliminate records using Seq and PDS
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
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
FREE TUTORIALS
Tutorials
Free tutorials from mainframegurukul
- JCL Tutorial
Covers all important JCL concepts. - Cobol Tutorial
This tutorials covers all Cobol Topics from STRING to COMP-3. - DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. - SORT Tutorial
This Tutorial covers all important aspects of DFSORT with examples - CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page