*copyc OSD$DEFAULT_PRAGMATS
?? RIGHT := 110 ??
??
NEWTITLE := 'Global Declarations', EJECT ??
MODULE pmm$set_spy_identifier;




  { Purpose: This module contains the program management routine for setting
  { the spy identifier PMV$SPY_IDENTIFIER.




  { *callc pmdsi }
  { *callc pmdpser }

  { *callc osdtps }
  { *callc osxssa }
?? PUSH (LISTEXT := ON) ??
*copyc PMT$SPY_IDENTIFIERS
*copyc PME$PROGRAM_SERVICES_EXCEPTIONS

*copyc OSS$TASK_SHARED
*copyc OSP$SET_STATUS_ABNORMAL
?? POP ??


  VAR
    pmv$spy_identifiers: [XDCL, oss$task_shared] pmt$spy_identifiers := [0, 0];


?? OLDTITLE ??
?? NEWTITLE := 'PMP$SET_SPY_IDENTIFIER', EJECT ??

  PROCEDURE [XDCL, #GATE] pmp$set_spy_identifier (low_identifier: pmt$spy_identifier;
        high_identifier: pmt$spy_identifier;
    VAR status: ost$status);


    status.normal := TRUE;

    IF (low_identifier > UPPERVALUE (pmt$spy_identifier)) OR
       (high_identifier > UPPERVALUE (pmt$spy_identifier)) THEN
      osp$set_status_abnormal ('PM', pme$invalid_spy_identifier, '', status);
      RETURN;
    IFEND;

    pmv$spy_identifiers.low_identifier := low_identifier;
    pmv$spy_identifiers.high_identifier := high_identifier;


  PROCEND pmp$set_spy_identifier;
?? OLDTITLE ??




MODEND pmm$set_spy_identifier.
