Gost Quick Screen Question?

[Abraham Zwygart]

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.