The following example provides a sample JCL stream for executing the Engine under DB2. This method must be used to access DB2 datastores on z/OS.
Execution of the Apply Engine under Db2 will use JCL similar to sample member SQDATADB included in the distribution.
Example 1
//SQDATADB JOB 1,MSGLEVEL=(1,1),MSGCLASS=H,REGION=0M,NOTIFY=&SYSUID
//*
//*--------------------------------------------------------------------
//* Execute the SQData Engine under IMS with DB2
//*--------------------------------------------------------------------
//* Note: 1) This Job may require specification of the Public/Private
//* Key pair in order to connect to a Capture/Publisher
//* running on another platform
//*
//* 2) To run the SQDATA Engine as a started task, refer to
//* member SQDAMAST
//*
//* Required DDNAME:
//* SQDFILE DD - File that contains the Parsed Engine Script
//*--------------------------------------------------------------------
//*
//JOBLIB DD DISP=SHR,DSN=SQDATA.V400.LOADLIB
// DD DISP=SHR,DSN=DFSE10.SDFSRESL
// DD DISP=SHR,DSN=DSNC10.SDSNLOAD
//*
//*QDATADB EXEC IMSBATCH,MBR=SQDATAI,PSB=DFSIVP2
//SQDATADB EXEC DLIBATCH,DBRC=N,MBR=SQDATAI,PSB=DFSIVP2,SSM=SUBS
//*
//SQDFILE DD DISP=SHR,DSN=SQDATA.V400.SQDOBJ(<ENGINE>)
//*
//*DDITV02 DD DISP=SHR,DSN=SQDATA.V400.PARMLIB(IMSDB2B)
//DDITV02 DD *
DBCG,SYS1,DSNMIN10,,R,,,SQDDDB2C,SQDATAI
//*
//DDOTV02 DD DSN=&&DDOTV02,DISP=(NEW,DELETE,DELETE),
// SPACE=(TRK,(1,1),RLSE),UNIT=SYSDA,
// DCB=(LRECL=4092,BLKSIZE=4096,RECFM=VB)
//*
//IMS DD DISP=SHR,DSN=USER.PSBLIB
// DD DISP=SHR,DSN=USER.DBDLIB
//DFSRESLB DD DISP=SHR,DSN=DFSE10.SDFSRESL
//DFSVSAMP DD DISP=SHR,DSN=DFSE10.DFSVSAMP(STANDARD)
//SORTLIB DD DISP=SHR,DSN=SYS1.SORTLIB
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
Example 2
//SQDATA EXEC PGM=IKJEFT01,DYNAMNBR=20
//SQDFILE DD DISP=SHR,DSN=SQDATA.SCRPTOUT
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(SQDATA) -
PLAN(SQDDDB2D) -
LIB('SQDATA.V400.LOADLIB') -
PARM('DD:SQDFILE')
/*| SQDATA EXEC PGM=IKJEFT01, PARM=’DLI, SQDATAI, TESTPSB’ | This DD specifies that the TSO command processor module IKJEFT01 is to be executed in order to allow the Engine to access DB2. The parameters listed under the SYSTSIN DD invoke the Engine. |
| SQDFILE Required | Refers to the parsed Apply Engine script uses as input to the Engine. |
| SYSTSPRT | This DD specifies the destination of the output from the TSO command processor module. |
| SYSPRINT | This DD specifies the destination of the Engine Runtime Report. |
| SYSTSIN | This DD specifies the input parameters to the TSO command processor module. The required parameters are:
|