On 29 September 2010 13:39, John Blythe Reid <[email protected]> wrote: > 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.
I'm curious about why you would choose to do this in assembler... This sounds like a fine example of something easily done in REXX. Do you really want to parse DEFINE CLUSTER statements (or LISTCAT output - not sure which you have) in assembler? > Does anyone have a sample piece of code to read PDS members with BPAM > that I could have a look at ? PDS processing is not too hard in REXX. You can read the directory as a sequential dataset, and then allocate and open each member in turn. Or parse the output of LISTDS or one of the ISPF services. Tony H.
