?? RIGHT := 110 ??
?? NEWTITLE := 'Tailored Release Process:  Quit Define Order Subutility' ??
MODULE ram$quit_defo;

{ PURPOSE:
{   This module contains the procedure to end the define order subutility
{   session.
{
{ DESIGN:
{
{ NOTES:
{

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc clp$end_scan_command_file
*copyc clp$scan_parameter_list
?? POP ??
*copyc rav$defo_utility_name

?? TITLE := 'Global Declarations Declared by This Module', EJECT ??

?? TITLE := '[XDCL, #GATE] rap$quit_defo', EJECT ??

  PROCEDURE [XDCL, #GATE] rap$quit_defo
    (    parameter_list: clt$parameter_list;
     VAR status: ost$status);

{ pdt quit_defo_pdt (
{   status : var of status = $optional
{   )

?? PUSH (LISTEXT := ON) ??

  VAR
    quit_defo_pdt: [STATIC, READ, cls$pdt] clt$parameter_descriptor_table := [^quit_defo_pdt_names,
      ^quit_defo_pdt_params];

  VAR
    quit_defo_pdt_names: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 1] of
      clt$parameter_name_descriptor := [['STATUS', 1]];

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

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

?? POP ??


    status.normal := TRUE;

    clp$scan_parameter_list (parameter_list, quit_defo_pdt, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;

    clp$end_scan_command_file (rav$defo_utility_name, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;

  PROCEND rap$quit_defo;
MODEND ram$quit_defo;
