Rexx panel



TSO Programming, ISPF, SDF, SDSF and PDF, FTP, TCP/IP Concepts, SNA & SNA/IP etc...

Rexx panel

Postby Julie » Fri Jun 24, 2011 3:02 pm

Hello all.
I try to display a table in a rexx panel in which we can select several DDNAMEs. This panel looks like that.
PDS NAME ===> ________________________                                                  
                                                             
Select     DDNAME                                               
_     JESMSGLG                                             
_     JESJCL                                               
_     JESYSMSG                                             
_     TOOLMSG                                             
_     DFSMSG                                               
_     OUT01                                               

I manage to display this panel, my problem is to return the several inputs put in Select column.
I use a table to display the DDNAME and the inputs have "the same name".
My code is the following.
)BODY WINDOW(62,20) EXPAND(çç)                                         
+                                                                       
+PDS NAME ===>µZ                                                       
%                                                                       
¤Select ¤DDNAME                                                         
)MODEL                                                                 
µZ+     {Z                                                             
)INIT                                                                   
.ZVARS = '(DSN S DDNAME)'                                               
&VARLIST = 'O,N'                                                       
.ATTR(S) = 'JUST(LEFT)'                                                 
.ATTR(DDNAME) = 'JUST(LEFT)'                                           
.CURSOR = 'DSN'                                                         
&ZTDMARK = 'PF3 : RETOUR'                                               
)PROC                                                                   
&KEY = .PFKEY                                                           
VER (&CHOIX,LISTV &VARLIST)                                             
)END                                                                   
Julie
 
Posts: 21
Joined: Tue May 03, 2011 12:45 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Rexx panel

 

Re: Rexx panel

Postby prino » Fri Jun 24, 2011 4:05 pm

REXX panels do not exist, learn to use correct terminology!
Robert AH Prins
robert.ah.prins @ the.17+Gb.Google thingy
User avatar
prino
 
Posts: 536
Joined: Wed Mar 11, 2009 12:22 am
Location: Oostende, Belgium
Has thanked: 3 times
Been thanked: 21 times

Re: Rexx panel

Postby enrico-sorichetti » Fri Jun 24, 2011 4:52 pm

here is a good source for ideas on how to develop an ISPF application
http://publibz.boulder.ibm.com/cgi-bin/ ... 1028105440
old but still very useful
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2644
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 130 times

Re: Rexx panel

Postby Julie » Fri Jun 24, 2011 6:43 pm

Sorry ISPF panel.
Thanks enrico, I still can not get several variables. I get the first selected DDNAME and I don't find examples of rexx code which show how to get all the variables. I only find the part which code ispf panel
Julie
 
Posts: 21
Joined: Tue May 03, 2011 12:45 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Rexx panel

Postby mongan » Fri Jun 24, 2011 7:47 pm

This is just a piece of the necessary code:
do while trc < 8 /* repeat until PF3 */
"CONTROL ERRORS RETURN"
"TBDISPL" mem "PANEL(FAHRPL1)"
trc = rc
/********** process the Line-Commands ****************************
do while ZTDSELS > 0
'CONTROL DISPLAY SAVE'
lcmd = translate(lcmd) /* line command uppercase */

The panel fields have the value of the line where you entered the line command. This should help you, look at examples in your shop - this will help you also to see the standards that are used in your shop for names and design of the rexx and panels.
User avatar
mongan
 
Posts: 212
Joined: Tue Jan 11, 2011 8:32 pm
Has thanked: 1 time
Been thanked: 5 times

Re: Rexx panel

Postby Julie » Fri Jun 24, 2011 7:57 pm

Thanks mongan.
Julie
 
Posts: 21
Joined: Tue May 03, 2011 12:45 pm
Has thanked: 0 time
Been thanked: 0 time


Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post