RE: Renaming Fields in the D specs

["Bob Cozzi \(RPGIV\)" <cozzi@xxxxxxxxx>]

The example that Mark sent is close to correct, he omitted the "E" in
column 22 (I think?) so the example should be like this:


> D xternalDS  E DS                           extName(FileName)
> D  field1    E                              extFLD(newField1)
> D   field2   E                              extFLD(newField2)


FYI, this is #3 dumb syntax in RPG IV on my list of top ten dumb syntax
issues in RPG IV. Why do we need an "E" if the EXTFLD() keyword is
there?

Bob Cozzi
cozzi@rpgiv.com
Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of Mark McCarty
> Sent: Tuesday, December 04, 2001 3:47 PM
> To: rpg400-l@midrange.com
> Subject: Re: Renaming Fields in the D specs
>
>
> Troy,
>
> Use an external ds to identify the file, then use EXTFLD to redefine
the
> desired fields.
>
> D xternalDS  E DS                   extName(FileName: {optional format
> name})
> D  field1                                  extFLD(newField1)
> D   field2                                 extFLD(newField2)
>
> Hope this is what you need....
>
> MarK A McCarty
> AS/400 Programmer/Developer
> Navy Exchange Service Command
>
>
>
>
>                     Troy.C.Dills@blum
>                     .com                    To:
rpg400-l@midrange.com
>                     Sent by:                cc:
>                     rpg400-l-admin@mi       Fax to:
>                     drange.com              Subject:     Renaming
Fields in
> the D specs
>
>
>                     12/04/2001 04:05
>                     PM
>                     Please respond to
>                     rpg400-l
>
>
>
>
>
>
> Hello all
>
> Could some please give me a code snippet of how to rename 2 fields out
of a
> record format using
> the D specs instead of the I specs.  Thanks a bunch
>
> Thanks
> Troy Dills
> Julius Blum Inc.
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
>
>
>
> **********************************************************************
> This email and any files transmitted with it are intended solely for
> the use of the individual or agency to whom they are addressed. If
> you have received this email in error please notify the Navy Exchange
> Service Command e-mail administrator.
>
> This footnote also confirms that this email message has been scanned
> for the presence of computer viruses.
>
> messaging_support_team@nexnet.navy.mil
> **********************************************************************
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.