*DECK CBCKSS
USETEXT TSBP2CM                                                         006460
      PROC CBCKSS;
      BEGIN 
  
# EXTERNAL REFERENCES#
      XREF PROC CBERROR;       #ERROR HANDLER#
  
# DECLARATIONS BETWEEN $BEGIN AND $END BLOCKS ARE SATISFIED BY SYMPL   #006480
# TEXTS AS INDICATED IN THE USETEXT DIRECTIVE.                         #006490
                                                                        006500
      $BEGIN     # SYMPL TEXT * TSBP2CM * USED #                        006510
                                                                        006520
*CALL CBPASS2CM 
                                                                        006540
      $END                                                              006550
      CONTROL EJECT;
      SCPOINTER[CURRENT] = SCPOINTER[CURRENT-1];
# IF OCCURS EXIST IN SUBSCHEMA ITEM UPDATE MAX OCCURS TALLY#
      IF SBITMOCCURP[SSITEMOFFSET] NQ 0 THEN
        BEGIN 
        INDEX = SSITEMOFFSET+SBITMOCCURP[SSITEMOFFSET]; 
        SSOCCURS[CURRENT] 
          = SSOCCURS[CURRENT-1]*SBITMHIBNDS[INDEX]; 
        IDENTICAL[CURRENT] = FALSE; 
        OM$NOTIDENT = TRUE; 
        END 
      ELSE
        BEGIN 
        SSOCCURS[CURRENT] = SSOCCURS[CURRENT-1];
        IDENTICAL[CURRENT] = TRUE;
        END 
      IF SSTYPE EQ 1 OR SSTYPE GQ 4 
      THEN
        CBERROR(302,TRUE, 
                SBITMNAME30[SSITEMOFFSET+SBITMNAMEPTR[SSITEMOFFSET]], 
                SBITMNMELENC[SSITEMOFFSET]);
      SBITMNEWGRP[SSITEMOFFSET] = TRUE; # SET FLAG TO INDICATE CURRENT #
                 # SUB-SCHEMA ITEM IS A NEW GROUP.                     #
      END 
      TERM; 
