Online 7.11,4GL 4.11 Insert Cursor Problem

Online 7.11,4GL 4.11 Insert Cursor Problem

Post by Apostolos Varn » Sun, 31 Dec 1899 09:00:00



Hi,
one of our clients is facing following problem:
By using an insert cursor in a loop in a 4gl 4.11 Testprogram the Program
blocks after it has inserted 19900 records.There is  no problem with
logical logs or locks as after 100 records the transaction is being
commited.
The same test program under 4gl 6.02 runs without problem.But if they try
to compile the Application under 6.02 they get errors like -402 etc.
At the moment they don't have the time to convert the programs from the
4.x to the 6.x version.
Is there a solution for this problem and what's the problem actually?
Versions: Online 7.11.UC1
          RDS 4.11
          DEC Alpha OSF 1 Ver 3.2

The Testprogramm looks like this:

DATABASE gepps

GLOBALS
  DEFINE pr_tabname CHAR(1024)
END GLOBALS

MAIN
   DEFINE pr_zahl INTEGER
   SELECT tabname FROM systables WHERE tabname = "testtab"
   IF STATUS = 0 THEN
      DROP TABLE testtab
   END IF
   CREATE TABLE testtab (texte CHAR(1024))
   DECLARE i_test CURSOR WITH HOLD FOR
       INSERT INTO testtab VALUES (pr_tabname)
   BEGIN WORK

   OPEN i_test
   FOR pr_zahl = 1 TO 50000
       LET pr_tabname = "Zeile ", pr_zahl USING "<<<<<<<<<"
       PUT i_test
       IF pr_zahl MOD 100 = 0 THEN
            DISPLAY pr_zahl "Datensaetzte eingefuegt"
            FLUSH i_test
            COMMIT WORK
            BEGIN WORK
       END IF
    END FOR
    CLOSE i_test
    COMMIT WORK
    DROP TABLE testtab
END MAIN

TIA

Tolis
+---------------------------------------------------------------------+


| 546 42 Thessaloniki           Voice: (30) 31 820270                 |
| Greece                        Fax:   (30) 31 865463                 |
+---------------------------------------------------------------------+