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
What is the maximum number of segment types allowed for a single database?
What are the disadvantages of a hierarchical database?
What is the disadvantage of dynamic generation of acb?
What are the retrieval sequences in ims db?
What is meant by mpp mode?
What is dbd?
What are the two ways in which dl/i interface can be invoked?
What is psb?
What is ims (db/dc)?
What do you mean by hierarchical database?
Explain the disadvantage of dynamic generation of acb?
What is bmp mode?
What is acbgen process?
Explain acbgen process?
What are the processing modes available in ims db?