Gost Quick Screen Question?

[Watt, Peter]

Abraham,

There appears to be some code that is required to fully understand this
question.  I notice that in your INITIALIZE procedure you have the return
verb.  Is it possible that the calling screen is simply re-calling the ghost
screen over and over?  Have you tried the DEBUG mode to step through the
code to try and understand what it is doing?  How many records are there in
ACK-HEADER?  How many with the 'SELECT' statement being true?  Are you
updating ACK-HEADER anywhere in the missing code?  

Sorry, more questions than answers but maybe this will help.
Peter Watt

Ps.  BTW, you do not need to specify the 'IF ACCESSOK' in a while retrieving
loop as it is always true until the loop has exited.

	-----Original Message-----
	From:	Abraham Zwygart [SMTP:azwygart@anodizing.com]
	Sent:	Tuesday, April 06, 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.