CA Easytrieve DB2 IVP job when running dynamically

Document ID : KB000056957
Last Modified Date : 14/02/2018
Show Technical Document Details

Below is a sample of the JCL/program needed to run an IVP job for a CA Easytrieve DB2 job when running dynamically.

//your jobcard

//*                                                                    

//STEP1    EXEC PGM=EZTPA00                                            

//STEPLIB  DD DSN=your.ezt.CBAALOAD,DISP=SHR                        

//*********************************************************************

//***** DB2 LIBRARIES                                                  

//*********************************************************************

//         DD DSN=your.Pansql.CAILIB,DISP=SHR                       

//*  THE LIBRARY THAT CONTAINS THE DB2 DEFAULT MODULE                  

//         DD DSN=your.db2.SDSNEXIT,DISP=SHR                       

//*  THE DB2 LOADLIB                                                   

//*        DD DSN=your.db2.SDSNLOAD,DISP=SHR               

//**********************************************************************

//*THIS PROGRAM CAN BE USED TO TEST A NEW INSTALLATION OF PANSQL.  IT  

//*USES THE SYSIBM.SYSTABLES AS INPUT FOR READ ACCESS ONLY.           

//**********************************************************************

//SYSUDUMP DD SYSOUT=*                          

//SYSOUT   DD SYSOUT=*                               

//SYSPRINT DD SYSOUT=*                                    

//SYSSNAP  DD SYSOUT=*                                                

//EZTVFM   DD UNIT=SYSDA,SPACE=(CYL,(10,2))                      

//SYSIN DD *                                                           

FILE SQLFILE SQL +                                                    

(SELECT NAME, CREATOR  +                                              

     FROM SYSIBM.SYSTABLES         +                                   

    INTO :NAME, :CREATOR)                                              

SQL INCLUDE LOCATION * FROM SYSIBM.SYSTABLES                          

DEFINE WS-COUNT    W   2  N  0

*                                                                     

JOB INPUT SQLFILE                                                      

WS-COUNT = WS-COUNT + 1                                             

IF WS-COUNT GT 10                                                     

STOP                                                                  

END-IF                                                                 

  PRINT RPT1                                                        

REPORT RPT1 LINESIZE 80                                               

TITLE   'TEST FOR PANSQL INSTALL'                                             

LINE     NAME  CREATOR                                                 

/*