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

AFAIK as of V5R2 the %ADDR() BIF of a CONST parameter can only be used in a 
boolean expression and that it still can't be used in an EVAL.
  ----- Original Message ----- 
  From: Bob Cozzi 
  To: 'RPG programming on the AS400 / iSeries' 
  Sent: Thursday, August 31, 2006 3:13 PM
  Subject: 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.


  -- 
  This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
  To post a message email: RPG400-L@xxxxxxxxxxxx
  To subscribe, unsubscribe, or change list options,
  visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
  or email: RPG400-L-request@xxxxxxxxxxxx
  Before posting, please take a moment to review the archives
  at http://archive.midrange.com/rpg400-l.


  -- 
  This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
  To post a message email: RPG400-L@xxxxxxxxxxxx
  To subscribe, unsubscribe, or change list options,
  visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
  or email: RPG400-L-request@xxxxxxxxxxxx
  Before posting, please take a moment to review the archives
  at http://archive.midrange.com/rpg400-l.