*DECK CBSSRCA 
USETEXT TSBP2CM 
      FUNC CBSSRCA(SCADD);
      BEGIN 
 #
* *   CBSSRCA 
* *   C O GIMBER                                 10.9.74
* 
* DC  PURPOSE 
* 
*     FUNCTION RETURNS SUBSCHEMA RECORD ADDRESS GIVEN SCHEMA RECORD 
*     ADDRESS.  THIS IS DONE BY SEARCHING A TABLE CREATED BY CBCKREC. 
* 
* DC  DESCRIPTION 
* 
*     SEARCH RECADT TABLE TO FIND SCHEMA RECORD ADDRESS 
*     IF NOT FOUND RETURN 0 
*     RETURN SUBSCHEMA RECORD ADDRESS FROM TABLE
 #
  
# PASSED PARAMETERS#
      ITEM SCADD;            #SCHEMA RECORD WORD ADDRESS# 
  
  
      CONTROL EJECT;
      FOR INDEX=0 STEP 1 UNTIL RECADTL DO 
        IF SCADD EQ SCRECADRS[INDEX] THEN 
          BEGIN 
          CBSSRCA = SSRECADRS[INDEX]; 
          RETURN; 
          END 
      CBSSRCA = 0;
      RETURN; 
      END 
      TERM; 
