J E S 2 J O B L O G 07.47.17 JOB 20 IEF677I WARNING MESSAGE(S) FOR JOB SINE#SIM ISSUED 07.47.17 JOB 20 $HASP373 SINE#SIM STARTED - INIT 6 - CLASS C - SYS TK4- 07.47.17 JOB 20 IEF403I SINE#SIM - STARTED - TIME=07.47.17 07.47.17 JOB 20 IEFACTRT - Stepname Procstep Program Retcode 07.47.17 JOB 20 SINE#SIM CLG SIM SIMULA RC= 0000 07.47.17 JOB 20 SINE#SIM CLG LKED IEWL RC= 0000 07.47.17 JOB 20 SINE#SIM CLG GO PGM=*.DD RC= 0000 07.47.17 JOB 20 IEF404I SINE#SIM - ENDED - TIME=07.47.17 07.47.17 JOB 20 $HASP395 SINE#SIM ENDED ------ JES2 JOB STATISTICS ------ 22 AUG 19 JOB EXECUTION DATE 65 CARDS READ 394 SYSOUT PRINT RECORDS 0 SYSOUT PUNCH RECORDS 0.00 MINUTES EXECUTION TIME 1 //SINE#SIM JOB 'S322-0C4','WFJM', JOB 20 // CLASS=C,MSGCLASS=A,MSGLEVEL=(1,1), // REGION=1000K,TIME=(1,0),PRTY=8 ***JOBPARM ROOM=4242 2 //CLG EXEC SIMCLG, // PARM.SIM='', // PARM.LKED='MAP,LIST,LET', // PARM.GO='LINECNT=64' 3 XXSIMCLG PROC EXLIB='SYS2.SIMULA.LINKLIB',SOUT='*' ********************************************************************** *** *** Name: SYS2.PROCLIB(SIMCLG) *** *** Desc: SIMULA compile, link and go *** ********************************************************************** 4 XXSIM EXEC PGM=SIMULA 5 XXSTEPLIB DD DSN=SYS2.SIMULA.LINKLIB,DISP=SHR 6 XXSYSPRINT DD SYSOUT=&SOUT 7 XXSYSUT1 DD UNIT=SYSDA,SPACE=(2000,(20,20)) 8 XXSYSUT2 DD UNIT=(SYSDA,SEP=SYSUT1),SPACE=(2000,(20,20)) 9 XXSYSUT3 DD UNIT=(SYSDA,SEP=(SYSUT1,SYSUT2)),SPACE=(2000,(20,10)) 10 XXSYSUT4 DD UNIT=(SYSDA,SEP=(SYSUT1,SYSUT2)),SPACE=(1032,256), XX DCB=DSORG=DA 11 XXSYSGO DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=(SYSDA,SEP=SYSUT1), XX SPACE=(1600,(30,30)),DCB=BLKSIZE=1600 12 //SIM.SYSIN DD * 13 XXLKED EXEC PGM=IEWL,PARM='MAP,LIST,LET',COND=(4,LT,SIM) 14 XXSYSPRINT DD SYSOUT=&SOUT 15 XXSYSLIB DD DSN=&EXLIB,DISP=SHR 16 XX DD DSN=SYS2.SIMULA.LINKLIB,DISP=SHR 17 XXSYSUT1 DD UNIT=SYSDA,SPACE=(1000,100) 18 XXSYSLMOD DD DSN=&&GOSET(GO),DISP=(MOD,PASS),UNIT=SYSDA, XX SPACE=(1024,(400,50,1)) 19 XXSYSLIN DD DSN=&&LOADSET,DISP=(OLD,PASS) 20 XX DD DDNAME=SYSIN 21 XXGO EXEC PGM=*.LKED.SYSLMOD,COND=((4,LT,SIM),(4,LT,LKED)) 22 //GO.SYSOUT DD SYSOUT=*,OUTLIM=5000 X/SYSOUT DD SYSOUT=&SOUT 23 //GO.SYSIN DD * // STMT NO. MESSAGE - 6 IEF653I SUBSTITUTION JCL - SYSOUT=* 14 IEF653I SUBSTITUTION JCL - SYSOUT=* 15 IEF653I SUBSTITUTION JCL - DSN=SYS2.SIMULA.LINKLIB,DISP=SHR 22 IEF653I SUBSTITUTION JCL - SYSOUT=* 21 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED IEF236I ALLOC. FOR SINE#SIM SIM CLG IEF237I 280 ALLOCATED TO STEPLIB IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I 180 ALLOCATED TO SYSUT1 IEF237I 190 ALLOCATED TO SYSUT2 IEF237I 140 ALLOCATED TO SYSUT3 IEF237I 170 ALLOCATED TO SYSUT4 IEF237I 140 ALLOCATED TO SYSGO IEF237I JES2 ALLOCATED TO SYSIN IEF142I SINE#SIM SIM CLG - STEP WAS EXECUTED - COND CODE 0000 IEF285I SYS2.SIMULA.LINKLIB KEPT *--------0 IEF285I VOL SER NOS= PUB002. IEF285I JES2.JOB00020.SO0103 SYSOUT IEF285I SYS19234.T074717.RA000.SINE#SIM.R0000001 DELETED *--------0 IEF285I VOL SER NOS= WORK02. IEF285I SYS19234.T074717.RA000.SINE#SIM.R0000002 DELETED *--------0 IEF285I VOL SER NOS= WORK03. IEF285I SYS19234.T074717.RA000.SINE#SIM.R0000003 DELETED *--------1 IEF285I VOL SER NOS= WORK00. IEF285I SYS19234.T074717.RA000.SINE#SIM.R0000004 DELETED *--------0 IEF285I VOL SER NOS= WORK01. IEF285I SYS19234.T074717.RA000.SINE#SIM.LOADSET PASSED *--------3 IEF285I VOL SER NOS= WORK00. IEF285I JES2.JOB00020.SI0101 SYSIN IEF373I STEP /SIM / START 19234.0747 IEF374I STEP /SIM / STOP 19234.0747 CPU 0MIN 00.02SEC SRB 0MIN 00.01SEC VIRT 608K SYS 204K ************************************************************************************************************************************ * 1. Jobstep of job: SINE#SIM Stepname: SIM Program name: SIMULA Executed on 22.08.19 from 07.47.17 to 07.47.17 * * elapsed time 00:00:00,06 CPU-Identifier: TK4- Page-in: 0 * * CPU time 00:00:00,03 Virtual Storage used: 608K 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: 51 * * 280.......0 DMY.......0 180.......0 190.......0 140.......1 170.......0 140.......3 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,05 * ************************************************************************************************************************************ IEF236I ALLOC. FOR SINE#SIM LKED CLG IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I 280 ALLOCATED TO SYSLIB IEF237I 280 ALLOCATED TO IEF237I 190 ALLOCATED TO SYSUT1 IEF237I 170 ALLOCATED TO SYSLMOD IEF237I 140 ALLOCATED TO SYSLIN IEF237I DMY ALLOCATED TO IEF142I SINE#SIM LKED CLG - STEP WAS EXECUTED - COND CODE 0000 IEF285I JES2.JOB00020.SO0104 SYSOUT IEF285I SYS2.SIMULA.LINKLIB KEPT *------331 IEF285I VOL SER NOS= PUB002. IEF285I SYS2.SIMULA.LINKLIB KEPT *--------0 IEF285I VOL SER NOS= PUB002. IEF285I SYS19234.T074717.RA000.SINE#SIM.R0000005 DELETED *--------0 IEF285I VOL SER NOS= WORK03. IEF285I SYS19234.T074717.RA000.SINE#SIM.GOSET PASSED *-------27 IEF285I VOL SER NOS= WORK01. IEF285I SYS19234.T074717.RA000.SINE#SIM.LOADSET PASSED *--------4 IEF285I VOL SER NOS= WORK00. IEF373I STEP /LKED / START 19234.0747 IEF374I STEP /LKED / STOP 19234.0747 CPU 0MIN 00.05SEC SRB 0MIN 00.01SEC VIRT 264K SYS 212K ************************************************************************************************************************************ * 2. Jobstep of job: SINE#SIM Stepname: LKED Program name: IEWL Executed on 22.08.19 from 07.47.17 to 07.47.17 * * elapsed time 00:00:00,08 CPU-Identifier: TK4- Page-in: 0 * * CPU time 00:00:00,06 Virtual Storage used: 264K Page-out: 0 * * corr. CPU: 00:00:00,06 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 280.....331 280.......0 190.......0 170......27 140.......4 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,10 * ************************************************************************************************************************************ IEF236I ALLOC. FOR SINE#SIM GO CLG IEF237I 170 ALLOCATED TO PGM=*.DD IEF237I JES2 ALLOCATED TO SYSOUT IEF237I JES2 ALLOCATED TO SYSIN IEF142I SINE#SIM GO CLG - STEP WAS EXECUTED - COND CODE 0000 IEF285I SYS19234.T074717.RA000.SINE#SIM.GOSET KEPT *--------0 IEF285I VOL SER NOS= WORK01. IEF285I JES2.JOB00020.SO0105 SYSOUT IEF285I JES2.JOB00020.SI0102 SYSIN IEF373I STEP /GO / START 19234.0747 IEF374I STEP /GO / STOP 19234.0747 CPU 0MIN 00.01SEC SRB 0MIN 00.00SEC VIRT 1000K SYS 216K ************************************************************************************************************************************ * 3. Jobstep of job: SINE#SIM Stepname: GO Program name: PGM=*.DD Executed on 22.08.19 from 07.47.17 to 07.47.17 * * elapsed time 00:00:00,01 CPU-Identifier: TK4- Page-in: 0 * * CPU time 00:00:00,01 Virtual Storage used: 1000K 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 * * 170.......0 DMY.......0 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,01 * ************************************************************************************************************************************ IEF237I 140 ALLOCATED TO SYS00001 IEF285I SYS19234.T074717.RA000.SINE#SIM.R0000001 KEPT *--------0 IEF285I VOL SER NOS= WORK00. IEF285I SYS19234.T074717.RA000.SINE#SIM.LOADSET DELETED IEF285I VOL SER NOS= WORK00. IEF237I 170 ALLOCATED TO SYS00003 IEF285I SYS19234.T074717.RA000.SINE#SIM.R0000003 KEPT *--------0 IEF285I VOL SER NOS= WORK01. IEF285I SYS19234.T074717.RA000.SINE#SIM.GOSET DELETED IEF285I VOL SER NOS= WORK01. IEF375I JOB /SINE#SIM/ START 19234.0747 IEF376I JOB /SINE#SIM/ STOP 19234.0747 CPU 0MIN 00.08SEC SRB 0MIN 00.02SEC SIMULA 67 (VERS 12.00) 22 AUG 2019 7:47:17.42 PAGE 1 GMD COMPILER OPTIONS NOLIST NODECK LOAD WARN SUBCHK NOXREF SOURCE NOTERM NOSYMBDUMP LINECNT = 60 MAXERROR= 50 INDENT = 0 RESWD = 0 EXTERN = 0 SIMULA 67 (VERS 12.00) 22 AUG 2019 7:47:17.42 PAGE 2 GMD 00001 COMMENT 00002 * SPDX-License-Identifier: GPL-3.0-or-later 00003 * Copyright 2017-2019 by Walter F.J. Mueller 00004 * 00005 * Revision History: 00006 * Date Rev Version Comment 00007 * 2017-09-08 949 1.0 Initial version 00008 *; 00009 00010 BEGIN B1 00011 INTEGER i,j,isin,icos; 00012 REAL x,xrad,fsin,fcos; 00013 CHARACTER ARRAY plot(1:81); 00014 00015 OutText(" x sin(x) cos(x) "); 00016 OutText("-1 -0.5 0"); 00017 OutText(" +0.5 +1"); 00018 OutImage; 00019 OutText(" "); 00020 OutText("+-------------------.-------------------:"); 00021 OutText("-------------------.-------------------+"); 00022 OutImage; 00023 00024 FOR i := 0 STEP 1 UNTIL 60 DO BEGIN B2 00025 x := 6.0 * i; 00026 xrad := x/57.2957795131; 00027 fsin := sin(xrad); 00028 fcos := cos(xrad); 00029 FOR j := 1 STEP 1 UNTIL 81 DO plot(j) := ' '; 00030 plot( 1) := '+'; 00031 plot(21) := '.'; 00032 plot(41) := ':'; 00033 plot(61) := '.'; 00034 plot(81) := '+'; 00035 isin := Entier(41.5 + 40.0 * fsin); 00036 icos := Entier(41.5 + 40.0 * fcos); 00037 plot(isin) := '*'; 00038 plot(icos) := '#'; 00039 OutFix(x,0,6); 00040 OutFix(fsin,5,9); 00041 OutFix(fcos,5,9); 00042 OutText(" "); 00043 FOR j := 1 STEP 1 UNTIL 81 DO OutChar(plot(j)); 00044 OutImage; 00045 END; E2 00046 OutText(" "); 00047 OutText("+-------------------.-------------------:"); 00048 OutText("-------------------.-------------------+"); 00049 OutImage; 00050 OutImage; 00051 END; E1 NO DIAGNOSTICS FOR THIS COMPILATION. 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 ZYQMAIN 00 510 $PRIVATE 510 184 ZYQCNT 698 128 ZYQINCHA* 7C0 4C ZYQOUTCH* 810 70 ZYQOUTFX* 880 28 ZYQOUTTE* 8A8 90 ZYQSCOS * 938 EC ZYQSSIN 940 ZYQTERM * A28 460 ZYQENT * E88 1B0C ZYQBSC ED0 ZYQOPEN F64 ZYQCLOSE 107E ZYQPRINT 1258 ZYQINFIL 1334 ZYQIFEX 14C0 ZYQRESET 1582 ZYQSYN 16DC ZYQPAGE 1794 ZYQWRITE 179A ZYQFILE 18AC ZYQSTCNT 19D8 ZYQFSA 1B08 ZYQARRAY* 2998 270 ZYQCOM * 2C08 E48 ZYQLASTI* 3A50 286 ZYQLASTR 3B18 ZYQFIELD 3B2C ZYQCTAB 3BD0 ZYQPUTFI* 3CD8 320 ZYQRTSCM* 3FF8 C40 ZYQSNAP * 4C38 30 ZYQATTN * 4C68 124 ZYQBC * 4D90 90 ZYQECB * 4E20 F0 ZYQERR * 4F10 C08 ZYQERRDP 4F26 ZYQINIT * 5B18 B90 ZYQDATE 5B34 ZYQOUTIM* 66A8 2A2 ZYQOUTFI 67D4 ZYQACC * 6950 4 ZYQREFER* 6958 4A8 ZYQSTORE* 6E00 EE8 ZYQTRACD* 7CE8 5F0 ZYQTRACE* 82D8 E28 ZYQDUMP * 9100 380 ZYQENTVI* 9480 5C8 ZYQGETIN* 9A48 130 ZYQLDIG * 9B78 104 ZYQLNO * 9C80 210 ZYQLNMAP 9C90 ZYQPRD * 9E90 98 ZYQPUTIN* 9F28 228 NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION ZYQSCALE* A150 C0 ZYQSTCDA* A210 128 ZYQTXTCM* A338 98 ZYQCOMUN* A3D0 98 ZYQDEFLT* A468 5A ZYQERREX* A4C8 38 ZYQFORT * A500 308 ZYQGETRE* A808 2A0 ZYQMAP * AAA8 488 ZYQMAPTR* AF30 190 ZYQMVCL * B0C0 68 ZYQTIMEX* B128 70 ZYQUSERX* B198 8 ZYQCOPY * B1A0 C2 ZYQEVD * B268 60 ZYQGC6 * B2C8 240 ZYQLNODT* B508 50 ZYQPUTRE* B558 338 ZYQTSPIE* B890 28 ZYQTVASS* B8B8 C0 ENTRY ADDRESS E88 TOTAL LENGTH B978 ****GO DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET AUTHORIZATION CODE IS 0. ZYQ994 SIMULA 67 RUN TIME SYSTEM : VERSION 12.00, DATE OF RELEASE 9 AUG 1985 ZYQ994 SIMULA PROGRAM COMPILED ON 22 AUG 2019 AT 7:47:17.42, START OF EXECUTION ON 22 AUG 2019 AT 7:47:17.42 ZYQ994 PROCESSING OPTIONS : DUMP=1,HIARCHY=0,LINECNT=64,SIZE=765952,TRACE=0,SYMBDUMP=1 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.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 + . * . # +-------------------.-------------------:-------------------.-------------------+ ZYQ994 END OF SIMULA PROGRAM EXECUTION AT 7:47:17.90 EXECUTION TIME 0.00 SEC. RETURN CODE IS #00000000 ZYQ994 00000 STORECOLLAPSES, DATA STORAGE USED : 640 BYTES