Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Doubt in IMS checkpoint logic..

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
salar

New User


Joined: 20 Sep 2005
Posts: 4

PostPosted: Tue Dec 20, 2005 10:04 am    Post subject: Doubt in IMS checkpoint logic..
Reply with quote

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
View user's profile Send private message

iknow

Active User


Joined: 22 Aug 2005
Posts: 413
Location: Colarado, US

PostPosted: Tue Dec 20, 2005 11:48 am    Post subject: Re: Doubt in IMS checkpoint logic..
Reply with quote

Hi Salar,

Please stick to our forum rules. Post your queries under the concern section.
Back to top
View user's profile Send private message
raghunathns

Active User


Joined: 08 Dec 2005
Posts: 127
Location: rochester

PostPosted: Tue Dec 20, 2005 7:57 pm    Post subject: Doubt in IMS checkpoint logic
Reply with quote

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.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Removing the period or dot from the v... gopinak COBOL Programming 6 Wed May 09, 2018 1:53 pm
No new posts Logic to skip Maximum time-stamp and ... vickey_dw DB2 2 Thu Feb 01, 2018 11:15 pm
No new posts Is CICS BMS logic on z/OS different ... Andi1982 CICS 2 Fri Dec 01, 2017 1:56 pm
No new posts Need help in building a logic Benchwarmer All Other Mainframe Topics 4 Wed Feb 22, 2017 2:49 am
No new posts Doubt in MFS abdulrafi IMS DB/DC 2 Fri Oct 21, 2016 3:09 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us