MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Using 'SET' paramaters for JCL OVERRIDES

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
pcmoonbeam
Beginner


Joined: 21 Nov 2005
Posts: 31
Topics: 10
Location: Orange County, California

PostPosted: Tue Dec 12, 2006 4:38 pm    Post subject: Using 'SET' paramaters for JCL OVERRIDES Reply with quote

Our shop recently started expanding the use of the SET paramater for symbolic overrides to jcl. It works wonderfully for datasets, but I was wondering if it can also be used for symbolic overrides on instream data such as IDCAMS DELETE/DEFINES or input for DB2 programs. See examples below:
Code:

//  SET SYS=TF,   
//      DB2=DB2T   
//*               
...
//STEP0180 EXEC PGM=IKJEFT1B,DYNAMNBR=20                     
//SYSTSPRT DD  SYSOUT=*                                     
//SYSTSIN  DD  *                                             
 DSN SYSTEM(&DB2)                                           
 RUN  PROGRAM(RCOB270B) PLAN(FODBPLAN)                       
 END                                                         
/*                                                           


It would really simplify testing.
_________________
Thanks,
PCMOONBEAM
Back to top
View user's profile Send private message
dbzTHEdinosauer
Supermod


Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany

PostPosted: Tue Dec 12, 2006 6:23 pm    Post subject: Reply with quote

symbolics that are part of instream data will not resolve. Instead, suggest that you create members of a parm library containing what you want, and use the symbolics to resolve the dd statement pointing to the systsin dsn(mem(s).. remember, you can concatonate, so:
Code:

//  SET DB2=DB2T;
//         RUN=RCOB270B
//*
//SYSTSIN DD DSN=SYSTEM.PARMLIB(&DB2), DISP=SHR
//              DD DSN=SYSTEM.PARMLIB(&RUN), DISP=SHR
//              DD DSN=SYSTEM.PARMLIB(END), DISP=SHR

_________________
Dick Brenholtz
American living in Varel, Germany
Back to top
View user's profile Send private message
pcmoonbeam
Beginner


Joined: 21 Nov 2005
Posts: 31
Topics: 10
Location: Orange County, California

PostPosted: Wed Dec 13, 2006 2:26 pm    Post subject: Reply with quote

Thanks, that's what I thought, but was hoping otherwise.
_________________
Thanks,
PCMOONBEAM
Back to top
View user's profile Send private message
dz
Beginner


Joined: 02 Apr 2006
Posts: 26
Topics: 0

PostPosted: Thu Dec 14, 2006 1:02 pm    Post subject: Reply with quote

If you have Endevor on your system, you can use Endevor-supplied routine
that takes JCL PARM, and writes out to a file:

Quote:

//STEP002 EXEC PGM=C1PRMGEN,
// PARM=' DSN SYSTEM(&DB2) | RUN PROGRAM(RCOB270B) PLAN(FODBPLAN)'
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//PARMOUT DD DSN=&TEMP..DB2,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
...........................
//STEP0180 EXEC PGM=IKJEFT1B,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DSN=&TEMP..DB2,DISP=SHR
//*


Then, concatenate this file as first file in SYSTSIN.
Symbol | is used for newline split.
If you exceed 100-byte PARM length, just add another step to MOD more lines, if needed.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group