
{ PDT test_local_nad_pdt (
{   nad, n : name = $required
{   status)

?? PUSH (LISTEXT := ON) ??

  VAR
    test_local_nad_pdt: [STATIC, READ, cls$pdt] clt$parameter_descriptor_table
      := [^test_local_nad_pdt_names, ^test_local_nad_pdt_params];

  VAR
    test_local_nad_pdt_names: [STATIC, READ, cls$pdt_names_and_defaults]
      array [1 .. 3] of clt$parameter_name_descriptor := [['NAD', 1], ['N', 1]
      , ['STATUS', 2]];

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

{ NAD N }
    [[clc$required], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
      clc$name_value, 1, osc$max_name_size]],

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

?? POP ??
