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 

Passing symbolic parameter

 
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
coolguy
Beginner


Joined: 01 Dec 2004
Posts: 82
Topics: 28
PostPosted: Wed Sep 21, 2005 6:12 am    Post subject: Passing symbolic parameter Reply with quote
I running the rexx thru below Jcl here i want to pass sysboic parmeters to rexx

Like PROC C001 are pasing as Parms i want to the parms thru symbolic parameters is it possble ? Plas help me in that
Code:

//EDITMAC  EXEC PGM=IKJEFT01                           
//SYSEXEC  DD   DSN=MY.REXX.PGMS,DISP=SHR             
//ISPPROF  DD DSN=&&ISPPROF,DISP=(,PASS),             
//           UNIT=SYSDA,SPACE=(CYL,(1,1,10),RLSE),     
//           RECFM=FB,LRECL=80                         
//ISPPLIB  DD   DISP=SHR,DSN=SYS1.ISPPLIB             
//ISPMLIB  DD   DISP=SHR,DSN=SYS1.ISPMLIB             
//ISPSLIB  DD   DISP=SHR,DSN=SYS1.ISPSLIB             
//ISPTLIB  DD   DISP=SHR,DSN=SYS1.ISPTLIB             
//ISPLOG   DD   SYSOUT=*,DCB=(LRECL=125,RECFM=VBA)     
//SYSTSPRT DD   SYSOUT=*,DCB=LRECL=125                 
//SYSPRINT DD   SYSOUT=*                               
//SYSTSIN  DD   *                                     
  ISPSTART CMD(LASTREXX PROC C001)                     
/*
Back to top
View user's profile Send private message
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet
PostPosted: Wed Sep 21, 2005 7:19 am    Post subject: Reply with quote
coolguy,

If you are using Instream JCL, try this code.

Code:

//Jobcard....
//*
// SET PROC=PROCNAME,
//       C001=C00N
//*
//EDITMAC  EXEC PGM=IKJEFT01
//.....
//SYSTSIN DD *
  ISPSTART CMD(LASTREXX &PROC &C001)
/*


Note: This will not work for Catalogued procedures. You may want to use JCL INCLUDE statement for that. Search for INCLUDE in JCL forum, you will see lot of posts on passing symbolics dynamically.

Hope this helps,

Thanks,
Phantom
Back to top
View user's profile Send private message
superk
Advanced


Joined: 19 Dec 2002
Posts: 684
Topics: 5
PostPosted: Wed Sep 21, 2005 7:24 am    Post subject: Reply with quote
That's not going to work either.
Back to top
View user's profile Send private message
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet
PostPosted: Wed Sep 21, 2005 7:34 am    Post subject: Reply with quote
Superk,

What does it say ? Post your JCL error message.

Or, I must be missing something very basic.

Thanks,
Phantom
Back to top
View user's profile Send private message
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet
PostPosted: Wed Sep 21, 2005 7:38 am    Post subject: Reply with quote
Superk,

Quote:

That's not going to work either.


Are you talking about passing symbolics to Instream SYSTSIN or is this with reference to Coolguy's rexx problem.

Thanks,
Phantom
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
PostPosted: Wed Sep 21, 2005 7:44 am    Post subject: Reply with quote
Coolguy,

Try this

Code:

//STEP0100 EXEC PGM=IKJEFT1B,
//             PARM='%REXX-exec &parms'


Now pass the symbolics to parms.

Hope this helps...

Cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
coolguy
Beginner


Joined: 01 Dec 2004
Posts: 82
Topics: 28
PostPosted: Wed Sep 21, 2005 8:08 am    Post subject: Reply with quote
Hi Kolusu

//EDITMAC EXEC PGM=IKJEFT01, PARM='%REXX-exec &parms'
//SYSEXEC DD DSN=MY.REXX.PGMS,DISP=SHR
//ISPPROF DD DSN=&&ISPPROF,DISP=(,PASS),
// UNIT=SYSDA,SPACE=(CYL,(1,1,10),RLSE),
// RECFM=FB,LRECL=80
//ISPPLIB DD DISP=SHR,DSN=SYS1.ISPPLIB
//ISPMLIB DD DISP=SHR,DSN=SYS1.ISPMLIB
//ISPSLIB DD DISP=SHR,DSN=SYS1.ISPSLIB
//ISPTLIB DD DISP=SHR,DSN=SYS1.ISPTLIB
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,RECFM=VBA)
//SYSTSPRT DD SYSOUT=*,DCB=LRECL=125
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
ISPSTART CMD(LASTREXX PROC C001)
/*

i coded like this but i am getting errors , could u pls give some idea ? do we need to code Systsin dd also

Thanks
Cool
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
PostPosted: Wed Sep 21, 2005 8:13 am    Post subject: Reply with quote
Quote:

i coded like this but i am getting errors , could u pls give some idea ? do we need to code Systsin dd also


No you don't have to code the systsin. give the name of your rexx exec in the parm which is present in the pds MY.REXX.PGMS

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet
PostPosted: Wed Sep 21, 2005 8:14 am    Post subject: Reply with quote
Coolguy,

Quote:

do we need to code Systsin dd also


Don't use both. Either use PARM or SYSTSIN

And. Please use the BBCode {code} {/code} (Use [ & ] instead of { & }) while posting your code. That aligns your code better.

Thanks,
Phantom
Back to top
View user's profile Send private message
coolguy
Beginner


Joined: 01 Dec 2004
Posts: 82
Topics: 28
PostPosted: Wed Sep 21, 2005 8:21 am    Post subject: Reply with quote
Now i am getiin error
Code:

 IEC130I SYSTSIN  DD STATEMENT MISSING                               
 IEF450I REXXJCLA EDITMAC - ABEND=S000 U0102 REASON=00000000  791     
         TIME=09.14.42                                               
 ACTEX101  JOBNAME   STEPNAME  PROCSTEP  PROGRAM  CONDCODE           
 ACTEX101  REXXJCLA  EDITMAC             IKJEFT01  U0102             
 IEF404I REXXJCLA - ENDED - TIME=09.14.42                             
 $HASP395 REXXJCLA ENDED                                             

and The jcl I used is
 //EDITMAC  EXEC PGM=IKJEFT01,PARM='%LASTREXX &CYCLE'
//SYSEXEC  DD   DSN=MY.REXX.PGMS,DISP=SHR           
//ISPPROF  DD DSN=&&ISPPROF,DISP=(,PASS),           
//           UNIT=SYSDA,SPACE=(CYL,(1,1,10),RLSE), 
//           RECFM=FB,LRECL=80                     
//*ISPPROF  DD   DSN=YOURID.COPY.ISPPROF,DISP=SHR   
//ISPPLIB  DD   DISP=SHR,DSN=SYS1.ISPPLIB           
//ISPMLIB  DD   DISP=SHR,DSN=SYS1.ISPMLIB           
//ISPSLIB  DD   DISP=SHR,DSN=SYS1.ISPSLIB           
//ISPTLIB  DD   DISP=SHR,DSN=SYS1.ISPTLIB           
//ISPLOG   DD   SYSOUT=*,DCB=(LRECL=125,RECFM=VBA) 
//SYSTSPRT DD   SYSOUT=*,DCB=LRECL=125             
//SYSPRINT DD   SYSOUT=*                           
/*                                                 


could pls let me know where i went wrong

Thanks
Cool
Back to top
View user's profile Send private message
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet
PostPosted: Wed Sep 21, 2005 8:41 am    Post subject: Reply with quote
Coolguy,

DD SYSTSIN is required, but just leave it empty.

Code:

//SYSTSIN   DD  *
/*


Thanks,
Phantom
Back to top
View user's profile Send private message
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet
PostPosted: Wed Sep 21, 2005 8:44 am    Post subject: Reply with quote
Coolguy,

One more information. Kolusu's solution is just to show you how to pass parameters. But it will not solve the problem you have been experiencing with ISPEXEC. If you have any questions on this, continue your topic posted in REXX forums.

All reference to ISPF services require ISPSTART to be specified. Pls don't try to use the solutions provided in this thread with your ISPEXEC - SASTEST program.

Thanks,
Phantom
Back to top
View user's profile Send private message
coolguy
Beginner


Joined: 01 Dec 2004
Posts: 82
Topics: 28
PostPosted: Wed Sep 21, 2005 9:17 am    Post subject: Reply with quote
Thanks Phantom I'll continue the topic in Rexx forums

cool
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