Customize the FOCUS CLIST or JCL in Datacom

The FOCUS CLIST or JCL must be modified to include the Access File PDS and the PDS containing the Datacom Data Adapter load modules. The CLIST or JCL must allocate:

  1. The PDS containing Access Files.

  2. The PDS containing Master Files.

  3. The PDS containing FOCUS procedures (FOCEXECs).

Example:

Interactive Access From TSO in Datacom

Interactive Access From MSO in Datacom

Batch Access in Datacom

  1. The PDS containing FOCUS error messages.

  2. The PDS containing the data adapter load modules and FOCUS load modules.

The following chart identifies the allocations needed to execute a FOCUS procedure (FOCEXEC) against a Datacom data source:

PDS Containing:

Concatenate To DDNAME:

Access Files

FOCDTCM

Master Files

MASTER

FOCUS Procedures

FOCEXEC

Error Messages

ERRORS

Data Adapter Load Module FOCUS Load Modules

USERLIB, FOCLIB or STEPLIB.

Note: For batch jobs, allocate all load modules to ddname STEPLIB.

Datacom Run-Time Load Modules

The Datacom libraries, the DSGEN, the common CA LIB and the library containing URTs must be allocated to STEPLIB in the batch FOCUS JCL or to ISPLLIB or STEPLIB in the TSO logon procedure.
Top of page

Example: Interactive Access From TSO in Datacom

Use the following CLIST as a model for access FOCUS interactively in TSO:

ALLOC F(FOCEXEC)   DA('prefix.FOCEXEC.DATA') SHR REUSE 
ALLOC F(MASTER)    DA('prefix.MASTER.DATA') SHR REUSE 
ALLOC F(FOCDTCM)   DA('prefix.FOCDTCM.DATA') SHR REUSE 
ALLOC F(ERRORS)    DA('prefix.ERRORS.DATA') SHR REUSE 
ALLOC F(USERLIB)   DA('prefix.FOCLIB.LOAD' - 
                   DA('prefix.DATACOM.LOAD' - 
                   DA('prefix.FUSELIB.LOAD') SHR REU 
ALLOC F(FOCLIB)    DA('prefix.FOCLIB.LOAD') SHR REUSE
CALL 'prefix.FOCLIB.LOAD(FOCUS)'

where:

prefix
Is the high-level qualifier for your FOCUS production data sets.

Remember to allocate the CA-Datacom load libraries in the TSO logon procedure. The
prefix.DATACOM.LOAD library is the load library supplied by Information Builders.
Top of page

Example: Interactive Access From MSO in Datacom

For interactive access in MSO, modify the MSO start-up JCL to include the following allocations. See the Multi-Session Option Installation and Technical Reference Guide for further information:

//STEPLIB   DD   DSN=highlvl.loadlib,DISP=SHR
//          DD   DSN=highlvl.urtlib,DISP=SHR
//          DD   DSN=prefix.FOCLIB.LOAD,DISP=SHR
//          DD   DSN=prefix.DATACOM.LOAD,DISP=SHR
//          DD   DSN=prefix.FUSELIB.LOAD,DISP=SHR
//FOCEXEC   DD   DSN=prefix.FOCEXEC.DATA,DISP=SHR
//MASTER    DD   DSN=prefix.MASTER.DATA,DISP=SHR
//FOCDTCM   DD   DSN=prefix.FOCDTCM.DATA,DISP=SHR
//ERRORS    DD   DSN=prefix.ERRORS.DATA,DISP=SHR

where:

highlvl.loadlib
Represents all of the CA-Datacom run-time load libraries, including the CA-Datacom libraries, the DSGEN, and the common CA LIB.

highlvl.urtlib
Is the CA-Datacom URT load library.

prefix
Is the high-level qualifier for your FOCUS production data sets.
Top of page

Example: Batch Access in Datacom

Use the following JCL as a model for batch access to FOCUS:

//job card goes here
//DATACOM   EXEC PGM=FOCUS
//STEPLIB   DD   DSN=highlvl.loadlib,DISP=SHR
//          DD   DSN=highlvl.urtlib,DISP=SHR
//          DD   DSN=prefix.FOCLIB.LOAD,DISP=SHR
//          DD   DSN=prefix.DATACOM.LOAD,DISP=SHR
//          DD   DSN=prefix.FUSELIB.LOAD,DISP=SHR
//FOCEXEC   DD   DSN=prefix.FOCEXEC.DATA,DISP=SHR 
//MASTER    DD   DSN=prefix.MASTER.DATA,DISP=SHR 
//FOCDTCM   DD   DSN=prefix.FOCDTCM.DATA,DISP=SHR 
//ERRORS    DD   DSN=prefix.ERRORS.DATA,DISP=SHR 
//SYSIN     DD   *
TABLE FILE DTCMKEY
PRINT STATUS
IF RECORDLIMIT EQ 10
END
FIN
/*

where:

highlvl.loadlib
Represents all of the CA-Datacom run-time load libraries, including the Datacom libraries, the DSGEN, and the common CA LIB.

highlvl.urtlib
Is the CA-Datacom URT load library.

prefix
Is the high-level qualifier for your FOCUS production data sets.
Information Builders