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