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
