Our team doesn’t have a tool to access/update an ADABAS file. So every time we need to view the records of an ADABAS file or update even a single record, we write a new ADHOC Natural program.
So I am trying to create an online screen to access a ADABAS file dynamically.
I just tried the below as a start to access ADABAS file dynamically.
RESET #A (A30) #B (A30) #C (A30)
MOVE ‘DATABASE-FILE’ TO #A
MOVE ‘DATABASE-FIELD’ TO #B
COMPRESS ‘READ’ #A INTO #C
INCLUDE DYN-PGM ‘#C’ ‘#B’
I am expecting the code in copy code to work as below
I am not sure why it doesn’t work. Could you please let me know your comments.
Also please let me know if there is anyother way of creating this tool.