RE: Compile failed when try to do return not SUCCESSFULwhereSUCCESSFULis declared as const

You can do that because the CONST data type is a number.

You can't do    "return not successful" because successful is defined as a
character data type with a value of '1', not an indicator.  What is not of
'1'?  If you want to use successful that way you need to define it as an
indicator,  datatype of "N".

Michael Schutte



                                                                           
             "Lim Hock-Chai"                                               
             <Lim.Hock-Chai@us                                             
             amobility.com>                                             To 
             Sent by:                  "RPG programming on the AS400 /     
             rpg400-l-bounces@         iSeries" <rpg400-l@xxxxxxxxxxxx>    
             midrange.com                                               cc 
                                                                           
                                                                   Subject 
             05/05/2006 02:10          RE: Compile failed when try to do   
             PM                        return not                          
                                       SUCCESSFULwhereSUCCESSFULis         
                                       declared as const                   
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




Yes.  Return without the 'not' work.  I just curious as why I cannot do
"return not constIndicator"

Below is an example to return by const number and it compiles just fine:
D NUM50           c                   const(50)

D proc1           pr             2  0

C                   eval      *inlr = *on

 *------------------------------------------------------
 * test return with constant number
P proc1           B
D                 pi             2  0

C                   return    NUM50*(-1)
P proc1           E

If I can do above, I would think I should also be able to do the same on
indicator.  Don't you wish the compiler would act just what you think it
should :).


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Wilt, Charles
Sent: Friday, May 05, 2006 12:49 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Compile failed when try to do return not SUCCESSFUL
whereSUCCESSFULis declared as const

Lim,

You need to add:

D FAILED          c                   const(*off)


Then you'll be able to do

     return    FAILED;


HTH,


Charles Wilt
--
iSeries Systems Administrator / Developer Mitsubishi Electric Automotive
America
ph: 513-573-4343
fax: 513-398-1121


> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai
> Sent: Friday, May 05, 2006 1:00 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Compile failed when try to do return not SUCCESSFUL where
> SUCCESSFULis declared as const
>
> D SUCCESSFUL      c                   const(*on)
> D proc1           pr              n
>
> C                   eval      *inlr = *on
>  *------------------------------------------------------
>  * test return with not SUCCESSFUL
> P proc1           B
> D                 pi              n
>
> C                   return    not SUCCESSFUL
> P proc1           E
>
>
> I'm getting this:
> Msg id  Sv Number Seq     Message text
>
> RNF7421 30     12 001200  Operands are not compatible with the type of
> operator.
>
>
> If I changed SUCCESSFUL to be a variable, it compile ok.   Any reason
> why I can't do "return not constBoolean"?
> --
> 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.


--
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.