
  TYPE
    jmt$qfile_submission_options = array [1 .. * ] of
          jmt$qfile_submission_option;

{ These are the defaults for the submission options that are not
{ provided on the jmp$submit_qfile call:
{
{        application_attributes 1-10:  none
{        data_mode:                    coded
{        deferred_by_application:      false
{        deferred_by_user:             false
{        destination:                  null string  **
{        earliest_run_time:            none
{        latest_run_time:              none
{        purge_delay:                  none
{        remote_host_directive:        null string  **
{        system_file_name:             assigned by system
{        validation_ring:              osc$user_ring (11)
{
{  ** If the application_name is QTF, these options must be provided.
{
{ The validation_ring option specifies the ring to be used to
{ validate attachment of the file to be submitted to the queue.

  TYPE
    jmt$qfile_submission_option = record
      case key: jmt$attribute_keys of
      = jmc$application_attributes_1, jmc$application_attributes_2,
            jmc$application_attributes_3, jmc$application_attributes_4,
            jmc$application_attributes_5, jmc$application_attributes_6,
            jmc$application_attributes_7, jmc$application_attributes_8,
            jmc$application_attributes_9, jmc$application_attributes_10 =
        application_attributes: jmt$qfile_application_attrs,
      = jmc$data_mode =
        data_mode: jmt$data_mode,
      = jmc$deferred_by_application =
        deferred_by_application: boolean,
      = jmc$deferred_by_user =
        deferred_by_user: boolean,
      = jmc$destination =
        destination: ost$name,
      = jmc$earliest_run_time =
        earliest_run_time: jmt$date_time,
      = jmc$latest_run_time =
        latest_run_time: jmt$date_time,
      = jmc$null_attribute =
        ,
      = jmc$purge_delay =
        purge_delay: ^jmt$time_increment,
      = jmc$remote_host_directive =
        remote_host_directive: ^jmt$remote_host_directive,
      = jmc$system_file_name =
        system_file_name: jmt$system_supplied_name,
      = jmc$validation_ring =
        validation_ring: ost$valid_ring,
      casend,
    recend;

*copyc jmt$attribute_keys
*copyc jmt$data_mode
*copyc jmt$date_time
*copyc jmt$qfile_application_attrs
*copyc jmt$remote_host_directive
*copyc jmt$system_supplied_name
*copyc jmt$time_increment
*copyc osd$virtual_address
*copyc ost$name
