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
 

 

How to show data from file to panel

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

New User


Joined: 03 Feb 2006
Posts: 8

PostPosted: Wed Feb 11, 2009 12:26 pm    Post subject: How to show data from file to panel
Reply with quote

I want to open a PS dataset, read it and show certain part of its data on a Panel. I've already designed the panel. Can anybody help me, how to do it?
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Feb 11, 2009 12:34 pm    Post subject: Re: REXX how to show data from file to panel
Reply with quote

amitmahalkar wrote:
Hi,
I want to open a PS dataset, read it and show certain part of its data on a Panel.I have already designed the panel using REXX . Can anybody help me, how to do it in Rexx? thanks

I believe that you have designed the panel using ISPF rather than REXX.

From the barrel load of pertinent information that you have so far given it only remains to be asked exactly what part of the problem do you need help with.
Back to top
View user's profile Send private message
amitmahalkar

New User


Joined: 03 Feb 2006
Posts: 8

PostPosted: Wed Feb 11, 2009 12:43 pm    Post subject:
Reply with quote

Yes the panel is designed using ISPF.
simply I just need a code to read a file and show that data on a panel.
thanks:-)
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Feb 11, 2009 12:51 pm    Post subject:
Reply with quote

What have you found out for yourself regarding the reading of data by
a) Reading the manual
b) Searching the forum
Back to top
View user's profile Send private message
amitmahalkar

New User


Joined: 03 Feb 2006
Posts: 8

PostPosted: Wed Feb 11, 2009 1:00 pm    Post subject:
Reply with quote

I am able to read data from file using
/* REXX */
"ALLOC DA('TEST.PS') F(INPUT) SHR REUSE"
"EXECIO * DISKR INPUT (STEM LINES. FINIS"
Do i = 1 To lines.0
Say lines.i
End
"FREE F(INPUT)"
Exit


and also I know how to move values to panel variabels but my problem is how to read file incremntaly and populate multiple variables on a panel at once.
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Wed Feb 11, 2009 1:49 pm    Post subject:
Reply with quote

The best method would be to populate an ISPF table with the records from the PS, then use TBDISPL to browse through the data.

O.
Back to top
View user's profile Send private message
amitmahalkar

New User


Joined: 03 Feb 2006
Posts: 8

PostPosted: Mon Feb 16, 2009 7:09 pm    Post subject:
Reply with quote

Thanks for the suggestion. I am using TBDISPL only. But now i am facing a problem.
blwo is my MODEL defnition:
)MODEL
$|+| @C |@datesend% +| @Daterecc% \Z% @datErecu%\Z% @datErece%\Z% +
)INIT


and I am reading all these dates from various files(total 30 files.) as
"TBCREATE TABLtemp names(datesend daterecc s1 daterecu s2 daterece s3)
"TBVCLEAR TABLtemp"
call pulldata

/*************/
pulldata:
/*************/
Do i = 1 To lineea.0
if substr(lineea.i,2,16) = '* TODAYS DATE IS' then do
daterece = substr(LINEea.i,21,08)
end
"ISPEXEC tbadd TABLtemp"


I am repeating this for 10 times with diff labels form PULLDATA to PULLDATJ.
But when I am displaying panel as
"TBTOP TABLtemp"
"TBDISPL TABLtemp PANEL(rexpan0) "


It is displaying all the 10 rows same i.e 10th row only displayed 10 times. Can I get any help on this?
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Mon Feb 16, 2009 10:03 pm    Post subject: Reply to: REXX how to show data from file to panel
Reply with quote

Can you show us the actual data? And the code that you used to read it?
Back to top
View user's profile Send private message
amitmahalkar

New User


Joined: 03 Feb 2006
Posts: 8

PostPosted: Tue Feb 17, 2009 3:41 pm    Post subject:
Reply with quote

Hi Pedro,
Actual code is very big to paste here. And now the problem is fixed.There was a problem in table definition and data movement and I rectifeid it later. Now it is giving output properly.

But I want a suggestion.

My panel o/p is as follows:

CYCLE DATESENT DATERECIVED
REGION-A REGION-B REGION C
------------------------------------------------------------------
A 20090101 20090102 _ 20090102 _ 20090102 _
B 20090101 20090102 _ 20090102 _ 20090102 _
C 20090101 20090102 _ 20090102 _ 20090102 _
D 20090101 20090102 _ 20090102 _ 20090102 _
*************BOTTOM OF DATA******************


I want a dashed line afetr final row i.e. after D row.But getting *************BOTTOM OF DATA****************** which I don't want.
Can I do
1. Remove ***BOTTOM OF DATA*** line and
2. Add a footer/ line at the end of pannel?
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1224
Location: Israel

PostPosted: Tue Feb 17, 2009 9:00 pm    Post subject:
Reply with quote

Try this:
Code:
ZTDMARK = '-------------------'
Address ISPEXEC "VPUT (ZDTMARK)"
before your TBDISPL

I haven't checked it, just had to search deep into my memory to find this documentation
Back to top
View user's profile Send private message
amitmahalkar

New User


Joined: 03 Feb 2006
Posts: 8

PostPosted: Wed Feb 18, 2009 6:35 pm    Post subject:
Reply with quote

THANKS A LOT!
ITS WORKING icon_biggrin.gif
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 SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 5 Tue Jan 17, 2017 4:26 pm
No new posts Storing huge volume of data, compare ... Pradeep K M All Other Mainframe Topics 3 Mon Jan 16, 2017 5:08 pm
No new posts how to recover an uncataloged VSAM da... archanamuthukrishnan All Other Mainframe Topics 3 Wed Jan 11, 2017 6:18 pm
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 HALDB data refresh/copy from producti... vineetanand2007 IMS DB/DC 0 Mon Jan 02, 2017 11:16 am


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