J E S 2 J O B L O G 07.47.14 JOB 13 IEF677I WARNING MESSAGE(S) FOR JOB SINE#FOG ISSUED 07.47.14 JOB 13 $HASP373 SINE#FOG STARTED - INIT 6 - CLASS C - SYS TK4- 07.47.14 JOB 13 IEF403I SINE#FOG - STARTED - TIME=07.47.14 07.47.14 JOB 13 IEFACTRT - Stepname Procstep Program Retcode 07.47.14 JOB 13 SINE#FOG CLG FORT IEYFORT RC= 0000 07.47.14 JOB 13 SINE#FOG CLG LKED IEWL RC= 0000 07.47.14 JOB 13 SINE#FOG CLG GO PGM=*.DD RC= 0000 07.47.14 JOB 13 IEF404I SINE#FOG - ENDED - TIME=07.47.14 07.47.14 JOB 13 $HASP395 SINE#FOG ENDED ------ JES2 JOB STATISTICS ------ 22 AUG 19 JOB EXECUTION DATE 67 CARDS READ 296 SYSOUT PRINT RECORDS 0 SYSOUT PUNCH RECORDS 0.00 MINUTES EXECUTION TIME 1 //SINE#FOG JOB 'S322-0C4','WFJM', JOB 13 // CLASS=C,MSGCLASS=A,MSGLEVEL=(1,1), // REGION=256K,TIME=(1,0),PRTY=8 ***JOBPARM ROOM=4242 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 SINE#FOG FORT CLG IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I JES2 ALLOCATED TO SYSPUNCH IEF237I 140 ALLOCATED TO SYSLIN IEF237I JES2 ALLOCATED TO SYSIN IEF142I SINE#FOG FORT CLG - STEP WAS EXECUTED - COND CODE 0000 IEF285I JES2.JOB00013.SO0103 SYSOUT IEF285I JES2.JOB00013.SO0104 SYSOUT IEF285I SYS19234.T074714.RA000.SINE#FOG.LOADSET PASSED *-------32 IEF285I VOL SER NOS= WORK00. IEF285I JES2.JOB00013.SI0101 SYSIN IEF373I STEP /FORT / START 19234.0747 IEF374I STEP /FORT / STOP 19234.0747 CPU 0MIN 00.02SEC SRB 0MIN 00.00SEC VIRT 84K SYS 212K ************************************************************************************************************************************ * 1. Jobstep of job: SINE#FOG Stepname: FORT Program name: IEYFORT Executed on 22.08.19 from 07.47.14 to 07.47.14 * * elapsed time 00:00:00,04 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: 54 * * DMY.......0 DMY.......0 140......32 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,03 * ************************************************************************************************************************************ IEF236I ALLOC. FOR SINE#FOG LKED CLG IEF237I 148 ALLOCATED TO SYSLIB IEF237I 190 ALLOCATED TO SYSLMOD IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I 180 ALLOCATED TO SYSUT1 IEF237I 140 ALLOCATED TO SYSLIN IEF237I DMY ALLOCATED TO IEF142I SINE#FOG LKED CLG - STEP WAS EXECUTED - COND CODE 0000 IEF285I SYS1.FORTLIB KEPT *-------74 IEF285I VOL SER NOS= MVSRES. IEF285I SYS19234.T074714.RA000.SINE#FOG.GOSET PASSED *-------19 IEF285I VOL SER NOS= WORK03. IEF285I JES2.JOB00013.SO0105 SYSOUT IEF285I SYS19234.T074714.RA000.SINE#FOG.SYSUT1 DELETED *--------0 IEF285I VOL SER NOS= WORK02. IEF285I SYS19234.T074714.RA000.SINE#FOG.LOADSET DELETED *-------33 IEF285I VOL SER NOS= WORK00. IEF373I STEP /LKED / START 19234.0747 IEF374I STEP /LKED / STOP 19234.0747 CPU 0MIN 00.02SEC SRB 0MIN 00.01SEC VIRT 260K SYS 208K ************************************************************************************************************************************ * 2. Jobstep of job: SINE#FOG Stepname: LKED Program name: IEWL Executed on 22.08.19 from 07.47.14 to 07.47.14 * * elapsed time 00:00:00,05 CPU-Identifier: TK4- Page-in: 0 * * CPU time 00:00:00,03 Virtual Storage used: 260K Page-out: 0 * * corr. CPU: 00:00:00,03 CPU time has been corrected by 1 / 1,0 multiplier * * * * I/O Operation * * Number of records read via DD * or DD DATA: 0 * * 148......74 190......19 DMY.......0 180.......0 140......33 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,05 * ************************************************************************************************************************************ IEF236I ALLOC. FOR SINE#FOG GO CLG IEF237I 190 ALLOCATED TO PGM=*.DD IEF237I JES2 ALLOCATED TO FT05F001 IEF237I JES2 ALLOCATED TO FT06F001 IEF237I JES2 ALLOCATED TO FT07F001 IEF142I SINE#FOG GO CLG - STEP WAS EXECUTED - COND CODE 0000 IEF285I SYS19234.T074714.RA000.SINE#FOG.GOSET KEPT *--------0 IEF285I VOL SER NOS= WORK03. IEF285I JES2.JOB00013.SI0102 SYSIN IEF285I JES2.JOB00013.SO0106 SYSOUT IEF285I JES2.JOB00013.SO0107 SYSOUT IEF373I STEP /GO / START 19234.0747 IEF374I STEP /GO / STOP 19234.0747 CPU 0MIN 00.01SEC SRB 0MIN 00.00SEC VIRT 28K SYS 200K ************************************************************************************************************************************ * 3. Jobstep of job: SINE#FOG Stepname: GO Program name: PGM=*.DD Executed on 22.08.19 from 07.47.14 to 07.47.14 * * elapsed time 00:00:00,02 CPU-Identifier: TK4- Page-in: 0 * * CPU time 00:00:00,01 Virtual Storage used: 28K 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: 0 * * 190.......0 DMY.......0 DMY.......0 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,01 * ************************************************************************************************************************************ IEF237I 190 ALLOCATED TO SYS00001 IEF285I SYS19234.T074714.RA000.SINE#FOG.R0000001 KEPT *--------0 IEF285I VOL SER NOS= WORK03. IEF285I SYS19234.T074714.RA000.SINE#FOG.GOSET DELETED IEF285I VOL SER NOS= WORK03. IEF375I JOB /SINE#FOG/ START 19234.0747 IEF376I JOB /SINE#FOG/ STOP 19234.0747 CPU 0MIN 00.05SEC SRB 0MIN 00.01SEC FORTRAN IV G LEVEL 21 MAIN DATE = 19234 07/47/14 PAGE 0001 C 1 2 3 4 5 6 712-------- C2345*78901234567890123456789012345678901234567890123456789012345678901234567890 C $Id: sine_for.f 1171 2019-06-28 19:02:57Z mueller $ C SPDX-License-Identifier: GPL-3.0-or-later C Copyright 2017-2019 by Walter F.J. Mueller C C Revision History: C Date Rev Version Comment C 2017-08-09 934 1.0 Initial version C 2017-07-30 931 0.1 First draft C C --- main program --------------------------------------------------- C PROGRAM SINE 0001 INTEGER PLOT(81) 0002 INTEGER I,J,ISIN,ICOS 0003 REAL*4 X,XRAD,FSIN,FCOS 0004 INTEGER CBL,CPL,CDO,CCO,CST,CHA 0005 DATA CBL/1H /,CPL/1H+/,CDO/1H./,CCO/1H:/,CST/1H*/,CHA/1H#/ C 0006 WRITE(6,9000) 0007 WRITE(6,9010) C C Fortran IV(1966): DO limits must all to be > 0 -- FORTRAN-G enforces this 0008 DO 100 I=1,61 0009 X = 6. * (I-1) 0010 XRAD = X/57.2957795131 0011 FSIN = SIN(XRAD) 0012 FCOS = COS(XRAD) 0013 DO 200 J=1,81 0014 PLOT(J) = CBL 0015 200 CONTINUE 0016 PLOT( 1) = CPL 0017 PLOT(21) = CDO 0018 PLOT(41) = CCO 0019 PLOT(61) = CDO 0020 PLOT(81) = CPL 0021 ISIN = 41.5 + 40. * FSIN 0022 ICOS = 41.5 + 40. * FCOS 0023 PLOT(ISIN) = CST 0024 PLOT(ICOS) = CHA 0025 WRITE(6,9020) X,FSIN,FCOS,PLOT 0026 100 CONTINUE 0027 WRITE(6,9010) 0028 STOP C 0029 9000 FORMAT(1X,' x sin(x) cos(x) ', * '-1 -0.5 0', * ' +0.5 +1') 0030 9010 FORMAT(1X,' ', * '+-------------------.-------------------:', * '-------------------.-------------------:') 0031 9020 FORMAT(1X,F6.0,1X,F8.5,1X,F8.5,3X,81A1) C 0032 END FORTRAN IV G LEVEL 21 MAIN DATE = 19234 07/47/14 PAGE 0002 *OPTIONS IN EFFECT* ID,EBCDIC,SOURCE,NOLIST,NODECK,LOAD,NOMAP *OPTIONS IN EFFECT* NAME = MAIN , LINECNT = 60 *STATISTICS* SOURCE STATEMENTS = 32,PROGRAM SIZE = 1396 *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 574 IHCSSCN * 578 1D9 COS 578 SIN 590 IHCECOMH* 758 F61 IBCOM# 758 FDIOCS# 814 INTSWTCH 169E IHCCOMH2* 16C0 65D SEQDASD 1A38 IHCFCVTH* 1D20 11B5 ADCON# 1D20 FCVAOUTP 1DCA FCVLOUTP 1E5A FCVZOUTP 1FB2 FCVIOUTP 2366 FCVEOUTP 2868 FCVCOUTP 2A82 INT6SWCH 2D6B IHCEFNTH* 2ED8 542 ARITH# 2ED8 ADJSWTCH 3274 IHCEFIOS* 3420 F28 FIOCS# 3420 FIOCSBEP 3426 IHCFIOS2* 4348 52E IHCERRM * 4878 5DC ERRMON 4878 IHCERRE 4890 IHCUOPT * 4E58 300 IHCETRCH* 5158 28E IHCTRCH 5158 ERRTRA 5160 IHCUATBL* 53E8 638 ENTRY ADDRESS 00 TOTAL LENGTH 5A20 ****MAIN DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET AUTHORIZATION CODE IS 0. x sin(x) cos(x) -1 -0.5 0 +0.5 +1 +-------------------.-------------------:-------------------.-------------------: 0. 0.0 1.00000 + . * . # 6. 0.10453 0.99452 + . : * . # 12. 0.20791 0.97815 + . : * . #+ 18. 0.30902 0.95106 + . : * . # + 24. 0.40674 0.91355 + . : * . # + 30. 0.50000 0.86603 + . : * # + 36. 0.58779 0.80902 + . : . * # + 42. 0.66913 0.74314 + . : . * # + 48. 0.74314 0.66913 + . : . # * + 54. 0.80902 0.58779 + . : . # * + 60. 0.86603 0.50000 + . : # * + 66. 0.91355 0.40674 + . : # . * + 72. 0.95106 0.30902 + . : # . * + 78. 0.97815 0.20791 + . : # . *+ 84. 0.99452 0.10453 + . : # . * 90. 1.00000 0.00000 + . # . * 96. 0.99452 -0.10453 + . # : . * 102. 0.97815 -0.20791 + . # : . *+ 108. 0.95106 -0.30902 + . # : . * + 114. 0.91355 -0.40674 + . # : . * + 120. 0.86603 -0.50000 + # : . * + 126. 0.80902 -0.58779 + # . : . * + 132. 0.74315 -0.66913 + # . : . * + 138. 0.66913 -0.74314 + # . : . * + 144. 0.58779 -0.80902 + # . : . * + 150. 0.50000 -0.86603 + # . : * + 156. 0.40674 -0.91355 + # . : * . + 162. 0.30902 -0.95106 + # . : * . + 168. 0.20791 -0.97815 +# . : * . + 174. 0.10453 -0.99452 # . : * . + 180. 0.00000 -1.00000 # . * . + 186. -0.10453 -0.99452 # . * : . + 192. -0.20791 -0.97815 +# . * : . + 198. -0.30902 -0.95106 + # . * : . + 204. -0.40674 -0.91355 + # . * : . + 210. -0.50000 -0.86603 + # * : . + 216. -0.58778 -0.80902 + # * . : . + 222. -0.66913 -0.74314 + # * . : . + 228. -0.74314 -0.66913 + * # . : . + 234. -0.80902 -0.58779 + * # . : . + 240. -0.86603 -0.50000 + * # : . + 246. -0.91355 -0.40674 + * . # : . + 252. -0.95106 -0.30902 + * . # : . + 258. -0.97815 -0.20791 +* . # : . + 264. -0.99452 -0.10453 * . # : . + 270. -1.00000 0.00000 * . # . + 276. -0.99452 0.10453 * . : # . + 282. -0.97815 0.20791 +* . : # . + 288. -0.95106 0.30902 + * . : # . + 294. -0.91355 0.40674 + * . : # . + 300. -0.86603 0.50000 + * . : # + 306. -0.80902 0.58779 + * . : . # + 312. -0.74315 0.66913 + * . : . # + 318. -0.66913 0.74314 + * . : . # + 324. -0.58779 0.80902 + * . : . # + 330. -0.50000 0.86603 + * : . # + 336. -0.40674 0.91355 + . * : . # + 342. -0.30902 0.95106 + . * : . # + 348. -0.20791 0.97815 + . * : . #+ 354. -0.10453 0.99452 + . * : . # 360. -0.00000 1.00000 + . * . # +-------------------.-------------------:-------------------.-------------------: