?? RIGHT := 110 ??
*copy OSD$DEFAULT_PRAGMATS
?? NEWTITLE := 'NOS/VE JOB MANAGEMENT INITIAL ENTRY POINTS' ??
MODULE jmm$initial_entry_points;
?? EJECT ??
?? NEWTITLE := 'GLOBAL TYPE DECLARATIONS' ??

*copyc OST$STATUS
*copyc OSD$VIRTUAL_ADDRESS
*copyc OST$CALLER_IDENTIFIER
?? EJECT ??
?? TITLE := 'PROCEDURES REFERENCED BY THIS MODULE' ??

*copyc JMP$JOB_SCHEDULER_MONITOR
?? EJECT ??
?? TITLE := 'VARIABLES REFERENCED BY THIS MODULE' ??
?? EJECT ??
?? TITLE := 'JMP$JOB_SCHEDULER_ENTRY_POINT' ??

  PROCEDURE [XDCL, #GATE] jmp$job_scheduler_entry_point;

    VAR
      id: ost$caller_identifier;


    #caller_id ( id);
    IF id.ring > osc$tsrv_ring THEN
      RETURN;
    ELSE

      jmp$job_scheduler_monitor;

    IFEND;

  PROCEND jmp$job_scheduler_entry_point;
?? EJECT ??
?? OLDTITLE ??
MODEND jmm$initial_entry_points;
