*DECK COBXF 
          PRGM COBXF; 
  
 #        COBXF - SETS UP CROSS REFERENCE INFO                         #
  
          BEGIN 
*CALL TABLETYP
          XREF
              BEGIN 
              PROC XF;
              PROC TMREOP;
              PROC TMRECL;
  
              PROC OVERRTN;   #RETURN FROM OVERLAY# 
              END 
  
  
  
 #     START OF EXECUTION                                              #
  
 #     RE-OPNE TABLES WHICH WERE CLOSED BY SSCANNER # 
          TMREOP (TABLETYPE "AWRT$"); 
          TMREOP (TABLETYPE "DNT$");
          TMREOP (TABLETYPE "PNT$");
          TMREOP (TABLETYPE "INT$");
          TMREOP (TABLETYPE "NAMET$");
          XF;     #EXECUTE CROSS REFERENCE# 
          TMRECL (TABLETYPE "AWRT$"); 
          TMRECL (TABLETYPE "DNT$" ); 
          TMRECL (TABLETYPE "INT$" ); 
          TMRECL (TABLETYPE "PNT$" ); 
          TMRECL (TABLETYPE "NAMET$");
          OVERRTN;
          END 
          TERM
