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


Please Help Members By Posting Answers For Below Questions

What is the maximum number of pcbs allowed in a psb?

556


What are the objectives of dbms in ims?

663


how do you bind the cobol with db2

2326


Define dl/i?

3134


Define psb?

577






What is a segment in ims?

590


What is batch dl/i mode?

2900


Explain the advantage of dynamic generation of acb?

2815


Explain psbgen process?

721


Explain the disadvantage of dynamic generation of acb?

553


Explain the advantage of creating the acbs well ahead of time?

3145


What are the disadvantages of a hierarchical database?

2776


What is psb?

637


What is dl/i?

594


What are the advantages and disadvantages of a hierarchical database?

635