-SET &IDX=0;
 -SET &TK2=2;
 -SET &TB=1;
 -SET &NAMEFLD = 0;
 -SET &ERSAND = '&';
 -SET &P2 = 29;
 CURRENTLY DEFINED & VARIABLES:
 &&APPLOCK     = APP_NOT_LOCKED
 &&APP_PERMIT  = ALL
 &&EDAAPP      = APP-ENABLED
 &&EDACONF     = C:\ibi\srv76\wfs5
 &&OSTYPE      = WINNT
 &&SRVTYPE     = PTH
 &ACCEPTS      =        0
 &ERSAND    = &
 &APPROOT      = C:\ibi\apps
 &AUTOINDEX    = NO
 &B            = 3
 &BASEIO       =        0
 &BYE          = 'COUNTRY' OR 'CAR' OR 'MODEL'
 &CAR          = ALFA ROMEO
 &CHNGD        =        0
 &CLICKED_ON   =
 &COUNTRY      = 'ENGLAND' OR 'FRANCE' OR 'ITALY'
 &COUNTRY0     = 2
 &COUNTRY1     = 'ENGLAND' OR 'FRANCE' OR 'ITALY'
 &COUNTRY2     = ITALY
 &DATE         = 12/18/08
 &DBMSERR      =        0
 &DELTD        =        0
 &DMY          = 181208
 &DMYY         = 18122008
 &DUPLS        =        0
 &ECHO         = ALL
 &EXITRC       =        0
 &FOCEXURL     = /ibi_apps/WFServlet?IBIF_webapp=/ibi_apps&IBIC_server=EDASERV
 &FOCFEXNAME   = CARTST1D1
 &FOCFOCEXEC   = _CARTST1D1
 &FOCGRAPHCNT  =        0
 &FOCHTMLURL   = /ibi_html
 &FOCINCLUDE   = CARTST1D1
 &FOCNEXTPAGE  =        0
 &FORMAT       =        0
 &IDX          = 0
 &INDEXIO      =        0
 &INPUT        =        0
 &INVALID      =        0
 &LINES        =        0
 &MDY          = 121808
 &MDYY         = 12182008
 &MODEL        = 2000 SPIDER VELOCE
 &NAMEFLD      = 0
 &NOMATCH      =        0
 &P2           = 29
 &READS        =        0
 &RECORDS      =        0
 &REJECTS      =        0
 &RETCODE      =        0
 &SETFILE      =
 &SORTIO       =        0
 &TB           = 1
 &TK2          = 2
 &TOD          = 19.38.31
 &TRANS        =        0
 &WFDESCRIBE   = OFF
 &YMD          = 081218
 &YYMD         = 20081218
 -? &
 -RUN
 TABLE FILE CAR
 PRINT *
 -REPEAT LOOPB FOR  TB FROM 1 TO 50 STEP 2
 -SET &NXTBY = GETTOK('COUNTRY' OR 'CAR' OR 'MODEL',29,1,' OR ', 15, 'A15');
 -SET &NXTB2 = STRIP(15,'COUNTRY'      ,'''','A15');
 -SET &NB = 1 /2 + 1;
 -IF COUNTRY         EQ ' ' THEN GOTO CONT2;
 -SET &NXTB3 = 'BY ' | COUNTRY        ;
 BY COUNTRY         SUBTOTAL MULTILINES
 -REPEAT LOOPB FOR  TB FROM 1 TO 50 STEP 2
 -SET &NXTBY = GETTOK('COUNTRY' OR 'CAR' OR 'MODEL',29,3,' OR ', 15, 'A15');
 -SET &NXTB2 = STRIP(15,'CAR'          ,'''','A15');
 -SET &NB = 3 /2 + 1;
 -IF CAR             EQ ' ' THEN GOTO CONT2;
 -SET &NXTB3 = 'BY ' | CAR            ;
 BY CAR             SUBTOTAL MULTILINES
 -REPEAT LOOPB FOR  TB FROM 1 TO 50 STEP 2
 -SET &NXTBY = GETTOK('COUNTRY' OR 'CAR' OR 'MODEL',29,5,' OR ', 15, 'A15');
 -SET &NXTB2 = STRIP(15,'MODEL'        ,'''','A15');
 -SET &NB = 5 /2 + 1;
 -IF MODEL           EQ ' ' THEN GOTO CONT2;
 -SET &NXTB3 = 'BY ' | MODEL          ;
 BY MODEL           SUBTOTAL MULTILINES
 -REPEAT LOOPB FOR  TB FROM 1 TO 50 STEP 2
 -SET &NXTBY = GETTOK('COUNTRY' OR 'CAR' OR 'MODEL',29,7,' OR ', 15, 'A15');
 -SET &NXTB2 = STRIP(15,               ,'''','A15');
 -SET &NB = 7 /2 + 1;
 -IF                 EQ ' ' THEN GOTO CONT2;
 -CONT2
 -REPEAT LOOPC FOR  TB FROM 1 TO 50 STEP 2
 -SET &NXTBY = GETTOK('COUNTRY' OR 'CAR' OR 'MODEL',29,1,' OR ', 15, 'A15');
 -SET &NXTB2 = STRIP(15,'COUNTRY'      ,'''','A15');
 -SET &NB = 1 /2 + 1;
 -IF COUNTRY         EQ ' ' THEN GOTO CONT3;
 -SET &NAMEFLD1 = COUNTRY         || '0';
 -SET &NAMEFLD  = 1 ;
 -SET &TAR = IF 1 THEN '&' || COUNTRY         || '2' ELSE '&' || COUNTRY        ;
 -SET &TARGET = TRIM('T',ITALY,15,' ',1,'A15');
 -SET &NXTW  = 'WHERE ' | COUNTRY         | ' EQ ';
 WHERE COUNTRY EQ
 'ITALY'
 -REPEAT LOOPC FOR  TB FROM 1 TO 50 STEP 2
 -SET &NXTBY = GETTOK('COUNTRY' OR 'CAR' OR 'MODEL',29,3,' OR ', 15, 'A15');
 -SET &NXTB2 = STRIP(15,'CAR'          ,'''','A15');
 -SET &NB = 3 /2 + 1;
 -IF CAR             EQ ' ' THEN GOTO CONT3;
 -SET &NAMEFLD1 = CAR             || '0';
 -SET &NAMEFLD  = 1 ;
 -SET &TAR = IF 1 THEN '&' || CAR             || '2' ELSE '&' || CAR            ;
 0 ERROR AT OR NEAR LINE     29  IN PROCEDURE CARTST1D1
 (FOC295) A VALUE IS MISSING FOR: &CAR2

 

 -* File CARTST1D.fex                                      ';
-SET &ECHO=ALL;
-SET &IDX=0;
-SET &TK2=2;
-SET &TB=1;
-SET &NAMEFLD = 0;
-SET &ERSAND = '&';
-SET &P2 = &BYE.LENGTH;
-? &
-RUN
 TABLE FILE CAR
PRINT *
-REPEAT LOOPB FOR &TB FROM 1 TO 50 STEP 2
-SET &NXTBY = GETTOK(&BYE,&P2,&TB,' OR ', 15, 'A15');
-SET &NXTB2 = STRIP(15,&NXTBY,'''','A15');
-SET &NB = &TB /2 + 1;
-IF &NXTB2 EQ ' ' THEN GOTO CONT2;
-SET &NXTB3 = 'BY ' | &NXTB2;
&NXTB3 SUBTOTAL MULTILINES
-LOOPB
-CONT2
-REPEAT LOOPC FOR &TB FROM 1 TO 50 STEP 2
-SET &NXTBY = GETTOK(&BYE,&P2,&TB,' OR ', 15, 'A15');
-SET &NXTB2 = STRIP(15,&NXTBY,'''','A15');
-SET &NB = &TB /2 + 1;
-IF &NXTB2 EQ ' ' THEN GOTO CONT3;
-SET &NAMEFLD1 = &NXTB2.EVAL || '0';
-SET &NAMEFLD  = &NAMEFLD1.EXISTS ;
-SET &TAR = IF &NAMEFLD THEN '&ERSAND.EVAL' || &NXTB2.EVAL || '2' ELSE '&ERSAND.EVAL' || &NXTB2.EVAL;
-SET &TARGET = TRIM('T',&TAR.EVAL,15,' ',1,'A15');
-SET &NXTW  = 'WHERE ' | &NXTB2.EVAL | ' EQ ';
&NXTW.EVAL
'&TARGET.EVAL'
-LOOPC
-CONT3
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     UNITS=IN,
     PAGESIZE='Letter',
     SQUEEZE=ON,
     ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
     GRID=OFF,
     FONT='ARIAL',
     SIZE=9,
     RIGHTGAP=0.125000,
$
TYPE=TITLE,
     STYLE=BOLD,
$
TYPE=TABHEADING,
     SIZE=12,
     STYLE=BOLD,
$
TYPE=TABFOOTING,
     SIZE=12,
     STYLE=BOLD,
$
TYPE=HEADING,
     SIZE=12,
     STYLE=BOLD,
$
TYPE=FOOTING,
     SIZE=12,
     STYLE=BOLD,
$
TYPE=SUBHEAD,
     SIZE=10,
     STYLE=BOLD,
$
TYPE=SUBFOOT,
     SIZE=10,
     STYLE=BOLD,
$
TYPE=SUBTOTAL,
     BACKCOLOR=RGB(210 210 210),
$
TYPE=ACROSSVALUE,
     SIZE=9,
$
TYPE=ACROSSTITLE,
     STYLE=BOLD,
$
TYPE=GRANDTOTAL,
     BACKCOLOR=RGB(210 210 210),
     STYLE=BOLD,
$
TYPE=REPORT,
     COLUMN=N4,
     SQUEEZE=0.375000,
$
ENDSTYLE
END

 

quote:

-SET &NAMEFLD1 = &NXTB2.EVAL || '0';
-SET &NAMEFLD = &NAMEFLD1.EXISTS ;

 &COUNTRY      = 'ENGLAND' OR 'FRANCE' OR 'ITALY'
 &COUNTRY0     = 2
 &COUNTRY1     = 'ENGLAND' OR 'FRANCE' OR 'ITALY'
 &COUNTRY2     = ITALY

quote:

Thanks Jack, Darin, amd John for your inputs. This is an Adhoc reporting application where a sort order is expressed by a predetermined list of fields, which I parse into BY statements and various targeting lists which convert to WHERE statementst. There is also a list of measures which form the object fields of a SUM statement. The summary report hyperlinks each of the BY fields for drill down.The issue is with the drill down fex that is being passed the BY fields and their respective values. It is also being passed the results of a MULTI SELECT target lists that are converted to WHERE statements. It is quite possible that
&COUNTRY1 = 'ENGLAND' OR 'FRANCE' OR 'ITALY' as a result of the MULTI SELECT and a second value for &COUNTRY2 = 'ITALY' as the value of a BY field on the summary report. I need the drill down isolate the &COUNTRY2 value. To do that I need to determine if &COUNTRY0.EXISTS. The problem is the .EXISTS always returns 1.

quote:

Thanks JG, your solution worked although not in the manner you might have expected. The statement

  -SET &Q=IF &TARGET.LENGTH - &SL.LENGTH EQ 0 THEN '.QUOTEDSTRING' ELSE '';

Always returned the QUOTEDSTRING, regardless if the two string lengths differed.
Thanks again. I had been struggling with this awhile. Are you still working in Munich?

quote:

&COUNTRY = 'ENGLAND' OR 'FRANCE' OR 'ITALY'
&COUNTRY0 = 2
&COUNTRY1 = 'ENGLAND' OR 'FRANCE' OR 'ITALY'
&COUNTRY2 = ITALY

---

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

quote:

Always returned the QUOTEDSTRING, regardless if the two string lengths differed.

 
-SET &Q=IF &TARGET.LENGTH - &SL.LENGTH  EQ 0 THEN '.QUOTEDSTRING' ELSE '';
-TYPE Q IS &Q.EVAL

returns
for country
-SET &Q=IF 32 - 26  EQ 0 THEN '.QUOTEDSTRING' ELSE '';
-TYPE Q IS
Q IS

for car
-SET &Q=IF 10 - 10  EQ 0 THEN '.QUOTEDSTRING' ELSE '';
-TYPE Q IS .QUOTEDSTRING
Q IS .QUOTEDSTRING

for model
-SET &Q=IF 18 - 18  EQ 0 THEN '.QUOTEDSTRING' ELSE '';
-TYPE Q IS .QUOTEDSTRING
Q IS .QUOTEDSTRING

quote:

I need the drill down [to] isolate the &COUNTRY2 value. To do that I need to determine if &COUNTRY0.EXISTS. The problem is the .EXISTS always returns 1.