*DECK CBSSRCA 
USETEXT TSBP2CM                                                         007420
      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# 
  
  
# DECLARATIONS BETWEEN $BEGIN AND $END BLOCKS ARE SATISFIED BY SYMPL   #007440
# TEXTS AS INDICATED IN THE USETEXT DIRECTIVE.                         #007450
                                                                        007460
      $BEGIN     # SYMPL TEXT * TSBP2CM * USED #                        007470
                                                                        007480
*CALL CBPASS2CM 
                                                                        007500
      $END                                                              007510
      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; 
