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

AddRcd Añade un registro nuevo a un contenedor Tipo Serie Se aplica a los componentes Contenedor Códigos de operación SETATR Operativo en tiempo de ejecución sí GETATR no Valor permitido El valor que se transfiere a este atributo debe ser una serie que conste de los parámetros siguientes, cada uno separado por un espacio: Estructura de registro ID Valor numérico utilizado para identificar el registro. Declare este valor de modo que pueda contener la cantidad máxima de registros que espera que contenga el contenedor. Nota: Puede utilizar el atributo GetNewID para que VisualAge RPG genere un identificador exclusivo para usted. Text Texto que aparecerá junto al icono del registro cuando el contenedor esté en la vista de iconos o en la vista de árbol. FileName Nombre de archivo del icono. ParentID Identificador del registro padre de este registro. Si el registro no tiene padre, este parámetro tendrá el valor 0. field_data Este valor es opcional. Si se especifica, los datos se situarán en los campos correspondientes del registro. Es necesario proporcionar datos para todos los campos del registro. El número de campos de cada registro del componente contenedor en el diseñador GUI ya está definido; por tanto, sólo debe especificar ese número. Nota: Si los datos de un campo no están disponibles, utilice el carácter de subrayado (_)como reserva de posición para el campo. Si un campo contiene blancos intercalados, deben sustituirse por el carácter de subrayado antes de añadir el registro. Los blancos intercalados aparecerán en los datos del campo del registro añadido. Los datos de los campos se pueden actualizar después de añadir el registro utilizando el atributo SetRcdFld. Ejemplo de formato libre 62 VisualAge RPG Manual de consulta de componentes

*...1....+....2....+....3....+....4....+....5....+....6....+....7....+. DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++ D NewRecord D RecordID 1 6 D FileName 8 64 D Parent 1 6 INZ(0) D Text 8 20 INZ('Next record') * *...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq---- * C Eval RecordID=%getatr('win01': 'CN1': 'GetNewID') C Eval FileName = 'D:\VRPG\NEW.ICO' C Eval %setatr('win01': 'CN1': 'AddRcd') = NewRecord * Ejemplo de formato fijo *...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq---- * C 'CN1' SETATR NewRecord 'ADDRCD' * Capítulo 2. Atributos de componente 63

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

DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++<br />

D NewRecord<br />

D RecordID 1 6<br />

D FileName 8 64<br />

D Parent 1 6 INZ(0)<br />

D Text 8 20 INZ('Next record')<br />

*<br />

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

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

*<br />

C Eval RecordID=%getatr('win01': 'CN1': 'GetNewID')<br />

C Eval FileName = 'D:\V<strong>RPG</strong>\NEW.ICO'<br />

C Eval %setatr('win01': 'CN1': 'AddRcd') = NewRecord<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 'CN1' SETATR NewRecord 'ADDRCD'<br />

*<br />

Capítulo 2. Atributos de componente 63

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

Saved successfully!

Ooh no, something went wrong!