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 |
which is the first statement in COBOL-IMS programs?
What is batch dl/i mode?
What type of pointers should you specify on the root segment of a HIDAM DB to improve sequential processing?
What is mpp mode?
Which DB access method (OSAM or VSAM) is used for primary index or secondary index and why?
Is it necessary that all the segments in a Dl/i database have key fields ?
Explain the advantage of dynamic generation of acb?
What does the Change Accum do?
What are the ways to mapping external control block? a. ENTRY b. PROCEDURE DIVISION USING c. CALL ‘DLITCBL’ d. ALL ABOVE e. A & B
What is the difference between HDAM & HIDAM DB types and when would you use each?
What do you know about DBD gen?
What is the disadvantage of dynamic generation of acb?