View previous topic :: View next topic
|
Author |
Message |
ranjanp
New User
Joined: 02 May 2006 Posts: 25
|
|
|
|
Hi All,
Can somebody help me out in creating a panel in the format given below:
XXXXX: __________ YYY: ______________ ZZZ: __ AAAAAAAA: __________
all the fields should be in the same line.
feilds names are: XXXXX the value will be a 10 byte field
YYY the value will be a 13 byte field
ZZZ the value will be a 2 byte value
AAAAAAAA the value will be 10 byte field.
the byte length also specifies the gap to be left between fields. |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
These are:
- Input fields or output fields or text fields?
- Justified LEFT, RIGHT, or ASIS?
- If they're input fields, is there padding required (underscores or blanks)?
- Is there any highlighting used? If so, what kind on what fields? |
|
Back to top |
|
|
ranjanp
New User
Joined: 02 May 2006 Posts: 25
|
|
|
|
Those are all input fields. all are left justified. underscores/blank both will do. yes if possible will like to highlight these fields.
My main intention was to ask others if they can provide a exhaustive document which can explain me how to go about creating panels in REXX from scratch.
Also if possible if you can provide me a sample code and explain few basic things in it. |
|
Back to top |
|
|
Kevin
Active User
Joined: 25 Aug 2005 Posts: 234
|
|
|
|
Rather than start from scratch, I'd use an appropriate panel MODEL:
First, from ISPF EDIT, I'd used the MODEL command:
Code: |
Command ===> MODEL Scroll ===> CSR
A***** ***************************** Top of Data ******************************
****** **************************** Bottom of Data ****************************
|
Then, from the Panel Models list, I'd select F0 PANFORM:
Code: |
Panel Models
Option ===> F0
Enter number or statement name.
Enter END command to cancel MODEL command.
More: -
S7 MODEL - )MODEL section header
S8 VER - Verify statement
S9 VPUT - Variable put statement
S10 REFRESH - Refetch variables prior to redisplay
S11 ATTRIBA - Other attribute types
S12 VGET - Variable get statement
S13 PANEXIT - Panel Language Exit
S14 ABC - Action bars
S15 KEYLIST - Keylist specification
S16 PDC - Action bar pull-down
S17 VEDIT - Validate a variable
S18 CUAATTR - CUA attributes
S19 *REXX - Rexx in panel procedures
P0 PANSECT - Panel Sections - Other definitions
Panel Formats:
F0 PANFORM
|
From PANFORM, I'd select F1 Entry for a Data Entry panel:
Code: |
Panel Formats
Option ===> F1
Enter number or format name.
Enter END command to cancel MODEL command.
F1 ENTRY - Data entry
F2 MULTIPLE - Multiple column
F3 SELECTION - Menu selection
F4 TBDISPL - Table Display
F5 TUTORIAL - Help/tutorial
F6 ACTION - CUA action bar panel
F7 SCROLL - Scrollable areas
F8 HELPSCR - Help/tutorial panels with scrollable areas
F9 P-S MENU - Menu selection with point-and-shoot fields
|
Yielding this code into the ISPF EDIT session:
Code: |
)ATTR DEFAULT(%+_)
/* % TYPE(TEXT) INTENS(HIGH) defaults displayed for */
/* + TYPE(TEXT) INTENS(LOW) information only */
/* _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) */
$ TYPE(INPUT) INTENS(LOW) PAD(_) /* input field padded with '_' */
! TYPE(INPUT) INTENS(LOW) PAD(' ') /* input field padded with ' ' */
_________________________________________________________________
| NOTE: When CAPS and JUST are omitted for an attribute, the |
| defaults are: |
| |
| - CAPS(OFF) JUST(ASIS) for INPUT and OUTPUT fields in |
| the )MODEL section of a TBDISPL panel, or for DATAIN |
| and DATAOUT fields in dynamic areas. |
| |
| - CAPS(ON) JUST(LEFT) for all other INPUT and OUTPUT |
| fields. |
|_________________________________________________________________|
)BODY
%-------------------- TITLE FOR ENTRY PANEL --------------------------
%COMMAND ===>_ZCMD
%
+ THIS DIRECTION LINE TELLS THE USER HOW TO USE THE PANEL:
+
+ FIRST PHRASE ......$V1 + Description for phrase 1
+ SECOND PHRASE ......$V2 + Description for phrase 2
+ THIRD PHRASE .......$V3 + Description for phrase 3
+ FOURTH PHRASE ......$V4 + Description for phrase 4
+ FIFTH PHRASE .......$V5 + Description for phrase 5
+ SIXTH PHRASE .......$V6 + Description for phrase 6
+ SEVENTH PHRASE .....$V7 + Description for phrase 7
+ EIGHTH PHRASE ......$V8 + Description for phrase 8
+ NINTH PHRASE .......$V9 + Description for phrase 9
+ TENTH PHRASE .......$V10 + Description for phrase 10
+ ELEVENTH PHRASE ....$V11 + Description for phrase 11
+ TWELFTH PHRASE ....$V12+ Description for phrase 12
+
+ LONG ENTRY FIELD ..!VX
+
+ OPTIONAL BOTTOM DIRECTION LINE.
+
)INIT
.HELP = TUTORPAN /* Insert name of tutorial panel */
)PROC
)END
|
Then, I'd just remove what I don't need, and add the format as you specified:
Code: |
)ATTR DEFAULT(%+_)
/* % TYPE(TEXT) INTENS(HIGH) defaults displayed for */
/* + TYPE(TEXT) INTENS(LOW) information only */
/* _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) */
$ TYPE(INPUT) INTENS(LOW) PAD(_) /* input field padded with '_' */
! TYPE(INPUT) INTENS(LOW) PAD(' ') /* input field padded with ' ' */
)BODY
%-------------------- TITLE FOR ENTRY PANEL --------------------------
%COMMAND ===>_ZCMD
%
+ THIS DIRECTION LINE TELLS THE USER HOW TO USE THE PANEL:
+
%XXXXX:$XXXXXX %YYY:$YYY %ZZZ:$ZZ%AAAAAAAA:$AAAAAAAA +
)INIT
.HELP = TUTORPAN /* Insert name of tutorial panel */
)PROC
)END
|
Yielding this when the panel is displayed:
Quote: |
-------------------- TITLE FOR ENTRY PANEL ----------------------------------
COMMAND ===>
THIS DIRECTION LINE TELLS THE USER HOW TO USE THE PANEL:
XXXXX: __________ YYY: _____________ ZZZ: __ AAAAAAAA: __________
|
You can find the panel definition parameters here in the z/OS V1R7.0 ISPF Dialog Developer's Guide.
You can find the ISPF Services Parmaters here in the z/OS V1R7.0 ISPF Services Guide. |
|
Back to top |
|
|
ranjanp
New User
Joined: 02 May 2006 Posts: 25
|
|
|
|
thanks alot Kevin. This will be of great help... |
|
Back to top |
|
|
shahin
New User
Joined: 24 Feb 2006 Posts: 15 Location: calicut
|
|
|
|
Hi,
I tried the MODEL command in the EDIT window. But I am not getting the above menu screen. Please help. The one I am getting is :
Code: |
Option ===>
Enter number or service name.
Enter END command to cancel MODEL command.
Variables Workstation Library Access
V1 VGET X1 FILESTAT L0 LIBACC
V2 VPUT X2 FILEXFER
V3 VERASE X3 WSCON Miscellaneous
X4 WSDISCON M0 MISC
Display
D1 DISPLAY
D2 TBDISPL File Tailoring
D3 SETMSG F1 FTOPEN
D4 PQUERY F2 FTINCL
D5 ADDPOP F3 FTCLOSE
D6 REMPOP F4 FTERASE
Tables
T1 TABLES |
|
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Try the command MODEL PANELS. |
|
Back to top |
|
|
shahin
New User
Joined: 24 Feb 2006 Posts: 15 Location: calicut
|
|
|
|
I tried the MODEL PANELS command, but still getting the same menu screen |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
You did not show the title line of the panel you see. I suspect it is 'CLIST Models'.
The models are different, depending on the file type of the dataset being edited. For example if you edit 'my.test.CLIST', it will show models for CLISTs. If you edit 'my.test.ISPPLIB', it will show models for panels.
If you use a unrecognized filetype, it should say 'invalid class' and ask you to select from a menu.
So, you need to create the panel using a dataset with the correct file type, or at least one that it does not recognize. |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
shahin, I'm sorry to have steered you in the wrong direction. According to the ISPF Edit user's guide, the command I gave you is supposed to work. It didn't work for me either when I tried it for myself.
Pedro's right. It looks as if the model will align itself with the type of dataset you have open. To make it work for me like it should, I opened a new member in my panel library (ISPPLIB) and entered the MODEL command and I got the panel models. I also tried creating a new dataset 'MYUSERID.PANELS' and did the same thing and got the same results. |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Ah, here's something that worked.
I entered the PROFILE command and I noticed that the default profile type was PDS. I then entered the command PROFILE PANELS, which changed the default profile type to PANELS. Then, MODEL gave me the correct panel models. |
|
Back to top |
|
|
shahin
New User
Joined: 24 Feb 2006 Posts: 15 Location: calicut
|
|
|
|
Thank you so much superk and pedro. I changed it to PROFILE PANELS and now its coming fine. |
|
Back to top |
|
|
UMAPATHY MARGABANDU
New User
Joined: 24 Jan 2011 Posts: 3 Location: india
|
|
|
|
Kevin,
Can you please tell me the command to run the program once you coded the panel. I tried to run using EXEC like a rexx program but i am getting error message. Please tell me the execution procedure of the panel program |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
It's all in the ISPF manuals, easily reached from the STICKY topic in the CLIST/REXX forum, or the IBM Manuals button at the top of any page.
Quick clue ISPEXEC DISPLAY
Also, this topic has been happily dormant for over two years, so please start a new topic next time. |
|
Back to top |
|
|
don.leahy
Active Member
Joined: 06 Jul 2010 Posts: 765 Location: Whitby, ON, Canada
|
|
|
|
Kevin, you were nearly right. The command is MODEL CLASS PANELS.
When the command is accepted, enter MODEL again and you will see the PANEL models.
ISPF uses the data set type only as a default when it has nothing else to go on. |
|
Back to top |
|
|
|