*縣市前置碼由客戶輸入
SELECT CUSTOMER
GO TOP
C_AUTONUM.BROWSE()
DO WHILE !EOF()
SELECT C_AUTONUM
SEEK SUBS(CUSTOMER->ADDRESS1,1.6)
IF EOF()
APPEND BLANK
REPL C_NO WITH SUBS(CUSTOMER->CUST_CODE,1,2)
REPL CITY WITH SUBS(CUSTOMER->ADDRESS1,1.6)
POST
ENDIF
SELECT CUSTOMER
SKIP
ENDDO