| View previous topic :: View next topic |
| Author |
Message |
Nancy
Beginner
Joined: 23 May 2003
Posts: 77
Topics: 26
|
 Posted: Mon Oct 20, 2003 1:16 am Post subject: Panel size |
 |
|
Can anybody suggest the attributes to control the size of the panel ? Suppose I want a small panel to be displayed at the top right corner of the screen, how to do that ?
Thanks |
|
| Back to top |
|
 |
Phantom
Data Mgmt Moderator
Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet
|
| Posted: Mon Oct 20, 2003 3:52 am Post subject: |
|
|
Nancy,
The Panel size can be controlled by providing the two things listed below:
1. WINDOW(cols, rows) in the )BODY section of the Panel definition.
2. ADDPOP command in the REXX program which invokes the panel.
Example:
Panel definition:
| Code: |
)PANEL
)ATTR
$ TYPE(TEXT) INTENS(LOW)
? TYPE(OUTPUT) INTENS(HIGH) JUST(ASIS)
)BODY WINDOW (50, 4)
?Z $
?Z $
)INIT
.ZVARS = '(LSTATUS +
LMSG)'
)PROC
)END
|
REXX Exec:
| Code: |
LSTATUS = CENTER('SCANNING JCL',40)
LMSG = CENTER('PLEASE WAIT !!!', 40)
"ISPEXEC ADDPOP ROW(9) COLUMN(9)"
"ISPEXEC DISPLAY PANEL(DDFM200P)"
"ISPEXEC REMPOP"
|
When the piece of REXX code shown above is executed. The panel will be displayed as a small window (POPUP) over the current screen at Position (9, 9) as mentioned by the ROW(9) and COLUMN(9) keywords in the Addpop command.
Just try changing the ROW(n) and COLUMN(m) values to position your popup window (panel) in a desired position.
Thanks |
|
| Back to top |
|
|
Nancy
Beginner
Joined: 23 May 2003
Posts: 77
Topics: 26
|
| Posted: Mon Oct 20, 2003 4:00 am Post subject: |
|
|
| Thanks Phantom. Its working fine. |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
