|
midrange.com
No.
You've got a hard coded size in there.
I mean something like this:
D myNumFld s 10p0
D myDS DS qualified
D myCharFld a like(myNumFld)
Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
> Michael_Schutte@xxxxxxxxxxxx
> Sent: Wednesday, April 19, 2006 11:19 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: Easy way to define a DS char subfield the same
> size as somenumericfield?
>
> D DS
> D num30 1 3 0
> D Char3 1 3
>
> You mean something like this?
>
> Michael Schutte
>
>
>
>
>
> "Wilt, Charles"
>
> <CWilt@xxxxxxxxxx
>
> om>
> To
> Sent by: "RPG programming on
> the AS400 /
> rpg400-l-bounces@ iSeries"
> <rpg400-l@xxxxxxxxxxxx>
> midrange.com
> cc
>
>
>
> Subject
> 04/19/2006 11:11 Easy way to define a
> DS char
> AM subfield the same size
> as some
> numericfield?
>
>
>
> Please respond to
>
> RPG programming
>
> on the AS400 /
>
> iSeries
>
> <rpg400-l@midrang
>
> e.com>
>
>
>
>
>
>
>
>
>
> All,
>
> I've got a standalone field defined as packed(3,0).
>
> Is there an easy way to define a DS subfiled as char(3)?
>
> In other words, given any specific numeric field, how can a define a
> corresponding character field large enough to hold the numeric data
> without having to hardcode the subfield size?
>
> The DS is used to send out an email message. If there isn't
> an easy way
> to do what I want, I'll just get rid of the DS altogether and
> use eval +
> some bifs to build the message. That may be a better option, but for
> instructional purposes, I would like to show a DS without hard coded
> sizes.
>
>
> Thanks,
>
> Charles Wilt
> --
> iSeries Systems Administrator / Developer
> Mitsubishi Electric Automotive America
> ph: 513-573-4343
> fax: 513-398-1121
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
