quote:

Originally posted by jimster06:
First, let us know what platform and release you are using.
Second, do you have access to the Describing Data manual?
I would suspect that you are trying to read a LRECL133 FBA file and are trying to 'pretty up' a file dump, right?

quote:

Originally posted by Darin Lee:
If you're just trying to display the contents of a flat file, the easiest way would just be to create fixed-format master file with a single field

FILE=FILE1 ,SUFFIX=FIX
DATASET=location of data file
SEGNAME=SEG1
FIELDNAME=FIELD1,E01,A255,A255,$

quote:

Originally posted by Darin Lee:
It's just a flat file - there is nothing in WF that is going to tell WF what is the header and what is not - regardless of how you create a master file to read it. In your TABLE request, you'll probably have to define some fields that check the content of the line so see if it is a heading, footing, etc. Also, if you use a fixed-format font, the alignment doesn't get messed up. If you're wanting to have separate columns for the data columns and create your own alignments, etc. your flat file will have to be in a fixed-position layout and then you can create separate fields because you know in which position each field begins. If it's not fixed-position, you're probably out of luck - go back and play with the single-field, fixed font option.

EMPID/A4=IF {row is a detail} THEN EDIT(LINE133,'9999') ELSE ' ';  

quote:

Originally posted by GinnyJakes:
That isn't what Darin is suggesting. He is suggesting that you decompose the flat file you already have. You will have to isolate the detail records and create DEFINE fields, using SUBSTR and a variety of other functions to extract the 3 detail columns. You could probably recalculate the footings. But regardless, if you know which records are the heading and footing, you could put the contents into other defined fields and put those in your WebFOCUS report heading and footing. This is fairly sophisticated stuff for someone new to WF. Unfortunately, I don't have time to mock up an example for you. But a pseudo-code version of the define to extract the empid might look like this:

EMPID/A4=IF {row is a detail} THEN EDIT(LINE133,'9999') ELSE ' ';  

EX -LINES 4 EDAPUT MASTER,tmp_rpt,CV,FILE
FILENAME=tmp_rpt, SUFFIX=FIX,$
SEGNAME=TMP_RPT, $
  FIELD=LINE255 ,ALIAS=  ,A255 ,A255 ,$

FILEDEF TMP_RPT DISK tmp_rpt.ftm

-RUN

-WRITE TMP_RPT Monthly Report by State
-WRITE TMP_RPT TUESDAY 07/28/09 15:09:38
-WRITE TMP_RPT
-WRITE TMP_RPT Empid Product Revenue
-WRITE TMP_RPT 1234  ABC     1,000
-WRITE TMP_RPT 4567  DEF     2,000
-WRITE TMP_RPT
-WRITE TMP_RPT TOTAL usage==========> 123,456
-WRITE TMP_RPT
-WRITE TMP_RPT Daily usage==========> 987,654
-WRITE TMP_RPT

TABLE FILE TMP_RPT
PRINT LINE255 AS ''
ON TABLE SET SHOWBLANKS ON
ON TABLE SET STYLE *
 FONT=COURIER NEW, $
ENDSTYLE
END

Waz...

Prod:	WebFOCUS 7.6.10/8.1.04	Upgrade:	WebFOCUS 8.2.07	OS:	Linux	Outputs:	HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!

quote:

the header and the footer is losing its alignment

quote:

Originally posted by Waz:
This may give you a helping hand.

EX -LINES 4 EDAPUT MASTER,tmp_rpt,CV,FILE
FILENAME=tmp_rpt, SUFFIX=FIX,$
SEGNAME=TMP_RPT, $
  FIELD=LINE255 ,ALIAS=  ,A255 ,A255 ,$

FILEDEF TMP_RPT DISK tmp_rpt.ftm

-RUN

-WRITE TMP_RPT Monthly Report by State
-WRITE TMP_RPT TUESDAY 07/28/09 15:09:38
-WRITE TMP_RPT
-WRITE TMP_RPT Empid Product Revenue
-WRITE TMP_RPT 1234  ABC     1,000
-WRITE TMP_RPT 4567  DEF     2,000
-WRITE TMP_RPT
-WRITE TMP_RPT TOTAL usage==========> 123,456
-WRITE TMP_RPT
-WRITE TMP_RPT Daily usage==========> 987,654
-WRITE TMP_RPT

TABLE FILE TMP_RPT
PRINT LINE255 AS ''
ON TABLE SET SHOWBLANKS ON
ON TABLE SET STYLE *
 FONT=COURIER NEW, $
ENDSTYLE
END

You can then chop the output up as per the suggestions above.