Easytrieve DB2 IVP job when running dynamically
Article ID: 56957
Updated On:
Products
Issue/Introduction
Below is a sample of the JCL/program needed to run an IVP job for an Easytrieve Db2 job when running dynamically.
Resolution
//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
/*
Feedback
