× 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 ran a RTVCMDSRC against DSPJOBLOG.  You can see how they condition for 
outfile from there.  hth
/*           CRTCMD     CMD(*LIBL/DSPJOBLOG) +   */
/*                      PGM(QSYS/QMHDSPJL) +   */
/*                      SRCFILE(ROB/QCMDSRC) +   */
/*                      SRCMBR(DSPJOBLOG) +   */
/*                      THDSAFE(*NO) +   */
/*                      MLTTHDACN(*SYSVAL) +   */
/*                      TEXT('Display Job Log') +   */
/*                      VLDCKR(*NONE) +   */
/*                      MODE( +   */
/*                        *ALL) +   */
/*                      ALLOW( +   */
/*                        *ALL) +   */
/*                      ALWLMTUSR(*YES) +   */
/*                      MAXPOS(2) +   */
/*                      PMTFILE(QDEVELOP/QCPFPMT) +   */
/*                      MSGF(*LIBL/QCPFMSG) +   */
/*                      HLPSHELF(*LIST) +   */
/*                      HLPPNLGRP(*LIBL/QHMHCMD) +   */
/*                      HLPID(DSPJOBLOG) +   */
/*                      HLPSCHIDX(*NONE) +   */
/*                      CURLIB(*NOCHG) +   */
/*                      PRDLIB(*NOCHG) +   */
/*                      PMTOVRPGM(*NONE) +   */
/*                      AUT(*USE) +   */
/*                      REPLACE(*YES) +   */
/*                      ENBGUI(*YES)   */

/*  Internal info   */
/*    PGM call state:           *SYSTEM   */
/*    CCSID:                    37   */

             CMD        PROMPT('Display Job Log')
             PARM       KWD(JOB) +
                        TYPE(Q0176) +
                        DFT(*) +
                        SNGVAL( +
                          (* )) +
                        PROMPT('Job name')
             PARM       KWD(OUTPUT) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        RSTD(*YES) +
                        DFT(*) +
                        SPCVAL( +
                          (* ) +
                          (*PRINT L) +
                          (*APIDFN M) +
                          (*OUTFILE N)) +
                        EXPR(*YES) +
                        PROMPT('Output')
             PARM       KWD(OUTFILE) +
                        TYPE(Q0263) +
                        FILE(*OUT) +
                        CHOICE(*NONE) +
                        PMTCTL(P0350) +
                        PROMPT('File to receive output')
             PARM       KWD(OUTMBR) +
                        TYPE(E01F0) +
                        CHOICE(*NONE) +
                        PMTCTL(P0350) +
                        PROMPT('Output member options')
Q0176:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        MIN(1) +
                        EXPR(*YES)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        EXPR(*YES) +
                        PROMPT('User')
             QUAL       TYPE(*CHAR) +
                        LEN(6) +
                        RANGE( +
                          '000000' +
                          '999999') +
                        FULL(*YES) +
                        EXPR(*YES) +
                        PROMPT('Number')
E01F0:       ELEM       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*FIRST) +
                        SPCVAL( +
                          (*FIRST )) +
                        EXPR(*YES) +
                        PROMPT('Member to receive output')
             ELEM       TYPE(*CHAR) +
                        LEN(7) +
                        RSTD(*YES) +
                        DFT(*REPLACE) +
                        SPCVAL( +
                          (*REPLACE REPLACE) +
                          (*ADD ADD)) +
                        EXPR(*YES) +
                        PROMPT('Replace or add records')
Q0263:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        MIN(1) +
                        EXPR(*YES)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*LIBL) +
                        SPCVAL( +
                          (*LIBL ) +
                          (*CURLIB '*CURLIB   ')) +
                        EXPR(*YES) +
                        PROMPT('Library')
P0350:       PMTCTL     CTL(OUTPUT) +
                        COND( +
                          (*EQ 'N'))
             DEP        CTL(&JOB *NE *) +
                        PARM( +
                          (&OUTPUT *NE 'N')) +
                        MSGID(CPD240F)
             DEP        CTL(&JOB *NE *) +
                        PARM( +
                          (&OUTPUT *NE 'M')) +
                        MSGID(CPD2524)
             DEP        CTL(&OUTPUT *EQ 'N') +
                        PARM( +
                          (&OUTFILE *NE ' ')) +
                        MSGID(CPD9861)
             DEP        CTL(&OUTMBR *NE *FIRST) +
                        PARM( +
                          (&OUTFILE *EQ ' ')) +
                        NBRTRUE(*EQ 0) +
                        MSGID(CPD9867)
             DEP        CTL(&OUTPUT *NE 'N') +
                        PARM( +
                          (&OUTFILE *EQ ' ')) +
                        MSGID(CPD9862) 

Rob Berendt

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.