*DECK CBCKEL
USETEXT TSBP2CM 
      PROC CBCKEL;
      BEGIN 
  
# EXTERNAL REFERENCES#
      XREF PROC CBCKCNV;      #CHECK CONVERSION FOR LEGALITY# 
      XREF PROC CBDBPBD;    #ADD DBP NAME TO DBP TABLE# 
      XREF PROC CBERROR;
  
      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
          SBITMDBCLASS[SSITEMOFFSET] LS 10) 
      OR SBITMSYNJINF[SSITEMOFFSET] NQ 0
      THEN
        BEGIN 
        IF SBITMUSESIZE[SSITEMOFFSET] GR SCITEMSIZE[SCITEMOFFSET] THEN
          CBERROR(314,TRUE);
        IF SCITEMCHECKS[SCITEMOFFSET] NQ 0 AND
          SCITMCKPIC[SCITEMOFFSET+SCITEMCHECKS[SCITEMOFFSET]] THEN
          CBERROR(315,TRUE);
        IDENTICAL[CURRENT] = FALSE; 
        OM$DATACONV = TRUE; 
        END 
# CHECK FOR VALID CONVERSION# 
      CBCKCNV;
      END 
      TERM; 
