Pass data from panel to rexx dynamically

tvinodkumar7 · Posted: Tue Jul 21, 2015 5:24 pm

Hi All,

I have a panel which will be displayed first where I will be giving a JOB name to search in a particular PDS and gives the result.

Now how to pass the JOB name from panel to REXX. Please find below code for your reference.

DPANEL:

/* REXX */
ADDRESS ISPEXEC
'CONTROL ERRORS RETURN'
'LIBDEF ISPPLIB DATASET ID('"'"PDS"')"
'LIBDEF ISPMLIB DATASET ID('"'"PDS"')"

ADDRESS TSO
JOBNAME = &JOBNAME

ADDRESS ISPEXEC
'DISPLAY PANEL(NEWPAN1)'

IF PFKEY = 'PF03' THEN EXIT

ADDRESS ISPEXEC

'DISPLAY PANEL(NEWPAN2)'

IF PFKEY = 'PF03' THEN EXIT

Can anyone please help me how to pass the variable JOBNAME from panel to REXX ?

TIA

Akatsukami · Posted: Tue Jul 21, 2015 5:42 pm

If your Rexx script uses variables with the sames as the panel variables, they will be populated automatically.

Marso · Posted: Tue Jul 21, 2015 5:56 pm

Why do you have ADDRESS TSO ?
Why do you have so many ADDRESS ISPEXEC ?
Where does &JOBNAME come from ?
Why don't you check the return code after DISPLAY PANEL ?

tvinodkumar7 · Posted: Tue Jul 21, 2015 6:45 pm

Thank you all for your responses.

@Akatsukami
If they populate, Can you please let me know how to get in the REXX code ?

@Marso
I am very new to this REXX coding part. Can you please let me know if you have any corresponding code for my requirement.

TIA

Nic Clouston · Posted: Tue Jul 21, 2015 6:58 pm

The quickest way would be to look at other Rexx/ISPF applications at your site.

You shuld also look at the models available - read your online help or manuals.

If you have a vairaible in a panel, say myVar, and populate it from the panel then after the panel is terminated, usually f3, then you can simply use the variable myVar in your rexx program e.g. Say 'myVar = ' myVar

you really need to read the manuals - when F3 is pressed in a panel a return code is set so all you need to do is check for the value of rc. The models show what return codes are set.

Pedro · Posted: Tue Jul 21, 2015 9:07 pm

Mickeydusaor · Posted: Tue Jul 21, 2015 9:51 pm

Pedro you are correct on this.

Marso · Posted: Tue Aug 11, 2015 12:51 am

Better late than never:
Check these links:
www.ibmmainframes.com/viewtopic.php?t=13109
www.ibmmainframes.com/viewtopic.php?t=63066
It works the same today

don.leahy · Posted: Tue Aug 11, 2015 7:47 pm

Small nit: Do not assume that F3 always means END. The P in PFK stands for "programmable", so you user may have assigned another command to PFK3. That is why I recommend checking return codes (or the ZVERB variable) to see what the user did rather than try to figure out which function key was pressed.