VisualAge RPG Parts Reference - IBM

MsgData
Especifica el texto de sustitución para las variables que aparezcan en el texto del
mensaje. Si hay varias variables, utilice un espacio para delimitar cada texto de
sustitución. Utilice el carácter de subrayado ( _ ) para incluir espacios en blanco
en el texto de sustitución. Por ejemplo, para utilizar ″A BC″ y ″CustNo″ en las
variables %1 y %2 de un mensaje respectivamente, especifique los datos del
mensaje del modo siguiente:
'A_B_C CustNo'
Tipo Serie
Se aplica a los componentes
*Componente lógico
Códigos de operación
SETATR
Operativo en tiempo de ejecución
sí
GETATR no
Valor permitido
La serie de sustitución de la variable de mensaje
Ejemplo de formato libre
Obtener el texto del mensaje 0001 y utilizar CustNo para la sustitución:
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C EVAL %setatr('*Component':'*Component':'MsgID')=0001
C EVAL %setatr('*Component':'*Component':'MsgData')=CustNo
C EVAL text = %getatr('*Component':'*Component':'MsgText')
*
Ejemplo de formato fijo
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C '*COMPONENT' SETATR 0001 'MSGID'
C '*COMPONENT' SETATR CustNo 'MSGDATA'
C
*
'*COMPONENT' GETATR 'MSGTEXT' text
292 VisualAge RPG Manual de consulta de componentes