
XL [2] PRODUCT> copy to wref2mis for a->code = '   ' .and. substr(http,38,1) = '.' .and. 'WREF2/' $ UPPER(HTTP)
F:\WREF2\WREF2MIS.DBF  already exists.  Overwrite file ? Yes

No Records copied.
XL [2] PRODUCT> use f:\stock\lg\product
XL [2] PRODUCT> set relation to substr(http,33,6) into wref2
XL [2] PRODUCT> copy to wref2m2 for a->code = '   ' .and. substr(http,39,1) = '.' .and. 'WREF2/' $ UPPER(HTTP)

      3 Records copied.
XL [2] PRODUCT> use f:\stock\lg\product
XL [2] PRODUCT> set relation to substr(http,33,7) into wref2
XL [2] PRODUCT> copy to wref2m3 for a->code = '   ' .and. substr(http,40,1) = '.' .and. 'WREF2/' $ UPPER(HTTP)

    146 Records copied.
XL [2] PRODUCT> SELECT C
XL [3] > USE WREF2MIS
XL [3] WREF2MIS> APPEND FROM WREFM2

                             ^
OOPS: File does not exist:  WREFM2.DBF
XL [3] WREF2MIS> APPEND FROM WREF22

                             ^
OOPS: File does not exist:  WREF22.DBF
XL [3] WREF2MIS> APPEND FROM WREF2M2

      3 Records appended.
XL [3] WREF2MIS> APPEND FROM WREF2M3

    146 Records appended.
XL [3] WREF2MIS> BROW
XL [3] WREF2MIS> LOCATE FOR '*' $ CODE
End of LOCATE scope.
XL [3] WREF2MIS> REPLACE ALL CODE WITH 'CR'+SUBSTR(CODE,3) FOR '/CR' $ UPPER(HTTP) .AND. '*' $ CODE

No Records replaced.
XL [3] WREF2MIS> INDEX ON CODE TO WREF2MIS

100% indexed.      149 Records indexed.
XL [3] WREF2MIS> BROW
XL [3] WREF2MIS> SET FIELDS TO CODE,DESC,STATUS,QTY
XL [3] WREF2MIS> BROW
XL [3] WREF2MIS> SELECT B
XL [2] PRODUCT> use f:\stock\lg\product
XL [2] PRODUCT> set relation to substr(http,33,6) into wref2
XL [2] PRODUCT> copy to TEMP for a->code = '   ' .and. substr(http,39,1) = '.' .and. 'WREF2/' $ UPPER(HTTP)

      3 Records copied.
XL [2] PRODUCT> USE TEMP
XL [2] TEMP> BROW
XL [2] TEMP> ? HTTP
www.harvestproducts.com.au/wref2/LF035.htm                  
XL [2] TEMP> use f:\stock\lg\product
XL [2] PRODUCT> set relation to substr(http,34,5) into wref2
XL [2] PRODUCT> ? substr(http,34,5)
     
XL [2] PRODUCT> LOCATE FOR HTTP # '   ' .AND. WREF2 $ UPPER(HTTP)
                                              ^
OOPS: Variable undefined:  WREF2
XL [2] PRODUCT> LOCATE FOR HTTP # '   ' .AND. 'WREF2' $ UPPER(HTTP)
Record = 1130
XL [2] PRODUCT> ? substr(http,34,5)
CR103
XL [2] PRODUCT> ? substr(http,34,6)
CR1031
XL [2] PRODUCT> ? substr(http,34,7)
CR1031.
XL [2] PRODUCT> ? substr(http,33,7)
/CR1031
XL [2] PRODUCT> set relation to substr(http,34,5) into wref2
XL [2] PRODUCT> copy to WREF2MIS for a->code = '   ' .and. substr(http,39,1) = '.' .and. 'WREF2/' $ UPPER(HTTP)
F:\WREF2\WREF2MIS.DBF  already exists.  Overwrite file ? Yes
                                                                                   ^
OOPS: File currently open:  F:\WREF2\WREF2MIS.DBF
XL [2] PRODUCT> SELECT C
XL [3] WREF2MIS> USE
XL [3] > SELECT B
XL [2] PRODUCT> copy to WREF2MIS for a->code = '   ' .and. substr(http,39,1) = '.' .and. 'WREF2/' $ UPPER(HTTP)
F:\WREF2\WREF2MIS.DBF  already exists.  Overwrite file ? Yes

No Records copied.
XL [2] PRODUCT> LOCATE FOR LEN(TRIM(CODE)) = 5 .AND. 'WREF2' $ UPPER(HTTP)
Record = 32939
XL [2] PRODUCT> ? SUBSTR(HTTP,39,1)
.
XL [2] PRODUCT> use f:\stock\lg\product
XL [2] PRODUCT> set relation to substr(http,34,6) into wref2
XL [2] PRODUCT> copy to WREF2M2 for a->code = '   ' .and. substr(http,40,1) = '.' .and. 'WREF2/' $ UPPER(HTTP)
F:\WREF2\WREF2M2.DBF  already exists.  Overwrite file ? Yes

      3 Records copied.
XL [2] PRODUCT> use f:\stock\lg\product
XL [2] PRODUCT> set relation to substr(http,34,7) into wref2
XL [2] PRODUCT> copy to WREF2M3 for a->code = '   ' .and. substr(http,41,1) = '.' .and. 'WREF2/' $ UPPER(HTTP)
F:\WREF2\WREF2M3.DBF  already exists.  Overwrite file ? Yes

    515 Records copied.
XL [2] PRODUCT> SELECT C
XL [3] > USE WREF2MIS
XL [3] WREF2MIS> ZAP
Zap F:\WREF2\WREF2MIS.DBF ? Yes
XL [3] WREF2MIS> APPEND FROM WREF2M2

      3 Records appended.
XL [3] WREF2MIS> APPEND FROM WREF2M3

    515 Records appended.
XL [3] WREF2MIS> COUNT FOR '*' $ CODE

No Records counted.
XL [3] WREF2MIS> INDEX ON CODE TO TEMP

100% indexed.      518 Records indexed.
XL [3] WREF2MIS> BROW
XL [3] WREF2MIS> SELECT B
XL [2] PRODUCT> use f:\stock\lg\product
XL [2] PRODUCT> set relation to substr(http,34,7) into wref2
XL [2] PRODUCT> LOCATE FOR CODE = 'CRBL374'
Record = 33246
XL [2] PRODUCT> ? HTTP
www.harvestproducts.com.au/wref2/CRBL374.htm                
XL [2] PRODUCT> copy to WREF2M3 for a->code = '   ' .and. substr(http,41,1) = '.' .and. 'WREF2/' $ UPPER(HTTP
OOPS: Unbalanced parentheses.
XL [2] PRODUCT> ? SUBSTR(HTTP,41,1)
.
XL [2] PRODUCT> ? A->CODE
               
XL [2] PRODUCT> SELECT A
XL [1] WREF2> BROW
XL [1] WREF2> SELECT F
XL [6] > USE F:\WREF\WREF
XL [6] WREF> INDEX ON CODE TO TEMP
F:\WREF2\TEMP.NDX  already exists.  Overwrite file ? Yes
                              ^
OOPS: File currently open:  F:\WREF2\TEMP.NDX
XL [6] WREF> INDEX ON CODE TO TEMP2

100% indexed.     2320 Records indexed.
XL [6] WREF> BROW
XL [6] WREF> QUIT