Rational Developer for System z
PL/I for Windows, Version 8.0, Programming Guide

Example with packaged procedures
   p: package exports( a );

     dcl ib      based fixed bin;

     a: proc;

       dcl (i,j,k) fixed bin;
         .
         .
         .
       call b( addr(i) );
         .
         .
         .
     end;

     b: proc( px );
       dcl px      pointer;
       display( px->ib );
     end;

   end p;
Rational Developer for System z
PL/I for Windows, Version 8.0, Programming Guide