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 is not displayed properly

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

New User


Joined: 29 Nov 2006
Posts: 8
Location: India

PostPosted: Thu Aug 28, 2008 10:44 am    Post subject: ISPF table is not displayed properly
Reply with quote

Hello,

I am trying to display the contents of a table using TBDISPL

Here is the relevant PANEL description

Code:

~**%&ZDATE \=\  ------  \=\%$USER:%&ZUSER~**           
%COMMASD ==>_ZCMD                                                       
+                                                     ~MM $/~DD$/~YY$   
+     $TICKET _Z      $                    $OPENED   : _Z $/_Z $/_Z $   
+                                          $UPDATED  : _Z $/_Z $/_Z $   
      $STATUS _Z$                                                       
+                                                                       
+$----------------------------------------------------------------------
)MODEL ROWS(SCAN)                                                       
+ _S$&TICKETNO$&OPNDATE$&UPDDATE$&SDESC1                               
+                               $&SDESC2                               
)INIT                                                                   
   .ZVARS = '(TICKETNO OPMM OPDD OPYY UPMM UPDD UPYY STATUS)'           
                                                                       
)PROC                                                                   
                                                                       
                                                                       
)END                                                                   


Here is the REXX CODE invoking the table

Code:

ADDRESS ISPEXEC                               
TICKETNO = 'T*'                               
"TBOPEN TCKTMSTR"                             
"TBSARG TCKTMSTR NEXT NAMECOND(TICKETNO,EQ)" 
"TBSCAN TCKTMSTR"                             
"TBDISPL TCKTMSTR PANEL(PNLTCKET)"           
"TBCLOSE TCKTMSTR NEWCOPY"                   


Table contains 2 records T1111111 and T2222222.

But my panel displays 2 records for key T1111111 as below

Code:

                                                       MM  / DD / YY           
       TICKET  T111111                      OPENED   :  __ / __ / __           
                                            UPDATED  :  __ / __ / __           
       STATUS  A                                                               
                                                                               
  ------------------------------------------------------------------------------
   _ T1111111  11/03/08 11/04/08 SAMPLE 1                                       
                                 SAMPLE 2                                       
   _ T1111111  11/03/08 11/04/08 SAMPLE 1                                       
                                 SAMPLE 2                                       
 ******************************* Bottom of data ********************************


Can anyone tell me, what I am missing here.
Back to top
View user's profile Send private message

Pedro

Senior Member


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

PostPosted: Thu Aug 28, 2008 9:40 pm    Post subject: Reply to: ISPF table is not displayed properly
Reply with quote

Can you show your )ATTR section?
Back to top
View user's profile Send private message
Neilabh

New User


Joined: 29 Nov 2006
Posts: 8
Location: India

PostPosted: Fri Aug 29, 2008 8:37 am    Post subject:
Reply with quote

Thanks Pedro for the reply. Here is the )ATTR section.
Code:

)ATTR DEFAULT(%+_)                                                     
_ TYPE(INPUT)  INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(GREEN) PAD(_)     
% TYPE(TEXT)   INTENS(HIGH)                                             
+ TYPE(TEXT)   INTENS(LOW)  SKIP(ON)                                   
# TYPE(TEXT)   INTENS(LOW)  SKIP(ON) COLOR(WHITE)                       
~ TYPE(TEXT)   INTENS(HIGH) CAPS(OFF) COLOR(BLUE)                       
} TYPE(TEXT)   INTENS(HIGH) SKIP(ON) COLOR(YELLOW)                     
$ TYPE(TEXT)   INTENS(LOW)  SKIP(ON) COLOR(TURQ) CAPS(ON)               
@ TYPE(TEXT)   INTENS(HIGH) SKIP(ON) COLOR(GREEN)                       
! TYPE(TEXT)   INTENS(LOW)  SKIP(ON) COLOR(RED)                         
Back to top
View user's profile Send private message
Neilabh

New User


Joined: 29 Nov 2006
Posts: 8
Location: India

PostPosted: Fri Aug 29, 2008 11:22 am    Post subject:
Reply with quote

Hey Pedro, I got the point. I have changed the type from TEXT to OUTPUT for those table variables.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Fri Aug 29, 2008 9:17 pm    Post subject: Reply to: ISPF table is not displayed properly
Reply with quote

I was not ready to make the point yet, but glad you found it right away.
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 SQL query to run through list of valu... Ni3-db2 DB2 14 Wed Dec 14, 2016 9:52 am
No new posts ISPF program to set SCRNAME prino TSO/ISPF 5 Fri Sep 30, 2016 2:18 pm
No new posts Need Rexx Program to Load in to DB2 T... Hareesh Verma CLIST & REXX 22 Tue Sep 20, 2016 2:59 pm
No new posts I am unable to use SWAPBAR ON command... mrsidhu12 TSO/ISPF 3 Thu Sep 01, 2016 1:10 pm


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