Originally posted by jfr99:
Here's a Dialogue Manager example ...
-*
-SET &IN_STR = 'England;Germany;Japan;France';
-SET &IN_DLM = ';';
-*
-TYPE ---------------------------------------------------------
-TYPE IN_STR --- &IN_STR
-TYPE IN_DLM --- &IN_DLM
-TYPE ---------------------------------------------------------
-SET &Z1_DLM = &IN_DLM;
-SET &Z1_STR = TRUNCATE(&IN_STR) | &Z1_DLM;
-SET &Z1_LEN = ARGLEN(&Z1_STR.LENGTH, &Z1_STR, 'I3');
-SET &OT_STR = '`';
-REPEAT :Z1_LOOP FOR &I FROM 1 TO &Z1_LEN;
-SET &Z1_CHA = SUBSTR(&Z1_LEN, &Z1_STR, &I, &I, 1, 'A1');
-IF &Z1_CHA EQ &Z1_DLM THEN GOTO :Z1_OUT;
-SET &OT_STR = IF &OT_STR EQ '`' THEN &Z1_CHA ELSE &OT_STR | &Z1_CHA;
-GOTO :Z1_LOOP
-:Z1_OUT
-TYPE OT_STR --- &OT_STR
-SET &OT_STR = '`';
-:Z1_LOOP
-TYPE ---------------------------------------------------------
-RUN