AS/400 HELP    

                                      "CUEILOG" 

                                    (QINTER LOG)

                           

 

CUEILOG   saves and displays a log of QINTER job initiations. These include   online and batch jobs.   The exit point   QIBM_QWT_JOBNOTIFY  sends the job name to dtaq CUEILOG in library CUEINTER .

Program CUEILOG records job info into file CUEILOG.  API QUSRJOBI is used to add the start date of the job as well as the IP address of the Telnet device.

Program  CUEIHIST displays these records and allows you to select a particular user id.

CUEILOG was developed at V5r1.

DOWNLOAD cueinter.SAVF

 

Please read and understand all the instructions below before installing CUEILOG.

 

PC INSTRUCTIONS:

Download "CUEINTER” to your PC.

Go to a DOS session and enter the following;

FTP SYSTEM                                        (system = your AS/400’s name or IP address)

Enter a valid user id and password

CD QGPL

LCD C:\DIRECTORY (directory= the directory on your pc where you downloaded “ cueinter.savf”

QUOTE    SITE     NAMEFMT   1

BIN

PUT       CUEINTER.SAVF

QUOTE   RCMD   RSTLIB   SAVLIB(CUEINTER)   DEV(*SAVF)   SAVF(QGPL/CUEINTER)

 Note:  If there is a security problem restoring all objects with the command above,  sign on to your as/400 as Qsecofr and run RSTLIB  from the command line.

 

AS/400 INSTRUCTIONS:

INSTALL SECTION;  (1 time only after library CUEINTER is restored to the As/400)

ADDJOBQE SBSD(QSYS/QINTER) JOBQ(CUEINTER/CUEILOG) MAXACT(1) SEQNBR(NNN)

NNN = a unique sequence number. Use the command:

DSPSBSD SBSD(QSYS/QINTER)  and take option 6.  Use a Seq Nbr not already allocated.

WRKREGINF

Look for QIBM_QWT_JOBNOTIFY  and take option 8

Enter  1  and enter  Program   1   or a number higher than the highest exit program number currently used.

For fields; Program…………       CUEILOG

            Library………        CUEINTER

Hit F10 and roll up

For fields; Length of data………    74

           Program data         0001QINTER    QSYS

NOTE: you must enter it exactly as above  (0001QINTER 4spaces QSYS)

NOTE This exit point will start working only AFTER QINTER has been stopped and restarted.  Either wait for the next IPL or manually stop and restart QINTER.    

 

STARTING AND STOPPING QUEILOG:  

To start:    CALL CUEINTER/STARTQIL

To End:      CALL CUEINTER/STOPQIL

NOTE: Verify CUEILOG is working by entering command: WRKACTJOB. You should see CUEILOG running under QINTER.

NOTE: STARTQIL starts the CUEILOG program  in Qinter and waits for the a  string of job name  from the exit point or a string with the the word ‘QUIT’ (from STOPQIL)  See *** below

NOTE: STOPQIL sends the word ‘QUIT’ to CUEILOG which stops the program from collecting data. If CUEILOG is not active it will wait in the dtaq  until read and then perform its job.  Calling STOPQIL twice or more in succession will make it appear CUEILOG is not working as it will stop CUEILOG every time it goes through.

To display the log file……

ADDLIBLE  CUEINTER

CALL  CUEIHIST