{ PDT scf_command_pdt (
{   STATUS)

?? PUSH (LISTEXT := ON) ??

  VAR
    scf_command_pdt: [STATIC, READ, cls$pdt] clt$parameter_descriptor_table := [^scf_command_pdt_names,
      ^scf_command_pdt_params];

  VAR
    scf_command_pdt_names: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 1] of
      clt$parameter_name_descriptor := [['STATUS', 1]];

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

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

?? POP ??
