RE: Long Procedure Names

["Jon Paris" <Jon.Paris@xxxxxxxxxxxxxx>]

Sorry John - I realized after I sent it that the example should have looked
like this.  Although you need the extra PRs _in_ the subprocedures
themselves, it is not necessary to have multiples in the caller.

I agree though that a LikePr or whatever would be nice.

      d ppr1            s               *   procptr inz(%paddr('pr1'))
      d ppr2            s               *   procptr inz(%paddr('pr2'))

      d ppr             s               *   procptr

      d CallThis        pr                  ExtProc(ppr)

       /Free
          ppr = ppr1;
          CallThis();  // calls pr1
          ppr = ppr2;
          CallThis();  // calls pr2


Jon Paris