Sample code to read a PDS member using BPAM

[John Blythe Reid]

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.