Hi All,

I have a requirement to create a report, but the constraint is record length should be 132 bytes. After exceeding the limit the records has to be sent to the next line.

Could any one help me in doing this.

We need more information.

What format is the report?
What page size, if its relevant?

Can you post an example ?

Hi Waz, sorry for the very long late reply!

In my report the length of the row should be 132 bytes, if the row exceeds more than 132 then the remaining row details should be in the next row.

Example:

Input file has:
1 2 3 4 5 ........ 140

Output:

1 2 3 4 ...... 132
133 134........140

Vinay,

Is your report formatted, with headings, titles etc.?
Are you outputting data only and want to cut off at 132?
Or are you outputting fields and trying to find the last field after which the next one would overflow 132?
As Waz asked, could you provide a concrete example?

Text format

TABLE FILE CAR
PRINT
COMPUTE A10_FIELD/TX10 = MODEL;
BY MODEL NOPRINT
END
-RUN

quote:

Originally posted by JG:
Text format

TABLE FILE CAR
PRINT
COMPUTE A10_FIELD/TX10 = MODEL;
BY MODEL NOPRINT
END
-RUN

JG, could you please give more explanation on MODEL field. I mean what does it do in the above code.

quote:

Originally posted by Danny-SRL:
Vinay,

Is your report formatted, with headings, titles etc.?
Are you outputting data only and want to cut off at 132?
Or are you outputting fields and trying to find the last field after which the next one would overflow 132?
As Waz asked, could you provide a concrete example?

Yes, my report contains headers and titles.

I would like to cut off the data at 132 byte, the remaining fields/data should go to next line.

Vinay, come on That's WebFOCUS 101

Model is a field in the FOCUS CAR file Its length is A20
The COMPUTE Assigns this to a text format TX10 ie 10 characters.

When a text column is displayed it wraps the column at that length

in your case use COMPUTE DISPLAY_FIELD/TX132= ORIGINAL_FIELD

Thanks JG. I haven't worked on CAR file so far , its strange but true.

my report doesn't contain one field, it will have almost around 10 fields.

Input fields:
Column1 30 bytes
Column2 30 bytes
Column3 30 bytes
Column4 30 bytes
Column5 12 bytes
Column6 20 bytes

Output:

Column1 Column2 Column3 Column4 Column5
Assume the header length has crossed 132 bytes, then the column 6 has to be come in the next line.

Column1 Column2 Column3 Column4 Column5
Column6

The respected values of the columns should also be displayed in similar to header. Is this possible?

What's the input? You are reading from flat file or from a database?

San, will read my input thru flat file.

Need to use a fixed font,

( the part before the define is just creating the master and a sample data file

 
EX -lines 8 EDAPUT MASTER,datafile,CV,FILE,
FILENAME=datafile, SUFFIX=FIX  , $
    FIELDNAME=Column1, ALIAS=Column1, USAGE=A30, ACTUAL=A30,$
    FIELDNAME=Column2, ALIAS=Column2, USAGE=A30, ACTUAL=A30,$
    FIELDNAME=Column3, ALIAS=Column3, USAGE=A30, ACTUAL=A30,$
    FIELDNAME=Column4, ALIAS=Column4, USAGE=A30, ACTUAL=A30,$
    FIELDNAME=Column5, ALIAS=Column5, USAGE=A12, ACTUAL=A12,$
    FIELDNAME=Column6, ALIAS=Column6, USAGE=A20, ACTUAL=A20,$
-RUN
FILEDEF datafile DISK datafile.ftm
-RUN
-WRITE datafile 12345678901234567890123456789A12345678901234567890123456789B12345678901234567890123456789C12345678901234567890123456789D12345678901E1234567890123456789F
-WRITE datafile 12345678901234567890123456789A12345678901234567890123456789B12345678901234567890123456789C12345678901234567890123456789D12345678901E1234567890123456789F
-WRITE datafile 12345678901234567890123456789A12345678901234567890123456789B12345678901234567890123456789C12345678901234567890123456789D12345678901E1234567890123456789F
-WRITE datafile 12345678901234567890123456789A12345678901234567890123456789B12345678901234567890123456789C12345678901234567890123456789D12345678901E1234567890123456789F
-WRITE datafile 12345678901234567890123456789A12345678901234567890123456789B12345678901234567890123456789C12345678901234567890123456789D12345678901E1234567890123456789F
-WRITE datafile 12345678901234567890123456789A12345678901234567890123456789B12345678901234567890123456789C12345678901234567890123456789D12345678901E1234567890123456789F

-RUN
DEFINE FILE DATAFILE
 HEADLINE1/A132='Column1                       Column2                       Column3                       Column4                       Column5';
 HEADLINE2/A132='Column6';
 OUTLINE/TX132=Column1 || Column2 || Column3 || Column4 || Column5 || Column6;
END
TABLE FILE DATAFILE
HEADING
"<HEADLINE1"
"<HEADLINE2"
PRINT OUTLINE AS ''
ON TABLE SET SHOWBLANKS ON
ON TABLE SET PAGE NOLEAD
ON TABLE SET STYLE *
FONT=COURIER,$
ENDSTYLE
END