J E S 2 J O B L O G 10.03.36 JOB 15 $HASP373 SINE#FOW STARTED - INIT 6 - CLASS C - SYS TK4- 10.03.36 JOB 15 IEF403I SINE#FOW - STARTED - TIME=10.03.36 10.03.36 JOB 15 IEFACTRT - Stepname Procstep Program Retcode 10.03.36 JOB 15 SINE#FOW CLG GO WATFIV RC= 0000 10.03.36 JOB 15 IEF404I SINE#FOW - ENDED - TIME=10.03.36 10.03.36 JOB 15 $HASP395 SINE#FOW ENDED ------ JES2 JOB STATISTICS ------ 06 JAN 19 JOB EXECUTION DATE 68 CARDS READ 218 SYSOUT PRINT RECORDS 0 SYSOUT PUNCH RECORDS 0.00 MINUTES EXECUTION TIME 1 //SINE#FOW JOB 'S322-0C4','WFJM', JOB 15 // 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 SINE#FOW GO CLG IEF237I 240 ALLOCATED TO STEPLIB IEF237I 191 ALLOCATED TO SYS00016 IEF237I 240 ALLOCATED TO WATLIB IEF237I 240 ALLOCATED TO IEF237I 170 ALLOCATED TO FT01F001 IEF237I 140 ALLOCATED TO FT02F001 IEF237I 190 ALLOCATED TO FT03F001 IEF237I 180 ALLOCATED TO FT04F001 IEF237I JES2 ALLOCATED TO FT05F001 IEF237I JES2 ALLOCATED TO FT06F001 IEF237I JES2 ALLOCATED TO FT07F001 IEF142I SINE#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 *--------4 IEF285I VOL SER NOS= PUB000. IEF285I WATFIV.WATLIB KEPT *--------0 IEF285I VOL SER NOS= PUB000. IEF285I SYS19006.T100336.RA000.SINE#FOW.R0000001 DELETED *--------0 IEF285I VOL SER NOS= WORK01. IEF285I SYS19006.T100336.RA000.SINE#FOW.R0000002 DELETED *--------0 IEF285I VOL SER NOS= WORK00. IEF285I SYS19006.T100336.RA000.SINE#FOW.R0000003 DELETED *--------0 IEF285I VOL SER NOS= WORK03. IEF285I SYS19006.T100336.RA000.SINE#FOW.R0000004 DELETED *--------0 IEF285I VOL SER NOS= WORK02. IEF285I JES2.JOB00015.SI0101 SYSIN IEF285I JES2.JOB00015.SO0102 SYSOUT IEF285I JES2.JOB00015.SO0103 SYSOUT IEF373I STEP /GO / START 19006.1003 IEF374I STEP /GO / STOP 19006.1003 CPU 0MIN 00.02SEC SRB 0MIN 00.00SEC VIRT 256K SYS 216K ************************************************************************************************************************************ * 1. Jobstep of job: SINE#FOW Stepname: GO Program name: WATFIV Executed on 06.01.19 from 10.03.36 to 10.03.36 * * elapsed time 00:00:00,08 CPU-Identifier: TK4- Page-in: 0 * * CPU time 00:00:00,02 Virtual Storage used: 256K 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: 61 * * 240.......0 191.......0 240.......4 240.......0 170.......0 140.......0 190.......0 180.......0 DMY.......0 DMY.......0 * * DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,03 * ************************************************************************************************************************************ IEF375I JOB /SINE#FOW/ START 19006.1003 IEF376I JOB /SINE#FOW/ STOP 19006.1003 CPU 0MIN 00.02SEC SRB 0MIN 00.00SEC $JOB SINE#FOW,T=(1,0),P=100,CHECK 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 1 INTEGER PLOT(81) 2 INTEGER I,J,ISIN,ICOS 3 REAL*4 X,XRAD,FSIN,FCOS 4 INTEGER CBL,CPL,CDO,CCO,CST,CHA 5 DATA CBL/1H /,CPL/1H+/,CDO/1H./,CCO/1H:/,CST/1H*/,CHA/1H#/ C 6 WRITE(6,9000) 7 WRITE(6,9010) C C Fortran IV(1966): DO limits must all to be > 0 -- FORTRAN-G enforces this 8 DO 100 I=1,61 9 X = 6. * (I-1) 10 XRAD = X/57.2957795131 11 FSIN = SIN(XRAD) 12 FCOS = COS(XRAD) 13 DO 200 J=1,81 14 PLOT(J) = CBL 15 200 CONTINUE 16 PLOT( 1) = CPL 17 PLOT(21) = CDO 18 PLOT(41) = CCO 19 PLOT(61) = CDO 20 PLOT(81) = CPL 21 ISIN = 41.5 + 40. * FSIN 22 ICOS = 41.5 + 40. * FCOS 23 PLOT(ISIN) = CST 24 PLOT(ICOS) = CHA 25 WRITE(6,9020) X,FSIN,FCOS,PLOT 26 100 CONTINUE 27 WRITE(6,9010) 28 STOP C 29 9000 FORMAT(1X,' x sin(x) cos(x) ', * '-1 -0.5 0', * ' +0.5 +1') 30 9010 FORMAT(1X,' ', * '+-------------------.-------------------:', * '-------------------.-------------------:') 31 9020 FORMAT(1X,F6.0,1X,F8.5,1X,F8.5,3X,81A1) C 32 END $ENTRY x sin(x) cos(x) -1 -0.5 0 +0.5 +1 +-------------------.-------------------:-------------------.-------------------: 0. 0.00000 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.86602 -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.58778 + * . : . # + 312. -0.74314 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 + . * . # +-------------------.-------------------:-------------------.-------------------: CORE USAGE OBJECT CODE= 2024 BYTES,ARRAY AREA= 324 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, 10.03.36 SUNDAY 6 JAN 19 WATFIV - JAN 1976 V1L5 $STOP