|
|
| Author |
Message |
ranjanp
New User
Joined: 02 May 2006
Posts: 24
|
|
|
|
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 |
|
 |
References
|
|
 |
superk
Moderator Team Head
Joined: 26 Apr 2004
Posts: 3264
Location: Charlotte,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: 24
|
|
|
|
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: 255
|
|
|
|
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: 24
|
|
|
|
| thanks alot Kevin. This will be of great help... |
|
| Back to top |
|
|
|
|
