|
View previous topic :: View next topic
|
| Author |
Message |
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..?? |
|
| Back to top |
|
 |
priyesh.agrawal
Senior Member
Joined: 28 Mar 2005
Posts: 1448
Location: Chicago, IL
|
|
|
|
salar,
| Quote: |
| My doubt here is that WHAT DOES THE CHECKPOINT ACTUALLY DO?? |
Checkpoint commits the last transactions made to the database.
| Quote: |
| does it commit to the database or to the IMS system.?? |
Whats the difference in both. IMS is a database only.
| Quote: |
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..?? |
PERFORM 9790-CHECK-FOR-IMS-ERROR THRU 9790-CFIE-EXIT
what does this do ?
Regards,
Priyesh. |
|
| Back to top |
|
|
|
|
