Focal Point
Read Procedure.

This topic can be found at:
https://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/5441009331

October 04, 2005, 03:05 PM
Prarie
Read Procedure.
Anyone have a procedure that can read a Focexec and display all the Table Files, Hold Files and HTMLs. So you would have:
Focexec Name - NEWONE.FEX
TABLE FILE CAR
PRINT CAR
ON TABLE HOLD AS NEWCAR
END
-HTMLFORM CARCAR

Load in Focexec NEWONE.FEX in your procedure and your output would be:

File = CAR
Hold File = NEWCAR
HTML = CARCAR

Purpose for this. We have been involved in a project to convert reports from previous languages to WebFocus and now it's time to document each one for Production Support.
October 04, 2005, 05:05 PM
susannah
make a list of all your fexes using dir ..*.fex /b > mylist.txt
then read clean up that file a bit so you can loop thru it, reading 1 fex name at a time, &fex1
make a single master, fexmast, for reading any fex (make it a large enough record length to accommodate whatever your longest fex line is, typically)
table file against each fex in turn
filedef fexmaster disk d:\ibi\.. &fex1.fex
to pull out any statment containing
TABLE FILE
or
!IBI.FIL
or whatever you need to salvage.
October 06, 2005, 02:19 PM
Prarie
Thanks Susannah, will do this. I remember doing something like this several years ago.