XmlType

 FUNCTION XmlType( cType, cPict )
   LOCAL cRet := "string"
   DO CASE
   CASE cType == "N"
     IF "." $ cPict
       cRet := "i4"
     ELSE
       cRet := "r8"
     ENDIF
   CASE cType == "D"
     cRet := "date"
   CASE cType == "L"
     cRet := "boolean"
   ENDCASE
   RETURN cRet