Gost Quick Screen Question?

[Jones Allen (Van)]

It is not necessary to test "accessok" in a "while retrieving" construct.
all you need, for example, is:
 WHILE RETRIEVING file
  BEGIN
        DO INTERNAL procedure
  END
The statements inside the "while retrieving" construct will execute only as
long as the "while retrieving" retrieves a record.  I'm not sure what
happens in your case.  If accessok is false the statements inside the
condition won't get executed.  Maybe "accessok" is false before the "while
retrieving" begins.  Since simpler is better, I'd remove the tests for
"accessok" and try again.

-----Original Message-----
From: Abraham Zwygart [mailto:azwygart@anodizing.com]
Sent: April 6, 1999 10:09 AM
To: powerh-l@lists.swau.edu
Subject: Gost Quick Screen Question?


Hi,

I have a quick ghost screen that is giving me problems.  What I am trying to
do is take a input files and creating one to many detail records.   The
process works great for the first 13 records read from ack-header,  then it
starts over at record 1.  Why is this happening and how do I fix the
problem?

Thanks for any help given.
Abraham Z.           e-mail azwygart@anodizing.com

Sample Code:

CAN CLE
SET DEF
SCREEN ORDOPER.OBJS &
       NOMODE       &
       NOACTION

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

FILE ACK-DIE-ITEM DESIGNER
     ACCESS VIA A-WORK-ORDER USING A-WORK-ORDER OF ACK-HEADER
     SELECT IF DELETE-CODE OF ACK-DIE-ITEM = ' '

FILE ACK-NON-DIE-ITEM DESIGNER
     ACCESS VIA A-WORK-ORDER USING A-WORK-ORDER OF ACK-HEADER
     SELECT IF DELETE-CODE OF ACK-DIE-ITEM = ' '

FILE TEMPER-FILE DESIGNER
     ACCESS VIA TEMPER USING TEMPER OF ACK-DIE-ITEM

FILE ACK-OPERATIONS  DESIGNER

......
;-------------------------------------------------------------------

PROCEDURE INTERNAL PROCESS-REC
   BEGIN

;   DO DIE ITEM

 INFO = 'PROCESS-REC  DIE-ITEM A-WORK-ORDER: ' + &
       ASCII ( A-WORK-ORDER OF ACK-HEADER ) + '  '  NOW RESP

   WHILE RETRIEVING ACK-DIE-ITEM
      BEGIN
      IF ACCESSOK
         THEN DO INTERNAL DIE-REC
      END

;    DO NON DIE ITEMS

   WHILE RETRIEVING ACK-NON-DIE-ITEM
      BEGIN
      IF ACCESSOK
        THEN DO INTERNAL NON-DIE-REC
      END

   END

;-------------------------------------------------------------------

PROCEDURE INITIALIZE
   BEGIN

   WHILE RETRIEVING ACK-HEADER SEQUENTIAL
      BEGIN
      IF ACCESSOK
         THEN DO INTERNAL PROCESS-REC
      END

   RETURN


   END



= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
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
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.