A Quick Question

[Abraham Zwygart]

Hi all,

Working on a HP3000 989, Quick ver 8.19.c1  I have a quick screen that runs
in a batch.  It has worked before.  It just started to only process every
other record.  I have narrowed it down to the fact that it only reads every
other record from the wack-header file.  If I comment out 'DO INTERNAL
PROCESS-REC' it works just fine.  Can anyone tell me what I am doing wrong?

The code is as follows:
CAN CLE
SET DEF
SCREEN ORDOPERS.OBJS &
       NOMODE       &
       NOACTION

FILE WACK-HEADER DESIGNER
     SELECT IF DELETE-CODE  OF WACK-HEADER = ' '

FILE WACK-DIE-ITEM DESIGNER
     ACCESS VIA A-WORK-ORDER USING A-WORK-ORDER OF WACK-HEADER
     SELECT IF DELETE-CODE  OF WACK-DIE-ITEM = ' '
;-------------------------------------------------------------------
PROCEDURE INTERNAL PROCESS-REC
   BEGIN
   WHILE RETRIEVING WACK-DIE-ITEM
      BEGIN
 INFO = 'PROCESS-REC  DIE-ITEM A-WORK-ORDER: ' + &
       ASCII ( A-WORK-ORDER OF WACK-HEADER ) + '  '  NOW RESP
; DO SOME COMMANDS
      END
   END
;-------------------------------------------------------------------
PROCEDURE INITIALIZE
BEGIN
   WHILE RETRIEVING WACK-HEADER SEQUENTIAL VIA A-WORK-ORDER
      BEGIN
INFO = 'WORKING ON A-WORK-ORDER: ' + &
       ASCII ( A-WORK-ORDER OF WACK-HEADER ) NOW RESP
         DO INTERNAL PROCESS-REC
INFO = 'DONE WITH WORKING ON A-WORK-ORDER: ' + &
       ASCII ( A-WORK-ORDER OF WACK-HEADER ) NOW RESP
      END
   RETURN
END
;-------------------------------------------------------------------
BUILD

Abraham Zwygart                
Anodizing Inc.
Senior Programmer Analyst     Email: azwygart@anodizing.com

                            _\\///_
                           (' o-o ')
_________________________ooOo_( )_oOoo_________________________
The thoughts, comments, and opinions expressed herein are mine 
and do not reflect those of my employer(s), or anyone else.
_________________________oooO_____Oooo_________________________
                        (   )    (   )
                         \ (      ) /
                          \_)    (_/


= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.