Update. let me show you the code:
SELECT SEQUENCE AS RECORDID,;
LEFT(BARCODE,11) AS POSTNET,;
CODECHAR AS IMB,;
SOURCECODE,;
'' AS GREETINS,;
NAME_FIRST AS FIRSTNAME,;
'' AS MIDDLENAME,;
NAME_LAST AS LASTNAME,;
'' AS SUFFIX,;
MAILNAME AS FULLNAME,;
'' AS TITLE,;
'' AS COMPANY,;
ADDRESS1 AS STREET,;
ADDRESS2,;
'' AS ADDRESS3,;
CITY,;
STATE,;
ZIPCODE AS ZIP,;
'' AS COUNTRY,;
'' AS EMAIL,;
'' AS PHONE,;
STRTRAN(ALLTR(JUSTSTEM(LCTMPDATAFILE)),'PS','') AS UDF01_SUMMARYFIELD,;
'' AS UDF02_SUMMARYFIELD,;
'' AS UDF03_SUMMARYFIELD,;
'' AS UDF04_IDENTIFIER,;
'' AS UDF05_IDENTIFIER,;
'' AS INDUCTIONPOINT,;
'' AS INDUCTIONDATE,;
'' AS SEEDINDICATOR,;
'' AS SPLITIDENTIFIER;
FROM (LCTMPDATAFILE) INTO CURSOR TEMP_SNAIL READWRITE
SELECT SEQUENCE AS SEQUENCE,;
LEFT(BARCODE,11) AS POSTNET,;
CODECHAR AS IMB,;
SOURCECODE,;
'' AS SALUTATION,;
NAME_FIRST AS NAME_FIRST,;
'' AS NAME_MID,;
NAME_LAST AS NAME_LAST,;
'' AS SUFFIX,;
MAILNAME AS FULLNAME,;
'' AS TITLE,;
'' AS COMPANY,;
ADDRESS1 AS ADDRESS1,;
ADDRESS2 AS ADDRESS2,;
'' AS ADDRESS3,;
CITY,;
STATE,;
ZIPCODE AS ZIPCODE,;
STRTRAN(ALLTR(JUSTSTEM(LCTMPDATAFILE)),'PS','') AS VERSION;
FROM (LCTMPDATAFILE) INTO CURSOR TEMP_DMTWO READWRITE
SELECT TEMP_DMTWO
*!* SCAN
*!* DO CASE
*!* CASE LEN(ALLTR(POSTNET))= 10
*!* REPLACE POSTNET WITH LEFT(POSTNET,9)
*!* CASE LEN(ALLTR(POSTNET))= 6
*!* REPLACE POSTNET WITH LEFT(POSTNET,5)
*!* ENDCASE
*!* ENDSCAN
*!* REPLACE ALL FIRSTNAME WITH STRTRAN(ALLTR(FIRSTNAME),'"',''),;
*!* LASTNAME WITH STRTRAN(ALLTR(LASTNAME),'"',''),;
*!* FULLNAME WITH STRTRAN(ALLTR(FULLNAME),'"','')
SELECT TEMP_SNAIL
*!* SCAN
*!* DO CASE
*!* CASE LEN(ALLTR(POSTNET))= 10
*!* REPLACE POSTNET WITH LEFT(POSTNET,9)
*!* CASE LEN(ALLTR(POSTNET))= 6
*!* REPLACE POSTNET WITH LEFT(POSTNET,5)
*!* ENDCASE
*!* ENDSCAN
*!* REPLACE ALL FIRSTNAME WITH STRTRAN(ALLTR(FIRSTNAME),'"',''),;
*!* LASTNAME WITH STRTRAN(ALLTR(LASTNAME),'"',''),;
*!* FULLNAME WITH STRTRAN(ALLTR(FULLNAME),'"','')
SNAILFILE = STRTRAN(ALLTR(JUSTSTEM(LCTMPDATAFILE)),'PS','')
COPY TO 'O:\SNAILWORKS\' + (SNAILFILE) TYPE CSV
USE IN TEMP_SNAIL
RELEASE SNAILFILE
*!* ERASE TEMP_SNAIL.DBF
SELECT TEMP_DMTWO
DM2FILE = STRTRAN(ALLTR(JUSTSTEM(LCTMPDATAFILE)),'PS','')+".DM2"
COPY TO 'O:\DM2\' + (DM2FILE) TYPE CSV
USE IN TEMP_DMTWO
RELEASE DM2FILE
*!* ERASE TEMP_DMTWO.DBF
I commented out the lines above just to see, and the error went away. I don't understand why because the replace statements are minor and rare. I use them for continuity throughout the output files. the next time this arises I will compartmentalize each SQL select and process each separately then release them.
thanks for listening 8)
Fred Fattore