RE: using LIKE() for data length and changing data type

Probably not....  

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



-----Original Message-----
From: Dan [mailto:dbcerpg@xxxxxxxxx]
Sent: Wednesday, February 19, 2003 11:19 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: using LIKE() for data length and changing data type


Any takers on this?

--- Dan <dbcerpg@xxxxxxxxx> wrote:
> Assuming mydbfld is 8,0 packed, in your example, Myfld will also be 8,0
packed.  I want Myfld to
> be an 8 byte character data type.  I envisioned being able to do something
like:
> 
>  D p_glDate        s               a   LIKE( JAGLDT ) 
> 
> or maybe even 
> 
>  D p_glDate        s               a   %LEN( JAGLDT ) 
> 
> where JAGLDT is an 8,0 packed numeric, and I want p_glDate to be an 8-byte
character data type. 
> The reason for this is that p_glDate is a parameter passed to the program
from a Java app on the
> web, and it is my impression that the Java app cannot (easily?) pass
packed data.  In fact, the
> web app is already written, and I was rewriting the server app on the
AS/400, but wanting to
> avoid
> coding this:
> 
>  D p_glDate        s              8a
> 
> I have several numeric fields for which the corresponding *Entry parameter
fields are character.
> 
> TIA, Dan
> 
> --- rob@xxxxxxxxx wrote:
> > If you do a 
> > D myds  Ds
> > D  Myfld                   like(mydbfld)
> > 
> > Is Myfld packed?  If so then wouldn't myds be that length?
> > 
> > (Sample may not be positionally correct)
> > 
> > Rob Berendt
> > 
> > 
> > 
> > Dan <dbcerpg@xxxxxxxxx>
> > Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> > 02/18/2003 03:21 PM
> > Please respond to RPG programming on the AS400 / iSeries
> >  
> > 
> > I thought this was possible, but am getting stumble-blocked.
> > 
> > I want to define a stand-alone variable in RPG-IV (v4r5) that is
character 
> > with the same length as
> > the data length of a database field that is a packed numeric.  So, if 
> > field CustNumber in a file
> > is defined as 8,0 packed, I want a standalone field CustNumberAlpha to
be 
> > defined as 8 character. 
> > Without having to hardcode the 8.
> > 
> > A data type entry is not allowed on a D-spec when the LIKE keyword is 
> > being used.
> > 
> > Is there a way to do this in v4r5?  If not, how about v5r2?
> > 
> > TIA, Dan

__________________________________________________
Do you Yahoo!?
Yahoo! Shopping - Send Flowers for Valentine's Day
http://shopping.yahoo.com
_______________________________________________
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.