Losing a Read Chain pointer in a While Retrieving

[Markus Grossrieder]

Hi John, 

this may be a stupid question (but since nobody else is giving it a try ... ), but you do not modify  PATIENT_ID OF ESPS_XXX in your internal proc PROCESS_PART_ROWS ?

Markus

HOPP SCHWITZ ! (we ALMOST did it ...)

  ----- Original Message ----- 
  From: Penney, John 
  To: power-l 
  Sent: Friday, February 26, 2010 12:20 AM
  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 




------------------------------------------------------------------------------


  -- 
  = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  Mailing list: powerh-l at lists.sowder.com
  Subscribe: 'subscribe' in message body to powerh-l-request at lists.sowder.com
  Unsubscribe: 'unsubscribe <password>' in message body to powerh-l-request at lists.sowder.com
  http://lists.sowder.com/mailman/listinfo/powerh-l
  This list is closed, thus to post to the list you must be a subscriber.
  Add 'site:lists.sowder.com powerh-l' to your search terms to search the list archive at Google.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.sowder.com/pipermail/powerh-l/attachments/20100226/76ed4afa/attachment.htm