*DECK INTERCEP
USETEXT CCTTEXT 
PROC INTERCEPTOR(COLUMN,LINE,LOCALID,SEVERITY); 
 BEGIN
  ITEM COLUMN I;
  ITEM LINE I;
  ITEM LOCALID I; 
  ITEM SEVERITY I;
  
  
*CALL ETEXT 
*CALL TABLETYP
  
      ITEM ETXTINDX      I; 
      ITEM AI            U;  # ACTUAL INDEX RETURNED BY VIRTUAL # 
      XREF FUNC VIRTUAL  U; 
              $BEGIN
              ITEM  I        I; 
              XREF
                  BEGIN 
                  PROC    OUTPUT; 
                  FUNC    DEC  C(10); 
                  END 
  
              IF CCTINTRDBUG NQ 0  THEN 
                  BEGIN 
                  I = CCTPHASEID * 1000 + LOCALID;
                  OUTPUT(7, "  DIAG: LI","NE,COB,NR,", "SEV= ", 
                      DEC(LINE),DEC(COLUMN),DEC(I),DEC(SEVERITY));
                  END 
  
              $END
  
        ETXTINDX = CCTETEXTLEN; 
        IF ETXTINDX EQ 0
        THEN ET$INFO[VIRTUAL(TABLETYPE"ETEXT$",ETXTINDX)]=0;
        ETXTINDX = ETXTINDX + 1;
        AI = VIRTUAL(TABLETYPE"ETEXT$",ETXTINDX); 
             ET$GLOBAL$NO[AI] = 0;
             ET$LINE$NO[AI] = LINE; 
             ET$COLUMN$NO[AI] = COLUMN; 
             ET$PHASE$NO[AI] = CCTPHASEID;
          ET$SEVRTY$NO[AI] = 0;    #ITS IGNORED#
             ET$LOCAL$NO[AI] = LOCALID; 
        CCTETEXTLEN = CCTETEXTLEN + 1;
END #INTERCEPTOR# 
TERM
