IBM Mainframe Forum

Hi all,

I want to Define some parameters in a JCL "DD Statement" and then, pass them all to rexx program with IKJEFT01.

I mean something like this:

//INP EXEC PGM=IKJEFT01,PARM='KRKH &LAUF_NUMM &account' <========================== calling rexx
//STEPLIB DD DISP=SHR,DSN=SYS2.DB2.ALIAS.DSNP.SDSNEXIT
// DD DISP=SHR,DSN=SYS2.DB2.ALIAS.DSNP.SDSNLOAD
//SYSEXEC DD DISP=SHR,DSN=V990909.PROG.REXX
//SYSIN DD * <========================= sample parameters
LAUF_NUMM=1983
Account='Mehrdad Rastegar'
.....

It doesn't work. Anyone has a solution, that works fine? or maybe a Sample?

Thanks in advance

Mehrdad

Sure, Address TSO "EXECIO * DISKR SYSIN (STEM TEXT. FINIS)" - or could you be more specific as to the requirements?
When you write 'it doesnt work', we really need details, and a code snippet of what you have tried already, otherwise it will be pure guesswork from any responder.

These users thanked the author willy jensen for the post:

vasanthz (Wed Sep 20, 2023 10:25 pm)

mehi1353 wrote:Hi all,

I want to Define some parameters in a JCL "DD Statement" and then, pass them all to rexx program with IKJEFT01.

I mean something like this:

Select all

//INP EXEC PGM=IKJEFT01,PARM='KRKH &LAUF_NUMM &account'   <========================== calling REXX            
//STEPLIB  DD DISP=SHR,DSN=SYS2.DB2.ALIAS.DSNP.SDSNEXIT    
//         DD DISP=SHR,DSN=SYS2.DB2.ALIAS.DSNP.SDSNLOAD    
//SYSEXEC  DD DISP=SHR,DSN=V990909.PROG.REXX              
//SYSIN  DD *                     <========================= sample parameters                        
     LAUF_NUMM=1983        
     Account='Mehrdad Rastegar'
     .....

It doesn't work. Anyone has a solution, that works fine? or maybe a Sample?

Thanks in advance

Mehrdad

1. Learn how to use the Code button.

2. Change your code to

Hello Sergey,

Thanks a lot.
There is a little problem. I had executed your code. It works and passes the parameters to my Rexx Program, but it seems that it works 2 times!

In rexx, I have written:
ARG LAUFNUMM
SAY 'LAUFNUMM= 'LAUFNUMM
ARG ACCOUNT
SAY 'ACCIUNT= 'ACCOUNT

and in JCL output, I see:

LAUFNUMM= 1983 MEHRDAD RASTEGAR
ACCIUNT= 1983 MEHRDAD RASTEGAR

I don't undestand why?

Thanks a lot and all the best

Because the ARG statement takes the entire parameter string. You need to parse the string like so:
The trailing dot is to take up any slack (blanks etc).
Please read up on the PARSE statement.

Actually, I probably should have shown it as

as the 'parse' verb causes the string to be parsed as is, without uppercase translation.

mehi1353 wrote:Hello Sergey,

Thanks a lot.
There is a little problem. I had executed your code. It works and passes the parameters to my Rexx Program, but it seems that it works 2 times!

In rexx, I have written:

Select all

ARG LAUFNUMM              
SAY 'LAUFNUMM= 'LAUFNUMM  
ARG ACCOUNT              
SAY 'ACCIUNT=  'ACCOUNT  

and in JCL output, I see:

Select all

LAUFNUMM= 1983 MEHRDAD RASTEGAR  
ACCIUNT=  1983 MEHRDAD RASTEGAR  

I don't undestand why?

Thanks a lot and all the best

1. Learn how to use the Code button, please!!!

2. There are several issues. Just samples, without comments

Sample 1




Sample 2. Same without uppercase conversion




Sample 3. Importance of a minor dot in PARSE statement




Sample 4. Same with uppercase conversion
ARG is equivalent to PARSE UPPER ARG !!!




Sample 5. In REXX, keywords and variable names are not case sensitive

3. I recommend you to RTFM about PARSE statement options, and about REXX features in general.
I cannot repeat here the REXX guide in full.
And you should not ask the Forum about every and each specific option, especially about the basic ones.

Hello again,

it works fine, just when th first argument has not any Blanks.

When I for example use this entry:

// SET LAUFNUMM='MAY 1983'
// SET ACCOUNT='MEHRDAD RASTEGAR'

I receive this output:

LAUFNUMM= MAY
ACCOUNT= 1983 MEHRDAD RASTEGAR

In rexx, I had used: PARSE ARG LAUFNUMM ACCOUNT

Special Thanks,
and
All the best

You really really must read up on the PARSE statement!
Quick solution:
Change the JCL to PARM='KRKH &LAUFNUMM,&account' , note the comma.
Change the parse statement to: arg laufnum','account
And do read up on the PARSE statement!