Re: Redefining a DS

[Simon Coulter <shc@xxxxxxxxxxxxxxxxx>]

On 11/04/2010, at 11:58 PM, Dennis Lovelady wrote:

> Therein lies the rub.  Maybe I want to propagate *- through the  
> length of a
> string, by setting the first 2 bytes to '*-' and then doing an  
> operation
> like %subst(mystring: 3) = mystring.  I won't get it that way, you're
> saying, and I think that's a loss of function.


You might WANT to do it that way but you don't NEED to do it that way-- 
at least not in RPG.

D myString        S            256
C                   MOVE      *ALL'*-'      myString
C                   EVAL      myString = *ALL'*-'
 /FREE
    myString = *ALL'*-';

same result--more obvious code. COBOL has support for ALL literal too  
but I'm afraid certain less feature rich languages do not. Oh well.

Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         OS/400, i5/OS Technical Specialists

   http://www.flybynight.com.au/
   Phone: +61 2 6657 8251   Mobile: +61 0411 091 400        /"\
   Fax:   +61 2 6657 8251                                   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------