Conference ilbbak::ibi_focus

564.0. "MOVING WHERE THE FOCSORT IS STORED QUESTIONS..." by AIMHI::ZANELLA () Fri Nov 12 1993 13:35

Byron Zanella DTN 264-0251 Direct Marketing Org

I am looking for a way to run a FOCUS job in 1 directory, but having FOCUS
put the FOCSORT.FTM file in another directory.  I use COM streams to run the
jobs, setting default to the directory in which I want my HOLD files stored.
Big jobs take much room (twice as much as needed) because the FOCSORT.FTM
is written to the same area.  I need to save the HOLD file in order to come
back to them.  Any ideas would be helpful.  A typical COM stream would be:


$ DEFINE/NOLOG       DMD_INF$ DMD_DATA1:DMD_RDB
$ DEFINE/NOLOG       TEMPDIR$ disk81:[FOCUS.RDB],DISK81:[FOCUS.RMS]
$ DEFINE/NOLOG       FOC$DIR1 disk81:[FOCUS.RDB],DISK81:[FOCUS.RMS]
$ DEFINE/NOLOG       FOC$DIR2 disk81:[FOCUS.RDB],DISK81:[FOCUS.RMS]
$ DEFINE/NOLOG       FOC$DIR3 disk81:[FOCUS.RDB],DISK81:[FOCUS.RMS]
$ DEFINE/NOLOG       FOC$DIR4 disk81:[FOCUS.RDB],DISK81:[FOCUS.RMS]
$ DEFINE/NOLOG       CIC_DB$ USIW::CIC_RDB:CIC_DATABASE
$ DEFINE/NOLOG       PM399$ DISK67:[PIBS.ORDER_CONTACTS]PM399.IDX
$ define rdms$debug_flags "SO"
$ set default WORKC:[WORK.BZ1]
$!
$ FOCUS/NOBANNER/PROFILE=DISK81:[FOCUS.RDB]DMD_FOCUS
SET ALL=PASS
EX SYS$LOGIN:CBU_DMD.FEX
FIN
$ DELETE WORKC:[WORK.BZ1]FOCSORT.FTM;1
$EXIT

Thanks to Lisa C., who put me in the right direction.  The solution was :

-* RUN THIS FEX FROM A SEPARATE SORTWORK DISK
-* THE COM FILE SETS DEFAULT TO WORKC:[WORK.BZ_FOCTEST]

-* THIS PUTS EXTRACT FILES INTO THE DEFAULT DIR
-* WHICH IS WORKC:[WORK.BZ_FOCTEST]
SET FOCEXTRACT=DEFAULT

-* THIS PUTS THE WORKING FILES INTO THIS OTHER DIRECTORY
SET TEMPDIR=WORKC:[WORK.BZ_TEST]
-* FOR EXAMPLE-> SET TEMPDIR = SORTWORK3

In the FOCUS manul, in section 15.2.6 under Extract files and the default
and temporary directories... is the explaination of this.

BZ