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 thread ...

Follow-Ups:

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

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