Exemple JCL for overrid SDSNLOAD i storeproc

Hanne Lyssand

Exemple JCL for overrid SDSNLOAD i storeproc
Dear listserve members
Can anyone be willing to share an exampel JCL on how to switch between SDSNLOADS when one member is in v9.1 and the other in 8.
We have a naming convention that is not so good.

For the v9.1 system the name is SYS1.TEST.SDSNLOAD
The V8 have SYSS.DB1T.SDSNLOAD

I can make a copy of the datasets so that I can use &DB2SSN overrid but is there an other way?

Best regards
Hanne

Our current JCL:
//*************************************************************
//* DB2TW02 FOR VPS STORED PROCS PL1 /ASSEMBER/SQL
//*************************************************************
//DB2TW02 PROC RGN=0K,APPLENV=DB2TW02,DB2SSN=DB2T,NUMTCB=40
//IEFPROC EXEC PGM=DSNX9WLM,REGION=&RGN,TIME=NOLIMIT,
// PARM='&DB2SSN,&NUMTCB,&APPLENV'
//STEPLIB DD DISP=SHR,DSN=VS.TEST.LOAD
// DD DISP=SHR,DSN=SYS1.TEST.SDSNEXIT
// DD DISP=SHR,DSN=SYS1.TEST.SDSNLOAD
//JESJCLIN DD SYSOUT=X,HOLD=YES
//JESMSGLG DD SYSOUT=X,HOLD=YES
//JESJCL DD SYSOUT=X,HOLD=YES
//JESYSMSG DD SYSOUT=X,HOLD=YES
//SYSTSPRT DD SYSOUT=X,HOLD=YES
//SYSOUT DD SYSOUT=X,HOLD=YES
//SYSUDUMP DD SYSOUT=X,HOLD=YES
//SYSPRINT DD SYSOUT=X,HOLD=YES
//SYSERR DD SYSOUT=X,HOLD=YES
//STDOUT DD SYSOUT=X,HOLD=YES
//STDERR DD SYSOUT=X,HOLD=YES
//CEEDUMP DD SYSOUT=X,HOLD=YES
//IKSTHOI DD DUMMY


The IDUG DB2-L Listserv is only part of your membership in IDUG. DB2-L list archives, the FAQ, and delivery preferences are at http://www.idug.org/lsidug under the Listserv tab. While at the site, you can also access the IDUG Online Learning Center, Tech Library and Code Place, see the latest IDUG conference information, and much more. If you have not yet signed up for Basic Membership in IDUG, available at no cost, click on Member Services at http://www.idug.org/lsms

John McKown

Re: Exemple JCL for overrid SDSNLOAD i storeproc
(in response to Hanne Lyssand)
Have you considered using the new // INCLUDE JCL statement? You could
have 3 JCL members. One named DB2TW02, one DB2TEST, the other DB2DB1T.

DB2TW02 would look like:

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

//* DB2TW02 FOR VPS STORED PROCS PL1 /ASSEMBER/SQL

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

//DB2TW02 PROC RGN=0K,APPLENV=DB2TW02,DB2SSN=DB2T,NUMTCB=40

//IEFPROC EXEC PGM=DSNX9WLM,REGION=&RGN,TIME=NOLIMIT,

// PARM='&DB2SSN,&NUMTCB,&APPLENV'

//STEPLIB DD DISP=SHR,DSN=VS.TEST.LOAD

// INCLUDE MEMBER=DB2&DB2SSN

//JESJCLIN DD SYSOUT=X,HOLD=YES

//JESMSGLG DD SYSOUT=X,HOLD=YES

//JESJCL DD SYSOUT=X,HOLD=YES

//JESYSMSG DD SYSOUT=X,HOLD=YES

//SYSTSPRT DD SYSOUT=X,HOLD=YES

//SYSOUT DD SYSOUT=X,HOLD=YES

//SYSUDUMP DD SYSOUT=X,HOLD=YES

//SYSPRINT DD SYSOUT=X,HOLD=YES

//SYSERR DD SYSOUT=X,HOLD=YES

//STDOUT DD SYSOUT=X,HOLD=YES

//STDERR DD SYSOUT=X,HOLD=YES

//CEEDUMP DD SYSOUT=X,HOLD=YES

//IKSTHOI DD DUMMY



Member DB2TEST :



// DD DISP=SHR,DSN=SYS1.TEST.SDSNEXIT

// DD DISP=SHR,DSN=SYS1.TEST.SDSNLOAD



Member DB2DB1T:



// DD DISP=SHR,DSN=SYSS.DB1T.SDSNEXIT

// DD DISP=SHR,DSN=SYSS.DB1T.SDSNLOAD



The // INCLUDE would include the proper DSNs after the //STEPLIB as part
of the STEPLIB concatenation.




--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

This message (including any attachments) contains confidential
information intended for a specific individual and purpose, and its
content is protected by law. If you are not the intended recipient, you
should delete this message and are hereby notified that any disclosure,
copying, or distribution of this transmission, or taking any action
based on it, is strictly prohibited.



The IDUG DB2-L Listserv is only part of your membership in IDUG. DB2-L list archives, the FAQ, and delivery preferences are at http://www.idug.org/lsidug under the Listserv tab. While at the site, you can also access the IDUG Online Learning Center, Tech Library and Code Place, see the latest IDUG conference information, and much more. If you have not yet signed up for Basic Membership in IDUG, available at no cost, click on Member Services at http://www.idug.org/lsms