VisualAge RPG Parts Reference - IBM

Ejemplo de formato libre
Conmutar el estado de Visible de un componente:
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C
*
EVAL isVisible = %getatr('win01': 'EF1': 'Visible')
C isVisible IFEQ 1
C
*
EVAL %setatr('win01': 'EF1': 'Visible') = 0
C ELSE
C EVAL %setatr('win01': 'EF1': 'Visible') = 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 'VISIBLE' IsVisible 1 0
C IsVisible IFEQ 1
C
*
'EF1' SETATR 0 'VISIBLE'
C ELSE
C 'EF1' SETATR 1 'VISIBLE'
C
*
ENDIF
446 VisualAge RPG Manual de consulta de componentes