Portal | 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: 387
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

Global Moderator


Joined: 01 Sep 2006
Posts: 2205
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: 387
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 REXX script to beautify XML jzhardy CLIST & REXX 1 Sun Oct 11, 2020 1:23 pm
No new posts Unable to display comp variable shub2204 COBOL Programming 4 Fri Oct 02, 2020 7:05 pm
No new posts How to setup MQ panel wang_f_y1 TSO/ISPF 3 Wed Sep 16, 2020 9:32 pm
No new posts TWS PIF (EQQYCOM) Rexx - Occurrence S... Richard Baker IBM Tools 0 Wed Sep 16, 2020 10:45 am
No new posts Call Natural program with rexx shahaf CLIST & REXX 2 Tue Sep 08, 2020 11:22 am

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