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.

Looking for mainframes IMS DB training @ 9912598882

3 Answers  

---

How we can see the Data in IMS Database?

2 Answers   HP,

---

Which is the DL/I function used in CICS-IMS program?

2 Answers   HP, IBM, IMS,

---

What is the physical nature of a database called?

2 Answers  

---

Explain the two ways in which dl/i interface can be invoked?

0 Answers  

---

Is it necessary that the key field in a Dl/I database be unique?

1 Answers  

---

What is ims (db/dc)?

0 Answers  

---

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

4 Answers  

---

What is the return code you get after a successful IMS call?

4 Answers  

---

What is a segment in ims?

0 Answers  

---

What for procopt is used? List some of them?

3 Answers   TCS, Wipro,

---

What are the retrieval sequences in ims db?

0 Answers  

---