struct sql_cursor { unsigned int curocn; void *ptr1; void *ptr2; unsigned int magic; }; typedef struct sql_cursor sql_cursor; typedef struct sql_cursor SQL_CURSOR; typedef void * sql_context; typedef void * SQL_CONTEXT; struct sqltvn { unsigned char *tvnvsn; unsigned short tvnvsnl; unsigned char *tvnnm; unsigned short tvnnml; unsigned char *tvnsnm; unsigned short tvnsnml; }; typedef struct sqltvn sqltvn; struct sqladts { unsigned int adtvsn; unsigned short adtmode; unsigned short adtnum; sqltvn adttvn[1]; }; typedef struct sqladts sqladts; static struct sqladts sqladt = { 1,1,0, }; struct sqltdss { unsigned int tdsvsn; unsigned short tdsnum; unsigned char *tdsval[1]; }; typedef struct sqltdss sqltdss; static struct sqltdss sqltds = { 1, 0, }; struct sqlcxp { unsigned short fillen; char filnam[36]; }; static const struct sqlcxp sqlfpn = { 35, "gbAplicacionTopologicaIncremento.pc" }; static unsigned int sqlctx = 1800167469; static struct sqlexd { unsigned long sqlvsn; unsigned int arrsiz; unsigned int iters; unsigned int offset; unsigned short selerr; unsigned short sqlety; unsigned int occurs; const short *cud; unsigned char *sqlest; const char *stmt; sqladts *sqladtp; sqltdss *sqltdsp; unsigned char **sqphsv; unsigned long *sqphsl; int *sqphss; short **sqpind; int *sqpins; unsigned long *sqparm; unsigned long **sqparc; unsigned short *sqpadto; unsigned short *sqptdso; unsigned char *sqhstv[32]; unsigned long sqhstl[32]; int sqhsts[32]; short *sqindv[32]; int sqinds[32]; unsigned long sqharm[32]; unsigned long *sqharc[32]; unsigned short sqadto[32]; unsigned short sqtdso[32]; } sqlstm = {10,32}; extern void sqlcxt (void **, unsigned int *, struct sqlexd *, const struct sqlcxp *); extern void sqlcx2t(void **, unsigned int *, struct sqlexd *, const struct sqlcxp *); extern void sqlbuft(void **, char *); extern void sqlgs2t(void **, char *); extern void sqlorat(void **, unsigned int *, void *); static const int IAPSUCC = 0; static const int IAPFAIL = 1403; static const int IAPFTL = 535; extern void sqliem(char *, int *); static const char *sq0001 = "select MODI.MOD_IDSAC ,RA.RA_FUNCION from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI ,I$RAMA RA where (((((((((TBI.TBI_NOMBRE_TABLA=:b0 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=RA.ER_IDSAC_RAMA) and MODI.INC_IDSAC=RA.INC_IDSAC) and MODI.MOD_NUMERO_ORDEN=RA.MOD_NUMERO_ORDEN) and INC.INC_NOMBRE=:b1) and MODI.MOD_TIPO=:b2) and RA.RA_FUNCION=:b3) and NVL(RA.ESTADO_ORIGINAL,0)=:b4) union select MODI.MOD_IDSAC ,RA.RA_FUNCION from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI ,I$RAMA RA ,RAMA RA2 where ((((((((((TBI.TBI_NOMBRE_TABLA=:b0 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=RA.ER_IDSAC_RAMA) and MODI.INC_IDSAC=RA.INC_IDSAC) and MODI.MOD_NUMERO_ORDEN=RA.MOD_NUMERO_ORDEN) and INC.INC_NOMBRE=:b1) and MODI.MOD_TIPO=:b7) and RA.RA_FUNCION=:b3) and NVL(RA.ESTADO_ORIGINAL,0)=:b4) and RA2.ER_IDSAC_RAMA=RA.ER_IDSAC_RAMA) "; static const char *sq0002 = "select MODI.MOD_IDSAC ,RA.RA_FUNCION from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI ,I$SP_MV_O RA where (((((((((TBI.TBI_NOMBRE_TABLA=:b0 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=RA.ER_IDSAC_RAMA) and MODI.INC_IDSAC=RA.INC_IDSAC) and MODI.MOD_NUMERO_ORDEN=RA.MOD_NUMERO_ORDEN) and INC.INC_NOMBRE=:b1) and MODI.MOD_TIPO=:b2) and RA.RA_FUNCION in (:b3,:b4,:b5)) and NVL(RA.ESTADO_ORIGINAL,0)=:b6) union select MODI.MOD_IDSAC ,RA.RA_FUNCION from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI ,I$SP_MV_O RA ,SP_MV_O RA2 where ((((((((((TBI.TBI_NOMBRE_TABLA=:b0 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=RA.ER_IDSAC_RAMA) and MODI.INC_IDSAC=RA.INC_IDSAC) and MODI.MOD_NUMERO_ORDEN=RA.MOD_NUMERO_ORDEN) and INC.INC_NOMBRE=:b1) and MODI.MOD_TIPO=:b9) and RA.RA_FUNCION in (:b3,:b4,:b5)) and NVL(RA.ESTADO_ORIGINAL,0)=:b6) and RA2.ER_IDSAC_RAMA=RA.ER_IDSAC_RAMA) "; static const char *sq0003 = "select MODI.MOD_IDSAC ,RA.RA_FUNCION from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI ,I$SP_MV_O_AT RA where (((((((((TBI.TBI_NOMBRE_TABLA=:b0 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=RA.ER_IDSAC_RAMA) and MODI.INC_IDSAC=RA.INC_IDSAC) and MODI.MOD_NUMERO_ORDEN=RA.MOD_NUMERO_ORDEN) and INC.INC_NOMBRE=:b1) and MODI.MOD_TIPO=:b2) and RA.RA_FUNCION in (:b3,:b4,:b5)) and NVL(RA.ESTADO_ORIGINAL,0)=:b6) union select MODI.MOD_IDSAC ,RA.RA_FUNCION from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI ,I$SP_MV_O_AT RA ,SP_MV_O_AT RA2 where ((((((((((TBI.TBI_NOMBRE_TABLA=:b0 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=RA.ER_IDSAC_RAMA) and MODI.INC_IDSAC=RA.INC_IDSAC) and MODI.MOD_NUMERO_ORDEN=RA.MOD_NUMERO_ORDEN) and INC.INC_NOMBRE=:b1) and MODI.MOD_TIPO=:b9) and RA.RA_FUNCION in (:b3,:b4,:b5)) and NVL(RA.ESTADO_ORIGINAL,0)=:b6) and RA2.ER_IDSAC_RAMA=RA.ER_IDSAC_RAMA) "; static const char *sq0004 = "select MODI.MOD_IDSAC from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI ,I$MEDIDA ME ,ELEMENTO_RED ER where (((((((((((TBI.TBI_NOMBRE_TABLA=:b0 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=ME.ME_IDSAC) and ME.ER_IDSAC=ER.ER_IDSAC) and ER.ER_RED in (:b1,:b2)) and MODI.INC_IDSAC=ME.INC_IDSAC) and MODI.MOD_NUMERO_ORDEN=ME.MOD_NUMERO_ORDEN) and INC.INC_NOMBRE=:b3) and MODI.MOD_TIPO in (:b4,:b5)) and NVL(ME.ESTADO_ORIGINAL,0)=:b6) and ME.ME_TIPO between :b7 and :b8) union select ME.ME_IDSAC from MEDIDA_OBSERVABLE ME ,ELEMENTO_RED ER ,MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI where ((((((((TBI.TBI_NOMBRE_TABLA=:b9 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=ME.ME_IDSAC) and ME.ER_IDSAC=ER.ER_IDSAC) and ER.ER_RED in (:b1,:b2)) and INC.INC_NOMBRE=:b3) and ME.ME_TIPO between :b7 and :b8) and MODI.MOD_TIPO=:b4) "; static const char *sq0005 = "select MODI.MOD_IDSAC from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI ,I$MEDIDA ME ,ELEMENTO_RED ER where (((((((((((TBI.TBI_NOMBRE_TABLA=:b0 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=ME.ME_IDSAC) and ME.ER_IDSAC=ER.ER_IDSAC) and ER.ER_RED in (:b1,:b2)) and MODI.INC_IDSAC=ME.INC_IDSAC) and MODI.MOD_NUMERO_ORDEN=ME.MOD_NUMERO_ORDEN) and INC.INC_NOMBRE=:b3) and MODI.MOD_TIPO in (:b4,:b5)) and NVL(ME.ESTADO_ORIGINAL,0)=:b6) and ME.ME_TIPO between :b7 and :b8) union select ME.ME_IDSAC from MEDIDA_OBSERVABLE ME ,ELEMENTO_RED ER ,MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI where ((((((((TBI.TBI_NOMBRE_TABLA=:b9 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=ME.ME_IDSAC) and ME.ER_IDSAC=ER.ER_IDSAC) and ER.ER_RED in (:b1,:b2)) and INC.INC_NOMBRE=:b3) and ME.ME_TIPO between :b7 and :b8) and MODI.MOD_TIPO=:b4) "; static const char *sq0006 = "select AMB.ER_IDSAC from AMBITOS_AFECTADOS AMB ,INCREMENTO INC where ((INC.INC_IDSAC=AMB.INC_IDSAC and INC.INC_NOMBRE=:b0) and (AMB.MOD_TIPO=:b1 or AMB.MOD_TIPO=:b2)) "; static const char *sq0007 = "select AMB.ER_IDSAC from AMBITOS_AFECTADOS AMB ,INCREMENTO INC where ((INC.INC_IDSAC=AMB.INC_IDSAC and INC.INC_NOMBRE=:b0) and (AMB.MOD_TIPO=:b1 or AMB.MOD_TIPO=:b2)) "; static const char *sq0008 = "select distinct MODI.MOD_IDSAC ,TR.TR_NUMERO_TOMA from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI ,TOMAS_REGULADOR TR ,ELEMENTO_RED ER where ((((((((TBI.TBI_NOMBRE_TABLA=:b0 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=TR.ER_IDSAC) and ER.ER_IDSAC=TR.ER_IDSAC) and ER.ER_RED in (:b1,:b2)) and MODI.MOD_SECUNDARIO=TR.TR_NUMERO_TOMA) and INC.INC_NOMBRE=:b3) and MODI.MOD_TIPO in (:b4)) union select MODI.MOD_IDSAC ,MODI.MOD_SECUNDARIO from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI where ((((TBI.TBI_NOMBRE_TABLA=:b0 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and INC.INC_NOMBRE=:b3) and MODI.MOD_TIPO=:b7) "; static const char *sq0009 = "select distinct MODI.MOD_IDSAC ,TR.TR_NUMERO_TOMA from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI ,TOMAS_REGULADOR TR ,ELEMENTO_RED ER1 ,ELEMENTO_RED ER2 ,CONECTIVIDAD_RED CN where ((((((((((TBI.TBI_NOMBRE_TABLA=:b0 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=TR.ER_IDSAC) and ER1.ER_IDSAC=TR.ER_IDSAC) and CN.CN_ELEMENTO1_IDSAC=ER1.ER_IDSAC) and CN.CN_ELEMENTO2_IDSAC=ER2.ER_IDSAC) and (ER1.ER_RED in (:b1,:b2) or ER2.ER_SUBTIPO=:b3)) and MODI.MOD_SECUNDARIO=TR.TR_NUMERO_TOMA) and INC.INC_NOMBRE=:b4) and MODI.MOD_TIPO in (:b5)) union select MODI.MOD_IDSAC ,MODI.MOD_SECUNDARIO from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI where ((((TBI.TBI_NOMBRE_TABLA=:b0 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and INC.INC_NOMBRE=:b4) and MODI.MOD_TIPO=:b8) "; static const char *sq0010 = "=RA.ER_IDSAC_RAMA) and RA.ER_IDSAC_RAMA=ES.ER_IDSAC(+)) and ES.ES_TIPO(+)=:b5) and RA.RA_NUDO1_IDSAC=NU1.ER_IDSAC_NUDO) and RA.RA_NUDO2_IDSAC=NU2.ER_IDSAC_NUDO) and RA2.ER_IDSAC_RAMA=RA.ER_IDSAC_RAMA) and RA2.INC_IDSAC=MODI.INC_IDSAC) and RA2.MOD_NUMERO_ORDEN=MODI.MOD_NUMERO_ORDEN) and NVL(RA2.ESTADO_ORIGINAL,0)=:b12) "; static const char *sq0011 = "AC_NUDO(+)) and RA2.ER_IDSAC_RAMA=RA.ER_IDSAC_RAMA) and RA2.INC_IDSAC=MODI.INC_IDSAC) and RA2.MOD_NUMERO_ORDEN=MODI.MOD_NUMERO_ORDEN) and NVL(RA2.ESTADO_ORIGINAL,0)=:b6) and TI.TBI_NOMBRE_TABLA=:b0) and INC.INC_NOMBRE=:b1) and MODI.MOD_TIPO=:b9) and RA.RA_FUNCION in (:b3,:b4,:b5)) "; static const char *sq0012 = "ER_IDSAC_NUDO(+)) and RA2.ER_IDSAC_RAMA=RA.ER_IDSAC_RAMA) and RA2.INC_IDSAC=MODI.INC_IDSAC) and RA2.MOD_NUMERO_ORDEN=MODI.MOD_NUMERO_ORDEN) and NVL(RA2.ESTADO_ORIGINAL,0)=:b6) and TI.TBI_NOMBRE_TABLA=:b0) and INC.INC_NOMBRE=:b1) and MODI.MOD_TIPO=:b9) and RA.RA_FUNCION in (:b3,:b4,:b5)) "; static const char *sq0013 = "select MODI.MOD_IDSAC ,ME.ER_IDSAC ,ME.ME_FUNCION ,ME.ME_TIPO ,0 ,NVL(ME.ME_DESTINO,0) ,NVL(ME.ME_UMBRAL_INFERIOR,0) ,NVL(ME.ME_UMBRAL_SUPERIOR,0) from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI ,MEDIDA ME ,ELEMENTO_RED ER where (((((((TBI.TBI_NOMBRE_TABLA=:b0 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=ME.ME_IDSAC) and ME.ER_IDSAC=ER.ER_IDSAC) and ER.ER_RED in (:b1,:b2)) and INC.INC_NOMBRE=:b3) and MODI.MOD_TIPO in (:b4,:b5)) union select ME.ME_IDSAC ,ME.ER_IDSAC ,ME.ME_FUNCION ,ME.ME_TIPO ,NVL(ME.ER_IDSAC_LADO,0) ,:b6 ,0 ,0 from MEDIDA_OBSERVABLE ME ,ELEMENTO_RED ER ,MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI where (((((((TBI.TBI_NOMBRE_TABLA=:b7 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=ME.ER_IDSAC) and ME.ER_IDSAC=ER.ER_IDSAC) and ER.ER_RED in (:b1,:b2)) and INC.INC_NOMBRE=:b3) and MODI.MOD_TIPO=:b4) "; static const char *sq0014 = "select MODI.MOD_IDSAC ,ME.ER_IDSAC ,ME.ME_FUNCION ,ME.ME_TIPO ,0 ,NVL(ME.ME_DESTINO,0) ,NVL(ME.ME_UMBRAL_INFERIOR,0) ,NVL(ME.ME_UMBRAL_SUPERIOR,0) from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI ,MEDIDA ME ,ELEMENTO_RED ER where (((((((TBI.TBI_NOMBRE_TABLA=:b0 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=ME.ME_IDSAC) and ME.ER_IDSAC=ER.ER_IDSAC) and ER.ER_RED in (:b1,:b2)) and INC.INC_NOMBRE=:b3) and MODI.MOD_TIPO in (:b4,:b5)) union select ME.ME_IDSAC ,ME.ER_IDSAC ,ME.ME_FUNCION ,ME.ME_TIPO ,NVL(ME.ER_IDSAC_LADO,0) ,:b6 ,0 ,0 from MEDIDA_OBSERVABLE ME ,ELEMENTO_RED ER ,MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI where (((((((TBI.TBI_NOMBRE_TABLA=:b7 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=ME.ER_IDSAC) and ME.ER_IDSAC=ER.ER_IDSAC) and ER.ER_RED in (:b1,:b2)) and INC.INC_NOMBRE=:b3) and MODI.MOD_TIPO=:b4) "; static const char *sq0015 = "select AMB.ER_IDSAC ,ER.ER_TIPO from AMBITOS_AFECTADOS AMB ,ELEMENTO_RED ER ,INCREMENTO INC where (((INC.INC_IDSAC=AMB.INC_IDSAC and INC.INC_NOMBRE=:b0) and AMB.ER_IDSAC=ER.ER_IDSAC) and (AMB.MOD_TIPO=:b1 or AMB.MOD_TIPO=:b2)) "; static const char *sq0016 = "select AMB.ER_IDSAC ,ER.ER_TIPO from AMBITOS_AFECTADOS AMB ,ELEMENTO_RED ER ,INCREMENTO INC where (((INC.INC_IDSAC=AMB.INC_IDSAC and INC.INC_NOMBRE=:b0) and AMB.ER_IDSAC=ER.ER_IDSAC) and (AMB.MOD_TIPO=:b1 or AMB.MOD_TIPO=:b2)) "; static const char *sq0017 = "OR,:b4)) ,RA.RA_NUDO1_IDSAC ,RA.RA_NUDO2_IDSAC ,NVL(CR.CL_VALOR,0) ,NVL(CX.CL_VALOR,0) ,NVL(CI.CL_VALOR,0) ,DECODE(NVL(ESC.ES_VALOR,:b5),:b5,0,1) from RAMA RA ,SP_MV_O SP ,ESTADO ES ,ESTADO ESI ,ESTADO ESC ,CARACTERISTICA_ELECTRICA CR ,CARACTERISTICA_ELECTRICA CX ,CARACTERISTICA_ELECTRICA CI where ((((((((((((((RA.ER_IDSAC=:b7 and SP.ER_IDSAC_RAMA=RA.ER_IDSAC_RAMA) and ES.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and ES.ES_TIPO(+)=:b2) and ESI.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and ESI.ES_TIPO(+)=:b0) and ESC.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and ESC.ES_TIPO(+)=:b10) and CX.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and CX.CL_TIPO(+)=:b11) and CR.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and CR.CL_TIPO(+)=:b12) and CI.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and CI.CL_TIPO(+)=:b13) and RA.RA_FUNCION in (:b14,:b15)) "; static const char *sq0018 = "VALOR,:b4)) ,RA.RA_NUDO1_IDSAC ,RA.RA_NUDO2_IDSAC ,NVL(CR.CL_VALOR,0) ,NVL(CX.CL_VALOR,0) ,NVL(CI.CL_VALOR,0) ,DECODE(NVL(ESC.ES_VALOR,:b5),:b5,0,1) from RAMA RA ,SP_MV_O_AT SP ,ESTADO ES ,ESTADO ESI ,ESTADO ESC ,CARACTERISTICA_ELECTRICA CR ,CARACTERISTICA_ELECTRICA CX ,CARACTERISTICA_ELECTRICA CI where ((((((((((((((RA.ER_IDSAC=:b7 and SP.ER_IDSAC_RAMA=RA.ER_IDSAC_RAMA) and ES.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and ES.ES_TIPO(+)=:b2) and ESI.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and ESI.ES_TIPO(+)=:b0) and ESC.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and ESC.ES_TIPO(+)=:b10) and CX.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and CX.CL_TIPO(+)=:b11) and CR.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and CR.CL_TIPO(+)=:b12) and CI.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and CI.CL_TIPO(+)=:b13) and RA.RA_FUNCION in (:b14,:b15)) "; static const char *sq0019 = "select NU.ER_IDSAC_NUDO ,NU.NU_TIPO ,NU.NU_FUNCION ,NU.V_NOMINAL ,NU.P_NOMINAL from NUDO_MV_O NU where NU.ER_IDSAC=:b0 "; static const char *sq0020 = "select NU.ER_IDSAC_NUDO ,NU.NU_TIPO ,NU.NU_FUNCION ,NU.V_NOMINAL ,NU.P_NOMINAL from NUDO_MV_O_AT NU where NU.ER_IDSAC=:b0 "; static const char *sq0021 = "select distinct MODI.MOD_IDSAC ,TR.TR_NUMERO_TOMA ,TR.TR_PCT_TENSION_NOMINAL from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI ,TOMAS_REGULADOR TR ,ELEMENTO_RED ER where ((((((((TBI.TBI_NOMBRE_TABLA=:b0 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=TR.ER_IDSAC) and ER.ER_IDSAC=TR.ER_IDSAC) and ER.ER_RED in (:b1,:b2)) and MODI.MOD_SECUNDARIO=TR.TR_NUMERO_TOMA) and INC.INC_NOMBRE=:b3) and MODI.MOD_TIPO in (:b4,:b5)) "; static const char *sq0022 = "select distinct MODI.MOD_IDSAC ,TR.TR_NUMERO_TOMA ,TR.TR_PCT_TENSION_NOMINAL from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI ,TOMAS_REGULADOR TR ,ELEMENTO_RED ER1 ,ELEMENTO_RED ER2 ,CONECTIVIDAD_RED CN where ((((((((((TBI.TBI_NOMBRE_TABLA=:b0 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=TR.ER_IDSAC) and ER1.ER_IDSAC=TR.ER_IDSAC) and CN.CN_ELEMENTO1_IDSAC=ER1.ER_IDSAC) and CN.CN_ELEMENTO2_IDSAC=ER2.ER_IDSAC) and (ER1.ER_RED in (:b1,:b2) or ER2.ER_SUBTIPO=:b3)) and MODI.MOD_SECUNDARIO=TR.TR_NUMERO_TOMA) and INC.INC_NOMBRE=:b4) and MODI.MOD_TIPO in (:b5,:b6)) "; typedef struct { unsigned short len; unsigned char arr[1]; } VARCHAR; typedef struct { unsigned short len; unsigned char arr[1]; } varchar; static const short sqlcud0[] = {10,4130,0,0,0, 5,0,0,1,949,0,9,323,0,0,10,10,0,1,0,1,9,0,0,1,97,0,0,1,68,0,0,1,68,0,0,1,68,0, 0,1,9,0,0,1,97,0,0,1,68,0,0,1,68,0,0,1,68,0,0, 60,0,0,1,0,0,13,327,0,0,2,0,0,1,0,2,68,0,0,2,68,0,0, 83,0,0,1,0,0,15,365,0,0,0,0,0,1,0, 98,0,0,2,984,0,9,476,0,0,14,14,0,1,0,1,9,0,0,1,97,0,0,1,68,0,0,1,68,0,0,1,68,0, 0,1,68,0,0,1,68,0,0,1,9,0,0,1,97,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68, 0,0, 169,0,0,2,0,0,13,480,0,0,2,0,0,1,0,2,68,0,0,2,68,0,0, 192,0,0,2,0,0,15,516,0,0,0,0,0,1,0, 207,0,0,3,993,0,9,525,0,0,14,14,0,1,0,1,9,0,0,1,97,0,0,1,68,0,0,1,68,0,0,1,68, 0,0,1,68,0,0,1,68,0,0,1,9,0,0,1,97,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1, 68,0,0, 278,0,0,3,0,0,13,529,0,0,2,0,0,1,0,2,68,0,0,2,68,0,0, 301,0,0,2,0,0,15,565,0,0,0,0,0,1,0, 316,0,0,4,937,0,9,684,0,0,16,16,0,1,0,1,9,0,0,1,68,0,0,1,68,0,0,1,97,0,0,1,68, 0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,9,0,0,1,68,0,0,1,68,0,0,1,97,0,0,1, 68,0,0,1,68,0,0,1,68,0,0, 395,0,0,4,0,0,13,688,0,0,1,0,0,1,0,2,68,0,0, 414,0,0,4,0,0,15,724,0,0,0,0,0,1,0, 429,0,0,5,937,0,9,732,0,0,16,16,0,1,0,1,9,0,0,1,68,0,0,1,68,0,0,1,97,0,0,1,68, 0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,9,0,0,1,68,0,0,1,68,0,0,1,97,0,0,1, 68,0,0,1,68,0,0,1,68,0,0, 508,0,0,5,0,0,13,736,0,0,1,0,0,1,0,2,68,0,0, 527,0,0,5,0,0,15,772,0,0,0,0,0,1,0, 542,0,0,6,178,0,9,807,0,0,3,3,0,1,0,1,97,0,0,1,68,0,0,1,68,0,0, 569,0,0,6,0,0,13,811,0,0,1,0,0,1,0,2,68,0,0, 588,0,0,6,0,0,15,847,0,0,0,0,0,1,0, 603,0,0,7,178,0,9,855,0,0,3,3,0,1,0,1,97,0,0,1,68,0,0,1,68,0,0, 630,0,0,7,0,0,13,859,0,0,1,0,0,1,0,2,68,0,0, 649,0,0,7,0,0,15,895,0,0,0,0,0,1,0, 664,0,0,8,713,0,9,981,0,0,8,8,0,1,0,1,9,0,0,1,68,0,0,1,68,0,0,1,97,0,0,1,68,0, 0,1,9,0,0,1,97,0,0,1,68,0,0, 711,0,0,8,0,0,13,985,0,0,2,0,0,1,0,2,68,0,0,2,68,0,0, 734,0,0,8,0,0,15,1031,0,0,0,0,0,1,0, 749,0,0,9,861,0,9,1039,0,0,9,9,0,1,0,1,9,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,97,0, 0,1,68,0,0,1,9,0,0,1,97,0,0,1,68,0,0, 800,0,0,9,0,0,13,1043,0,0,2,0,0,1,0,2,68,0,0,2,68,0,0, 823,0,0,9,0,0,15,1089,0,0,0,0,0,1,0, 838,0,0,10,1354,0,9,1190,0,0,13,13,0,1,0,1,68,0,0,1,9,0,0,1,97,0,0,1,68,0,0,1, 68,0,0,1,68,0,0,1,68,0,0,1,9,0,0,1,97,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0, 905,0,0,10,0,0,13,1194,0,0,7,0,0,1,0,2,68,0,0,2,68,0,0,2,68,0,0,2,68,0,0,2,68, 0,0,2,68,0,0,2,68,0,0, 948,0,0,10,0,0,15,1242,0,0,0,0,0,1,0, 963,0,0,11,1316,0,9,1389,0,0,13,13,0,1,0,1,9,0,0,1,97,0,0,1,68,0,0,1,68,0,0,1, 68,0,0,1,68,0,0,1,68,0,0,1,9,0,0,1,97,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0, 1030,0,0,11,0,0,13,1393,0,0,6,0,0,1,0,2,68,0,0,2,68,0,0,2,68,0,0,2,68,0,0,2,68, 0,0,2,68,0,0, 1069,0,0,11,0,0,15,1438,0,0,0,0,0,1,0, 1084,0,0,12,1322,0,9,1446,0,0,13,13,0,1,0,1,9,0,0,1,97,0,0,1,68,0,0,1,68,0,0,1, 68,0,0,1,68,0,0,1,68,0,0,1,9,0,0,1,97,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0, 1151,0,0,12,0,0,13,1450,0,0,6,0,0,1,0,2,68,0,0,2,68,0,0,2,68,0,0,2,68,0,0,2,68, 0,0,2,68,0,0, 1190,0,0,12,0,0,15,1495,0,0,0,0,0,1,0, 1205,0,0,13,944,0,9,1630,0,0,12,12,0,1,0,1,9,0,0,1,68,0,0,1,68,0,0,1,97,0,0,1, 68,0,0,1,68,0,0,1,68,0,0,1,9,0,0,1,68,0,0,1,68,0,0,1,97,0,0,1,68,0,0, 1268,0,0,13,0,0,13,1634,0,0,8,0,0,1,0,2,68,0,0,2,68,0,0,2,68,0,0,2,68,0,0,2,68, 0,0,2,68,0,0,2,3,0,0,2,3,0,0, 1315,0,0,13,0,0,15,1713,0,0,0,0,0,1,0, 1330,0,0,14,944,0,9,1721,0,0,12,12,0,1,0,1,9,0,0,1,68,0,0,1,68,0,0,1,97,0,0,1, 68,0,0,1,68,0,0,1,68,0,0,1,9,0,0,1,68,0,0,1,68,0,0,1,97,0,0,1,68,0,0, 1393,0,0,14,0,0,13,1725,0,0,8,0,0,1,0,2,68,0,0,2,68,0,0,2,68,0,0,2,68,0,0,2,68, 0,0,2,68,0,0,2,3,0,0,2,3,0,0, 1440,0,0,14,0,0,15,1804,0,0,0,0,0,1,0, 1455,0,0,15,238,0,9,1849,0,0,3,3,0,1,0,1,97,0,0,1,68,0,0,1,68,0,0, 1482,0,0,15,0,0,13,1853,0,0,2,0,0,1,0,2,68,0,0,2,68,0,0, 1505,0,0,15,0,0,15,1891,0,0,0,0,0,1,0, 1520,0,0,16,238,0,9,1899,0,0,3,3,0,1,0,1,97,0,0,1,68,0,0,1,68,0,0, 1547,0,0,16,0,0,13,1903,0,0,2,0,0,1,0,2,68,0,0,2,68,0,0, 1570,0,0,16,0,0,15,1941,0,0,0,0,0,1,0, 1585,0,0,17,1805,0,9,2111,0,0,32,32,0,1,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0, 1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0, 0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68, 0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1, 68,0,0,1,68,0,0, 1728,0,0,17,0,0,13,2115,0,0,10,0,0,1,0,2,68,0,0,2,68,0,0,2,68,0,0,2,68,0,0,2, 68,0,0,2,68,0,0,2,4,0,0,2,4,0,0,2,4,0,0,2,68,0,0, 1783,0,0,17,0,0,15,2177,0,0,0,0,0,1,0, 1798,0,0,18,1811,0,9,2189,0,0,32,32,0,1,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0, 1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0, 0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68, 0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1, 68,0,0,1,68,0,0, 1941,0,0,18,0,0,13,2193,0,0,10,0,0,1,0,2,68,0,0,2,68,0,0,2,68,0,0,2,68,0,0,2, 68,0,0,2,68,0,0,2,4,0,0,2,4,0,0,2,4,0,0,2,68,0,0, 1996,0,0,18,0,0,15,2256,0,0,0,0,0,1,0, 2011,0,0,19,130,0,9,2289,0,0,1,1,0,1,0,1,68,0,0, 2030,0,0,19,0,0,13,2293,0,0,5,0,0,1,0,2,68,0,0,2,68,0,0,2,68,0,0,2,4,0,0,2,4,0, 0, 2065,0,0,19,0,0,15,2339,0,0,0,0,0,1,0, 2080,0,0,20,133,0,9,2351,0,0,1,1,0,1,0,1,68,0,0, 2099,0,0,20,0,0,13,2355,0,0,5,0,0,1,0,2,68,0,0,2,68,0,0,2,68,0,0,2,4,0,0,2,4,0, 0, 2134,0,0,20,0,0,15,2401,0,0,0,0,0,1,0, 2149,0,0,21,482,0,9,2460,0,0,6,6,0,1,0,1,9,0,0,1,68,0,0,1,68,0,0,1,97,0,0,1,68, 0,0,1,68,0,0, 2188,0,0,21,0,0,13,2466,0,0,3,0,0,1,0,2,68,0,0,2,68,0,0,2,68,0,0, 2215,0,0,21,0,0,15,2522,0,0,0,0,0,1,0, 2230,0,0,22,630,0,9,2529,0,0,7,7,0,1,0,1,9,0,0,1,68,0,0,1,68,0,0,1,68,0,0,1,97, 0,0,1,68,0,0,1,68,0,0, 2273,0,0,22,0,0,13,2535,0,0,3,0,0,1,0,2,68,0,0,2,68,0,0,2,68,0,0, 2300,0,0,22,0,0,15,2591,0,0,0,0,0,1,0, 2315,0,0,23,0,0,32,2761,0,0,0,0,0,1,0, }; typedef long unsigned int size_t; typedef unsigned int wchar_t; typedef struct div_t { int quot; int rem; } div_t; typedef struct ldiv_t { long int quot; long int rem; } ldiv_t; extern int __getmbcurmax (void); extern int mblen (const char *, size_t); extern size_t mbstowcs (wchar_t *, const char *, size_t); extern int mbtowc (wchar_t *, const char *, size_t); extern size_t wcstombs (char *, const wchar_t *, size_t); extern int wctomb (char *, wchar_t); extern int rpmatch (const char *); extern void *valloc (size_t ); extern double atof (const char *); extern int atoi (const char *); extern long int atol (const char *); extern double strtod (const char *, char **); extern long int strtol (const char *, char **, int ); extern unsigned long int strtoul (const char *, char **, int ); extern int rand (void); extern void srand (unsigned int ); extern void *calloc (size_t , size_t ); extern void free (void *); extern void *malloc (size_t ); extern void *realloc (void *, size_t ); extern long a64l (const char *); extern char * l64a (long); extern int ttyslot (void); extern char *ptsname (int); extern void abort (void); extern int atexit (void (*)(void)); extern void exit (int ); extern char *getenv (const char *); extern int system (const char *); extern void *bsearch (const void *, const void *, size_t , size_t , int(*)(const void *, const void *)); extern void qsort (void *, size_t , size_t ,int(*)(const void *, const void *)); extern int abs (int ); extern struct div_t div (int , int ); extern long int labs (long int ); extern struct ldiv_t ldiv (long int , long int ); extern int rand_r (unsigned int *); extern double drand48 (void); extern double erand48 (unsigned short []); extern long jrand48 (unsigned short []); extern void lcong48 (unsigned short []); extern long lrand48 (void); extern long mrand48 (void); extern long nrand48 (unsigned short []); extern unsigned short *seed48 (unsigned short []); extern void srand48 (long); extern int putenv (const char *); extern void setkey (const char *); extern char *initstate (unsigned int, char *, size_t); extern char *setstate (const char *); extern int grantpt (int); extern int getsubopt (char **, char *const *, char **); extern int random (void); extern int srandom (unsigned int); extern char *realpath (const char *, char *); extern int unlockpt (int); extern int getopt (int, char * const [], const char *); extern char *optarg; extern int optind; extern int optopt; extern int opterr; extern int clearenv (); extern char *getpass (const char *); extern char *mktemp (char *); extern int mkstemp (char *); typedef long int ptrdiff_t; typedef unsigned int wctype_t; typedef long fpos_t; typedef int time_t; typedef int clock_t; typedef long ssize_t; typedef unsigned char uchar_t; typedef unsigned short ushort_t; typedef unsigned int uint_t; typedef unsigned long ulong_t; typedef volatile unsigned char vuchar_t; typedef volatile unsigned short vushort_t; typedef volatile unsigned int vuint_t; typedef volatile unsigned long vulong_t; typedef struct { long r[1]; } *physadr_t; typedef struct label_t { long val[10]; } label_t; typedef int level_t; typedef int daddr_t; typedef char * caddr_t; typedef long * qaddr_t; typedef char * addr_t; typedef uint_t ino_t; typedef short cnt_t; typedef int dev_t; typedef int chan_t; typedef long off_t; typedef unsigned long rlim_t; typedef int paddr_t; typedef ushort_t nlink_t; typedef int key_t; typedef uint_t mode_t; typedef uint_t uid_t; typedef uint_t gid_t; typedef void * mid_t; typedef int pid_t; typedef char slab_t[12]; typedef ulong_t shmatt_t; typedef ulong_t msgqnum_t; typedef ulong_t msglen_t; typedef unsigned int wint_t; typedef unsigned long sigset_t; typedef struct __pthread_attr_t { long __valid; char* __name; unsigned long __arg; unsigned long __reserved[19]; } pthread_attr_t; typedef struct __pthread_mutexattr_t { long __valid; unsigned long __reserved[15]; } pthread_mutexattr_t; typedef struct __pthread_condattr_t { long __valid; unsigned long __reserved[13]; } pthread_condattr_t; typedef struct __pthread_rwlockattr_t { long __valid; unsigned long __reserved[15]; } pthread_rwlockattr_t; typedef struct __pthread_t { void* __reserved1; void* __reserved2; unsigned short __size; unsigned char __version; unsigned char __reserved3; unsigned char __external; unsigned char __reserved4[2]; unsigned char __creator; unsigned long __sequence; unsigned long __reserved5[2]; void* __per_kt_area; void* __stack_base; void* __stack_reserve; void* __stack_yellow; void* __stack_guard; unsigned long __stack_size; void** __tsd_values; unsigned long __tsd_count; unsigned int __reserved6; unsigned int __reserved7; unsigned int __thread_flags; int __thd_errno; void* __stack_hiwater; } *pthread_t, pthreadTeb_t; typedef struct __pthread_mutex_t { unsigned int __lock; unsigned int __valid; char* __name; unsigned int __arg; unsigned int __depth; unsigned long __sequence; unsigned long __owner; void* __block; } pthread_mutex_t; typedef struct __pthread_cond_t { unsigned int __state; unsigned int __valid; char* __name; unsigned int __arg; unsigned int __reserved1; unsigned long __sequence; void* __block; } pthread_cond_t; typedef struct __pthread_rwlock_t { unsigned int __valid; unsigned int __flags; char* __name; unsigned int __arg; unsigned int __readers; unsigned int __rwaits; unsigned int __wwaits; unsigned long __sequence; unsigned long __wrid; void* __block; unsigned long __reserved1; } pthread_rwlock_t; typedef unsigned int pthread_key_t; typedef struct __pthread_once_t { long __state; long __reserved[10]; } pthread_once_t; typedef long timer_t; typedef void (*sig_t) (int,void (*)(int)); typedef pid_t id_t; typedef unsigned int useconds_t; typedef uint_t major_t; typedef uint_t minor_t; typedef uint_t devs_t; typedef uint_t unit_t; typedef unsigned long vm_offset_t; typedef unsigned long vm_size_t; typedef uchar_t uchar; typedef ushort_t ushort; typedef uint_t uint; typedef ulong_t ulong; typedef physadr_t physadr; typedef uchar_t u_char; typedef ushort_t u_short; typedef uint_t u_int; typedef ulong_t u_long; typedef vuchar_t vu_char; typedef vushort_t vu_short; typedef vuint_t vu_int; typedef vulong_t vu_long; typedef struct _quad { int val[2]; } quad; typedef long swblk_t; typedef u_long fixpt_t; typedef int fd_mask; typedef struct fd_set { fd_mask fds_bits[(((4096)+(((sizeof(fd_mask) * 8))-1))/((sizeof(fd_mask) * 8)))]; } fd_set; extern void bzero (char *, int); struct timeval; int select (int, fd_set *, fd_set *, fd_set *, struct timeval *); typedef unsigned char sa_family_t; typedef unsigned int in_addr_t; typedef unsigned short in_port_t; char *ecvt (double, int, int *, int *); char *fcvt (double, int, int *, int *); char *gcvt (double, int, char *); typedef __builtin_va_list __gnuc_va_list; typedef struct { int _cnt; unsigned int _flag2; unsigned char *_ptr; unsigned char *_base; int _bufsiz; short _flag; short _file; char *__newbase; void *_lock; unsigned char *_bufendp; } FILE; extern FILE _iob[]; extern size_t fread (void *, size_t, size_t, FILE *); extern size_t fwrite (const void *, size_t, size_t, FILE *); extern int _flsbuf (int, FILE *); extern int _filbuf (FILE *); extern int ferror (FILE *); extern int feof (FILE *); extern void clearerr (FILE *); extern int putchar (int); extern int getchar (void); extern int putc (int, FILE *); extern int getc (FILE *); extern int remove (const char *); extern int rename (const char *, const char *); extern FILE *tmpfile (void); extern char *tmpnam (char *); extern int fclose (FILE *); extern int fflush (FILE *); extern FILE *fopen (const char *, const char *); extern FILE *freopen (const char *, const char *, FILE *); extern void setbuf (FILE *, char *); extern int setvbuf (FILE *, char *, int, size_t); extern int fprintf (FILE *, const char *, ...); extern int fscanf (FILE *, const char *, ...); extern int printf (const char *, ...); extern int scanf (const char *, ...); extern int sprintf (char *, const char *, ...); extern int sscanf (const char *, const char *, ...); typedef __gnuc_va_list va_list; extern int vfprintf (FILE *, const char *, __gnuc_va_list); extern int vprintf (const char *, __gnuc_va_list); extern int vsprintf (char *, const char *, __gnuc_va_list); extern int fgetc (FILE *); extern char *fgets (char *, int, FILE *); extern int fputc (int, FILE *); extern int fputs (const char *, FILE *); extern char *gets (char *); extern int puts (const char *); extern int ungetc (int, FILE *); extern int fgetpos (FILE *, fpos_t *); extern int fseek (FILE *, long, int); extern int fsetpos (FILE *, const fpos_t *); extern long ftell (FILE *); extern void rewind (FILE *); extern void perror (const char *); extern int fileno (FILE *); extern FILE *fdopen (int, const char *); extern char *cuserid (char *); extern char *ctermid (char *); extern int getw (FILE *); extern int pclose (FILE *); extern int putw (int, FILE*); extern FILE *popen (const char *, const char *); extern char *tempnam (const char*, const char*); extern void setbuffer (FILE *, char*, int); extern void setlinebuf (FILE *); extern void *memchr (const void *, int , size_t ); extern void *memcpy (void *, const void *, size_t ); extern void *memset (void *, int , size_t ); extern size_t strcspn (const char *, const char *); extern size_t strlen (const char *); extern size_t strspn (const char *, const char *); extern void *memmove (void *, const void *, size_t ); extern char *strcpy (char *, const char *); extern char *strncpy (char *, const char *, size_t ); extern char *strcat (char *, const char *); extern char *strncat (char *, const char *, size_t ); extern int memcmp (const void *, const void *,size_t ); extern int strcmp (const char *, const char *); extern int strcoll (const char *, const char *); extern int strncmp (const char *,const char *,size_t ); extern size_t strxfrm (char *, const char *, size_t ); extern char *strchr (const char *, int ); extern char *strpbrk (const char *, const char *); extern char *strrchr (const char *, int ); extern char *strstr (const char *, const char *); extern char *strtok (char *, const char *); extern char *strerror (int); extern void *memccpy (void *, const void *, int , size_t ); extern void swab (const void *, void *, ssize_t); extern char *strdup (const char *); extern int bcmp (const char *, const char *, int); extern void bcopy (const char *, char *, int); extern void bzero (char *, int); extern int ffs (int); extern char *index (const char*, int); extern char *rindex (const char*, int); extern int strcasecmp (const char *, const char *); extern int strncasecmp (const char *, const char *, size_t ); extern char * basename (char *); extern char * dirname (char *); struct tm { int tm_sec; int tm_min; int tm_hour; int tm_mday; int tm_mon; int tm_year; int tm_wday; int tm_yday; int tm_isdst; long tm_gmtoff; char *tm_zone; }; extern clock_t clock (void); extern double difftime (time_t , time_t ); extern time_t mktime (struct tm *); extern time_t time (time_t *); extern char *asctime (const struct tm *); extern char *ctime (const time_t *); extern struct tm *gmtime (const time_t *); extern struct tm *localtime (const time_t *); extern size_t strftime (char *, size_t , const char *,const struct tm *); extern char * asctime_r (const struct tm *, char *); extern char * ctime_r (const time_t *, char *); extern struct tm * gmtime_r (const time_t *, struct tm *); extern struct tm * localtime_r (const time_t *, struct tm *); typedef struct sigaltstack { caddr_t ss_sp; int ss_flags; size_t ss_size; } stack_t; typedef union sigval { int sival_int; void *sival_ptr; } sigval_t; typedef struct sigevent_event { union sigval _sigev_value; int _sigev_signo; int _sigev_notify; } sigevent_event_t; typedef struct sigevent { sigevent_event_t _sigev_sigevent; union { int _sigev[(((64)/sizeof(int)) - 4)]; struct { void (*_sigev_notify_function) (sigval_t); pthread_attr_t *_sigev_notify_attributes; } _sigev_un_s; } _sigev_un; } sigevent_t; typedef struct timespec { time_t tv_sec; long tv_nsec; } timespec_t; struct uuprof { short *pr_base; unsigned long pr_size; unsigned long pr_off; unsigned long pr_scale; }; typedef int clockid_t; struct itimerspec { struct timespec it_interval; struct timespec it_value; }; int clock_gettime (clockid_t clock_id, struct timespec *tp); int clock_settime (clockid_t clock_id, const struct timespec *tp); int clock_getdrift (int clock_id, int *oppb); int clock_setdrift (int clock_id, const int ppb, int *oppb); int timer_create (clockid_t clock_id, struct sigevent *evp, timer_t *timer_created); int timer_delete (timer_t timerid); int timer_gettime (timer_t timerid, struct itimerspec *value); int timer_settime (timer_t timerid, int flags, const struct itimerspec *value, struct itimerspec *ovalue); int timer_getoverrun (timer_t timerid); int nanosleep (const struct timespec *rqtp, struct timespec *rmtp); int clock_getres (clockid_t clock_id,struct timespec *res); extern char *tzname[]; extern void tzset (void); extern long timezone; extern int daylight; extern char *strptime (const char *, const char *, struct tm *); extern unsigned char *NLctime (long *); extern unsigned char *NLasctime (struct tm *); extern char *NLstrtime (char *, size_t , const char *, const struct tm *); extern struct tm *getdate (char *); extern int getdate_err; typedef signed char tibrv_i8; typedef unsigned char tibrv_u8; typedef short tibrv_i16; typedef unsigned short tibrv_u16; typedef int tibrv_i32; typedef unsigned int tibrv_u32; typedef long tibrv_i64; typedef unsigned long tibrv_u64; typedef float tibrv_f32; typedef double tibrv_f64; typedef unsigned short tibrv_ipport16; typedef unsigned int tibrv_ipaddr32; typedef enum { TIBRV_FALSE = 0, TIBRV_TRUE = 1 } tibrv_bool; typedef struct __tibrvMsg* tibrvMsg; typedef tibrv_u32 tibrvId; typedef tibrvId tibrvEvent; typedef tibrvId tibrvQueue; typedef tibrvId tibrvTransport; typedef tibrvId tibrvQueueGroup; typedef tibrvId tibrvDispatchable; typedef tibrvId tibrvDispatcher; typedef tibrv_u32 tibrvEventType; typedef enum { TIBRVQUEUE_DISCARD_NONE = 0, TIBRVQUEUE_DISCARD_NEW = 1, TIBRVQUEUE_DISCARD_FIRST = 2, TIBRVQUEUE_DISCARD_LAST = 3 } tibrvQueueLimitPolicy; typedef void (*tibrvEventCallback) ( tibrvEvent event, tibrvMsg message, void* closure); typedef void (*tibrvEventOnComplete) ( tibrvEvent event, void* closure); typedef void (*tibrvQueueOnComplete) ( tibrvQueue queue, void* closure); typedef enum { TIBRV_IO_READ = 1, TIBRV_IO_WRITE = 2, TIBRV_IO_EXCEPTION = 4 } tibrvIOType; typedef struct { tibrv_i64 sec; tibrv_u32 nsec; } tibrvMsgDateTime; typedef union { tibrvMsg msg; const char* str; const void* buf; const void* array; tibrv_bool boolean; tibrv_i8 i8; tibrv_u8 u8; tibrv_i16 i16; tibrv_u16 u16; tibrv_i32 i32; tibrv_u32 u32; tibrv_i64 i64; tibrv_u64 u64; tibrv_f32 f32; tibrv_f64 f64; tibrv_ipport16 ipport16; tibrv_ipaddr32 ipaddr32; tibrvMsgDateTime date; } tibrvLocalData; typedef struct { const char* name; tibrv_u32 size; tibrv_u32 count; tibrvLocalData data; tibrv_u16 id; tibrv_u8 type; } tibrvMsgField; typedef enum { TIBRV_OK = 0, TIBRV_INIT_FAILURE = 1, TIBRV_INVALID_TRANSPORT = 2, TIBRV_INVALID_ARG = 3, TIBRV_NOT_INITIALIZED = 4, TIBRV_ARG_CONFLICT = 5, TIBRV_SERVICE_NOT_FOUND = 16, TIBRV_NETWORK_NOT_FOUND = 17, TIBRV_DAEMON_NOT_FOUND = 18, TIBRV_NO_MEMORY = 19, TIBRV_INVALID_SUBJECT = 20, TIBRV_DAEMON_NOT_CONNECTED = 21, TIBRV_VERSION_MISMATCH = 22, TIBRV_SUBJECT_COLLISION = 23, TIBRV_NOT_PERMITTED = 27, TIBRV_INVALID_NAME = 30, TIBRV_INVALID_TYPE = 31, TIBRV_INVALID_SIZE = 32, TIBRV_INVALID_COUNT = 33, TIBRV_NOT_FOUND = 35, TIBRV_ID_IN_USE = 36, TIBRV_ID_CONFLICT = 37, TIBRV_CONVERSION_FAILED = 38, TIBRV_RESERVED_HANDLER = 39, TIBRV_ENCODER_FAILED = 40, TIBRV_DECODER_FAILED = 41, TIBRV_INVALID_MSG = 42, TIBRV_INVALID_FIELD = 43, TIBRV_INVALID_INSTANCE = 44, TIBRV_CORRUPT_MSG = 45, TIBRV_TIMEOUT = 50, TIBRV_INTR = 51, TIBRV_INVALID_DISPATCHABLE = 52, TIBRV_INVALID_DISPATCHER = 53, TIBRV_INVALID_EVENT = 60, TIBRV_INVALID_CALLBACK = 61, TIBRV_INVALID_QUEUE = 62, TIBRV_INVALID_QUEUE_GROUP = 63, TIBRV_INVALID_TIME_INTERVAL = 64, TIBRV_INVALID_IO_SOURCE = 65, TIBRV_INVALID_IO_CONDITION = 66, TIBRV_SOCKET_LIMIT = 67, TIBRV_OS_ERROR = 68, TIBRV_INSUFFICIENT_BUFFER = 70, TIBRV_EOF = 71, TIBRV_INVALID_FILE = 72, TIBRV_FILE_NOT_FOUND = 73, TIBRV_IO_FAILED = 74, TIBRV_NOT_FILE_OWNER = 80, TIBRV_TOO_MANY_NEIGHBORS = 90, TIBRV_ALREADY_EXISTS = 91 } tibrv_status; extern const char* tibrvStatus_GetText( tibrv_status status); extern tibrv_status tibrvEvent_CreateListener( tibrvEvent* event, tibrvQueue queue, tibrvEventCallback callback, tibrvTransport transport, const char* subject, const void* closure); extern tibrv_status tibrvEvent_CreateTimer( tibrvEvent* event, tibrvQueue queue, tibrvEventCallback callback, tibrv_f64 interval, const void* closure); extern tibrv_status tibrvEvent_CreateIO( tibrvEvent* event, tibrvQueue queue, tibrvEventCallback callback, tibrv_i32 socketId, tibrvIOType ioType, const void* closure); extern tibrv_status tibrvEvent_DestroyEx( tibrvEvent event, tibrvEventOnComplete completeCallback); extern tibrv_status tibrvEvent_GetType( tibrvEvent event, tibrvEventType* type); extern tibrv_status tibrvEvent_GetQueue( tibrvEvent event, tibrvQueue* queue); extern tibrv_status tibrvEvent_GetListenerSubject( tibrvEvent event, const char** subject); extern tibrv_status tibrvEvent_GetListenerTransport( tibrvEvent event, tibrvTransport* transport); extern tibrv_status tibrvEvent_GetTimerInterval( tibrvEvent event, tibrv_f64* interval); extern tibrv_status tibrvEvent_ResetTimerInterval( tibrvEvent event, tibrv_f64 newInterval); extern tibrv_status tibrvEvent_GetIOSource( tibrvEvent event, tibrv_i32* source); extern tibrv_status tibrvEvent_GetIOType( tibrvEvent event, tibrvIOType* ioType); typedef enum { tibrvMsgData_Primitive = 0, tibrvMsgData_MallocBlock = 1, tibrvMsgData_SubMessage = 2, tibrvMsgData_WireReference = 3 } tibrvMsgDataType; typedef tibrv_status (*tibrvMsgData_Encoder)( char** wire_buffer, tibrv_u32 mem_available, tibrvMsgField* field); typedef tibrv_status (*tibrvMsgData_Decoder)( char** wire_buffer, tibrvMsgField* field, tibrvMsgDataType* decoded_type); typedef tibrv_status (*tibrvMsgData_Converter)( tibrvMsgField* field, tibrv_u8 destination_type, tibrvMsgDataType* converted_type); extern tibrv_status tibrvMsg_SetHandlers( tibrv_u8 type, tibrvMsgData_Encoder encoder, tibrvMsgData_Decoder decoder, tibrvMsgData_Converter converter); extern void* tibrvMsgData_Malloc(tibrv_u32 size); extern tibrv_u32 tibrvMsgData_ByteSize( tibrv_u32 content_size); extern tibrv_status tibrvMsgData_CopyBytes( char** buffer, const void* src, tibrv_u32 size); extern tibrv_status tibrvMsgData_GetBytes( char** buffer, const void** src, tibrv_u32* size); extern tibrv_status tibrvMsgData_SetSize( char** buffer, tibrv_u32 size); extern tibrv_status tibrvMsgData_GetSize( char** buffer, tibrv_u32* size); extern tibrv_status tibrvMsg_AddMsgEx( tibrvMsg message, const char* fieldName, tibrvMsg value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddIPAddr32Ex( tibrvMsg message, const char* fieldName, tibrv_ipaddr32 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddIPPort16Ex( tibrvMsg message, const char* fieldName, tibrv_ipport16 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddDateTimeEx( tibrvMsg message, const char* fieldName, const tibrvMsgDateTime * value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddBoolEx( tibrvMsg message, const char* fieldName, tibrv_bool value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddI8Ex( tibrvMsg message, const char* fieldName, tibrv_i8 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddI8ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_i8* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddU8Ex( tibrvMsg message, const char* fieldName, tibrv_u8 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddU8ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_u8* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddI16Ex( tibrvMsg message, const char* fieldName, tibrv_i16 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddI16ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_i16* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddU16Ex( tibrvMsg message, const char* fieldName, tibrv_u16 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddU16ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_u16* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddI32Ex( tibrvMsg message, const char* fieldName, tibrv_i32 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddI32ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_i32* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddU32Ex( tibrvMsg message, const char* fieldName, tibrv_u32 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddU32ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_u32* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddI64Ex( tibrvMsg message, const char* fieldName, tibrv_i64 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddI64ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_i64* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddU64Ex( tibrvMsg message, const char* fieldName, tibrv_u64 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddU64ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_u64* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddF32Ex( tibrvMsg message, const char* fieldName, tibrv_f32 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddF32ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_f32* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddF64Ex( tibrvMsg message, const char* fieldName, tibrv_f64 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddF64ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_f64* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddStringEx( tibrvMsg message, const char* fieldName, const char* value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddOpaqueEx( tibrvMsg message, const char* fieldName, const void* value, tibrv_u32 size, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_AddXmlEx( tibrvMsg message, const char* fieldName, const void* value, tibrv_u32 size, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetFieldEx( tibrvMsg message, const char* fieldName, tibrvMsgField* field, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetMsgEx( tibrvMsg message, const char* fieldName, tibrvMsg* subMessage, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetIPAddr32Ex( tibrvMsg message, const char* fieldName, tibrv_ipaddr32* value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetIPPort16Ex( tibrvMsg message, const char* fieldName, tibrv_ipport16* value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetDateTimeEx( tibrvMsg message, const char* fieldName, tibrvMsgDateTime* value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetBoolEx( tibrvMsg message, const char* fieldName, tibrv_bool* value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetI8Ex( tibrvMsg message, const char* fieldName, tibrv_i8* value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetI8ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_i8** array, tibrv_u32* numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetU8Ex( tibrvMsg message, const char* fieldName, tibrv_u8* value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetU8ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_u8** array, tibrv_u32* numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetI16Ex( tibrvMsg message, const char* fieldName, tibrv_i16* value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetI16ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_i16** array, tibrv_u32* numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetU16Ex( tibrvMsg message, const char* fieldName, tibrv_u16* value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetU16ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_u16** array, tibrv_u32* numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetI32Ex( tibrvMsg message, const char* fieldName, tibrv_i32* value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetI32ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_i32** array, tibrv_u32* numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetU32Ex( tibrvMsg message, const char* fieldName, tibrv_u32* value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetU32ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_u32** array, tibrv_u32* numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetI64Ex( tibrvMsg message, const char* fieldName, tibrv_i64* value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetI64ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_i64** array, tibrv_u32* numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetU64Ex( tibrvMsg message, const char* fieldName, tibrv_u64* value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetU64ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_u64** array, tibrv_u32* numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetF32Ex( tibrvMsg message, const char* fieldName, tibrv_f32* value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetF32ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_f32** array, tibrv_u32* numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetF64Ex( tibrvMsg message, const char* fieldName, tibrv_f64* value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetF64ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_f64** array, tibrv_u32* numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetStringEx( tibrvMsg message, const char* fieldName, const char** value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetOpaqueEx( tibrvMsg message, const char* fieldName, const void** value, tibrv_u32* size, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_GetXmlEx( tibrvMsg message, const char* fieldName, const void** value, tibrv_u32* size, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_RemoveFieldEx( tibrvMsg message, const char* fieldName, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateMsgEx( tibrvMsg message, const char* fieldName, tibrvMsg value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateIPAddr32Ex( tibrvMsg message, const char* fieldName, tibrv_ipaddr32 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateIPPort16Ex( tibrvMsg message, const char* fieldName, tibrv_ipport16 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateDateTimeEx( tibrvMsg message, const char* fieldName, const tibrvMsgDateTime * value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateBoolEx( tibrvMsg message, const char* fieldName, tibrv_bool value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateI8Ex( tibrvMsg message, const char* fieldName, tibrv_i8 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateI8ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_i8* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateU8Ex( tibrvMsg message, const char* fieldName, tibrv_u8 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateU8ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_u8* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateI16Ex( tibrvMsg message, const char* fieldName, tibrv_i16 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateI16ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_i16* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateU16Ex( tibrvMsg message, const char* fieldName, tibrv_u16 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateU16ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_u16* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateI32Ex( tibrvMsg message, const char* fieldName, tibrv_i32 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateI32ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_i32* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateU32Ex( tibrvMsg message, const char* fieldName, tibrv_u32 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateU32ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_u32* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateU64Ex( tibrvMsg message, const char* fieldName, tibrv_u64 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateU64ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_u64* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateI64Ex( tibrvMsg message, const char* fieldName, tibrv_i64 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateI64ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_i64* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateF32Ex( tibrvMsg message, const char* fieldName, tibrv_f32 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateF32ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_f32* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateF64Ex( tibrvMsg message, const char* fieldName, tibrv_f64 value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateF64ArrayEx( tibrvMsg message, const char* fieldName, const tibrv_f64* array, tibrv_u32 numElements, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateStringEx( tibrvMsg message, const char* fieldName, const char* value, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateOpaqueEx( tibrvMsg message, const char* fieldName, const void* value, tibrv_u32 size, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_UpdateXmlEx( tibrvMsg message, const char* fieldName, const void* value, tibrv_u32 size, tibrv_u16 optIdentifier); extern tibrv_status tibrvMsg_Create( tibrvMsg* message); extern tibrv_status tibrvMsg_CreateEx( tibrvMsg* message, tibrv_u32 initialStorage); extern tibrv_status tibrvMsg_Destroy( tibrvMsg message); extern tibrv_status tibrvMsg_Detach( tibrvMsg message); extern tibrv_status tibrvMsg_Reset( tibrvMsg message); extern tibrv_status tibrvMsg_Expand( tibrvMsg message, tibrv_i32 additionalStorage); extern tibrv_status tibrvMsg_SetSendSubject( tibrvMsg message, const char* subject); extern tibrv_status tibrvMsg_GetSendSubject( tibrvMsg message, const char** subject); extern tibrv_status tibrvMsg_SetReplySubject( tibrvMsg message, const char* replySubject); extern tibrv_status tibrvMsg_GetReplySubject( tibrvMsg message, const char** replySubject); extern tibrv_status tibrvMsg_GetNumFields( tibrvMsg message, tibrv_u32* numFields); extern tibrv_status tibrvMsg_GetByteSize( tibrvMsg message, tibrv_u32* byteSize); extern tibrv_status tibrvMsg_ConvertToString( tibrvMsg message, const char** string); extern tibrv_status tibrvMsg_AddField( tibrvMsg message, tibrvMsgField* field); extern tibrv_status tibrvMsg_GetFieldInstance( tibrvMsg message, const char* fieldName, tibrvMsgField* fieldAddr, tibrv_u32 instance); extern tibrv_status tibrvMsg_GetFieldByIndex( tibrvMsg message, tibrvMsgField* field, tibrv_u32 fieldIndex); extern tibrv_status tibrvMsg_RemoveFieldInstance( tibrvMsg message, const char* fieldName, tibrv_u32 instance); extern tibrv_status tibrvMsg_UpdateField( tibrvMsg message, tibrvMsgField* field); extern tibrv_status tibrvMsg_CreateFromBytes( tibrvMsg* message, const void* bytes); extern tibrv_status tibrvMsg_GetAsBytes( tibrvMsg message, const void** bytePtr); extern tibrv_status tibrvMsg_GetAsBytesCopy( tibrvMsg message, void* bytePtr, tibrv_u32 byteSize); extern tibrv_status tibrvMsg_CreateCopy( const tibrvMsg message, tibrvMsg* copy); extern tibrv_status tibrvMsg_MarkReferences( tibrvMsg message); extern tibrv_status tibrvMsg_ClearReferences( tibrvMsg message); extern tibrv_status tibrvMsg_GetCurrentTime( tibrvMsgDateTime * dateTime); extern tibrv_status tibrvQueue_Create( tibrvQueue* eventQueue); extern tibrv_status tibrvQueue_TimedDispatch( tibrvQueue eventQueue, tibrv_f64 timeout); extern tibrv_status tibrvQueue_DestroyEx( tibrvQueue eventQueue, tibrvQueueOnComplete completeCallback, const void* closure); extern tibrv_status tibrvQueue_GetCount( tibrvQueue eventQueue, tibrv_u32* numEvents); extern tibrv_status tibrvQueue_GetPriority( tibrvQueue eventQueue, tibrv_u32* priority); extern tibrv_status tibrvQueue_SetPriority( tibrvQueue eventQueue, tibrv_u32 priority); extern tibrv_status tibrvQueue_GetLimitPolicy( tibrvQueue eventQueue, tibrvQueueLimitPolicy* policy, tibrv_u32* maxEvents, tibrv_u32* discardAmount); extern tibrv_status tibrvQueue_SetLimitPolicy( tibrvQueue eventQueue, tibrvQueueLimitPolicy policy, tibrv_u32 maxEvents, tibrv_u32 discardAmount); extern tibrv_status tibrvQueue_SetName( tibrvQueue eventQueue, const char* queueName); extern tibrv_status tibrvQueue_GetName( tibrvQueue eventQueue, const char** queueName); typedef void (*tibrvQueueHook) ( tibrvQueue eventQueue, void* closure); extern tibrv_status tibrvQueue_SetHook( tibrvQueue eventQueue, tibrvQueueHook eventQueueHook, void* closure); extern tibrv_status tibrvQueue_GetHook( tibrvQueue eventQueue, tibrvQueueHook* eventQueueHook); extern tibrv_status tibrvQueueGroup_Create( tibrvQueueGroup* eventQueueGroup); extern tibrv_status tibrvQueueGroup_TimedDispatch( tibrvQueueGroup eventQueueGroup, tibrv_f64 timeout); extern tibrv_status tibrvQueueGroup_Destroy( tibrvQueueGroup eventQueueGroup); extern tibrv_status tibrvQueueGroup_Add( tibrvQueueGroup eventQueueGroup, tibrvQueue eventQueue); extern tibrv_status tibrvQueueGroup_Remove( tibrvQueueGroup eventQueueGroup, tibrvQueue eventQueue); extern tibrv_status tibrvTransport_Create( tibrvTransport* transport, const char* service, const char* network, const char* daemon); extern tibrv_status tibrvTransport_Send( tibrvTransport transport, tibrvMsg message); extern tibrv_status tibrvTransport_SendRequest( tibrvTransport transport, tibrvMsg message, tibrvMsg* reply, tibrv_f64 idleTimeout); extern tibrv_status tibrvTransport_SendReply( tibrvTransport transport, tibrvMsg message, tibrvMsg requestMessage); extern tibrv_status tibrvTransport_Destroy( tibrvTransport transport); extern tibrv_status tibrvTransport_CreateInbox( tibrvTransport transport, char* subjectString, tibrv_u32 subjectLimit); extern tibrv_status tibrvTransport_GetService( tibrvTransport transport, const char** serviceString); extern tibrv_status tibrvTransport_GetNetwork( tibrvTransport transport, const char** networkString); extern tibrv_status tibrvTransport_GetDaemon( tibrvTransport transport, const char** daemonString); extern tibrv_status tibrvTransport_SetDescription( tibrvTransport transport, const char* description); extern tibrv_status tibrvTransport_GetDescription( tibrvTransport transport, const char** description); extern tibrv_status tibrvTransport_SetSendingWaitLimit( tibrvTransport transport, tibrv_u32 numBytes); extern tibrv_status tibrvTransport_GetSendingWaitLimit( tibrvTransport transport, tibrv_u32* numBytes); extern tibrv_status tibrvTransport_CreateLicensed( tibrvTransport* transport, const char* service, const char* network, const char* daemon, const char* license_ticket); extern tibrv_status tibrvDispatcher_CreateEx( tibrvDispatcher* dispatcher, tibrvDispatchable dispatchable, tibrv_f64 idleTimeout); extern tibrv_status tibrvDispatcher_Destroy( tibrvDispatcher dispatcher); extern tibrv_status tibrvDispatcher_SetName( tibrvDispatcher dispatcher, const char* dispatchName); extern tibrv_status tibrvDispatcher_GetName( tibrvDispatcher dispatcher, const char** dispatchName); extern const char* tibrv_Version(void); extern tibrv_status tibrv_Open(void); extern tibrv_status tibrv_Close(void); extern const char* tibrvcm_Version(void); typedef tibrvId tibrvcmTransport; typedef tibrvId tibrvcmEvent; extern tibrv_status tibrvcmTransport_Create( tibrvcmTransport* cmTransport, tibrvTransport transport, const char* cmName, tibrv_bool requestOld, const char* ledgerName, tibrv_bool syncLedger, const char* relayAgent); extern tibrv_status tibrvcmTransport_Send( tibrvcmTransport cmTransport, tibrvMsg message); extern tibrv_status tibrvcmTransport_SendRequest( tibrvcmTransport cmTransport, tibrvMsg message, tibrvMsg* reply, tibrv_f64 idleTimeout); extern tibrv_status tibrvcmTransport_SendReply( tibrvcmTransport cmTransport, tibrvMsg message, tibrvMsg requestMessage); extern tibrv_status tibrvcmTransport_GetTransport( tibrvcmTransport cmTransport, tibrvTransport* transport); extern tibrv_status tibrvcmTransport_GetName( tibrvcmTransport cmTransport, const char** cmName); extern tibrv_status tibrvcmTransport_GetRelayAgent( tibrvcmTransport cmTransport, const char** relayAgent); extern tibrv_status tibrvcmTransport_GetLedgerName( tibrvcmTransport cmTransport, const char** ledgerName); extern tibrv_status tibrvcmTransport_GetSyncLedger( tibrvcmTransport cmTransport, tibrv_bool* syncLedger); extern tibrv_status tibrvcmTransport_GetRequestOld( tibrvcmTransport cmTransport, tibrv_bool* requestOld); extern tibrv_status tibrvcmTransport_AllowListener( tibrvcmTransport cmTransport, const char* cmName); extern tibrv_status tibrvcmTransport_DisallowListener( tibrvcmTransport cmTransport, const char* cmName); extern tibrv_status tibrvcmTransport_AddListener( tibrvcmTransport cmTransport, const char* cmName, const char* subject); extern tibrv_status tibrvcmTransport_RemoveListener( tibrvcmTransport cmTransport, const char* cmName, const char* subject); extern tibrv_status tibrvcmTransport_RemoveSendState( tibrvcmTransport cmTransport, const char* subject); extern tibrv_status tibrvcmTransport_SyncLedger( tibrvcmTransport cmTransport); extern tibrv_status tibrvcmTransport_ConnectToRelayAgent( tibrvcmTransport cmTransport); extern tibrv_status tibrvcmTransport_DisconnectFromRelayAgent( tibrvcmTransport cmTransport); extern tibrv_status tibrvcmTransport_Destroy( tibrvcmTransport cmTransport); typedef void (*tibrvcmEventCallback) ( tibrvcmEvent event, tibrvMsg message, void* closure); extern tibrv_status tibrvcmEvent_CreateListener( tibrvcmEvent* cmListener, tibrvQueue queue, tibrvcmEventCallback callback, tibrvcmTransport cmTransport, const char* subject, const void* closure); extern tibrv_status tibrvcmEvent_GetQueue( tibrvcmEvent event, tibrvQueue* queue); extern tibrv_status tibrvcmEvent_GetListenerSubject( tibrvcmEvent event, const char** subject); extern tibrv_status tibrvcmEvent_GetListenerTransport( tibrvcmEvent event, tibrvcmTransport* transport); extern tibrv_status tibrvcmEvent_SetExplicitConfirm( tibrvcmEvent cmListener); extern tibrv_status tibrvcmEvent_ConfirmMsg( tibrvcmEvent cmListener, tibrvMsg message); extern tibrv_status tibrvcmEvent_DestroyEx( tibrvcmEvent cmListener, tibrv_bool cancelAgreements, tibrvEventOnComplete completeCallback); extern tibrv_status tibrvMsg_GetCMSender( tibrvMsg message, const char** senderName); extern tibrv_status tibrvMsg_GetCMSequence( tibrvMsg message, tibrv_u64* sequenceNumber); extern tibrv_status tibrvMsg_GetCMTimeLimit( tibrvMsg message, tibrv_f64* timeLimit); extern tibrv_status tibrvMsg_SetCMTimeLimit( tibrvMsg message, tibrv_f64 timeLimit); extern tibrv_status tibrvcmTransport_GetDefaultCMTimeLimit( tibrvcmTransport cmTransport, tibrv_f64* timeLimit); extern tibrv_status tibrvcmTransport_SetDefaultCMTimeLimit( tibrvcmTransport cmTransport, tibrv_f64 timeLimit); typedef void* (*tibrvcmReviewCallback) ( tibrvcmTransport cmTransport, const char* subject, tibrvMsg message, void* closure); extern tibrv_status tibrvcmTransport_ReviewLedger( tibrvcmTransport cmTransport, tibrvcmReviewCallback callback, const char* subject, const void* closure); extern tibrv_status tibrvcmTransport_CreateDistributedQueueEx( tibrvcmTransport* cmTransport, tibrvTransport transport, const char* cmName, tibrv_u32 workerWeight, tibrv_u32 workerTasks, tibrv_u16 schedulerWeight, tibrv_f64 schedulerHeartbeat, tibrv_f64 schedulerActivation); extern tibrv_status tibrvcmTransport_SetCompleteTime( tibrvcmTransport cmTransport, tibrv_f64 completeTime); extern tibrv_status tibrvcmTransport_GetCompleteTime( tibrvcmTransport cmTransport, tibrv_f64* completeTime); extern tibrv_status tibrvcmTransport_SetWorkerWeight( tibrvcmTransport cmTransport, tibrv_u32 workerWeight); extern tibrv_status tibrvcmTransport_GetWorkerWeight( tibrvcmTransport cmTransport, tibrv_u32* workerWeight); extern tibrv_status tibrvcmTransport_SetWorkerTasks( tibrvcmTransport cmTransport, tibrv_u32 listenerTasks); extern tibrv_status tibrvcmTransport_GetWorkerTasks( tibrvcmTransport cmTransport, tibrv_u32* listenerTasks); typedef char *rv_Name; typedef tibrv_u64 rvcm_Seq; typedef tibrv_u32 rvmsg_Size; typedef enum { RVMSG_OPAQUE, RVMSG_RVMSG } rvmsg_Type; typedef tibrvEventType rvevm_EventType; typedef int rvevm_EventId; typedef void *rv_Opaque; void rv_MainLoop(tibrvTransport rvSes); typedef void (*rvevm_EventCallback)(tibrvTransport session, rv_Opaque closure, rvevm_EventType eventType, rvevm_EventId eventId); typedef void (*callback_viejo_t)(tibrvTransport session, rv_Name name, rv_Name replyName, rvmsg_Type msgType, rvmsg_Size msgSize, tibrvMsg msg, rv_Opaque closure); tibrv_status rv_Send(tibrvTransport rvSes, const char *canal, rvmsg_Type tipo, int x, tibrvMsg msj); tibrv_status rv_SendWithReply(tibrvTransport rvSes, const char *subject, const char *reply_subject, rvmsg_Type tipo, int x, tibrvMsg msj); tibrv_status rv_Rpc(tibrvTransport rvSes, tibrvEvent *pListenId, const char *canal, rvmsg_Type tipo, int x, tibrvMsg msj, callback_viejo_t callback, void *closure); tibrv_status rvevm_AddTimer(tibrvTransport rvSes, rvevm_EventId *timerId, int lapso, rvevm_EventCallback cb, void *closure); tibrv_status rvevm_AddRepeatingTimer(tibrvTransport rvSes, rvevm_EventId *timerId, int lapso, rvevm_EventCallback cb, void *closure); tibrv_status rvevm_RemoveTimer(tibrvTransport rvSes, tibrvEvent e); tibrv_status rvevm_ResetTimer(tibrvTransport rvSes, tibrvEvent e, int lapso); tibrv_status rvcm_Send(tibrvTransport rvSes, const char *canal, rvmsg_Type tipo, int x, tibrvMsg msj, unsigned long tiempo, rvcm_Seq *numSecuencia); tibrv_status rv_Init(tibrvTransport *t, const char *pcService, const char *pcNetwork, const char *pcDaemon); tibrv_status rv_ListenSubject(tibrvTransport rvSes, tibrvEvent *evento, const char *subject, callback_viejo_t callback, void *closure); tibrv_status rv_Term(tibrvTransport t); typedef void (*callback_accion_t)(void *closure); void invocar_accion_en_thread_principal(callback_accion_t cb, void *closure); extern char **environ; extern ssize_t pread (int, void *, size_t, off_t); extern ssize_t pwrite (int , const void *, size_t, off_t); extern ssize_t read (int, void *, size_t); extern ssize_t write (int , const void *, size_t); extern int access (const char *, int ); extern unsigned int alarm (unsigned int ); extern int chdir (const char *); extern int chown (const char *, uid_t , gid_t ); extern int chroot (const char *); extern int close (int ); extern size_t confstr (int, char *, size_t); extern int dup (int ); extern int dup2 (int , int ); extern int execl (const char *, const char *, ...); extern int execv (const char *, char *const[]); extern int execle (const char *, const char *, ...); extern int execve (const char *, char *const[], char *const[]); extern int execlp (const char *, const char *, ...); extern int execvp (const char *, char *const[]); extern void _exit (int ); extern pid_t fork (void); extern long fpathconf (int , int ); extern int fsync (int); extern int fdatasync (int); extern char *getcwd (char *, size_t ); extern gid_t getegid (void); extern uid_t geteuid (void); extern gid_t getgid (void); extern int getgroups (int , gid_t []); extern char *getlogin (void); extern pid_t getpgrp (void); extern pid_t getpid (void); extern pid_t getppid (void); extern uid_t getuid (void); extern int isatty (int ); extern int link (const char *, const char *); extern off_t lseek (int , off_t , int ); extern long pathconf (const char *, int ); extern int pause (void); extern int pipe (int []); extern int rmdir (const char *); extern int setgid (gid_t ); extern int setpgid (pid_t , pid_t ); extern pid_t setsid (void); extern int setuid (uid_t ); extern unsigned int sleep (unsigned int ); extern long sysconf (int ); extern pid_t tcgetpgrp (int ); extern int tcsetpgrp (int , pid_t ); extern char *ttyname (int ); extern int unlink (const char *); extern void swab (const void *, void *, ssize_t); extern int getlogin_r (char *, size_t); extern int ttyname_r (int, char *, size_t); extern int pthread_atfork (void (*)(void), void (*)(void), void (*)(void)); extern int fchown (int, uid_t, gid_t); extern int ftruncate (int, off_t); extern int readlink (const char *, char *, int); extern int symlink (const char *, const char *); extern int setgroups (int, gid_t []); extern int truncate (const char *, off_t); extern char *crypt (const char *, const char *); extern char *cuserid (char *); extern char *ctermid (char *); extern void encrypt (char [], int); extern char *getpass (const char *); extern int nice (int); extern int brk (char *); extern int gethostname (char *, int); extern int getpagesize (void); extern pid_t getpgid (pid_t); extern pid_t getsid (pid_t); extern char *getwd (char *); extern int lchown (const char *, uid_t, gid_t); extern int lockf (int, int, off_t); extern void *sbrk (ssize_t); extern unsigned int ualarm (unsigned int, unsigned int); extern void sync (void); extern int setpgrp (pid_t, pid_t); extern int setregid (gid_t, gid_t); extern int setreuid (uid_t, uid_t); extern pid_t vfork (void); extern int getdtablesize (void); extern char *gettxt (const char *, const char *); extern char *getenv (const char *); extern int rename (const char *, const char *); extern int rresvport (int *); extern int rresvport2 (int *, int); extern int seteuid (uid_t); extern int setegid (gid_t); extern int setlogin (char *); extern int setrgid (gid_t); extern int setruid (uid_t); typedef long jmp_buf[(35+1+48)]; typedef long sigjmp_buf[(35+1+48)]; extern void longjmp (jmp_buf, int); extern int setjmp (jmp_buf); extern int sigsetjmp (sigjmp_buf, int); extern void siglongjmp (sigjmp_buf, int); extern int _setjmp (jmp_buf); extern void _longjmp (jmp_buf, int); extern int *_errno (void); extern int _Geterrno (void); extern int _Seterrno (int); extern void perror (const char *); extern char *sys_errlist[]; extern int sys_nerr; typedef void *__pthreadExcAddr_t, **__pthreadExcAddr_p; typedef long __pthreadExcLong_t, *__pthreadExcLong_p; typedef short __pthreadExcShort_t, *__pthreadExcShort_p; typedef unsigned long __pthreadExcUns_t, *__pthreadExcUns_p; typedef unsigned long __pthreadStatus_t; typedef enum __pthreadExcKind_t { _PTHREAD_EXC_KIND_NONE = 0, _PTHREAD_EXC_KIND_ADDR = 0x02130455, _PTHREAD_EXC_KIND_STATUS = 0x02130456 } __pthreadExcKind_t; typedef sigjmp_buf __pthreadExcJumpBuf_t; typedef long __pthreadExcArg_t, *__pthreadExcArg_p; typedef struct __pthreadExcExt { __pthreadExcLong_t __sentinel; __pthreadExcShort_t __version; __pthreadExcShort_t __flags; unsigned int __reserved0; __pthreadExcAddr_t __extend; __pthreadExcArg_p __args; } __pthreadExcExt_t; typedef struct __pthreadExcKindV1Addr { __pthreadExcKind_t __kind; unsigned int __reserved0; __pthreadExcAddr_t __address; __pthreadExcUns_t __filler[6]; } __pthreadExcKindV1Addr_t; typedef struct __pthreadExcKindV1Status { __pthreadExcKind_t __kind; unsigned int __reserved0; __pthreadExcUns_t __status; __pthreadExcUns_t __filler[6]; } __pthreadExcKindV1Status_t; typedef struct __pthreadExcKindAddr { __pthreadExcKind_t __kind; unsigned int __reserved0; __pthreadExcAddr_t __address; __pthreadExcExt_t __ext; } __pthreadExcKindAddr_t; typedef struct __pthreadExcKindStatus { __pthreadExcKind_t __kind; unsigned int __reserved0; __pthreadStatus_t __status; __pthreadExcExt_t __ext; } __pthreadExcKindStatus_t; typedef union __pthreadExceptionObj { __pthreadExcKind_t __kind; __pthreadExcKindV1Status_t __v1status; __pthreadExcKindV1Addr_t __v1address; __pthreadExcKindStatus_t __status; __pthreadExcKindAddr_t __address; } __pthreadExceptionObj_t, *__pthreadExceptionObj_p; typedef enum __pthreadExcState_t { _PTHREAD_EXC_STATE_ACTIVE = 0, _PTHREAD_EXC_STATE_NONE = 1, _PTHREAD_EXC_STATE_HANDLED = 2, _PTHREAD_EXC_STATE_POPPED = 3 } __pthreadExcState_t; typedef struct __pthreadExcNative { long __exceptionCode; __pthreadExcUns_t __exceptionFlags; void *__exceptionRecord; void *__exceptionAddress; __pthreadExcUns_t __numberParameters; __pthreadExcUns_t __exceptionInformation[5]; } __pthreadExcNative_t; typedef struct __pthreadExcCtx { __pthreadExcJumpBuf_t __jmp; volatile struct __pthreadExcCtx *__link; volatile __pthreadExceptionObj_t __cur_exception; volatile __pthreadExcState_t __exc_state; unsigned int __reserved0; __pthreadExcLong_t __sentinel; __pthreadExcLong_t __version; __pthreadExcNative_t __exrec_copy; } __pthreadExcCtx_t, *__pthreadExcCtx_p; extern void pthread_exc_get_message_np (__pthreadExceptionObj_p, int, char *); extern void pthread_exc_pop_ctx_np (__pthreadExcCtx_p); extern void pthread_exc_push_ctx_np (__pthreadExcCtx_p); extern void pthread_exc_raise_np (__pthreadExceptionObj_p); extern void pthread_exc_raise_status_np (__pthreadStatus_t); extern void pthread_exc_report_np (__pthreadExceptionObj_p); extern __pthreadExceptionObj_t pthread_exc_uninitexc_e, pthread_exc_illaddr_e, pthread_exc_exquota_e, pthread_exc_insfmem_e, pthread_exc_nopriv_e, pthread_exc_illinstr_e, pthread_exc_resaddr_e, pthread_exc_privinst_e, pthread_exc_resoper_e, pthread_exc_SIGTRAP_e, pthread_exc_SIGABRT_e, pthread_exc_SIGEMT_e, pthread_exc_aritherr_e, pthread_exc_SIGSYS_e, pthread_exc_SIGPIPE_e, pthread_exc_excpu_e, pthread_exc_exfilsiz_e, pthread_exc_intovf_e, pthread_exc_intdiv_e, pthread_exc_fltovf_e, pthread_exc_fltdiv_e, pthread_exc_fltund_e, pthread_exc_decovf_e, pthread_exc_subrng_e, pthread_cancel_e, pthread_exit_e, pthread_stackovf_e, pthread_exc_noexcmem_e; struct sched_param { int sched_priority; }; int sched_setparam (pid_t pid, struct sched_param *param); int sched_getparam (pid_t pid, struct sched_param *param); int sched_setscheduler (pid_t pid, int policy, struct sched_param *param); int sched_getscheduler (pid_t pid); int sched_yield (void); int sched_get_priority_max (int policy); int sched_get_priority_min (int policy); int sched_rr_get_interval (pid_t pid, struct timespec *min); typedef long __pthreadLongInt_t; typedef unsigned long __pthreadLongUint_t; typedef void* __pthreadLongAddr_t; typedef char* __pthreadLongString_t; typedef __pthreadLongAddr_t* __pthreadLongAddr_p; typedef void* __pthreadShortAddr_t; typedef char* __pthreadShortString_t; typedef __pthreadLongAddr_t* __pthreadShortAddr_p; typedef __pthreadLongAddr_p __pthreadTsd_t; typedef struct __pthread_paddockattr_t { __pthreadLongUint_t __valid; __pthreadLongUint_t __reserved[15]; } pthread_paddockattr_t; typedef struct __pthread_paddock_t { __pthreadLongUint_t __valid; __pthreadLongString_t __name; __pthreadLongUint_t __arg; __pthreadLongUint_t __reserved[19]; } pthread_paddock_t; typedef void* __pthreadStartFunc_t (void *); typedef void __pthreadDestructorFunc_t (void*); typedef void* __pthreadConstructorFunc_t (pthread_key_t, pthread_t); typedef void __pthreadExtDestructorFunc_t (void*, pthread_t, pthread_key_t); typedef void __pthreadOnceFunc_t (void); typedef __pthreadStartFunc_t* __pthreadStart_t; typedef __pthreadDestructorFunc_t* __pthreadDestructor_t; typedef __pthreadConstructorFunc_t* __pthreadConstructor_t; typedef __pthreadExtDestructorFunc_t* __pthreadExtDestructor_t; typedef __pthreadOnceFunc_t* __pthreadOnce_t; extern pthread_t pthread_self (void); extern int pthread_sigmask (int, const sigset_t*, sigset_t*); extern int pthread_kill (pthread_t, int); extern int pthread_mutexattr_init (pthread_mutexattr_t*); extern int pthread_mutexattr_destroy (pthread_mutexattr_t*); extern int pthread_mutex_init (pthread_mutex_t*, const pthread_mutexattr_t*); extern int pthread_mutex_destroy (pthread_mutex_t*); extern int pthread_mutex_lock (pthread_mutex_t*); extern int pthread_mutex_trylock (pthread_mutex_t*); extern int pthread_mutex_unlock (pthread_mutex_t*); extern int pthread_condattr_init (pthread_condattr_t*); extern int pthread_condattr_destroy (pthread_condattr_t*); extern int pthread_condattr_setpshared (pthread_condattr_t*, int); extern int pthread_condattr_getpshared (const pthread_condattr_t*, int*); extern int pthread_cond_init ( pthread_cond_t*, const pthread_condattr_t*); extern int pthread_cond_destroy (pthread_cond_t*); extern int pthread_cond_signal (pthread_cond_t*); extern int pthread_cond_broadcast (pthread_cond_t*); extern int pthread_cond_wait (pthread_cond_t*, pthread_mutex_t*); extern int pthread_cond_timedwait ( pthread_cond_t*, pthread_mutex_t*, const struct timespec*); extern int pthread_attr_setscope (pthread_attr_t*, int); extern int pthread_attr_getscope (const pthread_attr_t*, int*); extern int pthread_attr_setstackaddr (pthread_attr_t*, void*); extern int pthread_attr_getstackaddr (const pthread_attr_t*, void**); extern int pthread_attr_setstackaddr_np (pthread_attr_t*, void*, size_t); extern int pthread_attr_getstackaddr_np ( const pthread_attr_t*, void**, size_t*); extern int pthread_attr_setinheritsched (pthread_attr_t*, int); extern int pthread_attr_getinheritsched (const pthread_attr_t*, int*); extern int pthread_attr_setschedpolicy (pthread_attr_t*, int); extern int pthread_attr_getschedpolicy (const pthread_attr_t*, int*); extern int pthread_attr_setschedparam ( pthread_attr_t*, const struct sched_param*); extern int pthread_attr_getschedparam ( const pthread_attr_t*, struct sched_param*); extern int pthread_getschedparam (pthread_t, int*, struct sched_param*); extern int pthread_setschedparam (pthread_t, int, const struct sched_param*); extern int pthread_getconcurrency (void); extern int pthread_setconcurrency (int); extern int pthread_attr_init (pthread_attr_t*); extern int pthread_attr_destroy (pthread_attr_t*); extern int pthread_attr_setstacksize (pthread_attr_t*, size_t); extern int pthread_attr_getstacksize ( const pthread_attr_t*, size_t*); extern int pthread_attr_setdetachstate (pthread_attr_t*, int); extern int pthread_attr_getdetachstate (const pthread_attr_t*, int*); extern int pthread_create ( pthread_t*, const pthread_attr_t*, void* (*)(void *), void*); extern int pthread_join (pthread_t, void**); extern int pthread_detach (pthread_t); extern void pthread_exit (void*); extern int pthread_equal (pthread_t, pthread_t); extern int pthread_once (pthread_once_t*, __pthreadOnce_t); extern int pthread_key_create (pthread_key_t*, __pthreadDestructor_t); extern int pthread_key_delete (pthread_key_t); extern int pthread_key_create_new_np ( pthread_key_t*, __pthreadConstructor_t, __pthreadExtDestructor_t, int); extern void* pthread_getspecific (pthread_key_t); extern int pthread_setspecific (pthread_key_t, const void*); extern int pthread_cancel (pthread_t); extern int pthread_setcancelstate (int, int*); extern int pthread_setcanceltype (int, int*); extern void pthread_testcancel (void); extern int pthread_attr_getname_np ( const pthread_attr_t*, char*, size_t, void**); extern int pthread_attr_setname_np (pthread_attr_t*, const char*, void*); extern int pthread_cond_getname_np (pthread_cond_t*, char*, size_t); extern int pthread_cond_setname_np (pthread_cond_t*, const char*, void*); extern int pthread_key_getname_np (pthread_key_t, char*, size_t); extern int pthread_key_setname_np (pthread_key_t, const char*, void*); extern int pthread_mutex_getname_np (pthread_mutex_t*, char*, size_t); extern int pthread_mutex_setname_np (pthread_mutex_t*, const char*, void*); extern int pthread_rwlock_getname_np (pthread_rwlock_t*, char*, size_t); extern int pthread_rwlock_setname_np (pthread_rwlock_t*, const char*, void*); extern int pthread_getname_np (pthread_t, char*, size_t); extern int pthread_setname_np (pthread_t, const char*, void*); extern int pthread_cond_sig_preempt_int_np (pthread_cond_t*); extern int pthread_cond_signal_int_np (pthread_cond_t*); extern int pthread_get_expiration_np (const struct timespec*, struct timespec*); extern int pthread_delay_np (const struct timespec*); extern int pthread_lock_global_np (void); extern int pthread_unlock_global_np (void); extern int pthread_attr_setguardsize (pthread_attr_t*, size_t); extern int pthread_attr_getguardsize (const pthread_attr_t*, size_t*); extern unsigned long pthread_getsequence_np (pthread_t); extern unsigned long pthread_getselfseq_np (void); extern int pthread_key_validate_np (pthread_key_t); extern int pthread_mutexattr_gettype (const pthread_mutexattr_t*, int*); extern int pthread_mutexattr_settype (pthread_mutexattr_t*, int); extern int pthread_mutexattr_setpshared (pthread_mutexattr_t*, int); extern int pthread_mutexattr_getpshared (const pthread_mutexattr_t*, int*); extern int pthread_rwlock_init (pthread_rwlock_t*, const pthread_rwlockattr_t*); extern int pthread_rwlock_destroy (pthread_rwlock_t*); extern int pthread_rwlock_rdlock (pthread_rwlock_t*); extern int pthread_rwlock_tryrdlock (pthread_rwlock_t*); extern int pthread_rwlock_wrlock (pthread_rwlock_t*); extern int pthread_rwlock_trywrlock (pthread_rwlock_t*); extern int pthread_rwlock_unlock (pthread_rwlock_t*); extern int pthread_rwlockattr_init (pthread_rwlockattr_t*); extern int pthread_rwlockattr_destroy (pthread_rwlockattr_t*); extern int pthread_rwlockattr_getpshared (const pthread_rwlockattr_t*, int*); extern int pthread_rwlockattr_setpshared (pthread_rwlockattr_t*, int); extern int pthread_yield_np (void); extern int pthread_mutexattr_gettype_np (const pthread_mutexattr_t*, int*); extern int pthread_mutexattr_settype_np (pthread_mutexattr_t*, int); extern int pthread_attr_getguardsize_np (const pthread_attr_t*, size_t*); extern int pthread_attr_setguardsize_np ( pthread_attr_t*, size_t); extern void pthread_debug (void); typedef enum pthreadDbgStatus_t { PTHREAD_DBG_SUCCESS = 0, PTHREAD_DBG_QUIT = 1, PTHREAD_DBG_NONESEL = 2, PTHREAD_DBG_SUCCESSPEND = 3, PTHREAD_DBG_NOPRIV = -1, PTHREAD_DBG_INVPARAM = -2, PTHREAD_DBG_INVSEQ = -3, PTHREAD_DBG_INCONSTATE = -4, PTHREAD_DBG_CORRUPT = -5, PTHREAD_DBG_INVOPTION = -6, PTHREAD_DBG_NOARG = -7, PTHREAD_DBG_INVADDR = -8, PTHREAD_DBG_INVCMD = -9, PTHREAD_DBG_NULLCMD = -10, PTHREAD_DBG_CONFLICT = -11, PTHREAD_DBG_UNIMPL = -12 } pthreadDbgStatus_t; extern pthreadDbgStatus_t pthread_debug_cmd (char *); extern pthread_mutex_t mutex_tibcompat; typedef char CHAR; typedef unsigned char BYTE; typedef short INT2; typedef unsigned short UINT2; typedef int INT4; typedef long long INT8; typedef unsigned long long UINT8; typedef unsigned int UINT4; typedef float FLOAT4; typedef double FLOAT8; typedef struct {FLOAT4 r, i;} COMPLEX4; typedef struct {FLOAT8 r, i;} COMPLEX8; typedef char STRING; typedef unsigned char BOOLEAN; typedef unsigned int idsac_t; typedef struct { UINT4 NADA; } DUMMY; int sacDateStr_to_struct_tm(struct tm* tm, const char* dateStr); int struct_tm_to_sacDateStr(char* dateStr, const struct tm* tm); typedef void (*sacPunteroCallbackNormalV6)(tibrvEvent name, tibrvMsg msgData, void *arg); typedef void (*sacPunteroCallbackCertificadoV6)(tibrvcmEvent name, tibrvMsg msgData, void *arg); typedef void (*sacPunteroCallbackNormal)(tibrvTransport session, rv_Name name, rv_Name replyName, rvmsg_Type msgType, rvmsg_Size msgSz, tibrvMsg msgData, void *arg); typedef void (*sacPunteroCallbackCertificado)(tibrvTransport session, rv_Name name, rv_Name replyName, rvmsg_Type msgType, rvmsg_Size msgSz, tibrvMsg msgData,rvcm_Seq sequenceNum, rv_Name senderName,void *arg); void sacCbGeneralNormalDiferido(tibrvEvent name, tibrvMsg msgData, void *arg); void sacCbGeneralCertificadoDiferido(tibrvcmEvent name, tibrvMsg msgData, void *arg); void sacCbGeneralNormalTraduccionAPI(tibrvEvent name, tibrvMsg msgData, void *arg); void sacCbGeneralCertificadoTraduccionAPI(tibrvcmEvent name, tibrvMsg msgData, void *arg); void sacCbGeneralNormalDiferidoTraduccionAPI(tibrvEvent name, tibrvMsg msgData, void *arg); void sacCbGeneralCertificadoDiferidoTraduccionAPI(tibrvcmEvent name, tibrvMsg msgData, void *arg); typedef struct { CHAR *cCanal; void (*pCallback)(); tibrvEvent listenId; BOOLEAN bCertificado; void *pTratamiento; } ListaCallbacks; typedef struct { ListaCallbacks Callback; void *pNext; } LISTACALL; typedef struct { CHAR *cCanal; CHAR *cCMNombre; } ListaPreSuscripciones; typedef struct { CHAR cEnlace[50]; BOOLEAN bConfigurado; } LISTAENLACES; extern tibrvTransport rvSes; extern tibrvcmTransport rvSescm; extern tibrvDispatcher dispatcher; void sacCallbackNoImplementado(tibrvEvent,tibrvMsg,void *); INT4 sacIdFlujo(CHAR * name, ListaCallbacks *sacListaSuscripciones, tibrvcmEvent *pListenerId); INT4 sacInicializarTibco(CHAR *cStringInicializacion, CHAR *cIdCMTarea, CHAR *cPathLedgerFile); INT4 sacInicializarSuscripciones(UINT4 ui4IdentificadorInstancia, ListaCallbacks *sacListaSuscripciones); INT4 sacIniSuscripcionesConEnl(UINT4 ui4IdentificadorEntorno, ListaCallbacks **sacListaSuscripciones); INT4 sacPreSuscribirLectores(UINT4 ui4IdentificadorInstancia, ListaPreSuscripciones *pListaLectoresEsperados); void sacCbTimerMsgPendientes(tibrvEvent id, tibrvMsg msg, void *closure); INT4 sacCerrarSuscripciones(ListaCallbacks *sacListaSuscripciones); void sacTraza(int nivel, const char* modulo, int linea, const char *formato, ...) __attribute__((format(printf, 4, 5))) ; void sacError(const char *nivel, const char* modulo, int linea, const char *codigo, const char *formato, ...) __attribute__((format(printf, 5, 6))) ; typedef enum { ER_ESTACION = 101, ER_FICTICIO = 100, ER_TRAFO = 102, ER_PARQUE = 103, ER_BARRA = 104, ER_DEVANADO = 106, ER_SALIDA_PARQUE = 107, ER_GENERADOR = 108, ER_COMPENSADOR = 109, ER_TIERRA = 110, ER_SERVICIO_AUXILIAR = 111, ER_LINEA_ESTANDAR = 151, ER_CENTRO_DISTRIBUCION = 152, ER_CONSUMO = 153, ER_FUSIBLE = 154, ER_TRAMO = 155, ER_PUNTO_AGARRE = 156, ER_PUNTO_SOCORRO = 157, ER_LINEA_TRANSPORTE = 158, ER_OTROS = 160, ER_INTERRUPTOR = 170, ER_SECCIONADOR = 171, ER_INTERRUPTOR_SECCIONADOR = 172, ER_INFORMATICO = 180, ER_INCIDENCIA = 181, ER_SIMULACION = 182, ER_ACUMULADOR_BASICO = 190 } ER_TIPO; typedef enum { INC_ABIERTO = 0, INC_EN_CURSO = 1, INC_PREPARADO = 2, INC_APLICADO = 3, INC_CONFIRMADO = 4, INC_PENDIENTE_IMPORTAR = 5, INC_IMPORTANDO = 6, INC_RECHAZADO = 7, INC_SIN_AFECTACION = 8, INC_CHEQUEADO = 9 } estado_incremento_t; typedef enum { SEM_ROJO = 0, SEM_VERDE = 1, SEM_AMARILLO = 2 } semaforo_t; const char *describi_ER_TIPO(int et); typedef struct __SAC_STFDATA { tibrvTransport session; rvevm_EventId timerId; UINT4 intervalo; } SAC_STFDATA; typedef struct { INT2 DD; INT2 MM; INT2 AAAA; INT2 hh; INT2 mm; INT2 ss; INT2 ms; UINT4 ssAbs; UINT4 usAbs; INT2 isdst; } SacFecha; INT4 soHoraActual(SacFecha *); INT4 soConvertiraSegundos(SacFecha *pFecha, INT4 *Segundos); INT4 stCompararFechas(SacFecha *pFecha1, SacFecha *pFecha2); void stCopiarFechas(SacFecha *pFechaDestino, SacFecha *pFechaOrigen); void stFechaToString(SacFecha *pFecha, STRING *pDestino); void stStringToFecha(STRING *pDestino, SacFecha *pFecha); static inline BOOLEAN stMismoDia(const SacFecha *a, const SacFecha *b) { return (a->AAAA == b->AAAA) && (a->MM == b->MM) && (a->DD == b->DD); } INT4 sacHoraInicioPeriodoActual(UINT4 ui4ParPeriodo, SacFecha *pProximoPeriodo); INT4 sacLanzarTimeout(UINT4 interval, void *proc, rvevm_EventId *IdTimeout); INT4 sacCancelarTimeout(rvevm_EventId IdTimeout); INT4 soHoraActual(SacFecha *pFecha); UINT4 soEjecutarTarea (BOOLEAN bEspera,CHAR *cLlamada, CHAR *cParam, pid_t *i4Pid); int soEjecutarScript(const char *cLlamada); void soEvitarMuerte(); UINT4 soExisteTarea (pid_t i4Pid); void soMataZombies(); int soSetPrio(int prioritat, pid_t pid); int soMatarTarea (pid_t i4Pid); INT4 soAmpliarMaximoMemoria(void); INT4 soObtenerTimeStamp(time_t *i4Segs, INT4 *i4MSegs); INT4 soConvertiraFecha(time_t Segundos, SacFecha *pFecha); INT2 soObtenerTimeStampFecha(SacFecha *pFecha, time_t *pSegundos, INT4 *pMilisegundos); pid_t soObtenerPID(); pid_t soObtenerPIDPadre(); void soCurrentDirectory (CHAR* dir); void soChangeDirectory (CHAR* dir); void soObtenerPathArranque (CHAR *progname, CHAR *path); int soInicializarTimer (void); void soActivarTimeout (int id_timeout, int milisegons, void (*rutina) ()); int soDesactivarTimeout (int id_timeout); void soBloquearSignals (void); void soDesbloquearSignals (void); void soSleep (int milisegons); void soActivarUserTrap (void (*rutina) (void)); INT4 soEnviarUserTrap (pid_t pid); void soSalvarTraps (void); void soAbrirTraps (void); void soRestaurarTraps (void); void soHibernar (void); INT4 soFuncionExit (void (*rutina) (void)); INT4 soObtenerNombreHost (char *cNombreHost); typedef struct { INT4 i4NumParametros; CHAR **cListaParametros; CHAR **cListaValores; } ListaParametros; INT4 sacValorParametro(CHAR *cNombreParametro, CHAR **cValorParametro); typedef struct { INT4 i4time; INT2 i2lrec; INT2 i2eddimdat; INT2 i2edmaxdat; INT2 i2edncn; INT2 i2estindefmax; INT4 i4maxiedisc; INT4 i4edbuit; INT4 i4edusat; INT2 i2estindefusat; INT4 i4libdoff; INT4 i4vidoff; INT4 i4dgoff; INT4 i4estindefoff; INT4 i4estinoff; INT4 i4sedoff; INT4 i4esdoff; INT4 i4libvers; INT4 i4offie; INT4 i4tiueoff; } AECAP; typedef struct { INT4 i4x; INT4 i4y; INT2 i2tip; } PU; typedef struct { INT4 i4ie; INT2 i2npc; } CON; typedef union { PU pu; CON con; } DAT; typedef struct { char inuse; int se; char txt[43]; short conce; short pel; short rotac; unsigned int le; int ptfill; int ptgerma; int ptpare; short chh; unsigned short cat; short pptipus[7]; DAT *dat; char color; char gl; char tl; unsigned short capes; int cxmn, cymn, cxmx, cymx; int pcont; } IEDISC_INC; typedef struct { CHAR cinuse; CHAR ctxt[43 +1]; INT2 i2conce; INT2 i2rotac; INT4 i4le; INT4 i4ptfill; INT4 i4ptgerma; INT4 i4ptpare; INT2 i2chh; CHAR cpptipus[7]; DAT dat[8]; CHAR ccolor; CHAR cgl; CHAR ctl; INT4 i4pcont; } IEDISC; typedef struct { INT4 i4Xmx; INT4 i4Ymx; INT4 i4Xmn; INT4 i4Ymn; UINT2 u2Capas; INT2 i2Pel; UINT2 u2Hash; } EDGIE; typedef struct { INT4 i4XMin; INT4 i4YMin; INT4 i4XMax; INT4 i4YMax; UINT2 u2Capas; UINT2 u2pel; } CajaEnglob; typedef struct { CHAR cText[50 +1]; INT4 i4XText; INT4 i4YText; } TextoElementoEsquema; typedef struct { INT4 i4XPunto; INT4 i4YPunto; UINT2 u2TipoPunto; } PuntoFGI; typedef struct { UINT2 u2Grosor; UINT2 u2TipoLinea; UINT2 u2NumPunt; PuntoFGI *Puntos; } DatosFGI; typedef struct { INT2 i2Rotacion; INT4 i4XReferencia; INT4 i4YReferencia; } DatosFGD; typedef union { DatosFGI FGI; DatosFGD FGD; } DatosElemento; typedef struct { CHAR cinuse; CHAR cconce; UINT2 u2TipoElemento; UINT4 u4IdElemLib; UINT4 u4IdColor; UINT2 u2NumText; TextoElementoEsquema *Textos; INT2 i2AltText; UINT2 u2TipoGrafico; DatosElemento DatoElem; } ElementoEsquema; typedef struct { INT4 u4ie; INT4 u4ii; } TipoIeIi; typedef struct { UINT4 u4IdColor; BYTE bRCol; BYTE bGCol; BYTE bBCol; } ColorSetup; typedef struct { UINT4 ID; CHAR CAPA[20 +1]; } Capa; typedef struct { UINT2 TIP; FLOAT4 XP; FLOAT4 YP; } RespuestaLibreria_Simbolos_Pu; typedef struct { FLOAT4 XT; FLOAT4 YT; FLOAT4 CHH; CHAR TXT[50 +1]; } RespuestaLibreria_Simbolos_Txt; typedef struct { UINT4 IDS; UINT2 NPU; RespuestaLibreria_Simbolos_Pu* Pu; UINT2 NTXT; RespuestaLibreria_Simbolos_Txt* Txt; INT2 COL; } RespuestaLibreria_Simbolos; typedef struct { UINT4 IDCOL; UINT2 R; UINT2 G; UINT2 B; } RespuestaLibreria_Colores; typedef struct { UINT4 IDS; } RespuestaLibreria_Conceptos_Simc; typedef struct { UINT4 IDC; UINT2 NSIMC; RespuestaLibreria_Conceptos_Simc* Simc; } RespuestaLibreria_Conceptos; typedef struct { UINT4 IDCE; FLOAT4 DXC; FLOAT4 DYC; } RespuestaLibreria_Elementos_Cone; typedef struct { UINT4 IDEELEMLIB; UINT2 NIM; UINT2 TIPL; UINT2 GL; UINT2 CHHE; UINT2 NCONE; RespuestaLibreria_Elementos_Cone* Cone; } RespuestaLibreria_Elementos; typedef struct { UINT4 NSIMBOLOS; RespuestaLibreria_Simbolos* Simbolos; UINT2 NCOLORES; RespuestaLibreria_Colores* Colores; UINT4 NCONCEPTOS; RespuestaLibreria_Conceptos* Conceptos; UINT4 NELEMENTOS; RespuestaLibreria_Elementos* Elementos; } RespuestaLibreria; INT4 RespuestaLibreriaCrea( RespuestaLibreria** pRespuestaLibreria ); INT4 RespuestaLibreriaLibera( RespuestaLibreria* pRespuestaLibreria ); INT4 RespuestaLibreriaCodifica( RespuestaLibreria* pRespuestaLibreria, tibrvMsg* pRvMsg ); INT4 RespuestaLibreriaDecodifica( RespuestaLibreria** pRespuestaLibreria, tibrvMsg rvMsg ); typedef struct { CHAR NOMINCR[64 +1]; UINT4 TIPGES; CHAR FECHA[25 +1]; UINT4 ORIG; UINT2 AFECTACIONSAC; UINT2 ESTADOSAC; UINT2 ESTADOSCADA; } PeticionGestionIncremento; INT4 PeticionGestionIncrementoCrea( PeticionGestionIncremento** pPeticionGestionIncremento ); INT4 PeticionGestionIncrementoLibera( PeticionGestionIncremento* pPeticionGestionIncremento ); INT4 PeticionGestionIncrementoCodifica( PeticionGestionIncremento* pPeticionGestionIncremento, tibrvMsg* pRvMsg ); INT4 PeticionGestionIncrementoDecodifica( PeticionGestionIncremento** pPeticionGestionIncremento, tibrvMsg rvMsg ); typedef struct IncrementoPendiente_s { BOOLEAN bPendiente; BOOLEAN bCaidaTCV; BOOLEAN bCaidaTCAT; UINT2 ui2Estado; CHAR cNombre[64 +1]; UINT4 ui4Operacion; UINT4 ui4Orig; INT4 i4Xmin; INT4 i4Ymin; INT4 i4Xmax; INT4 i4Ymax; CHAR cFecha[25 +1]; BOOLEAN bAfectacionSac; UINT2 ui2EstadoSac; UINT2 ui2EstadoScada; BYTE bFlagEstadoIncremento; CHAR cError[1024]; } IncrementoPendiente; typedef struct IncrementoPendienteBDO_s { BOOLEAN bPendiente; UINT2 ui2Estado; CHAR cNombre[64 +1]; UINT4 ui4Operacion; UINT4 ui4Orig; CHAR cFecha[25 +1]; BOOLEAN bOverflow; BYTE bFlagEstadoIncremento; } IncrementoPendienteBDO; typedef struct { UINT4 II; UINT2 TRANSF; } TipoCambioIi; INT4 gbInicializacionTarea(void); INT4 gbFinalizacionTarea(void); INT4 gbComparNie(TipoIeIi *IeIiBuscado, TipoIeIi *IeIi); BYTE gbInicializarFlag(BYTE *bFlagEstadoIncremento); BYTE gbFlagMarcarActivacionMT(BYTE *bFlagEstadoIncremento); BYTE gbFlagMarcarActivacionAT(BYTE *bFlagEstadoIncremento); BYTE gbFlagMarcarAplicacionMT(BYTE *bFlagEstadoIncremento); BYTE gbFlagMarcarAplicacionAT(BYTE *bFlagEstadoIncremento); BOOLEAN gbFlagEsMarcadoActivacionMT(BYTE bFlagEstadoIncremento); BOOLEAN gbFlagEsMarcadoActivacionAT(BYTE bFlagEstadoIncremento); BOOLEAN gbFlagEsMarcadoAplicacionMT(BYTE bFlagEstadoIncremento); BOOLEAN gbFlagEsMarcadoAplicacionAT(BYTE bFlagEstadoIncremento); INT4 gbLanzarTimeout(UINT4 interval,rvevm_EventCallback procedure,rvevm_EventId *IdTimeout); INT4 gbCancelarTimeout(rvevm_EventId IdTimeout); INT4 gbBajaIE (FILE *fpGesq, INT4 u4IE, TipoIeIi *TIeIi, UINT2 u2Orden); INT4 gbAltaIE (FILE *fpGesq, INT4 u4IE, TipoIeIi *TIiIe, IEDISC_INC *IEDiscAlta, INT4 *vu4IEs, UINT2 u2Orden); INT4 gbModiIE (FILE *fpGesq, INT4 u4IE, TipoIeIi *TIeIi, IEDISC_INC *IEDiscModi, INT4 *vu4IEs, UINT2 u2Orden); INT4 gbComprobar(CHAR *vcTrIE, INT4 *vu4IEs, FILE *fpEsquema, TipoIeIi *TIeIi, UINT2 u2NumIEs); INT4 gbComprobarDeshacer(CHAR *vcTrIE, UINT4 *vu4IEs, FILE *fpEsquema, TipoIeIi *TIeIi, UINT2 u2NumIEs); INT4 gbDeshacerGinc(unsigned char *ucGinc, char *cGesq); INT4 gbEnvioAfectacionGraficaIncremento(CHAR *cNombreIncremento); INT4 gbAplicacionTopologicaIncremento(STRING *sNombreIncremento); INT4 gbDeshacerAplTopologicaIncremento(STRING *sNombreIncremento); INT4 gbEnviarIncrementoActualizado(BOOLEAN bHayError); BOOLEAN gbMaximoAmbitosAfectados(CHAR *); INT4 gbLeerGinc (char *cNomGinc, unsigned char *ucGinc); INT4 gbConfirmar(char* cNombreIncremento); void gbCbGestionIncremento(tibrvTransport session, rv_Name name, rv_Name replyName, rvmsg_Type msgType, rvmsg_Size msgSize, tibrvMsg msg, rv_Opaque arg); void gbCbRespuestaActivarDesactivarAplicacionIncremento(tibrvTransport session, rv_Name name, rv_Name replyName, rvmsg_Type msgType, rvmsg_Size msgSize, tibrvMsg msg, rv_Opaque arg); void gbCbRespuestaActivarDesactivarAplicacionIncrementoAT(tibrvTransport session, rv_Name name, rv_Name replyName, rvmsg_Type msgType, rvmsg_Size msgSize, tibrvMsg msg, rv_Opaque arg); void gbGestionAplicacionIncremento(void); void gbCbRespuestaAplicacionGraficaIncremento(tibrvTransport session, rv_Name name, rv_Name replyName, rvmsg_Type msgType, rvmsg_Size msgSize, tibrvMsg msg, rv_Opaque arg); void gbCbRespuestaAplicacionTopologicaIncremento(tibrvTransport session, rv_Name name, rv_Name replyName, rvmsg_Type msgType, rvmsg_Size msgSize, tibrvMsg msg, rv_Opaque arg); void gbCbRespuestaAplicacionTopologicaIncremento(tibrvTransport session, rv_Name name, rv_Name replyName, rvmsg_Type msgType, rvmsg_Size msgSize, tibrvMsg msg, rv_Opaque arg); void gbCbRespuestaAplicacionTopologicaIncrementoAT(tibrvTransport session, rv_Name name, rv_Name replyName, rvmsg_Type msgType, rvmsg_Size msgSize, tibrvMsg msg, rv_Opaque arg); void gbCbGestionIncrementoSecundario(tibrvTransport session, rv_Name name, rv_Name replyName, rvmsg_Type msgType, rvmsg_Size msgSize, tibrvMsg msg, rv_Opaque arg); void gbCbCaidaTCV(tibrvTransport session, rv_Name name, rv_Name replyName, rvmsg_Type msgType, rvmsg_Size msgSize, tibrvMsg msg, rv_Opaque arg); void gbCbCaidaTCAT(tibrvTransport session, rv_Name name, rv_Name replyName, rvmsg_Type msgType, rvmsg_Size msgSize, tibrvMsg msg, rv_Opaque arg); void gbCbCaidaServidorGrafico(tibrvTransport session, rv_Name name, rv_Name replyName, rvmsg_Type msgType, rvmsg_Size msgSize, tibrvMsg msg, rv_Opaque arg); void gbCbTimeoutActivacionIncremento(tibrvTransport session,rv_Opaque closure, rvevm_EventType eventType,rvevm_EventId IdTimeout); void gbCbRespuestaEjecucionIncrementoScada(tibrvTransport session, rv_Name name, rv_Name replyName, rvmsg_Type msgType, rvmsg_Size msgSize, tibrvMsg msg, rv_Opaque arg); INT4 gbCancelarIncremento(char* cNombreIncremento); INT4 gbAplicarGinc(unsigned char *ucGinc, char *cGesq); typedef struct { UINT4 II; UINT2 TRANSF; } AfectacionIncremento_Cambios; typedef struct { UINT4 NCAMBIOS; AfectacionIncremento_Cambios* Cambios; } AfectacionIncremento; INT4 AfectacionIncrementoCrea( AfectacionIncremento** pAfectacionIncremento, UINT4 ui4NCambios ); INT4 AfectacionIncrementoLibera( AfectacionIncremento* pAfectacionIncremento ); INT4 AfectacionIncrementoCodifica( AfectacionIncremento* pAfectacionIncremento, tibrvMsg* pRvMsg ); INT4 AfectacionIncrementoDecodifica( AfectacionIncremento** pAfectacionIncremento, tibrvMsg rvMsg ); extern ListaCallbacks sacListaSuscripciones[]; extern AECAP aecap; extern char *FicheroEsquema; extern TipoIeIi *TablaIeIi; extern TipoIeIi *TablaIiIe; extern TipoCambioIi *Listaii; extern UINT4 u4NNI; extern IncrementoPendiente Incremento; extern IncrementoPendiente IncrementoTmp; extern IncrementoPendienteBDO IncrementoBDO; extern BOOLEAN bGestionMT; extern BOOLEAN bGestionAT; extern UINT4 TimeOutActivacionIncremento; extern rvevm_EventId TimerActivacionIncremento; typedef struct { UINT4 IDMEDBAJA; } PeticionAplicacionTopologicaIncremento_Baja_Medida; typedef struct { UINT4 IDSAC; UINT4 NUMTOMA; } PeticionAplicacionTopologicaIncremento_Baja_Toma; typedef struct { UINT4 IDFRONTBAJA; } PeticionAplicacionTopologicaIncremento_Baja_Frontera; typedef struct { UINT4 IDSPBAJA; } PeticionAplicacionTopologicaIncremento_Baja_SP; typedef struct { UINT4 IDAMBITBAJA; } PeticionAplicacionTopologicaIncremento_Baja_Ambito; typedef struct { UINT4 IDNUDO; UINT2 TIPELNUDO; UINT2 TIPNUDO; FLOAT4 TENSION; FLOAT4 POTENCIA; } PeticionAplicacionTopologicaIncremento_Alta_Nudo; typedef struct { UINT4 IDRAMA; UINT2 FUNCION; UINT2 TIPELRAMA; UINT2 ESTADO; UINT4 IDNUDO1; UINT4 IDNUDO2; FLOAT4 IMAXIMA; FLOAT4 RESI; FLOAT4 REAC; BOOLEAN EXTRAIDO; BOOLEAN INC; } PeticionAplicacionTopologicaIncremento_Alta_Rama; typedef struct { UINT4 IDAMBITALTA; UINT2 TIPAMBIT; UINT4 NNUDOSALTA; PeticionAplicacionTopologicaIncremento_Alta_Nudo *Nudosalta; UINT4 NRAMASALTA; PeticionAplicacionTopologicaIncremento_Alta_Rama *Ramasalta; } PeticionAplicacionTopologicaIncremento_Alta_Ambito; typedef struct { UINT4 IDSPALTA; UINT4 IDES; UINT4 IDNE; UINT4 IDLI; UINT4 IDNL; UINT4 TIP; } PeticionAplicacionTopologicaIncremento_Alta_SP; typedef struct { UINT4 IDFRONT; UINT4 IDA1; UINT4 IDN1; UINT4 IDA2; UINT4 IDN2; UINT2 TIPOELE; UINT2 ESTADO; } PeticionAplicacionTopologicaIncremento_Alta_Frontera; typedef struct { UINT4 IDMEDALTA; UINT4 IDELEM; UINT2 FUNMED; UINT2 DEST; UINT2 TIPMED; union TIPO_FUNMED { struct TIPO_ME_REFRESCADA { union TIPO_DESTINO { struct DEST_OBSERVABLE_INCRE { union TIPO_TIPMED { struct TIPO_ME_V { UINT4 IDADY; } BLOQUE1; } U_TIPMED; }BLOQUE1; }U_DEST; } BLOQUE2; struct TIPO_ME_VIGILADA { BOOLEAN ALA; FLOAT4 MIN; FLOAT4 MAX; } BLOQUE3; } U_FUNMED; } PeticionAplicacionTopologicaIncremento_Alta_Medida; typedef struct { UINT4 IDSAC; UINT4 NUMTOMA; INT4 TOMA; } PeticionAplicacionTopologicaIncremento_Alta_Toma; typedef struct { UINT4 NMEDIDASBAJA; PeticionAplicacionTopologicaIncremento_Baja_Medida* Medidasbaja; UINT4 NTOMASBAJA; PeticionAplicacionTopologicaIncremento_Baja_Toma* Tomasbaja; UINT4 NFRONTERASBAJA; PeticionAplicacionTopologicaIncremento_Baja_Frontera* Fronterasbaja; UINT4 NSPBAJA; PeticionAplicacionTopologicaIncremento_Baja_SP* Spbaja; UINT4 NAMBITOSBAJA; PeticionAplicacionTopologicaIncremento_Baja_Ambito* Ambitosbaja; UINT4 NAMBITOSALTA; PeticionAplicacionTopologicaIncremento_Alta_Ambito* Ambitosalta; UINT4 NFRONTERASALTA; PeticionAplicacionTopologicaIncremento_Alta_Frontera* Fronterasalta; UINT4 NSPALTA; PeticionAplicacionTopologicaIncremento_Alta_SP* Spalta; UINT4 NMEDIDASALTA; PeticionAplicacionTopologicaIncremento_Alta_Medida* Medidasalta; UINT4 NTOMASALTA; PeticionAplicacionTopologicaIncremento_Alta_Toma* Tomasalta; } PeticionAplicacionTopologicaIncremento; INT4 PeticionAplicacionTopologicaIncrementoCrea( PeticionAplicacionTopologicaIncremento** pPeticionAplicacionTopologicaIncremento ); INT4 PeticionAplicacionTopologicaIncrementoLibera( PeticionAplicacionTopologicaIncremento* pPeticionAplicacionTopologicaIncremento ); INT4 PeticionAplicacionTopologicaIncrementoCodifica( PeticionAplicacionTopologicaIncremento* pPeticionAplicacionTopologicaIncremento, tibrvMsg* pRvMsg ); INT4 PeticionAplicacionTopologicaIncrementoDecodifica( PeticionAplicacionTopologicaIncremento** pPeticionAplicacionTopologicaIncremento, tibrvMsg rvMsg ); INT4 PeticionAplicacionTopologicaIncrementoATCrea( PeticionAplicacionTopologicaIncremento**); INT4 PeticionAplicacionTopologicaIncrementoATLibera( PeticionAplicacionTopologicaIncremento*); INT4 PeticionAplicacionTopologicaIncrementoATCodifica( PeticionAplicacionTopologicaIncremento*, tibrvMsg*); INT4 PeticionAplicacionTopologicaIncrementoATDecodifica( PeticionAplicacionTopologicaIncremento**, tibrvMsg); struct sqlca { char sqlcaid[8]; int sqlabc; int sqlcode; struct { unsigned short sqlerrml; char sqlerrmc[70]; } sqlerrm; char sqlerrp[8]; int sqlerrd[6]; char sqlwarn[8]; char sqlext[8]; }; struct sqlca sqlca ; struct { unsigned short len; unsigned char arr[256]; } vcNombreInc; UINT4 u4RA_NORMAL, u4RA_FRONTERA, u4RA_CABECERA, u4RA_ENTRADA, u4RA_OTRAS_SALIDAS, u4RA_TRANSPORTE, u4MOD_ALTA, u4MOD_BAJA, u4MOD_MODI, u4ES_ESTADO_BASICO, u4ES_CERRADO, u4CL_I_MAX_CONDUCCION, u4CL_V_NOMINAL, u4CL_P_NOMINAL, u4CL_R, u4CL_X, u4ES_ESTADO_INYECTOR, u4RA_INYECTORA, u2ES_ESTADO_CARRO, u2ES_INSERTADO, u4ER_MEDIA_TENSION, u4ER_TRANSPORTE, u4ER_SUBESTACION_MT, u4ER_SUBESTACION_AT, u4ER_TF_FRONTERA; UINT2 u2ME_OBSERVACION; struct { unsigned short len; unsigned char arr[256]; } vcNombreTablaRamas; struct { unsigned short len; unsigned char arr[256]; } vcNombreTablaSP_MV_O; struct { unsigned short len; unsigned char arr[256]; } vcNombreTablaSP_MV_O_AT; struct { unsigned short len; unsigned char arr[256]; } vcNombreTablaRAMA_MV_O; struct { unsigned short len; unsigned char arr[256]; } vcNombreTablaRAMA_MV_O_AT; struct { unsigned short len; unsigned char arr[256]; } vcNombreTablaNUDO_MV_O; struct { unsigned short len; unsigned char arr[256]; } vcNombreTablaNUDO_MV_O_AT; struct { unsigned short len; unsigned char arr[256]; } vcNombreTablaNudos; struct { unsigned short len; unsigned char arr[256]; } vcNombreTablaMedidas; struct { unsigned short len; unsigned char arr[256]; } vcNombreTablaElemento_Red; struct { unsigned short len; unsigned char arr[256]; } vcNombreTablaTomasRegulador; UINT4 pu4MOD_IDSAC[100], pu4RA_FUNCION[100], pu4NU_FUNCION[100], pu4RA_NUDO1_IDSAC[100], pu4RA_NUDO2_IDSAC[100], pu4IDSAC_AM1[100], pu4IDSAC_AM2[100], pu4ER_TIPO[100], pu4ER_IDSAC[100], pu4ME_FUNCION[100], pu4ME_DESTINO[100], pu4ME_TIPO[100], pu4ER_IDSAC_LADO[100], pu4ERRA_TIPO[100], pu4ES_VALOR[100], pu4TR_NUM_TOMA[100], pu4TR_PCT_TENSION_NOMINAL[100], u4IdSacIncremento; INT4 pi4ME_UMBRAL_INFERIOR[100], pi4ME_UMBRAL_SUPERIOR[100]; FLOAT4 pf4NU_P[100], pf4NU_V[100], pf4RA_X[100], pf4RA_R[100], pf4RA_I[100]; UINT2 pu2EXTRAIDO[100]; UINT4 u4MODIFICACION, u4ESTADO_ORIGINAL; UINT2 u2MeI; UINT2 u2Mee; void AplicacionTopInc_sql_error(void); INT4 gbAplicacionTopologicaIncremento(STRING *sNombreIncremento) { int j; INT4 i4Resultado,i4Tamanyo; UINT4 u4Elem,u4Paquetes,u4LongitudPaquete, u4FronterasBaja,u4SPBaja,u4MedidasBaja,u4AmbitosBaja, u4FronterasAlta, u4SPAlta, u4MedidasAlta, u4AmbitosAlta, u4NudosAlta, u4RamasAlta,u4i, u4MedidasObsBaja,u4MedidasObsAlta, u4TomasReguladorBaja,u4TomasReguladorAlta, ui4NAmbitos; PeticionAplicacionTopologicaIncremento *pPATI; PeticionAplicacionTopologicaIncremento *pPATIAT; tibrv_status errorRV; CHAR cNombreCanal[(255)]; CHAR *cIdentificadorEntorno; tibrvMsg rvmsg; tibrvEvent *pListenId; tibrvMsg rvmsgAT; tibrvEvent *pListenIdAT; sacTraza(4,"gbAplicacionTopologicaIncremento.pc",152,"--- Inicio AplicacionTopologicaIncremento ---"); strcpy((char *)vcNombreInc.arr,sNombreIncremento); vcNombreInc.len = strlen((char *)vcNombreInc.arr); u4RA_NORMAL = 800; u4RA_FRONTERA = 801; u4RA_CABECERA = 802; u4RA_ENTRADA = 803; u4RA_OTRAS_SALIDAS = 804; u4RA_TRANSPORTE = 805; u4MOD_ALTA = 20001; u4MOD_BAJA = 20002; u4MOD_MODI = 20003; u4ES_ESTADO_BASICO = 2001; u4ES_CERRADO = 1; u4CL_I_MAX_CONDUCCION = 1001; u4CL_V_NOMINAL = 1002; u4CL_P_NOMINAL = 1003; u4CL_R = 1007; u4CL_X = 1008; u4ES_ESTADO_INYECTOR = 2016; u2ES_ESTADO_CARRO = 2015; u2ES_INSERTADO = 1; u4RA_INYECTORA = 806; u2ME_OBSERVACION = 902; u4ER_MEDIA_TENSION = 2; u4ER_TRANSPORTE = 3; u4ER_SUBESTACION_MT = 1; u4ER_SUBESTACION_AT = 5; u4ER_TF_FRONTERA = 10202; u2MeI = 1001; u2Mee = 1008; strcpy((char *)vcNombreTablaRamas.arr,"RAMA"); vcNombreTablaRamas.len = strlen((char *)vcNombreTablaRamas.arr); strcpy((char *)vcNombreTablaSP_MV_O.arr,"SP_MV_O"); vcNombreTablaSP_MV_O.len = strlen((char *)vcNombreTablaSP_MV_O.arr); strcpy((char *)vcNombreTablaSP_MV_O_AT.arr,"SP_MV_O_AT"); vcNombreTablaSP_MV_O_AT.len = strlen((char *)vcNombreTablaSP_MV_O_AT.arr); strcpy((char *)vcNombreTablaRAMA_MV_O.arr,"RAMA_MV_O"); vcNombreTablaRAMA_MV_O.len = strlen((char *)vcNombreTablaRAMA_MV_O.arr); strcpy((char *)vcNombreTablaRAMA_MV_O_AT.arr,"RAMA_MV_O_AT"); vcNombreTablaRAMA_MV_O_AT.len = strlen((char *)vcNombreTablaRAMA_MV_O_AT.arr); strcpy((char *)vcNombreTablaNUDO_MV_O.arr,"NUDO_MV_O"); vcNombreTablaNUDO_MV_O.len = strlen((char *)vcNombreTablaNUDO_MV_O.arr); strcpy((char *)vcNombreTablaNUDO_MV_O_AT.arr,"NUDO_MV_O_AT"); vcNombreTablaNUDO_MV_O_AT.len = strlen((char *)vcNombreTablaNUDO_MV_O_AT.arr); strcpy((char *)vcNombreTablaNudos.arr,"NUDO"); vcNombreTablaNudos.len = strlen((char *)vcNombreTablaNudos.arr); strcpy((char *)vcNombreTablaMedidas.arr,"MEDIDA"); vcNombreTablaMedidas.len = strlen((char *)vcNombreTablaMedidas.arr); strcpy((char *)vcNombreTablaElemento_Red.arr,"ELEMENTO_RED"); vcNombreTablaElemento_Red.len = strlen((char *)vcNombreTablaElemento_Red.arr); strcpy((char *)vcNombreTablaTomasRegulador.arr,"TOMAS_REGULADOR"); vcNombreTablaTomasRegulador.len = strlen((char *)vcNombreTablaTomasRegulador.arr); i4Resultado=PeticionAplicacionTopologicaIncrementoCrea(&pPATI); if (i4Resultado!=0) { sacError("CR","gbAplicacionTopologicaIncremento.pc",231, "GB0200","Error [%d] en creacion PeticionAplicacionTopologicaIncremento.", i4Resultado); return(-1); } i4Resultado=PeticionAplicacionTopologicaIncrementoATCrea(&pPATIAT); if (i4Resultado!=0) { sacError("CR","gbAplicacionTopologicaIncremento.pc",239, "GB0200","Error [%d] en creacion PeticionAplicacionTopologicaIncrementoAT.", i4Resultado); return(-1); } if (Incremento.ui4Operacion == 30901) { u4MODIFICACION = 20002; u4ESTADO_ORIGINAL = 1; } else if (Incremento.ui4Operacion == 30902) { u4MODIFICACION = 20001; u4ESTADO_ORIGINAL = 0; } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",262,"Bajas de fronteras ."); u4FronterasBaja = u4Elem = u4Paquetes = 0; pPATI->Fronterasbaja = ((void *)0); pPATIAT->Fronterasbaja = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 10; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.stmt = sq0001; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )5; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&vcNombreTablaRamas; sqlstm.sqhstl[0] = (unsigned long )258; sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[1] = (unsigned long )0; sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)&u4RA_FRONTERA; sqlstm.sqhstl[3] = (unsigned long )sizeof(int); sqlstm.sqhsts[3] = ( int )0; sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)&u4ESTADO_ORIGINAL; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )0; sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)&vcNombreTablaRamas; sqlstm.sqhstl[5] = (unsigned long )258; sqlstm.sqhsts[5] = ( int )0; sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[6] = (unsigned long )0; sqlstm.sqhsts[6] = ( int )0; sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[7] = (unsigned long )sizeof(int); sqlstm.sqhsts[7] = ( int )0; sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqhstv[8] = (unsigned char *)&u4RA_FRONTERA; sqlstm.sqhstl[8] = (unsigned long )sizeof(int); sqlstm.sqhsts[8] = ( int )0; sqlstm.sqindv[8] = ( short *)0; sqlstm.sqinds[8] = ( int )0; sqlstm.sqharm[8] = (unsigned long )0; sqlstm.sqadto[8] = (unsigned short )0; sqlstm.sqtdso[8] = (unsigned short )0; sqlstm.sqhstv[9] = (unsigned char *)&u4ESTADO_ORIGINAL; sqlstm.sqhstl[9] = (unsigned long )sizeof(int); sqlstm.sqhsts[9] = ( int )0; sqlstm.sqindv[9] = ( short *)0; sqlstm.sqinds[9] = ( int )0; sqlstm.sqharm[9] = (unsigned long )0; sqlstm.sqadto[9] = (unsigned short )0; sqlstm.sqtdso[9] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 10; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )60; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4MOD_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4RA_FUNCION; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",332, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4FronterasBaja)> 0) { u4Paquetes++; pPATI->Fronterasbaja = (PeticionAplicacionTopologicaIncremento_Baja_Frontera *)realloc(pPATI->Fronterasbaja, u4Paquetes*100*sizeof(PeticionAplicacionTopologicaIncremento_Baja_Frontera)); if (!pPATI->Fronterasbaja) { sacError("G1","gbAplicacionTopologicaIncremento.pc",343,"GB0005","No se ha podido crear PeticionAplicacionTopologicaIncremento."); exit(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemFronterasbaja[u4FronterasBaja++].IDFRONTBAJA = pu4MOD_IDSAC[u4Elem]; } } } while (sqlca.sqlcode == 0); pPATI->NFRONTERASBAJA = u4FronterasBaja; pPATIAT->NFRONTERASBAJA = 0; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 10; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )83; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",366,"Baja de fronteras: %u registros",u4FronterasBaja); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",371,"Bajas de SP ."); u4SPBaja = u4Elem = u4Paquetes = 0; pPATI->Spbaja = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 14; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.stmt = sq0002; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )98; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&vcNombreTablaSP_MV_O; sqlstm.sqhstl[0] = (unsigned long )258; sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[1] = (unsigned long )0; sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)&u4RA_CABECERA; sqlstm.sqhstl[3] = (unsigned long )sizeof(int); sqlstm.sqhsts[3] = ( int )0; sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)&u4RA_ENTRADA; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )0; sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)&u4RA_TRANSPORTE; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )0; sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)&u4ESTADO_ORIGINAL; sqlstm.sqhstl[6] = (unsigned long )sizeof(int); sqlstm.sqhsts[6] = ( int )0; sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)&vcNombreTablaSP_MV_O; sqlstm.sqhstl[7] = (unsigned long )258; sqlstm.sqhsts[7] = ( int )0; sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqhstv[8] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[8] = (unsigned long )0; sqlstm.sqhsts[8] = ( int )0; sqlstm.sqindv[8] = ( short *)0; sqlstm.sqinds[8] = ( int )0; sqlstm.sqharm[8] = (unsigned long )0; sqlstm.sqadto[8] = (unsigned short )0; sqlstm.sqtdso[8] = (unsigned short )0; sqlstm.sqhstv[9] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[9] = (unsigned long )sizeof(int); sqlstm.sqhsts[9] = ( int )0; sqlstm.sqindv[9] = ( short *)0; sqlstm.sqinds[9] = ( int )0; sqlstm.sqharm[9] = (unsigned long )0; sqlstm.sqadto[9] = (unsigned short )0; sqlstm.sqtdso[9] = (unsigned short )0; sqlstm.sqhstv[10] = (unsigned char *)&u4RA_CABECERA; sqlstm.sqhstl[10] = (unsigned long )sizeof(int); sqlstm.sqhsts[10] = ( int )0; sqlstm.sqindv[10] = ( short *)0; sqlstm.sqinds[10] = ( int )0; sqlstm.sqharm[10] = (unsigned long )0; sqlstm.sqadto[10] = (unsigned short )0; sqlstm.sqtdso[10] = (unsigned short )0; sqlstm.sqhstv[11] = (unsigned char *)&u4RA_ENTRADA; sqlstm.sqhstl[11] = (unsigned long )sizeof(int); sqlstm.sqhsts[11] = ( int )0; sqlstm.sqindv[11] = ( short *)0; sqlstm.sqinds[11] = ( int )0; sqlstm.sqharm[11] = (unsigned long )0; sqlstm.sqadto[11] = (unsigned short )0; sqlstm.sqtdso[11] = (unsigned short )0; sqlstm.sqhstv[12] = (unsigned char *)&u4RA_TRANSPORTE; sqlstm.sqhstl[12] = (unsigned long )sizeof(int); sqlstm.sqhsts[12] = ( int )0; sqlstm.sqindv[12] = ( short *)0; sqlstm.sqinds[12] = ( int )0; sqlstm.sqharm[12] = (unsigned long )0; sqlstm.sqadto[12] = (unsigned short )0; sqlstm.sqtdso[12] = (unsigned short )0; sqlstm.sqhstv[13] = (unsigned char *)&u4ESTADO_ORIGINAL; sqlstm.sqhstl[13] = (unsigned long )sizeof(int); sqlstm.sqhsts[13] = ( int )0; sqlstm.sqindv[13] = ( short *)0; sqlstm.sqinds[13] = ( int )0; sqlstm.sqharm[13] = (unsigned long )0; sqlstm.sqadto[13] = (unsigned short )0; sqlstm.sqtdso[13] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 14; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )169; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4MOD_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4RA_FUNCION; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",485, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4SPBaja) > 0) { u4Paquetes++; pPATI->Spbaja = (PeticionAplicacionTopologicaIncremento_Baja_SP *)realloc(pPATI->Spbaja, u4Paquetes*100*sizeof(PeticionAplicacionTopologicaIncremento_Baja_SP)); if (!pPATI->Spbaja) { sacError("G1","gbAplicacionTopologicaIncremento.pc",495,"GB0005","No se ha podido crear PeticionAplicacionTopologicaIncremento."); exit(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemSpbaja[u4SPBaja++].IDSPBAJA = pu4MOD_IDSAC[u4Elem]; } } } while (sqlca.sqlcode == 0); pPATI->NSPBAJA = u4SPBaja; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 14; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )192; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",517,"Baja de SP MT : %u registros",u4SPBaja); u4SPBaja = u4Elem = u4Paquetes = 0; pPATIAT->Spbaja = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 14; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.stmt = sq0003; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )207; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&vcNombreTablaSP_MV_O_AT; sqlstm.sqhstl[0] = (unsigned long )258; sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[1] = (unsigned long )0; sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)&u4RA_CABECERA; sqlstm.sqhstl[3] = (unsigned long )sizeof(int); sqlstm.sqhsts[3] = ( int )0; sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)&u4RA_ENTRADA; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )0; sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)&u4RA_TRANSPORTE; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )0; sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)&u4ESTADO_ORIGINAL; sqlstm.sqhstl[6] = (unsigned long )sizeof(int); sqlstm.sqhsts[6] = ( int )0; sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)&vcNombreTablaSP_MV_O_AT; sqlstm.sqhstl[7] = (unsigned long )258; sqlstm.sqhsts[7] = ( int )0; sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqhstv[8] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[8] = (unsigned long )0; sqlstm.sqhsts[8] = ( int )0; sqlstm.sqindv[8] = ( short *)0; sqlstm.sqinds[8] = ( int )0; sqlstm.sqharm[8] = (unsigned long )0; sqlstm.sqadto[8] = (unsigned short )0; sqlstm.sqtdso[8] = (unsigned short )0; sqlstm.sqhstv[9] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[9] = (unsigned long )sizeof(int); sqlstm.sqhsts[9] = ( int )0; sqlstm.sqindv[9] = ( short *)0; sqlstm.sqinds[9] = ( int )0; sqlstm.sqharm[9] = (unsigned long )0; sqlstm.sqadto[9] = (unsigned short )0; sqlstm.sqtdso[9] = (unsigned short )0; sqlstm.sqhstv[10] = (unsigned char *)&u4RA_CABECERA; sqlstm.sqhstl[10] = (unsigned long )sizeof(int); sqlstm.sqhsts[10] = ( int )0; sqlstm.sqindv[10] = ( short *)0; sqlstm.sqinds[10] = ( int )0; sqlstm.sqharm[10] = (unsigned long )0; sqlstm.sqadto[10] = (unsigned short )0; sqlstm.sqtdso[10] = (unsigned short )0; sqlstm.sqhstv[11] = (unsigned char *)&u4RA_ENTRADA; sqlstm.sqhstl[11] = (unsigned long )sizeof(int); sqlstm.sqhsts[11] = ( int )0; sqlstm.sqindv[11] = ( short *)0; sqlstm.sqinds[11] = ( int )0; sqlstm.sqharm[11] = (unsigned long )0; sqlstm.sqadto[11] = (unsigned short )0; sqlstm.sqtdso[11] = (unsigned short )0; sqlstm.sqhstv[12] = (unsigned char *)&u4RA_TRANSPORTE; sqlstm.sqhstl[12] = (unsigned long )sizeof(int); sqlstm.sqhsts[12] = ( int )0; sqlstm.sqindv[12] = ( short *)0; sqlstm.sqinds[12] = ( int )0; sqlstm.sqharm[12] = (unsigned long )0; sqlstm.sqadto[12] = (unsigned short )0; sqlstm.sqtdso[12] = (unsigned short )0; sqlstm.sqhstv[13] = (unsigned char *)&u4ESTADO_ORIGINAL; sqlstm.sqhstl[13] = (unsigned long )sizeof(int); sqlstm.sqhsts[13] = ( int )0; sqlstm.sqindv[13] = ( short *)0; sqlstm.sqinds[13] = ( int )0; sqlstm.sqharm[13] = (unsigned long )0; sqlstm.sqadto[13] = (unsigned short )0; sqlstm.sqtdso[13] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 14; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )278; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4MOD_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4RA_FUNCION; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",534, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4SPBaja) > 0) { u4Paquetes++; pPATIAT->Spbaja = (PeticionAplicacionTopologicaIncremento_Baja_SP *)realloc(pPATIAT->Spbaja, u4Paquetes*100*sizeof(PeticionAplicacionTopologicaIncremento_Baja_SP)); if (!pPATIAT->Spbaja) { sacError("G1","gbAplicacionTopologicaIncremento.pc",544,"GB0005","No se ha podido crear PeticionAplicacionTopologicaIncrementoAT."); exit(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemSpbaja[u4SPBaja++].IDSPBAJA = pu4MOD_IDSAC[u4Elem]; } } } while (sqlca.sqlcode == 0); pPATIAT->NSPBAJA = u4SPBaja; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 14; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )301; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",566,"Baja de SP AT : %u registros",u4SPBaja); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",570,"Bajas de medidas."); u4MedidasBaja = u4Elem = u4Paquetes = 0; pPATI->Medidasbaja = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.stmt = sq0004; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )316; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&vcNombreTablaMedidas; sqlstm.sqhstl[0] = (unsigned long )258; sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)&u4ER_MEDIA_TENSION; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4ER_SUBESTACION_MT; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[3] = (unsigned long )0; sqlstm.sqhsts[3] = ( int )0; sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )0; sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )0; sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)&u4ESTADO_ORIGINAL; sqlstm.sqhstl[6] = (unsigned long )sizeof(int); sqlstm.sqhsts[6] = ( int )0; sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)&u2MeI; sqlstm.sqhstl[7] = (unsigned long )sizeof(short); sqlstm.sqhsts[7] = ( int )0; sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqhstv[8] = (unsigned char *)&u2Mee; sqlstm.sqhstl[8] = (unsigned long )sizeof(short); sqlstm.sqhsts[8] = ( int )0; sqlstm.sqindv[8] = ( short *)0; sqlstm.sqinds[8] = ( int )0; sqlstm.sqharm[8] = (unsigned long )0; sqlstm.sqadto[8] = (unsigned short )0; sqlstm.sqtdso[8] = (unsigned short )0; sqlstm.sqhstv[9] = (unsigned char *)&vcNombreTablaElemento_Red; sqlstm.sqhstl[9] = (unsigned long )258; sqlstm.sqhsts[9] = ( int )0; sqlstm.sqindv[9] = ( short *)0; sqlstm.sqinds[9] = ( int )0; sqlstm.sqharm[9] = (unsigned long )0; sqlstm.sqadto[9] = (unsigned short )0; sqlstm.sqtdso[9] = (unsigned short )0; sqlstm.sqhstv[10] = (unsigned char *)&u4ER_MEDIA_TENSION; sqlstm.sqhstl[10] = (unsigned long )sizeof(int); sqlstm.sqhsts[10] = ( int )0; sqlstm.sqindv[10] = ( short *)0; sqlstm.sqinds[10] = ( int )0; sqlstm.sqharm[10] = (unsigned long )0; sqlstm.sqadto[10] = (unsigned short )0; sqlstm.sqtdso[10] = (unsigned short )0; sqlstm.sqhstv[11] = (unsigned char *)&u4ER_SUBESTACION_MT; sqlstm.sqhstl[11] = (unsigned long )sizeof(int); sqlstm.sqhsts[11] = ( int )0; sqlstm.sqindv[11] = ( short *)0; sqlstm.sqinds[11] = ( int )0; sqlstm.sqharm[11] = (unsigned long )0; sqlstm.sqadto[11] = (unsigned short )0; sqlstm.sqtdso[11] = (unsigned short )0; sqlstm.sqhstv[12] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[12] = (unsigned long )0; sqlstm.sqhsts[12] = ( int )0; sqlstm.sqindv[12] = ( short *)0; sqlstm.sqinds[12] = ( int )0; sqlstm.sqharm[12] = (unsigned long )0; sqlstm.sqadto[12] = (unsigned short )0; sqlstm.sqtdso[12] = (unsigned short )0; sqlstm.sqhstv[13] = (unsigned char *)&u2MeI; sqlstm.sqhstl[13] = (unsigned long )sizeof(short); sqlstm.sqhsts[13] = ( int )0; sqlstm.sqindv[13] = ( short *)0; sqlstm.sqinds[13] = ( int )0; sqlstm.sqharm[13] = (unsigned long )0; sqlstm.sqadto[13] = (unsigned short )0; sqlstm.sqtdso[13] = (unsigned short )0; sqlstm.sqhstv[14] = (unsigned char *)&u2Mee; sqlstm.sqhstl[14] = (unsigned long )sizeof(short); sqlstm.sqhsts[14] = ( int )0; sqlstm.sqindv[14] = ( short *)0; sqlstm.sqinds[14] = ( int )0; sqlstm.sqharm[14] = (unsigned long )0; sqlstm.sqadto[14] = (unsigned short )0; sqlstm.sqtdso[14] = (unsigned short )0; sqlstm.sqhstv[15] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[15] = (unsigned long )sizeof(int); sqlstm.sqhsts[15] = ( int )0; sqlstm.sqindv[15] = ( short *)0; sqlstm.sqinds[15] = ( int )0; sqlstm.sqharm[15] = (unsigned long )0; sqlstm.sqadto[15] = (unsigned short )0; sqlstm.sqtdso[15] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )395; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4MOD_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",693, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4MedidasBaja)> 0) { u4Paquetes++; pPATI->Medidasbaja = (PeticionAplicacionTopologicaIncremento_Baja_Medida *)realloc( pPATI->Medidasbaja, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Baja_Medida)); if (!pPATI->Medidasbaja) { sacError("G1","gbAplicacionTopologicaIncremento.pc",704,"GB0005","No se ha podido crear PeticionAplicacionTopologicaIncremento."); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemMedidasbaja[u4MedidasBaja++].IDMEDBAJA = pu4MOD_IDSAC[u4Elem]; } } } while (sqlca.sqlcode == 0); pPATI->NMEDIDASBAJA = u4MedidasBaja; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )414; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",725,"Baja de medidas MT: %u registros",u4MedidasBaja); u4MedidasBaja = u4Elem = u4Paquetes = 0; pPATIAT->Medidasbaja = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.stmt = sq0005; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )429; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&vcNombreTablaMedidas; sqlstm.sqhstl[0] = (unsigned long )258; sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)&u4ER_TRANSPORTE; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4ER_SUBESTACION_AT; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[3] = (unsigned long )0; sqlstm.sqhsts[3] = ( int )0; sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )0; sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )0; sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)&u4ESTADO_ORIGINAL; sqlstm.sqhstl[6] = (unsigned long )sizeof(int); sqlstm.sqhsts[6] = ( int )0; sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)&u2MeI; sqlstm.sqhstl[7] = (unsigned long )sizeof(short); sqlstm.sqhsts[7] = ( int )0; sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqhstv[8] = (unsigned char *)&u2Mee; sqlstm.sqhstl[8] = (unsigned long )sizeof(short); sqlstm.sqhsts[8] = ( int )0; sqlstm.sqindv[8] = ( short *)0; sqlstm.sqinds[8] = ( int )0; sqlstm.sqharm[8] = (unsigned long )0; sqlstm.sqadto[8] = (unsigned short )0; sqlstm.sqtdso[8] = (unsigned short )0; sqlstm.sqhstv[9] = (unsigned char *)&vcNombreTablaElemento_Red; sqlstm.sqhstl[9] = (unsigned long )258; sqlstm.sqhsts[9] = ( int )0; sqlstm.sqindv[9] = ( short *)0; sqlstm.sqinds[9] = ( int )0; sqlstm.sqharm[9] = (unsigned long )0; sqlstm.sqadto[9] = (unsigned short )0; sqlstm.sqtdso[9] = (unsigned short )0; sqlstm.sqhstv[10] = (unsigned char *)&u4ER_TRANSPORTE; sqlstm.sqhstl[10] = (unsigned long )sizeof(int); sqlstm.sqhsts[10] = ( int )0; sqlstm.sqindv[10] = ( short *)0; sqlstm.sqinds[10] = ( int )0; sqlstm.sqharm[10] = (unsigned long )0; sqlstm.sqadto[10] = (unsigned short )0; sqlstm.sqtdso[10] = (unsigned short )0; sqlstm.sqhstv[11] = (unsigned char *)&u4ER_SUBESTACION_AT; sqlstm.sqhstl[11] = (unsigned long )sizeof(int); sqlstm.sqhsts[11] = ( int )0; sqlstm.sqindv[11] = ( short *)0; sqlstm.sqinds[11] = ( int )0; sqlstm.sqharm[11] = (unsigned long )0; sqlstm.sqadto[11] = (unsigned short )0; sqlstm.sqtdso[11] = (unsigned short )0; sqlstm.sqhstv[12] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[12] = (unsigned long )0; sqlstm.sqhsts[12] = ( int )0; sqlstm.sqindv[12] = ( short *)0; sqlstm.sqinds[12] = ( int )0; sqlstm.sqharm[12] = (unsigned long )0; sqlstm.sqadto[12] = (unsigned short )0; sqlstm.sqtdso[12] = (unsigned short )0; sqlstm.sqhstv[13] = (unsigned char *)&u2MeI; sqlstm.sqhstl[13] = (unsigned long )sizeof(short); sqlstm.sqhsts[13] = ( int )0; sqlstm.sqindv[13] = ( short *)0; sqlstm.sqinds[13] = ( int )0; sqlstm.sqharm[13] = (unsigned long )0; sqlstm.sqadto[13] = (unsigned short )0; sqlstm.sqtdso[13] = (unsigned short )0; sqlstm.sqhstv[14] = (unsigned char *)&u2Mee; sqlstm.sqhstl[14] = (unsigned long )sizeof(short); sqlstm.sqhsts[14] = ( int )0; sqlstm.sqindv[14] = ( short *)0; sqlstm.sqinds[14] = ( int )0; sqlstm.sqharm[14] = (unsigned long )0; sqlstm.sqadto[14] = (unsigned short )0; sqlstm.sqtdso[14] = (unsigned short )0; sqlstm.sqhstv[15] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[15] = (unsigned long )sizeof(int); sqlstm.sqhsts[15] = ( int )0; sqlstm.sqindv[15] = ( short *)0; sqlstm.sqinds[15] = ( int )0; sqlstm.sqharm[15] = (unsigned long )0; sqlstm.sqadto[15] = (unsigned short )0; sqlstm.sqtdso[15] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )508; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4MOD_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",741, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4MedidasBaja)> 0) { u4Paquetes++; pPATIAT->Medidasbaja = (PeticionAplicacionTopologicaIncremento_Baja_Medida *)realloc( pPATIAT->Medidasbaja, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Baja_Medida)); if (!pPATIAT->Medidasbaja) { sacError("G1","gbAplicacionTopologicaIncremento.pc",752,"GB0005","No se ha podido crear PeticionAplicacionTopologicaIncrementoAT."); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemMedidasbaja[u4MedidasBaja++].IDMEDBAJA = pu4MOD_IDSAC[u4Elem]; } } } while (sqlca.sqlcode == 0); pPATIAT->NMEDIDASBAJA = u4MedidasBaja; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )527; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",773,"Baja de medidas AT: %u registros",u4MedidasBaja); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",777,"Bajas de ambitos."); u4AmbitosBaja = u4Elem = u4Paquetes = 0; pPATI->Ambitosbaja = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.stmt = sq0006; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )542; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[0] = (unsigned long )0; sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )569; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4MOD_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",816, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4AmbitosBaja)> 0) { u4Paquetes++; pPATI->Ambitosbaja = (PeticionAplicacionTopologicaIncremento_Baja_Ambito *)realloc( pPATI->Ambitosbaja, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Baja_Ambito)); if (!pPATI->Ambitosbaja) { sacError("G1","gbAplicacionTopologicaIncremento.pc",827,"GB0005","No se ha podido crear PeticionAplicacionTopologicaIncremento."); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemAmbitosbaja[u4AmbitosBaja++].IDAMBITBAJA = pu4MOD_IDSAC[u4Elem]; } } } while (sqlca.sqlcode == 0); pPATI->NAMBITOSBAJA = u4AmbitosBaja; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )588; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",848,"Bajas de ambitos mt : %u registros",u4AmbitosBaja); u4AmbitosBaja = u4Elem = u4Paquetes = 0; pPATIAT->Ambitosbaja = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.stmt = sq0007; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )603; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[0] = (unsigned long )0; sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )630; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4MOD_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",864, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4AmbitosBaja)> 0) { u4Paquetes++; pPATIAT->Ambitosbaja = (PeticionAplicacionTopologicaIncremento_Baja_Ambito *)realloc( pPATIAT->Ambitosbaja, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Baja_Ambito)); if (!pPATIAT->Ambitosbaja) { sacError("G1","gbAplicacionTopologicaIncremento.pc",875,"GB0005","No se ha podido crear PeticionAplicacionTopologicaIncrementoAT."); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemAmbitosbaja[u4AmbitosBaja++].IDAMBITBAJA = pu4MOD_IDSAC[u4Elem]; } } } while (sqlca.sqlcode == 0); pPATIAT->NAMBITOSBAJA = u4AmbitosBaja; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )649; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",896,"Bajas de ambitos at : %u registros",u4AmbitosBaja); u4TomasReguladorBaja = u4Elem = u4Paquetes = 0; pPATI->Tomasbaja = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.stmt = sq0008; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )664; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&vcNombreTablaTomasRegulador; sqlstm.sqhstl[0] = (unsigned long )258; sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)&u4ER_MEDIA_TENSION; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4ER_SUBESTACION_MT; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[3] = (unsigned long )0; sqlstm.sqhsts[3] = ( int )0; sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )0; sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)&vcNombreTablaTomasRegulador; sqlstm.sqhstl[5] = (unsigned long )258; sqlstm.sqhsts[5] = ( int )0; sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[6] = (unsigned long )0; sqlstm.sqhsts[6] = ( int )0; sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[7] = (unsigned long )sizeof(int); sqlstm.sqhsts[7] = ( int )0; sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )711; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4MOD_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4TR_NUM_TOMA; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",989,"Inicio Baja Tomas Reg:"); if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",992, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4TomasReguladorBaja)> 0) { sacTraza(4,"gbAplicacionTopologicaIncremento.pc",998,"Tratar Baja Tomas Reg1 :"); u4Paquetes++; pPATI->Tomasbaja = (PeticionAplicacionTopologicaIncremento_Baja_Toma *)realloc( pPATI->Tomasbaja, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Baja_Toma)); if (!pPATI->Tomasbaja) { sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1007,"Err Baja Tomas Reg:"); sacError("G1","gbAplicacionTopologicaIncremento.pc",1009,"GB0005","No se ha podido crear PeticionAplicacionTopologicaIncremento. Tomas Baja"); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1019,"Baja Tomas Reg NunElem:%u, sqlca:%u",u4LongitudPaquete,sqlca.sqlerrd[2]); for(u4Elem=0; u4ElemTomasbaja[u4TomasReguladorBaja].IDSAC = pu4MOD_IDSAC[u4Elem]; pPATI->Tomasbaja[u4TomasReguladorBaja++].NUMTOMA = pu4TR_NUM_TOMA[u4Elem]; } } } while (sqlca.sqlcode == 0); pPATI->NTOMASBAJA = u4TomasReguladorBaja; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )734; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1032,"Fin Baja de tomas de regulador: %u registros",u4TomasReguladorBaja); u4TomasReguladorBaja = u4Elem = u4Paquetes = 0; pPATIAT->Tomasbaja = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.stmt = sq0009; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )749; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&vcNombreTablaTomasRegulador; sqlstm.sqhstl[0] = (unsigned long )258; sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)&u4ER_TRANSPORTE; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4ER_SUBESTACION_AT; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)&u4ER_TF_FRONTERA; sqlstm.sqhstl[3] = (unsigned long )sizeof(int); sqlstm.sqhsts[3] = ( int )0; sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[4] = (unsigned long )0; sqlstm.sqhsts[4] = ( int )0; sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )0; sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)&vcNombreTablaTomasRegulador; sqlstm.sqhstl[6] = (unsigned long )258; sqlstm.sqhsts[6] = ( int )0; sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[7] = (unsigned long )0; sqlstm.sqhsts[7] = ( int )0; sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqhstv[8] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[8] = (unsigned long )sizeof(int); sqlstm.sqhsts[8] = ( int )0; sqlstm.sqindv[8] = ( short *)0; sqlstm.sqinds[8] = ( int )0; sqlstm.sqharm[8] = (unsigned long )0; sqlstm.sqadto[8] = (unsigned short )0; sqlstm.sqtdso[8] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )800; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4MOD_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4TR_NUM_TOMA; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1047,"Inicio Baja Tomas Reg:"); if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",1050, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4TomasReguladorBaja)> 0) { sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1056,"Tratar Baja Tomas Reg1 :"); u4Paquetes++; pPATIAT->Tomasbaja = (PeticionAplicacionTopologicaIncremento_Baja_Toma *)realloc( pPATIAT->Tomasbaja, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Baja_Toma)); if (!pPATIAT->Tomasbaja) { sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1065,"Err Baja Tomas Reg:"); sacError("G1","gbAplicacionTopologicaIncremento.pc",1067,"GB0005","No se ha podido crear PeticionAplicacionTopologicaIncrementoAT. Tomas Baja"); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1077,"Baja Tomas Reg NunElem:%u, sqlca:%u",u4LongitudPaquete,sqlca.sqlerrd[2]); for(u4Elem=0; u4ElemTomasbaja[u4TomasReguladorBaja].IDSAC = pu4MOD_IDSAC[u4Elem]; pPATIAT->Tomasbaja[u4TomasReguladorBaja++].NUMTOMA = pu4TR_NUM_TOMA[u4Elem]; } } } while (sqlca.sqlcode == 0); pPATIAT->NTOMASBAJA = u4TomasReguladorBaja; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )823; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1090,"Fin Baja de tomas de regulador at: %u registros",u4TomasReguladorBaja); if (Incremento.ui4Operacion == 30901) { u4MODIFICACION = 20001; u4ESTADO_ORIGINAL = 1; } else if (Incremento.ui4Operacion == 30902) { u4MODIFICACION = 20002; u4ESTADO_ORIGINAL = 0; } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1110,"Altas de fronteras."); u4FronterasAlta = u4Elem = u4Paquetes = 0; pPATI->Fronterasalta = ((void *)0); pPATIAT->Fronterasalta = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlbuft((void **)0, "select MODI.MOD_IDSAC ,RA.RA_NUDO1_IDSAC ,RA.RA_NUDO2_IDSAC ,NU1.ER_IDSAC ,NU2.ER_IDSAC ,RA.RA_TIPO ,NVL(ES.ES_VALOR,:b0) from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TI ,RAMA RA ,NUDO NU1 ,NUDO NU2 ,ESTADO ES where ((((((((((TI.TBI_NOMBRE_TABLA=:b1 and TI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and INC.INC_NOMBRE=:b2) and MODI.MOD_TIPO=:b3) and RA.RA_FUNCION=:b4) and MODI.MOD_IDSAC=RA.ER_IDSAC_RAMA) and RA.ER_IDSAC_RAMA=ES.ER_IDSAC(+)) and ES.ES_TIPO(+)=:b5) and RA.RA_NUDO1_IDSAC=NU1.ER_IDSAC_NUDO) and RA.RA_NUDO2_IDSAC=NU2.ER_IDSAC_NUDO) union select MODI.MOD_IDSAC ,RA.RA_NUDO1_IDSAC ,RA.RA_NUDO2_IDSAC ,NU1.ER_IDSAC ,NU2.ER_IDSAC ,RA.RA_TIPO ,NVL(ES.ES_VALOR,:b0) from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TBI ,RAMA RA ,NUDO NU1 ,NUDO NU2 ,ESTADO ES ,I$RAMA RA2 where ((((((((((((((TBI.TBI_NOMBRE_TABLA=:b1 and TBI.TBI_IDSAC=MODI.TBI_IDSAC) and MODI.INC_IDSAC=INC.INC_IDSAC) and INC.INC_NOMBRE=:b2) and MODI.MOD_TIPO=:b9) and RA.RA_FUNCION=:b4) and MODI.MOD_IDSAC"); sqlstm.stmt = sq0010; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )838; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&u4ES_CERRADO; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)&vcNombreTablaRamas; sqlstm.sqhstl[1] = (unsigned long )258; sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[2] = (unsigned long )0; sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[3] = (unsigned long )sizeof(int); sqlstm.sqhsts[3] = ( int )0; sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)&u4RA_FRONTERA; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )0; sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)&u4ES_ESTADO_BASICO; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )0; sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)&u4ES_CERRADO; sqlstm.sqhstl[6] = (unsigned long )sizeof(int); sqlstm.sqhsts[6] = ( int )0; sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)&vcNombreTablaRamas; sqlstm.sqhstl[7] = (unsigned long )258; sqlstm.sqhsts[7] = ( int )0; sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqhstv[8] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[8] = (unsigned long )0; sqlstm.sqhsts[8] = ( int )0; sqlstm.sqindv[8] = ( short *)0; sqlstm.sqinds[8] = ( int )0; sqlstm.sqharm[8] = (unsigned long )0; sqlstm.sqadto[8] = (unsigned short )0; sqlstm.sqtdso[8] = (unsigned short )0; sqlstm.sqhstv[9] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[9] = (unsigned long )sizeof(int); sqlstm.sqhsts[9] = ( int )0; sqlstm.sqindv[9] = ( short *)0; sqlstm.sqinds[9] = ( int )0; sqlstm.sqharm[9] = (unsigned long )0; sqlstm.sqadto[9] = (unsigned short )0; sqlstm.sqtdso[9] = (unsigned short )0; sqlstm.sqhstv[10] = (unsigned char *)&u4RA_FRONTERA; sqlstm.sqhstl[10] = (unsigned long )sizeof(int); sqlstm.sqhsts[10] = ( int )0; sqlstm.sqindv[10] = ( short *)0; sqlstm.sqinds[10] = ( int )0; sqlstm.sqharm[10] = (unsigned long )0; sqlstm.sqadto[10] = (unsigned short )0; sqlstm.sqtdso[10] = (unsigned short )0; sqlstm.sqhstv[11] = (unsigned char *)&u4ES_ESTADO_BASICO; sqlstm.sqhstl[11] = (unsigned long )sizeof(int); sqlstm.sqhsts[11] = ( int )0; sqlstm.sqindv[11] = ( short *)0; sqlstm.sqinds[11] = ( int )0; sqlstm.sqharm[11] = (unsigned long )0; sqlstm.sqadto[11] = (unsigned short )0; sqlstm.sqtdso[11] = (unsigned short )0; sqlstm.sqhstv[12] = (unsigned char *)&u4ESTADO_ORIGINAL; sqlstm.sqhstl[12] = (unsigned long )sizeof(int); sqlstm.sqhsts[12] = ( int )0; sqlstm.sqindv[12] = ( short *)0; sqlstm.sqinds[12] = ( int )0; sqlstm.sqharm[12] = (unsigned long )0; sqlstm.sqadto[12] = (unsigned short )0; sqlstm.sqtdso[12] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )905; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4MOD_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4RA_NUDO1_IDSAC; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)pu4RA_NUDO2_IDSAC; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )sizeof(int); sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqharc[2] = (unsigned long *)0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)pu4IDSAC_AM1; sqlstm.sqhstl[3] = (unsigned long )sizeof(int); sqlstm.sqhsts[3] = ( int )sizeof(int); sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqharc[3] = (unsigned long *)0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)pu4IDSAC_AM2; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )sizeof(int); sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqharc[4] = (unsigned long *)0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)pu4ER_TIPO; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )sizeof(int); sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqharc[5] = (unsigned long *)0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)pu4ES_VALOR; sqlstm.sqhstl[6] = (unsigned long )sizeof(int); sqlstm.sqhsts[6] = ( int )sizeof(int); sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqharc[6] = (unsigned long *)0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",1202, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4FronterasAlta)> 0) { u4Paquetes++; pPATI->Fronterasalta = (PeticionAplicacionTopologicaIncremento_Alta_Frontera *)realloc( pPATI->Fronterasalta, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Alta_Frontera)); if (!pPATI->Fronterasalta) { sacError("G1","gbAplicacionTopologicaIncremento.pc",1213,"GB0005","No se ha podido crear PeticionAplicacionTopologicaIncremento."); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemFronterasalta[u4FronterasAlta].IDFRONT = pu4MOD_IDSAC[u4Elem]; pPATI->Fronterasalta[u4FronterasAlta].IDA1 = pu4IDSAC_AM1[u4Elem]; pPATI->Fronterasalta[u4FronterasAlta].IDN1 = pu4RA_NUDO1_IDSAC[u4Elem]; pPATI->Fronterasalta[u4FronterasAlta].IDA2 = pu4IDSAC_AM2[u4Elem]; pPATI->Fronterasalta[u4FronterasAlta].IDN2 = pu4RA_NUDO2_IDSAC[u4Elem]; pPATI->Fronterasalta[u4FronterasAlta].TIPOELE = pu4ER_TIPO[u4Elem]; pPATI->Fronterasalta[u4FronterasAlta].ESTADO = pu4ES_VALOR[u4Elem]; u4FronterasAlta++; } } } while (sqlca.sqlcode == 0); pPATI->NFRONTERASALTA = u4FronterasAlta; pPATIAT->NFRONTERASALTA = 0; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )948; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1243,"Altas de fronteras: %u registros",u4FronterasAlta); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1248,"Altas de salidas de parque."); u4SPAlta = u4Elem = u4Paquetes = 0; pPATI->Spalta = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlbuft((void **)0, "select MODI.MOD_IDSAC ,RA.RA_FUNCION ,RA.RA_NUDO1_IDSAC ,RA.RA_NUDO2_IDSAC ,NU1.ER_IDSAC ,NVL(NU2.ER_IDSAC,0) from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TI ,SP_MV_O SP ,RAMA RA ,NUDO NU1 ,NUDO NU2 where (((((((((TI.TBI_IDSAC=MODI.TBI_IDSAC and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=RA.ER_IDSAC_RAMA) and RA.ER_IDSAC_RAMA=SP.ER_IDSAC_RAMA) and RA.RA_NUDO1_IDSAC=NU1.ER_IDSAC_NUDO) and RA.RA_NUDO2_IDSAC=NU2.ER_IDSAC_NUDO(+)) and TI.TBI_NOMBRE_TABLA=:b0) and INC.INC_NOMBRE=:b1) and MODI.MOD_TIPO=:b2) and RA.RA_FUNCION in (:b3,:b4,:b5)) union select MODI.MOD_IDSAC ,RA.RA_FUNCION ,RA.RA_NUDO1_IDSAC ,RA.RA_NUDO2_IDSAC ,NU1.ER_IDSAC ,NVL(NU2.ER_IDSAC,0) from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TI ,SP_MV_O SP ,RAMA RA ,NUDO NU1 ,NUDO NU2 ,I$RAMA RA2 where (((((((((((((TI.TBI_IDSAC=MODI.TBI_IDSAC and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=RA.ER_IDSAC_RAMA) and RA.ER_IDSAC_RAMA=SP.ER_IDSAC_RAMA) and RA.RA_NUDO1_IDSAC=NU1.ER_IDSAC_NUDO) and RA.RA_NUDO2_IDSAC=NU2.ER_IDS"); sqlstm.stmt = sq0011; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )963; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&vcNombreTablaRamas; sqlstm.sqhstl[0] = (unsigned long )258; sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[1] = (unsigned long )0; sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)&u4RA_CABECERA; sqlstm.sqhstl[3] = (unsigned long )sizeof(int); sqlstm.sqhsts[3] = ( int )0; sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)&u4RA_ENTRADA; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )0; sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)&u4RA_TRANSPORTE; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )0; sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)&u4ESTADO_ORIGINAL; sqlstm.sqhstl[6] = (unsigned long )sizeof(int); sqlstm.sqhsts[6] = ( int )0; sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)&vcNombreTablaRamas; sqlstm.sqhstl[7] = (unsigned long )258; sqlstm.sqhsts[7] = ( int )0; sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqhstv[8] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[8] = (unsigned long )0; sqlstm.sqhsts[8] = ( int )0; sqlstm.sqindv[8] = ( short *)0; sqlstm.sqinds[8] = ( int )0; sqlstm.sqharm[8] = (unsigned long )0; sqlstm.sqadto[8] = (unsigned short )0; sqlstm.sqtdso[8] = (unsigned short )0; sqlstm.sqhstv[9] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[9] = (unsigned long )sizeof(int); sqlstm.sqhsts[9] = ( int )0; sqlstm.sqindv[9] = ( short *)0; sqlstm.sqinds[9] = ( int )0; sqlstm.sqharm[9] = (unsigned long )0; sqlstm.sqadto[9] = (unsigned short )0; sqlstm.sqtdso[9] = (unsigned short )0; sqlstm.sqhstv[10] = (unsigned char *)&u4RA_CABECERA; sqlstm.sqhstl[10] = (unsigned long )sizeof(int); sqlstm.sqhsts[10] = ( int )0; sqlstm.sqindv[10] = ( short *)0; sqlstm.sqinds[10] = ( int )0; sqlstm.sqharm[10] = (unsigned long )0; sqlstm.sqadto[10] = (unsigned short )0; sqlstm.sqtdso[10] = (unsigned short )0; sqlstm.sqhstv[11] = (unsigned char *)&u4RA_ENTRADA; sqlstm.sqhstl[11] = (unsigned long )sizeof(int); sqlstm.sqhsts[11] = ( int )0; sqlstm.sqindv[11] = ( short *)0; sqlstm.sqinds[11] = ( int )0; sqlstm.sqharm[11] = (unsigned long )0; sqlstm.sqadto[11] = (unsigned short )0; sqlstm.sqtdso[11] = (unsigned short )0; sqlstm.sqhstv[12] = (unsigned char *)&u4RA_TRANSPORTE; sqlstm.sqhstl[12] = (unsigned long )sizeof(int); sqlstm.sqhsts[12] = ( int )0; sqlstm.sqindv[12] = ( short *)0; sqlstm.sqinds[12] = ( int )0; sqlstm.sqharm[12] = (unsigned long )0; sqlstm.sqadto[12] = (unsigned short )0; sqlstm.sqtdso[12] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )1030; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4MOD_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4RA_FUNCION; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)pu4RA_NUDO1_IDSAC; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )sizeof(int); sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqharc[2] = (unsigned long *)0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)pu4RA_NUDO2_IDSAC; sqlstm.sqhstl[3] = (unsigned long )sizeof(int); sqlstm.sqhsts[3] = ( int )sizeof(int); sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqharc[3] = (unsigned long *)0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)pu4IDSAC_AM1; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )sizeof(int); sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqharc[4] = (unsigned long *)0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)pu4IDSAC_AM2; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )sizeof(int); sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqharc[5] = (unsigned long *)0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",1400, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4SPAlta)> 0) { u4Paquetes++; pPATI->Spalta = (PeticionAplicacionTopologicaIncremento_Alta_SP *)realloc( pPATI->Spalta, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Alta_SP)); if (!pPATI->Spalta) { sacError("G1","gbAplicacionTopologicaIncremento.pc",1411,"GB0005","No se ha podido crear PeticionAplicacionTopologicaIncremento."); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemSpalta[u4SPAlta].IDSPALTA = pu4MOD_IDSAC[u4Elem]; pPATI->Spalta[u4SPAlta].IDES = pu4IDSAC_AM1[u4Elem]; pPATI->Spalta[u4SPAlta].IDNE = pu4RA_NUDO1_IDSAC[u4Elem]; pPATI->Spalta[u4SPAlta].IDLI = pu4IDSAC_AM2[u4Elem]; pPATI->Spalta[u4SPAlta].IDNL = pu4RA_NUDO2_IDSAC[u4Elem]; pPATI->Spalta[u4SPAlta].TIP = pu4RA_FUNCION[u4Elem]; u4SPAlta++; } } } while (sqlca.sqlcode == 0); pPATI->NSPALTA = u4SPAlta; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )1069; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1439,"Altas de salidas de parque MT: %u registros",u4SPAlta); u4SPAlta = u4Elem = u4Paquetes = 0; pPATIAT->Spalta = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlbuft((void **)0, "select MODI.MOD_IDSAC ,RA.RA_FUNCION ,RA.RA_NUDO1_IDSAC ,RA.RA_NUDO2_IDSAC ,NU1.ER_IDSAC ,NVL(NU2.ER_IDSAC,0) from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TI ,SP_MV_O_AT SP ,RAMA RA ,NUDO NU1 ,NUDO NU2 where (((((((((TI.TBI_IDSAC=MODI.TBI_IDSAC and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=RA.ER_IDSAC_RAMA) and RA.ER_IDSAC_RAMA=SP.ER_IDSAC_RAMA) and RA.RA_NUDO1_IDSAC=NU1.ER_IDSAC_NUDO) and RA.RA_NUDO2_IDSAC=NU2.ER_IDSAC_NUDO(+)) and TI.TBI_NOMBRE_TABLA=:b0) and INC.INC_NOMBRE=:b1) and MODI.MOD_TIPO=:b2) and RA.RA_FUNCION in (:b3,:b4,:b5)) union select MODI.MOD_IDSAC ,RA.RA_FUNCION ,RA.RA_NUDO1_IDSAC ,RA.RA_NUDO2_IDSAC ,NU1.ER_IDSAC ,NVL(NU2.ER_IDSAC,0) from MODIFICACION MODI ,INCREMENTO INC ,TABLA_INCREMENTAL TI ,SP_MV_O_AT SP ,RAMA RA ,NUDO NU1 ,NUDO NU2 ,I$RAMA RA2 where (((((((((((((TI.TBI_IDSAC=MODI.TBI_IDSAC and MODI.INC_IDSAC=INC.INC_IDSAC) and MODI.MOD_IDSAC=RA.ER_IDSAC_RAMA) and RA.ER_IDSAC_RAMA=SP.ER_IDSAC_RAMA) and RA.RA_NUDO1_IDSAC=NU1.ER_IDSAC_NUDO) and RA.RA_NUDO2_IDSAC=NU2."); sqlstm.stmt = sq0012; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )1084; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&vcNombreTablaRamas; sqlstm.sqhstl[0] = (unsigned long )258; sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[1] = (unsigned long )0; sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)&u4RA_CABECERA; sqlstm.sqhstl[3] = (unsigned long )sizeof(int); sqlstm.sqhsts[3] = ( int )0; sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)&u4RA_ENTRADA; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )0; sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)&u4RA_TRANSPORTE; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )0; sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)&u4ESTADO_ORIGINAL; sqlstm.sqhstl[6] = (unsigned long )sizeof(int); sqlstm.sqhsts[6] = ( int )0; sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)&vcNombreTablaRamas; sqlstm.sqhstl[7] = (unsigned long )258; sqlstm.sqhsts[7] = ( int )0; sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqhstv[8] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[8] = (unsigned long )0; sqlstm.sqhsts[8] = ( int )0; sqlstm.sqindv[8] = ( short *)0; sqlstm.sqinds[8] = ( int )0; sqlstm.sqharm[8] = (unsigned long )0; sqlstm.sqadto[8] = (unsigned short )0; sqlstm.sqtdso[8] = (unsigned short )0; sqlstm.sqhstv[9] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[9] = (unsigned long )sizeof(int); sqlstm.sqhsts[9] = ( int )0; sqlstm.sqindv[9] = ( short *)0; sqlstm.sqinds[9] = ( int )0; sqlstm.sqharm[9] = (unsigned long )0; sqlstm.sqadto[9] = (unsigned short )0; sqlstm.sqtdso[9] = (unsigned short )0; sqlstm.sqhstv[10] = (unsigned char *)&u4RA_CABECERA; sqlstm.sqhstl[10] = (unsigned long )sizeof(int); sqlstm.sqhsts[10] = ( int )0; sqlstm.sqindv[10] = ( short *)0; sqlstm.sqinds[10] = ( int )0; sqlstm.sqharm[10] = (unsigned long )0; sqlstm.sqadto[10] = (unsigned short )0; sqlstm.sqtdso[10] = (unsigned short )0; sqlstm.sqhstv[11] = (unsigned char *)&u4RA_ENTRADA; sqlstm.sqhstl[11] = (unsigned long )sizeof(int); sqlstm.sqhsts[11] = ( int )0; sqlstm.sqindv[11] = ( short *)0; sqlstm.sqinds[11] = ( int )0; sqlstm.sqharm[11] = (unsigned long )0; sqlstm.sqadto[11] = (unsigned short )0; sqlstm.sqtdso[11] = (unsigned short )0; sqlstm.sqhstv[12] = (unsigned char *)&u4RA_TRANSPORTE; sqlstm.sqhstl[12] = (unsigned long )sizeof(int); sqlstm.sqhsts[12] = ( int )0; sqlstm.sqindv[12] = ( short *)0; sqlstm.sqinds[12] = ( int )0; sqlstm.sqharm[12] = (unsigned long )0; sqlstm.sqadto[12] = (unsigned short )0; sqlstm.sqtdso[12] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )1151; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4MOD_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4RA_FUNCION; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)pu4RA_NUDO1_IDSAC; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )sizeof(int); sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqharc[2] = (unsigned long *)0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)pu4RA_NUDO2_IDSAC; sqlstm.sqhstl[3] = (unsigned long )sizeof(int); sqlstm.sqhsts[3] = ( int )sizeof(int); sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqharc[3] = (unsigned long *)0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)pu4IDSAC_AM1; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )sizeof(int); sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqharc[4] = (unsigned long *)0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)pu4IDSAC_AM2; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )sizeof(int); sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqharc[5] = (unsigned long *)0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",1457, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4SPAlta)> 0) { u4Paquetes++; pPATIAT->Spalta = (PeticionAplicacionTopologicaIncremento_Alta_SP *)realloc( pPATIAT->Spalta, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Alta_SP)); if (!pPATIAT->Spalta) { sacError("G1","gbAplicacionTopologicaIncremento.pc",1468,"GB0005","No se ha podido crear PeticionAplicacionTopologicaIncrementoAT."); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemSpalta[u4SPAlta].IDSPALTA = pu4MOD_IDSAC[u4Elem]; pPATIAT->Spalta[u4SPAlta].IDES = pu4IDSAC_AM1[u4Elem]; pPATIAT->Spalta[u4SPAlta].IDNE = pu4RA_NUDO1_IDSAC[u4Elem]; pPATIAT->Spalta[u4SPAlta].IDLI = pu4IDSAC_AM2[u4Elem]; pPATIAT->Spalta[u4SPAlta].IDNL = pu4RA_NUDO2_IDSAC[u4Elem]; pPATIAT->Spalta[u4SPAlta].TIP = pu4RA_FUNCION[u4Elem]; u4SPAlta++; } } } while (sqlca.sqlcode == 0); pPATIAT->NSPALTA = u4SPAlta; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )1190; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1496,"Altas de salidas de parque AT: %u registros",u4SPAlta); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1499,"Altas de medidas."); u4MedidasAlta = u4Elem = u4Paquetes = 0; pPATI->Medidasalta = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.stmt = sq0013; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )1205; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&vcNombreTablaMedidas; sqlstm.sqhstl[0] = (unsigned long )258; sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)&u4ER_MEDIA_TENSION; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4ER_SUBESTACION_MT; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[3] = (unsigned long )0; sqlstm.sqhsts[3] = ( int )0; sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )0; sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )0; sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)&u2ME_OBSERVACION; sqlstm.sqhstl[6] = (unsigned long )sizeof(short); sqlstm.sqhsts[6] = ( int )0; sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)&vcNombreTablaElemento_Red; sqlstm.sqhstl[7] = (unsigned long )258; sqlstm.sqhsts[7] = ( int )0; sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqhstv[8] = (unsigned char *)&u4ER_MEDIA_TENSION; sqlstm.sqhstl[8] = (unsigned long )sizeof(int); sqlstm.sqhsts[8] = ( int )0; sqlstm.sqindv[8] = ( short *)0; sqlstm.sqinds[8] = ( int )0; sqlstm.sqharm[8] = (unsigned long )0; sqlstm.sqadto[8] = (unsigned short )0; sqlstm.sqtdso[8] = (unsigned short )0; sqlstm.sqhstv[9] = (unsigned char *)&u4ER_SUBESTACION_MT; sqlstm.sqhstl[9] = (unsigned long )sizeof(int); sqlstm.sqhsts[9] = ( int )0; sqlstm.sqindv[9] = ( short *)0; sqlstm.sqinds[9] = ( int )0; sqlstm.sqharm[9] = (unsigned long )0; sqlstm.sqadto[9] = (unsigned short )0; sqlstm.sqtdso[9] = (unsigned short )0; sqlstm.sqhstv[10] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[10] = (unsigned long )0; sqlstm.sqhsts[10] = ( int )0; sqlstm.sqindv[10] = ( short *)0; sqlstm.sqinds[10] = ( int )0; sqlstm.sqharm[10] = (unsigned long )0; sqlstm.sqadto[10] = (unsigned short )0; sqlstm.sqtdso[10] = (unsigned short )0; sqlstm.sqhstv[11] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[11] = (unsigned long )sizeof(int); sqlstm.sqhsts[11] = ( int )0; sqlstm.sqindv[11] = ( short *)0; sqlstm.sqinds[11] = ( int )0; sqlstm.sqharm[11] = (unsigned long )0; sqlstm.sqadto[11] = (unsigned short )0; sqlstm.sqtdso[11] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )1268; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4MOD_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4ER_IDSAC; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)pu4ME_FUNCION; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )sizeof(int); sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqharc[2] = (unsigned long *)0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)pu4ME_TIPO; sqlstm.sqhstl[3] = (unsigned long )sizeof(int); sqlstm.sqhsts[3] = ( int )sizeof(int); sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqharc[3] = (unsigned long *)0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)pu4ER_IDSAC_LADO; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )sizeof(int); sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqharc[4] = (unsigned long *)0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)pu4ME_DESTINO; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )sizeof(int); sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqharc[5] = (unsigned long *)0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)pi4ME_UMBRAL_INFERIOR; sqlstm.sqhstl[6] = (unsigned long )sizeof(int); sqlstm.sqhsts[6] = ( int )sizeof(int); sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqharc[6] = (unsigned long *)0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)pi4ME_UMBRAL_SUPERIOR; sqlstm.sqhstl[7] = (unsigned long )sizeof(int); sqlstm.sqhsts[7] = ( int )sizeof(int); sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqharc[7] = (unsigned long *)0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",1646, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4MedidasAlta)> 0) { u4Paquetes++; pPATI->Medidasalta = (PeticionAplicacionTopologicaIncremento_Alta_Medida *)realloc( pPATI->Medidasalta, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Alta_Medida)); if (!pPATI->Medidasalta) { sacError("G1","gbAplicacionTopologicaIncremento.pc",1657,"GB0005", "No se ha podido crear PeticionAplicacionTopologicaIncremento."); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemMedidasalta[u4MedidasAlta].IDMEDALTA = pu4MOD_IDSAC[u4Elem]; pPATI->Medidasalta[u4MedidasAlta].IDELEM = pu4ER_IDSAC[u4Elem]; pPATI->Medidasalta[u4MedidasAlta].FUNMED = pu4ME_FUNCION[u4Elem]; pPATI->Medidasalta[u4MedidasAlta].DEST = pu4ME_DESTINO[u4Elem]; pPATI->Medidasalta[u4MedidasAlta].TIPMED = pu4ME_TIPO[u4Elem]; switch (pPATI->Medidasalta[u4MedidasAlta].FUNMED ) { case 900: { if (pPATI->Medidasalta[u4MedidasAlta].DEST == 902) { if (pPATI->Medidasalta[u4MedidasAlta].TIPMED == 1002 ) { pPATI->Medidasalta[u4MedidasAlta].U_FUNMED.BLOQUE2.U_DEST.BLOQUE1.U_TIPMED.BLOQUE1.IDADY = pu4ER_IDSAC_LADO[u4Elem]; } break; } } case 905: { pPATI->Medidasalta[u4MedidasAlta].U_FUNMED.BLOQUE3.ALA = 0; pPATI->Medidasalta[u4MedidasAlta].U_FUNMED.BLOQUE3.MIN = pi4ME_UMBRAL_INFERIOR[u4Elem]; pPATI->Medidasalta[u4MedidasAlta].U_FUNMED.BLOQUE3.MAX = pi4ME_UMBRAL_SUPERIOR[u4Elem]; break; } } sacTraza(6,"gbAplicacionTopologicaIncremento.pc",1700,"Alta Medida, idmedalta:%u, idelem:%u, funmed:%u, dest:%u tipmed:%u" ,pPATI->Medidasalta[u4MedidasAlta].IDMEDALTA ,pPATI->Medidasalta[u4MedidasAlta].IDELEM ,pPATI->Medidasalta[u4MedidasAlta].FUNMED ,pPATI->Medidasalta[u4MedidasAlta].DEST ,pPATI->Medidasalta[u4MedidasAlta].TIPMED); u4MedidasAlta++; } } } while (sqlca.sqlcode == 0); pPATI->NMEDIDASALTA = u4MedidasAlta; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )1315; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1714,"Altas de medidas MT: %u registros",u4MedidasAlta); u4MedidasAlta = u4Elem = u4Paquetes = 0; pPATIAT->Medidasalta = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.stmt = sq0014; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )1330; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&vcNombreTablaMedidas; sqlstm.sqhstl[0] = (unsigned long )258; sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)&u4ER_TRANSPORTE; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4ER_SUBESTACION_AT; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[3] = (unsigned long )0; sqlstm.sqhsts[3] = ( int )0; sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )0; sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )0; sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)&u2ME_OBSERVACION; sqlstm.sqhstl[6] = (unsigned long )sizeof(short); sqlstm.sqhsts[6] = ( int )0; sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)&vcNombreTablaElemento_Red; sqlstm.sqhstl[7] = (unsigned long )258; sqlstm.sqhsts[7] = ( int )0; sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqhstv[8] = (unsigned char *)&u4ER_TRANSPORTE; sqlstm.sqhstl[8] = (unsigned long )sizeof(int); sqlstm.sqhsts[8] = ( int )0; sqlstm.sqindv[8] = ( short *)0; sqlstm.sqinds[8] = ( int )0; sqlstm.sqharm[8] = (unsigned long )0; sqlstm.sqadto[8] = (unsigned short )0; sqlstm.sqtdso[8] = (unsigned short )0; sqlstm.sqhstv[9] = (unsigned char *)&u4ER_SUBESTACION_AT; sqlstm.sqhstl[9] = (unsigned long )sizeof(int); sqlstm.sqhsts[9] = ( int )0; sqlstm.sqindv[9] = ( short *)0; sqlstm.sqinds[9] = ( int )0; sqlstm.sqharm[9] = (unsigned long )0; sqlstm.sqadto[9] = (unsigned short )0; sqlstm.sqtdso[9] = (unsigned short )0; sqlstm.sqhstv[10] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[10] = (unsigned long )0; sqlstm.sqhsts[10] = ( int )0; sqlstm.sqindv[10] = ( short *)0; sqlstm.sqinds[10] = ( int )0; sqlstm.sqharm[10] = (unsigned long )0; sqlstm.sqadto[10] = (unsigned short )0; sqlstm.sqtdso[10] = (unsigned short )0; sqlstm.sqhstv[11] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[11] = (unsigned long )sizeof(int); sqlstm.sqhsts[11] = ( int )0; sqlstm.sqindv[11] = ( short *)0; sqlstm.sqinds[11] = ( int )0; sqlstm.sqharm[11] = (unsigned long )0; sqlstm.sqadto[11] = (unsigned short )0; sqlstm.sqtdso[11] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )1393; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4MOD_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4ER_IDSAC; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)pu4ME_FUNCION; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )sizeof(int); sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqharc[2] = (unsigned long *)0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)pu4ME_TIPO; sqlstm.sqhstl[3] = (unsigned long )sizeof(int); sqlstm.sqhsts[3] = ( int )sizeof(int); sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqharc[3] = (unsigned long *)0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)pu4ER_IDSAC_LADO; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )sizeof(int); sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqharc[4] = (unsigned long *)0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)pu4ME_DESTINO; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )sizeof(int); sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqharc[5] = (unsigned long *)0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)pi4ME_UMBRAL_INFERIOR; sqlstm.sqhstl[6] = (unsigned long )sizeof(int); sqlstm.sqhsts[6] = ( int )sizeof(int); sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqharc[6] = (unsigned long *)0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)pi4ME_UMBRAL_SUPERIOR; sqlstm.sqhstl[7] = (unsigned long )sizeof(int); sqlstm.sqhsts[7] = ( int )sizeof(int); sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqharc[7] = (unsigned long *)0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",1737, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4MedidasAlta)> 0) { u4Paquetes++; pPATIAT->Medidasalta = (PeticionAplicacionTopologicaIncremento_Alta_Medida *)realloc( pPATIAT->Medidasalta, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Alta_Medida)); if (!pPATIAT->Medidasalta) { sacError("G1","gbAplicacionTopologicaIncremento.pc",1748,"GB0005", "No se ha podido crear PeticionAplicacionTopologicaIncrementoAT."); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemMedidasalta[u4MedidasAlta].IDMEDALTA = pu4MOD_IDSAC[u4Elem]; pPATIAT->Medidasalta[u4MedidasAlta].IDELEM = pu4ER_IDSAC[u4Elem]; pPATIAT->Medidasalta[u4MedidasAlta].FUNMED = pu4ME_FUNCION[u4Elem]; pPATIAT->Medidasalta[u4MedidasAlta].DEST = pu4ME_DESTINO[u4Elem]; pPATIAT->Medidasalta[u4MedidasAlta].TIPMED = pu4ME_TIPO[u4Elem]; switch (pPATIAT->Medidasalta[u4MedidasAlta].FUNMED ) { case 900: { if (pPATIAT->Medidasalta[u4MedidasAlta].DEST == 902) { if (pPATIAT->Medidasalta[u4MedidasAlta].TIPMED == 1002 ) { pPATIAT->Medidasalta[u4MedidasAlta].U_FUNMED.BLOQUE2.U_DEST.BLOQUE1.U_TIPMED.BLOQUE1.IDADY = pu4ER_IDSAC_LADO[u4Elem]; } break; } } case 905: { pPATIAT->Medidasalta[u4MedidasAlta].U_FUNMED.BLOQUE3.ALA = 0; pPATIAT->Medidasalta[u4MedidasAlta].U_FUNMED.BLOQUE3.MIN = pi4ME_UMBRAL_INFERIOR[u4Elem]; pPATIAT->Medidasalta[u4MedidasAlta].U_FUNMED.BLOQUE3.MAX = pi4ME_UMBRAL_SUPERIOR[u4Elem]; break; } } sacTraza(6,"gbAplicacionTopologicaIncremento.pc",1791,"Alta Medida, idmedalta:%u, idelem:%u, funmed:%u, dest:%u tipmed:%u" ,pPATIAT->Medidasalta[u4MedidasAlta].IDMEDALTA ,pPATIAT->Medidasalta[u4MedidasAlta].IDELEM ,pPATIAT->Medidasalta[u4MedidasAlta].FUNMED ,pPATIAT->Medidasalta[u4MedidasAlta].DEST ,pPATIAT->Medidasalta[u4MedidasAlta].TIPMED); u4MedidasAlta++; } } } while (sqlca.sqlcode == 0); pPATIAT->NMEDIDASALTA = u4MedidasAlta; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )1440; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1805,"Altas de medidas AT: %u registros",u4MedidasAlta); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1811,"Altas de Ambitos(1/3)."); u4AmbitosAlta = u4Elem = u4Paquetes = 0; pPATI->Ambitosalta = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.stmt = sq0015; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )1455; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[0] = (unsigned long )0; sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )1482; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4ER_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4ER_TIPO; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",1858, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4AmbitosAlta)> 0) { u4Paquetes++; pPATI->Ambitosalta = (PeticionAplicacionTopologicaIncremento_Alta_Ambito *)realloc( pPATI->Ambitosalta, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Alta_Ambito)); if (!pPATI->Ambitosalta) { sacError("G1","gbAplicacionTopologicaIncremento.pc",1869,"GB0005","No se ha podido crear PeticionAplicacionTopologicaIncremento."); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemAmbitosalta[u4AmbitosAlta].IDAMBITALTA = pu4ER_IDSAC[u4Elem]; pPATI->Ambitosalta[u4AmbitosAlta].TIPAMBIT = pu4ER_TIPO[u4Elem]; u4AmbitosAlta++; } } } while (sqlca.sqlcode == 0); pPATI->NAMBITOSALTA = u4AmbitosAlta; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )1505; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1892,"Altas de ambitos MT: %u registros",u4AmbitosAlta); u4AmbitosAlta = u4Elem = u4Paquetes = 0; pPATIAT->Ambitosalta = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.stmt = sq0016; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )1520; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[0] = (unsigned long )0; sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )1547; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4ER_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4ER_TIPO; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",1908, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4AmbitosAlta)> 0) { u4Paquetes++; pPATIAT->Ambitosalta = (PeticionAplicacionTopologicaIncremento_Alta_Ambito *)realloc( pPATIAT->Ambitosalta, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Alta_Ambito)); if (!pPATIAT->Ambitosalta) { sacError("G1","gbAplicacionTopologicaIncremento.pc",1919,"GB0005","No se ha podido crear PeticionAplicacionTopologicaIncrementoAT."); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemAmbitosalta[u4AmbitosAlta].IDAMBITALTA = pu4ER_IDSAC[u4Elem]; pPATIAT->Ambitosalta[u4AmbitosAlta].TIPAMBIT = pu4ER_TIPO[u4Elem]; u4AmbitosAlta++; } } } while (sqlca.sqlcode == 0); pPATIAT->NAMBITOSALTA = u4AmbitosAlta; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 16; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )1570; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1942,"Altas de ambitos AT: %u registros",u4AmbitosAlta); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",1946,"Altas de Ambitos(2/3)."); for(u4i=0;u4iNAMBITOSALTA;u4i++) { u4IdSacIncremento = pPATI->Ambitosalta[u4i].IDAMBITALTA; u4RamasAlta = u4Elem = u4Paquetes = 0; pPATI->Ambitosalta[u4i].Ramasalta = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlbuft((void **)0, "select RA.ER_IDSAC_RAMA ,DECODE(ESI.ES_TIPO,:b0,:b1,RA.RA_FUNCION) ,RA.RA_TIPO ,DECODE(ES.ES_TIPO,:b2,ES.ES_VALOR,DECODE(ESI.ES_TIPO,:b0,ESI.ES_VALOR,:b4)) ,RA.RA_NUDO1_IDSAC ,RA.RA_NUDO2_IDSAC ,NVL(CR.CL_VALOR,0) ,NVL(CX.CL_VALOR,0) ,NVL(CI.CL_VALOR,0) ,DECODE(NVL(ESC.ES_VALOR,:b5),:b5,0,1) from RAMA_MV_O RA ,ESTADO ES ,ESTADO ESI ,ESTADO ESC ,CARACTERISTICA_ELECTRICA CR ,CARACTERISTICA_ELECTRICA CX ,CARACTERISTICA_ELECTRICA CI where (((((((((((((RA.ER_IDSAC=:b7 and ES.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and ES.ES_TIPO(+)=:b2) and ESI.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and ESI.ES_TIPO(+)=:b0) and ESC.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and ESC.ES_TIPO(+)=:b10) and CX.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and CX.CL_TIPO(+)=:b11) and CR.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and CR.CL_TIPO(+)=:b12) and CI.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and CI.CL_TIPO(+)=:b13) and RA.RA_FUNCION in (:b14,:b15)) union select RA.ER_IDSAC_RAMA ,DECODE(ESI.ES_TIPO,:b0,:b1,RA.RA_FUNCION) ,RA.RA_TIPO ,DECODE(ES.ES_TIPO,:b2,ES.ES_VALOR,DECODE(ESI.ES_TIPO,:b0,ESI.ES_VAL"); sqlstm.stmt = sq0017; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )1585; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&u4ES_ESTADO_INYECTOR; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)&u4RA_INYECTORA; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4ES_ESTADO_BASICO; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)&u4ES_ESTADO_INYECTOR; sqlstm.sqhstl[3] = (unsigned long )sizeof(int); sqlstm.sqhsts[3] = ( int )0; sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)&u4ES_CERRADO; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )0; sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)&u2ES_INSERTADO; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )0; sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)&u2ES_INSERTADO; sqlstm.sqhstl[6] = (unsigned long )sizeof(int); sqlstm.sqhsts[6] = ( int )0; sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)&u4IdSacIncremento; sqlstm.sqhstl[7] = (unsigned long )sizeof(int); sqlstm.sqhsts[7] = ( int )0; sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqhstv[8] = (unsigned char *)&u4ES_ESTADO_BASICO; sqlstm.sqhstl[8] = (unsigned long )sizeof(int); sqlstm.sqhsts[8] = ( int )0; sqlstm.sqindv[8] = ( short *)0; sqlstm.sqinds[8] = ( int )0; sqlstm.sqharm[8] = (unsigned long )0; sqlstm.sqadto[8] = (unsigned short )0; sqlstm.sqtdso[8] = (unsigned short )0; sqlstm.sqhstv[9] = (unsigned char *)&u4ES_ESTADO_INYECTOR; sqlstm.sqhstl[9] = (unsigned long )sizeof(int); sqlstm.sqhsts[9] = ( int )0; sqlstm.sqindv[9] = ( short *)0; sqlstm.sqinds[9] = ( int )0; sqlstm.sqharm[9] = (unsigned long )0; sqlstm.sqadto[9] = (unsigned short )0; sqlstm.sqtdso[9] = (unsigned short )0; sqlstm.sqhstv[10] = (unsigned char *)&u2ES_ESTADO_CARRO; sqlstm.sqhstl[10] = (unsigned long )sizeof(int); sqlstm.sqhsts[10] = ( int )0; sqlstm.sqindv[10] = ( short *)0; sqlstm.sqinds[10] = ( int )0; sqlstm.sqharm[10] = (unsigned long )0; sqlstm.sqadto[10] = (unsigned short )0; sqlstm.sqtdso[10] = (unsigned short )0; sqlstm.sqhstv[11] = (unsigned char *)&u4CL_X; sqlstm.sqhstl[11] = (unsigned long )sizeof(int); sqlstm.sqhsts[11] = ( int )0; sqlstm.sqindv[11] = ( short *)0; sqlstm.sqinds[11] = ( int )0; sqlstm.sqharm[11] = (unsigned long )0; sqlstm.sqadto[11] = (unsigned short )0; sqlstm.sqtdso[11] = (unsigned short )0; sqlstm.sqhstv[12] = (unsigned char *)&u4CL_R; sqlstm.sqhstl[12] = (unsigned long )sizeof(int); sqlstm.sqhsts[12] = ( int )0; sqlstm.sqindv[12] = ( short *)0; sqlstm.sqinds[12] = ( int )0; sqlstm.sqharm[12] = (unsigned long )0; sqlstm.sqadto[12] = (unsigned short )0; sqlstm.sqtdso[12] = (unsigned short )0; sqlstm.sqhstv[13] = (unsigned char *)&u4CL_I_MAX_CONDUCCION; sqlstm.sqhstl[13] = (unsigned long )sizeof(int); sqlstm.sqhsts[13] = ( int )0; sqlstm.sqindv[13] = ( short *)0; sqlstm.sqinds[13] = ( int )0; sqlstm.sqharm[13] = (unsigned long )0; sqlstm.sqadto[13] = (unsigned short )0; sqlstm.sqtdso[13] = (unsigned short )0; sqlstm.sqhstv[14] = (unsigned char *)&u4RA_NORMAL; sqlstm.sqhstl[14] = (unsigned long )sizeof(int); sqlstm.sqhsts[14] = ( int )0; sqlstm.sqindv[14] = ( short *)0; sqlstm.sqinds[14] = ( int )0; sqlstm.sqharm[14] = (unsigned long )0; sqlstm.sqadto[14] = (unsigned short )0; sqlstm.sqtdso[14] = (unsigned short )0; sqlstm.sqhstv[15] = (unsigned char *)&u4RA_OTRAS_SALIDAS; sqlstm.sqhstl[15] = (unsigned long )sizeof(int); sqlstm.sqhsts[15] = ( int )0; sqlstm.sqindv[15] = ( short *)0; sqlstm.sqinds[15] = ( int )0; sqlstm.sqharm[15] = (unsigned long )0; sqlstm.sqadto[15] = (unsigned short )0; sqlstm.sqtdso[15] = (unsigned short )0; sqlstm.sqhstv[16] = (unsigned char *)&u4ES_ESTADO_INYECTOR; sqlstm.sqhstl[16] = (unsigned long )sizeof(int); sqlstm.sqhsts[16] = ( int )0; sqlstm.sqindv[16] = ( short *)0; sqlstm.sqinds[16] = ( int )0; sqlstm.sqharm[16] = (unsigned long )0; sqlstm.sqadto[16] = (unsigned short )0; sqlstm.sqtdso[16] = (unsigned short )0; sqlstm.sqhstv[17] = (unsigned char *)&u4RA_INYECTORA; sqlstm.sqhstl[17] = (unsigned long )sizeof(int); sqlstm.sqhsts[17] = ( int )0; sqlstm.sqindv[17] = ( short *)0; sqlstm.sqinds[17] = ( int )0; sqlstm.sqharm[17] = (unsigned long )0; sqlstm.sqadto[17] = (unsigned short )0; sqlstm.sqtdso[17] = (unsigned short )0; sqlstm.sqhstv[18] = (unsigned char *)&u4ES_ESTADO_BASICO; sqlstm.sqhstl[18] = (unsigned long )sizeof(int); sqlstm.sqhsts[18] = ( int )0; sqlstm.sqindv[18] = ( short *)0; sqlstm.sqinds[18] = ( int )0; sqlstm.sqharm[18] = (unsigned long )0; sqlstm.sqadto[18] = (unsigned short )0; sqlstm.sqtdso[18] = (unsigned short )0; sqlstm.sqhstv[19] = (unsigned char *)&u4ES_ESTADO_INYECTOR; sqlstm.sqhstl[19] = (unsigned long )sizeof(int); sqlstm.sqhsts[19] = ( int )0; sqlstm.sqindv[19] = ( short *)0; sqlstm.sqinds[19] = ( int )0; sqlstm.sqharm[19] = (unsigned long )0; sqlstm.sqadto[19] = (unsigned short )0; sqlstm.sqtdso[19] = (unsigned short )0; sqlstm.sqhstv[20] = (unsigned char *)&u4ES_CERRADO; sqlstm.sqhstl[20] = (unsigned long )sizeof(int); sqlstm.sqhsts[20] = ( int )0; sqlstm.sqindv[20] = ( short *)0; sqlstm.sqinds[20] = ( int )0; sqlstm.sqharm[20] = (unsigned long )0; sqlstm.sqadto[20] = (unsigned short )0; sqlstm.sqtdso[20] = (unsigned short )0; sqlstm.sqhstv[21] = (unsigned char *)&u2ES_INSERTADO; sqlstm.sqhstl[21] = (unsigned long )sizeof(int); sqlstm.sqhsts[21] = ( int )0; sqlstm.sqindv[21] = ( short *)0; sqlstm.sqinds[21] = ( int )0; sqlstm.sqharm[21] = (unsigned long )0; sqlstm.sqadto[21] = (unsigned short )0; sqlstm.sqtdso[21] = (unsigned short )0; sqlstm.sqhstv[22] = (unsigned char *)&u2ES_INSERTADO; sqlstm.sqhstl[22] = (unsigned long )sizeof(int); sqlstm.sqhsts[22] = ( int )0; sqlstm.sqindv[22] = ( short *)0; sqlstm.sqinds[22] = ( int )0; sqlstm.sqharm[22] = (unsigned long )0; sqlstm.sqadto[22] = (unsigned short )0; sqlstm.sqtdso[22] = (unsigned short )0; sqlstm.sqhstv[23] = (unsigned char *)&u4IdSacIncremento; sqlstm.sqhstl[23] = (unsigned long )sizeof(int); sqlstm.sqhsts[23] = ( int )0; sqlstm.sqindv[23] = ( short *)0; sqlstm.sqinds[23] = ( int )0; sqlstm.sqharm[23] = (unsigned long )0; sqlstm.sqadto[23] = (unsigned short )0; sqlstm.sqtdso[23] = (unsigned short )0; sqlstm.sqhstv[24] = (unsigned char *)&u4ES_ESTADO_BASICO; sqlstm.sqhstl[24] = (unsigned long )sizeof(int); sqlstm.sqhsts[24] = ( int )0; sqlstm.sqindv[24] = ( short *)0; sqlstm.sqinds[24] = ( int )0; sqlstm.sqharm[24] = (unsigned long )0; sqlstm.sqadto[24] = (unsigned short )0; sqlstm.sqtdso[24] = (unsigned short )0; sqlstm.sqhstv[25] = (unsigned char *)&u4ES_ESTADO_INYECTOR; sqlstm.sqhstl[25] = (unsigned long )sizeof(int); sqlstm.sqhsts[25] = ( int )0; sqlstm.sqindv[25] = ( short *)0; sqlstm.sqinds[25] = ( int )0; sqlstm.sqharm[25] = (unsigned long )0; sqlstm.sqadto[25] = (unsigned short )0; sqlstm.sqtdso[25] = (unsigned short )0; sqlstm.sqhstv[26] = (unsigned char *)&u2ES_ESTADO_CARRO; sqlstm.sqhstl[26] = (unsigned long )sizeof(int); sqlstm.sqhsts[26] = ( int )0; sqlstm.sqindv[26] = ( short *)0; sqlstm.sqinds[26] = ( int )0; sqlstm.sqharm[26] = (unsigned long )0; sqlstm.sqadto[26] = (unsigned short )0; sqlstm.sqtdso[26] = (unsigned short )0; sqlstm.sqhstv[27] = (unsigned char *)&u4CL_X; sqlstm.sqhstl[27] = (unsigned long )sizeof(int); sqlstm.sqhsts[27] = ( int )0; sqlstm.sqindv[27] = ( short *)0; sqlstm.sqinds[27] = ( int )0; sqlstm.sqharm[27] = (unsigned long )0; sqlstm.sqadto[27] = (unsigned short )0; sqlstm.sqtdso[27] = (unsigned short )0; sqlstm.sqhstv[28] = (unsigned char *)&u4CL_R; sqlstm.sqhstl[28] = (unsigned long )sizeof(int); sqlstm.sqhsts[28] = ( int )0; sqlstm.sqindv[28] = ( short *)0; sqlstm.sqinds[28] = ( int )0; sqlstm.sqharm[28] = (unsigned long )0; sqlstm.sqadto[28] = (unsigned short )0; sqlstm.sqtdso[28] = (unsigned short )0; sqlstm.sqhstv[29] = (unsigned char *)&u4CL_I_MAX_CONDUCCION; sqlstm.sqhstl[29] = (unsigned long )sizeof(int); sqlstm.sqhsts[29] = ( int )0; sqlstm.sqindv[29] = ( short *)0; sqlstm.sqinds[29] = ( int )0; sqlstm.sqharm[29] = (unsigned long )0; sqlstm.sqadto[29] = (unsigned short )0; sqlstm.sqtdso[29] = (unsigned short )0; sqlstm.sqhstv[30] = (unsigned char *)&u4RA_NORMAL; sqlstm.sqhstl[30] = (unsigned long )sizeof(int); sqlstm.sqhsts[30] = ( int )0; sqlstm.sqindv[30] = ( short *)0; sqlstm.sqinds[30] = ( int )0; sqlstm.sqharm[30] = (unsigned long )0; sqlstm.sqadto[30] = (unsigned short )0; sqlstm.sqtdso[30] = (unsigned short )0; sqlstm.sqhstv[31] = (unsigned char *)&u4RA_OTRAS_SALIDAS; sqlstm.sqhstl[31] = (unsigned long )sizeof(int); sqlstm.sqhsts[31] = ( int )0; sqlstm.sqindv[31] = ( short *)0; sqlstm.sqinds[31] = ( int )0; sqlstm.sqharm[31] = (unsigned long )0; sqlstm.sqadto[31] = (unsigned short )0; sqlstm.sqtdso[31] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )1728; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4ER_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4RA_FUNCION; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)pu4ER_TIPO; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )sizeof(int); sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqharc[2] = (unsigned long *)0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)pu4ES_VALOR; sqlstm.sqhstl[3] = (unsigned long )sizeof(int); sqlstm.sqhsts[3] = ( int )sizeof(int); sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqharc[3] = (unsigned long *)0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)pu4RA_NUDO1_IDSAC; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )sizeof(int); sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqharc[4] = (unsigned long *)0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)pu4RA_NUDO2_IDSAC; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )sizeof(int); sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqharc[5] = (unsigned long *)0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)pf4RA_R; sqlstm.sqhstl[6] = (unsigned long )sizeof(float); sqlstm.sqhsts[6] = ( int )sizeof(float); sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqharc[6] = (unsigned long *)0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)pf4RA_X; sqlstm.sqhstl[7] = (unsigned long )sizeof(float); sqlstm.sqhsts[7] = ( int )sizeof(float); sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqharc[7] = (unsigned long *)0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqhstv[8] = (unsigned char *)pf4RA_I; sqlstm.sqhstl[8] = (unsigned long )sizeof(float); sqlstm.sqhsts[8] = ( int )sizeof(float); sqlstm.sqindv[8] = ( short *)0; sqlstm.sqinds[8] = ( int )0; sqlstm.sqharm[8] = (unsigned long )0; sqlstm.sqharc[8] = (unsigned long *)0; sqlstm.sqadto[8] = (unsigned short )0; sqlstm.sqtdso[8] = (unsigned short )0; sqlstm.sqhstv[9] = (unsigned char *)pu2EXTRAIDO; sqlstm.sqhstl[9] = (unsigned long )sizeof(short); sqlstm.sqhsts[9] = ( int )sizeof(short); sqlstm.sqindv[9] = ( short *)0; sqlstm.sqinds[9] = ( int )0; sqlstm.sqharm[9] = (unsigned long )0; sqlstm.sqharc[9] = (unsigned long *)0; sqlstm.sqadto[9] = (unsigned short )0; sqlstm.sqtdso[9] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",2122, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4RamasAlta)> 0) { u4Paquetes++; pPATI->Ambitosalta[u4i].Ramasalta = (PeticionAplicacionTopologicaIncremento_Alta_Rama *)realloc( pPATI->Ambitosalta[u4i].Ramasalta, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Alta_Rama)); if (!pPATI->Ambitosalta[u4i].Ramasalta) { sacError("G1","gbAplicacionTopologicaIncremento.pc",2134,"GB0005", "No se ha podido crear PeticionAplicacionTopologicaIncremento."); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemAmbitosalta[u4i].Ramasalta[u4RamasAlta].ESTADO = pu4ES_VALOR[u4Elem]; } else { pPATI->Ambitosalta[u4i].Ramasalta[u4RamasAlta].ESTADO = 1; if (pu4ES_VALOR[u4Elem] == 0) { pPATI->Ambitosalta[u4i].Ramasalta[u4RamasAlta].INC = 0; } else if (pu4ES_VALOR[u4Elem] == 1) { pPATI->Ambitosalta[u4i].Ramasalta[u4RamasAlta].INC = 1; } } sacTraza(6,"gbAplicacionTopologicaIncremento.pc",2158,"Alta Rama, idrama:%u, funcion:%u, tipelrama:%u, estado:%u, idnudo1:%u, idnudo2:%u, imaxima:%u, reac:%u, resi:%u",pu4ER_IDSAC[u4Elem],pu4RA_FUNCION[u4Elem],pu4ER_TIPO[u4Elem],pu4ES_VALOR[u4Elem],pu4RA_NUDO1_IDSAC[u4Elem],pu4RA_NUDO2_IDSAC[u4Elem],pf4RA_I[u4Elem],pf4RA_X[u4Elem],pf4RA_R[u4Elem]); pPATI->Ambitosalta[u4i].Ramasalta[u4RamasAlta].IDRAMA = pu4ER_IDSAC[u4Elem]; pPATI->Ambitosalta[u4i].Ramasalta[u4RamasAlta].FUNCION = pu4RA_FUNCION[u4Elem]; pPATI->Ambitosalta[u4i].Ramasalta[u4RamasAlta].TIPELRAMA = pu4ER_TIPO[u4Elem]; pPATI->Ambitosalta[u4i].Ramasalta[u4RamasAlta].IDNUDO1 = pu4RA_NUDO1_IDSAC[u4Elem]; pPATI->Ambitosalta[u4i].Ramasalta[u4RamasAlta].IDNUDO2 = pu4RA_NUDO2_IDSAC[u4Elem]; pPATI->Ambitosalta[u4i].Ramasalta[u4RamasAlta].IMAXIMA = pf4RA_I[u4Elem]; pPATI->Ambitosalta[u4i].Ramasalta[u4RamasAlta].REAC = pf4RA_X[u4Elem]; pPATI->Ambitosalta[u4i].Ramasalta[u4RamasAlta].RESI = pf4RA_R[u4Elem]; pPATI->Ambitosalta[u4i].Ramasalta[u4RamasAlta].EXTRAIDO = pu2EXTRAIDO[u4Elem]; u4RamasAlta++; } } } while (sqlca.sqlcode == 0); pPATI->Ambitosalta[u4i].NRAMASALTA = u4RamasAlta; sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2175,"Alta de %u ramas de ambito mt %u", u4RamasAlta, pPATI->Ambitosalta[u4i].IDAMBITALTA); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )1783; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } } for(u4i=0;u4iNAMBITOSALTA;u4i++) { u4IdSacIncremento = pPATIAT->Ambitosalta[u4i].IDAMBITALTA; u4RamasAlta = u4Elem = u4Paquetes = 0; pPATIAT->Ambitosalta[u4i].Ramasalta = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlbuft((void **)0, "select RA.ER_IDSAC_RAMA ,DECODE(ESI.ES_TIPO,:b0,:b1,RA.RA_FUNCION) ,RA.RA_TIPO ,DECODE(ES.ES_TIPO,:b2,ES.ES_VALOR,DECODE(ESI.ES_TIPO,:b0,ESI.ES_VALOR,:b4)) ,RA.RA_NUDO1_IDSAC ,RA.RA_NUDO2_IDSAC ,NVL(CR.CL_VALOR,0) ,NVL(CX.CL_VALOR,0) ,NVL(CI.CL_VALOR,0) ,DECODE(NVL(ESC.ES_VALOR,:b5),:b5,0,1) from RAMA_MV_O_AT RA ,ESTADO ES ,ESTADO ESI ,ESTADO ESC ,CARACTERISTICA_ELECTRICA CR ,CARACTERISTICA_ELECTRICA CX ,CARACTERISTICA_ELECTRICA CI where (((((((((((((RA.ER_IDSAC=:b7 and ES.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and ES.ES_TIPO(+)=:b2) and ESI.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and ESI.ES_TIPO(+)=:b0) and ESC.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and ESC.ES_TIPO(+)=:b10) and CX.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and CX.CL_TIPO(+)=:b11) and CR.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and CR.CL_TIPO(+)=:b12) and CI.ER_IDSAC(+)=RA.ER_IDSAC_RAMA) and CI.CL_TIPO(+)=:b13) and RA.RA_FUNCION in (:b14,:b15)) union select RA.ER_IDSAC_RAMA ,DECODE(ESI.ES_TIPO,:b0,:b1,RA.RA_FUNCION) ,RA.RA_TIPO ,DECODE(ES.ES_TIPO,:b2,ES.ES_VALOR,DECODE(ESI.ES_TIPO,:b0,ESI.ES_"); sqlstm.stmt = sq0018; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )1798; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&u4ES_ESTADO_INYECTOR; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)&u4RA_INYECTORA; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4ES_ESTADO_BASICO; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)&u4ES_ESTADO_INYECTOR; sqlstm.sqhstl[3] = (unsigned long )sizeof(int); sqlstm.sqhsts[3] = ( int )0; sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)&u4ES_CERRADO; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )0; sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)&u2ES_INSERTADO; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )0; sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)&u2ES_INSERTADO; sqlstm.sqhstl[6] = (unsigned long )sizeof(int); sqlstm.sqhsts[6] = ( int )0; sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)&u4IdSacIncremento; sqlstm.sqhstl[7] = (unsigned long )sizeof(int); sqlstm.sqhsts[7] = ( int )0; sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqhstv[8] = (unsigned char *)&u4ES_ESTADO_BASICO; sqlstm.sqhstl[8] = (unsigned long )sizeof(int); sqlstm.sqhsts[8] = ( int )0; sqlstm.sqindv[8] = ( short *)0; sqlstm.sqinds[8] = ( int )0; sqlstm.sqharm[8] = (unsigned long )0; sqlstm.sqadto[8] = (unsigned short )0; sqlstm.sqtdso[8] = (unsigned short )0; sqlstm.sqhstv[9] = (unsigned char *)&u4ES_ESTADO_INYECTOR; sqlstm.sqhstl[9] = (unsigned long )sizeof(int); sqlstm.sqhsts[9] = ( int )0; sqlstm.sqindv[9] = ( short *)0; sqlstm.sqinds[9] = ( int )0; sqlstm.sqharm[9] = (unsigned long )0; sqlstm.sqadto[9] = (unsigned short )0; sqlstm.sqtdso[9] = (unsigned short )0; sqlstm.sqhstv[10] = (unsigned char *)&u2ES_ESTADO_CARRO; sqlstm.sqhstl[10] = (unsigned long )sizeof(int); sqlstm.sqhsts[10] = ( int )0; sqlstm.sqindv[10] = ( short *)0; sqlstm.sqinds[10] = ( int )0; sqlstm.sqharm[10] = (unsigned long )0; sqlstm.sqadto[10] = (unsigned short )0; sqlstm.sqtdso[10] = (unsigned short )0; sqlstm.sqhstv[11] = (unsigned char *)&u4CL_X; sqlstm.sqhstl[11] = (unsigned long )sizeof(int); sqlstm.sqhsts[11] = ( int )0; sqlstm.sqindv[11] = ( short *)0; sqlstm.sqinds[11] = ( int )0; sqlstm.sqharm[11] = (unsigned long )0; sqlstm.sqadto[11] = (unsigned short )0; sqlstm.sqtdso[11] = (unsigned short )0; sqlstm.sqhstv[12] = (unsigned char *)&u4CL_R; sqlstm.sqhstl[12] = (unsigned long )sizeof(int); sqlstm.sqhsts[12] = ( int )0; sqlstm.sqindv[12] = ( short *)0; sqlstm.sqinds[12] = ( int )0; sqlstm.sqharm[12] = (unsigned long )0; sqlstm.sqadto[12] = (unsigned short )0; sqlstm.sqtdso[12] = (unsigned short )0; sqlstm.sqhstv[13] = (unsigned char *)&u4CL_I_MAX_CONDUCCION; sqlstm.sqhstl[13] = (unsigned long )sizeof(int); sqlstm.sqhsts[13] = ( int )0; sqlstm.sqindv[13] = ( short *)0; sqlstm.sqinds[13] = ( int )0; sqlstm.sqharm[13] = (unsigned long )0; sqlstm.sqadto[13] = (unsigned short )0; sqlstm.sqtdso[13] = (unsigned short )0; sqlstm.sqhstv[14] = (unsigned char *)&u4RA_NORMAL; sqlstm.sqhstl[14] = (unsigned long )sizeof(int); sqlstm.sqhsts[14] = ( int )0; sqlstm.sqindv[14] = ( short *)0; sqlstm.sqinds[14] = ( int )0; sqlstm.sqharm[14] = (unsigned long )0; sqlstm.sqadto[14] = (unsigned short )0; sqlstm.sqtdso[14] = (unsigned short )0; sqlstm.sqhstv[15] = (unsigned char *)&u4RA_OTRAS_SALIDAS; sqlstm.sqhstl[15] = (unsigned long )sizeof(int); sqlstm.sqhsts[15] = ( int )0; sqlstm.sqindv[15] = ( short *)0; sqlstm.sqinds[15] = ( int )0; sqlstm.sqharm[15] = (unsigned long )0; sqlstm.sqadto[15] = (unsigned short )0; sqlstm.sqtdso[15] = (unsigned short )0; sqlstm.sqhstv[16] = (unsigned char *)&u4ES_ESTADO_INYECTOR; sqlstm.sqhstl[16] = (unsigned long )sizeof(int); sqlstm.sqhsts[16] = ( int )0; sqlstm.sqindv[16] = ( short *)0; sqlstm.sqinds[16] = ( int )0; sqlstm.sqharm[16] = (unsigned long )0; sqlstm.sqadto[16] = (unsigned short )0; sqlstm.sqtdso[16] = (unsigned short )0; sqlstm.sqhstv[17] = (unsigned char *)&u4RA_INYECTORA; sqlstm.sqhstl[17] = (unsigned long )sizeof(int); sqlstm.sqhsts[17] = ( int )0; sqlstm.sqindv[17] = ( short *)0; sqlstm.sqinds[17] = ( int )0; sqlstm.sqharm[17] = (unsigned long )0; sqlstm.sqadto[17] = (unsigned short )0; sqlstm.sqtdso[17] = (unsigned short )0; sqlstm.sqhstv[18] = (unsigned char *)&u4ES_ESTADO_BASICO; sqlstm.sqhstl[18] = (unsigned long )sizeof(int); sqlstm.sqhsts[18] = ( int )0; sqlstm.sqindv[18] = ( short *)0; sqlstm.sqinds[18] = ( int )0; sqlstm.sqharm[18] = (unsigned long )0; sqlstm.sqadto[18] = (unsigned short )0; sqlstm.sqtdso[18] = (unsigned short )0; sqlstm.sqhstv[19] = (unsigned char *)&u4ES_ESTADO_INYECTOR; sqlstm.sqhstl[19] = (unsigned long )sizeof(int); sqlstm.sqhsts[19] = ( int )0; sqlstm.sqindv[19] = ( short *)0; sqlstm.sqinds[19] = ( int )0; sqlstm.sqharm[19] = (unsigned long )0; sqlstm.sqadto[19] = (unsigned short )0; sqlstm.sqtdso[19] = (unsigned short )0; sqlstm.sqhstv[20] = (unsigned char *)&u4ES_CERRADO; sqlstm.sqhstl[20] = (unsigned long )sizeof(int); sqlstm.sqhsts[20] = ( int )0; sqlstm.sqindv[20] = ( short *)0; sqlstm.sqinds[20] = ( int )0; sqlstm.sqharm[20] = (unsigned long )0; sqlstm.sqadto[20] = (unsigned short )0; sqlstm.sqtdso[20] = (unsigned short )0; sqlstm.sqhstv[21] = (unsigned char *)&u2ES_INSERTADO; sqlstm.sqhstl[21] = (unsigned long )sizeof(int); sqlstm.sqhsts[21] = ( int )0; sqlstm.sqindv[21] = ( short *)0; sqlstm.sqinds[21] = ( int )0; sqlstm.sqharm[21] = (unsigned long )0; sqlstm.sqadto[21] = (unsigned short )0; sqlstm.sqtdso[21] = (unsigned short )0; sqlstm.sqhstv[22] = (unsigned char *)&u2ES_INSERTADO; sqlstm.sqhstl[22] = (unsigned long )sizeof(int); sqlstm.sqhsts[22] = ( int )0; sqlstm.sqindv[22] = ( short *)0; sqlstm.sqinds[22] = ( int )0; sqlstm.sqharm[22] = (unsigned long )0; sqlstm.sqadto[22] = (unsigned short )0; sqlstm.sqtdso[22] = (unsigned short )0; sqlstm.sqhstv[23] = (unsigned char *)&u4IdSacIncremento; sqlstm.sqhstl[23] = (unsigned long )sizeof(int); sqlstm.sqhsts[23] = ( int )0; sqlstm.sqindv[23] = ( short *)0; sqlstm.sqinds[23] = ( int )0; sqlstm.sqharm[23] = (unsigned long )0; sqlstm.sqadto[23] = (unsigned short )0; sqlstm.sqtdso[23] = (unsigned short )0; sqlstm.sqhstv[24] = (unsigned char *)&u4ES_ESTADO_BASICO; sqlstm.sqhstl[24] = (unsigned long )sizeof(int); sqlstm.sqhsts[24] = ( int )0; sqlstm.sqindv[24] = ( short *)0; sqlstm.sqinds[24] = ( int )0; sqlstm.sqharm[24] = (unsigned long )0; sqlstm.sqadto[24] = (unsigned short )0; sqlstm.sqtdso[24] = (unsigned short )0; sqlstm.sqhstv[25] = (unsigned char *)&u4ES_ESTADO_INYECTOR; sqlstm.sqhstl[25] = (unsigned long )sizeof(int); sqlstm.sqhsts[25] = ( int )0; sqlstm.sqindv[25] = ( short *)0; sqlstm.sqinds[25] = ( int )0; sqlstm.sqharm[25] = (unsigned long )0; sqlstm.sqadto[25] = (unsigned short )0; sqlstm.sqtdso[25] = (unsigned short )0; sqlstm.sqhstv[26] = (unsigned char *)&u2ES_ESTADO_CARRO; sqlstm.sqhstl[26] = (unsigned long )sizeof(int); sqlstm.sqhsts[26] = ( int )0; sqlstm.sqindv[26] = ( short *)0; sqlstm.sqinds[26] = ( int )0; sqlstm.sqharm[26] = (unsigned long )0; sqlstm.sqadto[26] = (unsigned short )0; sqlstm.sqtdso[26] = (unsigned short )0; sqlstm.sqhstv[27] = (unsigned char *)&u4CL_X; sqlstm.sqhstl[27] = (unsigned long )sizeof(int); sqlstm.sqhsts[27] = ( int )0; sqlstm.sqindv[27] = ( short *)0; sqlstm.sqinds[27] = ( int )0; sqlstm.sqharm[27] = (unsigned long )0; sqlstm.sqadto[27] = (unsigned short )0; sqlstm.sqtdso[27] = (unsigned short )0; sqlstm.sqhstv[28] = (unsigned char *)&u4CL_R; sqlstm.sqhstl[28] = (unsigned long )sizeof(int); sqlstm.sqhsts[28] = ( int )0; sqlstm.sqindv[28] = ( short *)0; sqlstm.sqinds[28] = ( int )0; sqlstm.sqharm[28] = (unsigned long )0; sqlstm.sqadto[28] = (unsigned short )0; sqlstm.sqtdso[28] = (unsigned short )0; sqlstm.sqhstv[29] = (unsigned char *)&u4CL_I_MAX_CONDUCCION; sqlstm.sqhstl[29] = (unsigned long )sizeof(int); sqlstm.sqhsts[29] = ( int )0; sqlstm.sqindv[29] = ( short *)0; sqlstm.sqinds[29] = ( int )0; sqlstm.sqharm[29] = (unsigned long )0; sqlstm.sqadto[29] = (unsigned short )0; sqlstm.sqtdso[29] = (unsigned short )0; sqlstm.sqhstv[30] = (unsigned char *)&u4RA_NORMAL; sqlstm.sqhstl[30] = (unsigned long )sizeof(int); sqlstm.sqhsts[30] = ( int )0; sqlstm.sqindv[30] = ( short *)0; sqlstm.sqinds[30] = ( int )0; sqlstm.sqharm[30] = (unsigned long )0; sqlstm.sqadto[30] = (unsigned short )0; sqlstm.sqtdso[30] = (unsigned short )0; sqlstm.sqhstv[31] = (unsigned char *)&u4RA_OTRAS_SALIDAS; sqlstm.sqhstl[31] = (unsigned long )sizeof(int); sqlstm.sqhsts[31] = ( int )0; sqlstm.sqindv[31] = ( short *)0; sqlstm.sqinds[31] = ( int )0; sqlstm.sqharm[31] = (unsigned long )0; sqlstm.sqadto[31] = (unsigned short )0; sqlstm.sqtdso[31] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )1941; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4ER_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4RA_FUNCION; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)pu4ER_TIPO; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )sizeof(int); sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqharc[2] = (unsigned long *)0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)pu4ES_VALOR; sqlstm.sqhstl[3] = (unsigned long )sizeof(int); sqlstm.sqhsts[3] = ( int )sizeof(int); sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqharc[3] = (unsigned long *)0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)pu4RA_NUDO1_IDSAC; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )sizeof(int); sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqharc[4] = (unsigned long *)0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)pu4RA_NUDO2_IDSAC; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )sizeof(int); sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqharc[5] = (unsigned long *)0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)pf4RA_R; sqlstm.sqhstl[6] = (unsigned long )sizeof(float); sqlstm.sqhsts[6] = ( int )sizeof(float); sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqharc[6] = (unsigned long *)0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqhstv[7] = (unsigned char *)pf4RA_X; sqlstm.sqhstl[7] = (unsigned long )sizeof(float); sqlstm.sqhsts[7] = ( int )sizeof(float); sqlstm.sqindv[7] = ( short *)0; sqlstm.sqinds[7] = ( int )0; sqlstm.sqharm[7] = (unsigned long )0; sqlstm.sqharc[7] = (unsigned long *)0; sqlstm.sqadto[7] = (unsigned short )0; sqlstm.sqtdso[7] = (unsigned short )0; sqlstm.sqhstv[8] = (unsigned char *)pf4RA_I; sqlstm.sqhstl[8] = (unsigned long )sizeof(float); sqlstm.sqhsts[8] = ( int )sizeof(float); sqlstm.sqindv[8] = ( short *)0; sqlstm.sqinds[8] = ( int )0; sqlstm.sqharm[8] = (unsigned long )0; sqlstm.sqharc[8] = (unsigned long *)0; sqlstm.sqadto[8] = (unsigned short )0; sqlstm.sqtdso[8] = (unsigned short )0; sqlstm.sqhstv[9] = (unsigned char *)pu2EXTRAIDO; sqlstm.sqhstl[9] = (unsigned long )sizeof(short); sqlstm.sqhsts[9] = ( int )sizeof(short); sqlstm.sqindv[9] = ( short *)0; sqlstm.sqinds[9] = ( int )0; sqlstm.sqharm[9] = (unsigned long )0; sqlstm.sqharc[9] = (unsigned long *)0; sqlstm.sqadto[9] = (unsigned short )0; sqlstm.sqtdso[9] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",2200, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4RamasAlta)> 0) { u4Paquetes++; pPATIAT->Ambitosalta[u4i].Ramasalta = (PeticionAplicacionTopologicaIncremento_Alta_Rama *)realloc( pPATIAT->Ambitosalta[u4i].Ramasalta, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Alta_Rama)); if (!pPATIAT->Ambitosalta[u4i].Ramasalta) { sacError("G1","gbAplicacionTopologicaIncremento.pc",2213,"GB0005", "No se ha podido crear PeticionAplicacionTopologicaIncrementoAT."); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemAmbitosalta[u4i].Ramasalta[u4RamasAlta].ESTADO = pu4ES_VALOR[u4Elem]; } else { pPATIAT->Ambitosalta[u4i].Ramasalta[u4RamasAlta].ESTADO = 1; if (pu4ES_VALOR[u4Elem] == 0) { pPATIAT->Ambitosalta[u4i].Ramasalta[u4RamasAlta].INC = 0; } else if (pu4ES_VALOR[u4Elem] == 1) { pPATIAT->Ambitosalta[u4i].Ramasalta[u4RamasAlta].INC = 1; } } sacTraza(6,"gbAplicacionTopologicaIncremento.pc",2238,"Alta Rama, idrama:%u, funcion:%u, tipelrama:%u, estado:%u, idnudo1:%u, idnudo2:%u, imaxima:%u, reac:%u, resi:%u",pu4ER_IDSAC[u4Elem],pu4RA_FUNCION[u4Elem],pu4ER_TIPO[u4Elem],pu4ES_VALOR[u4Elem],pu4RA_NUDO1_IDSAC[u4Elem],pu4RA_NUDO2_IDSAC[u4Elem],pf4RA_I[u4Elem],pf4RA_X[u4Elem],pf4RA_R[u4Elem]); pPATIAT->Ambitosalta[u4i].Ramasalta[u4RamasAlta].IDRAMA = pu4ER_IDSAC[u4Elem]; pPATIAT->Ambitosalta[u4i].Ramasalta[u4RamasAlta].FUNCION = pu4RA_FUNCION[u4Elem]; pPATIAT->Ambitosalta[u4i].Ramasalta[u4RamasAlta].TIPELRAMA = pu4ER_TIPO[u4Elem]; pPATIAT->Ambitosalta[u4i].Ramasalta[u4RamasAlta].IDNUDO1 = pu4RA_NUDO1_IDSAC[u4Elem]; pPATIAT->Ambitosalta[u4i].Ramasalta[u4RamasAlta].IDNUDO2 = pu4RA_NUDO2_IDSAC[u4Elem]; pPATIAT->Ambitosalta[u4i].Ramasalta[u4RamasAlta].IMAXIMA = pf4RA_I[u4Elem]; pPATIAT->Ambitosalta[u4i].Ramasalta[u4RamasAlta].REAC = pf4RA_X[u4Elem]; pPATIAT->Ambitosalta[u4i].Ramasalta[u4RamasAlta].RESI = pf4RA_R[u4Elem]; pPATIAT->Ambitosalta[u4i].Ramasalta[u4RamasAlta].EXTRAIDO = pu2EXTRAIDO[u4Elem]; u4RamasAlta++; } } } while (sqlca.sqlcode == 0); pPATIAT->Ambitosalta[u4i].NRAMASALTA = u4RamasAlta; sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2254,"Alta de %u ramas de ambito at %u", u4RamasAlta, pPATI->Ambitosalta[u4i].IDAMBITALTA); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )1996; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2259,"Altas de Ambitos(3/3)."); for(u4i=0;u4iNAMBITOSALTA;u4i++) { u4IdSacIncremento = pPATI->Ambitosalta[u4i].IDAMBITALTA; u4NudosAlta = u4Elem = u4Paquetes = 0; pPATI->Ambitosalta[u4i].Nudosalta = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.stmt = sq0019; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )2011; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&u4IdSacIncremento; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )2030; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4ER_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4ER_TIPO; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)pu4NU_FUNCION; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )sizeof(int); sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqharc[2] = (unsigned long *)0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)pf4NU_V; sqlstm.sqhstl[3] = (unsigned long )sizeof(float); sqlstm.sqhsts[3] = ( int )sizeof(float); sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqharc[3] = (unsigned long *)0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)pf4NU_P; sqlstm.sqhstl[4] = (unsigned long )sizeof(float); sqlstm.sqhsts[4] = ( int )sizeof(float); sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqharc[4] = (unsigned long *)0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",2299, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4NudosAlta)> 0) { u4Paquetes++; pPATI->Ambitosalta[u4i].Nudosalta = (PeticionAplicacionTopologicaIncremento_Alta_Nudo *)realloc( pPATI->Ambitosalta[u4i].Nudosalta, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Alta_Nudo)); if (!pPATI->Ambitosalta[u4i].Nudosalta) { sacError("G1","gbAplicacionTopologicaIncremento.pc",2311,"GB0005", "No se ha podido crear PeticionAplicacionTopologicaIncremento."); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemAmbitosalta[u4i].Nudosalta[u4NudosAlta].IDNUDO = pu4ER_IDSAC[u4Elem]; pPATI->Ambitosalta[u4i].Nudosalta[u4NudosAlta].TIPELNUDO = pu4ER_TIPO[u4Elem]; pPATI->Ambitosalta[u4i].Nudosalta[u4NudosAlta].TIPNUDO = pu4NU_FUNCION[u4Elem]; pPATI->Ambitosalta[u4i].Nudosalta[u4NudosAlta].TENSION = pf4NU_V[u4Elem]; pPATI->Ambitosalta[u4i].Nudosalta[u4NudosAlta].POTENCIA = pf4NU_P[u4Elem]; u4NudosAlta++; } } } while (sqlca.sqlcode == 0); pPATI->Ambitosalta[u4i].NNUDOSALTA = u4NudosAlta; sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2337,"Alta de %u nudos de ambito mt %u", u4NudosAlta, pPATI->Ambitosalta[u4i].IDAMBITALTA); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )2065; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } } for(u4i=0;u4iNAMBITOSALTA;u4i++) { u4IdSacIncremento = pPATIAT->Ambitosalta[u4i].IDAMBITALTA; u4NudosAlta = u4Elem = u4Paquetes = 0; pPATIAT->Ambitosalta[u4i].Nudosalta = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.stmt = sq0020; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )2080; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&u4IdSacIncremento; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )2099; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4ER_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4ER_TIPO; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)pu4NU_FUNCION; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )sizeof(int); sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqharc[2] = (unsigned long *)0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)pf4NU_V; sqlstm.sqhstl[3] = (unsigned long )sizeof(float); sqlstm.sqhsts[3] = ( int )sizeof(float); sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqharc[3] = (unsigned long *)0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)pf4NU_P; sqlstm.sqhstl[4] = (unsigned long )sizeof(float); sqlstm.sqhsts[4] = ( int )sizeof(float); sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqharc[4] = (unsigned long *)0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",2361, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); exit(-1); } if ((sqlca.sqlerrd[2] - u4NudosAlta)> 0) { u4Paquetes++; pPATIAT->Ambitosalta[u4i].Nudosalta = (PeticionAplicacionTopologicaIncremento_Alta_Nudo *)realloc( pPATIAT->Ambitosalta[u4i].Nudosalta, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Alta_Nudo)); if (!pPATIAT->Ambitosalta[u4i].Nudosalta) { sacError("G1","gbAplicacionTopologicaIncremento.pc",2374,"GB0005", "No se ha podido crear PeticionAplicacionTopologicaIncrementoAT."); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } for(u4Elem=0; u4ElemAmbitosalta[u4i].Nudosalta[u4NudosAlta].IDNUDO = pu4ER_IDSAC[u4Elem]; pPATIAT->Ambitosalta[u4i].Nudosalta[u4NudosAlta].TIPELNUDO = pu4ER_TIPO[u4Elem]; pPATIAT->Ambitosalta[u4i].Nudosalta[u4NudosAlta].TIPNUDO = pu4NU_FUNCION[u4Elem]; pPATIAT->Ambitosalta[u4i].Nudosalta[u4NudosAlta].TENSION = pf4NU_V[u4Elem]; pPATIAT->Ambitosalta[u4i].Nudosalta[u4NudosAlta].POTENCIA = pf4NU_P[u4Elem]; u4NudosAlta++; } } } while (sqlca.sqlcode == 0); pPATIAT->Ambitosalta[u4i].NNUDOSALTA = u4NudosAlta; sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2399,"Alta de %u nudos de ambito at %u", u4NudosAlta, pPATI->Ambitosalta[u4i].IDAMBITALTA); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )2134; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } } u4TomasReguladorAlta = u4Elem = u4Paquetes = 0; pPATI->Tomasalta = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.stmt = sq0021; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )2149; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&vcNombreTablaTomasRegulador; sqlstm.sqhstl[0] = (unsigned long )258; sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)&u4ER_MEDIA_TENSION; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4ER_SUBESTACION_MT; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[3] = (unsigned long )0; sqlstm.sqhsts[3] = ( int )0; sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[4] = (unsigned long )sizeof(int); sqlstm.sqhsts[4] = ( int )0; sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )0; sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2462,"Alta Tomas Reg. Iniciar"); do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )2188; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4MOD_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4TR_NUM_TOMA; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)pu4TR_PCT_TENSION_NOMINAL; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )sizeof(int); sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqharc[2] = (unsigned long *)0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",2473, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2475,"Alta Tomas reg. Error Oracle"); exit(-1); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2480,"Alta Tomas Reg. Tratar query1"); if ((sqlca.sqlerrd[2] - u4TomasReguladorAlta)> 0) { u4Paquetes++; pPATI->Tomasalta = (PeticionAplicacionTopologicaIncremento_Alta_Toma *)realloc( pPATI->Tomasalta, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Alta_Toma)); if (!pPATI->Tomasalta) { sacError("G1","gbAplicacionTopologicaIncremento.pc",2490,"GB0005", "No se ha podido crear PeticionAplicacionTopologicaIncremento. Alta Tomas"); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2493,"Alta Tomas Reg. Error en creacion Flujo"); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2504,"Alta Tomas Reg NunElem:%u, sqlca:%u",u4LongitudPaquete,sqlca.sqlerrd[2]); for(u4Elem=0; u4ElemTomasalta[u4TomasReguladorAlta].IDSAC = pu4MOD_IDSAC[u4Elem]; pPATI->Tomasalta[u4TomasReguladorAlta].NUMTOMA = pu4TR_NUM_TOMA[u4Elem]; pPATI->Tomasalta[u4TomasReguladorAlta].TOMA = pu4TR_PCT_TENSION_NOMINAL[u4Elem]; sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2511,"Alta Tomas Reg., idmedalta:%u, numToma:%u, porc_Toma:%u" ,pPATI->Tomasalta[u4TomasReguladorAlta].IDSAC ,pPATI->Tomasalta[u4TomasReguladorAlta].NUMTOMA ,pPATI->Tomasalta[u4TomasReguladorAlta].TOMA); u4TomasReguladorAlta++; } } } while (sqlca.sqlcode == 0); pPATI->NTOMASALTA = u4TomasReguladorAlta; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )2215; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2523,"Fin Alta Tomas Reg. mt: %u registros",u4TomasReguladorAlta); u4TomasReguladorAlta = u4Elem = u4Paquetes = 0; pPATIAT->Tomasalta = ((void *)0); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.stmt = sq0022; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )2230; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)&vcNombreTablaTomasRegulador; sqlstm.sqhstl[0] = (unsigned long )258; sqlstm.sqhsts[0] = ( int )0; sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)&u4ER_TRANSPORTE; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )0; sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)&u4ER_SUBESTACION_AT; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )0; sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqhstv[3] = (unsigned char *)&u4ER_TF_FRONTERA; sqlstm.sqhstl[3] = (unsigned long )sizeof(int); sqlstm.sqhsts[3] = ( int )0; sqlstm.sqindv[3] = ( short *)0; sqlstm.sqinds[3] = ( int )0; sqlstm.sqharm[3] = (unsigned long )0; sqlstm.sqadto[3] = (unsigned short )0; sqlstm.sqtdso[3] = (unsigned short )0; sqlstm.sqhstv[4] = (unsigned char *)sNombreIncremento; sqlstm.sqhstl[4] = (unsigned long )0; sqlstm.sqhsts[4] = ( int )0; sqlstm.sqindv[4] = ( short *)0; sqlstm.sqinds[4] = ( int )0; sqlstm.sqharm[4] = (unsigned long )0; sqlstm.sqadto[4] = (unsigned short )0; sqlstm.sqtdso[4] = (unsigned short )0; sqlstm.sqhstv[5] = (unsigned char *)&u4MODIFICACION; sqlstm.sqhstl[5] = (unsigned long )sizeof(int); sqlstm.sqhsts[5] = ( int )0; sqlstm.sqindv[5] = ( short *)0; sqlstm.sqinds[5] = ( int )0; sqlstm.sqharm[5] = (unsigned long )0; sqlstm.sqadto[5] = (unsigned short )0; sqlstm.sqtdso[5] = (unsigned short )0; sqlstm.sqhstv[6] = (unsigned char *)&u4MOD_MODI; sqlstm.sqhstl[6] = (unsigned long )sizeof(int); sqlstm.sqhsts[6] = ( int )0; sqlstm.sqindv[6] = ( short *)0; sqlstm.sqinds[6] = ( int )0; sqlstm.sqharm[6] = (unsigned long )0; sqlstm.sqadto[6] = (unsigned short )0; sqlstm.sqtdso[6] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2531,"Alta Tomas Reg. Iniciar"); do { { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )100; sqlstm.offset = (unsigned int )2273; sqlstm.selerr = (unsigned short)1; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlstm.sqhstv[0] = (unsigned char *)pu4MOD_IDSAC; sqlstm.sqhstl[0] = (unsigned long )sizeof(int); sqlstm.sqhsts[0] = ( int )sizeof(int); sqlstm.sqindv[0] = ( short *)0; sqlstm.sqinds[0] = ( int )0; sqlstm.sqharm[0] = (unsigned long )0; sqlstm.sqharc[0] = (unsigned long *)0; sqlstm.sqadto[0] = (unsigned short )0; sqlstm.sqtdso[0] = (unsigned short )0; sqlstm.sqhstv[1] = (unsigned char *)pu4TR_NUM_TOMA; sqlstm.sqhstl[1] = (unsigned long )sizeof(int); sqlstm.sqhsts[1] = ( int )sizeof(int); sqlstm.sqindv[1] = ( short *)0; sqlstm.sqinds[1] = ( int )0; sqlstm.sqharm[1] = (unsigned long )0; sqlstm.sqharc[1] = (unsigned long *)0; sqlstm.sqadto[1] = (unsigned short )0; sqlstm.sqtdso[1] = (unsigned short )0; sqlstm.sqhstv[2] = (unsigned char *)pu4TR_PCT_TENSION_NOMINAL; sqlstm.sqhstl[2] = (unsigned long )sizeof(int); sqlstm.sqhsts[2] = ( int )sizeof(int); sqlstm.sqindv[2] = ( short *)0; sqlstm.sqinds[2] = ( int )0; sqlstm.sqharm[2] = (unsigned long )0; sqlstm.sqharc[2] = (unsigned long *)0; sqlstm.sqadto[2] = (unsigned short )0; sqlstm.sqtdso[2] = (unsigned short )0; sqlstm.sqphsv = sqlstm.sqhstv; sqlstm.sqphsl = sqlstm.sqhstl; sqlstm.sqphss = sqlstm.sqhsts; sqlstm.sqpind = sqlstm.sqindv; sqlstm.sqpins = sqlstm.sqinds; sqlstm.sqparm = sqlstm.sqharm; sqlstm.sqparc = sqlstm.sqharc; sqlstm.sqpadto = sqlstm.sqadto; sqlstm.sqptdso = sqlstm.sqtdso; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } if (sqlca.sqlcode < 0) { sacError ("CR","gbAplicacionTopologicaIncremento.pc",2542, "LFR003", "Error ORACLE: %s\n", sqlca.sqlerrm.sqlerrmc); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2544,"Alta Tomas reg. Error Oracle"); exit(-1); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2549,"Alta Tomas Reg. Tratar query1"); if ((sqlca.sqlerrd[2] - u4TomasReguladorAlta)> 0) { u4Paquetes++; pPATIAT->Tomasalta = (PeticionAplicacionTopologicaIncremento_Alta_Toma *)realloc( pPATIAT->Tomasalta, u4Paquetes*100*sizeof( PeticionAplicacionTopologicaIncremento_Alta_Toma)); if (!pPATIAT->Tomasalta) { sacError("G1","gbAplicacionTopologicaIncremento.pc",2559,"GB0005", "No se ha podido crear PeticionAplicacionTopologicaIncremento. Alta Tomas"); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2562,"Alta Tomas Reg. Error en creacion Flujo"); return(-1); } if (sqlca.sqlerrd[2] % 100 == 0) { u4LongitudPaquete = 100; } else { u4LongitudPaquete = sqlca.sqlerrd[2] % 100; } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2573,"Alta Tomas Reg NunElem:%u, sqlca:%u",u4LongitudPaquete,sqlca.sqlerrd[2]); for(u4Elem=0; u4ElemTomasalta[u4TomasReguladorAlta].IDSAC = pu4MOD_IDSAC[u4Elem]; pPATIAT->Tomasalta[u4TomasReguladorAlta].NUMTOMA = pu4TR_NUM_TOMA[u4Elem]; pPATIAT->Tomasalta[u4TomasReguladorAlta].TOMA = pu4TR_PCT_TENSION_NOMINAL[u4Elem]; sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2580,"Alta Tomas Reg., idmedalta:%u, numToma:%u, porc_Toma:%u" ,pPATIAT->Tomasalta[u4TomasReguladorAlta].IDSAC ,pPATIAT->Tomasalta[u4TomasReguladorAlta].NUMTOMA ,pPATIAT->Tomasalta[u4TomasReguladorAlta].TOMA); u4TomasReguladorAlta++; } } } while (sqlca.sqlcode == 0); pPATIAT->NTOMASALTA = u4TomasReguladorAlta; { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )2300; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); if (sqlca.sqlcode < 0) AplicacionTopInc_sql_error(); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2592,"Fin Alta Tomas Reg. at: %u registros",u4TomasReguladorAlta); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2598,"Debug Baja:%u, Alta:%u",pPATI->Tomasbaja,pPATI->Tomasalta); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2600,"Debug Baja:%u",pPATI->NTOMASBAJA); if (pPATI->Tomasbaja && pPATI->NTOMASBAJA>0) { sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2603,"Debug Baja ANTES FOR"); for (j=0;jNTOMASBAJA;j++) { sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2606,"Flujo Baja IDAC: %u",pPATI->Tomasbaja[j].IDSAC); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2607,"Flujo Baja NUMTOMA: %u",pPATI->Tomasbaja[j].NUMTOMA); } } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2611,"Debug Alta:%u",pPATI->NTOMASALTA); if (pPATI->Tomasalta && pPATI->NTOMASALTA>0) { sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2614,"Debug Alta ANTES FOR"); for (j=0;jNTOMASALTA;j++) { sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2617,"Flujo Alta IDAC: %u",pPATI->Tomasalta[j].IDSAC); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2618,"Flujo Alta NUMTOMA: %u",pPATI->Tomasalta[j].NUMTOMA); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2619,"Flujo Alta PORC_TOMA: %u",pPATI->Tomasalta[j].TOMA); } } sacTraza(2,"gbAplicacionTopologicaIncremento.pc",2626, "Caracteristicas del incremento %s:", sNombreIncremento); sacTraza(2,"gbAplicacionTopologicaIncremento.pc",2627, ">>>> Ambitos de Baja %u", pPATI->NAMBITOSBAJA); for (ui4NAmbitos = 0; ui4NAmbitos < pPATI->NAMBITOSBAJA; ui4NAmbitos ++) { sacTraza(2,"gbAplicacionTopologicaIncremento.pc",2630, ">>>> Ambito %u", pPATIAT->Ambitosbaja[ui4NAmbitos].IDAMBITBAJA); } sacTraza(2,"gbAplicacionTopologicaIncremento.pc",2632, ">>>> Medidas de Baja %u", pPATI->NMEDIDASBAJA); sacTraza(2,"gbAplicacionTopologicaIncremento.pc",2633, ">>>> Tomas de Baja %u", pPATI->NTOMASBAJA); sacTraza(2,"gbAplicacionTopologicaIncremento.pc",2634, ">>>> Fronteras de Baja %u", pPATI->NFRONTERASBAJA); sacTraza(2,"gbAplicacionTopologicaIncremento.pc",2635, ">>>> SPQ de Baja %u", pPATI->NSPBAJA); sacTraza(2,"gbAplicacionTopologicaIncremento.pc",2636, ">>>> Ambitos de Alta %u", pPATI->NAMBITOSALTA); for (ui4NAmbitos = 0; ui4NAmbitos < pPATI->NAMBITOSALTA; ui4NAmbitos ++) { sacTraza(2,"gbAplicacionTopologicaIncremento.pc",2639, ">>>> Ambito %u con %u Nudos y %u Ramas", pPATI->Ambitosalta[ui4NAmbitos].IDAMBITALTA, pPATI->Ambitosalta[ui4NAmbitos].NNUDOSALTA, pPATI->Ambitosalta[ui4NAmbitos].NRAMASALTA); } sacTraza(2,"gbAplicacionTopologicaIncremento.pc",2644, ">>>> Medidas de Alta %u", pPATI->NMEDIDASALTA); sacTraza(2,"gbAplicacionTopologicaIncremento.pc",2645, ">>>> Tomas de Alta %u", pPATI->NTOMASALTA); sacTraza(2,"gbAplicacionTopologicaIncremento.pc",2646, ">>>> Fronteras de Alta %u", pPATI->NFRONTERASALTA); sacTraza(2,"gbAplicacionTopologicaIncremento.pc",2647, ">>>> SPQ de Alta %u", pPATI->NSPALTA); i4Resultado=PeticionAplicacionTopologicaIncrementoCodifica(pPATI,&rvmsg); if (i4Resultado<0) { sacError("CR","gbAplicacionTopologicaIncremento.pc",2654, "GB0200","Error [%d] en codificacion PeticionAplicacionTopologicaResultado.", i4Resultado); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2656,"Alta Tomas Reg. Error en codificacion Flujo"); return(-1); } PeticionAplicacionTopologicaIncrementoLibera(pPATI); i4Tamanyo = i4Resultado; if (bGestionMT && Incremento.bCaidaTCV == 0) { sacValorParametro ("identorno", &cIdentificadorEntorno); sprintf(cNombreCanal, "sac.%d.servidor.PeticionAplicacionTopologicaIncremento", atoi (cIdentificadorEntorno)); sacTraza(2,"gbAplicacionTopologicaIncremento.pc",2670, "sac.%d.servidor.PeticionAplicacionTopologicaIncremento", atoi (cIdentificadorEntorno)); pListenId = (tibrvEvent *)calloc(1,sizeof(tibrvEvent)); if (pListenId == (tibrvEvent *)0) { sacError("CR","gbAplicacionTopologicaIncremento.pc",2674, "GB0090", "asignación de memoria para listenId"); exit(-1); } errorRV = rv_Rpc(rvSes, pListenId, cNombreCanal, RVMSG_OPAQUE, i4Tamanyo, rvmsg, gbCbRespuestaAplicacionTopologicaIncremento, (void *)pListenId); if (errorRV != TIBRV_OK) { sacError("CR","gbAplicacionTopologicaIncremento.pc",2680,"GB0090", "error [%s] al enviar peticion aplicacion topologica incremento", tibrvStatus_GetText(errorRV)); exit(-1); } tibrvMsg_Destroy(rvmsg); } else { sacTraza(6,"gbAplicacionTopologicaIncremento.pc",2692, "Gestion MT desactivada, no se aplica en topologia de MT."); } if(bGestionAT && Incremento.bCaidaTCAT == 0) { i4Resultado=PeticionAplicacionTopologicaIncrementoATCodifica(pPATIAT,&rvmsgAT); if (i4Resultado<0) { sacError("CR","gbAplicacionTopologicaIncremento.pc",2701, "GB0200","Error [%d] en codificacion PeticionAplicacionTopologicaResultadoAT.", i4Resultado); sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2703,"Alta Tomas Reg. Error en codificacion Flujo"); return(-1); } PeticionAplicacionTopologicaIncrementoATLibera(pPATIAT); i4Tamanyo = i4Resultado; sacValorParametro ("identorno", &cIdentificadorEntorno); sprintf(cNombreCanal, "sac.%d.servidor.PeticionAplicacionTopologicaIncrementoAT", atoi (cIdentificadorEntorno)); sacTraza(2,"gbAplicacionTopologicaIncremento.pc",2715, "sac.%d.servidor.PeticionAplicacionTopologicaIncrementoAT", atoi (cIdentificadorEntorno)); pListenIdAT = (tibrvEvent *)calloc(1,sizeof(tibrvEvent)); if (pListenIdAT == (tibrvEvent *)0) { sacError("CR","gbAplicacionTopologicaIncremento.pc",2719, "GB0090", "asignación de memoria para listenIdAT"); exit(-1); } errorRV = rv_Rpc(rvSes, pListenIdAT, cNombreCanal, RVMSG_OPAQUE, i4Tamanyo, rvmsgAT, gbCbRespuestaAplicacionTopologicaIncrementoAT, (void *)pListenIdAT); if (errorRV != TIBRV_OK) { sacError("CR","gbAplicacionTopologicaIncremento.pc",2725,"GB0090", "error [%s] al enviar peticion aplicacion topologica incremento", tibrvStatus_GetText(errorRV)); exit(-1); } tibrvMsg_Destroy(rvmsgAT); } else { sacTraza(6,"gbAplicacionTopologicaIncremento.pc",2737, "Gestion AT desactivada, no se aplica en topologia de AT."); } sacTraza(4,"gbAplicacionTopologicaIncremento.pc",2740,"--- Final gbAplicacionTopologicaIncremento ---"); return 0; } void AplicacionTopInc_sql_error(void) { char msg[512]; int buf_len, msg_len; buf_len = sizeof(msg); sqlglm(msg, (unsigned int*) &buf_len, (unsigned int*) &msg_len); sacError("CR","gbAplicacionTopologicaIncremento.pc",2759,"GB0220","\nORACLE error detected: \n%.*s \n", msg_len, msg); { struct sqlexd sqlstm; sqlstm.sqlvsn = 10; sqlstm.arrsiz = 32; sqlstm.sqladtp = &sqladt; sqlstm.sqltdsp = &sqltds; sqlstm.iters = (unsigned int )1; sqlstm.offset = (unsigned int )2315; sqlstm.cud = sqlcud0; sqlstm.sqlest = (unsigned char *)&sqlca; sqlstm.sqlety = (unsigned short)256; sqlstm.occurs = (unsigned int )0; sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn); } }