Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Unable to scroll in REXX panel

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
KeshavKunal

New User


Joined: 21 Jul 2020
Posts: 4
Location: India

PostPosted: Tue Jul 21, 2020 3:55 pm    Post subject: Unable to scroll in REXX panel
Reply with quote

Hi All,

Scroll is not working in the Panel.
As soon as I press PF7 or PF8, the panel is disappearing and next piece of code is executing.

Please help in making the scroll work.

Below is the REXX

ftblname declaration

Code:
ftblname = 'SETFLD01'                                 
address ispexec 'tbcreate ' ftblname ' keys(field) ' ,
   ' names(type len stpos)' replace


REXX Code displaying panel and processing data entered in panel
Code:
ztdsels = 0
cursor_loc = "CSRROW(1) CURSOR(C)"
ADDRESS ISPEXEC   
"TBTOP   " ftblname
"TBSKIP  " ftblname
"TBDISPL " ftblname "PANEL(filtdisp) AUTOSEL(NO)" cursor_loc

                                                             
 do while ztdsels > 0                                       
     <<<<<codes for further processing>>>>>                     
     ztdsels = ztdsels - 1                                   
     if ztdsels > 0 then "TBDISPL  " ftblname               
 end     



FILTDISP PANEL

Code:
)attr                                                         
   * area(scrl) extend(on)                                   
   $ type(input) hilite(uscore) color(green) caps(on)         
   + type(text) intens(high) color(turq) skip(on)                   
   # type(text)  intens(high) color(blue) skip(on)           
   % type(output)  intens(high) color(blue)                   
)body                                                         
+ COMMAND===> $ZCMD                    / /+SCROLL ===> $AMT+ 
+                                                                         
+----------------------------------------------------------- 
!Option   Fieldname                   Operator(Default - OR) 
+----------------------------------------------------------- 
)MODEL ROWS(&rowscan)                                         
 $c#     %field                          $op #               
)init                                                         
 &amt = csr                                                   
)proc                                                         
 &keypress = .PFKEY                                           
)end                                                         
Back to top
View user's profile Send private message

Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 373
Location: Denmark

PostPosted: Tue Jul 21, 2020 8:57 pm    Post subject:
Reply with quote

A quick test worked for me. Are you sure that pf7 and pf8 are set correctly? Try the UP and DOWN commands instead.
You are missing the EXPAND(//) parameter in the BODY statement, an attribute definition for '!' and a title line, but that is not the cause for the problem.
Back to top
View user's profile Send private message
KeshavKunal

New User


Joined: 21 Jul 2020
Posts: 4
Location: India

PostPosted: Wed Jul 22, 2020 10:55 am    Post subject:
Reply with quote

PF7 or PF8 (or UP/DOWN) is working fine when nothing is typed in the fields (Option & Opeartor)

As soon as data is entered and PF7/PF8 is pressed, screen is disappearing

Willy Jensen wrote:
A quick test worked for me. Are you sure that pf7 and pf8 are set correctly? Try the UP and DOWN commands instead.
You are missing the EXPAND(//) parameter in the BODY statement, an attribute definition for '!' and a title line, but that is not the cause for the problem.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Wed Jul 22, 2020 11:02 am    Post subject: Reply to: Unable to scroll in REXX panel
Reply with quote

Quote:
As soon as something is typed and PF7/PF8 is pressed, screen is disappearing


When you touch one of the rows, that causes your ztdsels loop to be executed so that you can process the information.

You need your first TBDISPL to be inside another DO WHILE loop so that the panel is displayed again after the rows are processed. Do while RC=0, I think.
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 373
Location: Denmark

PostPosted: Thu Jul 23, 2020 2:51 am    Post subject:
Reply with quote

Quote:
As soon as data is entered

You did not mention that in your original post. As Pedro says, that is why the TBDISPL terminates. UP or DOWN alone do not terminate TBDISPL. Pedro's solution is the correct one.
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts ISPF Panel commands DDLIST /LISTBOX Wesley TSO/ISPF 2 Thu Aug 06, 2020 11:25 pm
No new posts CA Sysview - JCL or Rexx - Read or Ex... Jasi CA Products 4 Wed Aug 05, 2020 9:19 pm
This topic is locked: you cannot edit posts or make replies. Invoke REXX thru JCL to expand the co... spizen556 CLIST & REXX 2 Sun Jul 26, 2020 3:53 pm
No new posts REXX tool to extract all files starti... KeshavKunal CLIST & REXX 4 Tue Jul 21, 2020 3:43 pm
No new posts IOF reading using REXX paval21 CLIST & REXX 0 Mon Jun 15, 2020 9:44 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us