
  CONST
    syc$failure_condition_limit = 30,
    syc$failure_reason_msg_size = sfc$max_descriptive_data_size - pmc$mainframe_id_size - 1;

  TYPE
    syt$failure_reason_list = ARRAY [1 .. *] of syt$failure_reason,

    syt$failure_reason = RECORD
      message: string (syc$failure_reason_msg_size),
      conditions: ARRAY [1 .. syc$failure_condition_limit] OF syt$failure_conditions,
      CASE 0 .. 1 OF
      = 0 =
        msg_count: 0 .. 0ffffffff(16),
        conditions_count: 0 .. 0ffffffff(16),
      = 1 =
        count_word: integer,
      CASEND,
    RECEND,

    syt$failure_conditions = RECORD
      CASE 0 .. 1 OF
      = 0 =
        code_count: 0 .. 0ffffff(16),
        code: ost$status_condition_code,
      = 1 =
        code_word: integer,
      CASEND,
     RECEND;

*copyc ost$status_condition_code
*copyc pmt$mainframe_id
*copyc sft$descriptive_data
