IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to display list of all columns for a particular table


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
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
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

Global Moderator


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

PostPosted: Wed Jan 13, 2010 8:27 pm
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: 400
Location: Mumbai

PostPosted: Wed Jan 13, 2010 9:45 pm
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

Global Moderator


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

PostPosted: Wed Jan 13, 2010 10:09 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Load new table with Old unload - DB2 DB2 6
No new posts Pulling a fixed number of records fro... DB2 2
No new posts Remote Unload of CLOB Columns DB2 6
No new posts How to create a list of SAR jobs with... CA Products 3
No new posts Multiple table unload using INZUTILB DB2 2
Search our Forums:

Back to Top