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 */ /* /* 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