|
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 mailing list archive is Copyright 1997-2025 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.