Starting a FOCUS Database Server

The IBI Subsystem must be running before you can start SU. If the Subsystem was not started, you will get a U0003 system error.

Before beginning simultaneous usage (SU) of centrally controlled FOCUS data sources, the system administrator must start the FOCUS Database Server. Once started, this job remains in a wait state until FOCUS applications give it work to perform.

The FOCUS Database Server executes a program called HLISNK after allocating the following files:

Syntax: How to Create the FOCUSSU Dummy Database

CREATE FILE FOCUSSU

The FOCUS Database Server writes diagnostic information to ddname HLIERROR in the event of server problems. HLIERROR should always be allocated to a SYSOUT class rather than to a data set.
When using the HLIPRINT facility, allocate a sequential data set or SYSOUT to ddname HLIPRINT to record user transactions.
When using the COMBINE command, allocate a small work file to ddname FOCSORT.
Allocate the data sources that the FOCUS Database Server will process. If you will use the Multi-Threaded SU Reporting Facility, you must allocate these data sources with DISP=SHR.
Allocate the Partitioned Data Sets containing the Master Files for the FOCUS and XFOCUS data sources, concatenated to ddname MASTER. One of these PDSs must contain member FOCUSSU. This Master File can be found in the data set FOCCTL.DATA. You should copy this member to MASTER.DATA.
Allocate the partitioned data set containing the HLI profile to ddname FOCEXEC.

Top of page

Example: Sample JCL for Running the FOCUS Database Server

//*      Job card goes here
//HLISNK   EXEC PGM=HLISNK[,PARM='parameters']
//STEPLIB  DD   DSN=prefix.FOCLIB.LOAD,DISP=SHR
//FOCLIB   DD   DSN=prefix.FOCLIB.LOAD,DISP=SHR
//ERRORS   DD   DSN=prefix.ERRORS.DATA,DISP=SHR
//*
//*      FOCSU IS THE COMMUNICATION FILE
//*
//FOCSU    DD   DSN=prefsu.FOCSU.DATA,DISP=SHR
//*
//*      FOCUSSU IS A DUMMY FOCUS DATABASE CREATED DURING SU INSTALLATION
//*
//FOCUSSU  DD   DSN=prefsu.FOCUSSU.FOCUS,DISP=SHR
//*
//*      FOCSORT IS NEEDED IF THE COMBINE/SU FEATURE WILL BE USED
//*
//FOCSORT  DD   SPACE=(TRK,(1,1)),UNIT=SYSDA
//*
//*      HLIERROR IS USED FOR DIAGNOSTICS
//*
//HLIERROR DD  SYSOUT=*,DCB=(LRECL=80,RECFM=F,BLKSIZE=80)
//*
//*      HLIPRINT IS THE LOG FILE (HERE, THE SYSTEM PRINTER)
//*
//HLIPRINT DD  SYSOUT=*.DCB=(LRECL=88,RECFM=FB,BLKSIZE=8800)
//*     or DD  SYSOUT=*.DCB=(LRECL=133,RECFM=FBA,BLKSIZE=13300)
//*
//*      MASTER CONTAINS THE FILE DESCRIPTIONS OF ALL   
//*      DATABASES USED IN SU MODE. THE MASTER FOR FOCUSSU 
//*      IS IN MASTER.DATA. ONLY DATA SETS WITH IDENTICAL LRECL
//*      AND RECFM ATTRIBUTES SHOULD BE CONCATENATED
//*
//MASTER   DD  DSN=hlq.MASTER.DATA,DISP=SHR
//         DD  DSN=prefix.MASTER.DATA,DISP=SHR
//*
//*      FOCEXEC IS FOR THE SU PROFILE
//*
//FOCEXEC  DD  DISP=SHR,DSN=hlq.FOCEXEC.DATA
//         DD  DISP=SHR,DSN=prefix.FOCEXEC.DATA
//*
//*     CENTRALLY CONTROLLED FOCUS DATABASES ALLOCATED WITH DISP=SHR SO
//*     MULTI-THREADED SU REPORTING FACILITY CAN BE USED.
//*
//EMPLOYEE DD  DSN=prefix.EMPLOYEE.FOCUS,DISP=SHR
//EDUCFILE DD  DSN=prefix.EDUCFILE.FOCUS,DISP=SHR
//JOBFILE  DD  DSN=prefix.JOBFILE.FOCUS,DISP=SHR

where:

parameters: Are needed if you use the ECHO or STAT facilities or if you plan to use HLI control commands.
prefix: Is the high-level qualifier for your production FOCUS data sets.
prefsu: Is the high-level qualifier for data sets specific to the FOCUS Database Server.
hlq: Is the high-level qualifier for the private data sets of a specific user.

The PARM field in the HLISNK EXEC statement is optional. Include it if you plan to use the SU ECHO facility, or if you plan to use HLI control commands.