Not my code, and I'm not going to spend a lot of time looking, but if you are doing a catalog compare and cat.old & cat.new both are set to the same value, it seems to me that might be a problem.
Maybe Alastair will get wind of this thread and clear everything up. Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:[email protected] Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.com/ On Tue, 18 Sep 2012 15:31:51 -0500, Matthew Stitt <[email protected]> wrote: >I also added the following after Mark's addition: > >cat=cat.1 /* added by MSZ */ >cat.old = cat.1 /* added by MVS */ >cat.new = cat.1 /* added by MVS */ > >Then changed every DEF creation routine to use the "cat.new" variable instead >of cat. Also changed the DEL statement >creation routine to use the "cat.old" variable instead of "cat". There were >also some incorrect lengths (46 instead of 44) which >were corrected. > >Now both types of executions have the correct catalog names for the functions >desired. > >--------------------------------------------------------------------------------- >I don't see how this ever worked. At least the version I have (but never >used). >I have version 1.6.0 from 14/01/2004. Maybe Alastair broke it then but to me >it looks like it must have been broken since a compare function was added. > >Anyway, I think a simple fix for non compare processing is to add this one >line of code that has "MSZ" in the comments: > > >If (process = 'RCNVTCAT') Then /* Process as RCNVTCAT */ > Do /* */ > cat=cat.1 /* added by MSZ */ > count.id = 0 /* initialise count */ > > >I still use MCNVTCAT when I need it (which has been a long time). > >Regards, > >Mark > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
