The illustration image004.gif shows the following SQLDA example:

*     Sample Select Descriptors and Data Buffers

*     Descriptors
      INTEGER      SELN
      INTEGER      SELF
      INTEGER*4    SELS(20)
      INTEGER*2    SELM(20)
      INTEGER*2    SELC(20)
      INTEGER*4    SELL(20)
      INTEGER*2    SELT(20)
      INTEGER*4    SELV(20)
      INTEGER*4    SELI(20)

*     Buffers
      LOGICAL*1    SELSB(30,20)
      LOGICAL*1    SELVG(80,20)
      INTEGER      SELIV(20)

      COMMON /SELDSC/
     1  SELN,  SELF,  SELS,  SELM   SELC,  SELL,
     2  SELT,  SELV,  SELI, SELSB  SELVB, SELIV


*     Sample Bind Descriptors and Data Buffers

*     Descriptors
      INTEGER      BNDN
      INTEGER      BNDF
      INTEGER*4    BNDS(20)
      INTEGER*2    BNDM(20)
      INTEGER*2    BNDC(20)
      INTEGER*4    BNDL(20)
      INTEGER*2    BNDT(20)
      INTEGER*4    BNDV(20)
      INTEGER*4    BNDI(20)
      INTEGER*4    BNDX(20)
      INTEGER*4    BNDY(20)
      INTEGER*4    BNDZ(20)

*     Buffers
      LOGICAL*1    BNDSB(30,20)
      LOGICAL*1    BNDVB(80,20)
      LOGICAL*1    BNDXB(30,20)
      INTEGER      BNDIV(20)

      COMMON /BNDDSC/
     1   BNDN,  BNDF,  BNDS,  BNDM,  BNDC,  BNDL
     2   BNDT,  BNDV,  BNDI,  BNDX,  BNDY,  BNDZ
     3  BNDSB, BNDVB, BNDXB, BNDIV