|
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 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.