J E S 2 J O B L O G 10.03.36 JOB 14 IEF677I WARNING MESSAGE(S) FOR JOB SINE#FOH ISSUED 10.03.36 JOB 14 $HASP373 SINE#FOH STARTED - INIT 6 - CLASS C - SYS TK4- 10.03.36 JOB 14 IEF403I SINE#FOH - STARTED - TIME=10.03.36 10.03.36 JOB 14 IEFACTRT - Stepname Procstep Program Retcode 10.03.36 JOB 14 SINE#FOH CLG FORT IEKAA00 RC= 0000 10.03.36 JOB 14 SINE#FOH CLG LKED IEWL RC= 0000 10.03.36 JOB 14 SINE#FOH CLG GO PGM=*.DD RC= 0000 10.03.36 JOB 14 IEF404I SINE#FOH - ENDED - TIME=10.03.36 10.03.36 JOB 14 $HASP395 SINE#FOH ENDED ------ JES2 JOB STATISTICS ------ 06 JAN 19 JOB EXECUTION DATE 70 CARDS READ 300 SYSOUT PRINT RECORDS 0 SYSOUT PUNCH RECORDS 0.00 MINUTES EXECUTION TIME 1 //SINE#FOH JOB 'S322-0C4','WFJM', JOB 14 // CLASS=C,MSGCLASS=A,MSGLEVEL=(1,1), // REGION=256K,TIME=(1,0),PRTY=8 2 //CLG EXEC FORTHCLG, // PARM.FORT='OPT=2', // PARM.LKED='MAP,LIST,LET' 3 XXFORTHCLG PROC SOUT='*' 00000100 4 XXFORT EXEC PGM=IEKAA00 00000200 5 XXSYSPRINT DD SYSOUT=&SOUT 00000300 6 XXSYSPUNCH DD SYSOUT=B 00000400 7 XXSYSLIN DD DSNAME=&LOADSET,UNIT=SYSSQ,DISP=(MOD,PASS), *00000500 XX SPACE=(400,(200,50),RLSE) 00000600 8 //FORT.SYSIN DD * 9 XXLKED EXEC PGM=IEWL,PARM=(MAP,LET,LIST),COND=(4,LT,FORT) 00000700 10 XXSYSLIB DD DSNAME=SYS1.FORTLIB,DISP=SHR 00000800 11 XXSYSPRINT DD SYSOUT=&SOUT 00000900 12 XXSYSLMOD DD DSNAME=&GOSET(MAIN),UNIT=SYSDA,DISP=(,PASS), *00001000 XX SPACE=(3072,(30,10,1),RLSE) 00001100 13 XXSYSUT1 DD DSNAME=&SYSUT1,UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD 00001200 14 XXSYSLIN DD DSNAME=&LOADSET,DISP=(OLD,DELETE) 00001300 15 XX DD DDNAME=SYSIN 00001400 16 XXGO EXEC PGM=*.LKED.SYSLMOD,COND=((4,LT,FORT),(4,LT,LKED)) 00001500 17 XXFT05F001 DD DDNAME=SYSIN 00001600 18 //GO.FT06F001 DD SYSOUT=*,OUTLIM=5000 X/FT06F001 DD SYSOUT=&SOUT 00001700 19 XXFT07F001 DD SYSOUT=B 00001800 20 //GO.SYSIN DD * // STMT NO. MESSAGE - 5 IEF653I SUBSTITUTION JCL - SYSOUT=* 11 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#FOH FORT CLG IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I JES2 ALLOCATED TO SYSPUNCH IEF237I 170 ALLOCATED TO SYSLIN IEF237I JES2 ALLOCATED TO SYSIN IEF142I SINE#FOH FORT CLG - STEP WAS EXECUTED - COND CODE 0000 IEF285I JES2.JOB00014.SO0103 SYSOUT IEF285I JES2.JOB00014.SO0104 SYSOUT IEF285I SYS19006.T100336.RA000.SINE#FOH.LOADSET PASSED *-------29 IEF285I VOL SER NOS= WORK01. IEF285I JES2.JOB00014.SI0101 SYSIN IEF373I STEP /FORT / START 19006.1003 IEF374I STEP /FORT / STOP 19006.1003 CPU 0MIN 00.02SEC SRB 0MIN 00.01SEC VIRT 320K SYS 208K ************************************************************************************************************************************ * 1. Jobstep of job: SINE#FOH Stepname: FORT Program name: IEKAA00 Executed on 06.01.19 from 10.03.36 to 10.03.36 * * elapsed time 00:00:00,05 CPU-Identifier: TK4- Page-in: 0 * * CPU time 00:00:00,03 Virtual Storage used: 320K 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: 58 * * DMY.......0 DMY.......0 170......29 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,05 * ************************************************************************************************************************************ IEF236I ALLOC. FOR SINE#FOH LKED CLG IEF237I 148 ALLOCATED TO SYSLIB IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I 140 ALLOCATED TO SYSLMOD IEF237I 180 ALLOCATED TO SYSUT1 IEF237I 170 ALLOCATED TO SYSLIN IEF237I DMY ALLOCATED TO IEF142I SINE#FOH LKED CLG - STEP WAS EXECUTED - COND CODE 0000 IEF285I SYS1.FORTLIB KEPT *-------74 IEF285I VOL SER NOS= MVSRES. IEF285I JES2.JOB00014.SO0105 SYSOUT IEF285I SYS19006.T100336.RA000.SINE#FOH.GOSET PASSED *-------19 IEF285I VOL SER NOS= WORK00. IEF285I SYS19006.T100336.RA000.SINE#FOH.SYSUT1 DELETED *--------0 IEF285I VOL SER NOS= WORK02. IEF285I SYS19006.T100336.RA000.SINE#FOH.LOADSET DELETED *-------30 IEF285I VOL SER NOS= WORK01. IEF373I STEP /LKED / START 19006.1003 IEF374I STEP /LKED / STOP 19006.1003 CPU 0MIN 00.02SEC SRB 0MIN 00.01SEC VIRT 260K SYS 208K ************************************************************************************************************************************ * 2. Jobstep of job: SINE#FOH Stepname: LKED Program name: IEWL Executed on 06.01.19 from 10.03.36 to 10.03.36 * * 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 DMY.......0 140......19 180.......0 170......30 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,05 * ************************************************************************************************************************************ IEF236I ALLOC. FOR SINE#FOH GO CLG IEF237I 140 ALLOCATED TO PGM=*.DD IEF237I JES2 ALLOCATED TO FT05F001 IEF237I JES2 ALLOCATED TO FT06F001 IEF237I JES2 ALLOCATED TO FT07F001 IEF142I SINE#FOH GO CLG - STEP WAS EXECUTED - COND CODE 0000 IEF285I SYS19006.T100336.RA000.SINE#FOH.GOSET KEPT *--------0 IEF285I VOL SER NOS= WORK00. IEF285I JES2.JOB00014.SI0102 SYSIN IEF285I JES2.JOB00014.SO0106 SYSOUT IEF285I JES2.JOB00014.SO0107 SYSOUT IEF373I STEP /GO / START 19006.1003 IEF374I STEP /GO / STOP 19006.1003 CPU 0MIN 00.01SEC SRB 0MIN 00.00SEC VIRT 28K SYS 204K ************************************************************************************************************************************ * 3. Jobstep of job: SINE#FOH Stepname: GO Program name: PGM=*.DD Executed on 06.01.19 from 10.03.36 to 10.03.36 * * elapsed time 00:00:00,01 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 * * 140.......0 DMY.......0 DMY.......0 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,01 * ************************************************************************************************************************************ IEF237I 140 ALLOCATED TO SYS00001 IEF285I SYS19006.T100336.RA000.SINE#FOH.R0000001 KEPT *--------0 IEF285I VOL SER NOS= WORK00. IEF285I SYS19006.T100336.RA000.SINE#FOH.GOSET DELETED IEF285I VOL SER NOS= WORK00. IEF375I JOB /SINE#FOH/ START 19006.1003 IEF376I JOB /SINE#FOH/ STOP 19006.1003 CPU 0MIN 00.05SEC SRB 0MIN 00.02SEC LEVEL 21.8 ( JUN 74 ) OS/360 FORTRAN H DATE 19.006/10.03.36 COMPILER OPTIONS - NAME= MAIN,OPT=02,LINECNT=50,SIZE=0000K, SOURCE,EBCDIC,NOLIST,NODECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF C 1 2 3 4 5 6 712-------- C2345*78901234567890123456789012345678901234567890123456789012345678901234567890 C $Id: sine_for.f 964 2017-11-19 08:47:46Z mueller $ C C Copyright 2017- by Walter F.J. Mueller C C This program is free software; you may redistribute and/or modify C it under the terms of the GNU General Public License version 3. C See Licence.txt in distribition directory for further details. 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 ISN 0002 INTEGER PLOT(81) ISN 0003 INTEGER I,J,ISIN,ICOS ISN 0004 REAL*4 X,XRAD,FSIN,FCOS ISN 0005 INTEGER CBL,CPL,CDO,CCO,CST,CHA ISN 0006 DATA CBL/1H /,CPL/1H+/,CDO/1H./,CCO/1H:/,CST/1H*/,CHA/1H#/ C ISN 0007 WRITE(6,9000) ISN 0008 WRITE(6,9010) C C Fortran IV(1966): DO limits must all to be > 0 -- FORTRAN-G enforces this ISN 0009 DO 100 I=1,61 ISN 0010 X = 6. * (I-1) ISN 0011 XRAD = X/57.2957795131 ISN 0012 FSIN = SIN(XRAD) ISN 0013 FCOS = COS(XRAD) ISN 0014 DO 200 J=1,81 ISN 0015 PLOT(J) = CBL ISN 0016 200 CONTINUE ISN 0017 PLOT( 1) = CPL ISN 0018 PLOT(21) = CDO ISN 0019 PLOT(41) = CCO ISN 0020 PLOT(61) = CDO ISN 0021 PLOT(81) = CPL ISN 0022 ISIN = 41.5 + 40. * FSIN ISN 0023 ICOS = 41.5 + 40. * FCOS ISN 0024 PLOT(ISIN) = CST ISN 0025 PLOT(ICOS) = CHA ISN 0026 WRITE(6,9020) X,FSIN,FCOS,PLOT ISN 0027 100 CONTINUE PAGE 002 ISN 0028 WRITE(6,9010) ISN 0029 STOP C ISN 0030 9000 FORMAT(1X,' x sin(x) cos(x) ', * '-1 -0.5 0', * ' +0.5 +1') ISN 0031 9010 FORMAT(1X,' ', * '+-------------------.-------------------:', * '-------------------.-------------------:') ISN 0032 9020 FORMAT(1X,F6.0,1X,F8.5,1X,F8.5,3X,81A1) C ISN 0033 END *OPTIONS IN EFFECT* NAME= MAIN,OPT=02,LINECNT=50,SIZE=0000K, *OPTIONS IN EFFECT* SOURCE,EBCDIC,NOLIST,NODECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF *STATISTICS* SOURCE STATEMENTS = 32 ,PROGRAM SIZE = 1288 *STATISTICS* NO DIAGNOSTICS GENERATED ****** END OF COMPILATION ****** 177K BYTES OF CORE NOT USED 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 508 IHCSSCN * 508 1D9 COS 508 SIN 520 IHCECOMH* 6E8 F61 IBCOM# 6E8 FDIOCS# 7A4 INTSWTCH 162E IHCCOMH2* 1650 65D SEQDASD 19C8 IHCFCVTH* 1CB0 11B5 ADCON# 1CB0 FCVAOUTP 1D5A FCVLOUTP 1DEA FCVZOUTP 1F42 FCVIOUTP 22F6 FCVEOUTP 27F8 FCVCOUTP 2A12 INT6SWCH 2CFB IHCEFNTH* 2E68 542 ARITH# 2E68 ADJSWTCH 3204 IHCEFIOS* 33B0 F28 FIOCS# 33B0 FIOCSBEP 33B6 IHCFIOS2* 42D8 52E IHCERRM * 4808 5DC ERRMON 4808 IHCERRE 4820 IHCUOPT * 4DE8 300 IHCETRCH* 50E8 28E IHCTRCH 50E8 ERRTRA 50F0 IHCUATBL* 5378 638 ENTRY ADDRESS 00 TOTAL LENGTH 59B0 ****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 + . * . # +-------------------.-------------------:-------------------.-------------------: