Freeware: Assembler - TOD package


TOD package is a way to get the better timestamp JOB log function of OS/390 JES2 on a prior release. I wrote this MPF exit and Rexx exec and then discovered that IBM put that function in the OS/390 JES2.

This package consists of an MPF exit and a started task that hopefully increases productivity by reducing the effort needed to determine the date when browsing a JES job log.

MPF Exit
This MPF exit appends the date onto a WTO message. When used on the job start and end messages, you can easily tell when a job ran by only looking at the job log.

Download information
File Name: TOD.ZIP
File Format: PKZIP file containing a TSO XMIT file
Size: 13,685
Last Updated: 05-NOV-1997
Version: 1.1
Type: Assembler
Requirements:
  • Before OS/390 JES2 (if JES2)
  • Assembler H or higher
  • MVS v2.2 - MVS v5.2.2
NEWDAY started task
The NEWDAY started task should be started by your automated operations system right after midnight. It sends a message containing the date to every started task's job log.

Sample:
------
                     J E S 2  J O B  L O G  --  S Y S T E M  C S W 1  --  N O D

  06.46.59 STC02311 IEF695I START TCPIPT   WITH JOBNAME TCPIPT   IS ASSIGNED TO
  06.46.59 STC02311 $HASP373 TCPIPT   STARTED
  06.46.59 STC02311 ACF9CCCD USERID TCPIPT   IS ASSIGNED TO THIS JOB - TCPIPT
> 06.46.59 STC02311 IEF403I TCPIPT - STARTED - TIME=06.46.59 - 13-Mar-1997 - 1997.072
  06.47.01 STC02311 EZY1876I TCPIP started with parameter TCPIP,ERRFILE(SYSERR),
> 00.01.18 STC02311 MSG FROM OPER:  '----- DATE: 14-MAR-1997 - 1997.073 '
  11.40.02 STC02311 EZB5948E Telnet server: Conn 1: StKillConn- TcpClose failed:
    
Notice that IEF403I has the date and that right after midnight, the current date was inserted into the job log.

To install:
----------


You can install only the pieces you want, maybe only the MPF exit is all you really want.

1) Assemble and link member MPFEXIT into your LNKLST as rent and reus. For the example below, the name MPFEXTOD was used.

2) Update your MPFLSTxx member with:

IEF403I,SUP(NO),USEREXIT(MPFEXTOD)
IEF404I,SUP(NO),USEREXIT(MPFEXTOD)


3) Copy member NEWDAYP into a JES PROCLIB, I use member name NEWDAY. Change the SYSEXEC library name to your REXX library.

4) Copy member NEWDAYE into your REXX Library. You will need to update the REXX exec to issue command the way your installation allows them. I have included my OSCMD assembler program if you don't have one. You should put security in your OSCMD to prevent authorized use.

Note: If you have Automate/MVS, the NEWDAY EXEC could be executed without needing a started task. Other automated operations packages may be able to execute REXX code also.
The software downloadable from this page is © 1997-2000 by David Alcock. This software is provided on an asis basis and no warranty is provided. Use at your own risk

Return to Dave's MVS Freeware web page.
Last Updated: 2000-05-27
This web page is © 1997-2001+ by David Alcock. All Rights Reserved.