Long process time

["Dwayne Allison" <Dwayne.Allison@xxxxxxxxx>]

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