J E S 2 J O B L O G 10.16.48 JOB 12 IEF677I WARNING MESSAGE(S) FOR JOB SINE#A60 ISSUED 10.16.48 JOB 12 $HASP373 SINE#A60 STARTED - INIT 6 - CLASS C - SYS TK4- 10.16.48 JOB 12 IEF403I SINE#A60 - STARTED - TIME=10.16.48 10.16.48 JOB 12 IEFACTRT - Stepname Procstep Program Retcode 10.16.48 JOB 12 SINE#A60 CLG ALGOL ALGOL RC= 0000 10.16.48 JOB 12 SINE#A60 CLG LKED IEWL RC= 0000 10.16.48 JOB 12 SINE#A60 CLG GO GO RC= 0000 10.16.48 JOB 12 IEF404I SINE#A60 - ENDED - TIME=10.16.48 10.16.48 JOB 12 $HASP395 SINE#A60 ENDED ------ JES2 JOB STATISTICS ------ 06 JAN 19 JOB EXECUTION DATE 77 CARDS READ 335 SYSOUT PRINT RECORDS 0 SYSOUT PUNCH RECORDS 0.00 MINUTES EXECUTION TIME 1 //SINE#A60 JOB 'S322-0C4','WFJM', JOB 12 // CLASS=C,MSGCLASS=A,MSGLEVEL=(1,1), // REGION=1024K,TIME=(1,0),PRTY=8 2 //CLG EXEC ALGOFCLG, // PARM.ALGOL='', // PARM.LKED='MAP,LIST,LET', // PARM.GO='' *** 00001001 *********************************************************************** 00002001 *** 00003001 *** IBM ALGOL F LEVEL 2.1 00004001 *** 00005001 *** 360S-AL-531 ALGOL F COMPILER 00006001 *** AND 00007001 *** 360S-LM-532 ALGOL F LIBRARY 00008001 *** 00009001 *** COMPILE, LINK-EDIT AND EXECUTE A PROGRAM 00010001 *** 00011001 *********************************************************************** 00012001 *** 00013001 3 XXALGOL EXEC PGM=ALGOL,REGION=1024K 00014001 4 XXSYSPRINT DD SYSOUT=* 00015001 5 XXSYSPUNCH DD DUMMY 00016001 6 XXSYSLIN DD DSN=&&OBJECT,UNIT=VIO,SPACE=(3200,(20,10)), 00017001 XX DISP=(,PASS) 00018001 7 XXSYSUT1 DD UNIT=VIO,SPACE=(2048,(50,10)) 00019001 8 XXSYSUT2 DD UNIT=VIO,SPACE=(2048,(50,10)) 00020001 9 XXSYSUT3 DD UNIT=VIO,SPACE=(2048,(40,10)) 00021001 10 //ALGOL.SYSIN DD * 11 XXLKED EXEC PGM=IEWL,PARM='XREF,LIST,LET',COND=(5,LT,ALGOL), 00022001 XX REGION=1024K 00023001 12 XXSYSPRINT DD SYSOUT=* 00024001 13 XXSYSLIB DD DSN=SYS1.ALGLIB,DISP=SHR 00025001 14 XXSYSLMOD DD DSN=&&GOSET(GO),UNIT=VIO,DISP=(,PASS), 00026001 XX SPACE=(2048,(100,20,1)) 00027001 15 XXSYSUT1 DD UNIT=VIO,SPACE=(2048,(100,20)) 00028001 16 XXSYSLIN DD DSN=&&OBJECT,DISP=(OLD,DELETE) 00029001 17 XX DD DDNAME=SYSIN 00030001 18 XXGO EXEC PGM=GO,COND=((5,LT,ALGOL),(5,LT,LKED)), 00031001 XX REGION=1024K 00032001 19 XXSTEPLIB DD DSN=&&GOSET,DISP=(OLD,PASS) 00033001 20 //GO.ALGLDD01 DD SYSOUT=*,OUTLIM=5000 X/ALGLDD01 DD SYSOUT=* 00034001 21 XXSYSPRINT DD SYSOUT=* 00035001 22 XXSYSUT1 DD UNIT=VIO,SPACE=(1024,(20,10)) 00036001 23 //GO.SYSIN DD * // STMT NO. MESSAGE - 18 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED IEF236I ALLOC. FOR SINE#A60 ALGOL CLG IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I DMY ALLOCATED TO SYSPUNCH IEF237I VIO ALLOCATED TO SYSLIN IEF237I VIO ALLOCATED TO SYSUT1 IEF237I VIO ALLOCATED TO SYSUT2 IEF237I VIO ALLOCATED TO SYSUT3 IEF237I JES2 ALLOCATED TO SYSIN IEF142I SINE#A60 ALGOL CLG - STEP WAS EXECUTED - COND CODE 0000 IEF285I JES2.JOB00012.SO0103 SYSOUT IEF285I SYS19006.T101648.RA000.SINE#A60.OBJECT PASSED *--------2 IEF285I SYS19006.T101648.RA000.SINE#A60.R0000001 DELETED *--------0 IEF285I SYS19006.T101648.RA000.SINE#A60.R0000002 DELETED *--------0 IEF285I SYS19006.T101648.RA000.SINE#A60.R0000003 DELETED *-------13 IEF285I JES2.JOB00012.SI0101 SYSIN IEF373I STEP /ALGOL / START 19006.1016 IEF374I STEP /ALGOL / STOP 19006.1016 CPU 0MIN 00.03SEC SRB 0MIN 00.00SEC VIRT 192K SYS 296K ************************************************************************************************************************************ * 1. Jobstep of job: SINE#A60 Stepname: ALGOL Program name: ALGOL Executed on 06.01.19 from 10.16.48 to 10.16.48 * * elapsed time 00:00:00,04 CPU-Identifier: TK4- Page-in: 0 * * CPU time 00:00:00,03 Virtual Storage used: 192K 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: 64 * * DMY.......0 DMY.......0 FFF.......2 FFF.......0 FFF.......0 FFF......13 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,05 * ************************************************************************************************************************************ IEF236I ALLOC. FOR SINE#A60 LKED CLG IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I 148 ALLOCATED TO SYSLIB IEF237I VIO ALLOCATED TO SYSLMOD IEF237I VIO ALLOCATED TO SYSUT1 IEF237I VIO ALLOCATED TO SYSLIN IEF237I DMY ALLOCATED TO IEF142I SINE#A60 LKED CLG - STEP WAS EXECUTED - COND CODE 0000 IEF285I JES2.JOB00012.SO0104 SYSOUT IEF285I SYS1.ALGLIB KEPT *-------78 IEF285I VOL SER NOS= MVSRES. IEF285I SYS19006.T101648.RA000.SINE#A60.GOSET PASSED *-------19 IEF285I SYS19006.T101648.RA000.SINE#A60.R0000004 DELETED *--------0 IEF285I SYS19006.T101648.RA000.SINE#A60.OBJECT DELETED *--------3 IEF373I STEP /LKED / START 19006.1016 IEF374I STEP /LKED / STOP 19006.1016 CPU 0MIN 00.02SEC SRB 0MIN 00.00SEC VIRT 264K SYS 244K ************************************************************************************************************************************ * 2. Jobstep of job: SINE#A60 Stepname: LKED Program name: IEWL Executed on 06.01.19 from 10.16.48 to 10.16.48 * * elapsed time 00:00:00,04 CPU-Identifier: TK4- Page-in: 0 * * CPU time 00:00:00,02 Virtual Storage used: 264K 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: 0 * * DMY.......0 148......78 FFF......19 FFF.......0 FFF.......3 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,03 * ************************************************************************************************************************************ IEF236I ALLOC. FOR SINE#A60 GO CLG IEF237I VIO ALLOCATED TO STEPLIB IEF237I JES2 ALLOCATED TO ALGLDD01 IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I VIO ALLOCATED TO SYSUT1 IEF237I JES2 ALLOCATED TO SYSIN IEF142I SINE#A60 GO CLG - STEP WAS EXECUTED - COND CODE 0000 IEF285I SYS19006.T101648.RA000.SINE#A60.GOSET PASSED *--------0 IEF285I JES2.JOB00012.SO0105 SYSOUT IEF285I JES2.JOB00012.SO0106 SYSOUT IEF285I SYS19006.T101648.RA000.SINE#A60.R0000005 DELETED *--------0 IEF285I JES2.JOB00012.SI0102 SYSIN IEF373I STEP /GO / START 19006.1016 IEF374I STEP /GO / STOP 19006.1016 CPU 0MIN 00.01SEC SRB 0MIN 00.00SEC VIRT 24K SYS 244K ************************************************************************************************************************************ * 3. Jobstep of job: SINE#A60 Stepname: GO Program name: GO Executed on 06.01.19 from 10.16.48 to 10.16.48 * * elapsed time 00:00:00,01 CPU-Identifier: TK4- Page-in: 0 * * CPU time 00:00:00,01 Virtual Storage used: 24K 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 * * FFF.......0 DMY.......0 DMY.......0 FFF.......0 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,01 * ************************************************************************************************************************************ IEF285I SYS19006.T101648.RA000.SINE#A60.GOSET DELETED IEF375I JOB /SINE#A60/ START 19006.1016 IEF376I JOB /SINE#A60/ STOP 19006.1016 CPU 0MIN 00.06SEC SRB 0MIN 00.00SEC 360S-AL-531 LEVEL 2.1 OS ALGOL SOURCE PROGRAM 06 JAN 2019 10:16:48 PAGE 1 SC SOURCE STATEMENT 'BEGIN' 'COMMENT' * $Id: sine_a60.a60 978 2017-12-28 21:32:18Z mueller $ * * Copyright 2017- by Walter F.J. Mueller * * This program is free software, you may redistribute and/or modify * it under the terms of the GNU General Public License version 3. * See Licence.txt in distribition directory for further details. * * Revision History: * Date Rev Version Comment * 2017-12-27 978 1.1 use outsymbol * 2017-09-05 946 1.0 Initial version *; 'INTEGER' I,J,ISIN,ICOS; 1 'REAL' X,XRAD,FSIN,FCOS; 2 'INTEGER' 'ARRAY' PLOT[1:81]; 3 3 'COMMENT' set record lenth = 132 and page length = 64; 3 SYSACT(1,6,132); 4 SYSACT(1,8,64); 5 5 OUTSTRING (1,'(' x sin(x) cos(x) ')'); 6 OUTSTRING (1,'('-1 -0.5 0')'); 7 OUTSTRING (1,'(' +0.5 +1')'); 8 SYSACT(1,14,1); 9 OUTSTRING (1,'(' ')'); 10 OUTSTRING (1,'('+-------------------.-------------------:')'); 11 OUTSTRING (1,'('-------------------.-------------------+')'); 12 SYSACT(1,14,1); 13 13 'FOR' I := 0 'STEP' 1 'UNTIL' 60 'DO' 'BEGIN' 13 X := 6.0 * I; 14 XRAD := X/57.2957; 15 FSIN := SIN(XRAD); 16 FCOS := COS(XRAD); 17 OUTINTEGER(1,6*I); 18 OUTREAL(1,FSIN); 19 OUTREAL(1,FCOS); 20 20 'COMMENT' printer plot symbols: 1=+ 2=. 3=: 4=* 5=# 6=blank; 20 'FOR' J := 1 'STEP' 1 'UNTIL' 81 'DO' PLOT[J] := 6; 21 PLOT[ 1] := 1; 22 PLOT[21] := 2; 23 PLOT[41] := 3; 24 PLOT[61] := 2; 25 PLOT[81] := 1; 26 ISIN := ENTIER(41.5 + 40.0 * FSIN); 27 ICOS := ENTIER(41.5 + 40.0 * FCOS); 28 PLOT[ISIN] := 4; 29 PLOT[ICOS] := 5; 30 'FOR' J := 1 'STEP' 1 'UNTIL' 81 'DO' 360S-AL-531 LEVEL 2.1 OS ALGOL SOURCE PROGRAM 06 JAN 2019 10:16:48 PAGE 2 SC SOURCE STATEMENT 30 OUTSYMBOL (1,'('+.:*# ')',PLOT[J]); 31 SYSACT(1,14,1); 32 'END'; 33 33 OUTSTRING (1,'(' ')'); 34 OUTSTRING (1,'('+-------------------.-------------------:')'); 35 OUTSTRING (1,'('-------------------.-------------------+')'); 36 SYSACT(1,14,1); 37 37 'END' IDENTIFIER TABLE PAGE 3 PBN SC PBN NAME TYPE DM DSP NAME TYPE DM DSP NAME TYPE DM DSP SURR PR LN PR LN PR LN 001 00000 000 FCOS R 034 FSIN R 030 I I 018 ICOS I 024 ISIN I 020 J I 01C PLOT I A 01 038 X R 028 XRAD R 02C STORAGE REQUIREMENTS (DECIMAL) PAGE 4 OBJECT MODULE SIZE 2604 BYTES DATA STORAGE AREA SIZES PBN BYTES PBN BYTES PBN BYTES PBN BYTES PBN BYTES 001 120 F64-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED MAP,LIST,LET DEFAULT OPTION(S) USED - SIZE=(231424,55296) MODULE MAP CONTROL SECTION ENTRY NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION PROGRAM 00 A2C IHIDSTAB 9D4 IHIENTIF A20 IHIFSARA* A30 E68 IHIFSAIN 1824 IHIFSARB* 1898 670 IHIOINTE* 1F08 1F8 IHIOINAR 1F08 IHIOINTG 1F48 IHIOSTRG* 2100 148 IHIOSYMB* 2248 138 IHISOREA* 2380 380 IHISORAR 2380 IHISOREL 23C0 IHISSCSN* 2700 140 IHISSCC 2700 IHISSCS 273A IHISYSCT* 2840 788 IHIIORTN* 2FC8 D18 IHIIOROQ 2FC8 IHIIOROP 3094 IHIIORNX 3444 IHIIORCL 36A8 IHIIORCP 385E IHIIORGP 394C IHIIORCN 3950 IHIIOREN 39B4 IHIIOREV 3A30 IHIIORED 3AC4 IHIIORCI 3B70 IHIIORER 3BF4 IHIERROR* 3CE0 6E8 IHIERMSG* 43C8 9B8 IHIERM01 4478 ENTRY ADDRESS 1824 TOTAL LENGTH 4D80 ****GO 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 +1.000000'+00 + . * . # +6 +1.045285'-01 +9.945219'-01 + . : * . # +12 +2.079118'-01 +9.781476'-01 + . : * . #+ +18 +3.090173'-01 +9.510564'-01 + . : * . # + +24 +4.067370'-01 +9.135453'-01 + . : * . # + +30 +5.000004'-01 +8.660250'-01 + . : * # + +36 +5.877858'-01 +8.090165'-01 + . : . * # + +42 +6.691313'-01 +7.431442'-01 + . : . * # + +48 +7.431456'-01 +6.691297'-01 + . : . # * + +54 +8.090177'-01 +5.877842'-01 + . : . # * + +60 +8.660258'-01 +4.999993'-01 + . : # * + +66 +9.135459'-01 +4.067355'-01 + . : # . * + +72 +9.510570'-01 +3.090156'-01 + . : # . * + +78 +9.781480'-01 +2.079098'-01 + . : # . *+ +84 +9.945220'-01 +1.045272'-01 + . : # . * +90 +1.000000'+00 -1.593300'-06 + . # . * +96 +9.945217'-01 -1.045303'-01 + . # : . * +102 +9.781472'-01 -2.079138'-01 + . # : . *+ +108 +9.510560'-01 -3.090186'-01 + . # : . * + +114 +9.135446'-01 -4.067385'-01 + . # : . * + +120 +8.660242'-01 -5.000020'-01 + # : . * + +126 +8.090154'-01 -5.877874'-01 + # . : . * + +132 +7.431427'-01 -6.691329'-01 + # . : . * + +138 +6.691287'-01 -7.431465'-01 + # . : . * + +144 +5.877828'-01 -8.090187'-01 + # . : . * + +150 +4.999971'-01 -8.660270'-01 + # . : * + +156 +4.067332'-01 -9.135469'-01 + # . : * . + +162 +3.090140'-01 -9.510575'-01 + # . : * . + +168 +2.079083'-01 -9.781484'-01 +# . : * . + +174 +1.045247'-01 -9.945223'-01 # . : * . + +180 -4.140422'-06 -1.000000'+00 # . * . + +186 -1.045319'-01 -9.945215'-01 # . * : . + +192 -2.079154'-01 -9.781468'-01 +# . * : . + +198 -3.090209'-01 -9.510552'-01 + # . * : . + +204 -4.067408'-01 -9.135436'-01 + # . * : . + +210 -5.000042'-01 -8.660229'-01 + # * : . + +216 -5.877887'-01 -8.090144'-01 + # * . : . + +222 -6.691341'-01 -7.431417'-01 + # * . : . + +228 -7.431483'-01 -6.691268'-01 + * # . : . + +234 -8.090202'-01 -5.877808'-01 + * # . : . + +240 -8.660278'-01 -4.999957'-01 + * # : . + +246 -9.135476'-01 -4.067318'-01 + * . # : . + +252 -9.510583'-01 -3.090116'-01 + * . # : . + +258 -9.781489'-01 -2.079058'-01 +* . # : . + +264 -9.945225'-01 -1.045221'-01 * . # : . + +270 -1.000000'+00 +5.733906'-06 * . # . + +276 -9.945213'-01 +1.045345'-01 * . : # . + +282 -9.781463'-01 +2.079179'-01 +* . : # . + +288 -9.510545'-01 +3.090233'-01 + * . : # . + +294 -9.135429'-01 +4.067422'-01 + * . : # . + +300 -8.660221'-01 +5.000056'-01 + * . : # + +306 -8.090129'-01 +5.877908'-01 + * . : . # + +312 -7.431400'-01 +6.691359'-01 + * . : . # + +318 -6.691249'-01 +7.431499'-01 + * . : . # + +324 -5.877795'-01 +8.090211'-01 + * . : . # + +330 -4.999935'-01 +8.660291'-01 + * : . # + +336 -4.067295'-01 +9.135487'-01 + . * : . # + +342 -3.090092'-01 +9.510591'-01 + . * : . # + +348 -2.079042'-01 +9.781492'-01 + . * : . #+ +354 -1.045206'-01 +9.945227'-01 + . * : . # +360 +8.281027'-06 +1.000000'+00 + . * . # +-------------------.-------------------:-------------------.-------------------+ END OF ALGOL PROGRAM EXECUTION