|
midrange.com
Hello everyone -
I am calling a CL from within a COBOL program, and by using the LOG and
LOGCLPGM options below - I am able to suppress all messages from this job
except for the following *QSYSPRT messages. How do I suppress these? I
believe they are a message from the CPYSPLF command within the CL. Below is
the example of the messages I am getting when executing the job that calls the
program that calls the CL job. After the line of '#' is part of the CL that is
called from within the COBOL program. I do want all of the messages generated
from the COBOL program though.
Any ideas anyone?
Thanks,
Adrienne
**********************************************************************************
12700 - DLTSPLF FILE(RPT) SPLNBR(*LAST)
13700 - CALL PGM(ZZB/TDSPLNK)
1900 - CHGJOB LOG(0 99 *NOLIST) LOGCLPGM(*NO) STSMSG(*NONE)
*QSYSPRT Z13JDSPLNKAMCCONNO 005743RDSLPNK Z13WORK RDSLPNK
ð¢F7ÚwRENTAL
*QSYSPRT Z13JDSPLNKAMCCONNO 005743RDSLPNK Z13WORK RDSLPNK
ð¢Ï09 6ÂRENTAL
*QSYSPRT Z13JDSPLNKAMCCONNO 005743RDSLPNK Z13WORK RDSLPNK
ð¢Ï1 C dRENTAL
*QSYSPRT Z13JDSPLNKAMCCONNO 005743RDSLPNK Z13WORK RDSLPNK
ð¢Ï1 ³Ø RENTAL
*QSYSPRT Z13JDSPLNKAMCCONNO 005743RDSLPNK Z13WORK RDSLPNK
ð¢Ï1 ÁqRENTAL
################################################################
0018.00 /* ***************************************************************** */
060901
0019.00 CHGJOB LOG(0 99 *NOLIST) LOGCLPGM(*NO) STSMSG(*NONE)
061107
0020.00 /* ***************************************************************** */
061107
0021.00 /* CREATE A FILE TO RECEIVE THE REPORT */
060901
0022.00 CHKOBJ OBJ(&LIBW/&FILE) OBJTYPE(*FILE)
061027
0023.00 MONMSG MSGID(CPF9801) EXEC(CRTPF FILE(&LIBW/&FILE) +
061027
0024.00 RCDLEN(133) SIZE(*NOMAX))
061027
0025.00 /* LIST STMF FORMAT FILES */
061023
0026.00 DSPLNK OBJ(&STMF1) OUTPUT(*PRINT) +
061023
0027.00 OBJTYPE(&OTYPE) DETAIL(*EXTENDED) +
061023
0028.00 DSPOPT(*USER)
061023
0029.00 /* ***************************************************************** */
061107
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8
0020.00 /* ***************************************************************** */
061107
0021.00 /* CREATE A FILE TO RECEIVE THE REPORT */
060901
0022.00 CHKOBJ OBJ(&LIBW/&FILE) OBJTYPE(*FILE)
061027
0023.00 MONMSG MSGID(CPF9801) EXEC(CRTPF FILE(&LIBW/&FILE) +
061027
0024.00 RCDLEN(133) SIZE(*NOMAX))
061027
0025.00 /* LIST STMF FORMAT FILES */
061023
0026.00 DSPLNK OBJ(&STMF1) OUTPUT(*PRINT) +
061023
0027.00 OBJTYPE(&OTYPE) DETAIL(*EXTENDED) +
061023
0028.00 DSPOPT(*USER)
061023
0029.00 /* ***************************************************************** */
061107
0030.00 /* CHGJOB LOG(0 99 *NOLIST) LOGCLPGM(*NO) STSMSG(*NONE)*/
061107
0031.00 /* ***************************************************************** */
061107
0032.00 /* COPY SPOOL FILE TO PHYSICAL FILE */
060901
0033.00 CPYSPLF FILE(QSYSPRT) TOFILE(&LIBW/&FILE) +
061023
0034.00 SPLNBR(*LAST) CTLCHAR(*FCFC)
061023
0035.00 /* DELETE FROM SPOOL */
060901
0036.00 DLTSPLF FILE(QSYSPRT) SPLNBR(*LAST)
060901
0037.00 /* ***************************************************************** */
060901
0038.00 /* MADE IT TO NORMAL END */
060901
0039.00 CHGVAR VAR(&MSGID) VALUE(' ')
060901
As an Amazon Associate we earn from qualifying purchases.
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.
