
?? FMT (FORMAT := OFF) ??
*copyc PMC$PC_BASE_EXCEPTION

  {PMDPSER : Program Services Exceptions : 'PM' 5150 .. 5199}

  CONST
    pmc$prog_service_base_exception = pmc$pc_base_exception + 150,

    pme$invalid_date_format = pmc$prog_service_base_exception + 0,
    {E incorrect date format}

    pme$invalid_time_format = pmc$prog_service_base_exception + 1,
    {E incorrect time format}

    pme$invalid_spy_identifier = pmc$prog_service_base_exception + 2,
    {E invalid spy identifier}

    pme$common_block_not_defined = pmc$prog_service_base_exception + 3,
    {E common block +P not defined}

    pme$library_header_missing = pmc$prog_service_base_exception + 4,
    {E library header missing}

    pme$wrong_library_version = pmc$prog_service_base_exception + 5,
    {E invalid library version +P}

    pme$bad_entry_dictionary_ptr = pmc$prog_service_base_exception + 6,
    {E bad entry point dictionary pointer encountered}

    pme$result_array_too_small = pmc$prog_service_base_exception + 7,
    {E The result array +P is not large enough to contain the..}
    { requested information. }

    pme$unknown_entry_point = pmc$prog_service_base_exception + 8,
    {E unknown entry point +P}

    pme$invalid_unique_name = pmc$prog_service_base_exception + 9,
    {E +P is an invalid unique name. }

    pme$task_id_not_found = pmc$prog_service_base_exception + 10,
    {E Task +P does not exist.}

    pme$task_has_no_parent = pmc$prog_service_base_exception + 11,
    {E Task +P has no parent.}

    pme$invalid_sequence_pointer = pmc$prog_service_base_exception + 12,
    {E An invalid sequence pointer was passed in parameter LIBRARY_FILE.}

    pme$invalid_mainframe_id = pmc$prog_service_base_exception + 13,
    {E The mainframe identifier (+P) is not valid.}

    pme$invalid_relative_priority = pmc$prog_service_base_exception + 14,
    {E The relative task priority is out of the valid range of priorities.}

    pme$not_transient_segment = pmc$prog_service_base_exception + 15,
    {E The segment whose attributes are to be changed is not a transient..}
    { segment. }

    pme$segment_ring_error = pmc$prog_service_base_exception + 16,
    {E The caller ring is different from the ring attributes of the segment. }

    pme$code_base_pointer_error = pmc$prog_service_base_exception + 17,
    {E The r3 value in a code base pointer in the segment is different from..}
    { the caller ring. }

    pme$invalid_attribute_key = pmc$prog_service_base_exception + 18,
    {E +P was called with an invalid key.}

    pme$ready_task_list_size_error = pmc$prog_service_base_exception + 19,
    {E Ready Task List size mismatch in PMP$READY_TASK_LIST.

    pme$taskid_response_size_error = pmc$prog_service_base_exception + 20,
    {E Response List size mismatch in PMP$READY_TASK_LIST.

    pmc$high_prog_service_exception = pmc$prog_service_base_exception + 49;

?? FMT (FORMAT := ON) ??
