MAIN

CONNECT TO "smarmotech" USER 'root' USING ''

CALL importa()
END MAIN
FUNCTION importa()
  DEFINE proceso STRING
  DISPLAY "EN PROCESO DGII0"
  WHENEVER ERROR CONTINUE
BEGIN WORK
  DELETE FROM empresas
  LOAD FROM 'DGII_RNC.TXT' INSERT INTO empresas
COMMIT WORK  
#  PREPARE importar FROM proceso
#  EXECUTE importar
  DISPLAY "TERMINE"
END FUNCTION