IAH Agregar parámetros propios al archivo DBN.def

From ABCD Wiki
Revision as of 18:45, 6 July 2015 by Guilda (talk | contribs) (Página creada con «1. Definir el parámetro al final del DBN.def, por ejemplo: '''UNICODE=Y''' 2. Editar el iah.xis y bajo <nowiki><function name="LoadBaseDef"></nowiki> modificar el bloque...»)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

1. Definir el parámetro al final del DBN.def, por ejemplo:

UNICODE=Y

2. Editar el iah.xis y bajo <function name="LoadBaseDef"> modificar el bloque

   <field action="replace" tag="5018">
        <pft>(
                if left(v1,instr(v1,'=')-1) : 'FEATURES'  then '^f',mid(v1,instr(v1,'=')+1,size(v1)) fi,
                if left(v1,instr(v1,'=')-1) : 'SEND RESULT BY EMAIL' then '^e',mid(v1,instr(v1,'=')+1,size(v1)) fi,
                if left(v1,instr(v1,'=')-1) : 'KEYRANGE SUFFIX' then '^k',mid(v1,instr(v1,'=')+1,size(v1)) fi,
                if left(v1,instr(v1,'=')-1) : 'SEARCH ACTAB' then '^a',mid(v1,instr(v1,'=')+1,size(v1)) fi,
                if left(v1,instr(v1,'=')-1) : 'SEARCH UCTAB' then '^u',mid(v1,instr(v1,'=')+1,size(v1)) fi,
                if left(v1,instr(v1,'=')-1) : 'UNICODE' then '^z',mid(v1,instr(v1,'=')+1,size(v1)) fi,
            )</pft>
    </field>

Agregando la línea que está resaltada

Entonces, en v5018^z se tendrá el valor de la variable UNICODE que se definió en el DBN.def. Este valor podrá luego ser usado en los formatos del iAH