Hi all,
I am trying to implement a programming solution where i have to create a define field dynamically from a list of amper variables. The number of amper variable may vary and the define definition should automatically take the new added amper variable into it's definition. The structure of define field is like this.

ABC/A20=IF CODE IN (&GRP1) THEN GROUP1 ELSE IF CODE IN (&GRP2) THEN GROUP2 ELSE IF CODE IN (&GRP3) THEN GROUP3 ......... ELSE CODE;

I was trying to do this with a loop but not able to make it in single line. Can somebody please advise.

Thanks

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

Chirag,

2 assumptions:
1. You have a variable, &GRP0, which contains the number of variables
2. This number is not greater than 16 (unless the number of nested IFs has increased...)

With these assumptions in mind, here is a solution:

  
-* File Chirag01.fex
...
ABC/A20=
-REPEAT #GRPS FOR &I FROM 1 TO &GRP0;
IF CODE IN (&GRP.&I) THEN GROUP&I ELSE
-#GRPS
CODE;
...

quote:

but not able to make it in single line

Why do you want it on a single line?

T

No, I don't want to make it to single line. I thought define field accept definition given in single line only. As i was getting error with my initial try with repeat loop. But Daniel solution worked for me. But unfortunately in my case the number is going to be more than 16.

Thanks

One alternative is to use a loop to create a DEFINE for each group pair and check the value of the previous DEFINE before proceeding with the current one. The last DEFINE should contain the final value. I have not tested this code so it may require some tweaking - particularly the number of dots before EXISTS; some .EVALs might also be needed.

 TEST0/A20 = 'XXXXXXXX';
-REPEAT ENDREPEAT1 FOR &I FROM 1 TO 100 ;
-SET &PI = &I - 1 ;
-IF &GRP.&I..EXISTS EQ 0 GOTO QUITREPEAT1 ;
 TEST&I/A20 = IF TEST&PI NE 'XXXXXXXX' THEN TEST&PI ELSE IF CODE IN (&GRP.&I) THEN GROUP&I ELSE 'XXXXXXXX';
-ENDREPEAT1
-QUITREPEAT1
-*
ABC/A20 = TEST&PI ;

This message has been edited. Last edited by: Dan Satchell,

quote:

But Daniel solution worked for me. But unfortunately in my case the number is going to be more than 16.

In that case, here is a general solution:

  
...
ABC0/A20=CODE;
-SET &OUTGRP=&GRP0 / 15;
-REPEAT #OUTGRP FOR &G FROM 1 TO &OUTGRP;
-SET &F=(&G - 1) * 15 + 1;
-SET &T=&F + 15 - 1;
-SET &L=&G - 1;
ABC&G/A20=
-REPEAT #GRPS FOR &I FROM &F TO &T;
IF CODE IN (&GRP.&I) THEN GROUP&I ELSE
-#GRPS
ABC&L;
-#OUTGRP
-SET &LGRP=&OUTGRP*15;
-IF &GRP0 EQ &LGRP GOTO #DONE;
-SET &LOUTGRP=&OUTGRP;
-SET &OUTGRP=&OUTGRP+1;
-SET &LLGRP=&LGRP+1;
ABC&OUTGRP/A20=
-REPEAT #LGRP FOR &I FROM &LLGRP TO &GRP0;
IF CODE IN (&GRP.&I) THEN GROUP&I ELSE
-#LGRP
ABC&LOUTGRP;
-#DONE
ABC/A20=ABC&OUTGRP;
...

Some good ol'fashioned programming...

Thanks Dan & Danny for the wonderful technique.