On 29 September 2010 20:11, Tony Harminc <[email protected]> wrote: > 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. > [snip] > > 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. >
It gets even easier if your REXX runs as an ISPF application. It can then use the ISPF LMxxxx services to make reading a PDS really simple. BTW, when you assemble an IMS DBD, the IMS macros put a sample IDCAMS definition in the assembler sysprint - it may be easier to use that as input to your REXX program and generate the PDS that way. Again the ISPF LMxxxx services make that very simple. You may want to take this discussion to IMS-L ([email protected]) where the IMS folk (including me) hang out. -- http://twitter.com/DougieLawson http://facebook.com/DougietheIMSman
