IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Symbolic paramters in instream proc?


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
vizaiinti

New User


Joined: 08 Feb 2007
Posts: 11
Location: Hyderabad

PostPosted: Fri Mar 21, 2008 1:00 am
Reply with quote

Can we use Symbolic paramters in instream proc?
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Fri Mar 21, 2008 1:01 am
Reply with quote

Yes.
Back to top
View user's profile Send private message
vizaiinti

New User


Joined: 08 Feb 2007
Posts: 11
Location: Hyderabad

PostPosted: Fri Mar 21, 2008 1:08 am
Reply with quote

if Yes, can you please help me with an example?
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Fri Mar 21, 2008 1:15 am
Reply with quote

Code:

//MYPROC PROC HLQ=&SYSUID                                       
//*                                                             
//PS01 EXEC PGM=IEFBR14                                         
//DD1  DD   DSN=&HLQ..MYTEST.DATA,DISP=(,CATLG,DELETE),         
//     UNIT=SYSDA,SPACE=(CYL,(1,1)),RECFM=FB,LRECL=80           
//*                                                             
//       PEND                                                   
//*                                                             
//JS01 EXEC MYPROC,HLQ=TEMP                                     


Try it like this, then change the last line to

//JS01 EXEC MYPROC

and try it again.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Fri Mar 21, 2008 1:26 am
Reply with quote

Hello,

Quote:
can you please help me with an example?

Here ya go. . .

Code:
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
//MXCC05PH PROC MOD=9,C=,CEN=20,ICNPFX=KT,F='FLIP.',RUNYYMM=8888       
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
//MSCC50X  EXEC PGM=MXCC50&MOD,PARM='  CP'                           
//ALLCLMS  DD DSN=MX.&C.CLAIMS.A&CEN.&RUNYYMM,DISP=SHR               
//CARDFILE DD DSN=MX.&ICNPFX.ICNS.&F.TEMP#7,DISP=SHR                 
//DATE     DD DSN=MX.RDS.PURGHIST.DATES(D&RUNYYMM),DISP=SHR           
//TEMPFLE  DD DSN=&&TEMP,DISP=(,PASS),UNIT=SYSDA,                     
//            SPACE=(CYL,(8,2),RLSE),                                 
//            DCB=(BLKSIZE=12750,LRECL=255,RECFM=FB)                 
//STDFLE   DD DSN=&&SRTD,DISP=(,PASS),UNIT=SYSDA,                     
//            SPACE=(CYL,(8,2),RLSE),                                 
//            DCB=(BLKSIZE=12750,LRECL=255,RECFM=FB)                 
//SORTFLE  DD DSN=&&SORT,DISP=(,PASS),UNIT=SYSDA,                     
//            SPACE=(CYL,(8,2),RLSE),                                 
//            DCB=(BLKSIZE=12750,LRECL=255,RECFM=FB)                 
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(8,1),RLSE)                       
//PRINTFLE DD SYSOUT=O,DEST=LOCAL                                     
//PRNTFLE1 DD SYSOUT=O,DEST=LOCAL                                     
//SYSOU1   DD SYSOUT=*                                                 
//SYSDBOUT DD SYSOUT=*                                                 
//SYSUDUMP DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//         PEND                                                         
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
//RUN0401  EXEC MXCC05PH,MOD=4,CEN=20,ICNPFX=KT,RUNYYMM=0401           
//RUN0402  EXEC MXCC05PH,MOD=4,CEN=20,ICNPFX=KT,RUNYYMM=0402           
//RUN0403  EXEC MXCC05PH,MOD=4,CEN=20,ICNPFX=KT,RUNYYMM=0403           
//RUN0404  EXEC MXCC05PH,MOD=4,CEN=20,ICNPFX=KT,RUNYYMM=0404           
//RUN0405  EXEC MXCC05PH,MOD=4,CEN=20,ICNPFX=KT,RUNYYMM=0405           
//RUN0406  EXEC MXCC05PH,MOD=4,CEN=20,ICNPFX=KT,RUNYYMM=0406           
//RUN0407  EXEC MXCC05PH,MOD=4,CEN=20,ICNPFX=KT,RUNYYMM=0407   
//         


This is part of something that runs regularly in production. Hopefully, i've not introduced any inconsistencies editing. . . icon_smile.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts pass data as symbolic parameter from ... CLIST & REXX 2
No new posts passing symbolic parameters through d... JCL & VSAM 3
No new posts Proc print in Mainframe All Other Mainframe Topics 4
No new posts trying to set return code in PROC JCL & VSAM 15
No new posts Execute DSNTEP2 in REXX which is call... CLIST & REXX 4
Search our Forums:

Back to Top