*
      * BSTTEZA6 COPYRIGHT TEI 2009-2011
      *
      *  USAGE:
      *    PLACE THE FOLLOWING LINE IN THE WORKING STORAGE SECTION.
      *01  EZACIC06-DATA.          COPY BSTTEZA6.
      *
      *
      *  CHANGE LOG:
      *    AUG 19, 2009 TT INITIAL VERSION
      *                 TT = TONY THIGPEN TONY@VSE2PDF.COM
      *
           05  EZ6-BTOC                PIC X(04)       VALUE 'BTOC'.
           05  EZ6-CTOB                PIC X(04)       VALUE 'CTOB'.
           05  EZ6-FLAGS                              VALUE ZEROES.
               10  EZ6-FLAG            PIC X(01)       OCCURS 64 TIMES.
           05  EZ6-MASK                PIC X(08)       VALUE LOW-VALUES.
           05  EZ6-MASK-LENGTH         PIC S9(09) COMP.
           05  EZ6-MAXSOC              PIC S9(09) COMP.
           05  EZ6-SUB1                PIC S9(09) COMP.
      *
      * BSTTEZA6 END
      *