Online 7.11,4GL 4.11 Insert Cursor Problem
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
+---------------------------------------------------------------------+
| Tolis Varnas email: tvarnas@compulink.gr |
| Deligiorgi 26 tvarnas@orbit.de |
| 546 42 Thessaloniki Voice: (30) 31 820270 |
| Greece Fax: (30) 31 865463 |
+---------------------------------------------------------------------+