VisualAge RPG Parts Reference - IBM

|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
AddSrcEvt
Añade un nuevo evento de origen a la lista actual de eventos que supervisa el
componente de referencia a componente lógico. Este atributo permite que un
componente de referencia a componente lógico supervise varios eventos. Para
eliminar eventos de origen de la lista, utilice el atributo RmvSrcEvt.
Para identificar el evento de origen que se añade, especifique juntos los nombres
del componente lógico, la ventana, el componente y el evento. El formato de la
serie es:
'NOMBRECOMPLÓGICO | NOMBREVENTANA | NOMBRECOMP | NOMBREVENTO'
Dado que el compilador no realiza ninguna comprobación de validez, deberá
identificar correctamente cada evento de origen.
Tipo Serie
Se aplica a los componentes
Referencia a
componente lógico
Códigos de operación
SETATR
Operativo en tiempo de ejecución
sí
GETATR no
Ejemplo de formato libre
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+.
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++
D Event
*
S 100
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C EVAL Event='compb|win02|ef02|change'
C EVAL %setatr('win01': 'CRP1':
C
*
'AddSrcEvt')=Event
Ejemplo de formato fijo
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+.
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++
D Event
*
S 100
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C EVAL Event='compb|win02|ef02|change'
C
*
'CRP1' SETATR Event 'ADDSRCEVT'
64 VisualAge RPG Manual de consulta de componentes