I'm trying to write a rexx application to display variable output. I was hoping that defining a panel with a dynamic area,which was scrollable, would allow the panel to navigate up and down without returning to rexx. However, when using PF8(down) & PF7(UP) control is returned to the rexx application. Is my understanding of dynamic areas incorrect, must the rexx application control the scrolling ?
Regards
Barry
test rexx program :-
/*REXX*/
Lines = 50
GRDYN = COPIES(' ',80*Lines)
count = 0
DO WHILE count < Lines
count = count + 1
sPos = ((Count - 1)*80) + 1
ePos = count * 80
GRDYN = overlay('1',GRDYN,sPos)
GRDYN = overlay('2',GRDYN,ePos)
END
/**************************************
"ISPEXEC display PANEL(DYNAM)"
"ispexec vget (zcursor zcsroff zscreenw)"
/**************************************
SAY FDCSRFLD
SAY FDCSRPOS
say FDLINES
EXIT
Panel
)ATTR DEFAULT(%+!)
¦ AREA(DYNAMIC) extend(on) SCROLL(ON)
)BODY EXPAND(//) WIDTH(&ZSCREENW)
%----- Relationship Display -/-/--------------
%Command ===>!zcmd +/ / %SCROLL ===>!SC +
¦GRDYN / / ¦
)INIT
)PROC
&FDCSRFLD = .CURSOR
&FDCSRPOS = .CSRPOS
&FDLINES = LVLINE(GRDYN)
)END
Regards
Barry
test rexx program :-
/*REXX*/
Lines = 50
GRDYN = COPIES(' ',80*Lines)
count = 0
DO WHILE count < Lines
count = count + 1
sPos = ((Count - 1)*80) + 1
ePos = count * 80
GRDYN = overlay('1',GRDYN,sPos)
GRDYN = overlay('2',GRDYN,ePos)
END
/**************************************
"ISPEXEC display PANEL(DYNAM)"
"ispexec vget (zcursor zcsroff zscreenw)"
/**************************************
SAY FDCSRFLD
SAY FDCSRPOS
say FDLINES
EXIT
Panel
)ATTR DEFAULT(%+!)
¦ AREA(DYNAMIC) extend(on) SCROLL(ON)
)BODY EXPAND(//) WIDTH(&ZSCREENW)
%----- Relationship Display -/-/--------------
%Command ===>!zcmd +/ / %SCROLL ===>!SC +
¦GRDYN / / ¦
)INIT
)PROC
&FDCSRFLD = .CURSOR
&FDCSRPOS = .CSRPOS
&FDLINES = LVLINE(GRDYN)
)END