Create a CLIST or Job to Invoke FOCUS and Verify Adapter Installation

You must create a batch job or CLIST that you can use to invoke FOCUS with the adapter.

Reference: Creating a Batch Job to Invoke FOCUS

Create a job by adding a JOB card and editing the following sample JCL to conform to the standards at your site.

job card goes here
//SQLMX    EXEC PGM=FOCUS,REGION=0M                                  
//STEPLIB  DD DSN=hlq.FOCLIB.LOAD,DISP=SHR 
//ERRORS   DD DSN=hlq.GOOD.ORACLI.CFG,DISP=SHR   
//         DD DSN=hlq.ERRORS.DATA,DISP=SHR     
//ORA$LIB  DD DSN=ORACLE.V10203.MESG,DISP=SHR
//FOCLIB   DD DSN=hlq.FOCLIB.LOAD,DISP=SHR 
//SYSPRINT DD SYSOUT=*                                               
//FOCEXEC  DD DSN=hlq.FOCEXEC.DATA,DISP=SHR 
//MASTER   DD DSN=hlq.MASTER.DATA,DISP=SHR
//ACCESS   DD DSN=user.ACCESS.LIBRARY,DISP=SHR    
//SYSIN    DD *  
  SQL SQLORA
   SELECT TABLE_NAME, OWNER, TABLESPACE_NAME FROM ALL_TABLES
   WHERE ROWNUM <= 10
  END
 FIN                                              
/*

where:

hlq: Is the high-level qualifier for your FOCUS production data sets.
user: Is the high-level qualifier for the private version of a data set.
ORACLE.V10203.MESG: Is your installation Oracle MESG library.

Note: If the Oracle sid is at most four characters, you can specify it in your JCL, instead of in FOCPROF. For information, see Identify the Oracle SID.

In this example, hlq.FOCUS.ORACLI.CFG has the member EDASERVE.

If the job produces a list of tables, owners, and tablespaces, the adapter installation is verified.

Note: The JESLOG may produce a message similar to the following, which can be ignored:

14.11.28 JOB23212  $HASP708 JOBNAME SYSIN    OPEN FAILED
   959             RC=03 DATA SET ALREADY OPENED 
   959             DSNAME=USERID.JOBNAME.JOBjobid.D0000101.?

where:

USERID: Is the USERID of the running JOB.
JOBNAME: Is the name of the JOB from the JOB card.
jobid: Is the system-assigned job number of the job.
D0000101: Is the system-generated identifier to keep the DSNAME unique.

Reference: Creating a CLIST to Invoke FOCUS Interactively

Create a CLIST by editing the following sample CLIST to conform to the standards at your site.

ALLOC F(ERRORS)  DA('hlq.ORACLI.CFG' +
                    'hlq.ERRORS.DATA') SHR REUSE
ALLOC F(ORA$LIB) DA('ORACLE.V10203.MESG') SHR REUSE
ALLOC F(FOCLIB)  DA('hlq.FOCLIB.LOAD') SHR REUSE
ALLOC F(FOCEXEC) DA('hlq.FOCEXEC.DATA') SHR REUSE
ALLOC F(MASTER)  DA('hlq.MASTER.DATA') SHR REUSE
ALLOC F(ACCESS)  DA('user.ACCESS.LIBRARY') SHR REUSE
CALL 'hlq.FOCLIB.LOAD(FOCUS)'

where:

hlq: Is the high-level qualifier for your FOCUS production data sets.
user: Is the high-level qualifier for the private version of a data set.
ORACLE.V10203.MESG: Is your installation Oracle MESG library.

Note: If the Oracle sid is at most four characters, you can specify it in your CLIST, instead of in FOCPROF. For information, see Identify the Oracle SID.

In this example, hlq.ORACLI.CFG has the member EDASERVE.

Use your CLIST to invoke FOCUS, and issue the following command at the FOCUS prompt.

SQL SQLORA
SELECT TABLE_NAME, OWNER, TABLESPACE_NAME FROM ALL_TABLES
WHERE ROWNUM <= 10
END

If the command produces a list of tables, owners, and tablespaces, the adapter installation is verified.

Issue the following command to exit FOCUS.

FIN