FUNCTION autentificacion()
DEFINE permisos CHAR(1),
       programa CHAR(9),
       usuario,clave,pusuario CHAR(60),
       variable CHAR(20),pselec CHAR(100)
       
    WHENEVER ERROR CONTINUE
       CALL startlog("errores.log")

 OPEN WINDOW inicio AT 1,1 WITH FORM "inicial"
   
   INPUT BY NAME usuario,clave WITHOUT DEFAULTS 
    AFTER INPUT
      IF INT_FLAG THEN
         ERROR "OPERACION CANCELADA"
         EXIT INPUT
      END IF
  
      CONNECT TO "decomarmol"  USER usuario USING clave 
      IF STATUS < 0 THEN
         ERROR "USUARIO NO ES VALIDO"
         CONTINUE INPUT
      END IF
      EXIT INPUT
   END INPUT
  
 CLOSE WINDOW inicio
END FUNCTION