*縣市前置碼由客戶輸入 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
