Doubt in IMS checkpoint logic..

salar · New User Joined: 20 Sep 2005 Posts: 4

I have the following code with me. PT3A,PT3E are tables.

2000-MAIN-PROCESS
PERFORM 2100-UPDATE-PT3A THRU 2100-EXIT
Updates table with input from a parmfile row-by-row.
PERFORM 2200-UPDATE-PT3B THRU 2200-EXIT
PERFORM 2300-UPDATE-PT3C THRU 2300-EXIT
PERFORM 2400-UPDATE-PT3D THRU 2400-EXIT
PERFORM 2500-UPDATE-PT3E THRU 2500-EXIT
PERFORM 8000-READ-INPUT-FILE THRU 8000-EXIT
PERFORM 9710-ISSUE-XPOINT THRU 9710-IX-EXIT

9710-ISSUE-XPOINT.

MOVE 'CHECKPOINT ' TO XW05-FUNC-NAME
CALL 'CBLTINT' USING WC-IMS-CHKPOINT
XA07
7-BGNNG-XPOINT-BOOKEND
7-ENDING-XPOINT-BOOKEND
7-BXB-NCKNQ.
MOVE XA07 TO XW05-XDBPCB.

2100-UPDATE-PT3A.
EXEC SQL
UPDATE TRST76.TBPT3A
SET TRUST_SECURITY_NBR = :IN-NEW-CUSIP-NO(from parm)
WHERE TRUST_SECURITY_NBR = :IN-OLD-CUSIP-NO(from parm)
END-EXEC.

8000-READ-INPUT-FILE.

MOVE 'GSAM1 - GN' TO XW05-FUNC-NAME
CALL 'CBLTINT' USING WC-IMS-GETNEXT
XB06
INPUT-RECORD.
MOVE XB06 TO XW05-XDBPCB
PERFORM 9790-CHECK-FOR-IMS-ERROR THRU 9790-CFIE-EXIT.
IF SUCCESSFUL-CALL = 'N'
MOVE 'Y' TO WS-INPUT-EOF-SW.

My doubt here is that WHAT DOES THE CHECKPOINT ACTUALLY DO?? . does it commit to the database or to the IMS system.??

What would happen if is give the commit in te following fashion.

2000-MAIN-PROCESS.
PERFORM 2100-UPDATE-PT3A THRU 2100-EXIT
PERFORM 2200-UPDATE-PT3B THRU 2200-EXIT
PERFORM 2300-UPDATE-PT3C THRU 2300-EXIT
PERFORM 2400-UPDATE-PT3D THRU 2400-EXIT
PERFORM 2500-UPDATE-PT3E THRU 2500-EXIT
PERFORM 9710-ISSUE-XPOINT THRU 9710-IX-EXIT
PERFORM 8000-READ-INPUT-FILE THRU 8000-EXIT

What would be the output in the above case..??

iknow

Hi Salar,

Please stick to our forum rules. Post your queries under the concern section.

raghunathns · Posted: Tue Dec 20, 2005 7:57 pm Post subject: Doubt in IMS checkpoint logic

hi,

check point is used to store some info required by the program to restart again if there is any error.

second time it retrieves that info and start processing again.

I dont think it is like commit.