'MacroName:DBO

'--------------------   
function replace(strString as string, strOld as string, strNew as string) as string
   dim pos as integer
   pos = instr(strString, strOld)
   do while pos > 0
      strString = left(strString, pos - 1) & strNew & mid(strString, pos + len(strOld))
      pos = instr(strString, strOld)
   loop
   replace = strString   
end function
'-------------------
Sub Main

   Dim CS As Object
   Set CS = CreateObject("Connex.Client")
   
   DBO$ = "588  Description based on: "
   
   CS.GetField "362", 1, chron$
   CS.GetFixedField "Dates", d$
   
   chron$ = mid(chron$, 6)
   chron$ = replace(chron$, "-", "")        
   
   if isNumeric(chron$) then
      chron$ = DBO$ & chron$ & "."      
   else
      pos% = instr(chron$, "(")
      if pos% > 0 then chron$ = left$(chron$, pos% - 2)
      chron$ = chron$ & ", published in " & d$ & "."    
      chron$ = DBO$ & chron$
   end if
   
   CS.AddField 1, chron$
End Sub