View previous topic :: View next topic
|
Author |
Message |
ranesach
New User
Joined: 23 Jul 2009 Posts: 3 Location: India
|
|
|
|
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 |
|
|
bipinpeter
Active User
Joined: 18 Jun 2007 Posts: 213 Location: Cochin/Kerala/India
|
|
|
|
Hi,
Where you given the code to execute REPL command?
Regards,
Bipin Peter |
|
Back to top |
|
|
Sandy Zimmer
Active Member
Joined: 13 Jun 2007 Posts: 826 Location: Wilmington, DE
|
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hi Sandy,
Yup, this looks like a duplicate and is being locked to reduce clutter.
Thanks for the heads-up,
d |
|
Back to top |
|
|
|