Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How do I define panel for dynamic scroll area.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
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    Post subject: How do I define panel for dynamic scroll area.
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

Moderator Team Head


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

PostPosted: Thu Jul 29, 2010 10:12 am    Post subject: Reply to: How do I define panel for dynamic scroll area.
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    Post subject:
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

Senior Member


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

PostPosted: Thu Jul 29, 2010 7:28 pm    Post subject: Reply to: How do I define panel for dynamic scroll area.
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    Post subject:
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

Senior Member


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

PostPosted: Fri Jul 30, 2010 2:13 am    Post subject: Reply to: How do I define panel for dynamic scroll area.
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    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm
No new posts Trace in CLIST PANEL cvnlynn CLIST & REXX 1 Thu Jun 22, 2017 11:06 pm
No new posts Dynamic output file creation in cobol... smileheal COBOL Programming 7 Thu Jun 15, 2017 10:53 pm
No new posts SCLM -- not installed -- panel ISRNOSLM dmitchell1105 IBM Tools 3 Fri Jun 09, 2017 10:41 pm
No new posts Dynamic split of files under groups sril.krishy DFSORT/ICETOOL 4 Mon Apr 17, 2017 1:09 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us