Write the format of program starting from identification
division for checkpoint restart logic.
Answer Posted / 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 View All Answers
Explain the maximum number of segment types allowed for a single database?
What is the advantage of dynamic generation of acb?
What is the maximum number of segment types allowed for a single database?
Portfolio analysis application is an example of?
What is meant by mpp mode?
What are the processing modes available in ims db?
What are the two ways in which dl/i interface can be invoked?
Explain ims software environment?
What is dbms in ims?
What is dl/i?
What is the disadvantage of dynamic generation of acb?
What is the need for a secondary index in ims?
Explain the maximum number of levels allowed in ims db?
What are the retrieval sequences in ims db?
What is bmp mode?