Gost Quick Screen Question?

[Abraham Zwygart]

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.