*DECK DB$SR11                                                            JJJ0106
      PROC DB$SR11;          # CLOSE SCHEMA LFN  #                       JJJ0106
      BEGIN                                                              JJJ0106
 #                                                                       JJJ0106
  *   DB$SR11 - CLOSE SCHEMA LFN                 PAGE  1                 JJJ0106
  *   J. JAN JANIK                               DATE  01/06/76          JJJ0106
  
  DC  PURPOSE                                                            JJJ0106
                                                                         JJJ0106
      TO CLOSE THE SCHEMA LFN IF OPEN.                                   JJJ0106
                                                                         JJJ0106
  DC  ENTRY CONDITIONS                                                   JJJ0106
                                                                         JJJ0106
      DE$FTSC IS THE FIT FOR THE SCHEMA LFN.
                                                                         JJJ0106
  DC  EXIT CONDITIONS                                                    JJJ0106
                                                                         JJJ0106
      SCHEMA LFN IS CLOSED.                                              JJJ0106
                                                                         JJJ0106
  DC  CALLING ROUTINES                                                   JJJ0106
                                                                         JJJ0106
      DB$STD - SYNTAX TABLE DRIVER                                       JJJ0106
                                                                         JJJ0106
  DC  CALLED ROUTINES                                                    JJJ0106
#                                                                        JJJ0106
      XREF PROC DB$NO;       # NO SIDE OF TRANSFER SYMBOL, STD         # JJJ0106
      XREF PROC DB$WCLS;     # CLOSE A WORD ADDRESSABLE FILE           # JJJ0106
      XREF PROC DB$ERSC;     # CRM ERROR ON SCHEMA                     #
#                                                                        JJJ0106
  DC  NON-LOCAL VARIABLES                                                JJJ0106
#                                                                        JJJ0106
      XREF ARRAY DE$FTSC S(1);  # SCHEMA LFN FIT      # 
 #                                                                     #
        BEGIN                                                            JJJ0106
        ITEM FTSCOCFLG U(17,01,02);      # FILE OPEN/CLOSE FLAG        #
        END                                                              JJJ0106
 #                                                                       JJJ0106
                                                                         JJJ0106
  DC  DESCRIPTION                                                        JJJ0106
                                                                         JJJ0106
      TEST IF FILE IS OPEN, AND CLOSE IT IF IT IS.                       JJJ0106
 #                                                                       JJJ0106
      IF FTSCOCFLG[0] EQ 1 THEN DB$WCLS(DE$FTSC,DB$ERSC); 
 #                                                                       JJJ0106
      RETURN TO STD VIA DB$NO.                                           JJJ0106
 #                                                                       JJJ0106
      DB$NO;                                                             JJJ0106
                                                                         JJJ0106
      END                                                                JJJ0106
      TERM                                                               JJJ0106
