SET LINES = 999999
-*SET BYDISPLAY = ON
SET ASNAMES = ON
SET HOLDLIST = PRINTONLY
SET NODATA = '-'
SET PAGE-NUM = NOPAGE
SET EMPTYREPORT = ON
SET CENT-ZERO = ON
-SET &VLA_WFSNAME = '/ibi_apps/WFServlet?IBIF_ex';
-SET &VLA_APPNAME = '/approot/semarnat';
-SET &VLA_CONNECTION = 'DGEIAWF.BADESNIARN';
-SET &VLA_USERDB = 'DGEIAMOD.';
-SET &VTOTAL1 = 'ON TABLE COLUMN-TOTAL AS TOTAL';
-SET &VTOTAL2 = 'ON TABLE NOTOTAL';
-SET &VTOTAL3 = 'ON TABLE COLUMN-TOTAL AS Nacional';
-SET &VTOTAL4 = 'ON TABLE COLUMN-TOTAL AS AÑO';
-* ===== > VARIABLES DE SEGURIDAD
-* ===== > DEBERAN SER DECLARADAS EN LAS JSPs.
-DEFAULT &FUN_USER = 'dgeia_mce';
-DEFAULT &FUN_PASS = 'dgeia_mce';
-SET &VL_SEGURIDAD = '&' || 'IBIC_user=' || dgeia_mce || '&' || 'IBIC_pass=' || dgeia_mce || '&' || 'FUN_USER=' || dgeia_mce || '&' || 'FUN_PASS=' || dgeia_mce;
-SET &VL_SEGUENT = '&' || 'IBIC_user=' || dgeia_mce || '&' || 'IBIC_pass=' || dgeia_mce;
-*-TYPE &L_SEGURIDAD
-* ===== > FORMATO INICIAL DE REPORTE
-DEFAULT &PTA_SALIDA = 'HTML';
-DEFAULT &VAL_FORMAT = 'HTML';
-DEFAULT &VUNID = '';
-DEFAULT &VUNID2 = '';
-DEFAULT &VL_NTS = '';
-DEFAULT &VL_VAR = '';
-DEFAULT &VL_FTS = '';
-DEFAULT &REP='';
-DEFAULT &VG_ENC='';
-DEFAULT &VUNID = '';
-DEFAULT &VHEIG = 500;
-DEFAULT &REP2 = '';
-DEFAULT &VTIT = '';
-DEFAULT &VL_FTE1= '';
-DEFAULT &VL_FTE2= '';
-DEFAULT &VL_FTE3= '';
-DEFAULT &VL_FTE4= '';
-DEFAULT &VL_NOTA1 = '';
-DEFAULT &VL_NOTA2 = '';
-DEFAULT &VL_NOTA3 = '';
-DEFAULT &VL_NOTA4 = '';
-SET &VL_WHERE = 'WHERE IDVARIABLE EQ ' | '''' | 'III_6_3_2_6' | '''' | ' OR IDVARIABLE EQ ' | '''' | 'III_6_3_2_7' | '''' | ' OR IDVARIABLE EQ ' | '''' | 'III_6_3_2_8' | '''';
-*INCLUDE MCE_UNIDADES_R1
-SET &VBOL = 2;
-SET &VL_WHERE = 'WHERE IDVARIABLE EQ ' | '''' | 'III_6_3_2_6' | '''' | ' OR IDVARIABLE EQ ' | '''' | 'III_6_3_2_7' | '''' | ' OR IDVARIABLE EQ ' | '''' | 'III_6_3_2_8' | '''';
-INCLUDE MCE_NOTAS_FUENTES_R1
-* = > =========================================================================
-* = > SEMARNAT 2007.
-* = > NOMBRE FEX: mce_notas_fuentes_prueba.fex
-* = > DESCRIPCION: Hoja de estilos WebFOCUS
-* = > CREO: LIZZETH ROMERO DE LA O
-* = > MODIFICO:
-* = > =========================================================================
-IF 2 EQ 1 AND (HTML EQ 'PDF' OR HTML EQ 'EXL2K') OR 2 EQ 2 THEN GOTO ETNF1 ELSE ETNNF1;
-ETNF1
-IF 2 EQ 1 THEN GOTO ETNTAS1 ELSE ETNNTAS1;
-ETNNTAS1
-IF HTML EQ 'PDF' THEN GOTO ETFPDF ELSE ETFNPDF;
-ETFNPDF
TABLE FILE MCE_R_VAR_NOTAS
PRINT NOMBRENOTA AS ' '
BY IDVARIABLE NOPRINT
BY DESCRIPCION AS ' '
WHERE IDVARIABLE EQ 'III_6_3_2_6' OR IDVARIABLE EQ 'III_6_3_2_7' OR IDVARIABLE EQ 'III_6_3_2_8'
-IF HTML EQ 'EXL2K' THEN GOTO ETFEXC ELSE ETFNEXC;
-ETFNEXC
ON TABLE SET STYLE *
TYPE=REPORT, UNITS=CM, SQUEEZE=ON, ORIENTATION=PORTRAIT, PAGECOLOR=RGB(255 255 255),$
TYPE=REPORT, GRID=ON, FONT='Open Sans', SIZE=9, COLOR='BLACK', BACKCOLOR=RGB(255 255 255), STYLE=NORMAL,$
-ETBRING
TYPE=DATA, FONT='Open Sans', SIZE=9, BACKCOLOR=( 'WHITE' RGB(222 222 222) ), JUSTIFY=LEFT,$
TYPE=TITLE, FONT='Open Sans', SIZE=9, COLOR='WHITE', BACKCOLOR='GRAY', STYLE=BOLD,$
TYPE=HEADING, OBJECT=TEXT, FONT='Open Sans', COLOR='GRAY', STYLE=BOLD,$
TYPE=REPORT, COLUMN=N2, SQUEEZE=10.00000,$
TYPE=REPORT, COLUMN=N3, SQUEEZE=23.00000,$
ENDSTYLE
-NOENTRAPDF2
-IF HTML EQ 'HTML' THEN GOTO ETFHTM2 ELSE ETFNHTM2;
-ETFHTM2
ON TABLE HOLD AS 'HTMNOTA' FORMAT HTML
-GOTO BRING3;
-BRING3
END
-GOTO BRINFT;
-BRINFT
TABLE FILE MCE_R_VAR_FUENTES
BY DESCRIPCION_FUENTE
BY ID_FUENTE
WHERE IDVARIABLE EQ 'III_6_3_2_6' OR IDVARIABLE EQ 'III_6_3_2_7' OR IDVARIABLE EQ 'III_6_3_2_8'
ON TABLE HOLD AS HTFTE01
END
-IF HTML EQ 'PDF' THEN GOTO ETFPDF2 ELSE ETFNPDF2;
-ETFNPDF2
TABLE FILE HTFTE01
BY DESCRIPCION_FUENTE AS 'FTE'
BY ID_FUENTE NOPRINT
WHERE DESCRIPCION_FUENTE NE MISSING AND DESCRIPCION_FUENTE NE '' AND DESCRIPCION_FUENTE NE ' '
ON TABLE HOLD AS HTFTE1
END
-IF HTML EQ 'EXL2K' THEN GOTO ETFEXC2 ELSE ETFNEXC2;
-ETFNEXC2
ON TABLE SET STYLE *
TYPE=REPORT, UNITS=CM, SQUEEZE=ON, ORIENTATION=PORTRAIT, PAGECOLOR=RGB(255 255 255),$
TYPE=REPORT, GRID=ON, FONT='Open Sans', SIZE=9, COLOR='BLACK', BACKCOLOR=RGB(255 255 255), STYLE=NORMAL,$
-ETBRING2
TYPE=DATA, FONT='Open Sans', SIZE=9, BACKCOLOR=( 'WHITE' RGB(222 222 222) ),$
TYPE=TITLE, FONT='Open Sans', SIZE=9, COLOR='WHITE', BACKCOLOR='GRAY', STYLE=BOLD, $
TYPE=HEADING, OBJECT=TEXT, FONT='Open Sans', COLOR='WHITE', STYLE=BOLD,$
TYPE=REPORT, COLUMN=N2, SQUEEZE=33.0000,$
ENDSTYLE
TABLE FILE HTFTE01
BY DESCRIPCION_FUENTE AS ' '
BY ID_FUENTE NOPRINT
WHERE DESCRIPCION_FUENTE NE MISSING AND DESCRIPCION_FUENTE NE ' ' AND DESCRIPCION_FUENTE NE ' '
ON TABLE SET STYLE *
TYPE=REPORT, UNITS=CM, SQUEEZE=ON, ORIENTATION=PORTRAIT, PAGECOLOR=RGB(255 255 255),$
TYPE=REPORT, GRID=ON, FONT='Open Sans', SIZE=9, COLOR='BLACK', BACKCOLOR=RGB(255 255 255), STYLE=NORMAL,$
TYPE=DATA, FONT='Open Sans', SIZE=9, BACKCOLOR=( 'WHITE' RGB(222 222 222) ),$
TYPE=TITLE, FONT='Open Sans', SIZE=9, COLOR='WHITE', BACKCOLOR='GRAY', STYLE=BOLD, $
TYPE=HEADING, OBJECT=TEXT, FONT='Open Sans', COLOR='WHITE', STYLE=BOLD,$
TYPE=REPORT, COLUMN=N2, SQUEEZE=33.0000,$
ENDSTYLE
-IF HTML EQ 'HTML' THEN GOTO ETFHTM3 ELSE ETFNHTM3;
-ETFHTM3
ON TABLE HOLD AS 'HTMFTE' FORMAT HTMTABLE
-GOTO BRING4;
-BRING4
END
-ETNNF1
-GOTO BRINFT2;
-BRINFT2
-SET &REP = 'D3_RESIDUOP02_07_R1';
-SET &VAL_FORMAT = 'HTML';
-SET &VL_URL = '/ibi_apps/WFServlet?IBIF_ex=' | D3_RESIDUOP02_07_R1 | '&' | 'VL_FORMAT=' | HTML;
-SET &VL_SEGURIDAD = '&' || 'IBIC_user=' || dgeia_mce || '&' || 'IBIC_pass=' || dgeia_mce || '&' || 'FUN_USER=' || dgeia_mce || '&' || 'FUN_PASS=' || dgeia_mce;
-SET &VL_URL = /ibi_apps/WFServlet?IBIF_ex=D3_RESIDUOP02_07_R1&VL_FORMAT=HTML | &IBIC_user=dgeia_mce&IBIC_pass=dgeia_mce&FUN_USER=dgeia_mce&FUN_PASS=dgeia_mce;
-TYPE /ibi_apps/WFServlet?IBIF_ex=D3_RESIDUOP02_07_R1&VL_FORMAT=HTML&IBIC_user=dgeia_mce&IBIC_pass=dgeia_mce&FUN_USER=dgeia_mce&FUN_PASS=dgeia_mce
/ibi_apps/WFServlet?IBIF_ex=D3_RESIDUOP02_07_R1&VL_FORMAT=HTML&IBIC_user=dgeia_mce&IBIC_pass=dgeia_mce&FUN_USER=dgeia_mce&FUN_PASS=dgeia_mce
-SET &REP2 = 'D3_RESIDUOP02_07';
-INCLUDE MCE_TITULO
-* = > =========================================================================
-* = > SEMARNAT 2007.
-* = > NOMBRE FEX: mce_titulo.fex
-* = > DESCRIPCION: Título de Reportes
-* = > CREO: CESAR ARTEAGA PLANCARTE. FECHA: 30-OCT-2007.
-* = > MODIFICO:
-* = > =========================================================================
TABLE FILE MCE_ADMIN_REP_CAT
PRINT NOMBREREPORTE
WHERE NOMBREFEX EQ 'D3_RESIDUOP02_07'
ON TABLE HOLD AS HTIT FORMAT ALPHA
END
-RUN
0 NUMBER OF RECORDS IN TABLE= 3 LINES= 3
0 HTML FILE SAVED ...
0 NUMBER OF RECORDS IN TABLE= 3 LINES= 1
0 NUMBER OF RECORDS IN TABLE= 1 LINES= 1
(FOC1517) UNRECOGNIZED COMMAND ON TABLE SET STYLE *
(FOC1517) UNRECOGNIZED COMMAND TYPE=REPORT, UNITS=CM, SQUEEZE=ON, ORIENTATION=PORTRAIT, PAGECOLOR=RGB(255 255 255),$
(FOC1517) UNRECOGNIZED COMMAND TYPE=REPORT, GRID=ON, FONT='OPEN SANS', SIZE=9, COLOR='BLACK', BACKCOLOR=RGB(255 255 255), STYLE=NORMAL,$
(FOC1517) UNRECOGNIZED COMMAND TYPE=DATA, FONT='OPEN SANS', SIZE=9, BACKCOLOR=( 'WHITE' RGB(222 222 222) ),$
(FOC1517) UNRECOGNIZED COMMAND TYPE=TITLE, FONT='OPEN SANS', SIZE=9, COLOR='WHITE', BACKCOLOR='GRAY', STYLE=BOLD, $
(FOC1517) UNRECOGNIZED COMMAND TYPE=HEADING, OBJECT=TEXT, FONT='OPEN SANS', COLOR='WHITE', STYLE=BOLD,$
(FOC1517) UNRECOGNIZED COMMAND TYPE=REPORT, COLUMN=N2, SQUEEZE=33.0000,$
(FOC1517) UNRECOGNIZED COMMAND ENDSTYLE
0 NUMBER OF RECORDS IN TABLE= 1 LINES= 1
0 HTML FILE SAVED ...
0 NUMBER OF RECORDS IN TABLE= 1 LINES= 1
-*-EXIT
? HOLD HTIT
-READ HTIT &VTIT.A255
-SET &VG_ENC = EDIT(000097Estudios de riesgo ambiental y programas para la prevención de accidentes, competencia de la ASEA ,$$$$$$9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999);
-*-SET &VG_ENC = 'EXISTENCIAS DE MADERA DE BOSQUES TEMPLADOS Y FRÌOS ';
-SET &VHEIG = '500'
-INCLUDE D3_RESIDUOP02_07_R1
-* = > =========================================================================
-* = > SEMARNAT 2007.
-* = > NOMBRE FEX: d3_RESIDUOP02_07_R1.fex
-* = > DESCRIPCION: Hoja de estilos WebFOCUS
-* = > CREO: LIZZETH ROMERO DE LA O. FECHA: 27-ABRIL-2017.
-* = > MODIFICO:
-* = > =========================================================================
-DEFAULT &VL_FORMAT = 'HTML';
-INCLUDE MCE_SETS_FX00
-* = > =========================================================================
-* = > SEMARNAT 2007.
-* = > NOMBRE FEX: dgeia_sets_fx00.fex
-* = > DESCRIPCION: Contiene valores por defaul y variables de configuracion.
-* = > CREO: César Arteaga Plancarte. FECHA: 14-SEP-2007.
-* = > MODIFICO:
-* = > =========================================================================
-* ===== > VARIABLES DE ENTORNO
-SET &ECHO = ALL;
SET LINES = 999999
-*SET BYDISPLAY = ON
SET ASNAMES = ON
SET HOLDLIST = PRINTONLY
SET NODATA = '-'
SET PAGE-NUM = NOPAGE
SET EMPTYREPORT = ON
SET CENT-ZERO = ON
-SET &VLA_WFSNAME = '/ibi_apps/WFServlet?IBIF_ex';
-SET &VLA_APPNAME = '/approot/semarnat';
-SET &VLA_CONNECTION = 'DGEIAWF.BADESNIARN';
-SET &VLA_USERDB = 'DGEIAMOD.';
-SET &VTOTAL1 = 'ON TABLE COLUMN-TOTAL AS TOTAL';
-SET &VTOTAL2 = 'ON TABLE NOTOTAL';
-SET &VTOTAL3 = 'ON TABLE COLUMN-TOTAL AS Nacional';
-SET &VTOTAL4 = 'ON TABLE COLUMN-TOTAL AS AÑO';
-* ===== > VARIABLES DE SEGURIDAD
-* ===== > DEBERAN SER DECLARADAS EN LAS JSPs.
-DEFAULT &FUN_USER = 'dgeia_mce';
-DEFAULT &FUN_PASS = 'dgeia_mce';
-SET &VL_SEGURIDAD = '&' || 'IBIC_user=' || dgeia_mce || '&' || 'IBIC_pass=' || dgeia_mce || '&' || 'FUN_USER=' || dgeia_mce || '&' || 'FUN_PASS=' || dgeia_mce;
-SET &VL_SEGUENT = '&' || 'IBIC_user=' || dgeia_mce || '&' || 'IBIC_pass=' || dgeia_mce;
-*-TYPE &L_SEGURIDAD
-* ===== > FORMATO INICIAL DE REPORTE
-DEFAULT &PTA_SALIDA = 'HTML';
-DEFAULT &VAL_FORMAT = 'HTML';
-DEFAULT &VUNID = '';
-DEFAULT &VUNID2 = '';
-DEFAULT &VL_NTS = '';
-DEFAULT &VL_VAR = '';
-DEFAULT &VL_FTS = '';
-DEFAULT &REP='';
-DEFAULT &VG_ENC='';
-DEFAULT &VUNID = '';
-DEFAULT &VHEIG = 500;
-DEFAULT &REP2 = '';
-DEFAULT &VTIT = '';
-DEFAULT &VL_FTE1= '';
-DEFAULT &VL_FTE2= '';
-DEFAULT &VL_FTE3= '';
-DEFAULT &VL_FTE4= '';
-DEFAULT &VL_NOTA1 = '';
-DEFAULT &VL_NOTA2 = '';
-DEFAULT &VL_NOTA3 = '';
-DEFAULT &VL_NOTA4 = '';
-TYPE HTML
HTML
-SET &PTA_SALIDA = HTML;
-SET &PTAOUT = HTML;
-SET &REP2 = 'D3_RESIDUOP02_07';
-INCLUDE MCE_TITULO
-* = > =========================================================================
-* = > SEMARNAT 2007.
-* = > NOMBRE FEX: mce_titulo.fex
-* = > DESCRIPCION: Título de Reportes
-* = > CREO: CESAR ARTEAGA PLANCARTE. FECHA: 30-OCT-2007.
-* = > MODIFICO:
-* = > =========================================================================
TABLE FILE MCE_ADMIN_REP_CAT
PRINT NOMBREREPORTE
WHERE NOMBREFEX EQ 'D3_RESIDUOP02_07'
ON TABLE HOLD AS HTIT FORMAT ALPHA
END
-RUN
0DEFINITION OF HOLD FILE: HTIT
0FIELDNAME ALIAS FORMAT
NOMBREREPORTE E01 A255V
0 NUMBER OF RECORDS IN TABLE= 1 LINES= 1
-*-EXIT
? HOLD HTIT
-READ HTIT &VTIT.A255
-SET &VG_ENC = EDIT(000097Estudios de riesgo ambiental y programas para la prevención de accidentes, competencia de la ASEA ,$$$$$$9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999);
-SET &VG_ENCABEZADO = '"' | EDIT(000097Estudios de riesgo ambiental y programas para la prevención de accidentes, competencia de la ASEA ,$$$$$$99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999) | '"';
-SET &VL_WHERE = 'WHERE IDVARIABLE EQ ' | '''' | 'III_6_3_2_6' | '''' | ' OR IDVARIABLE EQ ' | '''' | 'III_6_3_2_7' | '''' | ' OR IDVARIABLE EQ ' | '''' | 'III_6_3_2_8' | '''';
-INCLUDE MCE_UNIDADES_R1
TABLE FILE MCE_R_VAR_UNIDADES
SUM COMPUTE UNIDAD/A100V = '(' | NOMBREUNIDAD | ')'; AS ''
BY IDVARIABLE NOPRINT
WHERE IDVARIABLE EQ 'III_6_3_2_6' OR IDVARIABLE EQ 'III_6_3_2_7' OR IDVARIABLE EQ 'III_6_3_2_8'
ON TABLE HOLD AS HTUNID1 FORMAT ALPHA
END
-RUN
0DEFINITION OF HOLD FILE: HTIT
0FIELDNAME ALIAS FORMAT
NOMBREREPORTE E01 A255V
0 NUMBER OF RECORDS IN TABLE= 3 LINES= 3
-IF 3 EQ 0 THEN GOTO ETQL001;
-READ HTUNID1 &VUNID.A100
-ETQL001
-TYPE 000008(Número)
000008(Número)
-SET &VUNID = EDIT(000008(Número) ,'$$$$$$9999999999999999999999999999999999999999999999999999999999999999999999');
-SET &VUNID = '';
-SET &VEUNID = '"' | | '"';
JOIN
MCE_R_D3_RESIDUOP02_07.MCE_R_D3_RESIDUOP02_07.IDANIO IN MCE_R_D3_RESIDUOP02_07
TO UNIQUE MCE_VANIO.MCE_VANIO.IDANIO IN MCE_VANIO AS J0
END
JOIN
MCE_R_D3_RESIDUOP02_07.MCE_R_D3_RESIDUOP02_07.IDENTIDAD IN MCE_R_D3_RESIDUOP02_07
TO UNIQUE MCE_VENTIDAD.MCE_VENTIDAD.IDENTIDAD IN MCE_VENTIDAD AS J1
END
JOIN
MCE_R_D3_RESIDUOP02_07.MCE_R_D3_RESIDUOP02_07.IDEDOMUN IN MCE_R_D3_RESIDUOP02_07
TO UNIQUE MCE_VEDOMUN.MCE_VEDOMUN.IDEDOMUN IN MCE_VEDOMUN AS J2
END
DEFINE FILE MCE_R_D3_RESIDUOP02_07
MUN/D20 = IF IDEDOMUN EQ (IDENTIDAD * 1000 + 950) THEN IDENTIDAD * 1000 + 790
ELSE IF IDEDOMUN EQ 65000 THEN (IDENTIDAD * 1000 + 900 -1 )
ELSE IDEDOMUN;
ENTIDAD = IF IDENTIDAD EQ 38 THEN 200 ELSE IDENTIDAD;
END
TABLE FILE MCE_R_D3_RESIDUOP02_07
SUM
III_6_3_2_6/D20 AS 'Estudios de riesgo,de nuevos proyectos'
III_6_3_2_7/D20 AS 'Estudios de riesgo,de plantas en operación'
III_6_3_2_8/D20 AS 'Programas'
BY IDANIO NOPRINT
BY NOMBREANIO AS 'Año'
BY ENTIDAD NOPRINT
BY NOMBREENTIDAD AS 'Entidad federativa'
WHERE IDEDOMUN EQ (IDENTIDAD * 1000 + 900) OR (IDEDOMUN EQ 70000) OR IDEDOMUN EQ 35950 OR (IDEDOMUN EQ 38000 AND IDGIROINDUSTRIAL NE 11);
-INCLUDE WHERE_ANIO
-IF * EQ '*' THEN GOTO S_NOANIO
-ELSE GOTO S_ANIO;
-S_NOANIO
-GOTO ETQSAL
-ETQSAL
-INCLUDE WHERE_ENT
ERROR AT OR NEAR LINE 1 IN PROCEDURE WHERE_ENT
(FOC295) A VALUE IS MISSING FOR: &NOMBREENTIDAD