[ |../../index.htm#lansa/l4wdev05_0235.htm]
現在地:

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
[ |../../index.htm#lansa/l4wdev05_0235.htm]