*DECK CBSCITM 
USETEXT TSBP2CM 
      FUNC CBSCITM(ZZZZZZZZ); 
      BEGIN 
  
# EXTERNAL REFERENCES#
      XREF PROC DE$DISC;     # READ SCHEMA ITEM GIVEN NAME# 
  
# LOCAL DECLARATIONS# 
      ITEM ZZZZZZZZ;
      ITEM XXXXXXXX;
  
      IF SBITMALIASP[ZZZZZZZZ] EQ 0 THEN
        BEGIN 
        NAME = SBITMNAME30[ZZZZZZZZ+SBITMNAMEPTR[ZZZZZZZZ]];
        NAMEL = SBITMNELENW[ZZZZZZZZ];
      NAMELC = SBITMNMELENC[ZZZZZZZZ];
        END 
      ELSE
        BEGIN 
        NAME = SBITMALIAS30[ZZZZZZZZ+SBITMALIASP[ZZZZZZZZ]];
        NAMEL = SBITMALIASLW[ZZZZZZZZ]; 
      NAMELC = SBITMALIASLC[ZZZZZZZZ];
        END 
      DE$DISC(DITSC,SCRECADDR,NAME,NAMEL,0,SCHEMA); 
      XXXXXXXX = DAENTAD[0]-SCRECADDR;
      IF XXXXXXXX GQ 0 THEN 
        BEGIN 
          IF DASTATE[0] GR 0
            OR DAENTAD[0] GR SCRECADDR + SCRECENTLEN[0] 
            OR C<0,NAMELC>SCITMNAM30[XXXXXXXX+SCITMNAMEPTR[XXXXXXXX]] 
                 NQ C<0,NAMELC>NAME THEN
              XXXXXXXX = -1;
      CBSCITM = XXXXXXXX; 
        END 
      CBSCITM = XXXXXXXX; 
      CBSCITM = XXXXXXXX; 
      END 
      TERM; 
