Is Squeeze or Wrap supported with AHTML format?

This message has been edited. Last edited by: Kerry,

Sure, here's an example:

DEFINE FILE CAR
WIDE_CAR/A32 = EDIT(CAR,'9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 ');
END

TABLE FILE CAR
PRINT RETAIL_COST
      DEALER_COST
      COMPUTE DIFFERENCE/D12.2 = RETAIL_COST - DEALER_COST;
BY    WIDE_CAR AS ''
BY    COUNTRY

ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT AHTML
ON TABLE SET STYLE *
TYPE=REPORT,FONT=VERDANA,SIZE=9,SQUEEZE=ON,$
TYPE=DATA, COLUMN=WIDE_CAR, WRAP=0.1, $
TYPE=DATA, COLUMN=DEALER_COST, WRAP=2.5, $
TYPE=DATA, COLUMN=DIFFERENCE, WRAP=2.5, $
ENDSTYLE
END

Hope this helps ...

I guess I should have said the WF version is 7.66

I know we've come a long way since this post.
BUT... The Gamp's code, or my code below does not work. I'm open to your suggestions...

DEFINE FILE CAR
WIDE_CAR/A32 = EDIT(CAR,'9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 ');
END

TABLE FILE CAR
PRINT RETAIL_COST
      DEALER_COST
      COMPUTE DIFFERENCE/D12.2 = RETAIL_COST - DEALER_COST;
BY    WIDE_CAR AS ''
BY    COUNTRY

ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT AHTML
ON TABLE SET STYLE *
TYPE=REPORT,FONT=VERDANA,SIZE=9,SQUEEZE=ON,$
TYPE=DATA, COLUMN=WIDE_CAR, WRAP=0.1, $
TYPE=DATA, COLUMN=DEALER_COST, WRAP=2.5, $
TYPE=DATA, COLUMN=DIFFERENCE, WRAP=2.5, $
ENDSTYLE
END

Doug,

This works fine. Are you sure that you do not have some CSS impacting it?

T

I would also point out that WRAP should be used with TYPE=REPORT, HEADING, TITLE or ACROSSVALUE.


T

Work as expected

DEFINE FILE WF_RETAIL
FLD1/A54 = 'A A A A A A A A A A A A A A A A A A A A A A A A A A A';
FLD2/A54 = 'B B B B B B B B B B B B B B B B B B B B B B B B B B B';
FLD3/A54 = 'C C C C C C C C C C C C C C C C C C C C C C C C C C C';
FLD4/A54 = 'D D D D D D D D D D D D D D D D D D D D D D D D D D D';
FLD5/A54 = 'E E E E E E E E E E E E E E E E E E E E E E E E E E E';
END
TABLE FILE WF_RETAIL
SUM
WF_RETAIL.WF_RETAIL_SALES.COGS_US
WF_RETAIL.WF_RETAIL_SALES.REVENUE_US
FLD1 FLD2 FLD3 FLD4 FLD5
BY WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_CATEGORY
BY WF_RETAIL.WF_RETAIL_PRODUCT.PRODUCT_SUBCATEG
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT AHTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/warm.sty,$
UNITS=IN, GRID=OFF, BORDER=LIGHT, $
TYPE=REPORT,LINES-PER-PAGE=20, FONT=COURIER,SQUEEZE=ON, $
TYPE=DATA, COLUMN=N1, WRAP=0.100000, $
TYPE=DATA, COLUMN=N2, WRAP=0.400000, $
TYPE=DATA, COLUMN=N3, WRAP=0.600000, $
TYPE=DATA, COLUMN=N4, WRAP=0.700000, $
TYPE=DATA, COLUMN=N5, WRAP=1.000000, $
TYPE=DATA, COLUMN=N6, WRAP=1.05000, $
TYPE=DATA, COLUMN=N7, WRAP=1.200000, $
TYPE=DATA, COLUMN=N8, WRAP=1.300000, $
TYPE=DATA, COLUMN=N9, WRAP=2.400000, $
ENDSTYLE
END
-EXIT

I would also point out that WRAP should be used with TYPE=REPORT, HEADING, TITLE or ACROSSVALUE.

Tony - are we all going to get bit by this come code tightening time? I have used this syntax to wrap different width columns for a long time.

Michael,

Just covering the items specifically mentioned in the docs ....

IMHO, Code tightening is (generally) only evident when code has not been written to documented syntax ... so, possibly, we shouldn't moan too much when our undocumented syntax fails at a future point?

I don't recall TYPE=DATA with WRAP ever working, but it seems to do so more recently. In fact, I can remember several times when I coded that way and being frustrated at why the damned output wasn't correct - only to calm down when I remembered that it should be TYPE=REPORT, etc.

T

Neither TYPE=REPORT or TYPE=DATA worked for me... Maybe a Browser or Environment setting?

So... As a workaround, I added, and used, a DEFINE Field with a TX70 format = MY_LONG_FIELD. That gives me, almost, what I want. The only difference is that it displays as multiple lines with a space between them, instead of multiple lines without a space between them. REF: FP Post: Squeeze or Wrap support.

HTML has 'built in' wrapping. Why doesn't AHTML have that? Maybe in 820x?

Back to the Expert Room at Summit...

quote:

Why doesn't AHTML have that?

Doug,

It works for others but not for you - that raises a single question for me - What is it at your installation that is not allowing it to work?

T

quote:

What is it at your installation that is not allowing it to work?

That's the "Sixty-Four Thousand Dollar Question". I wish I knew that or someone to point me in the right direction.

And, BTW: Sorting on a TX field, in AHTML, that spans multiple lines is No Good... It treats each line independently, thus splitting the lines.

Does anyone have this working in 8204, Gen 48?

Doug,

If you look at Martins signature, he shows as having gen 48. So the answer is yes, Martin does?

T

Thanks for pointing that out Tony. I wasn't wure if his test was in Prod 8.2.0.1M gen 240 or Dev 8.2.04 gen 48.

It's looking like it down to an environmental setting... More in the solution Pavilion.

See you tonight or tomorrow (Breakfast at Denny's, 8:30, with the KGPCO IT Team?)

Seems that it doesn't work under 8204 gen48 where it does with 8201

Sorry Doug for the late answer and the fact that I haven't test it at first time within the same version as you have. My bad