IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How do I define panel for dynamic scroll area.


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Mansik Kim

New User


Joined: 15 Dec 2006
Posts: 29
Location: Korea

PostPosted: Thu Jul 29, 2010 9:24 am
Reply with quote

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
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Thu Jul 29, 2010 10:12 am
Reply with quote

There's an example here in this topic.
Back to top
View user's profile Send private message
Mansik Kim

New User


Joined: 15 Dec 2006
Posts: 29
Location: Korea

PostPosted: Thu Jul 29, 2010 10:56 am
Reply with quote

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
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Thu Jul 29, 2010 7:28 pm
Reply with quote

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
View user's profile Send private message
valyk

Active User


Joined: 16 Apr 2008
Posts: 104
Location: South Carolina

PostPosted: Thu Jul 29, 2010 8:10 pm
Reply with quote

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
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Fri Jul 30, 2010 2:13 am
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
No new posts DTL - how to define key with stacked ... TSO/ISPF 3
No new posts Using Dynamic file handler in the Fil... COBOL Programming 2
No new posts JCL Dynamic System Symbols JCL & VSAM 3
No new posts Call program, directly from panel CLIST & REXX 9
Search our Forums:

Back to Top