
{ PDT format_nad_dump_pdt (
{     dump_file, df : FILE = $REQUIRED
{     output, o : FILE = $OUTPUT
{     status)

?? PUSH (LISTEXT := ON) ??

  VAR
    format_nad_dump_pdt: [STATIC, READ, cls$pdt] clt$parameter_descriptor_table := [^format_nad_dump_pdt_names
      , ^format_nad_dump_pdt_params];

  VAR
    format_nad_dump_pdt_names: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 5] of
      clt$parameter_name_descriptor := [['DUMP_FILE', 1], ['DF', 1], ['OUTPUT', 2], ['O', 2], ['STATUS', 3]];

  VAR
    format_nad_dump_pdt_params: [STATIC, READ, cls$pdt_parameters] array [1 .. 3] of clt$parameter_descriptor
      := [

{ DUMP_FILE DF }
    [[clc$required], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$file_value]],

{ OUTPUT O }
    [[clc$optional_with_default, ^format_nad_dump_pdt_dv2], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
      clc$file_value]],

{ STATUS }
    [[clc$optional], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$variable_reference,
      clc$array_not_allowed, clc$status_value]]];

  VAR
    format_nad_dump_pdt_dv2: [STATIC, READ, cls$pdt_names_and_defaults] string (7) := '$OUTPUT';

?? POP ??
