RE: Another RPG Suggestion

["Jim" <jcannon@xxxxxxxxxxx>]

oh poor poor you...only a paper copy? I got that great RPG/3 Ruler! 
Stainless steel!!!...yikes...dated 1982!

Date sent:              Tue, 13 Jul 1999 14:49:04 -0500
From:                   Rob Berendt <rob@dekko.com>
Subject:                RE: Another RPG Suggestion
To:                     RPG400-L@midrange.com
Send reply to:          RPG400-L@midrange.com

How would the following be handled?
 D   CustNo        S                7P 2
 D  workCust       S                 A      Like(CustNo)

 C                 MOVE      CustNo        WorkCust

CustNo would be 1234567 not 12345.67.  

I like the direct method versus the workaround, but I thought 
I'd point out the workaround, (which I am sure you already know).

 C                 EVAL      workCust = %editc(CustNo:'Z')
  * workCust now equals 1234567
or
 C                 EVAL      workCust = %editc(CustNo:'4')
  * workCust now equals 12345.67

Those codes are why I still have a cutout of output spec coding 
sheet taped to my wall.




cozzi@rpgiv.com on 07/13/99 02:31:20 PM
Please respond to RPG400-L@midrange.com@Internet
To:     RPG400-L@midrange.com@Internet
cc:      
Fax to: 
Subject:        RE: Another RPG Suggestion

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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *