*DECK CBSCITM 
USETEXT TSBP2CM                                                         006820
      FUNC CBSCITM(ZZZZZZZZ); 
      BEGIN 
  
# EXTERNAL REFERENCES#
      XREF PROC DE$DISC;     # READ SCHEMA ITEM GIVEN NAME# 
  
# DECLARATIONS BETWEEN $BEGIN AND $END BLOCKS ARE SATISFIED BY SYMPL   #006840
# TEXTS AS INDICATED IN THE USETEXT DIRECTIVE.                         #006850
                                                                        006860
      $BEGIN     # SYMPL TEXT * TSBP2CM * USED #                        006870
                                                                        006880
*CALL CBPASS2CM 
      CONTROL EJECT;
                                                                        006900
      $END                                                              006910
# 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; 
