{ PROCEDURE (osm$vedu_disvfd) display_ved_field_data, disvfd (
{   name, n: name = $required
{   display_option, do: key
{       (selected_fields, sf)
{       (defined_fields, df)
{       (incremental_fields, if)
{       (all, all_fields, af)
{       (all_incremental_fields, aif)
{       (all_non_incremental_fields, anif)
{     keyend = selected_fields
{   update_incremental_data, uid: boolean = false
{   output, o: file = $output
{   status)

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

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 9] of clt$pdt_parameter_name,
      parameters: array [1 .. 5] 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$keyword_type_qualifier,
        keyword_specs: array [1 .. 13] of clt$keyword_specification,
        default_value: string (15),
      recend,
      type3: record
        header: clt$type_specification_header,
        default_value: string (5),
      recend,
      type4: record
        header: clt$type_specification_header,
        default_value: string (7),
      recend,
      type5: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [99, 10, 25, 13, 55, 37, 764],
    clc$command, 9, 5, 1, 0, 0, 0, 5, 'OSM$VEDU_DISVFD'], [
    ['DISPLAY_OPTION                 ',clc$nominal_entry, 2],
    ['DO                             ',clc$abbreviation_entry, 2],
    ['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],
    ['UID                            ',clc$abbreviation_entry, 3],
    ['UPDATE_INCREMENTAL_DATA        ',clc$nominal_entry, 3]],
    [
{ PARAMETER 1
    [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$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, 488,
  clc$optional_default_parameter, 0, 15],
{ PARAMETER 3
    [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, 5],
{ PARAMETER 4
    [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, 3,
  clc$optional_default_parameter, 0, 7],
{ PARAMETER 5
    [7, 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$keyword_type], [13], [
    ['AF                             ', clc$abbreviation_entry, clc$normal_usage_entry, 4],
    ['AIF                            ', clc$abbreviation_entry, clc$normal_usage_entry, 5],
    ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 4],
    ['ALL_FIELDS                     ', clc$alias_entry, clc$normal_usage_entry, 4],
    ['ALL_INCREMENTAL_FIELDS         ', clc$nominal_entry, clc$normal_usage_entry, 5],
    ['ALL_NON_INCREMENTAL_FIELDS     ', clc$nominal_entry, clc$normal_usage_entry, 6],
    ['ANIF                           ', clc$abbreviation_entry, clc$normal_usage_entry, 6],
    ['DEFINED_FIELDS                 ', clc$nominal_entry, clc$normal_usage_entry, 2],
    ['DF                             ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
    ['IF                             ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
    ['INCREMENTAL_FIELDS             ', clc$nominal_entry, clc$normal_usage_entry, 3],
    ['SELECTED_FIELDS                ', clc$nominal_entry, clc$normal_usage_entry, 1],
    ['SF                             ', clc$abbreviation_entry, clc$normal_usage_entry, 1]]
    ,
    'selected_fields'],
{ PARAMETER 3
    [[1, 0, clc$boolean_type],
    'false'],
{ PARAMETER 4
    [[1, 0, clc$file_type],
    '$output'],
{ PARAMETER 5
    [[1, 0, clc$status_type]]];

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

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

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

