{ PDT scfs_command_pdt (
{   control_facility, cf : NAME = $REQUIRED
{   server, s : NAME = $REQUIRED
{   logging, l : BOOLEAN = off
{   ntf_system_list, nsl : FILE = $OPTIONAL
{   STATUS)

?? PUSH (LISTEXT := ON) ??

  VAR
    scfs_command_pdt: [STATIC, READ, cls$pdt] clt$parameter_descriptor_table := [^scfs_command_pdt_names,
      ^scfs_command_pdt_params];

  VAR
    scfs_command_pdt_names: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 9] of
      clt$parameter_name_descriptor := [['CONTROL_FACILITY', 1], ['CF', 1], ['SERVER', 2], ['S', 2], [
      'LOGGING', 3], ['L', 3], ['NTF_SYSTEM_LIST', 4], ['NSL', 4], ['STATUS', 5]];

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

{ CONTROL_FACILITY CF }
    [[clc$required], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$name_value, 1, osc$max_name_size]],

{ SERVER S }
    [[clc$required], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$name_value, 1, osc$max_name_size]],

{ LOGGING L }
    [[clc$optional_with_default, ^scfs_command_pdt_dv3], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
      clc$boolean_value]],

{ NTF_SYSTEM_LIST NSL }
    [[clc$optional], 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
    scfs_command_pdt_dv3: [STATIC, READ, cls$pdt_names_and_defaults] string (3) := 'off';

?? POP ??
