Page History
[ 
|../../index.htm#lansa/l4wdev05_0235.htm]
現在地:
...
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
...