After an hour or so of banging my head against the 'wall of FOCUS' and reading Chapter 5 of the "Describing Data ..." manual, I've given up and am asking for your help in making this simple bit of code work the way it looks like it should work!

I want list the content of a *.txt file; an application control table containing variable length text strings up to 25 characters long. (If this works, I'll expand it with parameters into a generic control file viewer.)

Here's the code of my test example:

 
-* Put temporary text file into the 'NA' applib
APP PREPENDPATH NA
APP HOLDDATA NA
APP HOLDMETA NA
-RUN
-* Generate a temporary *.mas for the text file
FILEDEF MAS DISK E:\ibi\apps\NA\TEMPTEXT.mas
-RUN
-WRITE MAS FILENAME=TEMPTEXT, SUFFIX=FIX, $
-WRITE MAS SEGNAME=SEG1, $
-WRITE MAS FIELDNAME=HEADER_TEXT, FORMAT=A25V, ACTUAL=A25V , $
-RUN
-* Generate content into the temporary text file
FILEDEF DAT DISK E:\ibi\apps\NA\TEMPTEXT.ftm
-RUN
-WRITE DAT 123456 
-WRITE DAT com-bbb-cccc
-WRITE DAT The quick brown fox ...
-RUN
-* Display the content of the temporary text file
TABLE FILE TEMPTEXT
PRINT
     HEADER_TEXT
ON TABLE PCHOLD FORMAT HTML
END
-RUN
 

What I get as a result is (with message viewer OFF):

 
0 NUMBER OF RECORDS IN TABLE=        0  LINES=      0
 

This message has been edited. Last edited by: cburtt,

Chris,

You're going to kill yourself. The ddname for your filedef for the file needs to be the same as the name that you are tableing or you need to re-filedef it.

FILEDEF TEMPTXT DISK NA\temptext.ftm
-RUN
-WRITE TEMPTEXT 123456 
-WRITE TEMPTEXT com-bbb-cccc
-WRITE TEMPTEXT The quick brown fox ...

This message has been edited. Last edited by: GinnyJakes,

Sometime one needs another eye.

-* Put temporary text file into the 'NA' applib
APP PREPENDPATH NA
APP HOLDDATA NA
APP HOLDMETA NA
-RUN
-* Generate a temporary *.mas for the text file
FILEDEF MAS DISK E:\ibi\apps\NA\TEMPTEXT.mas
-RUN
-WRITE MAS FILENAME=TEMPTEXT, SUFFIX=FIX, $
-WRITE MAS SEGNAME=SEG1, $
-WRITE MAS FIELDNAME=HEADER_TEXT, FORMAT=A25, ACTUAL=A25 , $
-RUN
-* Generate content into the temporary text file
FILEDEF TEMPTEXT DISK E:\ibi\apps\NA\TEMPTEXT.ftm
-RUN
-WRITE TEMPTEXT 123456 
-WRITE TEMPTEXT com-bbb-cccc
-WRITE TEMPTEXT The quick brown fox ...
-RUN
-* Display the content of the temporary text file
TABLE FILE TEMPTEXT
PRINT
     HEADER_TEXT
ON TABLE PCHOLD FORMAT HTML
END
-RUN