J E S 2 J O B L O G 11.38.19 JOB 6 $HASP373 HEWO#FOW STARTED - INIT 6 - CLASS C - SYS TK4- 11.38.19 JOB 6 IEF403I HEWO#FOW - STARTED - TIME=11.38.19 11.38.19 JOB 6 IEFACTRT - Stepname Procstep Program Retcode 11.38.19 JOB 6 HEWO#FOW CLG GO WATFIV RC= 0000 11.38.19 JOB 6 IEF404I HEWO#FOW - ENDED - TIME=11.38.19 11.38.19 JOB 6 $HASP395 HEWO#FOW ENDED ------ JES2 JOB STATISTICS ------ 21 OCT 18 JOB EXECUTION DATE 21 CARDS READ 108 SYSOUT PRINT RECORDS 0 SYSOUT PUNCH RECORDS 0.00 MINUTES EXECUTION TIME 1 //HEWO#FOW JOB 'S322-0C4','WFJM', JOB 6 // CLASS=C,MSGCLASS=A,MSGLEVEL=(1,1), // REGION=256K,TIME=(1,0),PRTY=8 2 //CLG EXEC WATFIV 3 XXWATFIV PROC PROG=WATFIV,LIB='FUNLIB',WLIB='WATLIB', XX JB='JOBLIB',PFX='WATFIV' ********************************************************************** *** *** Name: SYS2.PROCLIB(WATFIV) *** *** Desc: execute WATFIV FORTRAN programs *** ********************************************************************** 4 XXGO EXEC PGM=&PROG 5 XXSTEPLIB DD DSN=&PFX..&JB,DISP=SHR 6 XXWATLIB DD DSN=&PFX..&LIB,DISP=SHR 7 XX DD DSN=&PFX..&WLIB,DISP=SHR 8 XXFT01F001 DD SPACE=(TRK,(20,10)),DCB=(RECFM=VS,BLKSIZE=256),UNIT=SYSDA 9 XXFT02F001 DD SPACE=(TRK,(20,10)),DCB=(RECFM=VS,BLKSIZE=256),UNIT=SYSDA 10 XXFT03F001 DD SPACE=(TRK,(20,10)),DCB=(RECFM=VS,BLKSIZE=256),UNIT=SYSDA 11 XXFT04F001 DD SPACE=(TRK,(20,10)),DCB=(RECFM=VS,BLKSIZE=256),UNIT=SYSDA 12 XXFT05F001 DD DDNAME=SYSIN 13 XXFT06F001 DD SYSOUT=*,DCB=(RECFM=FA,BLKSIZE=133) 14 XXFT07F001 DD SYSOUT=B 15 //SYSIN DD * // STMT NO. MESSAGE - 4 IEF653I SUBSTITUTION JCL - PGM=WATFIV 5 IEF653I SUBSTITUTION JCL - DSN=WATFIV.JOBLIB,DISP=SHR 6 IEF653I SUBSTITUTION JCL - DSN=WATFIV.FUNLIB,DISP=SHR 7 IEF653I SUBSTITUTION JCL - DSN=WATFIV.WATLIB,DISP=SHR IEF236I ALLOC. FOR HEWO#FOW GO CLG IEF237I 240 ALLOCATED TO STEPLIB IEF237I 191 ALLOCATED TO SYS00002 IEF237I 240 ALLOCATED TO WATLIB IEF237I 240 ALLOCATED TO IEF237I 170 ALLOCATED TO FT01F001 IEF237I 180 ALLOCATED TO FT02F001 IEF237I 140 ALLOCATED TO FT03F001 IEF237I 190 ALLOCATED TO FT04F001 IEF237I JES2 ALLOCATED TO FT05F001 IEF237I JES2 ALLOCATED TO FT06F001 IEF237I JES2 ALLOCATED TO FT07F001 IEF142I HEWO#FOW GO CLG - STEP WAS EXECUTED - COND CODE 0000 IEF285I WATFIV.JOBLIB KEPT *--------0 IEF285I VOL SER NOS= PUB000. IEF285I SYS1.UCAT.MVS KEPT *--------0 IEF285I VOL SER NOS= MVSCAT. IEF285I WATFIV.FUNLIB KEPT *--------0 IEF285I VOL SER NOS= PUB000. IEF285I WATFIV.WATLIB KEPT *--------0 IEF285I VOL SER NOS= PUB000. IEF285I SYS18294.T113819.RA000.HEWO#FOW.R0000001 DELETED *--------0 IEF285I VOL SER NOS= WORK01. IEF285I SYS18294.T113819.RA000.HEWO#FOW.R0000002 DELETED *--------0 IEF285I VOL SER NOS= WORK02. IEF285I SYS18294.T113819.RA000.HEWO#FOW.R0000003 DELETED *--------0 IEF285I VOL SER NOS= WORK00. IEF285I SYS18294.T113819.RA000.HEWO#FOW.R0000004 DELETED *--------0 IEF285I VOL SER NOS= WORK03. IEF285I JES2.JOB00006.SI0101 SYSIN IEF285I JES2.JOB00006.SO0102 SYSOUT IEF285I JES2.JOB00006.SO0103 SYSOUT IEF373I STEP /GO / START 18294.1138 IEF374I STEP /GO / STOP 18294.1138 CPU 0MIN 00.01SEC SRB 0MIN 00.00SEC VIRT 256K SYS 208K ************************************************************************************************************************************ * 1. Jobstep of job: HEWO#FOW Stepname: GO Program name: WATFIV Executed on 21.10.18 from 11.38.19 to 11.38.19 * * elapsed time 00:00:00,08 CPU-Identifier: TK4- Page-in: 0 * * CPU time 00:00:00,01 Virtual Storage used: 256K Page-out: 0 * * corr. CPU: 00:00:00,01 CPU time has been corrected by 1 / 1,0 multiplier * * * * I/O Operation * * Number of records read via DD * or DD DATA: 14 * * 240.......0 191.......0 240.......0 240.......0 170.......0 180.......0 140.......0 190.......0 DMY.......0 DMY.......0 * * DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,01 * ************************************************************************************************************************************ IEF375I JOB /HEWO#FOW/ START 18294.1138 IEF376I JOB /HEWO#FOW/ STOP 18294.1138 CPU 0MIN 00.01SEC SRB 0MIN 00.00SEC $JOB HEWO#FOW,T=(1,0),P=100,CHECK C 1 2 3 4 5 6 712-------- C2345*78901234567890123456789012345678901234567890123456789012345678901234567890 C C --- main program --------------------------------------------------- C PROGRAM HEWO 1 WRITE(6,9000) 2 STOP C 3 9000 FORMAT(1X,'Hello World !') C 4 END $ENTRY Hello World ! CORE USAGE OBJECT CODE= 208 BYTES,ARRAY AREA= 0 BYTES,TOTAL AREA AVAILABLE= 149504 BYTES DIAGNOSTICS NUMBER OF ERRORS= 0, NUMBER OF WARNINGS= 0, NUMBER OF EXTENSIONS= 0 COMPILE TIME= 0.00 SEC,EXECUTION TIME= 0.00 SEC, 11.38.19 SUNDAY 21 OCT 18 WATFIV - JAN 1976 V1L5 $STOP