In this section: |
Interactive access from TSO and batch access are explained in the following sections.
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:
Is the high-level qualifier for your private version of a library.
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.
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:
Is the high-level qualifier for your site's FOCUS production libraries.
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 |