{ PROCEDURE qtfc_command_pdt (
{   host_physical_identifier, hpi: string 1..31 = $required
{   maximum_qtfi_subtasks, mqs: integer 0..20 = $optional
{   single_transfer_per_connection, stpc: boolean = false
{   status)

?? PUSH (LISTEXT := ON) ??
?? FMT (FORMAT := OFF) ??

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 7] of clt$pdt_parameter_name,
      parameters: array [1 .. 4] of clt$pdt_parameter,
      type1: record
        header: clt$type_specification_header,
        qualifier: clt$string_type_qualifier,
        recend,
        type2: record
          header: clt$type_specification_header,
          qualifier: clt$integer_type_qualifier,
          recend,
          type3: record
            header: clt$type_specification_header,
            default_value: string (5),
            recend,
            type4: record
              header: clt$type_specification_header,
              recend,
    recend := [
    [1,
    [91, 2, 12, 15, 11, 19, 355],
    clc$command, 7, 4, 1, 0, 0, 0, 4, ''], [
    ['HOST_PHYSICAL_IDENTIFIER       ',clc$nominal_entry, 1],
    ['HPI                            ',clc$abbreviation_entry, 1],
    ['MAXIMUM_QTFI_SUBTASKS          ',clc$nominal_entry, 2],
    ['MQS                            ',clc$abbreviation_entry, 2],
    ['SINGLE_TRANSFER_PER_CONNECTION ',clc$nominal_entry, 3],
    ['STATUS                         ',clc$nominal_entry, 4],
    ['STPC                           ',clc$abbreviation_entry, 3]],
    [
{ PARAMETER 1
    [1, clc$normal_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_by_name, clc$specify_positionally],
    clc$pass_by_value, clc$immediate_evaluation, clc$standard_parameter_checking, 8, clc$required_parameter, 0
  , 0],
{ PARAMETER 2
    [3, clc$normal_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_by_name, clc$specify_positionally],
    clc$pass_by_value, clc$immediate_evaluation, clc$standard_parameter_checking, 20, clc$optional_parameter,
  0, 0],
{ PARAMETER 3
    [5, clc$normal_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_by_name, clc$specify_positionally],
    clc$pass_by_value, clc$immediate_evaluation, clc$standard_parameter_checking, 3,
  clc$optional_default_parameter, 0, 5],
{ PARAMETER 4
    [6, clc$normal_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_by_name],
    clc$pass_by_reference, clc$immediate_evaluation, clc$standard_parameter_checking, 3,
  clc$optional_parameter, 0, 0]],
{ PARAMETER 1
    [[1, 0, clc$string_type], [1, 31, FALSE]],
{ PARAMETER 2
    [[1, 0, clc$integer_type], [0, 20, 10]],
{ PARAMETER 3
    [[1, 0, clc$boolean_type],
    'false'],
{ PARAMETER 4
    [[1, 0, clc$status_type]]];

?? FMT (FORMAT := ON) ??
?? POP ??

    CONST
      p$host_physical_identifier = 1,
      p$maximum_qtfi_subtasks = 2,
      p$single_transfer_per_connectio = 3 {SINGLE_TRANSFER_PER_CONNECTION} ,
      p$status = 4;

    VAR
      pvt: array [1 .. 4] of clt$parameter_value;
