
  CONST
    pmc$pc_base_exception = pmc$min_ecc + 5000;

*copyc pmc$min_ecc
*copyc PMC$PROGRAM_MANAGEMENT_ID
