Buenos días

Si de sencillo

dcl-f file1 disk(*ext) usage(*update) prefix(@);

Salu2




Txema Sagredo Sancho
Solutions Management
DHL Parcel Iberia, S.L.U.
Paseo Mikeletegi, nº 65
Parque Tecnológico de San Sebastián
E-20009 San Sebastián
Phone: +34 943 37 92 59
txema.sagr...@dhl.com<mailto:txema.sagr...@dhl.com>
www.dhl.es<http://www.dhl.es/>
[LOGO DHL PARCEL]
GOGREEN - Environmental protection with DHL
Por favor, ten en cuenta el medio ambiente antes de imprimir este correo

From: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] On Behalf Of Javier B.
Sent: jueves, 22 de agosto de 2019 9:00
To: 'forum.help400'
Subject: Renombrar campos de archivo con ile rpg free

Buenos días :

¿Alguien me podría decir cómo renombar los campos de un archivo con la sintaxis 
de ile rpg free?
Basándome en los comentarios del foro, he hecho este fuente de ejemplo 
mezclando formato libre con fijo.

Primero me gustaría saber si es correcto :

ctl-opt datedit(*ymd) datfmt(*iso);
dcl-f file1 disk(*ext) usage(*update);

       //Renombar campos file1
     Ireg1          21
     I              ANYARR                      @NYARR
     I              MESARR                      @ESARR
     I              DIAARR                       @IAARR

       //sentencias

       *inlr = *on;

A modo de ejemplo, me interesaría utilizar los campos del archivo renombrados 
como @nyarr, @esarr, etc.

Y luego, si habría otra forma más "elegante" de hacerlo, es decir, utilizando 
el formato libre.

Un saludo y gracias,
Javier

[https://ipmcdn.avast.com/images/icons/icon-envelope-tick-round-orange-animated-no-repeat-v1.gif]<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail>

Libre de virus. 
www.avast.com<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail>


____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Responder a