It will run under TRACE. AFAIK, TRACE only impacts WHILEOPT, which has effect only on WHILE loop optimization.
Emmitt Dove Manager, Converting Applications Development Evergreen Packaging, Inc. [email protected] (203) 214-5683 m (203) 643-8022 o (203) 643-8086 f [email protected] From: [email protected] [mailto:[email protected]] On Behalf Of Michael J. Sinclair Sent: Monday, February 22, 2010 13:25 To: RBASE-L Mailing List Subject: [RBASE-L] - RE: Why won't this work during trace, but does work during RUN? Hi Emmitt! I will work with this code until I understand it. I see that it does use the LOAD command to load a table. Do you know whether or not it will work while being traced? My method, which is much less comprehensive works when I "RUN" it, but it fails to load any rows at all when I trace it. Does "TRACE" cause EEPS to run differently? Does WHILEPOPT have anything to do with it? Mike -------------- Original message from "Emmitt Dove" <[email protected]>: -------------- Mike, You asked “Is there a better way to load a list of filename from a folder into a table?” Here is a stored procedure that will take a file mask as an argument and return a table with the matching files in the specified location. It requires that you know what you’re looking for and where to find it, so it differs from the rbl approach as there is no user interface. It handles up to 128-character filenames, and preserves your database’s setting for SHORTNAME. You supply the mask, and the SP returns the count of matching files plus the temporary table holding the results. The calling code is responsible for dropping the temp table when it is finished with it. All the variables in the SP begin with ‘f’ and are cleared at the end; if your calling code wants to use variables that begin with ‘f’, you’ll have to do something about that. The SP will not work if the R:BASE version doesn’t support the SHORTNAME setting and will return 0. Each entry on the table will contain the file name, date, time in 24-hour format, and file size. --- ft128.prc based on file mask returns a temp table with matching --- files and the count of those files 9/29/2009 Emmitt Dove --- --- usage: SET VAR vfcount INTEGER = (CALL ft128(.vfmask)) --- --- where vfmask is the filename mask to use. vfmask may include the --- full path to the files, otherwise the current folder is assumed --- to create the stored procedure do this: --- --- PUT ft128.prc AS ft128 fmask TEXT (200) RETURN INTEGER + --- COMMENT 'Load table filen128 from specified mask' --- --- filename mask will be in variable fmask --- returns a count of the number of files in the temporary table --- note: the calling code is responsible for dropping the temporary table -- want to retain current setting for SHORTNAME SET VAR fshort = (CVAL('shortname')) IF fshort IS NULL THEN -- parameter not recognized by this version of R:BASE RETURN 0 ENDIF IF fshort = 'ON' THEN SET SHORTNAME OFF ENDIF -- set up the temporary filename to hold the directory listing SET VAR fxfn = (FILENAME(0)) SET VAR ffnlen = (SLEN(.fxfn)) SET VAR ftempfn = (SGET(.fxfn,8,(.ffnlen - 11))+CTXT('.lst')) -- delete the file R:BASE created DELETE &fxfn -- get the listing OUTPUT &ftempfn SET VAR fcmd = (CTXT('DIR')&CTXT(.fmask)) &fcmd OUTPUT SCREEN -- create the table SET ERROR MESSAGE 2038 OFF DROP TABLE filen128 SET ERROR MESSAGE 2038 ON CREATE TEMPORARY TABLE filen128 (filedate DATE,filetime TIME,ampm TEXT (2),+ filesize INTEGER,longfn128 TEXT (128)) -- load the table LOAD filen128 + FROM &ftempfn + AS FORMATTED USING filedate 1 8,filetime 13 17,ampm 19 20,+ filesize 28 40,longfn128 42 169 -- delete the temp file holding the listing DELETE &ftempfn -- restore SHORTNAME setting SET VAR fcmd = (CTXT('SET SHORTNAME')&CTXT(.fshort)) &fcmd -- remove irrelevant rows DELETE ROWS + FROM filen128 + N WHERE longfn128 IN ('.','..','bytes','bytes free') OR + longfn128 IS NULL OR + longfn128 = ' ' OR + filesize IS NULL -- fix the time values UPDATE filen128 + SET filetime = (ADDHR(filetime,12)) + WHERE ampm = 'PM' AND + filetime < 12:00:00 -- get the number of rows SET VAR fcount INTEGER SELECT COUNT(*) + INTO fcount INDIC fi1 + FROM filen128 IF fcount IS NULL THEN SET VAR fcount = 0 ENDIF SET VAR vfcount INTEGER = .fcount CLEAR VAR f% RETURN .vfcount Emmitt Dove Manager, Converting Applications Development Evergreen Packaging, Inc. [email protected] (203) 214-5683 m (203) 643-8022 o (203) 643-8086 f [email protected] From: [email protected] [mailto:[email protected]] On Behalf Of Michael J. Sinclair Sent: Sunday, February 21, 2010 18:02 To: RBASE-L Mailing List Subject: [RBASE-L] - Why won't this work during trace, but does work during RUN? Hi All, I am using Rbase 7.6, latest build. I am trying to load a list of file names into a table. The method I am using seems to work just fine when I run the command, but fails (nothing loads into the table) while I am doing a trace. The program is run from within an EEP. Here is my code.... ERASE dir.txt OUTPUT dir.txt DIR .vfromspec OUTPUT SCREEN DELETE FROM asciitxt2 LOAD asciitxt2 FROM dir.txt AS FORMATTED USING textdata 1 80 EDIT ALL FROM asciitxt2 The contents of dir.txt is as follows.... Volume in drive g is 320GB Volume Serial Number is 8464-4871 Directory of g:\docs\1913\labs\ 02/20/2010 10:43 PM <DIR> . 02/20/2010 10:43 PM <DIR> .. 11/28/2009 03:02 PM 9,618 labs_1913_0001.pdf 1 File(s) 9,618 bytes 2 Dir(s) 28,672,167,936 bytes free Why won't this work for me during a trace? Is there a better way to load a list of filename from a folder into a table? Mike
