
{ PROCEDURE define_application_name_switch (
{   next_hop_application, nha : name = $required
{   application_qualifier, application_qualifiers, aq : list of key
{       NTFS
{       QTFS
{     keyend = $required
{   destination_group_qualifier, dgq : name = $optional
{   status)

?? PUSH (LISTEXT := ON) ??

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 8] of clt$pdt_parameter_name,
      parameters: array [1 .. 4] of clt$pdt_parameter,
      type1: record
        header: clt$type_specification_header,
        qualifier: clt$name_type_qualifier,
      recend,
      type2: record
        header: clt$type_specification_header,
        qualifier: clt$list_type_qualifier,
        element_type_spec: record
          header: clt$type_specification_header,
          qualifier: clt$keyword_type_qualifier,
          keyword_specs: array [1 .. 2] of clt$keyword_specification,
        recend,
      recend,
      type3: record
        header: clt$type_specification_header,
        qualifier: clt$name_type_qualifier,
      recend,
      type4: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [88, 5, 27, 14, 19, 41, 872],
    clc$command, 8, 4, 2, 0, 0, 0, 4, 'DEFINE_APPLICATION_NAME_SWITCH'], [
    ['APPLICATION_QUALIFIER          ',clc$nominal_entry, 2],
    ['APPLICATION_QUALIFIERS         ',clc$alias_entry, 2],
    ['AQ                             ',clc$abbreviation_entry, 2],
    ['DESTINATION_GROUP_QUALIFIER    ',clc$nominal_entry, 3],
    ['DGQ                            ',clc$abbreviation_entry, 3],
    ['NEXT_HOP_APPLICATION           ',clc$nominal_entry, 1],
    ['NHA                            ',clc$abbreviation_entry, 1],
    ['STATUS                         ',clc$nominal_entry, 4]],
    [
{ PARAMETER 1
    [6, 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, 5, clc$required_parameter, 0, 0],
{ PARAMETER 2
    [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, 97, clc$required_parameter, 0, 0],
{ PARAMETER 3
    [4, 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, 5, clc$optional_parameter, 0, 0],
{ PARAMETER 4
    [8, 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$name_type], [1, osc$max_name_size]],
{ PARAMETER 2
    [[1, 0, clc$list_type], [81, 1, clc$max_list_size, FALSE],
      [[1, 0, clc$keyword_type], [2], [
      ['NTFS                           ', clc$nominal_entry,
  clc$normal_usage_entry, 1],
      ['QTFS                           ', clc$nominal_entry,
  clc$normal_usage_entry, 2]]
      ]
    ],
{ PARAMETER 3
    [[1, 0, clc$name_type], [1, osc$max_name_size]],
{ PARAMETER 4
    [[1, 0, clc$status_type]]];

?? POP ??

  CONST
    p$next_hop_application = 1,
    p$application_qualifier = 2,
    p$destination_group_qualifier = 3,
    p$status = 4;

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