Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How to display list of all columns for a particular table

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

New User


Joined: 22 May 2007
Posts: 46
Location: India

PostPosted: Wed Jan 13, 2010 11:17 am    Post subject: How to display list of all columns for a particular table
Reply with quote

Hi,

I have created one rexx code with scrollable panel. Function of rexx code is to retrieve column names for particular DB2 table and display them on panel.
Now following things are working fine for me..
1. Rexx code(Successfully retrieving DB2 column names for a table.)
2. Panel with scroll is working successfully(Currently data is not displayed). I checked it with only adding lines in panel it is scrolling successfully. I am not using )MODEL command in panel... can we perform as per my requirement without using )MODEL command??
Now the problem is I am not able to display retrieved column names of table on panel as I have assigned only one variable and getting only one value on panel... Could any one help me for this??

My panel code...
Code:
)ATTR                                                                   
 ` TYPE(PT)                          /* panel title line             */
 ? TYPE(PIN)                         /* panel instruction line       */
 < TYPE(FP)                          /* field prompt attribute       */
 # TYPE(NT)                          /* normal text attribute        */
 $ TYPE(NEF) PADC(_)           /* normal entry field padded with '_' */
 ! TYPE(DT)                          /* description text             */
 ~ AREA(SCRL)                        /* scrollable area attribute    */
 ¢ type(input) PAD('_')                                                 
)BODY                                                                   
`-------------- TITLE FOR PANEL WITH SCROLLABLE AREAS ------------------
#Command ===>_ZCMD                                                     #
#                                                                       
?   this direction line tells the user how to use the panel:           
#                                                                       
<Field prompt . . . . . .$NEF01     #!(NEF Descriptive Text)         # 
#                                                                       
                                                                       
 ~area1                                                                ~
 ~                                                                     ~
 ~                                                                     ~
 ~                                                                     ~
 ~                                                                     ~
 ~                                                                     ~
 ------------------------                                               
#                                                                       
? optional bottom directional line.                                   #
#                                                                       
)AREA AREA1                                                             
#SEL   + Column Name      +    PIC Clause                               
+¢S+     ¢N           +          ¢P+                                   
                                                                       
                                                                       
                                                                       
                                                                       
)PROC                                                                   
)END                                                                   


How to display the list of all columns for a particular table without using )MODEL command(ISPF tables)??
Back to top
View user's profile Send private message

superk

Moderator Team Head


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

PostPosted: Wed Jan 13, 2010 8:27 pm    Post subject: Re: How to display list of all columns for a particular tabl
Reply with quote

samedesh wrote:
Now the problem is I am not able to display retrieved column names of table on panel as I have assigned only one variable and getting only one value on panel.


That's your problem. A variable can only be used once. You need to define more of the variables S, N, and P (like S1,S2,S3,N1,N2,N3,P1,P2,P3 and so on) for as much of the content you wish to place onto the panel. I don't see what advantage you want with this method rather than using a plain non-scrolling panel, unless you want to display more details than a single panel will allow, in which case a scrollable panel is a good idea. But you do have to know up-front how much data needs to be shown, and how many variables you'll need to hold it in.

samedesh wrote:
can we perform as per my requirement without using )MODEL command?


If I'm interpreting what you want for your output results correctly, my answer is NO, you can't.
Back to top
View user's profile Send private message
MBabu

Active User


Joined: 03 Aug 2008
Posts: 401
Location: Mumbai

PostPosted: Wed Jan 13, 2010 9:45 pm    Post subject:
Reply with quote

Look also at dynamic areas. You build the variable that displays multiple fields on the panel. there are various examples around. One is found in a presentation called "ISPF Panels: beyond the basics"
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Wed Jan 13, 2010 10:09 pm    Post subject: Reply to: How to display list of all columns for a particula
Reply with quote

What you describe seems ideally suited for an ISPF table. Why not use ISPF tables?
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
No new posts Binary to display characters Roy Ware SYNCSORT 3 Tue Sep 19, 2017 8:46 pm
No new posts Insert a Row_number into table useit DB2 2 Tue Sep 19, 2017 1:07 pm
No new posts how to see when the last read access ... Mike 1304 DB2 1 Tue Sep 12, 2017 7:52 pm
No new posts DB2 NULL Values display V S Amarendra Reddy DB2 3 Thu Sep 07, 2017 6:59 pm
No new posts PC (UTF-8) -> z/OS (EBCDIC) -> ... prino All Other Mainframe Topics 4 Fri Sep 01, 2017 1:47 am

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