|
View previous topic :: View next topic
|
| Author |
Message |
bala kalluri
Warnings : 1
New User
Joined: 08 Jan 2009
Posts: 21
Location: INDIA
|
|
|
|
Hi all,
I have a panel which takes input a variable BLNUM, It’s a rexx program. When I execute this rexx program, at back end a jcl runs.
This jcl calls another rexx program. My requirement is I want to pass this variable BLNUM from one rexx program to another rexx program through the jcl. Is there any way to do so. Please advise. |
|
| Back to top |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| Quote: |
I have a panel which takes input a variable BLNUM, It’s a rexx program
|
You could not have chosen a worst wording 
You are running a rexx script which displays a panel, retrieving some values
You want to build a jcl stream to be submitted using somewhere the values entered in the panel .....
snippet to show the general flow
| Code: |
... housekeeping
Address ISPEXEC "DISPLAY PANEL(YourPanel)"
if RC <> 0 then do
... tell the user that some error has occurred
... or the user hit PF3
return 4
end
... use file tailoring services to customize the jcl to be submited
Address ISPEXEC "FTOPEN TEMP"
Address ISPEXEC "FTINCL YourSkel"
Address ISPEXEC "FTCLOSE"
Address ISPEXEC "VGET ZTEMPF"
Address TSO "SUBMIT ('"ZTEMPF"')"
... housekeeping to tell the user that the job was submitted
return 0
|
snippet to show how to trap the SUBMIT messages
| Code: |
call outtrap "out."
Address TSO "PROFILE MSGID"
Address TSO "SUBMIT ('"ZTEMPF"')"
Address TSO "PROFILE NOMSGID"
call outtrap "off"
do i = 1 to out.0
tmp = strip(out.i)
msg = strip(word(tmp,1))
if msg = "IKJ56250I" then do
parse var tmp . "(" jobid ")" .
say "==>" jobid
end
else do
say out.i
end
end
|
|
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
| Quote: |
| When I execute this rexx program, at back end a jcl runs. |
How is your JCL created? Show us your JCL. How is the second rexx program invoked? |
|
| Back to top |
|
|
|
|
