RE: Long process time

["Forbes, Vincent" <Vincent.Forbes@xxxxxxxx>]

Create a logical file sorted by the field ARBGRP as the first key, then by
whatever else you might need, say account # or a date.

\Vincent

 -----Original Message-----
From:   Dwayne Allison [mailto:Dwayne.Allison@xxxxxxxxx] 
Sent:   December 8, 2004 9:31 AM
To:     Midrange Systems Technical Discussion
Subject:        Long process time

Good Morning,

The below process takes a long time.  I was wondering if we created a
logical over the PASPBR file that only captured '*R*'and one that captured
'*C*' only. Would the program move faster.

To me doing the Override and running query and then calling the program can
be shorten by just calling the program with the logicals.  I know we will
have to rename one of the programs or create a report printout the handles
both.   


OVRDBF     FILE(PA0PBR) TOFILE(PASPBR) SHARE(*YES)     
OPNQRYF    FILE((PASPBR)) QRYSLT('ARBGRP *EQ "*R*"')   
CALL       PA00061R                                    
CLOF       OPNID(PASPBR)                               
DLTOVR     FILE(PA0PBR)   


OVRDBF     FILE(PA0PBR) TOFILE(PASPBR) SHARE(*YES)     
OPNQRYF    FILE((PASPBR)) QRYSLT('ARBGRP *EQ "*C*"')   
CALL       PA00061R                                    
CLOF       OPNID(PASPBR)                               
DLTOVR     FILE(PA0PBR)   
                             
 

FPA0PBR    IPE  E             DISK                         
F                                     RENAME(ARREC:PBSREC) 
FPBRMST01  O  A E             DISK                         
FQSYSPRT   O    F  132        PRINTER OFLIND(*INOV)

C     *IN30         IFEQ      '0'                                      
C                   Z-ADD     0             CNTR                       
C                   MOVE      '1'           *IN30                      
C                   END                                                
C                   ADD       1             CNTR              5 0      
 *       =---------------=                                             
C     LOOP          TAG                                                
 *       =---------------=                                             
C                   WRITE     ARREC                                50  
C     *IN50         IFEQ      '1'                     
C                   ADD       1             ARUNIK    
C                   MOVE      '0'           *IN50     
C                   EXCEPT    #DETL                   
C                   GOTO      LOOP                    
C                   END                               

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.