OpenEuphoria

RE: What the heck does this mean?

• Posted by CoJaBo <cojabo at suscom.net> Jan 29, 2004
• 359 views

"atom length", thats the problem, It thinks you are using the atom, not 
the function.
Jonas Temple wrote:
> 
> 
> Okay, I'm stumped.  I've got the following routine:
> 
> global function ecarc_rtvDataArea(sequence system_name, sequence 
> data_area_lib,
> 					sequence data_area, atom starting_pos,
> 					atom length, sequence dtaara_def)
> 
> 	sequence parm_str
> 	atom parm_length
> 
> 	parm_length = length(dtaara_def)
> 	-- We'll need to form the BEGSTR sequence using the parameter structure
> 	-- supplied to this routine
> 	parm_str = ecarc_makeStructure(QWCRDTAA_RtnVar & dtaara_def, 
> "DTAARA_RcvVar")
> 	parm_str &= QWCRDTAA
> 	-- Call the retrieve data area API
> 	parm_str = ecarc_call(system_name, "*LIBL", "QWCRDTAA", parm_str)
> 	-- If the parms returned is a sequence, return the 8th parm for the 
> length
> 	-- of the passed parm structure
> 	if sequence(parm_str) then
> 		return parm_str[8..(8 + parm_length - 1)]
> 	else
> 		return ""
> 	end if
> 
> end function
> 
> That when included in a program (a rather large proram), generates the 
> following error:
> 
> C:\Program Files\F.R.O.G. for IBM iSeries DB2\eucarc.ew:1025
> Syntax error - expected to see possibly 'end', not '('
>         parm_length = length(dtaara_def)
>                             ^
> If I comment the line out it runs fine.  
> 
> HELP!!!!!!!!!!!!!!!1
> 
> 
> Jonas
>