4.3.4.1 ファンクションADD - 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