XISIS
cp leisref.fst baserel.fst vi baserel.fst
* mx leisref fst=@baserel.fst
* mx leisref fst=@baserel.fst create=baselist uctab=ansi actab=ansi -all now
mx baselist "pft=if v67:'PAIS' then @baserel.pft fi" lw=9999 -all now
baserel.pft
s(mpl), 'ID: 'mfn/, "Fuente: "v1111^*/, "Órgano Emisor: "v4444^*/, "Tipo del acto: "v5555^*/, "Número del acto: "v6666^*/, "Título: "v7777^*/, "Fecha de emisión: "v8888^*"/"v9999^*"/"v1010^*/, "Resumen: ",(v1212^*' ')/, "País: ",v1717^*/#
Para gerar base dos campos das tabelas (org, acttype, source) repetir os com * do XISIS acima
mx baselist "pft=if v67:'PAIS' then mfn,'|',v30^*,'|',v71^*,'|',v11^*/ fi" lw=999 now > pais.lst mx seq=pais.lst create=pais -all now
