
{ PROCEDURE display_store_forward_network (
{   name, n: any of
{       name
{       string 1..31
{     anyend = $optional
{   application_qualifier, aq: key
{       ntfi
{       ntfs
{       qtfi
{       qtfs
{     keyend = $optional
{   display_option, display_options, do: list of key
{       (application_name_switch ans)
{       (destination_group destination_groups dg)
{       (destination_name_switch dns)
{       (source_name_switch sns)
{       all
{     keyend = all
{   output, o : file = $output
{   status)

?? PUSH (LISTEXT := ON) ??

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 10] of clt$pdt_parameter_name,
      parameters: array [1 .. 5] of clt$pdt_parameter,
      type1: record
        header: clt$type_specification_header,
        qualifier: clt$union_type_qualifier,
        type_size_1: clt$type_specification_size,
        element_type_spec_1: record
          header: clt$type_specification_header,
          qualifier: clt$name_type_qualifier,
        recend,
        type_size_2: clt$type_specification_size,
        element_type_spec_2: record
          header: clt$type_specification_header,
          qualifier: clt$string_type_qualifier,
        recend,
      recend,
      type2: record
        header: clt$type_specification_header,
        qualifier: clt$keyword_type_qualifier,
        keyword_specs: array [1 .. 4] of clt$keyword_specification,
      recend,
      type3: 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 .. 10] of clt$keyword_specification,
        recend,
        default_value: string (3),
      recend,
      type4: record
        header: clt$type_specification_header,
        default_value: string (7),
      recend,
      type5: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [88, 5, 27, 16, 4, 22, 339],
    clc$command, 10, 5, 0, 0, 0, 0, 5, 'DISPLAY_STORE_FORWARD_NETWORK'], [
    ['APPLICATION_QUALIFIER          ',clc$nominal_entry, 2],
    ['AQ                             ',clc$abbreviation_entry, 2],
    ['DISPLAY_OPTION                 ',clc$nominal_entry, 3],
    ['DISPLAY_OPTIONS                ',clc$alias_entry, 3],
    ['DO                             ',clc$abbreviation_entry, 3],
    ['N                              ',clc$abbreviation_entry, 1],
    ['NAME                           ',clc$nominal_entry, 1],
    ['O                              ',clc$abbreviation_entry, 4],
    ['OUTPUT                         ',clc$nominal_entry, 4],
    ['STATUS                         ',clc$nominal_entry, 5]],
    [
{ PARAMETER 1
    [7, 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, 33, clc$optional_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, 155, clc$optional_parameter, 0, 0],
{ PARAMETER 3
    [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, 393, clc$optional_default_parameter, 0, 3],
{ PARAMETER 4
    [9, 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, 7],
{ PARAMETER 5
    [10, 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$union_type], [[clc$name_type, clc$string_type],
    TRUE, 2],
    5, [[1, 0, clc$name_type], [1, osc$max_name_size]],
    8, [[1, 0, clc$string_type], [1, 31, FALSE]]
    ],
{ PARAMETER 2
    [[1, 0, clc$keyword_type], [4], [
    ['NTFI                           ', clc$nominal_entry,
  clc$normal_usage_entry, 1],
    ['NTFS                           ', clc$nominal_entry,
  clc$normal_usage_entry, 2],
    ['QTFI                           ', clc$nominal_entry,
  clc$normal_usage_entry, 3],
    ['QTFS                           ', clc$nominal_entry,
  clc$normal_usage_entry, 4]]
    ],
{ PARAMETER 3
    [[1, 0, clc$list_type], [377, 1, clc$max_list_size, FALSE],
      [[1, 0, clc$keyword_type], [10], [
      ['ALL                            ', clc$nominal_entry,
  clc$normal_usage_entry, 5],
      ['ANS                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 1],
      ['APPLICATION_NAME_SWITCH        ', clc$nominal_entry,
  clc$normal_usage_entry, 1],
      ['DESTINATION_GROUP              ', clc$nominal_entry,
  clc$normal_usage_entry, 2],
      ['DESTINATION_GROUPS             ', clc$alias_entry,
  clc$normal_usage_entry, 2],
      ['DESTINATION_NAME_SWITCH        ', clc$nominal_entry,
  clc$normal_usage_entry, 3],
      ['DG                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 2],
      ['DNS                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 3],
      ['SNS                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 4],
      ['SOURCE_NAME_SWITCH             ', clc$nominal_entry,
  clc$normal_usage_entry, 4]]
      ]
    ,
    'all'],
{ PARAMETER 4
    [[1, 0, clc$file_type],
    '$output'],
{ PARAMETER 5
    [[1, 0, clc$status_type]]];

?? POP ??

  CONST
    p$name = 1,
    p$application_qualifier = 2,
    p$display_option = 3,
    p$output = 4,
    p$status = 5;

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