VisualAge RPG Parts Reference - IBM

VisualAge RPG Parts Reference - IBM VisualAge RPG Parts Reference - IBM

as400bks.rochester.ibm.com
from as400bks.rochester.ibm.com More from this publisher
08.05.2013 Views

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

SetItem Sustituye un elemento existente de la lista. El elemento que se va a sustituir se determina mediante el valor actual del atributo Index para el componente. Para insertar un nuevo elemento en una lista, utilice el atributo InsertItem. Si el atributo Sequence especifica un orden de clasificación (es decir, ascendente o descendente), la posición del elemento una vez actualizado puede ser distinta de la indicada por el atributo Index. Tipo Serie Se aplica a los componentes Recuadro de combinación Códigos de operación Recuadro de lista SETATR Operativo en tiempo de ejecución sí GETATR no Valor permitido El nuevo texto del elemento 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': 'Index') = 5 C EVAL %setatr('win01': 'LB1': 'SetItem') = 'new' * Ejemplo de formato fijo Cambiar el valor actual de un elemento de recuadro de lista: *...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq---- * C 'LB1' SETATR 5 'INDEX' C 'LB1' SETATR 'New' 'SetItem' * Capítulo 2. Atributos de componente 385

SetItem<br />

Sustituye un elemento existente de la lista. El elemento que se va a sustituir se<br />

determina mediante el valor actual del atributo Index para el componente.<br />

Para insertar un nuevo elemento en una lista, utilice el atributo InsertItem.<br />

Si el atributo Sequence especifica un orden de clasificación (es decir, ascendente o<br />

descendente), la posición del elemento una vez actualizado puede ser distinta de la<br />

indicada por el atributo Index.<br />

Tipo Serie<br />

Se aplica a los componentes<br />

Recuadro de<br />

combinación<br />

Códigos de operación<br />

Recuadro de lista<br />

SETATR<br />

Operativo en tiempo de ejecución<br />

sí<br />

GETATR no<br />

Valor permitido<br />

El nuevo texto del elemento<br />

Ejemplo de formato libre<br />

*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8<br />

CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----<br />

*<br />

C EVAL %setatr('win01': 'LB1': 'Index') = 5<br />

C EVAL %setatr('win01': 'LB1': 'SetItem') = 'new'<br />

*<br />

Ejemplo de formato fijo<br />

Cambiar el valor actual de un elemento de recuadro de lista:<br />

*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8<br />

CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----<br />

*<br />

C 'LB1' SETATR 5 'INDEX'<br />

C 'LB1' SETATR 'New' 'SetItem'<br />

*<br />

Capítulo 2. Atributos de componente 385

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!