MVSFORUMS.com

[yadav2005]

hai,
I would like to pass say 5 different parameters in the parm parameter in
jcl to the pli program & in the program

I want to check for individual values passed via the parm parameter.when I found the correct input from any one of the inputs i gave in parm at the time I want to run the job with specific value ,say value "60" then I want to proceed further in the program other wise i want to come out of the program.

Edited by admin : Removed the uppercase posting

[Cogito-Ergo-Sum]

And, your question is?
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

[kolusu]

yadav2005,

Please do not post in uppercase. Posting uppercase is like shouting. I edited the post to be in lowercase. Any way check this link for a example of passing parms via JCL to a pli program.

http://www.mvsforums.com/helpboards/viewtopic.php?t=3572

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[yadav2005]

Hai,

I want to pass all the parameters & check only the third parameter in the list '&PSB' which is two bytes in my program & in the program how do i check the '&PSB' value
which may have different values at different runs.Moreover , i want to first read the value '&psb' in the program ,if it satisfies any one my values like '12' / '13' /,
'14' / '15' only,then i should proceed further in the program.


PARM=(BMP,PGMNAME,G&PSB.XX08,,,&PRELOAD,,,,,,UNIT)




Will the code below work for me :

DCL INPARMS CHAR(02);
DCL 1 PARMS BASED(ADDR(INPARMS)),
2 PARM_LENGTH FIXED BINARY(15) INIT(0),
2 PARM_VAR CHAR(02);

DCL WS_VAR CHAR(02);


WS_VAR = PARM_VAR;

[Mervyn]

WS_VAR will receive whatever happens to be in the two bytes following INPARMS. Is that what you're trying to achieve?
_________________
The day you stop learning the dinosaur becomes extinct

[Unspec]

Hi

Try ...