[ 
|../../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]