*DECK TSBP2CM 
      PROC TSBP2CM;          # SYMPL TEXT FOR SUBSCHEMA PASS 2 COMMON  #
      BEGIN                  # DECK "CBPASS2CM".                       #
  
      CONTROL STEXT;
*CALL CBPASS2CM 
  
      END 
      TERM; 
