I'm trying to code a dm variable which is a &var that will display if a condition is satisfied in a -set expression:

quote:

-set &flag = if blah eq '1'
- then '-set &var = ' ';'
- else ' ';

I have been trying to do this with setting a number of vars as:

quote:

-SET &PAYLD = 'ACTYY';
-SET &EQL = ' = ';
-SET &ZED = '''' || ' ' || '''' || ';';
-SET &EQZD = &EQL | &ZED;
-************
-SET &SUZY = &ABC | & | &PAYLD | &EQZD ;

-SET &DEFX = IF &CFY EQ 'CY'
- THEN &NULL
- ELSE &SUZY ;

-TYPE &DEFX.EVAL

But I cannot get the result I'm looking for.

I'm expecting to see:

IF &CFY EQ 'CY' the result will be a BLANK LINE.
IF &CFY NE 'CY' the result will be
-SET &ACTYY = ' ';

Any ideas?

Thanks!

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

-SET &FLAG = IF &BLAH EQ '1' THEN '-SET &|VAR = '' '';' ELSE ' ';

But what are you going to do with the &Variable ?

quote:

THEN '-SET &|VAR = '' '';'

Waz, I changed my code a bit:

quote:

-DEFAULTH &NUM = '1';

-SET &FLAG = IF &NUM EQ '1'
- THEN '-DEFAULTH &|ATTYR = ''1'';'
- ELSE ' ';
-*
-TYPE &FLAG.EVAL

-EXIT

Here is the result:

quote:

-DEFAULTH &NUM = '1';
-SET &FLAG = IF 1 EQ '1'
- THEN '-DEFAULTH &ATTYR = ''1'';'
- ELSE ' ';
-*
0 ERROR AT OR NEAR LINE 9 IN PROCEDURE ADHOCRQ FOCEXEC *
(FOC295) A VALUE IS MISSING FOR: &ATTYR

The &ATTYR would only be set if the &NUM eq '1'.
But when it is active in the focexec, I would not expect to get the (FOC295) error.

I played with it more and solved the question.

quote:

-DEFAULTH &NUM = '2';

-SET &BNK = ' ';
-SET &DEB = '-SET ';
-SET &JILL = '&'|ACTYY;
-SET &LISA = ' = ' ;
-SET &CMT = '''' | ' ' | '''';
-SET &XYZ = ';';
-SET &ZZZ = &CMT | &XYZ ;
-SET &ANN = &DEB | &JILL | &LISA | &ZZZ ;

-SET &FLAG = IF &NUM EQ '1'
- THEN &ANN
- ELSE &BNK;

&FLAG.EVAL

-EXIT