As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.
New TIBCO Community Coming Soon
In early summer, TIBCO plans to launch a new community—with a new user experience, enhanced search, and expanded capabilities for member engagement with answers and discussions! In advance of that, the current myibi community will be retired on April 30. We will continue to provide updates here on both the retirement of myibi and the new community launch.
What You Need to Know about Our New Community
We value the wealth of knowledge and engagement shared by community members and hope the new community will continue cultivating networking, knowledge sharing, and discussion.
During the transition period, from April 20th until the new community is launched this summer, myibi users should access the TIBCO WebFOCUS page to engage.
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
RMSL/A8=EDIT (DATE, '99$99$9999');
TABLE FILE FOCAPPQ
ON TABLE SET PAGE-NUM OFF
ON TABLE SET LINES 999999
"WebFocus Application <APPNAME "
"On &WF_ENV Environment"
"All files are shown lower case regardless of actual filename case."
FILENAME AS 'Filename'
SIZE AS 'Filesize,in bytes'
READDATE AS 'Date Last,Updated'
TIME AS 'Time Last, Updated'
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,$
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
? FILE somefocusfile
SET TRACEOFF = ALL
FILEDEF MASTER DISK TRACE.MAS
FILEDEF TRACE DISK TEST.TRC
-WRITE MASTER FILENAME=TRACE, SUFFIX=FIX
-WRITE MASTER SEGNAME=TRACE
-WRITE MASTER FIELDNAME=LINE, FORMAT=A200, ACTUAL=A200, $
APP HOLD SESSION
DEFINE FILE TRACE
RESULT/A175 = SUBSTR(200,LINE,45,200,155,'A155');
TABLE FILE TRACE
IF LINE CONTAINS 'ngput'
ON TABLE SAVE AS OUTPUT
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 ...
- Using AS 8.2.01 on Windows 10 - IE11.
in Focus since 1988
Posts: 1961 | Location: Netherlands | Registered: September 25, 2007