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.

What is dbd?

0 Answers  

---

How man key fields and search fields can a segment have?

2 Answers  

---

What is the maximum of key fields and search fields allowed in a segment?

0 Answers  

---

What is the advantage of creating the acbs well ahead of time?

0 Answers  

---

In the RECON, what always sets the IC NEEDED flag on for a registered DB?

3 Answers  

---

What is Hierarchy Chart?

1 Answers   IBM,

---

Explain dbdgen process?

0 Answers  

---

how do you bind the cobol with db2

0 Answers   Fidelity,

---

Static & Dynamic PSB

2 Answers   IBM,

---

DLI Vs BMP

13 Answers   CTS, IBM,

---

What are the objectives of dbms in ims?

0 Answers  

---

How many sgment types can u have in a DL/I database?

4 Answers  

---