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
 

 

The segment is not getting updated in IMS

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
ranesach

New User


Joined: 23 Jul 2009
Posts: 3
Location: India

PostPosted: Mon Sep 14, 2009 12:06 pm    Post subject: The segment is not getting updated in IMS
Reply with quote

We are facing some issues with a COBOL0-IMS Program and will really appreciate any pointers that can help us proceed further.



We are writing a Mainframe COBOL-IMS program that

- Reads records from Flat file having Vehicles data

- Searches a vehicle in a Vehicle master IMS segment

- Updates the Vehicle record in the IMS Segment



The problem we are facing is – “Program is getting executed successfully but the Vehicle IMS segment is not getting updated”



For IMS database access, we are using one of the existing PSBs having a PCB included for Vehicle Master Segment. We are not sure whether that can cause a problem and where we are supposed to create our own PSB every time when we have to do any UPDATES to an IMS segment.



Following is the Code Snippet:



SPFINVIN – Is the Vehicle Master IMS Segment Name

VFINA030-PCB - Is the existing PCB already created for some other existing production programs that also have SPFINVIN



*** Code that is calling the VIN master for Searching the VIN - GHU

CALL 'CBLTDLI' USING GHU

VFINA030-PCB

SPFINVIN

SSA-SPFINVIN



IF VFINA030-STATUS-CODE = SPACE

NEXT SENTENCE

ELSE

……

*** Code that is calling the VIN master for replacing the VIN – REPL

CALL 'CBLTDLI' USING REPL

VFINA030-PCB

SPFINVIN



*** Checkpoint code which is updating the VIN record. The REPL call is returning status code SPACE but the database is not reflecting the changes.

We could verify the segment name, processing option in REPL call using DISPLAY statements. The PROC OPTION for the call is A.



IF VFINA030-STATUS-CODE = SPACE

PERFORM Z9995-CKPT-INCREMENT THRU Z9995-EXIT

ADD 1 TO RECS-READ

VADOR-RECS-UPDATED

DISPLAY ' REPL STATUS ' VFINA030-STATUS-CODE

DISPLAY ' PROC OPTION' VFINA030-PROC-OPTS

DISPLAY ' SEG NAME' VFINA030-SEG-NAME-FB

ELSE

……….
Back to top
View user's profile Send private message

bipinpeter

Active User


Joined: 18 Jun 2007
Posts: 210
Location: Cochin/Kerala/India

PostPosted: Mon Sep 14, 2009 12:19 pm    Post subject:
Reply with quote

Hi,
Where you given the code to execute REPL command?

Regards,
Bipin Peter
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Mon Sep 14, 2009 5:05 pm    Post subject:
Reply with quote

Is this the same problem as this post?

http://ibmmainframes.com/viewtopic.php?t=43793
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Sep 14, 2009 8:20 pm    Post subject: Reply to: The segment is not getting updated in IMS
Reply with quote

Hi Sandy,

Yup, this looks like a duplicate and is being locked to reduce clutter.

Thanks for the heads-up,

d
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies.    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 When the table was last updated Akatsukami DB2 8 Mon Jul 20, 2015 11:13 am
No new posts Count the number of rows updated or d... Chetan Kumar DB2 6 Tue Jul 14, 2015 7:57 pm
No new posts Vsam file updated to RLS disabled aut... biswaranjan Parimanik JCL & VSAM 10 Fri May 01, 2015 12:43 pm
No new posts Deleting and Inserting an IMS Segment... mohammad amir ashraff IMS DB/DC 8 Thu Jun 06, 2013 3:03 pm
No new posts How to get Timestamp ,which the db2 g... cmsmoon DB2 10 Tue Feb 05, 2013 9:00 pm


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