Interested to Buy Any Domain ? << Click Here >> for more details...
Write the format of program starting from identification
division for checkpoint restart logic.
- 1 Answers
- 7682 Views
- I also Faced
- E-Mail Answers
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 |
What is dbdgen process?
What are the ways to mapping external control block? a. ENTRY b. PROCEDURE DIVISION USING c. CALL ‘DLITCBL’ d. ALL ABOVE e. A & B
Explain dbdgen process?
Looking for mainframes IMS DB training @ 9912598882
What are common DLI functions?
What is the physical nature of a database called?
What is the maximum number of pcbs allowed in a psb?
What is a database record?
How does one reorg an HDAM IMS database when changing RAPS (Root Anchor Points)?
Explain psbgen process?
Which languages does ims support / application program languages?
What is the disadvantage of dynamic generation of acb?
COBOL 
