
{ PDT delete_rhfam_client_pdt (
{     client, c : NAME 1..7 = $REQUIRED
{     status)

?? PUSH (LISTEXT := ON) ??

  VAR
    delete_rhfam_client_pdt: [STATIC, READ, cls$pdt] clt$parameter_descriptor_table := [
      ^delete_rhfam_client_pdt_names, ^delete_rhfam_client_pdt_params];

  VAR
    delete_rhfam_client_pdt_names: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 3] of
      clt$parameter_name_descriptor := [['CLIENT', 1], ['C', 1], ['STATUS', 2]];

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

{ CLIENT C }
    [[clc$required], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$name_value, 1, 7]],

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

?? POP ??
