
{ table rfv$config_commands type=command
{ command (install_rhfam_configuration, insrc) processor=rfp$install_rhfam_configuration
{ command (verify_rhfam_configuration, verrc) processor=rfp$verify_rhfam_configuration
{ command (quit, q) processor=rfp$cu_quit

?? PUSH (LISTEXT := ON) ??
VAR
  rfv$config_commands: [STATIC, READ] ^clt$command_table := ^rfv$config_command_entries,

  rfv$config_command_entries: [STATIC, READ] array [1 .. 6] of  clt$command_table_entry := [
  {} ['INSRC                          ', clc$abbreviation_entry, clc$advertised_entry, 1,
        clc$automatically_log, clc$linked_call, ^rfp$install_rhfam_configuration],
  {} ['INSTALL_RHFAM_CONFIGURATION    ', clc$nominal_entry, clc$advertised_entry, 1,
        clc$automatically_log, clc$linked_call, ^rfp$install_rhfam_configuration],
  {} ['Q                              ', clc$abbreviation_entry, clc$advertised_entry, 3,
        clc$automatically_log, clc$linked_call, ^rfp$cu_quit],
  {} ['QUIT                           ', clc$nominal_entry, clc$advertised_entry, 3,
        clc$automatically_log, clc$linked_call, ^rfp$cu_quit],
  {} ['VERIFY_RHFAM_CONFIGURATION     ', clc$nominal_entry, clc$advertised_entry, 2,
        clc$automatically_log, clc$linked_call, ^rfp$verify_rhfam_configuration],
  {} ['VERRC                          ', clc$abbreviation_entry, clc$advertised_entry, 2,
        clc$automatically_log, clc$linked_call, ^rfp$verify_rhfam_configuration]];

?? POP ??

