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 |
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
can u tell me and give me an example : how to code a program checkpoint , restart, and tell me when and where i have to run 2 programs...Thanks
Define psb?
What is the advantage of creating the acbs well ahead of time?
What are the valid recovery points?
What are common status codes that you come across?
What is dbms in ims?
What are all the possible inputs to the DB recovery utility?
How to write the PCB code ? if in thic PCB i have 3 PSB ?
what are the control blocks in IMS ?
My IMS main progam is calling Db2 subroutine ...Its giving - 923 db2 sql code..so could any one tell how to solve this issue.
What is a Segment type?