RE: Easy way to define a DS char subfield the same size assomenumericfield?

Lim,

Thanks, I figured I could rig something up using multiple data
structures.

I've not tested it, but while I assume it would work I don't think it
would fit the definition of "Easy" originally asked for.

In addition, I'm not sure it would work if myNumFld was defined as 10p2
and the char value I wanted to see was '12.25-'.

Again, not a big deal, in this I've gotten rid of the DS altogether, I
just wondered if there was an "easy" way for future reference. 

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 Lim Hock-Chai
> Sent: Wednesday, April 19, 2006 2:00 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Easy way to define a DS char subfield the same 
> size assomenumericfield?
> 
> Not intuitive, but below should work
>      D myNumFld        s             10p0  
>      
>      D myNumFldSize    ds                                  
>      D  dummy1                             like(myNumFld)  
>      D  dummy2                       -1    like(myNumFld)
>                                                       
>      D myDS            DS                  qualified
>      D                                9a   inz('Value is:')
>      D  myCharFld                    -1    like(myNumFldSize)
> 
>      C                   eval      myDs.myCharFld =
> %edtcde(myNumFld:'X')
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Wilt, Charles
> Sent: Wednesday, April 19, 2006 12:05 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Easy way to define a DS char subfield the same size
> assomenumeric field?
> 
> 
> What I'd like to be able to do is the following:
> 
>      D myNumFld        s             10p0  
> 
>      D myDS            DS                  qualified
>      D                                9a   inz('Value is:')
>      D  myCharFld
> like(%size(%edtcde(myNumFld:'X'))
> 
>      C                   eval      myDs.myCharFld =
> %edtcde(myNumFld:'X')
> 
> 
> 
> -- 
> 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.
> 
>