Getting Started Under MVS

Interactive access from TSO and MSO and batch access are explained in the following sections.

Interactive Access From TSO

Following is a sample CLIST that, upon execution, will allocate the files necessary to run the Interface interactively.

PROC 0
CONTROL NOMSG NOLIST
WRITE ******************************************************** 
WRITE *   WELCOME TO THE IBI ADABAS INTERFACE!
WRITE ******************************************************** 
/*                                                          */ 
ALLOC F(FOCEXEC) DA('userid.FOCEXEC.DATA') SHR REUSE 
ALLOC F(MASTER)  DA('userid.MASTER.DATA') SHR REUSE
ALLOC F(FOCADBS) DA('userid.FOCADBS.DATA') SHR REUSE 
ALLOC F(USERLIB) DA('highlvl.ADABAS.LOAD' -
                    'highlvl.FUSELIB.LOAD') SHR REUSE
ALLOC F(FOCLIB)  DA('highlvl.FOCLIB.LOAD') SHR REUSE 
ALLOC F(ERRORS)  DA('highlvl.ERRORS.DATA' -
                    'highlvl.ADABAS.DATA') SHR REUSE
ALLOC F(DDCARD)  DA('SOFTWARE.AG.ADARUN') SHR REUSE 
/* ALLOC F(FSTRACE)  DA(*)                                  */ 
/* ALLOC F(FSTRACE)  DA('userid.FSTRACE') MOD REUSE         */ 
/* ALLOC F(FSTRACE4) DA('userid.FSTRACE4') MOD REUSE        */ 
/* ALLOC F(FSTRACE5) DA('userid.FSTRACE5') MOD REUSE        */ 
ALLOC F(SYSOUT)   DA('userid.SYSOUT') MOD REUSE          
ALLOC F(SYSPRINT) DA('userid.SYSPRINT') MOD REUSE        
/*                                                          */ 
CALL 'highlvl.FOCLIB.LOAD(FOCUS)'

where:

userid: Is the high-level qualifier for your private version of a library.
highlvl: Is the high-level qualifier for your site's FOCUS production libraries.

Note:

To use this CLIST, the SOFTWARE AG ADABAS load library must be defined to the STEPLIB. You should define this load library in the logon procedure or LINKLIST.

The sample CLIST assumes that you installed the ADABAS Interface using the STEPLIB allocation described in the installation procedure. If you copied the ADABAS Interface module ADBSINX into the FOCLIB.LOAD library, you should not assign the ADABAS.LOAD library to ddname USERLIB. See Installation Instructions, for detailed information about allocating the Interface load modules.

The allocations for the FSTRACE files in this CLIST are commented out. To avoid performance problems, only allocate these files for debugging purposes.

The first FSTRACE example, allocated to DA (*), will print to the screen. Using the RECORDLIMIT keyword is recommended with this allocation.

For more information regarding parameters for the DDCARD ddname, see your Software AG documentation.

Top of page

Interactive Access From MSO

MSO, a FOCUS product, is an MVS address space that supports multiple interactive users. You can access this environment from a VTAM logon or a CICS transaction.

Following is an example of JCL code that, upon execution, will allocate the files necessary to run the Interface under the MSO server.

//MSO      EXEC PGM=SSCTL
//STEPLIB   DD  DSN=highlvl.FOCLIB.LOAD,DISP=SHR
//          DD  DSN=highlvl.FUSELIB.LOAD,DISP=SHR
//          DD  DSN=highlvl.ADABAS.LOAD,DISP=SHR
//          DD  DSN=SOFTWARE.AG.LOAD,DISP=SHR
//ERRORS    DD  DSN=highlvl.ERRORS.DATA,DISP=SHR
//          DD  DSN=highlvl.ADABAS.DATA,DISP=SHR
//MSGET     DD  DSN=highlvl.MSO.MSOGET,DISP=SHR       *TSO or CICS
//MSPUT     DD  DSN=highlvl.MSO.MSOPUT,DISP=SHR       *Communication files
//MSOPROF   DD  DSN=highlvl.MSOPROF.DATA,DISP=SHR     *MSO Profile FOCEXEC
//FOCEXEC   DD  DSN=userid.FOCEXEC.DATA,DISP=SHR 
//FOCMSO    DD  DSN=highlvl.MSO.MSOCONFG,DISP=SHR     *MSO config file
//MASTER    DD  DSN=userid.MASTER.DATA,DISP=SHR
//ACCESS    DD  DSN=userid.ACCESS.DATA,DISP=SHR
//FOCADBS   DD  DSN=userid.FOCADBS.DATA,DISP=SHR
//MSOPRINT  DD  SYSOUT=*
//SYSUDUMP  DD  SYSOUT=*
//

where:

highlvl: Is the high-level qualifier for your site's FOCUS production libraries.
userid: Is the high-level qualifier for your private version of a library.

Note:

The DDCARD ddname is not used under MSO. The SVC number under MSO is read from the FADALINK load module, which is created by the GENFADL installation step. See Installation Instructions, for details on GENFADL.

In the sample, ddname MSOPROF is allocated to the file that contains your MSO profile FOCEXEC. If you store this profile as a member of your userid.FOCEXEC.DATA library, allocate ddname MSOPROF to that library.

If you use other FOCUS Interfaces in addition to the ADABAS Interface, you must allocate additional datasets (such as load libraries, Access File libraries, and error datasets) specific to those Interfaces. For more information, see the FOCUS for IBM Mainframe Multi-Session Option Installation and Technical Reference Guide.

Top of page

Batch Access

Following is an example of JCL code that, upon execution, will allocate the files necessary to run the Interface in batch mode.

//valid jobcard
//*
//STEP1   EXEC PGM=FOCUS
//STEPLIB  DD  DSN=SOFTWARE.AG.LOAD,DISP=SHR
//         DD  DSN=highlvl.FOCLIB.LOAD,DISP=SHR                              
//         DD  DSN=highlvl.ADABAS.LOAD,DISP=SHR                              
//         DD  DSN=highlvl.FUSELIB.LOAD,DISP=SHR                             
//ERRORS   DD  DSN=highlvl.ERRORS.DATA,DISP=SHR                              
//         DD  DSN=highlvl.ADABAS.DATA,DISP=SHR                              
//DDCARD   DD  *
ADARUN  PROG=USER,MODE=MULTI,DBID=001,SVC=241,DE=3390
//MASTER   DD  DSN=userid.MASTER.DATA,DISP=SHR 
//FOCADBS  DD  DSN=userid.FOCADBS.DATA,DISP=SHR 
//FOCEXEC  DD  DSN=userid.FOCEXEC.DATA,DISP=SHR 
//*FSTRACE4 DD  DSN=userid.FSTRACE4,DISP=SHR
//*FSTRACE5 DD  DSN=userid.FSTRACE5,DISP=SHR
//*FSTRACE  DD  DSN=userid.TEST.FSTRACE,DISP=(,CATLG,DELETE), 
//*             SPACE=(TRK,(50,10),RLSE),UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
//SYSIN    DD  *
EX NEWTEST
FIN
/*

where:

highlvl: Is the high-level qualifier for your site's FOCUS production libraries.
userid: Is the high-level qualifier for your private version of a library.

DDCARD ddname can be a dataset or allocated instream. See your Software AG documentation for more information about DDCARD ddname.

The ddnames MASTER, FOCADBS, and FOCEXEC allow concatenated datasets. For example:

//MASTER DD DSN=userid.MASTER.DATA,DISP=SHR
//       DD DSN=userid.ADABAS.MASTER.DATA,DISP=SHR
//       DD DSN=userid.MYMFD.MASTER.DATA,DISP=SHR

Note:

The allocations for the FSTRACE files in this JCL example are commented out. To avoid performance problems, only allocate these files for debugging purposes.

The allocations for the FSTRACE files can be either a file that already exists (for example, see FSTRACE4) or allocated in the JCL (see the example for FSTRACE).

Information Builders