A Quick Question

[Robert J.M. Edis]

G'day Abraham

In my experience, the ACCESS statement associated with a DESIGNER file is
just documentation - QUICK ignores it!

I would suggest you code the record access logic at the WHILE RETRIEVING
WACK-DIE-ITEM statement.  It wouldn't hurt to put the check for the
DELETE-CODE value there either.

In short, I wouldn't trust any ACCESS or SELECT logic when using a DESIGNER
file - I always put the logic at the GET/WHILE logic.

Regards,

Blue


-----Original Message-----
From: Abraham Zwygart
To: powerh-l@lists.swau.edu
Sent: 1/18/00 2:30 PM
Subject: A Quick Question

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.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.