I am creating an ON TABLE HOLD AS CUSTOMER FORMAT FOCUS INDEX CUSTNUM . I'm planning to DYNAM ALLOC and catalog the file with a specific DSN . Sometime later and from several different programs, I want to check to see if a file currently exists with this name and if it was created today. If it was created today, I want to avoid having to recreate the HOLD file again as it takes a while to run and the data will be exactly the same if it was created today. What options would I have using dialogue mgr commands to interrogate a FOCUS file for its creation date?

-? TSO DDNAME CAR

Unfortunately, create date is not part of the available &'s:

DDNAME = CAR
DSNAME = EDA.VSR2M00.CAR.FOCUS
DISP = OLD
DEVICE = DISK
VOLSER = TSOPAK
DSORG = PS
RECFM = F
SECONDARY = 1
ALLOCATION = TRACKS
BLKSIZE = 4096
LRECL = 4096T
RKTOT = 2
EXTENTSUSED = 1
BLKSPERTRK = 10T
RKSPERCYL = 15
CYLSPERDISK = 886
BLKSWRITTEN = 20
FOCUSPAGES = 8

Run the load in batch at night, then, no worries...

I dug around and it doesn't look there's a way to query the Last Changed Date of a FOCUS DB. THe quickest way to resolve this would be to add a field to the FOCUS DB if possible.

If memory serves correctly both ? fdt filename and ? file filename will give you last change date - if you can get the info to a file, then you could check it --- hope that helps a little

vivian

This may be of help in the future...

Tech Support: NF829: AUTODATE for FOCUS Data Sources

Vivian wins the prize! Cesare Petrizio from IBI help line sent me sample code for doing just this.

Thanks for help

Well then, wouldn't you like to share that information with us?