Focal Point
[CLOSED] DM

This topic can be found at:
https://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/5411085122

May 20, 2009, 02:22 PM
Doug
[CLOSED] DM
quote:
I think the key is I have 2 different style sheets for each letter....

Just how different are they?
quote:
"cc: WHERE

Is that extraneous "cc: ( in your "WHERE TOTAL GIFT_TOT GE 250" ) line of code causing an problem as well?




   In FOCUS Since 1983 ~ from FOCUS to WebFOCUS.
   Current: WebFOCUS Administrator at FIS Worldpay | 8204, 8206
September 07, 2010, 02:06 PM
Tracie Jones
This is resolved, don't remember how though...


tbj
Prod WF 8.1.05,Test WF 8.1.05, WINDOWS 7 Platform, Oracle 12
Excel, PDF, Alpha
September 07, 2010, 03:11 PM
linus
I would code your report in the following manner:
-SET &ECHO=ALL;
APP FI HLDCNTRY DISK hldcntry.ftm
-RUN

-SET &CTR = 1;

DEFINE FILE CAR
GOTO_IND/A10 = IF COUNTRY EQ 'ENGLAND' THEN 'ENGLAND' ELSE
               IF COUNTRY EQ 'JAPAN' THEN 'JAPAN' ELSE
			   IF COUNTRY EQ 'ITALY' THEN 'ITALY' ELSE 'W GERMANY';
END
TABLE FILE CAR
PRINT GOTO_IND
BY COUNTRY NOPRINT
ON TABLE SAVE AS HLDCNTRY FORMAT ALPHA
END
-RUN
-DO_READ
-SET &CMPND = IF &CTR EQ 1 THEN 'OPEN' ELSE 
- IF &CTR EQ 4 THEN 'CLOSE' ELSE '';
-RUN
-READ HLDCNTRY NOCLOSE &IND.10.
TABLE FILE CAR
PRINT CAR
      MODEL
	  BODYTYPE
	  SEATS
BY COUNTRY
WHERE COUNTRY EQ '&IND.EVAL'
-IF &IND EQ 'ENGLAND' GOTO ENG_LTR ELSE
- IF &IND EQ 'JAPAN' GOTO JAPAN_LTR ELSE
- IF &IND EQ 'ITALY' GOTO ITALY_LTR ELSE
- GOTO GERMAN_LTR;
-*
-ENG_LTR
-*BODY OF LETTER HERE
-GOTO WHICH_STYLE;
-JAPAN_LTR
-*BODY OF LETTER HERE
-GOTO WHICH_STYLE;
-ITALY_LTR
-*BODY OF LETTER HERE
-GOTO WHICH_STYLE;
-GERMAN_LTR
-*BODY OF LETTER HERE
-GOTO WHICH_STYLE;
-*
-WHICH_STYLE
ON TABLE PCHOLD FORMAT HTML &CMPND
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *

-IF &IND EQ 'ENGLAND' GOTO ENG_STYLE ELSE
- IF &IND EQ 'JAPAN' GOTO JAPAN_STYLE ELSE
- IF &IND EQ 'ITALY' GOTO ITALY_STYLE ELSE
- GOTO GERMAN_STYLE;
-ENG_STYLE
-*
-GOTO END_STYLE;
-JAPAN_STYLE
-*
-GOTO END_STYLE;
ITALY_STYLE
-*
-GERMAN_STYLE
-GOTO END_STYLE;
-END_STYLE
ENDSTYLE
END
-SET &CTR = &CTR + 1;
-IF &CTR LT &LINES GOTO DO_READ;
-EXIT



WF 7.7.05
HP-UX - Reporting Server, Windows 2008 - Client, MSSQL 2008, FOCUS Databases, Flat Files
HTML, Excel, PDF