VisualAge RPG Parts Reference - IBM

MsgText
Devuelve el texto del mensaje del archivo de mensajes del componente lógico para
el identificador de mensaje especificado.
Tipo Serie
Se aplica a los componentes
*Componente lógico
Códigos de operación
SETATR
Operativo en tiempo de ejecución
no
GETATR sí
Ejemplo de formato libre
Obtener el texto del mensaje 0001:
*...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 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 'MSGID' 0001
C
*
'*COMPONENT' GETATR 'MSGTEXT' text
296 VisualAge RPG Manual de consulta de componentes