-SET &ECHO = ALL ;
-DEFAULT &myvar1 = 'W GERMANY';
-DEFAULT &myvar2 = 'ALL';
-DEFAULT &myvar3 = 'ALL';
-*
-SET &cmt_myvar1 = IF &myvar1.QUOTEDSTRING EQ 'ALL' THEN '-*' ELSE '' ;
-SET &cmt_myvar2 = IF &myvar2.QUOTEDSTRING EQ 'ALL' THEN '-*' ELSE '' ;
-SET &cmt_myvar3 = IF &myvar3.QUOTEDSTRING EQ 'ALL' THEN '-*' ELSE '' ;
-*
-SET &filter_myvar1 = IF &myvar1.QUOTEDSTRING EQ 'ALL' THEN '' ELSE 'IF COUNTRY EQ '''| &myvar1 | '''' ;  
-TYPE &filter_myvar1
-SET &filter_myvar2 = IF &myvar2.QUOTEDSTRING EQ 'ALL' THEN '' ELSE 'IF CAR EQ '''| &myvar2  | '''' ;
-SET &filter_myvar3 = IF &myvar3.QUOTEDSTRING EQ 'ALL' THEN '' ELSE 'IF MODEL LIKE '| &myvar3 |'%' ;
-*
TABLE FILE IBISAMP/CAR
&filter_myvar1
&filter_myvar2
&filter_myvar3
SUM DCOST
BY COUNTRY BY CAR BY MODEL
ON COUNTRY SUBHEAD
" "
&cmt_myvar1.EVAL "MYVAR1 = &myvar1"
&cmt_myvar2.EVAL "MYVAR2 = &myvar2"
&cmt_myvar3.EVAL "MYVAR3 = &myvar3"
END

---

In Focus since 1979///7706m/5 ;wintel 2008/64;OAM security; Oracle db, ///MRE/BID

quote:

-LOOP-IF &MAJR_CODE1 EQ ' ' GOTO EARLY;-SET &MAJOR = Major:;-EARLYTABLE FILE AS_STUDENT_ENROLLMENT_SUMMARYPRINT AS_STUDENT_ENROLLMENT_SUMMARY.AS_STUDENT_ENROLLMENT_SUMMARY.MAJR_CODE1 AS_STUDENT_ENROLLMENT_SUMMARY.AS_STUDENT_ENROLLMENT_SUMMARY.MAJR_DESC1ON TABLE SUBHEAD" &MAJOR &MAJR_CODE1 "WHERE AS_STUDENT_ENROLLMENT_SUMMARY.AS_STUDENT_ENROLLMENT_SUMMARY.MAJR_CODE1 EQ &MAJR_CODE1.(OR(FIND STVMAJR.STVMAJR.STVMAJR_CODE,STVMAJR.STVMAJR.STVMAJR_DESC IN stvmajr)).MAJR_CODE1.;WHERE READLIMIT EQ 50ON TABLE SET PAGE-NUM NOLEADON TABLE NOTOTALON TABLE PCHOLD FORMAT HTML

  
TABLE FILE AS_STUDENT_ENROLLMENT_SUMMARY
WHERE AS_STUDENT_ENROLLMENT_SUMMARY.AS_STUDENT_ENROLLMENT_SUMMARY.MAJR_CODE1 EQ &MAJR_CODE1.(OR(FIND STVMAJR.STVMAJR.STVMAJR_CODE,STVMAJR.STVMAJR.STVMAJR_DESC IN stvmajr)).MAJR_CODE1.;
WHERE READLIMIT EQ 50
PRINT
AS_STUDENT_ENROLLMENT_SUMMARY.AS_STUDENT_ENROLLMENT_SUMMARY.MAJR_CODE1
AS_STUDENT_ENROLLMENT_SUMMARY.AS_STUDENT_ENROLLMENT_SUMMARY.MAJR_DESC1
-IF &MAJR_CODE1 EQ ' ' GOTO EARLY;
-SET &MAJOR = Major:;
-EARLY
ON TABLE SUBHEAD
" &MAJOR &MAJR_CODE1 "
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT HTML

quote:

Originally posted by j.gross:
It's treating &ETH as equivalent to the entity Ð.

Use [ code ] tags to avoid that.

-IF &LEVL_CODE ' ' GOTO EARLY2;

Francis

Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server

quote:

Originally posted by Francis Mariani:

-IF &LEVL_CODE ' ' GOTO EARLY2;

I see something wrong in the syntax of this line...

quote:

Originally posted by Francis Mariani:

-IF &LEVL_CODE ' ' GOTO EARLY2;

I see something wrong in the syntax of this line...

quote:

Originally posted by Geoff Fish:

quote:

Originally posted by Francis Mariani:

-IF &LEVL_CODE ' ' GOTO EARLY2;

I see something wrong in the syntax of this line...

I tried

-IF &LEVL_CODE EQ ' ' GOTO EARLY2;
-IF &LEVL_CODE EQ ' ' THEN GOTO EARLY2;

Neither seems effective

quote:

Originally posted by Francis Mariani:
I don't think Report Painter can handle Dialogue Manager commands within TABLE FILE ... END

quote:

Dialogue Manager commands within TABLE FILE ... END

quote:

Syntax: How to Specify a Heading or Footing With a WHEN Clause
{HEADING [CENTER]|FOOTING}
"text_and_data1"
.
.
.
"text_and_datan"
WHEN expression
where:

text_and_data1, text_and_datan
Is the text and data for each heading or footing line.

expression
Is an expression that resolves to TRUE or FALSE (1 or 0). If its value resolves to TRUE, the heading or footing is displayed. If the expression resolves to FALSE, the heading or footing is not displayed.

Francis

Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server

quote:

Originally posted by susannah:
What are your default values for these 30 variables?
Am i correct in assuming you don't want to see a blank line when one of the &vars is empty, you want to bypass that line?
Am i correct in assuming you want 1 subhead line per &var ?
Yes those assumptions are correct
this should give you some ideas.
you'll note i have a chronic aversion to FOC_NONE

-SET &ECHO = ALL ;
-DEFAULT &myvar1 = 'W GERMANY';
-DEFAULT &myvar2 = 'ALL';
-DEFAULT &myvar3 = 'ALL';
-*
-SET &cmt_myvar1 = IF &myvar1.QUOTEDSTRING EQ 'ALL' THEN '-*' ELSE '' ;
-SET &cmt_myvar2 = IF &myvar2.QUOTEDSTRING EQ 'ALL' THEN '-*' ELSE '' ;
-SET &cmt_myvar3 = IF &myvar3.QUOTEDSTRING EQ 'ALL' THEN '-*' ELSE '' ;
-*
-SET &filter_myvar1 = IF &myvar1.QUOTEDSTRING EQ 'ALL' THEN '' ELSE 'IF COUNTRY EQ '''| &myvar1 | '''' ;  
-TYPE &filter_myvar1
-SET &filter_myvar2 = IF &myvar2.QUOTEDSTRING EQ 'ALL' THEN '' ELSE 'IF CAR EQ '''| &myvar2  | '''' ;
-SET &filter_myvar3 = IF &myvar3.QUOTEDSTRING EQ 'ALL' THEN '' ELSE 'IF MODEL LIKE '| &myvar3 |'%' ;
-*
TABLE FILE IBISAMP/CAR
&filter_myvar1
&filter_myvar2
&filter_myvar3
SUM DCOST
BY COUNTRY BY CAR BY MODEL
ON COUNTRY SUBHEAD
" "
&cmt_myvar1.EVAL "MYVAR1 = &myvar1"
&cmt_myvar2.EVAL "MYVAR2 = &myvar2"
&cmt_myvar3.EVAL "MYVAR3 = &myvar3"
END

quote:

Originally posted by susannah:
first, not a good idea to use .EXIST in an IF test; there's a much better way...but that's later.
for now....
-DEFAULT &MYCOUNTRY = 'FOC_NONE';
-DEFAULT &MYCAR = 'FOC_NONE';
then
HEADING
"COUNTRY &MYCOUNTRY "
"CAR &MCAR"
"OTHER STUFF"

and lo and behold if you have FOC_NONE as the 'value', the heading line just doesn't show up at all!
so much for my chronic aversion to FOC_NONE

...
now , the .EXIST stuff
-GOTO someplace&MYVAR.EXIST ;
-someplace0
-TYPE it doesnt exist
-GOTO someplacex ;
-somemplace1
-TYPE Oh yes it does
-someplacex

since you don't test against variable existing, you don't screw up its value. sounds odd, but trust me.

-SET &ITSACAR = IF &CAR NE '' THEN 'Car: ' | &CAR ELSE '';

HEADING
" &ITSACAR "

quote:

Originally posted by George Patton:
This seems to be getting unnecessarily complicated - unless I misunderstand the question (wouldn't be the first time .. )

The problem appears to be that 'Country: ' or 'Car: 'appears even when there is no selection. But it seems to me that you don't need to test separately for the inclusion of these words. You test for the value of CAR, so you should be able to use the result from there to decide whether or not to print the word Car:

-SET &ITSACAR = IF &CAR NE '' THEN 'Car: ' | &CAR ELSE '';

HEADING
" &ITSACAR "

I haven't tested this and you may need fiddle with: EQ FOC_NONE THEN instead of the NE '' but by using concatenation of the title plus the variable you should be able to eliminate the former when the latter is mising.