subroutine ParseXMLString(string: XMLString,

                          string: Tag,

                          string: Value,

                          boolean: Error) is

 

string  OpenTag_LSV

        CloseTag_LSV

        Check_LSV

 

  copy "<" Tag ">" to OpenTag_LSV

  copy "<" Tag ">" to CloseTag_LSV

 

  extract from XMLString

     skip by OpenTag_LSV

 

  if (marker > 1) then

     extract from XMLString

        skip to marker

        take to CloseTag_LSV Value

        take by CloseTag_LSV Check_LSV

 

     if (CloseTag_LSV = Check_LSV) then

        copy false to Error

     else

        copy true to Error

        copy "" to Value

     end if

  else

     copy "" to Value

  end if