VisualAge RPG Parts Reference - IBM

|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ParentList
Devuelve la lista, delimitada con blancos, de los ID de padre del registro actual.
Antes de utilizar este atributo, establezca el atributo RecordID en el ID del registro
actual.
Tipo Serie
Se aplica a los componentes
Contenedor
Códigos de operación
SETATR
Operativo en tiempo de ejecución
no
GETATR sí
Ejemplo de formato libre
En el ejemplo siguiente, se supone que se ha seleccionado un registro. Se
determinará cuál es el ID de registro del registro seleccionado.
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
CSRN01Factor1+++++++Opcode(E)+Extended-factor2+++++++++++++++++++++++++----
* Establecer el ID del registro seleccionado
C EVAL %setatr('Main':'CT1':'RecordID')=
C %getatr('Main':'CT1':'FirstSel')
* Obtener la lista de los ID de padre del registro seleccionado
C EVAL ParentL=%getatr('Main':'CT1':'ParentList')
*
Ejemplo de formato fijo
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C 'CT1' GETATR 'FIRSTSEL' ID 4 0
C 'CT1' SETATR ID 'RECORDID'
C
*
'CT1' GETATR 'PARENTLIST' PARENTL 4 0
Capítulo 2. Atributos de componente 323