MINI MINI MANI MO

      ***************************************************************
      * 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-5 VALUE 20.
           02  SQLDFND             PIC S9(9) COMP-5.
           02  BNDDVAR             OCCURS 20 TIMES.
               03 BNDDV            PIC S9(18) COMP-5.
               03 BNDDFMT          PIC S9(18) COMP-5.
               03 BNDDVLN          PIC S9(9) COMP-5.
               03 BNDDFMTL         PIC S9(4) COMP-5.
               03 BNDDVTYP         PIC S9(4) COMP-5.
               03 BNDDI            PIC S9(18) COMP-5.
               03 BNDDH-VNAME      PIC S9(18) COMP-5.
               03 BNDDH-MAX-VNAMEL PIC S9(4) COMP-5.
               03 BNDDH-CUR-VNAMEL PIC S9(4) COMP-5.
               03 BNDDFILL1        PIC S9(9) COMP-5.
               03 BNDDI-VNAME      PIC S9(18) COMP-5.
               03 BNDDI-MAX-VNAMEL PIC S9(4) COMP-5.
               03 BNDDI-CUR-VNAMEL PIC S9(4) COMP-5.
               03 BNDDFILL2        PIC S9(9) COMP-5.
               03 BNDDFCLP         PIC S9(18) COMP-5.
               03 BNDDFCRCP        PIC S9(18) COMP-5.
           02 SQLBNDCP             OCCURS 20 TIMES PIC S9(9) COMP-5.
       01  XBNDDI.
           03  BND-DI                OCCURS 20 TIMES PIC S9(4) COMP-5.
       01  SELDSC.
           02  SQLDNUM             PIC S9(9) COMP-5 VALUE 20.
           02  SQLDFND             PIC S9(9) COMP-5.
           02  SELDVAR             OCCURS 20 TIMES.
               03 SELDV            PIC S9(18) COMP-5.
               03 SELDFMT          PIC S9(18) COMP-5.
               03 SELDVLN          PIC S9(9) COMP-5.
               03 SELDFMTL         PIC S9(4) COMP-5.
               03 SELDVTYP         PIC S9(4) COMP-5.
               03 SELDI            PIC S9(18) COMP-5.
               03 SELDH-VNAME      PIC S9(18) COMP-5.
               03 SELDH-MAX-VNAMEL PIC S9(4) COMP-5.
               03 SELDH-CUR-VNAMEL PIC S9(4) COMP-5.
               03 SELDFILL1        PIC S9(9) COMP-5.
               03 SELDI-VNAME      PIC S9(18) COMP-5.
               03 SELDI-MAX-VNAMEL PIC S9(4) COMP-5.
               03 SELDI-CUR-VNAMEL PIC S9(4) COMP-5.
               03 SELDFILL2        PIC S9(9) COMP-5.
               03 SELDFCLP         PIC S9(18) COMP-5.
               03 SELDFCRCP        PIC S9(18) COMP-5.
           02 SQLDSCCP             OCCURS 20 TIMES PIC S9(18) COMP-5.
       01  XSELDI.
           03  SEL-DI                OCCURS 20 TIMES PIC S9(4) COMP-5.
       01  PRECISION                 PIC S9(9) COMP-5.
       01  SCALE                     PIC S9(9) COMP-5.
       01  NULLS-ALLOWED             PIC S9(9) COMP-5.
       01  DISPLAY-LENGTH            PIC S9(9) COMP-5.
       01  MAX-LENGTH                PIC S9(9) COMP-5 VALUE 80.