Rename Fields in RPG

[GGM]

Hi,

Somebody knows how can I rename an external file field (more than 6 chars)
in RPG?

Regards.

GGM

[Richard Knechtel]

Make a /COPY member that redefines the fields.
(Example below):

********************************************************************
* DESCRIPTION: THIS COPY MEMBER IS USED TO REDEFINE FIELDS.
* THIS IS NECESSARY BECAUSE
* RPG CANNOT HANDLE FIELDS NAMES THAT ARE
* GREATER THAN 6 CHARACTERS.
********************************************************************
I KMKEYWORD KWWORD
I KMTYPE KWTYPE
I KMSUBTYPE KWSUBT
I KMDESC1 KWDSC1
I KMDESC2 KWDSC2
I KMINPUT KWINP
I KMMESSAGE KWMSG
I KMQUEST KWQUST

--

Richard Knechtel
EDS
(Systems Engineer/System Administrator)
(Aspiring AS/400 GURU)
(Aspiring Linux GURU)
(Aspiring Visual Basic Programmer)

The contents of this message express only MY opinion.
This message does not necessarily reflect the policy or views of
my employer, EDS. All responsibility for the statements
made in this posting resides solely and completely with the
ME.
I Ex-Spaminate spammers!
See US Code Title 47, Sec.227(a)(2)(B), Sec.227(b)(1)(C)
and Sec.227(b)(3)(C).

[Izabela Skibinska]

GGM <gi...@mga.es> wrote in article <6kua9m$cm4$1...@diana.bcn.ibernet.es>...

> Hi,
>
> Somebody knows how can I rename an external file field (more than 6
chars)
> in RPG?
>
> Regards.
>
> GGM
>
>
>

You can add the keword PREFIX on file discription specification to change
the name
of all fields

Izabela Skibinska

[Rob Tromp]

"GGM" <gi...@mga.es> wrote:

>Hi,
>
>Somebody knows how can I rename an external file field (more than 6 chars)
>in RPG?
>
>Regards.
>
>GGM
>

It's quite simple, just add I specs starting with the record format
name

The next lines contain renamed fields

Example:

Record format name = PGHSTIOP
Field PGPDTATP is renamed to PDTATP etc..

IPGHSTIOP 01
I PGPDTATP PDTATP
I PGPTEXT PTEXT
I PGPDATE PDATE

--
Rob Tromp /BSP & SYRES Automation

Private mail : (tro...@euronet.nl)
Business mail: (bsps...@euronet.nl)