Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ISPF Table Scrolling issue

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
ermanjitsingh

New User


Joined: 08 Jun 2009
Posts: 19
Location: Banglore

PostPosted: Tue Jul 14, 2009 6:38 pm    Post subject: ISPF Table Scrolling issue
Reply with quote

Hi..

I read somewhere in the previous post that table scrolling is implicit. It will automatically work.

When i am executing my code after allocating my rexx code to SYSEXEC the scrolling is not working.
But if i run from ISPF 7.1 option then the scrolling is working by using UP and DOWN.


Let me tell u what this 7 and 1 option in my ISPF is:

7- DIALOG TEST - Perform Dialog testing

1 Functions Invoke dialog functions/selection panel


I don't know why its happening like this.

IF scrolling does not work in both cases then i can say that yes, there can be problem in my code.

But here in one case(from 7.1 option) it is working & in other case it is not working.

Does anyone have any idea about this ?
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Tue Jul 14, 2009 6:52 pm    Post subject: Reply to: ISPF Table Scrolling issue
Reply with quote

You're displaying your table and showing the results in a panel using the TBDISPL Service, correct?
Back to top
View user's profile Send private message
ermanjitsingh

New User


Joined: 08 Jun 2009
Posts: 19
Location: Banglore

PostPosted: Tue Jul 14, 2009 8:35 pm    Post subject: Re: Reply to: ISPF Table Scrolling issue
Reply with quote

superk wrote:
You're displaying your table and showing the results in a panel using the TBDISPL Service, correct?



Yes right. i m displaying using TBDISPL only
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Tue Jul 14, 2009 9:22 pm    Post subject: Reply to: ISPF Table Scrolling issue
Reply with quote

How big is your table (number of rows)?

Tell us about the panel. What PFkey definitions are used?
Back to top
View user's profile Send private message
ermanjitsingh

New User


Joined: 08 Jun 2009
Posts: 19
Location: Banglore

PostPosted: Tue Jul 14, 2009 10:40 pm    Post subject: Re: Reply to: ISPF Table Scrolling issue
Reply with quote

Pedro wrote:
How big is your table (number of rows)?

Tell us about the panel. What PFkey definitions are used?


My requirment is that table can contain 20 to 25 rows.

PF key definitions still i havn't coded. That i have to to.

In the panel first few lines contain some fields.

From the mid of the panel i m displaying my table.And i am inserting the values in the table thru the panel only as in the following code.

Code:


/*****************************************************/
/* TABLE DISPLAY FUNCTION DEFNIATION     */
/*****************************************************/
TableDisplay:
/* Position the CRP at the top of the table. */
pnl = "PANEL(VCODEPNL)"
"TBTOP VCDTBL"
csr = 'vcpgmid'
row = 1
rcc = 0
/*if abbrev('DEBUG',ARG(1),3) then
  trace R */
 /*****************************************************/
 /* Display the table until the user exits or an */
 /* occurs. Initial TBDISPL specifies a panel name. */
 /* Subsequent TBDISPLs do not specify a panel name */
 /* allowing the processing of the rows selected by */
 /* the user. */
 /*****************************************************/
 "ISPEXEC addpop"
 DO WHILE rcc < 8
 "TBDISPL VCDTBL" pnl " CURSOR("csr") CSRROW("row") POSITION(crp)
 AUTOSEL(NO)"
 rcc = RC
    IF rcc < 8 THEN DO
       pnl = ""
       SELECT
       /***********************************************/
       /* Process a user request to insert a new, */
       /* empty row in the table. */
       /***********************************************/
       WHEN vcsel = "I" THEN DO
         "TBVCLEAR VCDTBL"
         "TBADD VCDTBL"
          ADDRESS ISPEXEC "SETMSG MSG(VCMSG103)"
          csr = 'vcfl'
          row = crp+1
       END
       /***********************************************/
       /* Process a user request to insert a new, */
       /* empty row in the table with the prvious row values*/
       /***********************************************/
       WHEN vcsel = "R" THEN DO
         "TBADD VCDTBL"
          ADDRESS ISPEXEC "SETMSG MSG(VCMSG103)"
          csr = 'vcfl'
          row = crp+1
       END
       /***********************************************/
       /* Process a user request to delete a row */
       /* from the table. */
       /***********************************************/
       WHEN vcsel = "D" THEN DO
          "TBDELETE VCDTBL"
          csr = 'vcsel'
          IF crp < ztdrows THEN
              row = crp
          ELSE
             row = crp-1
       END
     /***********************************************/
     /* Process a user's update of a row in the */
     /* table. */
     /***********************************************/
       OTHERWISE DO
            vcd2len = LENGTH(vcd2)
            vcflsub2 = SUBSTR(vcfl,3,2)
            vcflsub1 = SUBSTR(vcfl,1,1)
            IF ztdsels > 0 THEN DO
               "TBPUT VCDTBL"
                csr = 'vcsel'
                row = crp
            END
            ELSE
               csr = 'zcmd'
            END
       END
    END
 END
 /*****************************************************/
 /* SAVE & CLOSE THE TABLE from virtual storage. */
 /*****************************************************/
 "TBSAVE  VCDTBL"
RETURN 0
Back to top
View user's profile Send private message
ermanjitsingh

New User


Joined: 08 Jun 2009
Posts: 19
Location: Banglore

PostPosted: Wed Jul 15, 2009 2:04 pm    Post subject: Re: Reply to: ISPF Table Scrolling issue
Reply with quote

ermanjitsingh wrote:
superk wrote:
You're displaying your table and showing the results in a panel using the TBDISPL Service, correct?


Yes right. i m displaying using TBDISPL only


Scrolling issue solved.

Actually the problem was when i was executing my rexx code normally then the up & down was not defined for PF7 & PF8 in the KEYS.

After defining the same in KEYS scrolling is working fine.

Thanks to all for your help.
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts Execessive parameter issue Sumeendar JCL & VSAM 5 Mon Dec 19, 2016 4:35 pm
No new posts SQL query to run through list of valu... Ni3-db2 DB2 14 Wed Dec 14, 2016 9:52 am
No new posts DFHRESPONSE returns issue divated CICS 3 Wed Nov 02, 2016 6:32 pm
No new posts Can sending 5 MB data between cobol p... Kevin Vaz CICS 12 Tue Oct 18, 2016 4:50 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us