4.3.4 Modifying the Simple Inquiry to Do It All

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.