DEFINE creacion,selec STRING
MAIN

#CONNECT TO "db_cedulados+dbmsnc_11" AS "MSSQL"

#CONNECT TO "movilsoluciones+dbmmys_5_7" AS "MYSQL"
 CONNECT TO "sqlcedula" AS "MSSQL"
 CONNECT TO "cedula"  AS "MYSQL"
 
LET creacion ="

CREATE TABLE CEDULADOS(
	MUN_CED varchar(3)  NULL,
	SEQ_CED varchar(7)  NULL,
	VER_CED varchar(1)  NULL,
	NOMBRES varchar(30) NULL,
	APELLIDO1 varchar(30) NULL,
	APELLIDO2 varchar(30) NULL,
	FECHA_NAC datetime NULL,
	LUGAR_NAC varchar(30) NULL,
	CALLE varchar(25) NULL,
	CASA varchar(5) NULL,
	EDIFICIO varchar(25) NULL,
	PISO varchar(2) NULL,
	APTO varchar(5) NULL,
	TELEFONO varchar(20) NULL,
	COD_MUNICIPIO varchar(3) NULL,
	COD_CIUDAD varchar(2) NULL,
	COD_SECTOR varchar(4) NULL,
	COD_PIEL numeric(2, 0) NULL,
	COD_SANGRE numeric(2, 0) NULL,
	SEXO varchar(1) NULL,
	COD_PROF numeric(3, 0) NULL,
	EST_CIVIL varchar(1) NULL,
	NPADRE varchar(40) NULL,
	NMADRE varchar(40) NULL,
	ESTATUS varchar(1) NULL,
	CEDULA  VARCHAR(13))


"
#SET CONNECTION  "MYSQL"
#PREPARE comando FROM creacion
#EXECUTE comando
SET CONNECTION  "MSSQL"
LET selec = "SELECT  MUN_CED,
    SEQ_CED,
	VER_CED ,
	NOMBRES , 
	APELLIDO1 ,
	APELLIDO2 ,
	FECHA_NAC ,
	LUGAR_NAC ,
	CALLE ,
	CASA ,
	EDIFICIO ,
	PISO ,
	APTO ,
	TELEFONO ,
	COD_MUNICIPIO ,
	COD_CIUDAD ,
	COD_SECTOR ,
	COD_PIEL ,
	COD_SANGRE ,
	SEXO ,
	COD_PROF ,
	EST_CIVIL ,
	NPADRE ,
	NMADRE ,
	ESTATUS ,
	CEDULA  
 FROM cedulados
 "
DISPLAY "INICIO "
UNLOAD TO "cedulados.csv" selec
DISPLAY "TERMINE"


 SET CONNECTION  "MYSQL"
DISPLAY "mysql inicio"
 DELETE FROM cedulados
 LOAD FROM "cedulados.csv" INSERT INTO cedulados
DISPLAY "mysql termino"

#CALL insertar()

END MAIN

FUNCTION insertar()
  DEFINE cedulas dynamic ARRAY OF RECORD
    MUN_CED varchar(3) ,
	SEQ_CED varchar(7),
	VER_CED varchar(1) ,
	NOMBRES varchar(30),
	APELLIDO1 varchar(30) ,
	APELLIDO2 varchar(30) ,
	FECHA_NAC DATETIME YEAR TO minute ,
	LUGAR_NAC varchar(30) ,
	CALLE varchar(25) ,
	CASA varchar(5) ,
	EDIFICIO varchar(25) ,
	PISO varchar(2) ,
	APTO varchar(5) ,
	TELEFONO varchar(20) ,
	COD_MUNICIPIO varchar(3) ,
	COD_CIUDAD varchar(2) ,
	COD_SECTOR varchar(4) ,
	COD_PIEL numeric(2, 0) ,
	COD_SANGRE numeric(2, 0) ,
	SEXO varchar(1) ,
	COD_PROF numeric(3, 0) ,
	EST_CIVIL varchar(1) ,
	NPADRE varchar(40) ,
	NMADRE varchar(40) ,
	ESTATUS varchar(1) ,
	CEDULA  VARCHAR(13)

  END RECORD,
   i int

  SET CONNECTION "MSSQL"
  DECLARE buscar CURSOR FOR 
    SELECT * FROM cedulados
    
  LET i = 1
DISPLAY "EN PROCESO"
  FOREACH buscar INTO cedulas[i].*
    LET i = i + 1
  END FOREACH
  DISPLAY "TERMINE DE LEER DATOS"

  SET CONNECTION "MYSQL"
  FOR i = 1 TO cedulas.getLength()
    INSERT INTO cedulados VALUES (cedulas[i].*)
  END FOR
  
END FUNCTION