how to implement PF10 and PF11 in a rexx panel

[rvemuri]

Hi,

I have a requirment where in based on the copybook the user enters in one panel. I need to open another panel with Scrolling effect that would list out all the variables in the coopybook and user should be able to enter data against each of the variables listed.

In order to acheive this I would like to have Left Right moment of the panel (use PF10 and PF11) keys.

Could any let me know how to implement this.

 

[rexxhead]

Can't be done. See thread277-719951. Search for "scroll left" and it will pop right up.



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

 

[TonyJollans]

I agree - ISPF does not cater for left/right scrolling of panels. But there is nothing to stop you mimicing the scrolling behaviour by using multiple panels, although I would recommend trying to find another way of presenting your data to avoid the requirement.

Enjoy,
Tony

------------------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading FAQ222-2244 before you ask a question.

 

[rexxhead]

A friend of mine claims to have solved this problem. I'm trying to get a copy of his code right now.

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

 

[rexxhead]

I talked to Chris Lewis and he said it was OK with him to post his code. Since it's pretty elaborate, 'm just going to post some excerpts to illustrate how he did it.

First: on the panel the header lines and the model lines are variables:

@DISP1
@DISP2
)MODEL ROWS(ALL)
&MDL1
&MDL2

The REXX code sets these variables:

   disp1a   = "Name         Address              City         St"
   disp1b   = "Name         Email                Phone          "
   disp2a   = "------------ -------------------- ------------ ------------"
   disp2b   = "------------ -------------------- ------------"
   
   disp1    = disp1a
   disp2    = disp2a
   
   rv1      = "@NAME        #ADDRESS             #CITY        #STATE+   "
   rv2      = "@NAME        #EMAIL               #PHONE      +"
   rv3      = "             #ACCOUNT   +"
   mdl1     = rv1
   mdl2     = "OMIT"

Note the "OMIT" which indicates there isn't a second model line for this format. Later on in the code where the panel is processed, certain PFkeys cause the header and model values to change:

   do forever
     "TBDISPL" tbl "PANEL(QDPNL1)"
      if pfkey = "PF3" | rc > 4 then leave
 
      select
         when pfkey = "PF11" then do
            mdl1  = rv2
            disp1 = disp1b
            disp2 = disp2b
            end
 
         when pfkey = "PF12" then
            mdl2 = rv3

Pretty slick. Pretty simple and straight-forward.


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