Panel with "PF11 - RIGHT" and "PF12 - LEFT" ???

[RexxInit]

Can we create REXX table with more than 80 LRECL and work in "normal" panel with "PF11 - RIGHT" and "PF12 - LEFT" ?

I know this panel have 80 lrecl and I know how to create « scrolling » panel with "PF7 - UP" and "PF8 - DOWN" ...

But I can't explain "PF11" and "PF12" in TSO (edit or browse menu) or SDSF panel?

I want able to see more larger information? And I think "PF11" and "PF12" is a solution for my problem...

But, I don't know how to create this with REXX language...

Can you help me?

 

[kevinf2349]

This is something that can be achieved using ISPF Panel definitons. Here is a much cropped definition that 'should' do what you want. This was a primary option panel so the selections are for facilities rather than 'more information, but hopefully it should give you the gist of how to do it.

)ATTR DEFAULT(%+_)
@ AREA(DYNAMIC) SCROLL(ON)
)BODY EXPAND("&quot
%"*" Test Menu "*"
%
% ===>_ZCMD +
% +USERID - &ZUSER
%
% X +EXIT - Terminate ISPF using list/log defaults
% @D@
+Scroll%UP+,%DOWN+,%LEFT+,or%RIGHT+for more options
%
+Enter%END+command to terminate ISPF.
%
)INIT
.HELP = ISR00003 /* HELP FOR THIS MASTER MENU */
&DYNAM = '+ '
)PROC
IF (&ZCMD = &Z)
IF (&ZVERB = UP,DOWN,RIGHT,LEFT)
&ZCMD = &ZVERB
IF (&ZCMD = &Zcmd)
&ZSEL = TRANS( TRUNC (&ZCMD,'.')
UP,'PANEL(PRIMUP)'
DOWN,'PANEL(PRIMDOWN)'
LEFT,'PANEL(PRIMLEFT)'
RIGHT,'PANEL(PRIMRGHT)'
' ',' '
X,'EXIT'
*,'?' )
)END

 

[rexxhead]

Kevin, have you actually done this? It has always been a matter of faith for me that left-right scrolling was not possible for ordinary panel applications.

Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster

 

[kevinf2349]

Frank

I have only done it from a primary panel so you may be correct. I have little doubt that it can be done in an assembler/ISPF application, but I am not too sure about directly from REXX.

Mybe I will have to get my sandbox out and have a little tinker over Christmas.

 

[KiwiREXXDude]

Surely this is an ISPF feature and it doesn't matter if it is being driven by REXX or Assembler? Once you do the "Display Panel" you pass control to ISPF.

 

[rexxhead]

In "Interactive System Productivity Facility (ISPF)/Dialog Developer's Guide and Reference (SC28-1273-04)" I found this:

5.2.2 Factors That Affect a Panel's Size
 
The total number of lines allowed in a panel definition depends upon the storage size available. Panel definitions can be 80-160 characters wide.  However, the width cannot be greater than that of the physical screen of the terminal used for the display.

That would seem to preclude the need for right-left scrolling. If the panel can't be wider than the physical screen, where would you scroll to?


Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster