Hi,

Does anyone no how to split one parameter into multiple parameters.

Excample :

Input : &WEEKNUMBERS = 01 OR 06 OR 10 OR 11
Output: &WEEKNUMBER01 = 01
&WEEKNUMBER02 = 06
&WEEKNUMBER03 = 10
&WEEKNUMBER04 = 11

Thanks Mark

This message has been edited. Last edited by: FP Mod Chuck,

Hi

You can use the GETTOK function.

Example

-* 2017-10-18 - Split var based +1 char delimiter.

-DEFAULTH &STR = '01 OR 06 OR 10 OR 11' ;
-DEFAULTH &DEL = ' OR ' ;

-TYPE String...: '&STR'
-TYPE Delimiter: '&DEL'

-* Use 1 char delimiter, comma for example.
-SET &LEN = &STR.LENGTH ;
-SET &STR = STRREP (&LEN, &STR, &DEL.LENGTH, &DEL, 1, ',', &LEN, 'A&LEN.EVAL') ;
-SET &STR = TRUNCATE(&STR);
-SET &LEN = &STR.LENGTH ;

-* Tokens extraction loop.
-SET &I = 0 ;
-SET &SUB = 'X' ;
-REPEAT :LOOPEND WHILE &SUB NE ' ' ;
-SET &I = &I + 1 ;
-SET &SUB = GETTOK(&STR, &LEN, &I, ',', &LEN, 'A&LEN');
-SET &SUB = TRUNCATE(&SUB) ;
-SET &SUB.&I = &SUB ;
-TYPE Substr &I : &SUB.&I
-:LOOPEND

Output

String...: '01 OR 06 OR 10 OR 11'
Del......: ' OR '
Substr 1 : 01
Substr 2 : 06
Substr 3 : 10
Substr 4 : 11
Substr 5 :

Regards. Mikel.

Hi Mikel,

Thanks exactly what I needed.

Kind Regards

Mark

Using WF8 you can also use TOKEN function. It's a little more simplest then GETTOK but do the same.

I like the new TOKEN function better than GETTOK

Doug,

I was working with Token function in WF 8105
and I replaced GETTOK function with TOKEN in Mikel's code it shows error

quote:

(FOC36355) INVALID TYPE OF ARGUMENT #3 FOR USER FUNCTION TOKEN

 
 -DEFAULTH &STR = '01 OR 06 OR 10 OR 11' ;
-DEFAULTH &DEL = ' OR ' ;

-TYPE String...: '&STR'
-TYPE Delimiter: '&DEL'

-* Use 1 char delimiter, comma for example.
-SET &LEN = &STR.LENGTH ;
-SET &STR = STRREP (&LEN, &STR, &DEL.LENGTH, &DEL, 1, ',', &LEN, 'A&LEN.EVAL') ;
-SET &STR = TRUNCATE(&STR);
-SET &LEN = &STR.LENGTH ;

-* Tokens extraction loop.
-SET &I = 0 ;
-SET &SUB = 'X' ;
-REPEAT :LOOPEND WHILE &SUB NE ' ' ;
-SET &I = &I + 1 ;
-*-SET &SUB = GETTOK(&STR, &LEN, &I, ',', &LEN, 'A&LEN');
-SET &SUB = TOKEN(&STR, ',' ,&I );
-SET &SUB = TRUNCATE(&SUB) ;
-SET &SUB.&I = &SUB ;
-TYPE Substr &I : &SUB.&I
-:LOOPEND

It seems that we can not pass Parameter value in number place.

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

I just tried your code in 8.2.01M and it worked. Which version did you test in?

Perform this small change as for WF8105 to work :

-SET &SUB = TOKEN(&STR, ',' ,&I.EVAL);

quote:

I just tried your code in 8.2.01M and it worked. Which version did you test in?

BabakNYC I was trying it in WF8105M

quote:

Perform this small change as for WF8105 to work :

-SET &SUB = TOKEN(&STR, ',' ,&I.EVAL);

Thanks Martin in WF8105 it works with "EVAL"