0010 BEGIN
0020 CALL "SYCHAN","AQWK01",A,T$,A$
0030 CALL "SYCHAN","ONOD01",O,T$,O$
0040 PRINT 'CS',@(5,21),"This program will find records in AQWK01 (the queue detail file) and ",@(5,22),"determine if the store number is blank.  If so, it will be updated from",@(5,23),"the store on the order.  Press [ENTER] to begin: ",; INPUT *
0050 READ RECORD(A,END=0200)A$
0060 IF CVS(A.STORE_NUMBER$,3)<>"" THEN GOTO 0050
0070 DIM O$:FATTR(O$); READ RECORD(O,KEY=A.ORDER_NUMBER$,DOM=0071)O$
0080 IF CVS(O.TO_STORE$,3)="" THEN LET O.TO_STORE$="999"
0090 LET A.STORE_NUMBER$=O.TO_STORE$
0100 LET I=I+1
0110 LET A$=FIELD(A$)
0120 WRITE RECORD(A)A$
0130 GOTO 0050
0200 IF I THEN IF I>1 THEN LET X$=STR(I)+" records were updated.  " ELSE LET X$="1 record was updated.  " ELSE LET X$="All records had a store number.  "
0205 LET X$=X$+"Press [ENTER] to run the menu. "
0210 PRINT @(0,20),'CE',X$,; INPUT *
0220 RUN "MENU"