Boolean in RPG ?

[Juliette]

Hello,

I would like to understand, how the boolean works?

For example, I have two variables: (number1 and number2)

If number1 is smaller than number2, it's TRUE else it's FALSE.

My error message is "RNF7416: The types of the right and left hand side do not match in the EVAL operation. "

My problems are in the line Flag = 1; and Flag = 0;

     H
     D Number1         S              3S 0
     D Number2         S              3S 0
     D Flag            S              1N

      *
      /Free

        dsply 'Enter your number1 please : ' '' Number1;
        dsply 'Enter your number2 please : ' '' Number2;

        If (Number1 < Number2);
          Flag = 1;
          dsply ('The value is true => ' + %Char(Flag));

        Else;
          Flag = 0;
          dsply ('The value is false => ' + %Char(Flag));

        ENDIF;


        *inlr = *on;

      /End-free

I thank you for your help.

[UserName10]

Booleans are character fields.

Flag = '1';

[B.Hauser]

Instead of '1' you also can use *ON (or for '0' *OFF)
Since booleans are character there is no need to use the %CHAR() built-in-function in the display statement.

If (Number1 < Number2);
   Flag = *On;
   Dsply ('The value is true => ' + Flag);
EndIf;

Or even simpler;

Flag = (Number1 < Number2);

Birgitta

[Ghost +]

Not sure if you know the all-free declaration of booleans (known as indicators):

dcl-s myFlag ind inz; 

[Juliette]

Hello,

Thank you for your explanations, it works perfectly.

[john.sev99]

Although you may not realise it, *INLR is also an indicator, or boolean if you prefer, that is built into RPG so you are setting it to true on the last line - *INLR = *ON. I tend to use *ON/*OFF for code consistency.

[john.sev99]

Although you may not realise it, *INLR is also an indicator, or boolean if you prefer, that is built into RPG so you are setting it to true on the last line - *INLR = *ON. I tend to use *ON/*OFF for code consistency.

[john.sev99]

Although you may not realise it, *INLR is also an indicator, or boolean if you prefer, that is built into RPG so you are setting it to true on the last line - *INLR = *ON. I tend to use *ON/*OFF for code consistency.