Function ADD - To Add New Records to CUSMST
GROUP_BY NAME(#CUSTOMER) FIELDS(#CUSTNO #NAME #ADDL1
#ADDL2 #ADDL3)
BEGIN_LOOP
REQUEST FIELDS(#CUSTOMER) EXIT_KEY(*YES *EXIT)
MENU_KEY(*YES *MENU)
INSERT FIELDS(#CUSTOMER) TO_FILE(CUSMST)
VAL_ERROR(*LASTDIS)
END_LOOP
Function MAINT - To Display / Maintain CUSMST Records
GROUP_BY NAME(#CUSTOMER) FIELDS((#CUSTNO *NOCHG) #NAME
#ADDL1 #ADDL2 #ADDL3)
BEGIN_LOOP
SET_MODE TO(*DISPLAY)
REQUEST FIELD(#CUSTNO) ADD_KEY(*YES)
IF_MODE IS(*ADD)
TRANSFER TOFUNCTION(ADD) EXCHANGE(#CUSTNO)
ENDIF
FETCH FIELDS(#CUSTOMER) FROM_FILE(CUSMST)
WITH_KEY(#CUSTNO)
IF_STATUS IS(*OKAY)
DISPLAY FIELDS(#CUSTOMER) CHANGE_KEY(*YES)
DELETE_KEY(*YES)
IF_MODE IS(*CHANGE)
UPDATE FIELDS(#CUSTOMER) IN_FILE(CUSMST)
VAL_ERROR(*LASTDIS)
ENDIF
IF_MODE IS(*DELETE)
DELETE FROM_FILE(CUSMST) VAL_ERROR(*LASTDIS)
ENDIF
ELSE
MESSAGE MSGTXT('No customer exists with this number')
ENDIF
END_LOOP