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.