× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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                               


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.