Create a Procedure to Access FOCUS and Verify Adapter Installation

Create a CLIST or JCL to run FOCUS with the Adapter for DB2, and run a sample request to test the adapter installation and connection.

Reference: Sample CLIST to Access DB2 From FOCUS Using an EDASERVE Configuration File

You can use this sample CLIST as a template. Edit it to conform to the standards of your site.

ALLOC F(FOCLIB)    DA('hlq.FOCLIB.LOAD') SHR REUSE 
ALLOC F(ERRORS)    DA('user.DB2CAF.CFG' -
                      'hlq.ERRORS.DATA') SHR REUSE 
ALLOC F(MASTER)    DA('user.MASTER.DATA' -       
                      'hlq.MASTER.DATA') SHR REUSE
ALLOC F(FOCSQL)    DA('user.FOCSQL.DATA' -       
                      'hlq.FOCSQL.DATA') SHR REUSE
ALLOC F(FOCEXEC)   DA('user.FOCEXEC.DATA' -       
                      'hlq.FOCEXEC.DATA') SHR REUSE
CALL 'hlq.FOCLIB.LOAD(FOCUS)'

where:

hlq: Is the high-level qualifier for your FOCUS production data sets.
n: Is the version of DB2 you will use with FOCUS.
user: Is the high-level qualifier for the private version of a data set.

Note:

Before executing your CLIST, you must be sure that your DB2 load libraries are available either by allocating them to DDNAME STEPLIB or by having them in the LINKLIST.
The data set user.DB2CAF.CFG in the allocation for DDNAME ERRORS contains the EDASERVE member.

Execute the CLIST to invoke FOCUS and issue the following commands at the FOCUS prompt, pressing Enter after each line.

SQL DB2 ?                                               
SQL DB2                                                 
SELECT * FROM SYSIBM.SYSDUMMY1;              
END

If the adapter settings and the request output displayed, the installation and connection were successful. Issue the following command to exit FOCUS.

FIN

Reference: Sample CLIST to Access DB2 From FOCUS Using the RRSET Module

You can use this sample CLIST as a template. Edit it to conform to the standards of your site.

ALLOC F(FOCLIB)    DA('hlq.USE.FOCSQL.LOAD' -      
                      'hlq.FOCLIB.LOAD') SHR REUSE 
ALLOC F(ERRORS)    DA('hlq.ERRORS.DATA') SHR REUSE 
ALLOC F(MASTER)    DA('user.MASTER.DATA' -         
                      'hlq.MASTER.DATA') SHR REUSE 
ALLOC F(FOCSQL)    DA('user.FOCSQL.DATA' -        
                      'hlq.FOCSQL.DATA') SHR REUSE 
ALLOC F(FOCEXEC)   DA('user.FOCEXEC.DATA'    
                      'hlq.FOCEXEC.DATA') SHR REUSE 
CALL 'hlq.FOCLIB.LOAD(FOCUS)'

where:

hlq: Is the high-level qualifier for your FOCUS production data sets.
n: Is the version of DB2 you will use with FOCUS.
user: Is the high-level qualifier for the private version of a data set.

Note:

Before executing your CLIST, you must be sure that your DB2 load libraries are available either by allocating them to DDNAME STEPLIB or by having them in the LINKLIST.
The data set hlq.USE.FOCSQL.LOAD in the FOCLIB allocation contains the RRSET module.

Execute the CLIST to invoke FOCUS and issue the following commands at the FOCUS prompt, pressing Enter after each line.

SQL DB2 ?                                               
SQL DB2                                                 
SELECT * FROM SYSIBM.SYSDUMMY1;              
END

If the adapter settings and the request output displayed, the installation and connection were successful. Issue the following command to exit FOCUS.

FIN

Reference: Sample JCL to Access DB2 From FOCUS Using an EDASERVE Configuration File

You can use this sample JCL as a template. Edit it to conform to the standards of your site

//job card goes here      
//         CLASS=A,MSGCLASS=Q,REGION=64M,TIME=40,MSGLEVEL=(1,1) 
//*                                                            
//FOCDB2  EXEC PGM=FOCUS                                       
//STEPLIB  DD  DSN=hlq.FOCSQL.LOAD,DISP=SHR     
//         DD  DSN=hlq.FOCLIB.LOAD,DISP=SHR     
//         DD  DSN=DSNn10.SDSNLOAD,DISP=SHR     
//ERRORS   DD  DSN=hlq.ERRORS.DATA,DISP=SHR    
//         DD  DSN=user.DB2CAF.CFG,DISP=SHR    
//MASTER   DD  DSN=user.MASTER.DATA,DISP=SHR
//         DD  DSN=hlq.MASTER.DATA,DISP=SHR    
//FOCEXEC  DD  DSN=user.FOCEXEC.DATA,DISP=SHR
//         DD  DSN=hlq.FOCEXEC.DATA,DISP=SHR 
//FOCSQL   DD  DSN=user.FOCSQL.DATA,DISP=SHR
//         DD  DSN=hlq.FOCSQL.DATA,DISP=SHR  
//SYSPRINT DD  SYSOUT=*                                 
//SYSIN    DD  *                                        
SQL DB2 ?                                               
SQL DB2                                                 
SELECT * FROM SYSIBM.SYSDUMMY1;              
END                                                     
FIN                                                 
/*

where:

hlq: Is the high-level qualifier for your FOCUS production data sets.
n: Is the version of DB2 you will use with FOCUS.
user: Is the high-level qualifier for the private version of a data set.

Note: The data set user.DB2CAF.CFG contains the EDASERVE member and must be allocated to DDNAME ERRORS.

If the adapter settings and the request output displayed, the installation and connection were successful.

Reference: Sample JCL to Access DB2 From FOCUS Using the RRSET Module

You can use this sample JCL as a template. Edit it to conform to the standards of your site

//job card goes here      
//         CLASS=A,MSGCLASS=Q,REGION=64M,TIME=40,MSGLEVEL=(1,1) 
//*                                                            
//FOCDB2  EXEC PGM=FOCUS                                       
//STEPLIB  DD  DSN=hlq.USE.FOCSQL.LOAD,DISP=SHR   
//         DD  DSN=hlq.FOCSQL.LOAD,DISP=SHR         
//         DD  DSN=hlq.FOCLIB.LOAD,DISP=SHR         
//         DD  DSN=DSNn10.SDSNLOAD,DISP=SH          
//ERRORS   DD  DSN=hlq.ERRORS.DATA,DISP=SHR    
//MASTER   DD  DSN=user.MASTER.DATA,DISP=SHR
//         DD  DSN=hlq.MASTER.DATA,DISP=SHR       
//FOCEXEC  DD  DSN=user.FOCEXEC.DATA,DISP=SHR
//         DD  DSN=hlq.FOCEXEC.DATA,DISP=SHR  
//FOCSQL   DD  DSN=user.FOCSQL.DATA,DISP=SHR
//         DD  DSN=hlq.FOCSQL.DATA,DISP=SHR   
//SYSPRINT DD  SYSOUT=*                                 
//SYSIN    DD  *                                        
SQL DB2 ?                                               
SQL DB2                                                 
SELECT * FROM SYSIBM.SYSDUMMY1;              
END                                                     
FIN                                                 
/*

where:

hlq: Is the high-level qualifier for your FOCUS production data sets.
n: Is the version of DB2 you will use with FOCUS.
user: Is the high-level qualifier for the private version of a data set.

Note: The data set hlq.USE.FOCSQL.LOAD contains the RRSET module and must be in the allocation for DDNAME STEPLIB.

If the adapter settings and the request output displayed, the installation and connection were successful.