Write the format of program starting from identification
division for checkpoint restart logic.



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

Post New Answer

More IMS Interview Questions

How does one reorg an HDAM IMS database when changing RAPS (Root Anchor Points)?

2 Answers  


how do you bind the cobol with db2

0 Answers   Fidelity,


What is meant by mpp mode?

0 Answers  


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

0 Answers  


I have PCB with structure: PCB TYPE=DB, C DBDNAME=EMPCADBD, C KEYLEN=18, C PROCOPT=LS SENSEG NAME=EMPLOYEE, C PARENT=0 SENSEG NAME=COMPDTL, C PARENT=EMPLOYEE SENSEG NAME=BANKDTL, C PARENT=COMPDTL SENSEG NAME=SALDTLS, C PARENT=BANKDTL SENSEG NAME=EDUCDATA, C PARENT=EMPLOYEE SENSEG NAME=EMERDETL, C PARENT=EDUCDATA SENSEG NAME=ADDRESS, C PARENT=EMPLOYEE ************************************************************ *********** PSBGEN PSBNAME=PSBCALDP,LANG=COBOL END Requirement is to Create a report based on Salary brackets. ( Use SSA’s for logic) · It should have CTCGROSS brackets and No of employees o Employee names falling in each bracket Salary < 100,000 No of Employees Employee-Name Level 100,000 < Salary < 300,000 No of Employees Employee-Name Level 300,000 < Salary No of Employees Employee-Name Level

1 Answers   Accenture,


I found some good questions/answers regarding IMS here:

0 Answers  


What is secondary indexing?

4 Answers  


How can we distinguish between an online and batch program in IMS environment?

14 Answers   Wipro,


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

2 Answers  


What for procopt is used? List some of them?

3 Answers   TCS, Wipro,


What is a Root?

3 Answers  


What is the limitation on the no. of levels in a DL/I database?

2 Answers  


Categories