Write the format of program starting from identification
division for checkpoint restart logic.
- 1 Answers
- 6915 Views
- I also Faced
- E-Mail Answers
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 |
How do you write a PSB code ?
What is Hierarchy Chart?
What are the path calls in imsdb?
What are the parameters used in CBLTDLI call?
What is a Hierarchy path?
What are the advantages and disadvantages of a hierarchical database?
What are all the possible inputs to the DB recovery utility?
Explain ims software environment?
What is the need of a secondary index in IMS?
What is dbms in ims?
what is the maximumm length of account information in job card of a jcl?
What is dbd?
COBOL 
