>>>* 08.26.2009 df. Fix the date fields. >>>IF USED('tcprsys') >>> SELECT tcprsys >>> USE >>>ENDIF >>>SELECT * , ; >>> SUBSTR(DTOC(s_weekend),7,4) + SUBSTR(DTOC(s_weekend),1,2) + SUBSTR(DTOC(s_weekend),4,2) as weekend, ; >>> SUBSTR(DTOC(s_chk_date),7,4) + SUBSTR(DTOC(s_chk_date),1,2) + SUBSTR(DTOC(s_chk_date),4,2) as chkdate ; >>> FROM prsys INTO CURSOR tcprsys readwrite >>> >>>SELECT tcprsys >>>COPY TO (ALLTRIM((pathtxt) + "dnsys" + (gc_accno) + ".DAT")) ; >>> FIELDS s_co_code, s_payperio, WEEKEND, ; >>> s_city, s_state, s_zip, s_owner, CHKDATE ; >>> FOR (gc_accno = s_co_code) ; >>> TYPE DELIMITED >>> >>>>>
>>>>SET DATE YMD >>>>SET MARK TO "|" && A character that is not presented in the data >>>> >>>>COPY TO (lcFileName) DELIMITED >>>>STRTOFILE(CHRTRAN(FILETOSTR(lcFileName), "|", ""), lcFileName) >>>>SET MARK TO >>>>* Restore SET DATE >>>>... >>>>>>>>