base bdrel cipar SubExpresion count Mfn (v3001/) Operador (v2028/) LastKey campo Seleccion Diccio prefijo tagfst id Expresion Formato prologo epilogo FormatoFinal FormatoRelacion Diferido Accion Opcion reverse Desplegar tabular cat(v5015) cat('isisac.tab') cat('isisuc.tab') 200000 select s(v9001) case 'diccionario': 'PRESENTAR_DICCIONARIO' case 'buscar_en_este': 'BUSCAR' case 'buscar': 'BUSCAR' case 'busquedalibre': 'BUSCAR' case 'ubicar': 'UBICAR' case 'leerregistro': 'LEERREGISTRO' case 'ver': 'VER' endsel VER @prologoact.pft v5001 v2000 v2000 Isis_Current Isis_Total Isis_Status Isis_RecordStatus 5001 3030 3031 3032 3033 9080 if val(v1091)=1 then 'Registro eliminado
' fi '@'v3030,v5001'.pft' if a(v3032) or a(v5000) then 'SINRELACION' fi f(mfn,1,0) SINRELACION if p(v3031) then '@'v3031,v5001'.pft' fi 1 LEERREGISTRO v5001 v2000 v2000 Isis_Total Isis_Status Isis_RecordStatus 3030 5001 if val(v1102)=1 then 'Registro Eliminado' fi if a(v3030) then 'ALL' else '@'v3030,v5001'.pft' fi 1 PRESENTAR_DICCIONARIO v5001 if p(v2050) then v2050 else v2020 fi if p(v2050) then v2050.2'ZZZZZ' else v2020.2'zzzz' fi 200 Isis_Key Isis_Postings @ifpro.pft @ifp.pft 2010 @ifepil.pft 1 BUSCAR v5001 v2000 if a(v2001) then '25' else v2001 fi V9015 (v3005[1],v3000,v4012[1] if iocc Isis_Current Isis_Total Isis_From Isis_To Isis_Status (v3005[1],v3000,v4012[1] if iocc if p(v3040) then '@'v3040,v5001'.pft' else '@prologo.pft' fi 5001 5015 3030 3031 3032 3040 3050 3000 8000 8050 8001 1091 9080 '@'v3030,v5001'.pft' if a(v3032) then 'SINRELACION' fi f(mfn,1,0) SINRELACION if p(v3031) then '@'v3031,v5001'.pft' fi 3000 if a(v304) then if v3030='ad' or v3030='v1' then'@epilogoact.pft', else if P(v3050) then '@'v3050,v5001'.pft' else '@epilogo.pft' fi fi fi 1 UBICAR v5001 v4001 '1' v3000 Isis_Current Isis_Total Isis_From Isis_To f(mfn,1,0)/ if v1002='0' then 'NO EXISTE' /fi 1