
  TYPE
    jmt$display_message = record
      size: 0 .. jmc$display_message_size,
      value: string (jmc$display_message_size),
    recend;

  CONST
    jmc$display_message_size = 64;

  CONST
    jmc$dm_login_family_unavailable = 'The job''s login family is unavailable.'
          ,
    jmc$dm_job_deferred_by_operator = 'JOB_DEFERRED_BY_OPERATOR = TRUE',
    jmc$dm_job_deferred_by_user = 'JOB_DEFERRED_BY_USER = TRUE',
    jmc$dm_waiting_for_ert =
          'The job''s EARLIEST_RUN_TIME has not arrived yet.';

