Modify the previous inquiry function to inquiry, addition and deletion of records in the file.
Files Involved
Physical file CUSMST (customer master file)
RDML Program
GROUP_BY   NAME(#CUSTADD)  FIELDS(#CUSTNO #NAME #ADDL1      
 
END_LOOP
 
Points to Note:

• The function supports display, add, maintain and delete of records from the file.
• Another strategy would be to use two separate functions and use the TRANSFER command to transfer control between them.