*DECK DMLDRP
      PROC DMLDRP(ERRRTN);
        BEGIN 
 #
* *   DMLDRP -- DROP INTERFACE ROUTINE           PAGE  1
* *   H.S.WOO                                    DATE  07/30/80 
* * 
* DC  PURPOSE 
* 
*     ISSUE A DROP REQUEST TO CDCS. 
* 
* DC  ENTRY CONDITIONS
* 
* D   PARAMETERS
* 
*     ERRRTRN -- ERROR BRANCH(OPTIONAL).
* 
* D   ASSUMPTIONS 
* 
*     COMMON BLOCK DB0000 HAS BEEN CREATED. 
* 
* DC  EXIT CONDITIONS 
* 
*     STORE ERROR STATUS IN VARIABLE DBSTAT.  CONTROL 
*     IS RETURNED TO THE APPLICATION PROGRAM.  ON 
*     ERROR, EXIT IS MADE TO THE LABEL SPECIFIED IN 
*     THE ERRRTN PARAMETER(OPTIONAL). 
* 
* DC  CALLING ROUTINES
* 
*     DMLDRP IS CALLED FROM THE APPLICATION PROGRAM 
*     AS A RESULT OF A DML DROP STATEMENT.
* 
* DC  CALLED ROUTINES 
* 
*     DB$DROP  -- CDCS DROP TRANSACTION OBJECT-TIME ROUTINE.
* 
*     DMLRTRN -- RETURN ROUTINE -- SETS REGISTER
*                TO RETURN PARAMETER. 
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     DBSTAT IN COMMON BLOCK DB0000 IS MODIFIED.
* 
* DC  DESCRIPTION 
* 
*     A CALL TO DMLDRP IS GENERATED BY THE PREPROCESSOR 
*     AS A RESULT OF A DML DROP STATEMENT.  DMLDRP
*     ISSUES THE DROP REQUEST TO CDCS, THEN RETURNS 
*     ERROR STATUS AND CONTROL TO THE APPLICATION PROGRAM.
 #
        CONTROL EJECT;
  
#**********************************************************************#
#                                                                      #
#     F O R M A L    P A R A M E T E R S   D E C L A R A T I O N S     #
#                                                                      #
        ITEM ERRRTN  I;            # (FTN5)ERROR PARAMETER(OPTIONAL)   #
                                   # DO NOT REFERENCE,MAY BE ABSENT    #
#                                                                      #
#     X R E F      D E C L A R A T I O N S                             #
#                                                                      #
        XREF PROC DB$DROP;         # CDCS DROP OBJECT-TIME ROUTINE     #
        XREF PROC DMLRTRN;         # SET RETURN REGISTER ROUTINE       #
#                                                                      #
#     C O M M O N   B L O C K    D E C L A R A T I O N                 #
#     F O R    F O R T R A N                                           #
#                                                                      #
        COMMON DB0000;
*CALL DB0DCLS 
#**********************************************************************#
  
                                   #   L O C A L    I T E M S          #
        ITEM RTNPARM  I;           # RETURN PARAMETER                  #
        CONTROL EJECT;
        CONTROL DISJOINT; 
  
#     E X E C U T A B L E    C O D E    B E G I N S    H E R E         #
  
        DB$DROP(RTNPARM);          # CALL CDCS DROP OBJECT-TIME ROUTINE#
        DBSTAT = RTNPARM;          # STORE THE ERROR STATUS IN DBSTAT  #
        IF RTNPARM NQ 0            # CDCS/CRM ERROR                    #
        THEN
          BEGIN 
          RTNPARM = 1;             # RESET RTNPARM                     #
          END 
        DMLRTRN(RTNPARM);          # SET THE RETURN REGISTER           #
        RETURN; 
      END 
      TERM
