VisualAge RPG Parts Reference - IBM

AppData
Contiene datos globales a los que cualquier componente puede hacer referencia.
Este atributo proporciona una alternativa a la transferencia de parámetros que, en
caso contrario, deben declararse.
Tipo Serie
Se aplica a los componentes
*Componente lógico
Códigos de operación
SETATR
Operativo en tiempo de ejecución
sí
GETATR sí
Ejemplo de formato libre
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C EVAL %setatr('*Component': '*Component': 'AppData')
C = NData
C EVAL TmpFld=%getatr('*Component':'*Component':
C
*
'AppData')
Ejemplo de formato fijo
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C '*COMPONENT' SETATR NData 'APPDATA'
C
*
'*COMPONENT' GETATR 'APPDATA' TmpFld
72 VisualAge RPG Manual de consulta de componentes