J E S 2 J O B L O G 08.53.46 JOB 20 IEF677I WARNING MESSAGE(S) FOR JOB SINE#SIM ISSUED 08.53.46 JOB 20 $HASP373 SINE#SIM STARTED - INIT 6 - CLASS C - SYS TK4- 08.53.46 JOB 20 IEF403I SINE#SIM - STARTED - TIME=08.53.46 08.53.46 JOB 20 IEFACTRT - Stepname Procstep Program Retcode 08.53.46 JOB 20 SINE#SIM CLG SIM SIMULA RC= 0000 08.53.46 JOB 20 SINE#SIM CLG LKED IEWL RC= 0000 08.53.46 JOB 20 SINE#SIM CLG GO PGM=*.DD RC= 0000 08.53.46 JOB 20 IEF404I SINE#SIM - ENDED - TIME=08.53.46 08.53.46 JOB 20 $HASP395 SINE#SIM ENDED ------ JES2 JOB STATISTICS ------ 25 NOV 18 JOB EXECUTION DATE 68 CARDS READ 397 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 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 140 ALLOCATED TO SYSUT1 IEF237I 180 ALLOCATED TO SYSUT2 IEF237I 190 ALLOCATED TO SYSUT3 IEF237I 170 ALLOCATED TO SYSUT4 IEF237I 190 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 SYS18329.T085346.RA000.SINE#SIM.R0000001 DELETED *--------0 IEF285I VOL SER NOS= WORK00. IEF285I SYS18329.T085346.RA000.SINE#SIM.R0000002 DELETED *--------0 IEF285I VOL SER NOS= WORK02. IEF285I SYS18329.T085346.RA000.SINE#SIM.R0000003 DELETED *--------1 IEF285I VOL SER NOS= WORK03. IEF285I SYS18329.T085346.RA000.SINE#SIM.R0000004 DELETED *--------0 IEF285I VOL SER NOS= WORK01. IEF285I SYS18329.T085346.RA000.SINE#SIM.LOADSET PASSED *--------3 IEF285I VOL SER NOS= WORK03. IEF285I JES2.JOB00020.SI0101 SYSIN IEF373I STEP /SIM / START 18329.0853 IEF374I STEP /SIM / STOP 18329.0853 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 25.11.18 from 08.53.46 to 08.53.46 * * 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: 55 * * 280.......0 DMY.......0 140.......0 180.......0 190.......1 170.......0 190.......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 170 ALLOCATED TO SYSUT1 IEF237I 140 ALLOCATED TO SYSLMOD IEF237I 190 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 SYS18329.T085346.RA000.SINE#SIM.R0000005 DELETED *--------0 IEF285I VOL SER NOS= WORK01. IEF285I SYS18329.T085346.RA000.SINE#SIM.GOSET PASSED *-------27 IEF285I VOL SER NOS= WORK00. IEF285I SYS18329.T085346.RA000.SINE#SIM.LOADSET PASSED *--------4 IEF285I VOL SER NOS= WORK03. IEF373I STEP /LKED / START 18329.0853 IEF374I STEP /LKED / STOP 18329.0853 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 25.11.18 from 08.53.46 to 08.53.46 * * elapsed time 00:00:00,09 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 170.......0 140......27 190.......4 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,10 * ************************************************************************************************************************************ IEF236I ALLOC. FOR SINE#SIM GO CLG IEF237I 140 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 SYS18329.T085346.RA000.SINE#SIM.GOSET KEPT *--------0 IEF285I VOL SER NOS= WORK00. IEF285I JES2.JOB00020.SO0105 SYSOUT IEF285I JES2.JOB00020.SI0102 SYSIN IEF373I STEP /GO / START 18329.0853 IEF374I STEP /GO / STOP 18329.0853 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 25.11.18 from 08.53.46 to 08.53.46 * * 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 * * 140.......0 DMY.......0 DMY.......0 * * * * Charge for step (w/o SYSOUT): 0,01 * ************************************************************************************************************************************ IEF237I 190 ALLOCATED TO SYS00001 IEF285I SYS18329.T085346.RA000.SINE#SIM.R0000001 KEPT *--------0 IEF285I VOL SER NOS= WORK03. IEF285I SYS18329.T085346.RA000.SINE#SIM.LOADSET DELETED IEF285I VOL SER NOS= WORK03. IEF237I 140 ALLOCATED TO SYS00003 IEF285I SYS18329.T085346.RA000.SINE#SIM.R0000003 KEPT *--------0 IEF285I VOL SER NOS= WORK00. IEF285I SYS18329.T085346.RA000.SINE#SIM.GOSET DELETED IEF285I VOL SER NOS= WORK00. IEF375I JOB /SINE#SIM/ START 18329.0853 IEF376I JOB /SINE#SIM/ STOP 18329.0853 CPU 0MIN 00.08SEC SRB 0MIN 00.02SEC SIMULA 67 (VERS 12.00) 25 NOV 2018 8:53:46.37 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) 25 NOV 2018 8:53:46.37 PAGE 2 GMD 00001 COMMENT 00002 * 00003 * Copyright 2017- by Walter F.J. Mueller 00004 * 00005 * This program is free software, you may redistribute and/or modify 00006 * it under the terms of the GNU General Public License version 3. 00007 * See Licence.txt in distribition directory for further details. 00008 * 00009 * Revision History: 00010 * Date Rev Version Comment 00011 * 2017-09-08 949 1.0 Initial version 00012 *; 00013 00014 BEGIN B1 00015 INTEGER i,j,isin,icos; 00016 REAL x,xrad,fsin,fcos; 00017 CHARACTER ARRAY plot(1:81); 00018 00019 OutText(" x sin(x) cos(x) "); 00020 OutText("-1 -0.5 0"); 00021 OutText(" +0.5 +1"); 00022 OutImage; 00023 OutText(" "); 00024 OutText("+-------------------.-------------------:"); 00025 OutText("-------------------.-------------------+"); 00026 OutImage; 00027 00028 FOR i := 0 STEP 1 UNTIL 60 DO BEGIN B2 00029 x := 6.0 * i; 00030 xrad := x/57.2957795131; 00031 fsin := sin(xrad); 00032 fcos := cos(xrad); 00033 FOR j := 1 STEP 1 UNTIL 81 DO plot(j) := ' '; 00034 plot( 1) := '+'; 00035 plot(21) := '.'; 00036 plot(41) := ':'; 00037 plot(61) := '.'; 00038 plot(81) := '+'; 00039 isin := Entier(41.5 + 40.0 * fsin); 00040 icos := Entier(41.5 + 40.0 * fcos); 00041 plot(isin) := '*'; 00042 plot(icos) := '#'; 00043 OutFix(x,0,6); 00044 OutFix(fsin,5,9); 00045 OutFix(fcos,5,9); 00046 OutText(" "); 00047 FOR j := 1 STEP 1 UNTIL 81 DO OutChar(plot(j)); 00048 OutImage; 00049 END; E2 00050 OutText(" "); 00051 OutText("+-------------------.-------------------:"); 00052 OutText("-------------------.-------------------+"); 00053 OutImage; 00054 OutImage; 00055 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 138 ZYQINCHA* 7D0 4C ZYQOUTCH* 820 70 ZYQOUTFX* 890 28 ZYQOUTTE* 8B8 90 ZYQSCOS * 948 EC ZYQSSIN 950 ZYQTERM * A38 460 ZYQENT * E98 1B0C ZYQBSC EE0 ZYQOPEN F74 ZYQCLOSE 108E ZYQPRINT 1268 ZYQINFIL 1344 ZYQIFEX 14D0 ZYQRESET 1592 ZYQSYN 16EC ZYQPAGE 17A4 ZYQWRITE 17AA ZYQFILE 18BC ZYQSTCNT 19E8 ZYQFSA 1B18 ZYQARRAY* 29A8 270 ZYQCOM * 2C18 E48 ZYQLASTI* 3A60 286 ZYQLASTR 3B28 ZYQFIELD 3B3C ZYQCTAB 3BE0 ZYQPUTFI* 3CE8 320 ZYQRTSCM* 4008 C40 ZYQSNAP * 4C48 30 ZYQATTN * 4C78 124 ZYQBC * 4DA0 90 ZYQECB * 4E30 F0 ZYQERR * 4F20 C08 ZYQERRDP 4F36 ZYQINIT * 5B28 B90 ZYQDATE 5B44 ZYQOUTIM* 66B8 2A2 ZYQOUTFI 67E4 ZYQACC * 6960 4 ZYQREFER* 6968 4A8 ZYQSTORE* 6E10 EE8 ZYQTRACD* 7CF8 5F0 ZYQTRACE* 82E8 E28 ZYQDUMP * 9110 380 ZYQENTVI* 9490 5C8 ZYQGETIN* 9A58 130 ZYQLDIG * 9B88 104 ZYQLNO * 9C90 210 ZYQLNMAP 9CA0 ZYQPRD * 9EA0 98 ZYQPUTIN* 9F38 228 NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION ZYQSCALE* A160 C0 ZYQSTCDA* A220 128 ZYQTXTCM* A348 98 ZYQCOMUN* A3E0 98 ZYQDEFLT* A478 5A ZYQERREX* A4D8 38 ZYQFORT * A510 308 ZYQGETRE* A818 2A0 ZYQMAP * AAB8 488 ZYQMAPTR* AF40 190 ZYQMVCL * B0D0 68 ZYQTIMEX* B138 70 ZYQUSERX* B1A8 8 ZYQCOPY * B1B0 C2 ZYQEVD * B278 60 ZYQGC6 * B2D8 240 ZYQLNODT* B518 50 ZYQPUTRE* B568 338 ZYQTSPIE* B8A0 28 ZYQTVASS* B8C8 C0 ENTRY ADDRESS E98 TOTAL LENGTH B988 ****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 25 NOV 2018 AT 8:53:46.37, START OF EXECUTION ON 25 NOV 2018 AT 8:53:46.37 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 8:53:46.17 EXECUTION TIME 0.00 SEC. RETURN CODE IS #00000000 ZYQ994 00000 STORECOLLAPSES, DATA STORAGE USED : 640 BYTES