Whenever our users develop a Query report, it always seems that they define a 198 column printout. With Query, the only way to print the full 198 characters is to run the command OVRPRTF and specify 15 CPI. This quick command, RUNQRY15, will handle the OVRPRTF automatically. Instead of using RUNQRY, our users always use RUNQRY15 (1a and 1b). It asks for the Query name and the CPI.
Whenever our users develop a Query report, it always seems that they define a 198 column printout. With Query, the only way to print the full 198 characters is to run the command OVRPRTF and specify 15 CPI. This quick command, RUNQRY15, will handle the OVRPRTF automatically. Instead of using RUNQRY, our users always use RUNQRY15 (Figure 1a and 1b). It asks for the Query name and the CPI.
Although this command only uses two parameters, you could easily add a question mark to the OVRPRTF and DLTOVR commands of the RUNQRY15 program to force each command to prompt, and let each user customize the command to their needs.
The program and command are shown in Figures 1a and 1b.
Art Tostaine, Jr. Spotswood, New Jersey
TechTalk: Printing Query at 15 CPI
Figure 1A Command RUNQRY15
Figure 1a Command RUNQRY15 CMD PROMPT('Run Query Report with 15 CPI') PARM KWD(QRY) TYPE(*CHAR) LEN(10) MIN (1) + PROMPT('Query') PARM KWD(CPI) TYPE(*DEC) LEN(2) MIN(0) + PROMPT('CPI')
TechTalk: Printing Query at 15 CPI
Figure 1B Program RUNQRY15
Figure 1b Program RUNQRY15 PGM PARM(&QRY &CPI) DCL VAR(&QRY) TYPE(*CHAR) LEN(10) DCL VAR(&CPI) TYPE(*DEC) LEN(2) OVRPRTF FILE(QPQUPRFIL) DEV(*JOB) PAGESIZE(*N 198) + CPI(&CPI) RUNQRY QRY(&QRY) DLTOVR FILE(QPQUPRFIL) ENDPGM
LATEST COMMENTS
MC Press Online