J E S 2 J O B L O G 10.03.33 JOB 4 IEF677I WARNING MESSAGE(S) FOR JOB HEWO#FOG ISSUED 10.03.33 JOB 4 $HASP373 HEWO#FOG STARTED - INIT 6 - CLASS C - SYS TK4- 10.03.33 JOB 4 IEF403I HEWO#FOG - STARTED - TIME=10.03.33 10.03.33 JOB 4 IEFACTRT - Stepname Procstep Program Retcode 10.03.33 JOB 4 HEWO#FOG CLG FORT IEYFORT RC= 0000 10.03.33 JOB 4 HEWO#FOG CLG LKED IEWL RC= 0000 10.03.33 JOB 4 HEWO#FOG CLG GO PGM=*.DD RC= 0000 10.03.33 JOB 4 IEF404I HEWO#FOG - ENDED - TIME=10.03.33 10.03.33 JOB 4 $HASP395 HEWO#FOG ENDED ------ JES2 JOB STATISTICS ------ 06 JAN 19 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 170 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 SYS19006.T100333.RA000.HEWO#FOG.LOADSET PASSED *-------14 IEF285I VOL SER NOS= WORK01. IEF285I JES2.JOB00004.SI0101 SYSIN IEF373I STEP /FORT / START 19006.1003 IEF374I STEP /FORT / STOP 19006.1003 CPU 0MIN 00.02SEC SRB 0MIN 00.00SEC VIRT 84K SYS 208K ************************************************************************************************************************************ * 1. Jobstep of job: HEWO#FOG Stepname: FORT Program name: IEYFORT Executed on 06.01.19 from 10.03.33 to 10.03.33 * * elapsed time 00:00:00,05 CPU-Identifier: TK4- Page-in: 0 * * CPU time 00:00:00,02 Virtual Storage used: 84K 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: 11 * * DMY.......0 DMY.......0 170......14 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,03 * ************************************************************************************************************************************ IEF236I ALLOC. FOR HEWO#FOG LKED CLG IEF237I 148 ALLOCATED TO SYSLIB IEF237I 140 ALLOCATED TO SYSLMOD IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I 180 ALLOCATED TO SYSUT1 IEF237I 170 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 SYS19006.T100333.RA000.HEWO#FOG.GOSET PASSED *-------19 IEF285I VOL SER NOS= WORK00. IEF285I JES2.JOB00004.SO0105 SYSOUT IEF285I SYS19006.T100333.RA000.HEWO#FOG.SYSUT1 DELETED *--------0 IEF285I VOL SER NOS= WORK02. IEF285I SYS19006.T100333.RA000.HEWO#FOG.LOADSET DELETED *-------15 IEF285I VOL SER NOS= WORK01. IEF373I STEP /LKED / START 19006.1003 IEF374I STEP /LKED / STOP 19006.1003 CPU 0MIN 00.03SEC SRB 0MIN 00.01SEC VIRT 260K SYS 204K ************************************************************************************************************************************ * 2. Jobstep of job: HEWO#FOG Stepname: LKED Program name: IEWL Executed on 06.01.19 from 10.03.33 to 10.03.33 * * elapsed time 00:00:00,05 CPU-Identifier: TK4- Page-in: 0 * * CPU time 00:00:00,04 Virtual Storage used: 260K Page-out: 0 * * corr. CPU: 00:00:00,04 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 140......19 DMY.......0 180.......0 170......15 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,06 * ************************************************************************************************************************************ IEF236I ALLOC. FOR HEWO#FOG GO CLG IEF237I 140 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 SYS19006.T100333.RA000.HEWO#FOG.GOSET KEPT *--------0 IEF285I VOL SER NOS= WORK00. IEF285I JES2.JOB00004.SI0102 SYSIN IEF285I JES2.JOB00004.SO0106 SYSOUT IEF285I JES2.JOB00004.SO0107 SYSOUT IEF373I STEP /GO / START 19006.1003 IEF374I STEP /GO / STOP 19006.1003 CPU 0MIN 00.00SEC SRB 0MIN 00.00SEC VIRT 28K SYS 200K IEF237I 140 ALLOCATED TO SYS00001 IEF285I SYS19006.T100333.RA000.HEWO#FOG.R0000001 KEPT *--------0 IEF285I VOL SER NOS= WORK00. IEF285I SYS19006.T100333.RA000.HEWO#FOG.GOSET DELETED IEF285I VOL SER NOS= WORK00. IEF375I JOB /HEWO#FOG/ START 19006.1003 IEF376I JOB /HEWO#FOG/ STOP 19006.1003 CPU 0MIN 00.05SEC SRB 0MIN 00.01SEC FORTRAN IV G LEVEL 21 MAIN DATE = 19006 10/03/33 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 = 19006 10/03/33 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 !