VisualAge RPG Parts Reference - IBM

Ejemplo de formato libre
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C EVAL %setatr('win01': 'LB1': 'Sequence') = 1
*
C EVAL rc = %getatr('win01': 'LB1': 'Sequence')
*
Ejemplo de formato fijo
Cambiar la secuencia de un recuadro de lista:
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C
*
'LB1' GETATR 'SEQUENCE' sequence 1 0
C sequence IFEQ 1
C
*
'LB1' SETATR 2 'SEQUENCE'
C ELSE
C sequence IFEQ 2
C
*
'LB1' SETATR 3 'SEQUENCE'
C ELSE
C 'LB1' SETATR 2 'SEQUENCE'
C
*
ENDIF
C
*
ENDIF
384 VisualAge RPG Manual de consulta de componentes