Getting Started Under z/OS

In this section:

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


Top of page

x
Interactive Access From TSO

Following is a sample CLIST that, upon execution, will allocate the files necessary to run the adapter 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:

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


Top of page

x
Batch Access

Following is an example of JCL code that, upon execution, will allocate the files necessary to run the adapter 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.

The DDCARD ddname can be allocated to 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:


Information Builders