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 <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
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 + . * . #
+-------------------.-------------------:-------------------.-------------------: