*DECK DMLEND
      PROC DMLEND;
      BEGIN 
 #
* *   DMLEND - TERMINATE INTERFACE ROUTINE
*     R. E. FOX                                      4/05/77
* 
* DC  PURPOSE 
* 
*     ISSUE A TERMINATE REQUEST TO CDCS AND 
*     RETURN CONTROL TO THE APPLICATION PROGRAM 
* 
* DC  ENTRY CONDITIONS
* 
* DC  PARAMETERS
* 
*     NONE
* 
* 
* DC  ASSUMPTIONS 
* 
*     NONE
* 
* 
* DC  EXIT CONDITIONS 
* 
*     UPON RETURN FROM CDCS, THE INVOKE FLAG IS TURNED OFF
*     AND CONTROL IS RETURNED TO THE APPLICATION PROGRAM. 
* 
* DC  CALLING ROUTINES
* 
*     DMLEND IS CALLED FROM THE APPLICATION PROGRAM 
*     AS A RESULT OF A DML TERMINATE STATEMENT. 
* 
* DC  CALLED ROUTINES 
* 
*     DB$END  --     CDCS TERMINATE INTERFACE ROUTINE 
* 
* DC  NON-LOCAL VARIABLES 
* 
*     XREF ITEM INVFLAG B - INVOKE FLAG 
* 
* DC  DESCRIPTION 
* 
*     A CALL TO DMLEND IS GENERATED BY THE PREPASS AS 
*     A RESULT OF A DML TERMINATE STATEMENT. DMLEND ISSUES THE TERMINATE
*     REQUEST TO CDCS, TURNS OFF THE INVOKE FLAG, 
*     AND RETURNS CONTROL TO THE APPLICATION PROGRAM. 
* 
 #
      CONTROL EJECT;
  
      XREF
        PROC DB$END;
      XREF ITEM INVFLAG B;       # FALSE MEANS CDCS IS NO LONGER       #001330
                                 # INVOKED                             #001340
      XREF ITEM INVER B;           # FLAG FOR INVOKE(VERSION)          #
      # CALL DB$END                                                    #
      DB$END; 
      INVFLAG = FALSE;           # CDCS NO LONGER INVOKED              #001360
                                                                        001370
      INVER = FALSE;               # CDCS NO LONGER INVOKED            #
  
      RETURN; 
      END 
TERM
