Page 1 of 1

Panel coding in rexx

PostPosted: Thu Aug 02, 2018 7:24 pm
by arunnambiar
I am working on a rexx program and need to understand panel coding. From where can I learn panel coding?

Re: Panel coding in rexx

PostPosted: Thu Aug 02, 2018 7:46 pm
by phunsoft
Start with the "z/OS ISPF Dialog Developer's Guide and Reference". You might also want to google for "ISPF Dialog Manager"

Re: Panel coding in rexx

PostPosted: Thu Feb 21, 2019 9:06 am
by georges
Hi,
If you have a PDS file let say: USERID.AAA.TEST
then create a member inside let say: PANEL1 with the content:

)PANEL                                
/* PANEL 1 CREATED */                  
)BODY WINDOW(50,5)                    
+ PANEL1 +                            
+ THIS IS THE TEST PANEL              
+                                      
+ % ENTER YOUR NAME PLEASE => _URNAME +
)END                                                                                                    
 

The panel is created with a field input: URNAME
then create a member inside let say: REXX1 with the content:

/* rexx to display panel1 */                          
"ispexec libdef ispplib dataset id('USERID.AAA.TEST')"
/*show*/                                              
"ispexec addpop"                                      
"ispexec display panel(PANEL1)"
/*F3 key to exit*/                        
if rc\=0 then do                                      
   say 'The panel is cancelled'                                
   exit                                                  
   end                                                    
else
   /*we will show the input field entry */                                                  
   say 'your name is' URNAME                              
exit                                                  
 

This REXX show the window and waits for a name or for a F3 key: If a value is entered the it shows this value and exit, if a F3 key is used the message will be: The panel is cancelled

Re: Panel coding in rexx

PostPosted: Thu Feb 21, 2019 2:10 pm
by willy jensen
The panel member must be in the ISPPLIB concatenation, or LIBDEFd (see LIBDEF in the 'ISPF Services Guide' manual). You should in any case have that manual ready, as the DISPLAY and TBDISPL services are described there.
The 'ISPF Dialog Developer's Guide and Reference' manual says that you can create panels using DTL or use panel definiton statements only. I say forget DTL. And forget CUA panels too untill you are comfortable with ordinary panels. Keep it simple.
A sample showing how to control the display attributes:
)ATTR                                                    
 + type(text) color(green) skip(on)                      
 % type(text) color(white) skip(on)                      
 # type(input ) color(turq  ) hilite(uscore) caps(on)    
 @ type(input ) color(turq  ) hilite(uscore) caps(off)  
 | area(scrl) extend(on)                                
)Body expand(\\)                                        
%\ \Header line\ \+                                      
%Cmd =>_zcmd \ \                                        
+                                                        
+                                                        
% High lighted text                                      
+                                                        
+ Prompt1         #input1                   +caps on    
+                                                        
+ Prompt2         @input1                   +caps off    
)Init                                                    
                                                         
)Proc                                                    
                                                         
)End                                                    

Re: Panel coding in rexx

PostPosted: Thu Feb 21, 2019 3:13 pm
by NicC
I think TS may have found out how to do it last summer!

Re: Panel coding in rexx

PostPosted: Thu Feb 21, 2019 7:11 pm
by willy jensen
;) must remember to check those dates

Re: Panel coding in rexx

PostPosted: Fri Feb 22, 2019 1:24 am
by prino
No threads should be closed (automagically) three to six months after they've last been posted into.

Re: Panel coding in rexx

PostPosted: Fri Feb 22, 2019 5:27 am
by georges
NicC wrote:I think TS may have found out how to do it last summer!

Good to know, thank you! May I know the post ?

Re: Panel coding in rexx

PostPosted: Fri Feb 22, 2019 2:14 pm
by enrico-sorichetti
if after having asked a question the TS does not continue the dialog,
there are two alternatives

1) has found the answer
2) has lost interest in the question

so reopeing a topic after 6 months is just a waste of resources