Re: Renombrar campos de archivo con ile rpg free

[Javier B.]

Muchas gracias Txema pero para coger la idea,  si el campo renombrado tuviera 
un nombre completamente distinto,  es decir,  si el campo original se llamara  
ANYARR pero me gustaría que se llamara,  por ejemplo,  CAM123,  ¿cómo lo 
tendría que poner?

Saludos,
Javier



De: Txema Sagredo Sancho (DHL ES)
Enviado: jueves, 22 de agosto 9:13
Asunto: RE: Renombrar campos de archivo con ile rpg free
Para: forum.help400


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

Libre de virus.
<https://www.avast.com/sig-email?utm_medium=email_source=link_campaign=sig-email_content=webmail>
www.avast.com





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

RE: Renombrar campos de archivo con ile rpg free

[Txema Sagredo Sancho (DHL ES)]

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
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]

Libre de virus. 
www.avast.com



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