You are in: RPG Cafe > RPG Cafe: Spring 2023: Parameter built-in functions %PASSED and %OMITTED

Short URL: https://ibm.biz/rpgcafe_spring_2023_parm_bifs

          dcl-pi *n;
             p1 int(10) options(*omit);
             p2 varchar(20) const options(*nopass);
             p3 varchar(20) const options(*nopass : *omit);
          end-pi;

          // p1 is required, but *OMIT could be passed
          if %passed(p1);
             dsply ('Parameter p1 = ' + %char(p1));
          else;
             dsply ('Parameter p1 is not available');
          endif;

          // p2 is optional
          if %passed(p2);
             dsply ('Parameter p2 = ' + p2);
          else;
             dsply ('Parameter p2 is not available');
          endif;

          // p3 is optional, and *OMIT could be passed
          if %passed(p3);
             dsply ('Parameter p3 = ' + p3);
          else;
             dsply ('Parameter p3 is not available');
          endif;

          // Testing a parameter with OPTIONS(*NOPASS : *OMIT)
          // before %PASSED was available
          if %parms() >= %parmnum(p3)
          and %addr(p3) <> *null;
             dsply ('Parameter p3 = ' + p3);
          else;
             dsply ('Parameter p3 is not available');
          endif;

          dcl-pi *n;
             p1 int(10) options(*omit);
             p2 varchar(20) const options(*nopass : *omit);
          end-pi;

          // p1 is required, but *OMIT could be passed
          if %passed(p1);
             dsply ('Parameter p1 = ' + %char(p1));
          elseif %omitted(p1);
             dsply ('*OMIT was passed for parameter p1');
          else;
             snd-msg *escape 'p1 is a required parameter but '
                           + 'no parameter was passed';
          endif;

          // p2 is optional, and *OMIT could be passed
          if %passed(p2);
             dsply ('Parameter p2 = ' + p2);
          elseif %omitted(p2);
             dsply ('*OMIT was passed for parameter p2');
          else;
             dsply ('No parameter was passed for p2');
          endif;