
?? PUSH (LISTEXT := ON) ??
?? POP ??

  CONST
*IF ($string($name(wev$target_operating_system))='NOS')
    in_disposition_code = 001110001111(2),
    local_batch_origin_type = 1,
    null_equipment_code_77 = 63,
    input_flags = 512;
*ELSE
    in_disposition_code = 001001001110(2),
    nosbe_priority = 111111111111(2),
    input_flags = 1100000000(2); {dont catalog input and 7_char job name spec.
*IFEND

  TYPE
    ict$route_parameter_block = packed record
      lfn: ict$nos_file_name,
      ec: 0 .. 3f(16),
      f: boolean,
      filler1: 0 .. 0f(16),
      ot: 0 .. 3f(16),
      c: boolean,
      zero: 0 .. 0fff(16),
      forms: 0 .. 0fff(16),
      disp: 0 .. 0fff(16),
      ex: 0 .. 7,
      s: boolean,
      ic: 0 .. 3,
      flags: ict$route_flags,
      reserved1: 0 .. 0fffffffff(16),
      tid: - 7fffff(16) .. 7fffff(16),
      reserved2: 0 .. 7fffffffffff(16),
      b: boolean,
      priority: 0 .. 0fff(16),
      spacing: 0 .. 0fff(16),
      svc: 0 .. 3fffffff(16),
      filler3: 0 .. 1,
      rc: 0 .. 1f(16),
      reserved4: 0 .. 0fff(16),
      reserved5: integer,
      reserved6: integer,
      reserved7:integer,
    recend,

    ict$route_flags = packed record
      return_system_file_name: boolean,
      reserved1: 0 .. 1,
      pfc_580_spacing_code: boolean,
      repeat_count: boolean,
      reserved2: 0 .. 1,
      return_error_code: boolean,
      reserved3: 0 .. 1,
      forms_code: boolean,
      priority: boolean,
      internal_characteristics: boolean,
      external_characteristics: boolean,
      reserved4: 0 .. 1,
      file_ident_specified: boolean,
      disposition_code: boolean,
      reserved5: boolean,
      tid: boolean,
      route_to_central_site: boolean,
      end_of_job: boolean,
    recend,

    ict$nos_file_name = 0 .. 3ffffffffff(16),

    ict$nos_fet_lfn_word = packed record
      lfn: ict$nos_file_name,
      code_and_status: 0 .. 3ffff(16),
    recend;
