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 <W.F.J.Mueller@gsi.de>
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