RE: Another RPG Suggestion

["Bob Cozzi" <cozzi@xxxxxxxxx>]

We need the ability to LIKE() a field like this:

  D   CustNo        S                7P 0
  D  workCust       S                 A      Like(CustNo)
  D  zonedCust      S                 S      Like(CustNo)


  C                 MOVE      CustNo        WorkCust
  C                 Eval      x = %subst(WorkCust : n : l )




Bob Cozzi

http://www.RPGIV.com




> -----Original Message-----
> From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
> Behalf Of boldt@ca.ibm.com
> Sent: Tuesday, July 13, 1999 9:24 AM
> To: RPG400-L@midrange.com
> Subject: Re: Another RPG Suggestion
> 
> 
> 
> 
> Colin wrote:
> >Sorry to ask,
> >
> >but how about the the ability to define one field LIKE another in the D
> >spec, but with the additional ability of changing the
> >DATATYPE and LENGTH,
> > as you can do in DDS.
> >
> >I think this would be another feature that would save a lot of code
> >crunching.
> 
> Don't apologize!  This has been on our "proposed enhancements"
> list for a while.  Currently, you can change length on a D-Spec
> LIKE, but you can't change format.
> 
> Regarding changing data type, I'd like to know more about
> what you really want.  In particular, are you primarily
> interested in defining a numeric field like say a zoned
> decimal field and change the format to packed?  Or do you
> need to define a character field like a numeric field?
> 
> Also, what coding scenarios would be made easier by this?
> 
> Cheers!  Hans
> 
> Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.com
> 
> 
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * This is the RPG/400 Discussion Mailing List!  To submit a new         *
> * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
> * from this list send email to MAJORDOMO@midrange.com and specify       *
> * 'unsubscribe RPG400-L' in the body of your message.  Questions should *
> * be directed to the list owner / operator: david@midrange.com          *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *