xOn

base cipar Opcion Word Expresion Tag Formato LastKey prefijo letra posttag posting count cat(v5015) ALL cat('isisac.tab') cat('isisuc.tab') select s(v9001) case 'buscar': 'BUSCAR' case 'presentar': 'PRESENTAR' case 'expresion': 'EXPRESION' endsel v5001 v2020 if p(v2050) then v2050 else v2020,'ZZZZZZZZ' fi if a(v2028) then '' else v2028 fi if a(v2027) then '180' else v2027 fi Isis_Posting Isis_Key Isis_Postings 5001 e1:=val(v3^o), e3:=val(v3^t), v2011'$$$' ,ref([v5001]val(v3^m), proc('a1999~'f(e1,1,0)'~') proc('a2999~'f(e3,1,0)'~') (if iocc=val(v1999[1]) then , select e3 case 9: if p(v9) then mpu,v9,'$$$!K'mpu,v9,mpl,else fi/ case 40: if p(v40) then mpu,v40,'$$$!Q'mpu,v40.28,mpl,else 'Sin pais$$$!QSin pais' fi/ case 43: v43.4,'$$$!F'mpu,v43.4,mpl/ case 37: v37,'$$$?A'mpu,v37,mpl,/ case 39: v39,'$$$!G'mpu,v39,mpl,/ case 205: v205.4'$$${F'mpu,v205.4,mpl,/ endsel , fi) ), Isis_Current Isis_Items Isis_Item 2020 2020 (v1/) 1 EXPRESION v5001 mpu,v3000 Isis_Current Isis_Total Isis_From Isis_To Isis_Status v1002 1 BUSCAR v5001 mpu,v3000 Isis_Current Isis_Total Isis_From Isis_To Isis_Status 3030 3000 'mpu,'v3030/ # 1 PRESENTAR v5001 v3000 Isis_Current Isis_Total Isis_From Isis_To Isis_Status if a(v9005) then @prologo.pft fi 3030 3000 3031 9005 '@'v3031'.pft' # 1