GLOBALS
 DEFINE usuarios,clave CHAR(50)
END GLOBALS

MAIN
 DEFINE carga STRING
 DEFER INTERRUPT
 
 
 CALL startlog("impdgii.log")

 CALL ARG_VAL(1) RETURNING usuarios
 CALL ARG_VAL(2) RETURNING clave

  CONNECT TO "smarmotech" USER usuarios USING clave
    
    
 
 LET carga = 'DELETE FROM DGII.dbo.DGII_RNC'
    PREPARE borra FROM carga
    EXECUTE borra

    
    
    LET carga ='f:\\DGII_RNC3.csv'

    LOAD FROM carga DELIMITER ',' INSERT INTO DGII_RNC(rnc,column1)

    
 CALL fgl_winmessage("CARGA","PRODCESO TERMINADO","STOP") 
 CLOSE WINDOW w1
END MAIN