*DECK COBSS 
USETEXT DBTEXT
          PRGM COBSS; 
  
 #        COBSS - SETS UP SOURCE SCANNER INFO                          #
  
          BEGIN 
          XREF
              BEGIN 
              PROC COBOLSS; 
              PROC OVERRTN;   #RETURN FROM OVERLAY# 
              PROC TMSPLIT; 
              END 
*CALL TABLETYP
CONTROL IFNQ CB5$CDCS,"NO"; 
CONTROL FI; 
  
  
 #     START OF EXECUTION                                              #
CONTROL IFNQ CB5$CDCS,"NO"; 
          SAT$PTR = 1;       #INITIALIZE GLOBVAR ITEMS# 
          SSNUMAREAS = 0; 
CONTROL FI; 
  
          COBOLSS;     #EXECUTE SOURCE SCANNER# 
  
          TMSPLIT(TABLETYPE"PLT$");   # SPLIT FOR ADDITION OF EDIT PATS#
          TMSPLIT(TABLETYPE"PLTSTR$");
  
          OVERRTN;
          END 
          TERM
