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

AllowLink * Restricción: Este atributo no está soportado en las aplicaciones Java. Este atributo determina si el componente destino especificado por el atributo AddLink o DDEAddLink generará un evento Link cuando el componente origen se modifique. Tipo Numérico Se aplica a los componentes Recuadro de selección Campo de entrada Imagen Recuadro de lista Medios Panel de medios Graduador Temporizador Códigos de operación SETATR* Operativo en tiempo de ejecución sí GETATR sí * Nota: Puede definirse utilizando el cuaderno de propiedades del diseñador GUI. Para ello, utilice la página Enlace y seleccione Habilitar notificación al destino. Valor permitido El valor de AllowLink puede ser uno de los siguientes: 0 El evento Link no se señala 1 El evento Link se señala 70 VisualAge RPG Manual de consulta de componentes

Ejemplo de formato libre *...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq---- * C EVAL allow = %getatr('win01': 'EF1': 'AllowLink') * C allow IFEQ 1 C EVAL %setatr('win01': 'EF1': 'AllowLink') = 0 * C ELSE C EVAL %setatr('win01': 'EF1': 'AllowLink') = 1 C ENDIF * Ejemplo de formato fijo *...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq---- * C * 'EF01' GETATR 'ALLOWLINK' ALLOW 1 0 C ALLOW IFEQ 1 C * 'EF01' SETATR 0 'ALLOWLINK' C ELSE C * 'EF01' SETATR 1 'ALLOWLINK' C * ENDIF Capítulo 2. Atributos de componente 71

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 allow = %getatr('win01': 'EF1': 'AllowLink')<br />

*<br />

C allow IFEQ 1<br />

C EVAL %setatr('win01': 'EF1': 'AllowLink') = 0<br />

*<br />

C ELSE<br />

C EVAL %setatr('win01': 'EF1': 'AllowLink') = 1<br />

C ENDIF<br />

*<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<br />

*<br />

'EF01' GETATR 'ALLOWLINK' ALLOW 1 0<br />

C ALLOW IFEQ 1<br />

C<br />

*<br />

'EF01' SETATR 0 'ALLOWLINK'<br />

C ELSE<br />

C<br />

*<br />

'EF01' SETATR 1 'ALLOWLINK'<br />

C<br />

*<br />

ENDIF<br />

Capítulo 2. Atributos de componente 71

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

Saved successfully!

Ooh no, something went wrong!