function FindSubString takes string s, string sub returns boolean
local integer sl = StringLength(s)
local integer subl = StringLength(sub)
local integer i = 1
local boolean b = false
loop
if SubString(s, i, ((i+subl)-1)) == sub then
  set i = sl
  set b = true
endif
set i = i + 1
exitwhen (i+subl) > sl
endloop
return b
endfunction

function FindSubString takes string s, string sub returns boolean
    local integer sl = StringLength(s)
    local integer subl = StringLength(sub)
    local integer i = 0
    loop
        exitwhen i+subl > sl
        if SubString(s, i, i+subl) == sub then 
            return true
        endif
        set i = i + 1
    endloop
    return false
endfunction

| a   b   c   d   e
| |   |   |   |   |
| 0   1   2   3   4

|   a   b   c   d   e
| |   |   |   |   |   |
| 0   1   2   3   4   5

function SubStringBJ takes string source, integer start, integer end returns string
    return SubString(source, start-1, end)
endfunction