RE: RPGV?

["M. Lazarus" <mlazarus@xxxxxxxx>]

Dennis,

 That's easy:

D MyInt     s            10i 0
D MyZoned   s            10s 0
D MyAlpha   s            10a     Inz( '01234567' )

 /Free
      MyInt   = %Int( MyAlpha ) ;
      MyZoned = %Int( MyAlpha ) ;
 /End-Free

 That might be a simpler function to perform, but there's plenty of precedent.


 -mark

At 1/11/10 01:10 PM, you wrote:
> >   BIF's are not subject to the lack of overloading support in
> > RPG.  Plus, this would just expand what is allowed as the result of
> > the operation.  Since this functionality is already part of the fixed
> > format opcode, the hard part has already been done!
>
> Really?  What makes you say that?  Can you show me an example of this?  What
> %BIF returns different data types depending upon how it is used?  'Cuz I
> cannot think of any like that.
>
> >   I'm curious as to why the free format version is restricted to a
> > numeric variable, instead of allowing an array as the result.
>
> I suspect (and "suspect" is a keyword here) that the difference lies in the
> fact that one is a *Function*, falling under the rules and conditions of
> function definitions, and the other is an operation code, which might, by
> its very nature, have much more "open" rules.
>
>
> Dennis Lovelady
> http://www.linkedin.com/in/dennislovelady
> --
> "A closed mouth gathers no flies."
>         -- French Proverb"A closed mouth gathers no feet."
>         -- American Proverb