Hi Fish,
Could you also sprinkle some more #MSG at some key places too?
This would only minimally be helpful, because if any abend occurs later, again the last message won't be displayed.? Instead of sprinkling more #MSG macros around, use WTO.? Its super simple:? the format is WTO? 'message text here'
?
For example:
??????????? WTO??? 'Arrived at label process_vtoc'
Just change the message text as needed.? You can put as many of these in as you like, although if you were to get super crazy with them you could blow a base register and cause assembly problems.
?
I'm having a hard time following the code in just source form, but I don't like what I'm seeing. ?I'm seeing a lot of STORAGE OBTAIN calls, but I can't see where any of them are being testing for actual success or failure.
?
I agree that there seems to be many more STORAGE OBTAIN than RELEASE calls, but without following the flow completely it is hard to say whether all of the OBTAINs are released, though it sure looks like they are not.? In any case, it really doesn't matter.? These are unconditional OBTAINs, so if the system cannot acquire the storage for you, the program will abend with a system abend code (not a user U0099).? Since that is not occurring, I wouldn't worry about storage.
?
(I sure wish I could figure out how to get this thing on my own system so I could play around with it!)
I can't think of a good way to help you get the code into your system if you don't know how to use the system.? You need to have a basic knowledge of how to logon, to use ISPF, access datasets, submit jobs and view output.? 3270 file-transfer would be the easiest way, but that also depends on your 3270 emulator.? I could put the CCKDDU64 source and JCL on a tape image and send it to you, but you would still need to know how to run a job to load the tape.? I could put it in a small dataset on a small 3390 volume and you could bring that online via your Hercules config, but with this method and all of the above you would still need to be able to use ISPF to access it, modify it, submit it, and do typical programming/debugging with it.? Further, using a foreign 3390 volume would likely cause RACF security access issues to gain access to that dataset, and RACF is an area that I have struggled with long ago.? I dont have any way to assemble and execute this code in its proper environment, so I am limited to just looking at the code.
?
Regards,
Bob
?
?
