Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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 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
No new posts Need points to tune IMS Checkpoint Pr... satish.ms10 IMS DB/DC 2 Fri Sep 30, 2016 4:12 pm
No new posts Wildcard logic in COBOL dudenithy COBOL Programming 13 Thu Sep 01, 2016 7:36 pm
No new posts Sort Logic to extract data scorp_rahul23 DFSORT/ICETOOL 13 Tue Mar 01, 2016 1:22 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us