No HTML Output!


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_3_3_1_1' | '''' ; -INCLUDE MCE_UNIDADES_R1 TABLE FILE MCE_R_VAR_UNIDADES SUM COMPUTE UNIDAD/A100V = '(' | NOMBREUNIDAD | ')'; AS '' BY IDVARIABLE NOPRINT WHERE IDVARIABLE EQ 'III_3_3_1_1' ON TABLE HOLD AS HTUNID1 FORMAT ALPHA END -RUN 0 NUMBER OF RECORDS IN TABLE= 1 LINES= 1 -IF 1 EQ 0 THEN GOTO ETQL001; -READ HTUNID1 &VUNID.A100 -ETQL001 -TYPE 000011(hectáreas) 000011(hectáreas) -SET &VUNID = EDIT(000011(hectáreas) ,'$$$$$$9999999999999999999999999999999999999999999999999999999999999999999999'); -SET &VBOL = 2; -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_3_3_1_1' -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_3_3_1_1' 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_SUELO03_03_R1'; -SET &VAL_FORMAT = 'HTML'; -SET &VL_URL = '/ibi_apps/WFServlet?IBIF_ex=' | D3_SUELO03_03_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_SUELO03_03_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_SUELO03_03_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_SUELO03_03_R1&VL_FORMAT=HTML&IBIC_user=dgeia_mce&IBIC_pass=dgeia_mce&FUN_USER=dgeia_mce&FUN_PASS=dgeia_mce -SET &REP2 = 'D3_SUELO03_03'; -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_SUELO03_03' ON TABLE HOLD AS HTIT FORMAT ALPHA END -RUN 0 NUMBER OF RECORDS IN TABLE= 1 LINES= 1 0 HTML FILE SAVED ... 0 NUMBER OF RECORDS IN TABLE= 2 LINES= 2 0 NUMBER OF RECORDS IN TABLE= 2 LINES= 2 (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= 2 LINES= 2 0 HTML FILE SAVED ... 0 NUMBER OF RECORDS IN TABLE= 1 LINES= 1 -*-EXIT ? HOLD HTIT -READ HTIT &VTIT.A255 -SET &VG_ENC = EDIT(000115Degradación de suelos: superficie afectada por procesos, por entidad federativa, según niveles de degradación, 2002 ,$$$$$$9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999); -*-SET &VG_ENC = 'GASTO FEDERAL EN CIENCIA Y TECNOLOGÍA POR OBJETIVO SOCIOECONÓMICO'; -SET &VHEIG = '500' -INCLUDE D3_SUELO03_03_R1 -* = > ========================================================================= -* = > SEMARNAT 2007. -* = > NOMBRE FEX: d3_suelo03_03_R1.fex -* = > DESCRIPCION: Hoja de estilos WebFOCUS -* = > CREO: ARTURO MONDRAGÓN. FECHA: 14-FEB-2008. -* = > MODIFICO: CESAR ARTEAGA PLANCARTE. FECHA: 19-FEB-2008. -* = > ========================================================================= -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_SUELO03_03'; -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_SUELO03_03' 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(000115Degradación de suelos: superficie afectada por procesos, por entidad federativa, según niveles de degradación, 2002 ,$$$$$$9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999); -SET &VG_ENCABEZADO = '"' | EDIT(000115Degradación de suelos: superficie afectada por procesos, por entidad federativa, según niveles de degradación, 2002 ,$$$$$$99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999) | '"'; -SET &VL_WHERE = 'WHERE IDVARIABLE EQ ' | '''' | 'III_3_3_1_1' | '''' ; -INCLUDE MCE_UNIDADES_R1 TABLE FILE MCE_R_VAR_UNIDADES SUM COMPUTE UNIDAD/A100V = '(' | NOMBREUNIDAD | ')'; AS '' BY IDVARIABLE NOPRINT WHERE IDVARIABLE EQ 'III_3_3_1_1' 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= 1 LINES= 1 -IF 1 EQ 0 THEN GOTO ETQL001; -READ HTUNID1 &VUNID.A100 -ETQL001 -TYPE 000011(hectáreas) 000011(hectáreas) -SET &VUNID = EDIT(000011(hectáreas) ,'$$$$$$9999999999999999999999999999999999999999999999999999999999999999999999'); -SET &VEUNID = '"' | (hectáreas) | '"'; JOIN CLEAR * JOIN MCE_SUELO_DEGRADPROCTIPONIV.MCE_SUELO_DEGRADPROCTIPONIV.IDENTIDAD IN MCE_SUELO_DEGRADPROCTIPONIV TO UNIQUE MCE_VENTIDAD.MCE_VENTIDAD.IDENTIDAD IN MCE_VENTIDAD AS J0 END JOIN MCE_SUELO_DEGRADPROCTIPONIV.MCE_SUELO_DEGRADPROCTIPONIV.IDVEGETACIONCARTA IN MCE_SUELO_DEGRADPROCTIPONIV TO UNIQUE MCE_VVEGETACIONCARTA.MCE_VVEGETACIONCARTA.IDVEGETACIONCARTA IN MCE_VVEGETACIONCARTA AS J1 END JOIN MCE_SUELO_DEGRADPROCTIPONIV.MCE_SUELO_DEGRADPROCTIPONIV.IDPROCESODEGRADACION IN MCE_SUELO_DEGRADPROCTIPONIV TO UNIQUE MCE_VPROCESODEGRADACION.MCE_VPROCESODEGRADACION.IDPROCESODEGRADACION IN MCE_VPROCESODEGRADACION AS J2 END JOIN MCE_SUELO_DEGRADPROCTIPONIV.MCE_SUELO_DEGRADPROCTIPONIV.IDTIPODEGRADACION IN MCE_SUELO_DEGRADPROCTIPONIV TO UNIQUE MCE_VTIPODEGRADACION.MCE_VTIPODEGRADACION.IDTIPODEGRADACION IN MCE_VTIPODEGRADACION AS J3 END JOIN MCE_SUELO_DEGRADPROCTIPONIV.MCE_SUELO_DEGRADPROCTIPONIV.IDNIVELDEGRADACION IN MCE_SUELO_DEGRADPROCTIPONIV TO UNIQUE MCE_VNIVELDEGRADACION.MCE_VNIVELDEGRADACION.IDNIVELDEGRADACION IN MCE_VNIVELDEGRADACION AS J4 END TABLE FILE MCE_SUELO_DEGRADPROCTIPONIV SUM III_3_3_1_1 AS '' BY IDPROCESODEGRADACION NOPRINT BY NOMBREPROCESODEGRADACION AS 'Proceso de degradación' BY IDENTIDAD NOPRINT BY NOMBREENTIDAD AS 'Entidad' ACROSS IDNIVELDEGRADACION NOPRINT ACROSS NOMBRENIVELDEGRADACION AS '' WHERE IDPROCESODEGRADACION LT 6.00; -INCLUDE WHERE_ENT 0 ERROR AT OR NEAR LINE 1 IN PROCEDURE WHERE_ENT (FOC295) A VALUE IS MISSING FOR: &NOMBREENTIDAD