Quelle  sqlmore.cbl

      * File: sql.cbl
      01 SQLOPT.
          05 SQLOPTHEADER.
              10 ALLOCATED   PIC 9(9) COMP-5.
              10 USED        PIC 9(9) COMP-5.
          05 SQLOPTIONS OCCURS 1 TO 50 DEPENDING ON ALLOCATED.
              10 SQLOPT-TYPE        PIC 9(9) COMP-5.
              10 SQLOPT-VAL         PIC 9(9) COMP-5.
              10 SQLOPT-VAL-PTR     REDEFINES SQLOPT-VAL.
      * 
       copy sqlca.cbl.