Good morning, Everyone!
We have had an interest in IVP jobs for CA Easytrieve DB2 jobs when running dynamically.
So, below is a sample of the JCL needed.
Please have a wonderful Tuesday, and please let me know if you have any questions or concerns!
Take Care!
Diana Shaw
Principal Tech Support Engineer
//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
/*