

  PROCEDURE [XREF] qcp$update_psr_statistics
    (    psr_identifier: qct$psr_ident;
     VAR status: ost$status);


*copyc qct$psr_statistics
*copyc ost$status
