A Quick Question Thanks

[Abraham Zwygart]

Thanks Michael  that works.

Abraham Z.
----- Original Message -----
From: Cousins, Michael <Michael.Cousins@Cognos.COM>
To: 'Abraham Zwygart' <azwygart@anodizing.com>
Sent: Tuesday, January 18, 2000 11:38 AM
Subject: RE: A Quick Question


>
> Use MENU in the screen statement and then add OPEN 1 to the second FILE
> statement.
> Somehow I think the pointer to the header file is being moved when the
item
> file is read.
> Why? Dunno. I shouldn't think you would need a separate open.
> Try that and see.
>
> /mc
> -----Original Message-----
> From: Abraham Zwygart [mailto:azwygart@anodizing.com]
> Sent: Tuesday, January 18, 2000 2:31 PM
> To: powerh-l@lists.swau.edu
> Subject: A Quick Question
>
>
> Hi all,
>
> Working on a HP3000 989, Quick ver 8.19.c1  I have a quick screen that
runs
> in a batch.  It has worked before.  It just started to only process every
> other record.  I have narrowed it down to the fact that it only reads
every
> other record from the wack-header file.  If I comment out 'DO INTERNAL
> PROCESS-REC' it works just fine.  Can anyone tell me what I am doing
wrong?
>
> The code is as follows:
> CAN CLE
> SET DEF
> SCREEN ORDOPERS.OBJS &
>        NOMODE       &
>        NOACTION
>
> FILE WACK-HEADER DESIGNER
>      SELECT IF DELETE-CODE  OF WACK-HEADER = ' '
>
> FILE WACK-DIE-ITEM DESIGNER
>      ACCESS VIA A-WORK-ORDER USING A-WORK-ORDER OF WACK-HEADER
>      SELECT IF DELETE-CODE  OF WACK-DIE-ITEM = ' '
> ;-------------------------------------------------------------------
> PROCEDURE INTERNAL PROCESS-REC
>    BEGIN
>    WHILE RETRIEVING WACK-DIE-ITEM
>       BEGIN
>  INFO = 'PROCESS-REC  DIE-ITEM A-WORK-ORDER: ' + &
>        ASCII ( A-WORK-ORDER OF WACK-HEADER ) + '  '  NOW RESP
> ; DO SOME COMMANDS
>       END
>    END
> ;-------------------------------------------------------------------
> PROCEDURE INITIALIZE
> BEGIN
>    WHILE RETRIEVING WACK-HEADER SEQUENTIAL VIA A-WORK-ORDER
>       BEGIN
> INFO = 'WORKING ON A-WORK-ORDER: ' + &
>        ASCII ( A-WORK-ORDER OF WACK-HEADER ) NOW RESP
>          DO INTERNAL PROCESS-REC
> INFO = 'DONE WITH WORKING ON A-WORK-ORDER: ' + &
>        ASCII ( A-WORK-ORDER OF WACK-HEADER ) NOW RESP
>       END
>    RETURN
> END
> ;-------------------------------------------------------------------
> BUILD
>
> Abraham Zwygart
> Anodizing Inc.
> Senior Programmer Analyst     Email: azwygart@anodizing.com
>
>                             _\\///_
>                            (' o-o ')
> _________________________ooOo_( )_oOoo_________________________
> The thoughts, comments, and opinions expressed herein are mine
> and do not reflect those of my employer(s), or anyone else.
> _________________________oooO_____Oooo_________________________
>                         (   )    (   )
>                          \ (      ) /
>                           \_)    (_/
>
>
> = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
=
> Subscribe: "subscribe powerh-l" in message body to
majordomo@lists.swau.edu
> Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
> 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
This list is closed, thus to post to the list, you must be a subscriber.