How to show data from file to panel

amitmahalkar · New User Joined: 03 Feb 2006 Posts: 8

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?

expat · Posted: Wed Feb 11, 2009 12:34 pm

amitmahalkar · New User Joined: 03 Feb 2006 Posts: 8

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:-)

expat · Posted: Wed Feb 11, 2009 12:51 pm

What have you found out for yourself regarding the reading of data by
a) Reading the manual
b) Searching the forum

amitmahalkar · New User Joined: 03 Feb 2006 Posts: 8

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.

ofer71 · Posted: Wed Feb 11, 2009 1:49 pm

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.

amitmahalkar · New User Joined: 03 Feb 2006 Posts: 8

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?

Pedro · Posted: Mon Feb 16, 2009 10:03 pm

Can you show us the actual data? And the code that you used to read it?

amitmahalkar · New User Joined: 03 Feb 2006 Posts: 8

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?

Marso · Posted: Tue Feb 17, 2009 9:00 pm

Try this:

amitmahalkar · New User Joined: 03 Feb 2006 Posts: 8

THANKS A LOT!
ITS WORKING