*DECK CBCKSS
USETEXT TSBP2CM 
      PROC CBCKSS;
      BEGIN 
  
# EXTERNAL REFERENCES#
      XREF PROC CBERROR;       #ERROR HANDLER#
  
      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);
      SBITMNEWGRP[SSITEMOFFSET] = TRUE; # SET FLAG TO INDICATE CURRENT #
                 # SUB-SCHEMA ITEM IS A NEW GROUP.                     #
      END 
      TERM; 
