Panel coding in rexx
Previous topic • Next topic • 9 posts
• Page 1 of 1
Panel coding in rexx
by 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
by 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)
Re: Panel coding in rexx
by 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
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
by 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:
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
+ 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: 467
- Joined: Thu Mar 10, 2016 5:03 pm
- Has thanked: 0 time
- Been thanked: 70 times
Re: Panel coding in rexx
by 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
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
by willy jensen » Thu Feb 21, 2019 7:11 pm
must remember to check those dates- willy jensen
- Posts: 467
- Joined: Thu Mar 10, 2016 5:03 pm
- Has thanked: 0 time
- Been thanked: 70 times
Re: Panel coding in rexx
by 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
robert.ah.prins @ the.17+Gb.Google thingy
-
prino - Posts: 641
- Joined: Wed Mar 11, 2009 12:22 am
- Location: Vilnius, Lithuania
- Has thanked: 3 times
- Been thanked: 29 times
Re: Panel coding in rexx
by 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 ?
Re: Panel coding in rexx
by 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
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
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: 3006
- Joined: Fri Apr 18, 2008 11:25 pm
- Has thanked: 0 time
- Been thanked: 165 times
Previous topic • Next topic • 9 posts
• Page 1 of 1
-
- Related topics
- Replies
- Views
- Last post
-
- Rexx panel
by Julie » Fri Jun 24, 2011 3:02 pm - 5 Replies
- 7835 Views
- Last post by Julie
Fri Jun 24, 2011 7:57 pm
- Rexx panel
-
- How to disable options in REXX Panel
by Mann_B » Tue Jan 15, 2013 4:29 pm - 2 Replies
- 2639 Views
- Last post by Pedro
Tue Jan 15, 2013 7:56 pm
- How to disable options in REXX Panel
-
- can REXX simulate the ENTER key in panel
1, 2by jack_test » Mon Mar 04, 2013 7:19 am - 10 Replies
- 8899 Views
- Last post by wkdan
Fri Mar 22, 2013 8:54 pm
- can REXX simulate the ENTER key in panel
-
- Inoking REXX program from ISPF Panel
by kris0770 » Wed Aug 15, 2012 2:34 am - 2 Replies
- 3478 Views
- Last post by Pedro
Wed Aug 15, 2012 4:02 am
- Inoking REXX program from ISPF Panel
-
- help panel using panel definition statements
by aradhana11 » Wed Jul 15, 2015 8:06 pm - 3 Replies
- 3425 Views
- Last post by aradhana11
Thu Jul 16, 2015 8:30 am
- help panel using panel definition statements