Gost Quick Screen Question?
Abraham Zwygart
azwygart@anodizing.com
Tue, 6 Apr 1999 15:52:12 -0700
System is: HP3000/979 os v5.5 patch 6
Data base is: Ksam
Debug: I have and I see the program get records
1,2,3,5,6,8,9,10,12,13,1<error>
records 4,7,11 are completed or deleted orders and I do not
need to process them.
this is done with the delete-code field. If
delete-code = ' ' then it is a open order
and needs to be processed.
record 14 is valid and should be read.
I am going to rebuild my test environment tomorrow morning.
Abraham Z.
-----Original Message-----
From: Watt, Peter <pwatt@dairyworld.com>
To: 'Abraham Zwygart' <azwygart@anodizing.com>; powerh-l@lists.swau.edu
<powerh-l@lists.swau.edu>
Date: Tuesday, April 06, 1999 2:53 PM
Subject: RE: Gost Quick Screen Question?
>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.