VisualAge RPG Parts Reference - IBM

SelectList
Devuelve una lista de los índices de los registros seleccionados de un componente
recuadro de lista o subarchivo. La lista se devuelve en forma de serie de caracteres
formada por 6 valores de posición. Cada valor representa el índice del registro
seleccionado.
Tipo Serie
Se aplica a los componentes
Recuadro de lista Subarchivo
Códigos de operación
SETATR
Operativo en tiempo de ejecución
no
GETATR sí
Ejemplo de formato libre
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C EVAL List=%getatr('Win01':'LB1':'SelectList')
*
Ejemplo de formato fijo
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C 'LB1' GETATR 'SELECTLIST' LIST
*
Ejemplo de SelectList
En el fragmento de código siguiente se muestra una manera de procesar diversos
registros seleccionados de un recuadro de lista mediante el atributo SelectList. En
este ejemplo, se supone que se puede seleccionar 10 registros como máximo.
*
D DS
D theList 60A
D T 6 0 Dim(10) Overlay(theList)
*
C 'ListBox' Getatr 'NbrOfSel' N 2 0
*
C If N>0
C 'ListBox' Getatr 'SelectList' theList
*
C Do N I 2 0
C 'ListBox' Setatr T(I) 'Index'
C 'ListBox' Getatr 'GetItem' theItem 60
* ....
* Se procesa el elemento
* ....
C EndDo
*
C EndIf
380 VisualAge RPG Manual de consulta de componentes