J E S 2 J O B L O G 08.53.40 JOB 4 IEF677I WARNING MESSAGE(S) FOR JOB HEWO#FOG ISSUED 08.53.40 JOB 4 $HASP373 HEWO#FOG STARTED - INIT 6 - CLASS C - SYS TK4- 08.53.40 JOB 4 IEF403I HEWO#FOG - STARTED - TIME=08.53.40 08.53.40 JOB 4 IEFACTRT - Stepname Procstep Program Retcode 08.53.40 JOB 4 HEWO#FOG CLG FORT IEYFORT RC= 0000 08.53.40 JOB 4 HEWO#FOG CLG LKED IEWL RC= 0000 08.53.40 JOB 4 HEWO#FOG CLG GO PGM=*.DD RC= 0000 08.53.40 JOB 4 IEF404I HEWO#FOG - ENDED - TIME=08.53.40 08.53.40 JOB 4 $HASP395 HEWO#FOG ENDED ------ JES2 JOB STATISTICS ------ 25 NOV 18 JOB EXECUTION DATE 23 CARDS READ 174 SYSOUT PRINT RECORDS 0 SYSOUT PUNCH RECORDS 0.00 MINUTES EXECUTION TIME 1 //HEWO#FOG JOB 'S322-0C4','WFJM', JOB 4 // CLASS=C,MSGCLASS=A,MSGLEVEL=(1,1), // REGION=256K,TIME=(1,0),PRTY=8 2 //CLG EXEC FORTGCLG, // PARM.FORT='', // PARM.LKED='MAP,LIST,LET' 3 XXFORTGCLG PROC SOUT='*' 00000100 4 XXFORT EXEC PGM=IEYFORT 00000200 5 XXSYSPRINT DD SYSOUT=&SOUT 00000300 6 XXSYSPUNCH DD SYSOUT=B 00000400 7 XXSYSLIN DD DSNAME=&LOADSET,DISP=(MOD,PASS),UNIT=SYSSQ, X00000500 XX SPACE=(80,(200,100),RLSE),DCB=BLKSIZE=80 00000600 8 //FORT.SYSIN DD * 9 XXLKED EXEC PGM=IEWL,PARM=(XREF,LET,LIST),COND=(4,LT,FORT) 00000700 10 XXSYSLIB DD DSNAME=SYS1.FORTLIB,DISP=SHR 00000800 11 XXSYSLMOD DD DSNAME=&GOSET(MAIN),DISP=(NEW,PASS),UNIT=SYSDA, X00000900 XX SPACE=(1024,(20,10,1),RLSE),DCB=BLKSIZE=1024 00001000 12 XXSYSPRINT DD SYSOUT=&SOUT 00001100 13 XXSYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,10),RLSE),DCB=BLKSIZE=1024, X00001200 XX DSNAME=&SYSUT1 00001300 14 XXSYSLIN DD DSNAME=&LOADSET,DISP=(OLD,DELETE) 00001400 15 XX DD DDNAME=SYSIN 00001500 16 XXGO EXEC PGM=*.LKED.SYSLMOD,COND=((4,LT,FORT),(4,LT,LKED)) 00001600 17 XXFT05F001 DD DDNAME=SYSIN 00001700 18 //GO.FT06F001 DD SYSOUT=*,OUTLIM=5000 X/FT06F001 DD SYSOUT=&SOUT 00001800 19 XXFT07F001 DD SYSOUT=B 00001900 20 //GO.SYSIN DD * // STMT NO. MESSAGE - 5 IEF653I SUBSTITUTION JCL - SYSOUT=* 12 IEF653I SUBSTITUTION JCL - SYSOUT=* 18 IEF653I SUBSTITUTION JCL - SYSOUT=* 16 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED IEF236I ALLOC. FOR HEWO#FOG FORT CLG IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I JES2 ALLOCATED TO SYSPUNCH IEF237I 190 ALLOCATED TO SYSLIN IEF237I JES2 ALLOCATED TO SYSIN IEF142I HEWO#FOG FORT CLG - STEP WAS EXECUTED - COND CODE 0000 IEF285I JES2.JOB00004.SO0103 SYSOUT IEF285I JES2.JOB00004.SO0104 SYSOUT IEF285I SYS18329.T085340.RA000.HEWO#FOG.LOADSET PASSED *-------14 IEF285I VOL SER NOS= WORK03. IEF285I JES2.JOB00004.SI0101 SYSIN IEF373I STEP /FORT / START 18329.0853 IEF374I STEP /FORT / STOP 18329.0853 CPU 0MIN 00.01SEC SRB 0MIN 00.00SEC VIRT 84K SYS 208K ************************************************************************************************************************************ * 1. Jobstep of job: HEWO#FOG Stepname: FORT Program name: IEYFORT Executed on 25.11.18 from 08.53.40 to 08.53.40 * * elapsed time 00:00:00,04 CPU-Identifier: TK4- Page-in: 0 * * CPU time 00:00:00,01 Virtual Storage used: 84K 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: 11 * * DMY.......0 DMY.......0 190......14 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,01 * ************************************************************************************************************************************ IEF236I ALLOC. FOR HEWO#FOG LKED CLG IEF237I 148 ALLOCATED TO SYSLIB IEF237I 170 ALLOCATED TO SYSLMOD IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I 180 ALLOCATED TO SYSUT1 IEF237I 190 ALLOCATED TO SYSLIN IEF237I DMY ALLOCATED TO IEF142I HEWO#FOG LKED CLG - STEP WAS EXECUTED - COND CODE 0000 IEF285I SYS1.FORTLIB KEPT *-------66 IEF285I VOL SER NOS= MVSRES. IEF285I SYS18329.T085340.RA000.HEWO#FOG.GOSET PASSED *-------19 IEF285I VOL SER NOS= WORK01. IEF285I JES2.JOB00004.SO0105 SYSOUT IEF285I SYS18329.T085340.RA000.HEWO#FOG.SYSUT1 DELETED *--------0 IEF285I VOL SER NOS= WORK02. IEF285I SYS18329.T085340.RA000.HEWO#FOG.LOADSET DELETED *-------15 IEF285I VOL SER NOS= WORK03. IEF373I STEP /LKED / START 18329.0853 IEF374I STEP /LKED / STOP 18329.0853 CPU 0MIN 00.02SEC SRB 0MIN 00.00SEC VIRT 260K SYS 204K ************************************************************************************************************************************ * 2. Jobstep of job: HEWO#FOG Stepname: LKED Program name: IEWL Executed on 25.11.18 from 08.53.40 to 08.53.40 * * elapsed time 00:00:00,05 CPU-Identifier: TK4- Page-in: 0 * * CPU time 00:00:00,02 Virtual Storage used: 260K Page-out: 0 * * corr. CPU: 00:00:00,02 CPU time has been corrected by 1 / 1,0 multiplier * * * * I/O Operation * * Number of records read via DD * or DD DATA: 0 * * 148......66 170......19 DMY.......0 180.......0 190......15 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,03 * ************************************************************************************************************************************ IEF236I ALLOC. FOR HEWO#FOG GO CLG IEF237I 170 ALLOCATED TO PGM=*.DD IEF237I JES2 ALLOCATED TO FT05F001 IEF237I JES2 ALLOCATED TO FT06F001 IEF237I JES2 ALLOCATED TO FT07F001 IEF142I HEWO#FOG GO CLG - STEP WAS EXECUTED - COND CODE 0000 IEF285I SYS18329.T085340.RA000.HEWO#FOG.GOSET KEPT *--------0 IEF285I VOL SER NOS= WORK01. IEF285I JES2.JOB00004.SI0102 SYSIN IEF285I JES2.JOB00004.SO0106 SYSOUT IEF285I JES2.JOB00004.SO0107 SYSOUT IEF373I STEP /GO / START 18329.0853 IEF374I STEP /GO / STOP 18329.0853 CPU 0MIN 00.00SEC SRB 0MIN 00.00SEC VIRT 28K SYS 200K IEF237I 170 ALLOCATED TO SYS00001 IEF285I SYS18329.T085340.RA000.HEWO#FOG.R0000001 KEPT *--------0 IEF285I VOL SER NOS= WORK01. IEF285I SYS18329.T085340.RA000.HEWO#FOG.GOSET DELETED IEF285I VOL SER NOS= WORK01. IEF375I JOB /HEWO#FOG/ START 18329.0853 IEF376I JOB /HEWO#FOG/ STOP 18329.0853 CPU 0MIN 00.03SEC SRB 0MIN 00.00SEC FORTRAN IV G LEVEL 21 MAIN DATE = 18329 08/53/40 PAGE 0001 C 1 2 3 4 5 6 712-------- C2345*78901234567890123456789012345678901234567890123456789012345678901234567890 C C --- main program --------------------------------------------------- C PROGRAM HEWO 0001 WRITE(6,9000) 0002 STOP C 0003 9000 FORMAT(1X,'Hello World !') C 0004 END FORTRAN IV G LEVEL 21 MAIN DATE = 18329 08/53/40 PAGE 0002 *OPTIONS IN EFFECT* ID,EBCDIC,SOURCE,NOLIST,NODECK,LOAD,NOMAP *OPTIONS IN EFFECT* NAME = MAIN , LINECNT = 60 *STATISTICS* SOURCE STATEMENTS = 4,PROGRAM SIZE = 304 *STATISTICS* NO DIAGNOSTICS GENERATED F64-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED MAP,LIST,LET DEFAULT OPTION(S) USED - SIZE=(229376,55296) MODULE MAP CONTROL SECTION ENTRY NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION MAIN 00 130 IHCECOMH* 130 F61 IBCOM# 130 FDIOCS# 1EC INTSWTCH 1076 IHCCOMH2* 1098 65D SEQDASD 1410 IHCFCVTH* 16F8 11B5 ADCON# 16F8 FCVAOUTP 17A2 FCVLOUTP 1832 FCVZOUTP 198A FCVIOUTP 1D3E FCVEOUTP 2240 FCVCOUTP 245A INT6SWCH 2743 IHCEFNTH* 28B0 542 ARITH# 28B0 ADJSWTCH 2C4C IHCEFIOS* 2DF8 F28 FIOCS# 2DF8 FIOCSBEP 2DFE IHCFIOS2* 3D20 52E IHCUOPT * 4250 300 IHCERRM * 4550 5DC ERRMON 4550 IHCERRE 4568 IHCUATBL* 4B30 638 IHCETRCH* 5168 28E IHCTRCH 5168 ERRTRA 5170 ENTRY ADDRESS 00 TOTAL LENGTH 53F8 ****MAIN DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET AUTHORIZATION CODE IS 0. Hello World !