VisualAge RPG Parts Reference - IBM

11 Rosa oscuro
12 Verde oscuro
13 Cian oscuro
14 Marrón
15 Gris claro
Ejemplo de formato libre
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C
*
EVAL CBcolor = %getatr('win01': 'SFL1': 'CellBGClr')
C EVAL %setatr('win01': 'SFL1': 'ColNumber') = 1
C EVAL %setatr('win01': 'SFL1': 'Index') = 4
C
*
EVAL %setatr('win01': 'SFL1': 'CellBGClr') = 5
Ejemplo de formato fijo
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C
*
'SFL1' GETATR 'CELLBGCLR' 'CBcolor' 2 0
C 'SFL1' SETATR 1 'COLNUMBER'
C 'SFL1' SETATR 4 'INDEX'
C
*
'SFL1' SETATR 5 'CELLBGCLR'
Capítulo 2. Atributos de componente 103