*> DB bridge common variables
      *> Include in WORKING-STORAGE SECTION with COPY DB-COMMON.
       01 WS-SQL-STR            PIC X(2048).
       01 WS-SQLCODE            PIC S9(9) COMP-5.
       01 WS-COL-IDX            PIC S9(9) COMP-5.
       01 WS-COL-LEN            PIC S9(9) COMP-5.