Is there any way in WebFocus, where we can parse the below string taking ~ as the separator.
Note : The number of ~ is fixed.

To Be passed String:
************************************************
IBIC_user=camwbf~FRAMES=|200704*~SPC=~_VVPC=~BAREA_CD_C2=|EUR*~VVPC=~VVPC_DDN=~_AREA=EUR~VVPCFRAME_CHANGED=~SERVICE=~DIR_CD_C2=~IBIF_ex=ccam_allocmangmnt_new~_SERVICE=~AREA=
************************************************

Format In Which I need to convert it in webfcos:
************************************************
IBIC_user=camwbf
FRAMES=|200704*
SPC=
_VVPC=
BAREA_CD_C2=|EUR*
VVPC=
VVPC_DDN=
_AREA=EUR
VVPCFRAME_CHANGED=
SERVICE=
DIR_CD_C2=
IBIF_ex=ccam_allocmangmnt_new
_SERVICE=
AREA=
************************************************

Check if this works for you
******************************************


-SET &STR='IBIC_user=camwbf~FRAMES=|200704*~SPC=~_VVPC=~BAREA_CD_C2=|EUR*~VVPC=~VVPC_DDN=~_AREA=EUR~VVPCFRAME_CHANGED=~SERVICE=~DIR_CD_C2=~IBIF_ex=ccam_allocmangmnt_new~_SERVICE=~AREA= ';

-SET &F1 = GETTOK(&STR,&STR.LENGTH,1,'~',20,'A20');
-SET &F2 = GETTOK(&STR,&STR.LENGTH,2,'~',20,'A20');
-SET &F3 = GETTOK(&STR,&STR.LENGTH,3,'~',20,'A20');
-SET &F4 = GETTOK(&STR,&STR.LENGTH,4,'~',20,'A20');
-SET &F5 = GETTOK(&STR,&STR.LENGTH,5,'~',20,'A20');

-SET &F6 = GETTOK(&STR,&STR.LENGTH,6,'~',20,'A20');
-SET &F7 = GETTOK(&STR,&STR.LENGTH,7,'~',20,'A20');
-SET &F8 = GETTOK(&STR,&STR.LENGTH,8,'~',20,'A20');
-SET &F9 = GETTOK(&STR,&STR.LENGTH,9,'~',20,'A20');
-SET &F10 = GETTOK(&STR,&STR.LENGTH,10,'~',20,'A20');
-SET &F11 = GETTOK(&STR,&STR.LENGTH,11,'~',20,'A20');
-SET &F12 = GETTOK(&STR,&STR.LENGTH,12,'~',40,'A40');
-SET &F13 = GETTOK(&STR,&STR.LENGTH,13,'~',20,'A20');
-SET &F14 = GETTOK(&STR,&STR.LENGTH,14,'~',20,'A20');


-TYPE F1: &F1
-TYPE F2: &F2
-TYPE F3: &F3
-TYPE F4: &F4
-TYPE F5: &F5
-TYPE F6: &F6
-TYPE F7: &F7
-TYPE F8: &F8
-TYPE F9: &F9
-TYPE F10: &F10
-TYPE F11: &F11
-TYPE F12: &F12
-TYPE F13: &F13
-TYPE F14: &F14


*********************************
GETTOK is used for Extracting a Substring (Token)

Syntax of GETTOK is

GETTOK(infield, inlen, token_number, 'delim', outlen, outfield)


Thanks

Lakshmi

You don't say if you want the output as seperate &vars or not.

If so then Lakshmi's approach, maybe in a loop, would be correct. If you just want to display it in that format somewhere (!), then you could use:

-SET &STRING='IBIC_user=camwbf~FRAMES=|200704*~SPC=~_VVPC=~BAREA_CD_C2=|EUR*~VVPC=~VVPC_DDN=~_AREA=EUR~VVPCFRAME_CHANGED=~SERVICE=~DIR_CD_C2=~IBIF_ex=ccam_allocmangmnt_new~_SERVICE=~AREA=';
-SET &NEWSTRING=STRREP (&STRING.LENGTH,&STRING,1,'~',1,HEXBYT(13,'A1'),&STRING.LENGTH,'A&STRING.LENGTH');
-TYPE &NEWSTRING

focuzsambit,

I created a user written subroutine that would take a string separated by an '&' with the name=value pairs (much like a URL query string) and would return the value for the requested name. It is a dll so it would only work in windows. I would imagine that you could do the same with the '~' if you wanted to extend WebFOCUS. Just an Idea.

 -SET &MYSTRING = 'camwbf~FRAMES=|200704*~SPC=~_VVPC=~BAREA_CD_C2=|EUR*~VVPC=~VVPC_DDN=~_AREA=EUR~VVPCFRAME_CHANGED=~SERVICE=~DIR_CD_C2=~IBIF_ex=ccam_allocmangmnt_new~_SERVICE=~AREA=';
 -SET &MYSTRING = CTRAN(&MYSTRING.LENGTH, &MYSTRING, 126, 38, 'A163');
 -SET &BAREA_CD_C2 = PARMVAL(&MYSTRING.LENGTH, &MYSTRING, 11, 'BAREA_CD_C2', 'A80');
 -SET &_AREA = PARMVAL(&MYSTRING.LENGTH, &MYSTRING, 5, '_AREA', 'A80');
 -SET &IBIF_ex = PARMVAL(&MYSTRING.LENGTH, &MYSTRING, 7, 'IBIF_ex', 'A80');
 -SET &FRAMES = PARMVAL(&MYSTRING.LENGTH, &MYSTRING, 6, 'FRAMES', 'A80');
 -TYPE FRAMES = &FRAMES
 FRAMES = |200704*
 -TYPE BAREA_CD_C2 = &BAREA_CD_C2
 BAREA_CD_C2 = |EUR*
 -TYPE _AREA = &_AREA
 _AREA = EUR
 -TYPE IBIF_ex = &IBIF_ex
 IBIF_ex = ccam_allocmangmnt_new