Write the format of program starting from identification
division for checkpoint restart logic.



Write the format of program starting from identification division for checkpoint restart logic...

Answer / sandeep_1985

WORKING STORAGE DIVISION

01 FUNCTION-CODE.
10 XRST PIC X(4) VALUE 'XRST'.
10 CHKP PIC X(4) VALUE 'CHKP'.

01 IO-AREA PIC X(1000).

01 RESTART-WORKAREA.
05 CHKP-ID.
10 CHKP-PREFIX PIC X(4) VALUE 'TEST'.
10 CHKP-CNTR PIC 9(4).

01 SAVEAREA-LENGTH PIC S9(4) COMP VALUE 13.

01 SAVEAREA.
10 SAVE-KEY PIC X(13).

01 PARM-COUNT PIC S9(4) COMP.

LINKAGE SECTION

01 IO-PCB X(40).

Procedure Division:

For Checkpointing

CALL CBLDLI USING PARM-COUNT,
CHKP,
IO-PCB,
IO-AREA,
CHKP-ID,
SAVEAREA-LENGTH,
SAVEAREA

For Restart

CALL CBLDLI USING PARM-COUNT,
XRST,
IO-PCB,
IO-AREA,
RESTART-WORKAREA,
SAVEAREA-LENGTH,
SAVEAREA

Note : You can have maximum of 15 Save areas declared in
Restart or Checkpointing call.

Is This Answer Correct ?    8 Yes 1 No

Post New Answer

More IMS Interview Questions

I have database, in that segment1 having dept code and segment 2 and so on multiple employees num. using dept & employee num we have to compare whether that employee belong to that dept or not, if that employee belongs to that dept then incentive is same same as in the table or else incentive must be zero? using IMS & cobol

1 Answers   IBM,


can u tell me and give me an example : how to code a program checkpoint , restart, and tell me when and where i have to run 2 programs...Thanks

1 Answers  


Define psb?

0 Answers  


What is the advantage of creating the acbs well ahead of time?

0 Answers  


What are the valid recovery points?

1 Answers  






What are common status codes that you come across?

4 Answers   Satyam,


What is dbms in ims?

0 Answers  


What are all the possible inputs to the DB recovery utility?

1 Answers  


How to write the PCB code ? if in thic PCB i have 3 PSB ?

4 Answers  


what are the control blocks in IMS ?

3 Answers  


My IMS main progam is calling Db2 subroutine ...Its giving - 923 db2 sql code..so could any one tell how to solve this issue.

0 Answers   Cap Gemini,


What is a Segment type?

2 Answers  


Categories