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
 

 

IMS checkpoint logic.. can anyone clarify???

 
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:10 am    Post subject: IMS checkpoint logic.. can anyone clarify???
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

priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1452
Location: Chicago, IL

PostPosted: Sun Jan 01, 2006 11:25 am    Post subject: Re: IMS checkpoint logic.. can anyone clarify???
Reply with quote

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
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 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
No new posts Need a logic to validate the data in ... sandeep kumar302 COBOL Programming 17 Mon Feb 01, 2016 3:30 pm


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