-- $Source: /commtar/monoBANK/SQL_MC/do_auth.sub,v $ -- $Revision: 1.4 $ $Date: 88/07/20 18:44:37 $ $Author: rac $ with Error_Actions; separate (Actions_Package) function Do_Authorization( --Takes the authorization string and saves it. Id : Parse_Stack_Element ) return Parse_Stack_Element is package EA renames Error_Actions; begin -- tells error recovery what phase it is in EA.Parse_Phase := EA.Declare_Or_Proc; -- this node is used by error recovery to know when to stop -- backing up on parse_stack User := Id.Symbol; return Cursor_PSE; end Do_Authorization; -- $Cprt start$ -- -- Copyright (C) 1988 by Intermetrics, Inc. -- -- This material may be used duplicated or disclosed by or for the -- U.S. Government pursuant to the copyright license under DAR clause -- 7-104.9(a) (May 1981). -- -- This project was sponsored by the STARS Foundation -- Naval Research Laboratory, Washington DC -- -- $Cprt end$