D4GL Text fields and Wordwrap - Still a problem
Subject: Informix Case #919877 - Using WORDWRAP in TEXT fields in D4GL
I guess there is no solution to printing TEXT fields in reports under D4GL?
Informix tech support has given me a case number, but no solution:
Informix tech support wrote:
> I have been researching your case and it looks like it is a bug with
> d4gl. The bug number is 99240. It was discovered in version 2.0 and as
> of yet it does not look like it was addressed. I will escalate this case
> up to a higher level engineer, who will look into getting some kind of
> suitable workaround or fix for you. They will be contacting you
> shortly. Keep in mind you can always call in Thank you for your
> patience.
I had written to Informix tech support:
> We have upgraded our Dynamic-4GL from version 2.10 to 3.00, but we
> are still having a problem when printing out text blobs.
> The "COLUMN", "RIGHT MARGIN", "WORDWRAP" commands are all ignored for TEXT
> data types.
>
> Here's a sample datafile (2 lines, 70 chars/line), a 4GL program, and output:
>
> ::::::::::::::::::
> :::text_tab.unl:::
> ::::::::::::::::::
> 1 2 3 4 5 6 7\\
> 1234567890123456789012345678901234567890123456789012345678901234567890|
> ------cut here--------------------------------cut here------------------------
>
> ::::::::::::::::::
> :::text_rpt.4gl:::
> ::::::::::::::::::
> DEFINE gbl_f1 TEXT
>
> MAIN
>
> whenever error continue
> drop database prt_text
> whenever error stop
> create database prt_text>
> database prt_text
> create table text_tab (
> f1 text
> )>
> LOAD FROM "text_tab.unl"
> INSERT INTO text_tab;>
> LOCATE gbl_f1 IN FILE
>
> SELECT f1
> INTO gbl_f1
> FROM text_tab>
> START REPORT wordwrap_rpt TO "wordwrap.out"
> OUTPUT TO REPORT wordwrap_rpt()
> FINISH REPORT wordwrap_rpt
>
> END MAIN
>
> REPORT wordwrap_rpt()
>
> OUTPUT
> LEFT MARGIN 0
> RIGHT MARGIN 60
>
> FORMAT
> ON EVERY ROW
> PRINT "test: PRINT gbl_f1 WORDWRAP"
> PRINT gbl_f1 WORDWRAP
> PRINT
> PRINT "test: PRINT gbl_f1 WORDWRAP RIGHT MARGIN 40"
> PRINT gbl_f1 WORDWRAP RIGHT MARGIN 40
> PRINT
> PRINT "test: PRINT column 10, gbl_f1 WORDWRAP"
> PRINT COLUMN 10, gbl_f1 WORDWRAP
> PRINT
> PRINT "test: PRINT column 10, gbl_f1 WORDWRAP RIGHT MARGIN 40"
> PRINT COLUMN 10, gbl_f1 WORDWRAP RIGHT MARGIN 40
> END REPORT
>
> ------cut here--------------------------------cut here------------------------
>
> ::::::::::::::::::
> wordwrap.out (CLASSIC 4GL) (OK!)
> ::::::::::::::::::
>
> test: PRINT gbl_f1 WORDWRAP
> 1 2 3 4 5 6
> 7
> 123456789012345678901234567890123456789012345678901234567890
> 1234567890
>
> test: PRINT gbl_f1 WORDWRAP RIGHT MARGIN 40
> 1 2 3 4
> 5 6 7
> 1234567890123456789012345678901234567890
> 123456789012345678901234567890
>
> test: PRINT column 10, gbl_f1 WORDWRAP
> 1 2 3 4 5
> 6 7
> 123456789012345678901234567890123456789012345678901
> 2345678901234567890
>
> test: PRINT column 10, gbl_f1 WORDWRAP RIGHT MARGIN 40
> 1 2 3
> 4 5 6 7
> 1234567890123456789012345678901
> 2345678901234567890123456789012
> 34567890
>
> ------cut here--------------------------------cut here------------------------
>
> ::::::::::::::::::
> wordwrap..out (DYNAMIC-4GL) (NOT OK!)
> ::::::::::::::::::
>
>
> test: PRINT gbl_f1 WORDWRAP
> 1 2 3 4 5 6 7
> 1234567890123456789012345678901234567890123456789012345678901234567890
>
> test: PRINT gbl_f1 WORDWRAP RIGHT MARGIN 40
> 1 2 3 4 5 6 7
> 1234567890123456789012345678901234567890123456789012345678901234567890
>
> test: PRINT column 10, gbl_f1 WORDWRAP
> 1 2 3 4 5 6 7
> 1234567890123456789012345678901234567890123456789012345678901234567890
>
> test: PRINT column 10, gbl_f1 WORDWRAP RIGHT MARGIN 40
> 1 2 3 4 5 6 7
> 1234567890123456789012345678901234567890123456789012345678901234567890
>
>
> ------cut here--------------------------------cut here------------------------
--
Colin McGrath cmm@trac3000.ueci.com