*DECK TSSRC 
      PROC TSSRC ;
      BEGIN 
      CONTROL STEXT;
      BASED ARRAY SRCFIT;          # SOURCE FILE FIT                   #
          BEGIN                                                         006850
        ITEM SRCFITES     U(13,33,09); #ERROR STATUS                   # SSRC 
          END                                                           007010
      END 
      TERM
