Can not insert new record into VSAM file

iamyinhe · New User Joined: 27 Apr 2006 Posts: 7

I have a program to insert new record into VSAM file. After program completed without any Natural error message, i can not find the new record in that file.

I call "WMLOG" to write the maintenance log and I confirm program WMLOG completed successfully, does it mean the STORE statement completed successfully?

FOR #INDEX 1 TO 12
IF #SCR-AAAA(#INDEX) NE ' '
FIND TABLE1-V WITH AAAA EQ #SCR-AAAA(#INDEX)
IF NO RECORD FOUND
AAAA := #SCR-AAAA(#INDEX)
STORE TABLE1-V
ESCAPE BOTTOM
END-NOREC
END-FIND
#PARA-REC-TYPE := 'AD-AAAA'
#PARA-PGM-ID := *PROGRAM
#PARA-USER-ID := *USER
CALLNAT 'WMLOG' #PARA-M-LOG /*write maintenance log
END-IF
END-FOR

ofer71 · Posted: Wed Feb 27, 2008 11:41 am

1. I don't see END TRANSACTION anywhere.
2. Have you tried to run it with debugger (TEST ON)?
3. Have you tried to run it with database log (DBLOG ON)?

O.

iamyinhe · New User Joined: 27 Apr 2006 Posts: 7

ofer71 · Posted: Wed Feb 27, 2008 5:43 pm

There could be a lot of reasons for the record not to be stored, therefor debug tools are a great solutions in those cases. As I already noted, the DBLOG tool should be your first shot, as it logs database activities.

END TRANSACTION is Software AG's equivalent to COOMIT. Usually, without END TRANSACTION, any changes to the database are not written. Exceptions might be under CICS, where implicit SYNCPOINT is issued after input or with some installations that define an automatic ET (END TRANSACTION) at the end of each session.

O.