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 |
What are the parameters used in CBLTDLI call?
How many sgment types can u have in a DL/I database?
15. Secondary indexes can be used with following databases a. HSAM,HISAM,HIDAM b. HIDAM, HISAM c. HDAM, HISAM, HIDAM d. All the above
Is it necessary that the key field in a Dl/I database be unique?
Explain the advantage of dynamic generation of acb?
What are the path calls in imsdb?
What for procopt is used? List some of them?
What information does a dbd contain?
I have database, in that segment1 having dept code and segment 2 and so on multiple employees num. using dept & employee num we have to compare whether that employee belong to that dept or not, if that employee belongs to that dept then incentive is same same as in the table or else incentive must be zero? using IMS & cobol
Define DBD?
what is the maximumm length of account information in job card of a jcl?
What is acbgen process?