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 pcbs allowed in a psb?
What are the objectives of dbms in ims?
how do you bind the cobol with db2
Define dl/i?
Define psb?
What is a segment in ims?
What is batch dl/i mode?
Explain the advantage of dynamic generation of acb?
Explain psbgen process?
Explain the disadvantage of dynamic generation of acb?
Explain the advantage of creating the acbs well ahead of time?
What are the disadvantages of a hierarchical database?
What is psb?
What is dl/i?
What are the advantages and disadvantages of a hierarchical database?