VisualAge RPG Parts Reference - IBM

11 Rosa oscuro
12 Verde oscuro
13 Cian oscuro
14 Marrón
15 Gris claro
Nota: No se puede utilizar el color por omisión (-1) para SETATR.
Ejemplo de formato libre
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C
*
EVAL color = %getatr('win01': 'GP1': 'Color')
C color IFEQ *Red
C EVAL %setatr('win01': 'GP1': 'Color') = *Blue
C
*
ENDIF
Ejemplo de formato fijo
*...1....+....2....+....3....+....4....+... .5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C 'GP1' SETATR *BLUE 'COLOR'
*
128 VisualAge RPG Manual de consulta de componentes