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 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

VisTitle Determina si el título del contenedor es visible o no. Tipo Numérico Se aplica a los componentes Contenedor Códigos de operación SETATR Operativo en tiempo de ejecución sí GETATR sí Valor permitido Uno de los siguientes: 0 El título no es visible 1 El título es visible Ejemplo de formato libre *...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq---- * C * EVAL %setatr('win01': 'CN1': 'VisTitle) = 1 Ejemplo de formato fijo *...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq---- * C 'CN1' SETATR 1 'VisTitle' * Capítulo 2. Atributos de componente 447

VisTitle<br />

Determina si el título del contenedor es visible o no.<br />

Tipo Numérico<br />

Se aplica a los componentes<br />

Contenedor<br />

Códigos de operación<br />

SETATR<br />

Operativo en tiempo de ejecución<br />

sí<br />

GETATR sí<br />

Valor permitido<br />

Uno de los siguientes:<br />

0 El título no es visible<br />

1 El título es visible<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<br />

*<br />

EVAL %setatr('win01': 'CN1': 'VisTitle) = 1<br />

Ejemplo de formato fijo<br />

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

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

*<br />

C 'CN1' SETATR 1 'VisTitle'<br />

*<br />

Capítulo 2. Atributos de componente 447

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

Saved successfully!

Ooh no, something went wrong!