

  PROCEDURE [XREF] qcp$fetch_psr_statistics
    (VAR psr_statistics: qct$psr_statistics;
     VAR psr_count: qct$item_count;
     VAR status: ost$status);

*copyc qct$psr_statistics
*copyc ost$status
