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 |
What is mpp mode?
What is difference between concurrent image copy and online image copy?
What is meant by batch dl/i mode?
What does the Change Accum do?
Which command code can be used for backing up IMS database?
What is a key field in an IMS database?
What are common DLI functions?
Explain the maximum of key fields and search fields allowed in a segment?
What are the command codes and their purposes?
Which is the DL/I function used in CICS-IMS program? IBM
What is the difference between SIBLINGS and TWINS in IMS-DB database
What information does a dbd contain?