|
midrange.com
It should.
But, as a test, you can always run the OPNQRY in debug & it will make
suggestions in the joblogs about logical paths.
STRDBG
OVRDBF FILE(PA0PBR) TOFILE(PASPBR) SHARE(*YES)
OPNQRYF FILE((PASPBR)) QRYSLT('ARBGRP *EQ "*R*"')
CALL PA00061R
CLOF OPNID(PASPBR)
DLTOVR FILE(PA0PBR)
ENDDBG
\Vincent
-----Original Message-----
From: Dwayne Allison [mailto:Dwayne.Allison@xxxxxxxxx]
Sent: December 8, 2004 9:40 AM
To: Midrange Systems Technical Discussion
Subject: RE: Long process time
Will this save time or not
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Forbes, Vincent
Sent: Wednesday, December 08, 2004 8:41 AM
To: 'Midrange Systems Technical Discussion'
Subject: RE: Long process time
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.
--
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.
--
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
