I have been struggling to get this resolved and am hoping someone has been there and done that.
We are going from V9.0 to V9.5, using the ODSXUPDZ in V9.0 is working just fine with the ARS.RSADUPDT exit.
I compiled the ARSUUPDC using the supplied ARSUUPDJ JCL and deployed to the /bin/exits
I made minor changes to ARSUUPDC to display/debug some info and update a value to confirm it passes the updates out to the MVS exit RSA.ARSUUPDT.
ARSUUPDC - in OMVS
working storage
copy arsuupda.
…
call ARSZUXPL-MODFCNP using by reference ARSUUPDA
returning rc
My understanding is this call to ARSZUXPL-MODFCNP triggers the MVS exit RSA.ARSUUPDT
ODSXUPDZ - MVS
Linkage Section.
copy ARSUUPDA.
…
Procedure Division using
by reference ARSUUPDA.
The logging/debug of the MVS exit shows that the ARSUUPDA values are received and then updated successfully.
However the OMVS Exit ARSUUPDA logging/debug shows it doesn’t see the values modified by MVS exit.
In MVS – Display the results
Code
String ' ARSUUPDA-UPDATE = ' Pic-X8-2-98
' / X''' Pic-X200(1:
''''
delimited by size into SYSOUTZ-DATA.
Results
ARSUUPDA-UPDATE = 00000001 / X'00000001'
In OMVS
Display "UPDATE Value: " ARSUUPDA-UPDATE upon syspunch
Results
UPDATE Value: 000000000 UPDTEXIT
Is there some other step I need to turn on to ensure the values are read correctly in ARSUUPDC after ODSXUPDZ.
I will admit I am not an experienced COBOL programmer so if there is something you think might help, please suggest anything
