PROC enable_command_redo, enacr (full_duplex,fd: boolean = no
     insert_mode,im: boolean = no)
IF $JOB(mode) = 'INTERACTIVE' THEN
  create_variable ss k=status
  create_variable params k=string
  setpa al=$system.tdu.terminal_definitions status=ss
  setpa al=$system.osf$command_library status=ss
  params = ' '
  IF $VALUE(full_duplex) = YES THEN
    params = 'F'
  IFEND;
  IF $VALUE(insert_mode) = YES THEN
    params = params // 'I'
  IFEND;
  IF $FILE($Local.command, opened) THEN
    chafa $local.command fap=clp$redo_operation ui=params status=ss
  ELSE
    setfa $local.command fap=clp$redo_operation ui=params status=ss
  IFEND
  IF NOT ss.normal THEN
    disv 'Command redo may only be enabled during the Login PROLOG.'
  IFEND
IFEND
PROCEND enable_command_redo
