1 FROM FILE 109 AND 110 OF THE CBT TAPE VERSION 350 (FALL93) IEFACTRT IS THE SOURCE CODE FOR THE IEFACTRT EXIT AS WE USE IT. THIS SOURCE IS A COMBINATION OF VARIOUS IEFACTRT ROUTINES FROM PREVIOUS CBT TAPES AND SOME OF MY OWN ENHANCEMENTS. IT HAS BEEN WRITTEN TO USE THE SMF TYPE 30 RECORD AND TO RUN IN 31 BIT ADDRESSING MODE. AN EXAMPLE OF THE OUTPUT IS INCLUDED IN ANOTHER FILE ON THIS TAPE. THIS EXIT WILL WORK UNDER MVS/XA 2.2 AND MVS/ESA. IT SHOULD BE ABLE TO RUN UNDER PREVIOUS XA RELEASES. FEATURES - ISSUSES A WTO TO THE SYSTEM CONSOLE WITH THE COMPLETION CODE OF EACH STEP. - WRITES THE WTO INFORMATION TO THE JOBLOG - GIVES EXCP STATS FOR EACH DD ALLOCATED. - DDNAME, CONCATENATION NUMBER, AND DEVICE ADDRESS ARE INCLUDED. ON MESSAGE LOG. 1 J E S 2 J O B L O G -- S Y S T E M B S Y S -- N O D E F N B C --------- JOB 2126 IEF097I RACX5DSG - USER #RACDSG ASSIGNED 09.56.03 JOB 2126 IEF677I WARNING MESSAGE(S) FOR JOB RACX5DSG ISSUED 09.56.03 JOB 2126 $HASP373 RACX5DSG STARTED - INIT 25 - CLASS Z - SYS ASYS 09.56.09 JOB 2126 RACX5DSG 1 ASM IEV90 ------------ R0000 09.56.12 JOB 2126 RACX5DSG 2 LKED IEWL ------------ R0000 09.56.12 JOB 2126 RACX5DSG ------------ EOJ 09.56.12 JOB 2126 $HASP395 RACX5DSG ENDED 0------ JES2 JOB STATISTICS ------ - 04 APR 89 JOB EXECUTION DATE - 9 CARDS READ - 476 SYSOUT PRINT RECORDS - 0 SYSOUT PUNCH RECORDS - 47 SYSOUT SPOOL KBYTES - 0.15 MINUTES EXECUTION TIME 1 STMT NO. MESSAGE - 19 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED IEF236I ALLOC. FOR RACX5DSG ASM COMP IEF237I D05 ALLOCATED TO SYSLIB IEF237I 744 ALLOCATED TO IEF237I VIO ALLOCATED TO SYSUT1 IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I JES2 ALLOCATED TO SYSABEND IEF237I DMY ALLOCATED TO SYSPUNCH IEF237I VIO ALLOCATED TO SYSLIN IEF237I 700 ALLOCATED TO SYSIN IEF237I 958 ALLOCATED TO SYS00008 IEF142I RACX5DSG ASM COMP - STEP WAS EXECUTED - COND CODE 0000 IEF285I SYS1.MACLIB KEPT IEF285I VOL SER NOS= RES00A. IEF285I SYS1.USER.MACLIB KEPT IEF285I VOL SER NOS= COMON2. IEF285I SYS89094.T095603.RA000.RACX5DSG.SYSUT1 DELETED IEF285I JES2.JOB02126.SO000101 SYSOUT IEF285I JES2.JOB02126.SO000102 SYSOUT IEF285I SYS89094.T095603.RA000.RACX5DSG.LOADSET PASSED IEF285I #RACDSG.SMF.ASM KEPT IEF285I VOL SER NOS= SSG001. IEF285I ICF.UCAT.TSOSYS KEPT IEF285I VOL SER NOS= BATCHF. ************************************************************************************************************************************ * STEP TERMINATION STATISTICS * * * * STEP NAME ASM START TIME 09:56:03.87 VIRT SYS USED 328K PAGE INS 0 STEP CPU 00:00:00.37 * * PGM NAME IEV90 STOP TIME 09:56:09.71 VIRT CORE USED 1,000K PAGE OUTS 0 JOB CPU 00:00:00.37 * * DISPATCH PRTY 89 ELAP. TIME 00:00:05.84 NUMBER SWAPS 0 NUMBER PAGES 0 SRB TIME 00:00:00.02 * * PERF. GROUP 1 SERV UNITS 5,062 TRANS ACT TIME 00:00:05.41 COMPLETION CODE R0000 * * MAIN STORAGE UNITS 1,850 CPU UNITS 2,695 SRB UNITS 119 I/O UNITS 398 * ************************************************************************************************************************************ * EXCP STATISTICS * * * * DDNAME CC# UNIT EXCP COUNT DDNAME CC# UNIT EXCP COUNT DDNAME CC# UNIT EXCP COUNT DDNAME CC# UNIT EXCP COUNT * * SYSLIB D05 65 SYSLIB + 1 744 0 SYSUT1 VIO 20 SYSLIN VIO 20 * * SYSIN 700 3 * * * * EXCP TOTAL 108 VIO PAGE INS 0 VIO PAGE OUTS 0 PAGES SWAPPED IN 0 * * * ************************************************************************************************************************************ IEF373I STEP /ASM / START 89094.0956 IEF374I STEP /ASM / STOP 89094.0956 CPU 0MIN 00.37SEC SRB 0MIN 00.02SEC VIRT 1000K SYS 328K EXT 4K SYS 8900K IEF236I ALLOC. FOR RACX5DSG LKED COMP IEF237I VIO ALLOCATED TO SYSLIN IEF237I DMY ALLOCATED TO IEF237I 700 ALLOCATED TO SYSLMOD IEF237I 958 ALLOCATED TO SYS00010 IEF237I VIO ALLOCATED TO SYSUT1 IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I JES2 ALLOCATED TO SYSABEND IEF142I RACX5DSG LKED COMP - STEP WAS EXECUTED - COND CODE 0000 IEF285I SYS89094.T095603.RA000.RACX5DSG.LOADSET DELETED IEF285I #RACDSG.MON.LOAD KEPT IEF285I VOL SER NOS= SSG001. IEF285I ICF.UCAT.TSOSYS KEPT IEF285I VOL SER NOS= BATCHF. IEF285I SYS89094.T095603.RA000.RACX5DSG.SYSUT1 DELETED IEF285I JES2.JOB02126.SO000103 SYSOUT IEF285I JES2.JOB02126.SO000104 SYSOUT ************************************************************************************************************************************ * STEP TERMINATION STATISTICS * * * * STEP NAME LKED START TIME 09:56:09.77 VIRT SYS USED 288K PAGE INS 0 STEP CPU 00:00:00.10 * * PGM NAME IEWL STOP TIME 09:56:12.72 VIRT CORE USED 396K PAGE OUTS 0 JOB CPU 00:00:00.47 * * DISPATCH PRTY 89 ELAP. TIME 00:00:02.95 NUMBER SWAPS 0 NUMBER PAGES 0 SRB TIME 00:00:00.00 * * PERF. GROUP 1 SERV UNITS 1,197 TRANS ACT TIME 00:00:02.58 COMPLETION CODE R0000 * * MAIN STORAGE UNITS 395 CPU UNITS 695 SRB UNITS 21 I/O UNITS 86 * ************************************************************************************************************************************ * EXCP STATISTICS * * * * DDNAME CC# UNIT EXCP COUNT DDNAME CC# UNIT EXCP COUNT DDNAME CC# UNIT EXCP COUNT DDNAME CC# UNIT EXCP COUNT * * SYSLIN VIO 20 SYSLMOD + 1 700 10 SYSUT1 VIO 0 * * * * EXCP TOTAL 30 VIO PAGE INS 0 VIO PAGE OUTS 0 PAGES SWAPPED IN 0 * * * ************************************************************************************************************************************ IEF373I STEP /LKED / START 89094.0956 IEF374I STEP /LKED / STOP 89094.0956 CPU 0MIN 00.10SEC SRB 0MIN 00.00SEC VIRT 396K SYS 288K EXT 4K SYS 8912K ************************************************************************************************************************************ * JOB TERMINATION STATISTICS * * * * JOB NAME RACX5DSG JOB 2126 CPU TIME 00:00:00.47 SRB TIME 00:00:00.02 * * * * PROGRAMMER SSG WEIBL-8 INIT DATE 04/04/89 89.094 INITIATION TIME 09:56:03.87 * * * * SYSTEM ID ASYS TERM DATE 04/04/89 89.094 TERMINATION TIME 09:56:12.75 * * * * CLASS Z PERF. GROUP 1 SERV UNIT 6,259 ELAPSED TIME 00:00:08.88 * * * * MAIN STORAGE UNITS 2,245 CPU UNITS 3,390 SRB UNITS 140 I/O UNITS 484 * * * ************************************************************************************************************************************ IEF375I JOB /RACX5DSG/ START 89094.0956 IEF376I JOB /RACX5DSG/ STOP 89094.0956 CPU 0MIN 00.47SEC SRB 0MIN 00.02SEC