*DECK CBCKEL
USETEXT TSBP2CM                                                         006700
      PROC CBCKEL;
      BEGIN 
  
# EXTERNAL REFERENCES#
      XREF PROC CBCKCNV;      #CHECK CONVERSION FOR LEGALITY# 
      XREF PROC CBDBPBD;    #ADD DBP NAME TO DBP TABLE# 
      XREF PROC CBERROR;
  
# DECLARATIONS BETWEEN $BEGIN AND $END BLOCKS ARE SATISFIED BY SYMPL   #006720
# TEXTS AS INDICATED IN THE USETEXT DIRECTIVE.                         #006730
                                                                        006740
      $BEGIN     # SYMPL TEXT * TSBP2CM * USED #                        006750
                                                                        006760
*CALL CBPASS2CM 
                                                                        006780
      $END                                                              006790
      CONTROL EJECT;
# IF NOT SAME DESCRIPTION THEN NOT IDENTICAL AND DATA CONVERSION# 
# CHEK FOR SIZE, DATACLASS, SIGN, LOCATION, JUSTIFICATION, SYN# 
      IF SBITMUSESIZE[SSITEMOFFSET] NQ SCITEMSIZE[SCITEMOFFSET] 
      OR SBITMDBCLASS[SSITEMOFFSET] NQ SCITEMCLASS[SCITEMOFFSET]
      OR SBITMPTINFO[SSITEMOFFSET] NQ SCITMPTINFO[SCITEMOFFSET] 
      OR (SBITMSGNINFO[SSITEMOFFSET] NQ SCITMSIGNINF[SCITEMOFFSET] AND  000699
          SBITMDBCLASS[SSITEMOFFSET] LS 10)                             000700
      OR SBITMSYNJINF[SSITEMOFFSET] NQ 0
      THEN
        BEGIN 
        IF SBITMUSESIZE[SSITEMOFFSET] GR SCITEMSIZE[SCITEMOFFSET] 
        THEN
          BEGIN                    # IF SS ITEM SIZE GR THAN SCHEMA    #
                                   # ITEM SIZE ISSUE TRUNCATION WARNING#
          CBERROR(314,TRUE, 
                  SBITMNAME[SBITMNAMEPTR[SSITEMOFFSET]+SSITEMOFFSET], 
                  SBITMNMELENC[SSITEMOFFSET]);
          END 
        IF SCITEMCHECKS[SCITEMOFFSET] NQ 0 AND
          SCITMCKPIC[SCITEMOFFSET+SCITEMCHECKS[SCITEMOFFSET]] THEN
          CBERROR(315,TRUE, 
                  SBITMNAME30[SSITEMOFFSET+SBITMNAMEPTR[SSITEMOFFSET]], 
                  SBITMNMELENC[SSITEMOFFSET]);
        IDENTICAL[CURRENT] = FALSE; 
        OM$DATACONV = TRUE; 
        END 
# CHECK FOR VALID CONVERSION# 
      CBCKCNV;
      END 
      TERM; 
