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

*IF ($string($name(wev$target_operating_system))='NOS')
  CONST
    peek_request_length = 11,
    qac_peek_function_code = 3;

  TYPE
    ict$qac_parameter_block = packed record
      fill0a: 0..3ffffffffff(16),
      err: 0..0ff(16),
      fcn: 0..1ff(16),
      complete_bit: boolean,
      fill1a: 0 .. 3ffffffff(16),
      request_block_length: 0 .. 0ff(16),
      first: ^cell,
      fill2a: 0 .. 3ffffffffff(16),
      inn: ^cell,
      fill3a: 0 .. 3ffffffffff(16),
      out: ^cell,
      fill4a: 0..0fff(16),
      ordinal: 0..0fff(16),
      queue: 0..0fff(16),
      fill4b: 0..3f(16),
      limit: ^cell,
      fill5: string(5),
      fill6: string(5),
      jsn: 0..0ffffff(16),
      fill7a: 0..1fffffff(16),
      jsn_option: boolean,
      fill7b: 0 .. 3f(16),
      fill8a: 0..3ff(16),
      execution_queue_flag: boolean,
      input_queue_flag: boolean,
      forms: 0 .. 0fff(16),
      disp: 0 .. 0fff(16),
      ec: 0 .. 7,
      ic: 0 .. 7,
      link_addr: 0 .. 3ffff(16),
      fill9: string(5),
      fill10: string(5),
      fill11: string(5),
      incnt: 0..0fff(16),
      excnt: 0..0fff(16),
      fill12a: string(3),
      fill13: ALIGNED string(5),
      fill14: ALIGNED string(5),
      fill15: string(5),
    recend,

    zero_lene_lenb = packed record
      zero: 0 .. 0ffffff(16),
      lene: 0 .. 3ffff(16),
      lenb: 0 .. 3ffff(16),
    recend,

    information_bits = integer,
    peek_reply_entry = array [1 .. 3] of cell;
*ELSE
  CONST
    qaf_job_name_zero_fill = 11011011011011011(2),
    qaf_count_function_code = 3;

  TYPE
    ict$qaf_parameter_block = packed record
      partner_job_name: 0..03ffffffffff(16),
      err: 0..3f(16),
      queue_type: packed record
        reserved0a: 0 .. 7(16),
        execution: boolean,
        special_output: boolean,
        punch: boolean,
        output: boolean,
        input: boolean,
      recend,
      fcn: 0..7(16),
      complete_bit: boolean,
      fill1a0: 0 .. 0fff(16),
      fill1a: 0 .. 0ffffffffffff(16),
      fill2a0: 0 .. 0fff(16),
      fill2a: 0 .. 0ffffffffffff(16),
      fill3a0: 0 .. 0fff(16),
      fill3a: 0 .. 0ffffffffffff(16),
      fill4a: 0 .. 0ffffffffffff(16),
      excnt: 0..0fff(16),
      fill5a: 0 .. 0fff(16),
      incnt: 0..0fff(16),
      fill6a: 0 .. 0fffffffff(16),
    recend;
*IFEND
