home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl502b.zip / ext / OS2 / REXX / rx2.pl < prev    next >
Text File  |  1995-05-13  |  442b  |  10 lines
  1. use OS2::REXX;
  2. $rx = load OS2::REXX "ydbautil" or die;    # from RXU17.ZIP
  3. $rx->prefix("Rx");                         # implicit function prefix
  4.  
  5. tie @pib, OS2::REXX, "IB.P";       # bind array to REXX stem variable
  6. tie %tib, OS2::REXX, "IB.T.";      # bind associative array to REXX stem var
  7. $rx->GetInfoBlocks("IB.");    # call REXX function
  8. print "Process status is ", unpack("I", $pib[6]),
  9.       ", thread ordinal is $tib{7}\n";
  10.