Skip to content

Commit

Permalink
Update QSHEXECC.CLLE
Browse files Browse the repository at this point in the history
V1.0.10 added AUT(*INDIR) for CPYTOSMTF commands. See VERSION file for more info.
  • Loading branch information
richardschoen authored Nov 10, 2021
1 parent 573b84f commit 4db84f3
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions QSHEXECC.CLLE
Original file line number Diff line number Diff line change
Expand Up @@ -209,13 +209,14 @@ DONECOMP:

/* If copying results to IFS, do it now */
/* We copy from STDOUTQSH in QTEMP to IFS log */
/* V1.0.10 - Added AUT(*INDOR) */
IF COND(&IFSSTDOUT *EQ *YES) THEN(DO)
CPYTOSTMF +
FROMMBR('/QSYS.LIB/QTEMP.LIB/STDOUTQSH.FILE+
/STDOUTQSH.MBR') TOSTMF(&IFSFILE) +
STMFOPT(&IFSOPT) CVTDTA(*AUTO) +
STMFCCSID(*PCASCII) ENDLINFMT(*LF) +
STMFCODPAG(*STMF)
AUT(*INDIR) STMFCODPAG(*STMF)
/* Prevent endless loop if CPYTOSTMF fails */
MONMSG MSGID(CPF0000) EXEC(DO)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Error +
Expand Down Expand Up @@ -293,13 +294,14 @@ ERRORS:

/* If copying results to IFS, do it now */
/* We copy from STDOUTQSH in QTEMP to IFS log */
/* V1.0.10 - Added AUT(*INDOR) */
IF COND(&IFSSTDOUT *EQ *YES) THEN(DO)
CPYTOSTMF +
FROMMBR('/QSYS.LIB/QTEMP.LIB/STDOUTQSH.FILE+
/STDOUTQSH.MBR') TOSTMF(&IFSFILE) +
STMFOPT(&IFSOPT) CVTDTA(*AUTO) +
STMFCCSID(*PCASCII) ENDLINFMT(*LF) +
STMFCODPAG(*STMF)
AUT(*INDIR) STMFCODPAG(*STMF)
/* Prevent endless loop if CPYTOSTMF fails */
MONMSG MSGID(CPF0000) EXEC(DO)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Error +
Expand Down

0 comments on commit 4db84f3

Please sign in to comment.