https://owl.unipharm.com/mediawiki/index.php?action=history&feed=atom&title=Information_Systems%3AOUTQCLEAR 2026-09-01T15:01:00Z Revision history for this page on the wiki MediaWiki 1.35.4 https://owl.unipharm.com/mediawiki/index.php?title=Information_Systems:OUTQCLEAR&diff=1813&oldid=prev 2016-02-09T17:53:55Z

<p></p> <table class="diff diff-contentalign-left diff-editfont-monospace" data-mw="interface"> <col class="diff-marker" /> <col class="diff-content" /> <col class="diff-marker" /> <col class="diff-content" /> <tr class="diff-title" lang="en"> <td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td> <td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 17:53, 9 February 2016</td> </tr><tr> <td colspan="2" class="diff-lineno">Line 1:</td> <td colspan="2" class="diff-lineno">Line 1:</td> </tr> <tr> <td class="diff-marker">−</td> <td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del class="diffchange diffchange-inline">/*</del> <del class="diffchange diffchange-inline">Write</del> <del class="diffchange diffchange-inline">list</del> of <del class="diffchange diffchange-inline">spool</del> <del class="diffchange diffchange-inline">files</del> in out queues PRT01 and QPRINT <del class="diffchange diffchange-inline">to</del> <del class="diffchange diffchange-inline">spool</del> <del class="diffchange diffchange-inline">*/</del></div></td> <td class="diff-marker">+</td> <td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins class="diffchange diffchange-inline">Runs</ins> <ins class="diffchange diffchange-inline">a</ins> <ins class="diffchange diffchange-inline">query against a file</ins> of <ins class="diffchange diffchange-inline">all</ins> <ins class="diffchange diffchange-inline">entries</ins> in out queues PRT01 and QPRINT<ins class="diffchange diffchange-inline">, and builds a file of reports that can be deleted. Then reads that file, and deletes</ins> <ins class="diffchange diffchange-inline">them.</ins> <ins class="diffchange diffchange-inline">This</ins> <ins class="diffchange diffchange-inline">is</ins> <ins class="diffchange diffchange-inline">called</ins> <ins class="diffchange diffchange-inline">by</ins> <ins class="diffchange diffchange-inline">[[EODCLR]].</ins></div></td> </tr> <tr> <td colspan="2" class="diff-empty">&#160;</td> <td class="diff-marker">+</td> <td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"></td> </tr> <tr> <td colspan="2" class="diff-empty">&#160;</td> <td class="diff-marker">+</td> <td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> /* Write list of spool files in out queues PRT01 and QPRINT to spool */</div></td> </tr> <tr> <td class="diff-marker">&#160;</td> <td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> /* files, then copy those spool files to a data file. */</div></td> <td class="diff-marker">&#160;</td> <td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> /* files, then copy those spool files to a data file. */</div></td> </tr> <tr> <td class="diff-marker">&#160;</td> <td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> </div></td> <td class="diff-marker">&#160;</td> <td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> </div></td> </tr> <!-- diff cache key wikidb:diff:wikidiff2:1.12:old-1786:rev-1813:1.11.0 --> </table>

Sheilav https://owl.unipharm.com/mediawiki/index.php?title=Information_Systems:OUTQCLEAR&diff=1786&oldid=prev 2016-02-05T00:16:25Z

<p>Created page with &quot;<span dir="auto"><span class="autocomment">Write list of spool files in out queues PRT01 and QPRINT to spool: </span> <span dir="auto"><span class="autocomment">files, then copy those spool files to a data file.: </span> WRKOUTQ...&quot;</span></span></p> <p><b>New page</b></p><div>/* Write list of spool files in out queues PRT01 and QPRINT to spool */<br /> /* files, then copy those spool files to a data file. */<br /> <br /> WRKOUTQ OUTQ(PRT01) OUTPUT(*PRINT) <br /> CPYSPLF FILE(QPRTSPLQ) TOFILE(REPORT) SPLNBR(*LAST) + <br /> TOMBR(OUTQ) <br /> WRKOUTQ OUTQ(QPRINT) OUTPUT(*PRINT) <br /> CPYSPLF FILE(QPRTSPLQ) TOFILE(REPORT) SPLNBR(*LAST) + <br /> TOMBR(OUTQ) MBROPT(*ADD) <br /> <br /> /* Run a query to build a file of all spool files that can be deleted. */<br /> /* This query has a list of reports that are never printed. */<br /> <br /> RUNQRY QRY(OUTQCLR) QRYFILE((*LIBL/REPORT)) <br /> <br /> /* Read through the created file, and delete those spool files in it. */<br /> <br /> NEXT: <br /> RCVF RCDFMT(OUTQDEL) <br /> MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END)) <br /> CHGVAR VAR(&amp;NUMBER) VALUE(&amp;FILENUMB) <br /> DLTSPLF FILE(&amp;FILE) JOB(&amp;JOBNUMB/&amp;USER/&amp;JOB) + <br /> SPLNBR(&amp;NUMBER) <br /> GOTO CMDLBL(NEXT) <br /> <br /> END: <br /> <br /> /* Delete the two spool files that were created. */<br /> <br /> DLTSPLF FILE(QPRTSPLQ) SPLNBR(*LAST) <br /> DLTSPLF FILE(QPRTSPLQ) SPLNBR(*LAST)</div>

Sheilav