RE: Allocate field with options(*nopass :*omit)

It depends on what release you're targeting the compile.
If you're on V5.2 or later, I believe it works. It should/does work on V5.3.
It was supposed to work on V3.7 but nobody complained until long after V5.1 was
out.

-Bob Cozzi
www.iSeriesTV.com
Ask your Manager to watch iSeriesTV.com


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On
Behalf Of Lim Hock-Chai
Sent: Thursday, August 31, 2006 1:17 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Allocate field with options(*nopass :*omit)

I get the following compile error when try to assign a pointer to a
const variable.  Did I do something wrong?  

RNF7586 20     52 001800  The address of a constant value is used
incorrectly.

Below is the program:
     d example         pr                                            
     d  piParm1                      10a   const options(*varsize)   
      /free                                                          
         example('TTTTTTTTTT');                                      
         *inlr = *on;                                                
      /end-free                                                      
                                                                     
      *==============================================================
      * example
      *==============================================================
     p example         B                                             
     d                 pi                                            
     d  piMyStr                      10a   const options(*varsize)   
                                                                     
     d myStr           s             10a   based(myStr_p)            
                                                                     
      /free                                                          
         myStr_p = %addr(piMyStr);                                   
      /end-free                                                      
                                                                     
     p example         E 


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Klement
Sent: Thursday, August 31, 2006 12:03 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Allocate field with options(*nopass :*omit)

1) I don't think you can do that on a const variable.

You *can* do it on a CONST variable.  I don't think you SHOULD, but you
CAN.