IMPORT security

FUNCTION file_to_b64(f_ent)

  DEFINE f_ent,str_b64,str_aux STRING

  LET str_b64=NULL

  TRY
     CALL security.Base64.LoadBinary(f_ent) RETURNING str_b64
  CATCH
     LET str_aux="Unable to convert file into a Base64 String:",STATUS
    # CALL fgl_winmessage("Error",str_aux,"stop")
     LET str_b64=NULL
  END TRY

  RETURN str_b64

END FUNCTION