VisualAge RPG Parts Reference - IBM

OpenEdit
Determina si se puede editar un campo de entrada de un registro de subarchivo.
Antes de establecer este atributo, debe establecer los atributos ColNumber e Index.
El valor devuelto por el atributo OpenEdit indica si hay algún campo del
subarchivo abierto en este momento para su edición. Por consiguiente, no es
necesario establecer primero los atributos ColNumber e Index antes de obtener
este atributo.
Cuando el atributo OpenEdit está establecido en 0, se cierran todos los campos
abiertos actualmente para edición. Los atributos ColNumber e Index se pasan por
alto.
Tipo Numérico
Se aplica a los componentes
Subarchivo
Códigos de operación
SETATR
Operativo en tiempo de ejecución
sí
GETATR sí
Valor permitido
OpenEdit puede tener uno de los siguientes valores:
0 El campo no se puede editar
1 El campo se puede editar
Ejemplo de formato libre
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C
*
EVAL isopen = %getatr('win01': 'SF1': 'OpenEdit')
C
*
EVAL %setatr('win01': 'SF1': 'OpenEdit') = 1
Ejemplo de formato fijo
*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----
*
C 'SF1' GETATR 'OPENEDIT' isopen
*
310 VisualAge RPG Manual de consulta de componentes