MVSFORUMS.com

kingo · Posted: Mon May 14, 2007 1:30 am Post subject: create panels using REXX

Hi,
How would i create panels using REXX.Can anyone help me?

Regds,
Kingo
_________________
IF YOU ARE NOT FOCUSSED ON GOAL ALL YOU SEE IS OBSTACLE.

Nic Clouston · Posted: Mon May 14, 2007 3:03 am Post subject:

I wouldn't - I would use the ISPF editor. But if you want use rexx then just assign each line to a stem variable and write the stem to a member of your panel PDS but it is easier using the editor and you can test each change using option 7.2
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

kingo · Posted: Mon May 14, 2007 3:17 am Post subject:

I am not clear with your explanation.Just tell me is it possible to find out the panel names or can we call any in-built panels.Please clarify.

Regds,
Kingo
_________________
IF YOU ARE NOT FOCUSSED ON GOAL ALL YOU SEE IS OBSTACLE.

Nic Clouston · Posted: Mon May 14, 2007 3:36 am Post subject:

Now I do not know what you are trying to do. Your first post suggsested you are trying to create source code for panels. Your latest post seems to infer that you want a rexx program that DISPLAYS panels - not create them. If you want to display them then use ISPEXEC. Look that up in the appropriate manual. If you want to display an existing panel you need to know it's name. To do that just enter the PANELID command at any panel and from then on the id of that panel will be displayed at the top left of the panel.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

Nic Clouston · Posted: Mon May 14, 2007 3:39 am Post subject:

Also - to aid you in your coding, use the MODEL command when creating you rexx program.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

kingo · Posted: Mon May 14, 2007 3:45 am Post subject:

yeah thanks suppose If i want to continue them.For example in option 3 if i give panelid
I will get the panel name and so that i can display them in my program suppose if i want
my program to do the same kind of things that each and every option does what am i supposed to do

Regds,
Kingo
_________________
IF YOU ARE NOT FOCUSSED ON GOAL ALL YOU SEE IS OBSTACLE.

kingo · Posted: Mon May 14, 2007 3:47 am Post subject:

I mean the option 3 as utility panel hope u got what i want.

Regds,
Kingo
_________________
IF YOU ARE NOT FOCUSSED ON GOAL ALL YOU SEE IS OBSTACLE.

Nic Clouston · Posted: Mon May 14, 2007 3:51 am Post subject:

look up the ISPEXEC DISPLAY statement - you will see it needs the panel name i.e. it's member name in the panel library. You have to supply it i.e. code it so, yes, you would have to go through every panel and note its name. But, if you just want to invoke browse, for example, on a dataset then you invoke the ISPEXEC BROWSE service. Look at the following manuals - SC34-4819-02 and SA22-7791-01 (ISPF Services Guide and Rexx Users Guide)
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

kingo · Posted: Mon May 14, 2007 4:11 am Post subject:

Thanks a lot Nic :d

Regds,
Kingo
_________________
IF YOU ARE NOT FOCUSSED ON GOAL ALL YOU SEE IS OBSTACLE.

kingo · Posted: Mon May 14, 2007 4:31 am Post subject:

Sorry to disturb you all again.Is it possible to create my own panel can u get me the guides which i could refer them.

Prem
_________________
IF YOU ARE NOT FOCUSSED ON GOAL ALL YOU SEE IS OBSTACLE.

Nic Clouston · Posted: Mon May 14, 2007 4:39 am Post subject:

Your best bet is to look at other panel source - try ISPPLIB library. Make use of the MODEL command and use the ISPF Dialog Developers Guide (SC34-4821-04 is the version I am using)
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

kingo · Posted: Mon May 14, 2007 5:03 am Post subject:

Oh Give me some transition too when you find time Smile

Regds,
Kingo
_________________
IF YOU ARE NOT FOCUSSED ON GOAL ALL YOU SEE IS OBSTACLE.

Nic Clouston · Posted: Mon May 14, 2007 5:13 am Post subject:

The other place to look for info - and problems encountered by others - is this forum! I just did a search on )ATTR and came up with quite a few hits.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

dbzTHEdinosauer · Posted: Mon May 14, 2007 6:10 am Post subject:

Kingo,

panels and rexx scripts are separate. panels have their own language and
can be driven with and without a separate rexx/hlasm/cobol/c driver.

you can write your own drivers to display and use any existing panel.

you are going to have to do some research and here is a good link to start:

http://www.schlabb.741.com/hints_ISPF.html
_________________
Dick Brenholtz
American living in Varel, Germany

kingo · Posted: Mon May 14, 2007 8:11 am Post subject:

[code:1:3715d53d71]
)ATTR
TYPE(PT) /* Panel title */
% TYPE(ET) /* Emphasized text */
+ TYPE(NT) /* Normal text */
_ TYPE(NEF) /* Normal entry field */
$ TYPE(AB) /* Action bar */
@ TYPE(ABSL) /* Action bar separator line */
)ABC desc(Menu)
PDC DESC('Save') ACTION RUN(SAVE)
PDC DESC('End') ACTION RUN(END)
PDC DESC('Cancel') ACTION RUN(CANCEL)
)ABCINIT
.zvars = 'MENUX'
)ABC DESC(Help)
PDC DESC('Extended Help...')
ACTION RUN(HELP)
)ABCINIT
.ZVARS = HELPX
.RESP = ENTER /* Don't even show choice */
/* This is an example and */
/* is NOT CUA.. */
)BODY WINDOW(48,6)
+$ Menu $ Help +
@
_________________
IF YOU ARE NOT FOCUSSED ON GOAL ALL YOU SEE IS OBSTACLE.