RE: SIMPLE 4GL PROGRAM
What's the LOGGING for your database?
-----Original Message-----
From: Langton.Tigere@icl.com [mailto:Langton.Tigere@icl.com]
Sent: Thursday, December 07, 2000 2:30 AM
To: informix-list@iiug.org
Subject: SIMPLE 4GL PROGRAM
I have written a program as shown below. The problem is that after every two
rows it fails and has to be re run again to work as if
it needs to be re-initialised after having completed the first loop. Could
some assist me with how I can modify the program such that
it re - initialises after every loop.
database ptc0
DEFINE g_bkrecA RECORD LIKE bkrec.*
DEFINE g_bkrecB RECORD LIKE bkrec.*
MAIN
DECLARE bkrec_cur CURSOR FOR
SELECT * from bkrec
WHERE bkr_proof = 0
AND bkr_status = 'R'
AND bkr_linkref = ' '
AND bkr_multicurr = ' '
AND bkr_code <> 'CHQ'
AND bkr_batchref NOT MATCHES ' *'
{order by bkr_batchref}
FOREACH bkrec_cur INTO g_bkrecA.*
DISPLAY g_bkrecA.bkr_batchref,' voucher ',g_bkrecA.bkr_voucher,
'linkref',g_bkrecB.bkr_linkref AT 15,15
SELECT * INTO g_bkrecB.*
FROM bkrec , bkpaymnt
WHERE bkr_batchref = g_bkrecA.bkr_batchref
AND bkr_currvalue = g_bkrecA.bkr_currvalue
AND bkr_source = bkpm_source
AND bkr_code != "CHQ"
AND bkr_page = 0
AND bkr_proof = bkpm_proof
AND bkr_status = "U"
AND bkr_linkref = bkpm_linkref
IF STATUS = NOTFOUND THEN
ERROR "Corresponding record not found.", g_bkrecA.bkr_voucher
ELSE
UPDATE bkrec
SET bkr_status = 'R',
bkr_page = g_bkrecA.bkr_page
WHERE bkr_source = g_bkrecB.bkr_source
AND bkr_voucher = g_bkrecB.bkr_voucher
AND bkr_trantype = g_bkrecB.bkr_trantype
IF STATUS <> 0 THEN
ERROR "ERROR ", STATUS,
" Updating record voucher :", g_bkrecB.bkr_voucher
ELSE
DELETE FROM bkrec
WHERE bkr_source = g_bkrecA.bkr_source
AND bkr_voucher = g_bkrecA.bkr_voucher
AND bkr_trantype = g_bkrecA.bkr_trantype
END IF
END IF
END FOREACH