Re: OUTPUT(*NONE) prints compile anyway -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

I wonder. You have OUTPUT(*NONE) DBGVIEW(*ALL). A contradiction might appear to exist - DBGVIEW(*ALL) implies *SOURCE + *COPY + *LIST. So, a compiler listing has to be produced in order to incorporate it within the debug data.

Maybe there's a bug at your O/S. Maybe the compiler listing is not disposed of (OUTPUT(*NONE)) once the program object is created. Contact IBM Support and see if there any PTF's?

I think Elmer has it right.

Brian.

On 06/08/2019 20:53, T. Adair wrote:

When I strip everything else out and just run this hard-coded command, it functions correctly (no output).

"CRTBNDRPG PGM(QTEMP/DS001LE) SRCFILE(DS_MAIN/QRPGLESRC) SRCMBR(DS001LE) OUTPUT(*NONE) DBGVIEW(*ALL) FIXNBR(*ZONED *INPUT PACKED)"

Now I'm REALLY confused. I debugged the program as it was, and this is the EXACT same command built & issued by the original program.

The prototype for QCMDEXC is...:
D qcmdexc         PR                  extpgm('QCMDEXC')
D   command                    255A   const
D   cmdlen                      15P 5 const

I checked and we don't have a customized version of CRTBNDRPG anywhere on our system.

To quote Elmer Fudd, "There's something reawwy scwewy going on awound here."

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.