The Server for z/OS comes with its own FOCUS Database Server, also called a Sink Machine. You can either use this integrated FOCUS Database Server or keep FOCUS files on the legacy FOCUS Database Server, which runs as a separate batch job.

If you choose to use the integrated FOCUS Database Server, the implementation of the USE command is unchanged. The FOCSBS value is a node name in the server's communications configuration file, odin.cfg.

Node FOCSU01 identifies the integrated FOCUS Database Server, and cannot be used for any other purpose.

Important: A single file cannot be on both a legacy and an integrated FOCUS Database Server. You must select one or the other to manage access, or you will encounter queue conflicts.

Using the Web Console, either edit the suprof.prf (preferred) or edasprof.prf (alternative) to add DYNAM ALLOC allocations. For example, add following sample command to suprof.prf:

DYNAM ALLOC FI CAR DA <dsname> SHR REU

The following sample USE command enables the FOCUS Database Server to control access to the CAR data source:

USE CAR ON FOCSU01
END

IRUNJCL JCL allocation

Add JCL statements for the FOCUS files to be managed, for example:

//CAR        DD DISP=SHR,DSN=<dsname>

The following sample USE command enables the FOCUS Database Server to control access to the CAR data source:

USE CAR ON FOCSU01
END

The DYNAM ALLOC command with the option PERM is equivalent to a JCL allocation on IRUNJCL JCL. It makes a global server allocation available to the FOCUS Database Server. For example, use the following DYNAM ALLOC command in a user procedure (focexec):

DYNAM ALLOC FI CAR DA <dsname> SHR PERM

The following sample USE command enables the FOCUS Database Server to control access to the CAR data source:

USE CAR ON FOCSU01
END

The following sample code identifies a legacy FOCUS Database Server using the odin.cfg node block FOCSBS:

USE
CAR ON FOCSBS
END

This sample node block resides in odin.cfg and can be constructed using the Web Console:

NODE=FOCSBS <==== USS server (odin.cfg file)
BEGIN
   SUBSYS = xyzw <==== optional parameter to specify IBI subsystem name
                       (not needed if you are using the name IBIS)
   PROTOCOL=SBS
   CLASS=SUCLIENT
   PORT=X.Y.Z <====== communications dataset
END