Extended restart in IMS
Posted: Wed May 06, 2009 5:10 pm
HI,
This is subramanyam. I am trying to use a extended restart in ims-db program. When the program is running for the first time the XRST call is successful which is the first call in the program. After the program is getting abended, when i am giving the chkptid= last in the jcl as a parameter and restarting the job i am getting an abend U0102.
Here is the XRST call
CALL 'CBLTDLI' USING FUNC-XRST,
PCB0,
IOAREA-LEN,
XRST-WORKAREA,
CHKP-AREA1-LEN,
CHKP-AREA1.
Here is my check point call.
CALL 'CBLTDLI' USING FUNC-CHKP,
PCB0,
IOAREA-LEN,
CHKP-ID,
CHKP-AREA1-LEN,
CHKP-AREA1.
Please let me know on how to pass the check point while using extended restart. if you can paste any sample jcl that would be great.
Thanks in advance,
Subramanyam.
This is subramanyam. I am trying to use a extended restart in ims-db program. When the program is running for the first time the XRST call is successful which is the first call in the program. After the program is getting abended, when i am giving the chkptid= last in the jcl as a parameter and restarting the job i am getting an abend U0102.
Here is the XRST call
CALL 'CBLTDLI' USING FUNC-XRST,
PCB0,
IOAREA-LEN,
XRST-WORKAREA,
CHKP-AREA1-LEN,
CHKP-AREA1.
Here is my check point call.
CALL 'CBLTDLI' USING FUNC-CHKP,
PCB0,
IOAREA-LEN,
CHKP-ID,
CHKP-AREA1-LEN,
CHKP-AREA1.
Please let me know on how to pass the check point while using extended restart. if you can paste any sample jcl that would be great.
Thanks in advance,
Subramanyam.