*COMDECK,FA=CLO 
          CTEXT  FA=CLO - CLOSE FILE
 CLO      SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   FA=CLO 
  
  
**        FA=CLO - CLOSE FILE.
* 
* 
*         CLOSES A FILE IF OPEN.
* 
*         ENTRY  (X2) = FIT ADDRESS 
* 
*         EXIT   (X2) = FIT ADDRESS 
* 
*         USES   X - 3, 6 
*                A - 3
*                B - NONE 
* 
*         CALLS CLOSEM, FETCH 
  
  
 FA=CLO   JP     *+4S15      ** ENTRY/EXIT ** 
          FETCH  X2,OC,X6,X3
          SX6    X6-#OPE# 
          NZ     X6,FA=CLO   IF NOT OPEN, EXIT
          CLOSEM X2 
          JP     FA=CLO      EXIT 
  
  
          IF     -DEF,QUAL$,2 
          QUAL   *
 FA=CLO   EQU    /FA=CLO/FA=CLO 
          IF     -ABS,FA=CLO,1
          ENTRY  FA=CLO 
  
          ENDX
