Subcampos repetibles en Isis

Una manera de implementar el acceso a todas las ocurrencias de un subcampo repetible en una base Isis

$ mx tmp "proc='a100|1#^aBorges, Jorge Luis,^d1899-^4trl^4aui|'" "proc='a1000|',replace(v100*3,'^','|a1000|'),'|','a1000|##|'"
mfn= 1
100 «1#^aBorges, Jorge Luis,^d1899-^4trl^4aui»
1000 «aBorges, Jorge Luis,»
1000 «d1899-»
1000 «4trl»
1000 «4aui»
1000 «##»
..x

$ mx tmp "proc='a100|1#^aBorges, Jorge Luis,^d1899-^4trl^4aui|'" "proc='a1000|',replace(v100*3,'^','|a1000|'),'|','a1000|##|'" "pft=(if v1000.1='4' then v1000*1/ fi)"
trl
aui