VisualAge RPG Parts Reference - IBM

Valor permitido
El valor de FontBold puede ser uno de los siguientes:
0 El font no se visualiza en negrita
1 El font se visualiza en negrita
Ejemplo de formato libre
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C
*
EVAL bold = %getatr('win01': 'ST1': 'FontBold')
C bold IFEQ 0
C EVAL %setatr('win01': 'ST1': 'FontBold') = 1
C ELSE
C EVAL %setatr('win01': 'ST1': 'FontBold') = 0
C
*
ENDIF
Ejemplo de formato fijo
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C
*
'ST1' GETATR 'FONTBOLD' bold 1 0
C
*
'ST1' SETATR 1 'FONTBOLD'
Capítulo 2. Atributos de componente 203