
  PROCEDURE [INLINE] fmp$free_terminal_request
    (VAR cycle_description: ^fmt$cycle_description);

    VAR
      next_terminal_command: ^bat$terminal_cmd_list,
      terminal_command: ^bat$terminal_cmd_list;

    terminal_command := cycle_description^.terminal_command;
    WHILE terminal_command <> NIL DO
      next_terminal_command := terminal_command^.next_cmd;
      FREE terminal_command IN osv$job_pageable_heap^;
      terminal_command := next_terminal_command;
    WHILEND;
    IF cycle_description^.terminal_request <> NIL THEN
      FREE cycle_description^.terminal_request IN osv$job_pageable_heap^;
    IFEND;

  PROCEND fmp$free_terminal_request;

?? PUSH (LISTEXT := ON) ??
*copyc fmt$cycle_description
*copyc osv$job_pageable_heap
?? POP ??
