***************************************************************
      * For Sample Program 10: Dynamic SQL Method 4                 *
      *                                                             *
      * bndsel.cob : This file gets included in sample10.pco file.  *
      ***************************************************************

       01  BNDDSC.
           02  SQLDNUM             PIC S9(9) COMP VALUE 20.
           02  SQLDFND             PIC S9(9) COMP.
           02  BNDDVAR             OCCURS 20 TIMES.
               03 BNDDV            PIC S9(18) COMP.
               03 BNDDFMT          PIC S9(18) COMP.
               03 BNDDVLN          PIC S9(9) COMP.
               03 BNDDFMTL         PIC S9(4) COMP.
               03 BNDDVTYP         PIC S9(4) COMP.
               03 BNDDI            PIC S9(18) COMP.
               03 BNDDH-VNAME      PIC S9(18) COMP.
               03 BNDDH-MAX-VNAMEL PIC S9(4) COMP.
               03 BNDDH-CUR-VNAMEL PIC S9(4) COMP.
               03 BNDDFILL1        PIC S9(9) COMP.
               03 BNDDI-VNAME      PIC S9(18) COMP.
               03 BNDDI-MAX-VNAMEL PIC S9(4) COMP.
               03 BNDDI-CUR-VNAMEL PIC S9(4) COMP.
               03 BNDDFILL2        PIC S9(9) COMP.
               03 BNDDFCLP         PIC S9(18) COMP.
               03 BNDDFCRCP        PIC S9(18) COMP.
       01  XBNDDI.
           03  BND-DI                OCCURS 20 TIMES PIC S9(4) COMP.

       01  SELDSC.
           02  SQLDNUM             PIC S9(9) COMP VALUE 20.
           02  SQLDFND             PIC S9(9) COMP.
           02  SELDVAR             OCCURS 20 TIMES.
               03 SELDV            PIC S9(18) COMP.
               03 SELDFMT          PIC S9(18) COMP.
               03 SELDVLN          PIC S9(9) COMP.
               03 SELDFMTL         PIC S9(4) COMP.
               03 SELDVTYP         PIC S9(4) COMP.
               03 SELDI            PIC S9(18) COMP.
               03 SELDH-VNAME      PIC S9(18) COMP.
               03 SELDH-MAX-VNAMEL PIC S9(4) COMP.
               03 SELDH-CUR-VNAMEL PIC S9(4) COMP.
               03 SELDFILL1        PIC S9(9) COMP.
               03 SELDI-VNAME      PIC S9(18) COMP.
               03 SELDI-MAX-VNAMEL PIC S9(4) COMP.
               03 SELDI-CUR-VNAMEL PIC S9(4) COMP.
               03 SELDFILL2        PIC S9(9) COMP.
               03 SELDFCLP         PIC S9(18) COMP.
               03 SELDFCRCP        PIC S9(18) COMP.

       01  XSELDI.
           03  SEL-DI                OCCURS 20 TIMES PIC S9(4) COMP.

       01  PRECISION                 PIC S9(9) COMP.
       01  SCALE                     PIC S9(9) COMP.
       01  NULLS-ALLOWED             PIC S9(9) COMP.
       01  DISPLAY-LENGTH            PIC S9(9) COMP.
       01  MAX-LENGTH                PIC S9(9) COMP VALUE 80.