Agregar parámetros propios al archivo DBN.def

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

UNICODE=Y

  1. Editar el iah.xis y bajo 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