Gost Quick Screen Question?

[Watt, Peter]

What system are you working on?  Is it Unix, VMS, MPE, etc.  What database
is being used?  Is the data possibly corrupted?  Again, I suggest to use
DEBUG to track where it is going wrong.  


	-----Original Message-----
	From:	Abraham Zwygart [SMTP:azwygart@anodizing.com]
	Sent:	Tuesday, April 06, 1999 2:36 PM
	To:	powerh-l@lists.swau.edu
	Subject:	Re: Gost Quick Screen Question?

	Hi again,

	There have been several responses to my initial request.  Here is
the answer
	to some of the questions asked.

	How many records are there in:
	    ACK-HEADER has 60,000 + records
	    ACK-DIE-ITEM AND ACK-NON-DIE-ITEM have over 100,000 + each
	    The only file that I am writing to is ACK-OPERATIONS.
	After the initial startup I will be getting order files sent to thru
EDI
	that will have to be processed.  Those record counts are un-known.

	The quick screen will exit when it reaches the RETURN.  This is
needed
	because the screen is ran in a batch job.

	Use INFO statements
	I have used info statements and have documented that the process get
records
	work-order's 1 thru 13  and process them correctly then goes back to
1.  It
	never get's to 14?

	I have taken the ACCESSOK out.
	    It did not seem to make a difference.

	;-------------------------------------------------------------------
	This works, BUT  I have no idea what the work-orders are.  I hate to
have to
	check every possible work-order key.

	PROCEDURE INITIALIZE
	   BEGIN
	   LET T-WORK-ORDER = 1
	   WHILE T-WORK-ORDER < 99999
	      BEGIN
	      GET ACK-HEADER VIA A-WORK-ORDER USING T-WORK-ORDER OPT
	      IF ACCESSOK
	         THEN  DO INTERNAL PROCESS-REC
	      LET T-WORK-ORDER = T-WORK-ORDER + 1
	      END
	   RETURN
	   END
	================================================================

	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

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

	TEMP KOUNT INT*2
	;-------------------------------------------------------------------
	PROCEDURE INTERNAL DIE-SETUP-REC
	   BEGIN

	   LET WORK-ORDER-SEQ  OF ACK-OPERATIONS = A-WORK-ORDER OF
ACK-DIE-ITEM
	   LET ITEM-NUM-SEQ    OF ACK-OPERATIONS = ITEM-NUM     OF
ACK-DIE-ITEM
	   LET SEQ-NUM         OF ACK-OPERATIONS = KOUNT

	   LET WORK-ORDER-R    OF ACK-OPERATIONS = A-WORK-ORDER OF
ACK-DIE-ITEM
	   LET ITEM-NUM        OF ACK-OPERATIONS = ITEM-NUM     OF
ACK-DIE-ITEM

	   LET A-WORK-ORDER    OF ACK-OPERATIONS = A-WORK-ORDER OF
ACK-DIE-ITEM

	   LET HRS-TO-COMP     OF ACK-OPERATIONS = 0
	   LET PROC-START-DATE OF ACK-OPERATIONS = 0
	   LET START-TIME      OF ACK-OPERATIONS = 0
	   LET COMPANY-NUM     OF ACK-OPERATIONS = 1
	   LET COMPLETED-CODE  OF ACK-OPERATIONS = ' '
	   LET DATE-COMPLETED  OF ACK-OPERATIONS = 0
	   LET COMPLETED-TIME  OF ACK-OPERATIONS = 0
	   END


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

	PROCEDURE INTERNAL DIE-REC
	   BEGIN


	   ;  Extrude & Saw
	   LET KOUNT = 1
	   DO INTERNAL DIE-SETUP-REC
	   LET PROCESS-CODE OF ACK-OPERATIONS = 'EX'
	   LET PLANT-CODE   OF ACK-OPERATIONS = &
	       EXTR-PLANT-CODE OF ACK-DIE-ITEM

	; INFO = 'START OF DIE ITEM BEFORE FIRST PUT: ' + &
	;   ASCII ( WORK-ORDER-ITEM-SEQ OF ACK-OPERATIONS)   NOW RESP

	   PUT ACK-OPERATIONS RESET

	;  Heat treat
	   GET TEMPER-FILE OPT
	   IF NEED-HEAT OF TEMPER-FILE <> 'N'
	      THEN BEGIN
	      LET KOUNT = KOUNT + 1
	      DO INTERNAL DIE-SETUP-REC
	      LET PROCESS-CODE OF ACK-OPERATIONS = 'HT'
	      LET PLANT-CODE   OF ACK-OPERATIONS = &
	          EXTR-PLANT-CODE OF ACK-DIE-ITEM

	;INFO = 'BEFORE SECOND PUT DIE ' + &
	;   ASCII ( WORK-ORDER-ITEM-SEQ OF ACK-OPERATIONS)  NOW RESP

	      PUT ACK-OPERATIONS RESET
	      END
	.....
	;-------------------------------------------------------------------

	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 ITEM-NUM OF ACK-DIE-ITEM > 0
	         THEN DO INTERNAL DIE-REC
	      END

	;    DO NON DIE ITEMS

	   WHILE RETRIEVING ACK-NON-DIE-ITEM
	      BEGIN
	      IF ITEM-NUM OF ACK-NON-DIE-ITEM > 0
	        THEN DO INTERNAL NON-DIE-REC
	      END

	   END

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

	PROCEDURE INITIALIZE
	   BEGIN

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

	   RETURN

	   END

	Thanks for responding.
	Abraham Zwygart


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