RE: CEETSTA API

["Bartell, Aaron L. (TC)" <ALBartell@xxxxxxxxxxxxxx>]

>Your code isn't incorrect, but have you ever tried to get the addres of a
CONST parameter ?
I guess I never use CONST, I always use VALUE.  What is the reason you are
using both *Omit and *NoPass? I put together the following and it works fine
for me.

     H DFTACTGRP(*NO)

     D ValidHnd        PR
     D Parm1                          5U 0 CONST
     D Parm2                          5U 0 CONST OPTIONS(*OMIT: *NOPASS)
      /Free

       ValidHnd(1:1);
       ValidHnd(1: *Omit);
       ValidHnd(1);
       *InLR = *On;

      /End-Free


     P ValidHnd        B                   Export
     D ValidHnd        PI
     D Parm1                          5U 0 CONST
     D Parm2                          5U 0 CONST OPTIONS(*OMIT: *NOPASS)

     D text            S             20A
      /free

       Select;
       When %Addr(Parm2) = *Null;
         text = '*Null works';
       When %Parms > 1;
         text = 'Parm count works';
       EndSl;
       Return;

      /end-free
     P ValidHnd        E