Losing a Read Chain pointer in a While Retrieving

Fri Feb 26 10:24:11 CST 2010

Thanks, Stephen, I did not include the fact that I am only, repeat only, reading ESPS_XXXX and inserting/updating the other files I declare in the program. Which is why I declared two Transaction types.

John M Penney
1532 Fern Street SW
Olympia, WA  98502

(360)789-8159

--- On Fri, 2/26/10, Stephen Hulbert <shulbert at littlejohnllp.com> wrote:

From: Stephen Hulbert <shulbert at littlejohnllp.com>
Subject: RE: Losing a Read Chain pointer in a While Retrieving
To: "'Penney, John'" <resolutebay at yahoo.com>
Date: Friday, February 26, 2010, 3:18 AM

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 "@"

There’s your problem, the transaction is read only but you’re trying to update.

Later, the code mentions a transaction TRANS_WRITE maybe you need to use that.
Regards,
Stephen.

-- 
Stephen Hulbert 
Senior Analyst Programmer 
For and on behalf of 
Littlejohn LLP 
Direct: 020 7516 2201 

From: powerh-l-bounces+shulbert=littlejohnllp.com at lists.sowder.com [mailto:powerh-l-bounces+shulbert=littlejohnllp.com at lists.sowder.com] On Behalf Of Penney, John
Sent: 25 February 2010 23:21
To: power-l
Subject: Losing a Read Chain pointer in a While Retrieving

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

Littlejohn
1 Westferry Circus
Canary Wharf
London
E14 4HD

T: 020 7516 2200
F: 020 7516 2400
www.littlejohnllp.com

Littlejohn LLP, Chartered Accountants

** Notice of change of email and web address **

With effect from 30th January 2009 our email addresses have changed to @littlejohnllp.com
and our website address is now www.littlejohnllp.com

The information contained in this communication is confidential and may be
legally privileged. It is intended solely for the use of the individual or
entity to whom it is addressed and others authorised to receive it. If you
are not the intended recipient you are hereby notified that any disclosure,
copying, distribution or taking of any action in reliance on the contents of
this information is strictly prohibited and may be unlawful.

Littlejohn LLP reserves the right to monitor the content of any
message sent to or from littlejohnllp.com.

Littlejohn LLP is registered as a limited liability partnership in England and Wales No. OC342572.  
Registered office as above.

Any reference to a partner is to a member of the limited liability partnership. 
A list of members is available at the registered office.

Littlejohn Advisors LLP is a limited liability partnership registered in 
England and Wales No. OC331599. Registered office as above.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.sowder.com/pipermail/powerh-l/attachments/20100226/b41c736d/attachment-0001.htm 