View previous topic :: View next topic
|
Author |
Message |
Mansik Kim
New User
Joined: 15 Dec 2006 Posts: 29 Location: Korea
|
|
|
|
Hi all
I am working for develope ISPF panel display program.
I want to make panel with dynamic area and display multi line table,
but I don't know how.
The table low has each different attr fileds
Please let me know how to make panel.
Thanks,
Mansik |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
Back to top |
|
|
Mansik Kim
New User
Joined: 15 Dec 2006 Posts: 29 Location: Korea
|
|
|
|
Thanks Kevin
I have more questions for this topic.
How can I REXX coding for
LINE11, LINE12, LINE21, LINE22 have each attribute character
accotding each value.
following is rexx, panel and tbdispl result.
Please let me know
Thanks,
Mansik.
My REXX
=======
Code: |
/* REXX */
ADDRESS ISPEXEC
"CONTROL ERRORS RETURN"
"TBEND TBLIST"
"TBCREATE TBLIST NAMES(L1 L2) NOWRITE SHARE"
"TBOPEN TBLIST NOWRITE SHARE"
L1 = 'LINE11'
L2 = 'LINE12'
"TBADD TBLIST"
L1 = 'LINE21'
L2 = 'LINE22'
"TBADD TBLIST"
"TBTOP TBLIST"
DO WHILE (RC <> 8)
"TBDISPL TBLIST PANEL(PANEL2)"
END
"TBEND TBLIST"
EXIT 0
|
PANEL2
===========
Code: |
)ATTR
\ TYPE(TEXT) INTENS(LOW) COLOR(YELLOW)
! TYPE(TEXT) INTENS(LOW) COLOR(GREEN)
? TYPE(TEXT) INTENS(LOW) COLOR(YELLOW)
@ TYPE(TEXT) INTENS(LOW) COLOR(RED)
_ TYPE(NEF) PADC(USER)
# TYPE(OUTPUT) INTENS(LOW) COLOR(GREEN) FORMAT(MIX)
)BODY
%
%COMMAND ===> _ZCMD%
%
)MODEL ROWS(ALL)
_Z#L1 #L2
)INIT
.ZVARS = '(SEL01)'
&AMT = CSR
)PROC
)END |
===========================================
TBDISPL Result
===========
IBMUSER Row 1 of
COMMAND ===> .
LINE11 LINE12
LINE21 LINE22
******************************* Bottom of data ****************************** |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
Quote: |
How can I REXX coding for
LINE11, LINE12, LINE21, LINE22 have each attribute character
accotding each value. |
Your question is not clear... please elaborate. |
|
Back to top |
|
|
valyk
Active User
Joined: 16 Apr 2008 Posts: 104 Location: South Carolina
|
|
|
|
I believe he wants to allow each line to have an individual color. Take a look at dynamic areas with shadow attributes. You can dynamically define fields and attributes within your Rexx.
Code: |
)PANEL
< TYPE(INPUT) INTENS(HIGH) COLOR(GREEN) JUST(ASIS) CAPS(ON)
$ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) JUST(ASIS) CAPS(ON)
HILITE(REVERSE)
\ TYPE(TEXT) INTENS(LOW) COLOR(TURQ) JUST(ASIS) CAPS(ON)
! TYPE(TEXT) INTENS(HIGH) COLOR(GREEN) JUST(ASIS) CAPS(ON)
ยข TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) SKIP(ON)
| AREA(DYNAMIC) SCROLL(OFF) EXTEND(OFF)
01 TYPE(DATAIN) COLOR(BLUE) JUST(ASIS)
02 TYPE(DATAIN) COLOR(WHITE) JUST(ASIS)
03 TYPE(DATAIN) COLOR(RED) JUST(ASIS)
04 TYPE(DATAIN) COLOR(GREEN) JUST(ASIS)
05 TYPE(DATAIN) COLOR(TURQ) JUST(ASIS)
06 TYPE(DATAIN) COLOR(YELLOW) JUST(ASIS)
07 TYPE(DATAIN) COLOR(PINK) JUST(ASIS)
09 TYPE(DATAOUT) COLOR(TURQ) JUST(ASIS) SKIP(ON)
/* NORMAL FIELDS */
11 TYPE(CHAR) COLOR(BLUE)
12 TYPE(CHAR) COLOR(WHITE)
13 TYPE(CHAR) COLOR(RED)
14 TYPE(CHAR) COLOR(GREEN)
15 TYPE(CHAR) COLOR(TURQ)
16 TYPE(CHAR) COLOR(YELLOW)
17 TYPE(CHAR) COLOR(PINK)
/* REVERSE COLOR FIELDS */
21 TYPE(CHAR) COLOR(BLUE) HILITE(REVERSE)
22 TYPE(CHAR) COLOR(WHITE) HILITE(REVERSE)
23 TYPE(CHAR) COLOR(RED) HILITE(REVERSE)
24 TYPE(CHAR) COLOR(GREEN) HILITE(REVERSE)
25 TYPE(CHAR) COLOR(TURQ) HILITE(REVERSE)
26 TYPE(CHAR) COLOR(YELLOW) HILITE(REVERSE)
27 TYPE(CHAR) COLOR(PINK) HILITE(REVERSE)
/* UNDERLINED FIELDS */
31 TYPE(CHAR) COLOR(BLUE) HILITE(USCORE)
32 TYPE(CHAR) COLOR(WHITE) HILITE(USCORE)
33 TYPE(CHAR) COLOR(RED) HILITE(USCORE)
34 TYPE(CHAR) COLOR(GREEN) HILITE(USCORE)
35 TYPE(CHAR) COLOR(TURQ) HILITE(USCORE)
36 TYPE(CHAR) COLOR(YELLOW) HILITE(USCORE)
37 TYPE(CHAR) COLOR(PINK) HILITE(USCORE)
)BODY EXPAND(//)
|SCRN1,SHDW1 / / |
|SCRN2,SHDW2 / / |
|SCRN3,SHDW3 / / |
|SCRN4,SHDW4 / / |
|SCRN5,SHDW5 / / |
|SCRN6,SHDW6 / / |
|SCRN7,SHDW7 / / |
|SCRN8,SHDW8 / / |
|SCRN9,SHDW9 / / |
|SCRN10,SHDW10 / / |
)INIT
)REINIT
)PROC
)END |
|
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
Note that the dynamic area is a different animal than a table display.
In a table display, you can not have rows that are different than each other. But the scrolling is handled for you.
With a dynamic area, you can have different colors, but you have to do the scrolling yourself.
My opinion is that the colors are not worth the effort to handle the scrolling. |
|
Back to top |
|
|
|