====== mxf0.pft ====== Formato para visualizar en HTML el resultado del comando mxf0 para el análisis de una base de datos CDS/ISIS. ===== Ejemplo de uso ===== mxf0 mibase create=mibase_mxf0 mx mibase_mxf0 "pft=@mxf0.pft" now > mibase_mxf0.html ===== Ejemplo de salida ===== http://inmabb.criba.edu.ar/varios/mxf0.html ===== Código ===== lw(1000) ''/ ' MXF0 - Análisis de la base '/ ''/ ' '/ '

Análisis de la base de datos

'/ /* ------------------------ ESTADO DE LA BASE ------------------------ */ '
base ',v1001,'
fecha y hora ',v1003,'
registros procesados ',v1009,'
registros activos ',v1010,'
registros borrados lógicamente ',v1011,'
registros borrados físicamente ',v1012,'
siguiente MFN ',v1013,'
'/ /* ------------------------ CAMPOS PRESENTES ------------------------ */ ''/ proc('d3a3|',f(nocc(v1020),1,0),'|'), /* loop sobre v1020 */ ( '' '', '', '', '', '', '', ''/ ) '
tag registros occ mín máx bytes
',v1020^t,'',v1020^d,'',v1020^o,'',v1020^l,'',v1020^u,'',v1020^n,'
'/ /* ------------------------ CARACTERES PRESENTES ------------------------ */ ''/ /* loop sobre v1030 */ ( /* 1,2,3: campos auxiliares para obtener el código en decimal */ proc('d1a1|', select v1030^x.1 case 'a' : '10', case 'b' : '11', case 'c' : '12', case 'd' : '13', case 'e' : '14', case 'f' : '15', elsecase v1030^x.1, endsel '|') proc('d2a2|', select v1030^x*1.1 case 'a' : '10', case 'b' : '11', case 'c' : '12', case 'd' : '13', case 'e' : '14', case 'f' : '15', elsecase v1030^x*1.1, endsel '|') proc('d3a3|',f(16*val(v1[1]) + val(v2[1]),1,0),'|'), /* a partir del código 128 usamos una nueva tabla */ if val(v3[1]) > 127 and v11[1] = '' then proc('d11a11|*|'), '
hex dec char descripción #
'/ ''/ fi, '' '', '', '', /* sólo sirve para ISO-8859-1 */ '', '', ''/ ) '
hex dec char descripción #
',mpu,v1030^x,mpl'',v3[1]'&#',v3[1],';', select v1030^x case '08' : 'BACKSPACE', case '20' : 'espacio', case '27' : 'apóstrofe', /* comilla simple */ case '5f' : 'guión bajo', case '60' : 'acento grave', case '7e' : 'tilde', case '7f' : 'DELETE', /* =========================================== */ case '80' : 'euro', case '85' : 'elipsis', case '88' : 'circunflejo', /* ------------------------- */ case '99' : 'trademark', /* ------------------------- */ case 'a0' : 'espacio de "no ruptura"', case 'a1' : 'signo de exclamación abierta', case 'a2' : 'centavo', case 'a3' : 'libra esterlina', case 'a4' : 'signo monetario', case 'a6' : 'barra vertical partida', case 'a7' : 'signo de sección', case 'a8' : 'diéresis', case 'a9' : 'copyright' case 'aa' : 'ordinal femenino', case 'ab' : 'comillas francesas de apertura', case 'ac' : 'signo de negación', case 'ad' : 'guión separador de sílabas', case 'af' : 'macrón', /* ------------------------- */ case 'b0' : 'grado', case 'b1' : 'más-menos', case 'b2' : 'superíndice 2', case 'b3' : 'superíndice 3', case 'b4' : 'acento agudo', case 'b5' : 'micro', case 'b7' : 'punto centrado', case 'b8' : 'cedilla', case 'b9' : 'superíndice 1', case 'ba' : 'ordinal masculino', case 'bb' : 'comillas francesas de cierre', case 'bc' : 'fracción un cuarto' case 'bf' : 'signo de interrogación abierta', /* ------------------------- */ case 'd0' : 'eth mayúscula', case 'd7' : 'signo de multiplicación', case 'de' : 'thorn mayúscula', case 'df' : 's aguda alemana', /* ------------------------- */ case 'f0' : 'eth minúscula', case 'f7' : 'signo de división', case 'fe' : 'thorn minúscula', elsecase ' ', /* default: espacio */ endsel, '',v1030^n,'
', {{tag>isis}}