J E S 2 J O B L O G
10.03.44 JOB 28 IEF677I WARNING MESSAGE(S) FOR JOB MCPI#PLI ISSUED
10.03.44 JOB 28 $HASP373 MCPI#PLI STARTED - INIT 6 - CLASS C - SYS TK4-
10.03.44 JOB 28 IEF403I MCPI#PLI - STARTED - TIME=10.03.44
10.03.45 JOB 28 IEFACTRT - Stepname Procstep Program Retcode
10.03.45 JOB 28 MCPI#PLI CLG PL1L IEMAA RC= 0004
10.03.45 JOB 28 MCPI#PLI CLG LKED IEWL RC= 0000
10.03.45 JOB 28 MCPI#PLI CLG GO PGM=*.DD RC= 0000
10.03.45 JOB 28 IEF404I MCPI#PLI - ENDED - TIME=10.03.45
10.03.45 JOB 28 $HASP395 MCPI#PLI ENDED
------ JES2 JOB STATISTICS ------
06 JAN 19 JOB EXECUTION DATE
130 CARDS READ
666 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
0.00 MINUTES EXECUTION TIME
1 //MCPI#PLI JOB 'S322-0C4','WFJM', JOB 28
// CLASS=C,MSGCLASS=A,MSGLEVEL=(1,1),
// REGION=256K,TIME=(1,0),PRTY=8
2 //CLG EXEC PL1LFCLG,
// PARM.PL1L='LOAD,NODECK,OPT=2',
// PARM.LKED='MAP,LIST'
3 XXPL1LFCLG PROC SOUT='*' 00000100
4 XXPL1L EXEC PGM=IEMAA,PARM='LOAD,NODECK' 00000200
5 XXSYSPRINT DD SYSOUT=&SOUT 00000300
6 //PL1L.SYSLIN DD UNIT=SYSDA
X/SYSLIN DD DSNAME=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSSQ, *00000400
XX SPACE=(80,(250,100)) 00000500
7 XXSYSUT3 DD DSNAME=&&SYSUT3,UNIT=SYSDA,SPACE=(80,(250,250)), *00000600
XX DCB=BLKSIZE=80 00000700
8 XXSYSUT1 DD DSNAME=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(60,60),,CONTIG),*00000800
XX SEP=(SYSUT3,SYSLIN),DCB=BLKSIZE=1024 00000900
9 //PL1L.SYSIN DD *
10 XXLKED EXEC PGM=IEWL,PARM='XREF,LIST',COND=(9,LT,PL1L) 00001000
11 //LKED.SYSLIB DD DSN=SYS1.PL1LIB,DISP=SHR
X/SYSLIB DD DSNAME=SYS1.PL1LIB,DISP=SHR 00001100
12 XXSYSLMOD DD DSNAME=&&GOSET(GO),DISP=(MOD,PASS), *00001200
XX UNIT=SYSDA,SPACE=(1024,(50,20,1),RLSE) 00001300
13 XXSYSUT1 DD DSNAME=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(200,20)), *00001400
XX SEP=(SYSLMOD,SYSLIB),DCB=BLKSIZE=1024 00001500
14 XXSYSPRINT DD SYSOUT=&SOUT 00001600
15 XXSYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE) 00001700
16 XX DD DDNAME=SYSIN 00001800
17 XXGO EXEC PGM=*.LKED.SYSLMOD,COND=((9,LT,LKED),(9,LT,PL1L)) 00001900
18 XXSYSPRINT DD SYSOUT=&SOUT 00002000
19 //GO.STEPLIB DD DSN=SYS1.PL1LIB,DISP=SHR
20 //GO.SYSIN DD *
//
STMT NO. MESSAGE
-
5 IEF653I SUBSTITUTION JCL - SYSOUT=*
14 IEF653I SUBSTITUTION JCL - SYSOUT=*
18 IEF653I SUBSTITUTION JCL - SYSOUT=*
17 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED
IEF236I ALLOC. FOR MCPI#PLI PL1L CLG
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I 190 ALLOCATED TO SYSLIN
IEF237I 180 ALLOCATED TO SYSUT3
IEF237I 140 ALLOCATED TO SYSUT1
IEF237I JES2 ALLOCATED TO SYSIN
IEF142I MCPI#PLI PL1L CLG - STEP WAS EXECUTED - COND CODE 0004
IEF285I JES2.JOB00028.SO0103 SYSOUT
IEF285I SYS19006.T100344.RA000.MCPI#PLI.LOADSET PASSED *------102
IEF285I VOL SER NOS= WORK03.
IEF285I SYS19006.T100344.RA000.MCPI#PLI.SYSUT3 DELETED *--------0
IEF285I VOL SER NOS= WORK02.
IEF285I SYS19006.T100344.RA000.MCPI#PLI.SYSUT1 DELETED *--------0
IEF285I VOL SER NOS= WORK00.
IEF285I JES2.JOB00028.SI0101 SYSIN
IEF373I STEP /PL1L / START 19006.1003
IEF374I STEP /PL1L / STOP 19006.1003 CPU 0MIN 00.15SEC SRB 0MIN 00.05SEC VIRT 272K SYS 212K
************************************************************************************************************************************
* 1. Jobstep of job: MCPI#PLI Stepname: PL1L Program name: IEMAA Executed on 06.01.19 from 10.03.44 to 10.03.45 *
* elapsed time 00:00:00,27 CPU-Identifier: TK4- Page-in: 0 *
* CPU time 00:00:00,20 Virtual Storage used: 272K Page-out: 0 *
* corr. CPU: 00:00:00,20 CPU time has been corrected by 1 / 1,0 multiplier *
* *
* I/O Operation *
* Number of records read via DD * or DD DATA: 113 *
* DMY.......0 190.....102 180.......0 140.......0 DMY.......0 *
* *
* Charge for step (w/o SYSOUT): 0,33 *
************************************************************************************************************************************
IEF236I ALLOC. FOR MCPI#PLI LKED CLG
IEF237I 148 ALLOCATED TO SYSLIB
IEF237I 180 ALLOCATED TO SYSLMOD
IEF237I 140 ALLOCATED TO SYSUT1
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I 190 ALLOCATED TO SYSLIN
IEF237I DMY ALLOCATED TO
IEF142I MCPI#PLI LKED CLG - STEP WAS EXECUTED - COND CODE 0000
IEF285I SYS1.PL1LIB KEPT *------164
IEF285I VOL SER NOS= MVSRES.
IEF285I SYS19006.T100344.RA000.MCPI#PLI.GOSET PASSED *-------60
IEF285I VOL SER NOS= WORK02.
IEF285I SYS19006.T100344.RA000.MCPI#PLI.SYSUT1 DELETED *--------0
IEF285I VOL SER NOS= WORK00.
IEF285I JES2.JOB00028.SO0104 SYSOUT
IEF285I SYS19006.T100344.RA000.MCPI#PLI.LOADSET DELETED *------103
IEF285I VOL SER NOS= WORK03.
IEF373I STEP /LKED / START 19006.1003
IEF374I STEP /LKED / STOP 19006.1003 CPU 0MIN 00.05SEC SRB 0MIN 00.01SEC VIRT 260K SYS 212K
************************************************************************************************************************************
* 2. Jobstep of job: MCPI#PLI Stepname: LKED Program name: IEWL Executed on 06.01.19 from 10.03.45 to 10.03.45 *
* elapsed time 00:00:00,09 CPU-Identifier: TK4- Page-in: 0 *
* CPU time 00:00:00,06 Virtual Storage used: 260K 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 *
* 148.....164 180......60 140.......0 DMY.......0 190.....103 DMY.......0 *
* *
* Charge for step (w/o SYSOUT): 0,10 *
************************************************************************************************************************************
IEF236I ALLOC. FOR MCPI#PLI GO CLG
IEF237I 180 ALLOCATED TO PGM=*.DD
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I 148 ALLOCATED TO STEPLIB
IEF237I JES2 ALLOCATED TO SYSIN
IEF142I MCPI#PLI GO CLG - STEP WAS EXECUTED - COND CODE 0000
IEF285I SYS19006.T100344.RA000.MCPI#PLI.GOSET KEPT *--------0
IEF285I VOL SER NOS= WORK02.
IEF285I JES2.JOB00028.SO0105 SYSOUT
IEF285I SYS1.PL1LIB KEPT *--------0
IEF285I VOL SER NOS= MVSRES.
IEF285I JES2.JOB00028.SI0102 SYSIN
IEF373I STEP /GO / START 19006.1003
IEF374I STEP /GO / STOP 19006.1003 CPU 0MIN 00.01SEC SRB 0MIN 00.00SEC VIRT 48K SYS 216K
************************************************************************************************************************************
* 3. Jobstep of job: MCPI#PLI Stepname: GO Program name: PGM=*.DD Executed on 06.01.19 from 10.03.45 to 10.03.45 *
* elapsed time 00:00:00,03 CPU-Identifier: TK4- Page-in: 0 *
* CPU time 00:00:00,01 Virtual Storage used: 48K 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: 3 *
* 180.......0 DMY.......0 148.......0 DMY.......0 *
* *
* Charge for step (w/o SYSOUT): 0,01 *
************************************************************************************************************************************
IEF237I 180 ALLOCATED TO SYS00001
IEF285I SYS19006.T100345.RA000.MCPI#PLI.R0000001 KEPT *--------0
IEF285I VOL SER NOS= WORK02.
IEF285I SYS19006.T100344.RA000.MCPI#PLI.GOSET DELETED
IEF285I VOL SER NOS= WORK02.
IEF375I JOB /MCPI#PLI/ START 19006.1003
IEF376I JOB /MCPI#PLI/ STOP 19006.1003 CPU 0MIN 00.21SEC SRB 0MIN 00.06SEC
PAGE 1
VERSION 5.5 OS/360 PL/I COMPILER (F) DATE 19.006
PL/I F COMPILER OPTIONS SPECIFIED ARE AS FOLLOWS--
LOAD,NODECK,OPT=2
THE COMPLETE LIST OF OPTIONS USED DURING THIS COMPILATION IS-- EBCDIC
CHAR60
NOMACRO
SOURCE2
NOMACDCK
COMP
SOURCE
NOATR
NOXREF
NOEXTREF
NOLIST
LOAD
NODECK
FLAGW
NOSTMT
SIZE=0267896
LINECNT=050
OPT=02
SORMGIN=(002,072)
NOEXTDIC
NONEST
OPLIST
SYNCHKT
*OPTIONS IN EFFECT* EBCDIC,CHAR60,NOMACRO,SOURCE2,NOMACDCK,COMP,SOURCE,NOATR,NOXREF,NOEXTREF,NOLIST,LOAD,
*OPTIONS IN EFFECT* NODECK,FLAGW,NOSTMT,SIZE=0267896,LINECNT=050,OPT=02,SORMGIN=(002,072),NOEXTDIC,
*OPTIONS IN EFFECT* NONEST,OPLIST,SYNCHKT
/* 1 2 3 4 5 6 7*/-------- PAGE 2
/* 1 2 3 4 5 6 7*/--------
/*4567890123456789012345678901234567890123456789012345678901234567890*/--------
/* $Id: mcpi_pli.pli 978 2017-12-28 21:32:18Z mueller $ */
/*
/* Copyright 2017- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de> */
/*
/* 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-28 978 1.1 use inverse to avoid divide by constant */
/* 2017-09-07 947 1.0 Initial version */
/* 2017-07-30 931 0.1 First draft */
1 MCPI: PROC OPTIONS(MAIN) REORDER;
2 DCL RSEED DEC FLOAT(16) INIT(12345.);
3 DCL RLAST DEC FLOAT(16) INIT(0.);
4 DCL RSHUF(0:127) DEC FLOAT(16) INIT((128)0.);
5 DCL RR32 DEC FLOAT(16) INIT(4294967296.);
6 DCL RDIV DEC FLOAT(16) INIT(33554432.);
7 DCL RANINI BIN FIXED(31) INIT(0);
8 DCL (IDBGRR,IDBGRN,IDBGMC) BIN FIXED(31) INIT(0);
9 DCL RANRAW ENTRY RETURNS(DEC FLOAT(16));
10 DCL RANNUM ENTRY RETURNS(DEC FLOAT(16));
11 DCL (I,NTRY,NHIT,NGO) BIN FIXED(31) INIT(0);
12 DCL (PIEST,PIERR) DEC FLOAT(16);
13 DCL (RHIT,RTRY) DEC FLOAT(16);
14 DCL (RR32I,RDIVI) DEC FLOAT(16);
15 DCL (X,Y,R) DEC FLOAT(16);
16 DCL PI DEC FLOAT(16) INIT(3.141592653589793E0);
17 ON ENDFILE(SYSIN) GOTO DONE;
19 ON CONVERSION GOTO ABORT;
21 RR32I = 1./RR32;
22 RDIVI = 1./RDIV;
23 GET EDIT(IDBGRR,IDBGRN,IDBGMC) (3(F(10)));
24 IF IDBGRR=0 & IDBGRN=0 & IDBGMC=0 THEN
25 PUT SKIP EDIT(' ntry nhit pi-est',
' pi-err seed')(A,A);
/* 1 2 3 4 5 6 7*/-------- PAGE 3
26 DO WHILE('1'B);
27 GET SKIP EDIT(NGO) (F(10));
28 IF NGO = 0 THEN GOTO DONE;
30 DO I=1 TO NGO;
31 X = 2.*RANNUM - 1.;
32 Y = 2.*RANNUM - 1.;
33 R = X*X + Y*Y;
34 NTRY = NTRY + 1;
35 IF R <= 1. THEN NHIT = NHIT + 1;
37 IF IDBGMC > 0 THEN PUT SKIP EDIT('MC: ',X,Y,R,NHIT)
(A,3(F(12,8),X(1)),F(12));
39 END;
40 RTRY = NTRY;
41 RHIT = NHIT;
42 PIEST = 4.E0 * (RHIT / RTRY);
43 PIERR = PIEST - PI;
44 IF PIERR < 0. THEN PIERR = -PIERR;
46 PUT SKIP EDIT('PI: ',NTRY,NHIT,PIEST,PIERR,RLAST)
(A,2(F(12),X(1)),2(F(12,8),X(1)),F(12));
47 END;
48 GOTO DONE;
49 ABORT: PUT SKIP EDIT('Conversion error, abort')(A);
50 DONE:;
/* procedure RANRAW --------------------------------------------*/
51 RANRAW: PROC RETURNS(DEC FLOAT(16));
52 DCL (RFAC,RNEW) DEC FLOAT(16);
53 DCL IFAC BIN FIXED(31);
54 RNEW = RSEED * 69069.;
55 RFAC = RNEW * RR32I;
56 IFAC = RFAC;
57 RFAC = IFAC;
58 RNEW = RNEW - RFAC * RR32;
59 IF IDBGRR > 0 THEN PUT SKIP EDIT('RR: ',RSEED,RNEW)
(A,F(12,0),X(1),F(12,0));
61 RSEED = RNEW;
62 RETURN(RNEW);
63 END RANRAW;
/* procedure RANNUM --------------------------------------------*/
64 RANNUM: PROC RETURNS(DEC FLOAT(16));
/* 1 2 3 4 5 6 7*/-------- PAGE 4
65 DCL I BIN FIXED(31);
66 DCL RNEW DEC FLOAT(16);
67 IF RANINI = 0 THEN DO;
69 DO I=0 TO 127;
70 RSHUF(I) = RANRAW;
71 END;
72 RANINI = 1;
73 END;
74 I = RLAST * RDIVI;
75 RLAST = RSHUF(I);
76 RSHUF(I) = RANRAW;
77 RNEW = RLAST * RR32I;
78 IF IDBGRN > 0 THEN PUT SKIP EDIT('RN: ',I,RLAST,RNEW)
(A,F(12),X(1),F(12,0),X(1),F(12,8));
80 RETURN(RNEW);
81 END RANNUM;
82 END MCPI;
/* 1 2 3 4 5 6 7*/-------- PAGE 5
STORAGE REQUIREMENTS.
----------------------
THE STORAGE AREA FOR THE PROCEDURE LABELLED MCPI IS 1404 BYTES LONG.
THE STORAGE AREA FOR THE ON UNIT AT STATEMENT NO. 17 IS 176 BYTES LONG.
THE STORAGE AREA FOR THE ON UNIT AT STATEMENT NO. 19 IS 176 BYTES LONG.
THE STORAGE AREA (IN STATIC) FOR THE PROCEDURE LABELLED RANRAW IS 196 BYTES LONG.
THE STORAGE AREA (IN STATIC) FOR THE PROCEDURE LABELLED RANNUM IS 212 BYTES LONG.
THE PROGRAM CSECT IS NAMED MCPI AND IS 2394 BYTES LONG.
THE STATIC CSECT IS NAMED ***MCPIA AND IS 996 BYTES LONG.
*STATISTICS* SOURCE RECORDS = 113,PROG TEXT STMNTS = 82,OBJECT BYTES = 2394
/* 1 2 3 4 5 6 7*/-------- PAGE 6
TABLE OF OFFSETS AND STATEMENT NUMBERS WITHIN ON UNIT
OFFSET (HEX) 0000 0048 0052
STATEMENT NO 18 18
TABLE OF OFFSETS AND STATEMENT NUMBERS WITHIN ON UNIT
OFFSET (HEX) 0000 0048 0052
STATEMENT NO 20 20
TABLE OF OFFSETS AND STATEMENT NUMBERS WITHIN PROCEDURE RANRAW
OFFSET (HEX) 0000 003C 004C 0058 0074 0090 00A6 00B2 0122 012C 013C
STATEMENT NO 51 54 55 56 57 58 59 60 61 62 63
TABLE OF OFFSETS AND STATEMENT NUMBERS WITHIN PROCEDURE RANNUM
OFFSET (HEX) 0000 003C 004C 004C 0060 0092 009E 00A8 00A8 00CE 00E2 010C 0118 0124 01BC 01CC
STATEMENT NO 64 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81
TABLE OF OFFSETS AND STATEMENT NUMBERS WITHIN PROCEDURE MCPI
OFFSET (HEX) 0000 00FC 010A 0118 0124 0130 0186 01E2 0222 0222 0254 025C 0260 026E 0294 02BA 02D0 02DC 02E8 02F4 0300
STATEMENT NO 1 17 19 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
OFFSET (HEX) 0390 03A4 03C0 03DC 03EC 03F8 0404 040E 04D6 04DA 04DE 050C 050C
STATEMENT NO 39 40 41 42 43 44 45 46 47 48 49 50 82
/* 1 2 3 4 5 6 7*/-------- PAGE 7
COMPILER DIAGNOSTICS.
WARNINGS.
IEM0227I NO FILE/STRING OPTION SPECIFIED IN ONE OR MORE GET/PUT STATEMENTS. SYSIN/SYSPRINT HAS BEEN
ASSUMED IN EACH CASE.
IEM0764I ONE OR MORE FIXED BINARY ITEMS OF PRECISION 15 OR LESS HAVE BEEN GIVEN HALFWORD STORAGE. THEY
ARE FLAGGED '*********' IN THE XREF/ATR LIST.
END OF DIAGNOSTICS.
AUXILIARY STORAGE WILL NOT BE USED FOR DICTIONARY WHEN SIZE = 120K
COMPILE TIME .00 MINS
ELAPSED TIME .00 MINS
F64-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED MAP,LIST
DEFAULT OPTION(S) USED - SIZE=(229376,55296)
MODULE MAP
CONTROL SECTION ENTRY
NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION
MCPI 00 95A
***MCPIA 960 3E4
IHEMAIN D48 4
IHENTRY D50 C
SYSIN D60 38
IHESPRT D98 38
IHEDIA * DD0 358
IHEDIAA DD0 IHEDIAB DD2
IHEDMA * 1128 F8
IHEDMAA 1128
IHEDNB * 1220 112
IHEDNBA 1220
IHEDNC * 1338 2B2
IHEDNCA 1338
IHEERR * 15F0 745
IHEERRD 15F0 IHEERRC 15FA IHEERRB 1604 IHEERRA 160E
IHEERRE 1C9E
IHEIOD * 1D38 29A
IHEIODG 1D38 IHEIODP 1D3A IHEIODT 1E32
IHEUPA * 1FD8 E8
IHEUPAA 1FD8 IHEUPAB 2042
IHEUPB * 20C0 E4
IHEUPBA 20C0 IHEUPBB 2128
IHEVCA * 21A8 112
IHEVCAA 21A8
IHEVQB * 22C0 4DC
IHEVQBA 22C0
IHEVSA * 27A0 13E
IHEVSAA 27A0
IHEVSC * 28E0 AC
IHEVSCA 28E0
IHEVFA * 2990 16C
IHEVFAA 2990
IHEVFB * 2B00 F0
IHEVFBA 2B00
IHEVFC * 2BF0 26
IHEVFCA 2BF0
IHEVFD * 2C18 66
IHEVFDA 2C18
IHEVFE * 2C80 20
IHEVFEA 2C80
IHEVKB * 2CA0 30A
IHEVKBA 2CA0
IHEVKC * 2FB0 2D0
NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION
IHEVKCA 2FB0
IHEVKF * 3280 67C
IHEVKFA 3280
IHEVKG * 3900 4DE
IHEVKGA 3900
IHEVPA * 3DE0 1E0
IHEVPAA 3DE0
IHEVPB * 3FC0 1A2
IHEVPBA 3FC0
IHEVPC * 4168 1F0
IHEVPCA 4168
IHEVPD * 4358 105
IHEVPDA 4358
IHEVPE * 4460 278
IHEVPEA 4460
IHEVPF * 46D8 50
IHEVPFA 46D8
IHEVPG * 4728 229
IHEVPGA 4728
IHEVPH * 4958 B4
IHEVPHA 4958
IHEVQC * 4A10 268
IHEVQCA 4A10
IHEVSB * 4C78 CE
IHEVSBA 4C78
IHEVSE * 4D48 15D
IHEVSEA 4D48 IHEVSEB 4D4A
IHEVSF * 4EA8 EC
IHEVSFA 4EA8
IHEABN * 4F98 C
IHEABND 4F98
IHEM91 * 4FA8 178
IHEM91B 4FA8 IHEM91A 4FB0 IHEM91C 50C2
IHETER * 5120 110
IHETERA 5120
IHEIOF * 5230 2DC
IHEIOFB 5230 IHEIOFA 5232 IHEITAZ 54CE IHEITAX 54DA
IHEITAA 54EE
IHEVQA * 5510 FC
IHEVQAA 5510
IHEDOA * 5610 23A
IHEDOAA 5610 IHEDOAB 5612
IHEDBN * 5850 167
IHEDBNA 5850
IHEDCN * 59B8 256
IHEDCNA 59B8 IHEDCNB 59BA
IHEDOB * 5C10 144
IHEDOBA 5C10 IHEDOBB 5C12 IHEDOBC 5C14
IHEIOA * 5D58 16A
IHEIOAA 5D58 IHEIOAB 5D5A IHEIOAC 5D5C IHEIOAD 5D5E
IHEIOAT 5E48
IHEIOP * 5EC8 1F7
NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION
IHEIOPA 5EC8 IHEIOPB 5ECA IHEIOPC 5ECE
IHEIOB * 60C0 1E0
IHEIOBA 60C0 IHEIOBB 60C8 IHEIOBC 60D0 IHEIOBD 60D8
IHEIOBE 60E0 IHEIOBT 61C8
IHEOCL * 62A0 580
IHEOCLA 62A0 IHEOCLB 62A2 IHEOCLC 62A4 IHEOCLD 62A6
IHEIOX * 6820 14C
IHEIOXA 6820 IHEIOXB 6822 IHEIOXC 6826
IHESAP * 6970 B1C
IHESADA 6970 IHESAPC 698A IHESAPD 6992 IHESAPA 699A
IHESAPB 69A2 IHESADF 69AA IHESADB 69B2 IHESADE 69BA
IHESAFC 69C2 IHESAFA 69CA IHESAFB 69D2 IHESAFD 69DA
IHESARA 69E2 IHESAFQ 69EA IHESARC 71DC IHESADD 72F0
IHESAFF 732A
IHEBEG * 7490 80
IHEBEGN 7490 IHEBEGA 74D0
IHEDDO * 7510 288
IHEDDOA 7510 IHEDDOB 7512 IHEDDOC 7514 IHEDDOD 7516
IHEDDOE 7518
IHEPRT * 7798 308
IHEPRTA 7798 IHEPRTB 779A
IHESIZ * 7AA0 C
IHESIZE 7AA0
IHETAB * 7AB0 C
IHETABS 7AB0
IHEDDP * 7AC0 28C
IHEDDPA 7AC0 IHEDDPB 7AC2 IHEDDPC 7AC4 IHEDDPD 7AC6
IHELDO * 7D50 418
IHELDOA 7D50 IHELDOB 7D52 IHELDOC 7D56
IHEJXS * 8168 66
IHEJXSI 8168 IHEJXSY 8184
PSEUDO REGISTERS
NAME ORIGIN LENGTH NAME ORIGIN LENGTH NAME ORIGIN LENGTH NAME ORIGIN LENGTH
IHEQINV 00 4 IHEQERR 4 4 IHEQTIC 8 4 IHEQLWF C 4
IHEQSLA 10 4 IHEQLW0 14 4 ***MCPIB 18 4 ***MCPIC 1C 4
***MCPID 20 4 ***MCPIE 24 4 ***MCPIF 28 4 SYSIN 2C 4
IHEQSPR 30 4 IHEQLSA 34 4 IHEQLW1 38 4 IHEQLW2 3C 4
IHEQLW3 40 4 IHEQLW4 44 4 IHEQLWE 48 4 IHEQLCA 4C 4
IHEQVDA 50 4 IHEQFVD 54 4 IHEQFOP 58 4 IHEQCFL 5C 8
IHEQADC 64 4 IHEQLPR 68 4 IHEQXLV 6C 8 IHEQEVT 74 8
IHEQSAR 7C 4 IHEQRTC 80 4 IHEQSFC 84 4
TOTAL LENGTH OF PSEUDO REGISTERS 88
ENTRY ADDRESS D50
TOTAL LENGTH 81D0
****GO DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
AUTHORIZATION CODE IS 0.
RR: 12345 852656805
RR: 852656805 3856269089
RR: 3856269089 547813997
RR: 547813997 2598048329
RR: 2598048329 866408821
RR: 866408821 211522481
RR: 211522481 2462466493
RR: 2462466493 3688250713
RR: 3688250713 688235845
RR: 688235845 3358513473
RR: 3358513473 2278376973
RR: 2278376973 1912389993
RR: 1912389993 3735172629
RR: 3735172629 3132710865
RR: 3132710865 1344296797
RR: 1344296797 632467065
RR: 632467065 4050312165
RR: 4050312165 2611066721
RR: 2611066721 2385561005
RR: 2385561005 482677897
RR: 482677897 543516341
RR: 543516341 2115989489
RR: 2115989489 130867453
RR: 130867453 2272920473
RR: 2272920473 2994513541
RR: 2994513541 3905624449
RR: 3905624449 3564108109
RR: 3564108109 3332410281
RR: 3332410281 3243273045
RR: 3243273045 1311654929
RR: 1311654929 949116573
RR: 949116573 446741689
RR: 446741689 956663077
RR: 956663077 1985183649
RR: 1985183649 2113495277
RR: 2113495277 3951797961
RR: 3951797961 1561707509
RR: 1561707509 1767267377
RR: 1767267377 419909693
RR: 419909693 3123403225
RR: 3123403225 2720004037
RR: 2720004037 1794337217
RR: 1794337217 1795914893
RR: 1795914893 3390236137
RR: 3390236137 2897735829
RR: 2897735829 2534946897
RR: 2534946897 1905407453
RR: 1905407453 2494454521
RR: 2494454521 1161199205
RR: 1161199205 2943571937
RR: 2943571937 2998193197
RR: 2998193197 357746953
RR: 357746953 277442869
RR: 277442869 2852411505
RR: 2852411505 3060371325
RR: 3060371325 4266541081
RR: 4266541081 3724777733
RR: 3724777733 2427177473
RR: 2427177473 1557385165
RR: 1557385165 3875000361
RR: 3875000361 1512883669
RR: 1512883669 1102789777
RR: 1102789777 1637080349
RR: 1637080349 2193590585
RR: 2193590585 4136748965
RR: 4136748965 2709864481
RR: 2709864481 1545013101
RR: 1545013101 4047403849
RR: 4047403849 3600051829
RR: 3600051829 3438109873
RR: 3438109873 2363989693
RR: 2363989693 927381081
RR: 927381081 2436598341
RR: 2436598341 3707255361
RR: 3707255361 3355243277
RR: 3355243277 4042476137
RR: 4042476137 2550328085
RR: 2550328085 3411759313
RR: 3411759313 3423294557
RR: 3423294557 1287145337
RR: 1287145337 313221349
RR: 313221349 135084129
RR: 135084129 1456738989
RR: 1456738989 1601355145
RR: 1601355145 703413
RR: 703413 1339392241
RR: 1339392241 1182105085
RR: 1182105085 3782786201
RR: 3782786201 1809566597
RR: 1809566597 1406974593
RR: 1406974593 398124621
RR: 398124621 1688818857
RR: 1688818857 2307809365
RR: 2307809365 3258742033
RR: 3258742033 292330397
RR: 292330397 326931897
RR: 326931897 2216118821
RR: 2216118821 1066352801
RR: 1066352801 1822420461
RR: 1822420461 152276937
RR: 152276937 3535821045
RR: 3535821045 3783306545
RR: 3783306545 3389467965
RR: 3389467965 1380471513
RR: 1380471513 3807927493
RR: 3807927493 3126676161
RR: 3126676161 1145153933
RR: 1145153933 2814242537
RR: 2814242537 3877840277
RR: 3877840277 94546257
RR: 94546257 1865134813
RR: 1865134813 4042290169
RR: 4042290169 2590606181
RR: 2590606181 2240764129
RR: 2240764129 2486081837
RR: 2486081837 2688872969
RR: 2688872969 3381216821
RR: 3381216821 2712856945
RR: 2712856945 2073078909
RR: 2073078909 4162418969
RR: 4162418969 1889877509
RR: 1889877509 3598576385
RR: 3598576385 314916045
RR: 314916045 1221925161
RR: 1221925161 1041578709
RR: 1041578709 97643921
RR: 97643921 1069324829
RR: 1069324829 938992185
RR: 938992185 1245056165
RN: 0 852656805 0.19852463
RR: 1245056165 949059873
RN: 25 3905624449 0.90934905
MC: -0.60295073 0.81869811 1.03381618 0
RR: 949059873 825496685
RN: 116 3381216821 0.78725089
RR: 825496685 539681865
RN: 100 3535821045 0.82324749
MC: 0.57450178 0.64649498 0.74800805 1
RR: 539681865 3560538997
RN: 105 3126676161 0.72798602
RR: 3560538997 1630549425
RN: 93 3258742033 0.75873501
MC: 0.45597205 0.51747001 0.47568572 2
RR: 1630549425 2080766909
RN: 97 1066352801 0.24827961
RR: 2080766909 2588946265
RN: 31 446741689 0.10401515
MC: -0.50344078 -0.79196969 0.88066861 3
RR: 2588946265 3556142917
RN: 13 3132710865 0.72939109
RR: 3556142917 2940377921
RN: 93 1630549425 0.37964187
MC: 0.45878217 -0.24071626 0.26842540 4
RR: 2940377921 1434034189
RN: 48 1161199205 0.27036276
RR: 1434034189 1066586985
RN: 34 2113495277 0.49208647
MC: -0.45927448 -0.01582707 0.21118355 5
RR: 1066586985 817405973
RN: 62 1637080349 0.38116247
RR: 817405973 68043217
RN: 48 1434034189 0.33388710
MC: -0.23767506 -0.33222579 0.16686341 6
RR: 68043217 982733149
RN: 42 1795914893 0.41814402
RR: 982733149 3027689593
RN: 53 2852411505 0.66412881
MC: -0.16371196 0.32825761 0.13455467 7
RR: 3027689593 1829823973
RN: 85 1339392241 0.31185156
RR: 1829823973 404339041
RN: 39 3123403225 0.72722398
MC: -0.37629688 0.45444797 0.34812230 8
RR: 404339041 1415864237
RN: 93 2940377921 0.68461008
RR: 1415864237 216622729
RN: 87 3782786201 0.88074855
MC: 0.36922017 0.76149709 0.71620135 9
PI: 10 9 3.60000000 0.45840735 3782786201