Focal Point Banner


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.

Join the TIBCO Community
TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.

  • From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
  • Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
  • Request access to the private WebFOCUS User Group (login required) to network with fellow members.

Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.


Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     FOCEXEC Listing from WF Folder

Read-Only Read-Only Topic
Go
Search
Notify
Tools
FOCEXEC Listing from WF Folder
 Login/Join
 
Member
posted
All,

I can think of a couple ways to do this, but I'm wondering if anyone else has run into this.

I'm looking for a way to get a listing of .fexs in an existing folder. I need this listing in a file. I'm running 533 under UNIX

Any thoughts?

Craig
 
Posts: 28 | Location: USA | Registered: March 24, 2005Report This Post
Platinum Member
posted Hide Post
How about this?

APP QUERY &FOLDERNAME HOLD

TABLE FILE FOCAPPQ
PRINT *
END


See if the results contain what you are looking for.
 
Posts: 135 | Location: Portland, OR | Registered: March 23, 2005Report This Post
Expert
posted Hide Post
To get a list of files in a directory:
1) Run the DOS DIR command and output it
to a file.
2) Allocate the file to
a Master that describes the layout of the DIR command.
3) TABLE on the Master.
-* Get the directory info
-DEFAULT &TEMPDIR='K:\TEMP\';
-DEFAULT &DATADIR='K:\PRE-MIG\';

DEL &TEMPDIR..DIRIN.FTM
DIR /X /-C &DATADIR > &TEMPDIR..DIRIN.FTM

* Allocate the DIR file
FILEDEF DIRIN DISK &TEMPDIR..DIRIN.FTM
-RUN

-* Read the DIR file
TABLE FILE DIRIN
PRINT
 SHORT_FILE_NAME
LONG_FILE_NAME

BY FILE_DATE
BY FILE_TIME

WHERE SHORT_FILE_NAME CONTAINS '.fex'

ON TABLE HOLD AS REPFILE FORMAT ALPHA
END
RUN
The Master

FILE=MB2DIRIN, SUFFIX=FIX, $

SEGNAME=SEG1, SEGTYPE=S0, $
FIELD=FILLER1, FILLER1, A32, A32, MISSING=OFF ,$

SEGNAME=SEG2, PARENT=SEG1, SEGTYPE=S0, $
FIELD=FILLER2, FILLER2, A35, A35, MISSING=OFF ,

$SEGNAME=SEG3, PARENT=SEG2, SEGTYPE=S0, $
FIELD=FILLER3, FILLER3, A1, A1, 
MISSING=OFF ,$

SEGNAME=SEG4, PARENT=SEG3, SEGTYPE=S0, $
FIELD=FILLER4, FILLER4, A38, A38, 
MISSING=OFF ,$

SEGNAME=SEG5, PARENT=SEG4, SEGTYPE=S0, $
  FIELD=FILLER5, FILLER5, A1, A1, 
MISSING=OFF ,$

SEGNAME=SEG6, PARENT=SEG5, SEGTYPE=S0, 
FIELD=FILLER6, FILLER6, A40, A40, 
MISSING=OFF ,$

SEGNAME=SEG7, PARENT=SEG6, SEGTYPE=S0, $
 FIELD=FILLER7, FILLER7, A41, A41, 
MISSING=OFF ,$

SEGNAME=FILEINFO, PARENT=SEG7, SEGTYPE=S0, $
FIELD=FILE_DTTM, 
FILE_DTTM, A18, A18, MISSING=OFF, 
FIELD=FILLERY, FILE_FILLERY, A10, A10, $
FIELD=FILE_SZ, FILE_SZ, A7, A7, 
MISSING=OFF ,$
FIELD=FILLERX, FILE_FILLERX, A4, A4, $
FIELD=SHORT_FILE_NAME, SHORT_FILE_NAME, 
A12, A12,$
FIELD=FILLER8, FILLER8, A4, A4, 
MISSING=OFF ,$
FIELD=LONG_FILE_NAME, LONG_FILE_NAME, 
A255, A255,$
$-- Calculate a File Date with a four 
digit year -----------------------
DEFINE FDT0/A1     = 
IF EDIT(FILE_DTTM,'$$$$$$$$9') EQ ' ' 
THEN 'S' ELSE 'L';
DEFINE FDTS/A6MDY  =
IF FDT0 EQ 'S' THEN EDIT(FILE_DTTM,
'99$99$99$')   ELSE '';
>DEFINE FDTL/A8MDYY =
IF FDT0 EQ 'L' THEN EDIT(FILE_DTTM,'99$99$9999$') ELSE '';
DEFINE FDT1/YYMD   =
IF FDT0 EQ 'L' THEN FDTL ELSE FDTS;
DEFINE FILE_DATE/A8YYMD = FDT1;

$-- Calculate a File Time in 
24 hour format ----------------------------
DEFINE FTM0/A1 =
IF FDT0 EQ 'S' THEN EDIT(FILE_DTTM,'$$$$$$$$$$$$$$$9')
           ELSE EDIT(FILE_DTTM,'$$$$$$$$$$$$$$$$$9');

DEFINE FTMS/A4 =
IF FDT0 EQ 'S' THEN EDIT(FILE_DTTM,'$$$$$$$$$$99$99$') ELSE '';
DEFINE FTML/A4 =
IF FDT0 EQ 'L' THEN EDIT(FILE_DTTM,'$$$$$$$$$$$$99$99$') ELSE '';
DEFINE FTM1/I4L =
IF FDT0 EQ 'S' THEN EDIT(FTMS) ELSE EDIT(FTML);
DEFINE FTM2/I4L =
IF FTM0 EQ 'a' AND FTM1 FROM 1200 TO 1259 THEN FTM1 - 1200 ELSE
IF FTM0 EQ 'p' AND FTM1 FROM 0100 TO 
1159 THEN FTM1 + 1200 ELSE FTM1;
DEFINE FILE_TIME/A6 = EDIT(FTM2) | '00';

DEFINE FILE_DTTM1/A14 = FILE_DATE | 
FILE_TIME;
You may need to tweak the
Master for Date and Time formats
for the server you are doing the
DIR command on.

You can do something similar on UNIX.

This message has been edited. Last edited by: <Mabel>,
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Report This Post
Expert
posted Hide Post
That's really neat!

quote:
Originally posted by dwf:
[qb] How about this?

APP QUERY &FOLDERNAME HOLD

TABLE FILE FOCAPPQ
PRINT *
END


See if the results contain what you are looking for. [/qb]
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Report This Post
Member
posted Hide Post
I agree with Francis... this IS really neat!!! Thanks, dwf. Just waht I was looking for.

Thanks again.

Craig
 
Posts: 28 | Location: USA | Registered: March 24, 2005Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     FOCEXEC Listing from WF Folder

Copyright © 1996-2020 Information Builders