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
IF VFINA030-STATUS-CODE = SPACE
*** Code that is calling the VIN master for replacing the VIN – REPL
CALL 'CBLTDLI' USING REPL
*** 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.