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