Re: passing numeric data

Hi Scott -

>Date: Wed, 8 Mar 2000 10:22:41 -0600 (CST)
>From: Scott Klement <klemscot@klements.com>
>Subject: Re: passing numeric data
>
>This is an interesting question.  
>
>RPG IV can both receive and pass zoned decimal parameters directly.
>I'd think that this would solve your problem.
>
>If for some odd reason you MUST be able to handle both zoned and packed
>data, you could do it with pointers...    Its a lot of horsing around, but
>it SHOULD work.   Theres an example of doing this at the bottom of this
>message.  

Why bother with pointers?

     d parm1           ds             7                    
     d  zoned1                 1      7s 0                 
     d  packed1                1      4p 0                 
     d*                                                    
     d myparm1         s              7  0                 
     c*                                                    
     c     *entry        plist                             
     c                   parm                    parm1     
     c*                                                    
     c                   if        %subst(parm1:1:1) >= '0'
     c                   eval      myparm1 = zoned1        
     c                   else                              
     c                   eval      myparm1 = packed1       
     c                   endif                             

Ken
Southern Wine and Spirits of Nevada, Inc.
Opinions expressed are my own and do not necessarily represent the views of
my employer or anyone in their right mind.

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---