Losing a Read Chain pointer in a While Retrieving

[Penney, John]

Dear Listers:
 
I am losing somehow a read chain within a while-retrieving loop- the first row gets processed, I do some updates, then it's off to la-la land and the program exits, while there are more records on the input table to process.. Doh! 
 
Will freely admit that I cribbed a whole whack of code because of the need to get this out....And also state that the "TRANSACTION" and some of the syntax is not exactly a familiar path.
 
I have the following code:
 
SCREEN EXE:CTS_XXXXXXX &
NOMODE FROM 22,1 TO 24,80 &
ACTION LABEL &
"CTS_XXXXXXX Error. Press [PF4]/[PgUp] to Continue" &
AT 3,10 & 
TRANSACTION MODEL CONCURRENCY
 
TRANSACTION READ_ONLY READ ONLY READ COMMITTED

 
FILE ESPS_XXXX IN GLBL_DATABASE DESIGNER &
TRANSACTION READ_ONLY FOR QUERY,PROCESS,UPDATE
ACCESS VIA PATIENT_ID GENERIC USING "@"
 
FILE ESPS_YYYY_ERRORS DESIGNER &
TRANSACTION TRANS_WRITE FOR UPDATE
 
FILE ZZZZ IN GLBL_DATABASE PRIMARY &
TRANSACTION UPDATE FOR QUERY,PROCESS,UPDATE
ACCESS VIA PATIENT_ID 
 

FILE AAAA_EVAL_DATA_HEMO IN GLBL_DATABASE SECONDARY NOITEMS &
TRANSACTION UPDATE FOR QUERY,PROCESS,UPDATE
ACCESS VIA PATIENT_ID USING PATIENT_ID OF ZZZZ 
 
FILE ZZZZ_HST IN GLBL_DATABASE ALIAS HST_PAT_NEW SECONDARY &
TRANSACTION UPDATE FOR QUERY,PROCESS,UPDATE
 
Procedure code is:
 
 
 
 

PROCEDURE INITIALIZE
 
BEGIN
ROLLBACK TRANSACTION QUERY
ROLLBACK TRANSACTION UPDATE
 
WHILE RETRIEVING ESPS_XXXX
 
BEGIN
LET T_RECINP = T_RECINP + 1
DO INTERNAL PROCESS_PART_ROWS
END 
;;
;; Output Program Statistics: 
;;
;; This Procedure writes a Statistics report of rows read from ESPS_XXXX
;; Table and processed/rejected:
;;
 
Everything works like the proverbial charm for the first row- all updates and commits take place in INTERNAL PROCESS_PART_ROWS, everybody's apparently happy, but using DEBUG it just goes to sleep after retrieving that first row on ESPS_XXXX....I do 3 "PUT's" and a commit, and zzzzzz. Exit to OS.
 
Box=HP Alpha
 
PH=QDESIGN710G 
 
Rdb:Oracle Rdb SQL V7.2-351
 
I can think of workarounds, but this shouldn't be rocket science, eh?
 
Tell me it ain't so..
 
Go Canada Go!
 
John M Penney
1532 Fern Street SW
Olympia, WA  98502
 
(360)789-8159


      
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.sowder.com/pipermail/powerh-l/attachments/20100225/8c16f1ae/attachment.htm