ADABAS File data reverteing back to original after session Logoff

, ,
1

I am able to update ADABAS File successfully using Natural program, but after logging off and logging back to Natural session, all changes are reverted back.

FIND HLP-TABLE-F-V1 WITH HELP-FOR-MAPID = ‘PMMPCCC’
IF HELP-FOR-MAPID = ‘PMMPCCC’
ASSIGN #I := 28
IF HELP-CURSOR-LOC(#I) = 014020
ASSIGN HELP-PROGID(#I) := ’ ’
UPDATE(0120)
DISPLAY ‘UPDATED SUCCESSFULLY’
END-IF
END-IF
END-FIND

This is the piece of code used to update the filed with spaces.
Can anyone help me out why the changes are reverted back after logoff from Natural session.

2

You’re missing an END TRANSACTION statement that could be placed right before the END statement.

You are performing the UPDATE but without the ET, your update is being backed out.

3

Depending on the setting of the ETEOP profile parameter, though.

ETEOP=ON will cause an implicit ET at the end of the program.

4

Thanks Brian for the solution, it worked.

Thanks Wolf, I checked the parm and its OFF. Yes, for our Development environment we updated this to avoid including ET implicitly for Natural programs.