I need to display the date and time of the last modification made to a file. The ?FDT query shows me this. Is it possible to write this information to a file that I can parse out and extract the Date/Time information? This would enable me to display this info on an HTML page of our self-service screen. The only other option I can think of is to create another field in each data base 'LAST_UPDATE_DATE' and add logic to our update programs to record the Date/Time of each update.

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

Here is a fex that will get you what you need. Just modify it to show what you want to. FOCAPPQ is a special system "table" that contains this information. Set &APPFOLD to your application folder name (Self-Serve).

 
APP QUERY &APPFOLD HOLD

DEFINE FILE FOCAPPQ
FILETYPE/A3=GETTOK(FILENAME,70,2,'.',3,'A3');
RMSL/A8=EDIT (DATE, '99$99$9999');
READDATE/YYMD=DATECVT(RMSL,'A8DMYY','YYMD');
END


TABLE FILE FOCAPPQ
ON TABLE SET PAGE-NUM OFF
ON TABLE SET LINES 999999
HEADING
"WebFocus Application <APPNAME "
"On &WF_ENV Environment"
" "
FOOTING
"All files are shown lower case regardless of actual filename case."
PRINT
	FILENAME AS 'Filename'
 SIZE AS 'Filesize,in bytes'
 READDATE AS 'Date Last,Updated'
 TIME AS 'Time Last, Updated'
BY FILETYPE
ON TABLE SET STYLE *
TYPE=HEADING, LINE=1, SIZE=12, STYLE=BOLD, JUSTIFY=CENTER,$
TYPE=HEADING, LINE=1, OBJECT=FIELD, COLOR=RED, STYLE=BOLD+UNDERLINE,$
TYPE=HEADING, LINE=2, SIZE=11, STYLE=BOLD, JUSTIFY=CENTER,$
TYPE=TITLE, SIZE=10, STYLE=BOLD, COLOR=RED,$
ENDSTYLE
END

 

quote:

APP QUERY &APPFOLD HOLD

N.
Can you tell me what this command does?
in FILEDEF terms?
thanks.

From the docs:

quote:

APP QUERY app HOLD - Writes a list of all files in the application app in the file focappq.ftm in a temporary directory; the output is described by focappq.mas

http://documentation.informationbuilders.com/masterinde...adm532/05access3.htm

Simple fex:

-*--- List files in an APP folder --------------------------

APP QUERY eqp HOLD

TABLE FILE FOCAPPQ
WHERE FILENAME CONTAINS '.fex'
PRINT *
END

Anybody have an idea on how to capture the output of an '? FILE filename' ???

Currently there is no standard way of doing this. IBI is researching on how to implement this, but it won't be here soon.
Meanwhile, you could misuse the good old tracing mechanism to do this.
Example:

SET TRACEOFF = ALL
SET TRACEON = ALL
SET TRACESTAMP=OFF
SET TRACEUSER=TEST.TRC
-RUN
? FILE somefocusfile
SET TRACEOFF = ALL
-RUN
FILEDEF MASTER DISK TRACE.MAS
FILEDEF TRACE DISK TEST.TRC
-RUN
-WRITE MASTER FILENAME=TRACE, SUFFIX=FIX
-WRITE MASTER SEGNAME=TRACE
-WRITE MASTER FIELDNAME=LINE, FORMAT=A200, ACTUAL=A200, $
-RUN
APP HOLD SESSION
DEFINE FILE TRACE
RESULT/A175 = SUBSTR(200,LINE,45,200,155,'A155');
END
TABLE FILE TRACE
PRINT RESULT
IF LINE CONTAINS 'ngput'
ON TABLE SAVE AS OUTPUT
END
-RUN

Now there is a file stored in your SESSION app dir called output.ftm, which contains the output of the ? FILE command.

Hope this helps ...