*COMDECK CLOSEFILE
#----------------------------------------------------------------------#
#                                                                      #
#     CLOSEFILE                    CLOSE SEQUENTIAL FILE, RELEASE CM   #
#                                                                      #
#----------------------------------------------------------------------#
  
      PROC CLOSEFILE; 
      BEGIN 
      IF FITOC EQ OC$OPEN          # IF FILE OPEN                      #
      THEN
        BEGIN 
        CLOSEM(FIT, $DET$, RA0);   # CLOSE FILE, RELEASE BUFFER SPACE  #
        END 
  
      P<LFNINFO> = P<FIT> - L$FITOFFSET;
      IF L$WSA NQ 0                # IF WSA ASSIGNED                   #
      THEN
        BEGIN 
        CMM$FRF(L$WSA);            # RELEASE WSA                       #
        L$WSA = 0;                 # INDICATE NO WSA ASSIGNED          #
        END 
  
      RETURN; 
      END 
