Panel coding in rexx



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

Panel coding in rexx

Postby arunnambiar » Thu Aug 02, 2018 7:24 pm

I am working on a rexx program and need to understand panel coding. From where can I learn panel coding?
arunnambiar
 
Posts: 1
Joined: Thu Aug 02, 2018 7:13 pm
Has thanked: 1 time
Been thanked: 0 time

Re: Panel coding in rexx

Postby phunsoft » Thu Aug 02, 2018 7:46 pm

Start with the "z/OS ISPF Dialog Developer's Guide and Reference". You might also want to google for "ISPF Dialog Manager"
Peter

These users thanked the author phunsoft for the post:
arunnambiar (Thu Aug 02, 2018 7:47 pm)
phunsoft
 
Posts: 14
Joined: Thu Jul 26, 2018 10:35 am
Has thanked: 0 time
Been thanked: 2 times

Re: Panel coding in rexx

Postby georges » Thu Feb 21, 2019 9:06 am

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
georges
 
Posts: 2
Joined: Sat Nov 17, 2018 11:22 am
Has thanked: 5 times
Been thanked: 0 time

Re: Panel coding in rexx

Postby willy jensen » Thu Feb 21, 2019 2:10 pm

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                                                    

These users thanked the author willy jensen for the post:
georges (Fri Feb 22, 2019 5:22 am)
willy jensen
 
Posts: 455
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 69 times

Re: Panel coding in rexx

Postby NicC » Thu Feb 21, 2019 3:13 pm

I think TS may have found out how to do it last summer!
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 3025
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisies (almost)
Has thanked: 4 times
Been thanked: 136 times

Re: Panel coding in rexx

Postby willy jensen » Thu Feb 21, 2019 7:11 pm

;) must remember to check those dates
willy jensen
 
Posts: 455
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 69 times

Re: Panel coding in rexx

Postby prino » Fri Feb 22, 2019 1:24 am

No threads should be closed (automagically) three to six months after they've last been posted into.
Robert AH Prins
robert.ah.prins @ the.17+Gb.Google thingy
User avatar
prino
 
Posts: 635
Joined: Wed Mar 11, 2009 12:22 am
Location: Vilnius, Lithuania
Has thanked: 3 times
Been thanked: 28 times

Re: Panel coding in rexx

Postby georges » Fri Feb 22, 2019 5:27 am

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 ?
georges
 
Posts: 2
Joined: Sat Nov 17, 2018 11:22 am
Has thanked: 5 times
Been thanked: 0 time

Re: Panel coding in rexx

Postby enrico-sorichetti » Fri Feb 22, 2019 2:14 pm

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
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

These users thanked the author enrico-sorichetti for the post:
georges (Sun Feb 24, 2019 7:30 am)
enrico-sorichetti
Global moderator
 
Posts: 2994
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 164 times


Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post