VisualAge RPG Parts Reference - IBM

Ejemplo de formato libre
Conmutar el estado de sólo lectura de un campo de entrada:
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C
*
EVAL rc = %getatr('win01': 'EF1': 'ReadOnly')
C rc IFEQ 1
C EVAL %setatr('win01': 'EF1': 'ReadOnly') = 0
C ELSE
C EVAL %setatr('win01':
'EF1': 'ReadOnly') = 1
C
*
ENDIF
Ejemplo de formato fijo
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C
*
'EF1' GETATR 'READONLY' rc 1 0
C rc IFEQ 1
C 'EF1' SETATR 0 'READONLY'
C ELSE
C 'EF1' SETATR 1 'READONLY'
C
*
ENDIF
Capítulo 2. Atributos de componente 349