Re: accessing VSAM and PS files through DB2 stored procedure -
07-19-2009
, 11:29 PM
Thank you for replying. I appreciate it!
The JCL is as follows,
//************************************************** ***********
//* JCL FOR RUNNING THE WLM-ESTABLISHED STORED PROCEDURES
//* ADDRESS SPACE
//* RGN -- THE MVS REGION SIZE FOR THE ADDRESS SPACE.
//* DB2SSN -- THE DB2 SUBSYSTEM NAME.
//* NUMTCB -- THE NUMBER OF TCBS USED TO PROCESS
//* END USER REQUESTS.
//* APPLENV -- THE MVS WLM APPLICATION ENVIRONMENT
//* SUPPORTED BY THIS JCL PROCEDURE.
//*
//************************************************** ***********
//DSN1WLM PROC RGN=0K,APPLENV=DSN1WLM1,DB2SSN=DSN1,NUMTCB=8
//IEFPROC EXEC PGM=DSNX9WLM,REGION=&RGN,TIME=NOLIMIT,
// PARM='&DB2SSN,&NUMTCB,&APPLENV'
//STEPLIB DD DISP=SHR,DSN=DSN710.RUNLIB.LOAD
// DD DISP=SHR,DSN=OPERN.CICS1.LOADLIB
// DD DISP=SHR,DSN=OPERN.CICS3.LOADLIB
// DD DISP=SHR,DSN=CEE.SCEERUN
// DD DISP=SHR,DSN=DSN710.SDSNLOAD
//TRNSFIL DD DSN=ER29995.DB2.POC.TRANS.PS,DISP=SHR
//MASTFIL DD DSN=ER29995.DB2.POC.MASTER.VSAM,DISP=SHR
//SYSEXEC DD DISP=SHR, == Location of DSNTPSMP
// DSN=DSN710.SDSNCLST
//SYSTSPRT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSABEND DD DUMMY
//DSNTRACE DD SYSOUT=*
//*
//**** Data sets required by the SQL Procedures Processor
//SQLDBRM DD DISP=SHR, == DBRM Library
// DSN=DSN710.DBRMLIB.DATA
//SQLCSRC DD DISP=SHR, == Generated C Source
// DSN=DSN710.SRCLIB.DATA
//SQLLMOD DD DISP=SHR, == Application Loadlib
// DSN=DSN710.RUNLIB.LOAD
//SQLLIBC DD DISP=SHR, == C header files
// DSN=CEE.SCEEH.H
// DD DISP=SHR,
// DSN=CEE.SCEEH.SYS.H
//SQLLIBL DD DISP=SHR, == Linkedit includes
// DSN=CEE.SCEELKED
// DD DISP=SHR,
// DSN=DSN710.SDSNLOAD
//SYSMSGS DD DISP=SHR, == Prelinker msg file
// DSN=CEE.SCEEMSGP(EDCPMSGE)
//*
//**** DSNTPSMP Configuration File - CFGTPSMP (optional)
//* A site provided sequential dataset or member, used to
//* define customized operation of DSNTPSMP in this APPLENV.
//*CFGTPSMP DD DISP=SHR,DSN=
//*
//**** Workfiles required by the SQL Procedures Processor
//SQLSRC DD UNIT=SYSALLDA,SPACE=(23440,(20,20)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=23440)
//SQLPRINT DD UNIT=SYSALLDA,SPACE=(23476,(20,20)),
// DCB=(RECFM=VB,LRECL=137,BLKSIZE=23476)
//SQLTERM DD UNIT=SYSALLDA,SPACE=(23476,(20,20)),
// DCB=(RECFM=VB,LRECL=137,BLKSIZE=23476)
//SQLOUT DD UNIT=SYSALLDA,SPACE=(23476,(20,20)),
// DCB=(RECFM=VB,LRECL=137,BLKSIZE=23476)
//SQLCPRT DD UNIT=SYSALLDA,SPACE=(23476,(20,20)),
// DCB=(RECFM=VB,LRECL=137,BLKSIZE=23476)
//SQLUT1 DD UNIT=SYSALLDA,SPACE=(23440,(20,20)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=23440)
//SQLUT2 DD UNIT=SYSALLDA,SPACE=(23440,(20,20)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=23440)
//SQLCIN DD UNIT=SYSALLDA,SPACE=(32000,(20,20))
//SQLLIN DD UNIT=SYSALLDA,SPACE=(3200,(30,30)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//SQLDUMMY DD DUMMY
//SYSMOD DD UNIT=SYSALLDA,SPACE=(23440,(20,20)), = PRELINKER
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=23440) |