VisualAge RPG Parts Reference - IBM

12 Contorno de hoy
13 Color por omisión para los contornos definidos por el usuario
14 Color por omisión para el texto de usuario
15 Border
16 Números de fecha
17 Contornos de los número de fecha
18 Contorno definido por el usuario (sólo en tiempo de ejecución)
19 Texto de usuario (sólo en tiempo de ejecución)
Ejemplo de formato libre
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C
*
EVAL colarea = %getatr('win01': 'GP1': 'ColorArea')
C colarea IFEQ 3
C EVAL %setatr('win01': 'GP1': 'ColorArea') = 4
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 4 'COLORAREA'
*
130 VisualAge RPG Manual de consulta de componentes