|
midrange.com
Hello all!
I am trying to get the DSPLOG command to display when I do a DSPJOBLOG
command from within a CL. When I type the DSPLOG command on the command
line, it does register in DSPJOBLOG. Any help to get the DSPLOG command
to show up in DSPJOB log would be appreciated!!
Thanks so much,
Adrienne McConnon
Vercuity - Parsippany
Here is the DSPJOBLOG results from calling the JSTATUS CL:
CALL Z13WORK/JSTATUS PARM('{DATE-FR=09/01/2006,DATE-TO=09/05/2006}')
<-------------------command A
Object WTABA00 in Z13WORK type *FILE deleted.
File WTABA00 created in library Z13WORK.
Member WTABA00 added to file WTABA00 in Z13WORK.
L-INPUT-PARM={DATE-FR=09/01/2006,DATE-TO=09/05/2006} IL TD
<---------------------first display in program T9930
ATE=09/05/2006
STOP L-INPUT-PARM=DATE-FR=09/01/2006,DATE-TO=09/05/2006
<---------------------last display in program T9930
Printer device QPRT01 not found. Output queue changed to QPRINT in
library
QGPL.
Printer output created.
SELECTION CRITERIA BELOW
<---------------------sndpgmmsg
FTIME=*AVAIL FDATE=09/01/2006 TTIME=*AVAIL TDATE=09/05/2006
<---------------------sndpgmmsg
Object W9933I in Z13WORK type *FILE deleted.
File W9933I created in library Z13WORK.
Member W9933I added to file W9933I in Z13WORK.
15171 records copied to file W9933I in Z13WORK.
Here is the CL JSTATUS (that has been compiled) and the CL I am trying
to run by typing command A on the command line.
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6
...+... 7
*************** Beginning of data
*************************************
0001.00 /* Program name.. JSTATUS
*/
0002.00 /* Purpose ...... EXECUTE THE STATUS EMULATOR ON ISERIES
*/
0003.00 /*
*/
0004.00 PGM PARM(&SELCRIT)
0005.00 DCL VAR(&SELCRIT) TYPE(*CHAR) LEN(200)
VALUE(BLANK)
0005.02 DCL VAR(&FTIME) TYPE(*CHAR) LEN(10)
VALUE('*AVAIL')
0005.03 DCL VAR(&FDATE) TYPE(*CHAR) LEN(10)
VALUE('*CURRENT')
0005.04 DCL VAR(&TTIME) TYPE(*CHAR) LEN(10)
VALUE('*AVAIL')
0005.05 DCL VAR(&TDATE) TYPE(*CHAR) LEN(10)
VALUE('*CURRENT')
0006.00 /* DEFINE VARIABLES FOR STANDARD ERROR HANDLING
*/
0007.00 DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)
0008.00 DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(100)
0009.00 DCL VAR(&MSGF) TYPE(*CHAR) LEN(10)
0010.00 DCL VAR(&MSGFLIB) TYPE(*CHAR) LEN(10)
0011.00 DCL VAR(&ERRORSW) TYPE(*LGL)
0012.00 /* MONITOR MESSAGE ID FOR STANDARD ERROR HANDLING
*/
0013.00 MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR1))
0013.01 /*
***************************************************************** */
0013.02 /* END OF"JOB" PROC - SETTING UP VARIABLES
*/
0024.00 /*
***************************************************************** */
0024.01 /* OUTPUT
*/
0025.00 /* DELETE; CONTINUE; BUILD
*/
0026.00 /* CL COMMAND TO DISPLAY THE SYSTEM HISTORY LOG
*/
0037.01 /* A00 PARAMETERS - PASSED DOWN TO PROGRAM THAT PROCESSES LOG
STATS */
0037.02 DLTF FILE(Z13WORK/WTABA00)
0037.03 MONMSG MSGID(CPF0000)
0037.04 CRTPF FILE(Z13WORK/WTABA00) RCDLEN(126)
SIZE(500)
0037.05 OVRDBF FILE(WTABA00) TOFILE(Z13WORK/WTABA00)
0041.00 /*
***************************************************************** */
0042.00 /* EXECUTE PROGRAM
*/
0042.01 MONMSG MSGID(CPF0000)
0043.00 CALL PGM(ZZB/T9930) PARM(&SELCRIT +
0043.02 &FTIME &FDATE +
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6
...+... 7
0043.03 &TTIME &TDATE)
0043.05 /* EXECUTE THE COMMAND FILE RIGHT HERE
*/
0043.06 /* DSPLOG LOG(QHST) +
*/
0043.07 /* PERIOD((&FTIME &FDATE) (&TTIME &TDATE))
+ */
0043.09 /* OUTPUT(*PRTWRAP)
*/
0043.10 DSPLOG LOG(QHST) +
<----------- Why does this not show up in DSPJOBLOG - how do I get it to
show?
0043.11 PERIOD((*AVAIL '09/25/2006') (*AVAIL '09/26/2006'))
+
0043.12 OUTPUT(*PRTWRAP)
0043.13 /* DISPLAY THE SELECTION CRITERIA CREATED IN T9930
*/
0043.17 SNDPGMMSG MSG('SELECTION CRITERIA BELOW')
0043.18 CHGVAR VAR(&SELCRIT) VALUE('FTIME=' *TCAT
&FTIME +
0043.19 *BCAT 'FDATE=' *TCAT
&FDATE +
0043.20 *BCAT 'TTIME=' *TCAT
&TTIME +
0043.21 *BCAT 'TDATE=' *TCAT
&TDATE)
0043.22 SNDPGMMSG MSG(&SELCRIT)
0043.23 /* change z13work to qtemp ............
*/
0043.24 /* change z13work to qtemp in "TLOG" also
*/
0043.25 DLTF FILE(Z13WORK/W9933I)
0043.26 MONMSG MSGID(CPF0000)
0043.27 CRTPF FILE(Z13WORK/W9933I) RCDLEN(132)
SIZE(*NOMAX)
0043.28 CPYSPLF FILE(QPDSPLOG) TOFILE(Z13WORK/W9933I) +
0043.29 SPLNBR(*LAST)
0043.30 DLTSPLF FILE(QPDSPLOG) SPLNBR(*LAST)
0059.00 /*
***************************************************************** */
0060.00 RETURN: RETURN /* NORMAL END OF CL */
0061.00 /* STANDARD ERROR HANDLING
*/
0062.00 ERROR1: IF COND(&ERRORSW) THEN(SNDPGMMSG
MSGID(CPF9999) +
0063.00 MSGF(QCPFMSG) MSGTYPE(*ESCAPE))
0064.00 CHGVAR VAR(&ERRORSW) VALUE('1')
0065.00 ERROR2: RCVMSG MSGTYPE(*DIAG) MSGDTA(&MSGDTA)
MSGID(&MSGID) +
0066.00 MSGF(&MSGF) MSGFLIB(&MSGFLIB)
0067.00 IF COND(&MSGID = ' ') THEN(GOTO +
0068.00 CMDLBL(ERROR3))
0069.00 SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6
...+... 7
0043.30 DLTSPLF FILE(QPDSPLOG) SPLNBR(*LAST)
0059.00 /*
***************************************************************** */
0060.00 RETURN: RETURN /* NORMAL END OF CL */
0061.00 /* STANDARD ERROR HANDLING
*/
0062.00 ERROR1: IF COND(&ERRORSW) THEN(SNDPGMMSG
MSGID(CPF9999) +
0063.00 MSGF(QCPFMSG) MSGTYPE(*ESCAPE))
0064.00 CHGVAR VAR(&ERRORSW) VALUE('1')
0065.00 ERROR2: RCVMSG MSGTYPE(*DIAG) MSGDTA(&MSGDTA)
MSGID(&MSGID) +
0066.00 MSGF(&MSGF) MSGFLIB(&MSGFLIB)
0067.00 IF COND(&MSGID = ' ') THEN(GOTO +
0068.00 CMDLBL(ERROR3))
0069.00 SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
0070.00 MSGDTA(&MSGDTA) MSGTYPE(*DIAG)
0071.00 GOTO CMDLBL(ERROR2)
0072.00 ERROR3: RCVMSG MSGTYPE(*EXCP) MSGDTA(&MSGDTA)
MSGID(&MSGID) +
0073.00 MSGF(&MSGF) MSGFLIB(&MSGFLIB)
0074.00 SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
0075.00 MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE)
0076.00 ENDPGM
****************** End of data
****************************************
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.
