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

How about this?

APP QUERY &FOLDERNAME HOLD

TABLE FILE FOCAPPQ
PRINT *
END


See if the results contain what you are looking for.

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>,

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]

I agree with Francis... this IS really neat!!! Thanks, dwf. Just waht I was looking for.

Thanks again.

Craig