At 19:39 +0200 on 09/29/2010, John Blythe Reid wrote about Sample code to read a PDS member using BPAM:
I'm writing some code to check VSAM CLUSTER defintions in a standard RECFM=FB,LRECL=80 PDS. It's to cross check IMS DBD defintions against their associated CLUSTER definitions. I've never used BPAM before but at first glance it seems to be OPEN/FIND/READ/CHECK/deblock to get logical records/CLOSE. Does anyone have a sample piece of code to read PDS members with BPAM that I could have a look at ? Thanks, John.
Not to rain on your parade but if you know the member names (as opposed to wanting to read the PDS directory to find them), why bother with BPAM when QSAM and an open of DSN(MEMBER) will work just as well? All you need to do is use SVC99 to allocate the member and then do an open to the allocated DDN. Or you can use a RDJFCB and OPENJ.