Error in the routine

[parvathi]

Hi all,

I have written a routine that gets the position of a certain character in astring and use the position to get value from another string..

the code is used is

Code: Select all

Equate c_routineName           To "rtnSplitRowsToColumns"
Ans=''
Lvl_indx=0
find_flag=''

if Lvl_name<>'' and Lvl_order<>'' and Lvl<>'' then 
 if Num(Lvl) then
    
    varCount= Count(Lvl_order,'%')+1
    for i=1 to varCount
      if Lvl= FIELD(Lvl_order,'%',i) then   
        Lvl_indx=i
        find_flag='Y'
      end
     next i

     if find_flag='' then Ans=''
     if find_flag='Y' then
     Ans = FIELD(Lvl_name,'%',Lvl_indx)

 end else
 Call DSLogFatal('Number expected for Lvl' , c_routineName )
 end

end else
Call DSLogFatal('Arguments Cannot be Null' , c_routineName )
end

when i compile i get the following error

Compiling: Source = 'DSU_BP/DSU.testing', Object = 'DSU_BP.O/DSU.testing'
***
0033
^
End of File unexpected, Was expecting: Array Name, Variable name,
New variable name, ';', Statement label, "ABORT", "ABORTE", "ABORTM",
"BEGIN", "BREAK", "CALL", "CHAIN", "CLEAR", "CLEARCOM", "CLEARDATA",

what could be the reason How do i resolve this?

[kumar_s]

Is it part of the code?
What is the line number 33?
Have you included "INCLUDE DSINCLUDE JOBCONTROL.H" at first?

[ray.wurlod]

Click the Format tool in your routine editing window.
Check that the final End statement lines up with the RETURN(Ans).
If not, there's an imbalance.
Post the formatted code.

You have reinvented an intrinsic statement called Locate().

[chulett]

As noted - why write this when a built-in function already exists to do this?