|
Por si te sirve de algo un ejemplo del
manual� aunque es antiguo.. Saludos Paco Medina Exclusivas Camacho, S.Ltda. Dtor.Informatica De:
[EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Jaime Villa Torres Alguien de ustedes tiene un peque�o ejemplo PRACTICO para
utilizar en RPGIV la palabra EXTFILE. Jaime Villa T. |
4.4.74.4 Ejemplos
Las consideraciones que se enumeran en los ejemplos siguientes tambi�n se
aplican a la operaci�n CLEAR, excepto en el caso de las operaciones que se
realizan realmente sobre los campos. En la Figura 189 se muestra un
ejemplo de la operaci�n RESET con *NOKEY.
--------------------------------------------------------------------------
*...1....+....2....+....3....+....4....+....5....+....6....+....7...+....
FEXTFILE O E DISK
D
* El archivo EXTFILE contiene un formato de registro RECFMT que
* contiene los campos de caracteres CHAR1 y CHAR2 y los campos
* num�ricos NUM1 y NUM2. Tiene los campos de clave CHAR2 y NUM1.
D
D DS1 DS
D DAY1 1 8 INZ('MONDAY')
D DAY2 9 16 INZ('THURSDAY')
D JDATE 17 22
D
*
* La operaci�n siguiente establece DAY1, DAY2 y JDATE como blancos.
C
C CLEAR DS1
C
* La operaci�n siguiente establecer� DAY1, DAY2 y JDATE a sus
* valores de restablecimiento 'MONDAY', 'THURSDAY' y UDATE
* respectivamente. El valor de restablecimiento de UDATE
* para JDATE se establece en la *INZSR.
C
C RESET DS1
C
* La operaci�n siguiente establecer� CAR1 y CAR2 como blancos, y
* NUM1 y NUM2 como cero.
C CLEAR RECFMT
* La operaci�n siguiente establecer� CHAR1, CHAR2, NUM1 y
* NUM2 con sus valores de restablecimiento 'NAME', 'ADDRESS', 1
* y 2 respectivamente. Estos valores se establecen en la *INZSR.
*
C RESET RECFMT
* La operaci�n siguiente establece todos los campos del formato de
* registro como blancos, excepto los campos de clave CHAR2 y NUM1.
*
| C *NOKEY RESET *ALL RECFMT
| C RETURN
C
C *INZSR BEGSR
C MOVEL UDATE JDATE
C MOVEL 'NAME ' CHAR1
C MOVEL 'ADDRESS ' CHAR2
C Z-ADD 1 NUM1
C Z-ADD 2 NUM2
� Copyright IBM Corp. 1994, 1996
4.4.74.4 - 1
ILE RPG/400 Manual de Consulta
Ejemplos
C ENDSR
| ORECFMT T
| O CHAR1
| O CHAR2
| O NUM1
| O NUM2
--------------------------------------------------------------------------
Figura 189. Operaci�n RESET con *NOKEY
--------------------------------------------------------------------------
A R RECFMT
A CHAR1 10A
A CHAR2 10A
A NUM1 5P 0
A NUM2 7S 2
--------------------------------------------------------------------------
Figura 190. DDS para EXTFILE
