Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- J E S 2 J O B L O G -- S Y S T E M S 0 W 1 -- N O D E Z O S K C T R
- 23.01.06 JOB00223 ---- MONDAY, 31 OCT 2016 ----
- 23.01.06 JOB00223 IRR010I USERID KC03R25 IS ASSIGNED TO THIS JOB.
- 23.01.06 JOB00223 IEF677I WARNING MESSAGE(S) FOR JOB KC03R25A ISSUED
- 23.01.06 JOB00223 ICH70001I KC03R25 LAST ACCESS AT 22:56:59 ON MONDAY, OCTOBER 31, 2016
- 23.01.06 JOB00223 $HASP373 KC03R25A STARTED - INIT 2 - CLASS A - SYS S0W1
- 23.01.07 JOB00223 - --TIMINGS (MINS.)-- ----PAGING COUNTS---
- 23.01.07 JOB00223 -JOBNAME STEPNAME PROCSTEP RC EXCP TCB SRB CLOCK SERV PG PAGE SWAP VIO SWAPS
- 23.01.07 JOB00223 -KC03R25A 00 484 ****** .00 .0 1337 0 0 0 0 0
- 23.01.07 JOB00223 -KC03R25A 00 224 ****** .00 .0 768 0 0 0 0 0
- 23.01.07 JOB00223 -KC03R25A ENDED. NAME-MANN TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0
- 23.01.07 JOB00223 $HASP395 KC03R25A ENDED
- ------ JES2 JOB STATISTICS ------
- 31 OCT 2016 JOB EXECUTION DATE
- 596 CARDS READ
- 2,449 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 177 SYSOUT SPOOL KBYTES
- 0.01 MINUTES EXECUTION TIME
- !! END OF JES SPOOL FILE !!
- 1 //KC03R25A JOB ,'MANN',MSGCLASS=H JOB00223
- //*************************************************************
- //* AUTHOR: JACK MANN
- //* COURSE: CSCI 465-1
- //* FUNCTION: READS MUTUAL FUND INFORMATION FROM A PDS, FORMATS IT
- //* AND PRINTS A REPORT. THEN MAKES A SECOND REPORT OF HIGH
- //* SALES AMOUNTS.
- //*************************************************************
- //*
- //*************************************************************
- //* FUNCTION: EXECUTES COBOL COMPILER;
- //*************************************************************
- //* DDNAMES ASSOCIATED:
- //*
- //* STEPLIB; LOCATION OF COBOL COMPILER V4
- //******************
- //* INPUT
- //******************
- //* SYSIN; COBOL SOURCE CODE
- //******************
- //* OUTPUT
- //******************
- //* SYSLIN; COBOL OBJECT MODULE
- //******************
- //* SYSTEM
- //******************
- //* SYSPRINT; ERROR MESSAGS
- //* SYSUT1-7; SCRATCHPADS FOR COMPILATION
- //*
- //**************************************************************
- 2 //JSTEP01 EXEC PGM=IGYCRCTL,PARM='FLAG(I,I),APOST,LIST'
- //*
- 3 //STEPLIB DD DSN=IGY420.SIGYCOMP,DISP=SHR
- //* SPECIFIES V4 COMPILER
- 4 //SYSIN DD *
- //*
- 5 //SYSLIN DD DSN=&&OBJMOD,SPACE=(TRK,(3,3)),DISP=(MOD,PASS)
- //* SPECIFIES COBOL OBJECT MODULE
- 6 //SYSPRINT DD SYSOUT=*
- //* SPECIFIES ERROR MESSAGE OUTPUT
- 7 //SYSUT1 DD SPACE=(CYL,(1,1))
- 8 //SYSUT2 DD SPACE=(CYL,(1,1))
- 9 //SYSUT3 DD SPACE=(CYL,(1,1))
- 10 //SYSUT4 DD SPACE=(CYL,(1,1))
- 11 //SYSUT5 DD SPACE=(CYL,(1,1))
- 12 //SYSUT6 DD SPACE=(CYL,(1,1))
- 13 //SYSUT7 DD SPACE=(CYL,(1,1))
- //* SCRATCHPADS
- //*************************************************************
- //* FUNCTION: EXECUTES LOADER;
- //*************************************************************
- //* DDNAMES ASSOCIATED:
- //*
- //* SYSLIB; SPECIFIES COBOL SOURCE MODUEL
- //* INPUT
- //**************
- //* SYSLIN; COBOL OBJECT MODULE
- //**************
- //* OUTPUT
- //**************
- //* SYSLOUT; LOAD MODULE OUTPUT
- //***************
- //* PROGRAM ASSOCIATED DDS
- //***************
- //* FUNDFILE; INPUT FOR PROGRAM
- //* HISALES; TEMPORARY DATA SET FOR PROGRAM
- //* RPTFILE; OUTPUT FOR PROGRAM
- //****************
- //* SYSUDUMP; ERROR MESSAGE OUTPUT
- //*
- //*************************************************************
- 14 //JSTEP02 EXEC PGM=HEWLDRGO,COND=(0,LT)
- //*
- 15 //SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
- //* SPECIFIES COBOL OBJECT MODULE WILL BE LAUNCHED
- 16 //SYSLIN DD DSN=&&OBJMOD,DISP=OLD
- //* SPECIFIES INPUT OBJECT MODULE
- 17 //SYSLOUT DD SYSOUT=*
- //* SPECIFIES OUTPUT LOAD MOUDLE/OUTPUT
- 18 //FUNDFILE DD DSN=KC02322.CSCI465.DATAFA16(DATA3),DISP=SHR
- //* INPUT FOR PROGRAM
- 19 //HISALES DD DISP=(MOD),SPACE=(TRK,(1,1))
- //* OUTPUT FOR PROGRAM
- 20 //RPTFILE DD SYSOUT=*
- //* OUTPUT FOR PROGRAM
- 21 //SYSUDUMP DD SYSOUT=*
- !! END OF JES SPOOL FILE !!
- STMT NO. MESSAGE
- -
- 16 IEF648I INVALID DISP FIELD- PASS SUBSTITUTED
- 19 IEF648I INVALID DISP FIELD- PASS SUBSTITUTED
- ICH70001I KC03R25 LAST ACCESS AT 22:56:59 ON MONDAY, OCTOBER 31, 2016
- IEF236I ALLOC. FOR KC03R25A JSTEP01
- IEF237I A006 ALLOCATED TO STEPLIB
- IEF237I JES2 ALLOCATED TO SYSIN
- IGD101I SMS ALLOCATED TO DDNAME (SYSLIN )
- DSN (SYS16305.T230106.RA000.KC03R25A.OBJMOD.H01 )
- STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
- VOL SER NOS= TEMP00
- IEF237I JES2 ALLOCATED TO SYSPRINT
- IGD101I SMS ALLOCATED TO DDNAME (SYSUT1 )
- DSN (SYS16305.T230106.RA000.KC03R25A.R0111583 )
- STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
- VOL SER NOS= TEMP00
- IGD101I SMS ALLOCATED TO DDNAME (SYSUT2 )
- DSN (SYS16305.T230106.RA000.KC03R25A.R0111584 )
- STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
- VOL SER NOS= TEMP00
- IGD101I SMS ALLOCATED TO DDNAME (SYSUT3 )
- DSN (SYS16305.T230106.RA000.KC03R25A.R0111585 )
- STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
- VOL SER NOS= TEMP00
- IGD101I SMS ALLOCATED TO DDNAME (SYSUT4 )
- DSN (SYS16305.T230106.RA000.KC03R25A.R0111586 )
- STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
- VOL SER NOS= TEMP00
- IGD101I SMS ALLOCATED TO DDNAME (SYSUT5 )
- DSN (SYS16305.T230106.RA000.KC03R25A.R0111587 )
- STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
- VOL SER NOS= TEMP00
- IGD101I SMS ALLOCATED TO DDNAME (SYSUT6 )
- DSN (SYS16305.T230106.RA000.KC03R25A.R0111588 )
- STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
- VOL SER NOS= TEMP00
- IGD101I SMS ALLOCATED TO DDNAME (SYSUT7 )
- DSN (SYS16305.T230106.RA000.KC03R25A.R0111589 )
- STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
- VOL SER NOS= TEMP00
- IEF142I KC03R25A JSTEP01 - STEP WAS EXECUTED - COND CODE 0000
- IEF285I IGY420.SIGYCOMP KEPT
- IEF285I VOL SER NOS= Z1PRD2.
- IEF285I KC03R25.KC03R25A.JOB00223.D0000101.? SYSIN
- IGD106I SYS16305.T230106.RA000.KC03R25A.OBJMOD.H01 PASSED, DDNAME=SYSLIN
- IEF285I KC03R25.KC03R25A.JOB00223.D0000102.? SYSOUT
- IGD105I SYS16305.T230106.RA000.KC03R25A.R0111583 DELETED, DDNAME=SYSUT1
- IGD105I SYS16305.T230106.RA000.KC03R25A.R0111584 DELETED, DDNAME=SYSUT2
- IGD105I SYS16305.T230106.RA000.KC03R25A.R0111585 DELETED, DDNAME=SYSUT3
- IGD105I SYS16305.T230106.RA000.KC03R25A.R0111586 DELETED, DDNAME=SYSUT4
- IGD105I SYS16305.T230106.RA000.KC03R25A.R0111587 DELETED, DDNAME=SYSUT5
- IGD105I SYS16305.T230106.RA000.KC03R25A.R0111588 DELETED, DDNAME=SYSUT6
- IGD105I SYS16305.T230106.RA000.KC03R25A.R0111589 DELETED, DDNAME=SYSUT7
- IEF373I STEP/JSTEP01 /START 2016305.2301
- IEF032I STEP/JSTEP01 /STOP 2016305.2301
- CPU: 0 HR 00 MIN 00.04 SEC SRB: 0 HR 00 MIN 00.01 SEC
- VIRT: 1024K SYS: 288K EXT: 32724K SYS: 11452K
- ATB- REAL: 12K SLOTS: 0K
- VIRT- ALLOC: 2M SHRD: 0M
- IEF236I ALLOC. FOR KC03R25A JSTEP02
- IEF237I A001 ALLOCATED TO SYSLIB
- IGD103I SMS ALLOCATED TO DDNAME SYSLIN
- IEF237I JES2 ALLOCATED TO SYSLOUT
- IGD103I SMS ALLOCATED TO DDNAME FUNDFILE
- IGD101I SMS ALLOCATED TO DDNAME (HISALES )
- DSN (SYS16305.T230106.RA000.KC03R25A.R0111590 )
- STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
- VOL SER NOS= TEMP00
- IEF237I JES2 ALLOCATED TO RPTFILE
- IEF237I JES2 ALLOCATED TO SYSUDUMP
- IEF142I KC03R25A JSTEP02 - STEP WAS EXECUTED - COND CODE 0000
- IEF285I CEE.SCEELKED KEPT
- IEF285I VOL SER NOS= Z1RES1.
- IEF285I KC03R25.KC03R25A.JOB00223.D0000103.? SYSOUT
- IGD104I KC02322.CSCI465.DATAFA16 RETAINED, DDNAME=FUNDFILE
- IEF285I KC03R25.KC03R25A.JOB00223.D0000104.? SYSOUT
- IEF285I KC03R25.KC03R25A.JOB00223.D0000105.? SYSOUT
- IEF373I STEP/JSTEP02 /START 2016305.2301
- IEF032I STEP/JSTEP02 /STOP 2016305.2301
- CPU: 0 HR 00 MIN 00.03 SEC SRB: 0 HR 00 MIN 00.00 SEC
- VIRT: 156K SYS: 284K EXT: 2560K SYS: 11404K
- ATB- REAL: 24K SLOTS: 0K
- VIRT- ALLOC: 4M SHRD: 0M
- IGD103I SMS ALLOCATED TO DDNAME SYS00001
- IGD104I SYS16305.T230107.RA000.KC03R25A.R0111591 RETAINED, DDNAME=SYS00001
- IGD105I SYS16305.T230106.RA000.KC03R25A.OBJMOD.H01 DELETED, DDNAME=SYSLIN
- IGD103I SMS ALLOCATED TO DDNAME SYS00002
- IGD104I SYS16305.T230107.RA000.KC03R25A.R0111592 RETAINED, DDNAME=SYS00002
- IGD105I SYS16305.T230106.RA000.KC03R25A.R0111590 DELETED, DDNAME=HISALES
- IEF375I JOB/KC03R25A/START 2016305.2301
- IEF033I JOB/KC03R25A/STOP 2016305.2301
- CPU: 0 HR 00 MIN 00.07 SEC SRB: 0 HR 00 MIN 00.01 SEC
- !! END OF JES SPOOL FILE !!
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 Date 10/31/2016 Time 23:01:06 Page 1
- Invocation parameters:
- FLAG(I,I),APOST,LIST
- Options in effect:
- NOADATA
- ADV
- APOST
- ARITH(COMPAT)
- NOAWO
- NOBLOCK0
- BUFSIZE(4096)
- NOCICS
- CODEPAGE(1140)
- NOCOMPILE(S)
- NOCURRENCY
- DATA(31)
- NODATEPROC
- DBCS
- NODECK
- NODIAGTRUNC
- NODLL
- NODUMP
- NODYNAM
- NOEXIT
- NOEXPORTALL
- NOFASTSRT
- FLAG(I,I)
- NOFLAGMIG4
- NOFLAGSTD
- INTDATE(ANSI)
- LANGUAGE(EN)
- NOLIB
- LINECOUNT(60)
- LIST
- NOMAP
- NOMDECK
- NONAME
- NSYMBOL(NATIONAL)
- NONUMBER
- NUMPROC(NOPFD)
- OBJECT
- NOOFFSET
- NOOPTIMIZE
- OUTDD(SYSOUT)
- PGMNAME(COMPAT)
- RENT
- RMODE(AUTO)
- SEQUENCE
- SIZE(MAX)
- SOURCE
- SPACE(1)
- NOSQL
- SQLCCSID
- NOSSRANGE
- NOTERM
- NOTEST
- NOTHREAD
- TRUNC(STD)
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 Date 10/31/2016 Time 23:01:06 Page 2
- NOVBREF
- NOWORD
- XMLPARSE(XMLSS)
- XREF(FULL)
- YEARWINDOW(1900)
- ZWB
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 3
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000001 ****************************************************************
- 000002 * PROGRAM NAME: FUNDRPT1 *
- 000003 * *
- 000004 * FUNCTION: THIS PROGRAM READS DATA FROM AN INPUT FILE, *
- 000005 * FORMATS IT, CALCULATES ADDITIONAL INFORMATION *
- 000006 * AND DISPLAYS IT IN A REPORT. ONCE THIS HAS BEEN *
- 000007 * ACCOMPLISHED, THE REPORT IS FILTERED TO MAKE A *
- 000008 * NEW REPORT ON THE HIGH SELLING BROKERS. *
- 000009 * *
- 000010 * INPUT: FUNDFILE - THE INPUT DATA FILE *
- 000011 * *
- 000012 * OUTPUT: THE 132-BYTE LINES OF THE REPORT CREATED *
- 000013 * *
- 000014 ****************************************************************
- 000015
- 000016 IDENTIFICATION DIVISION.
- 000017
- 000018 PROGRAM-ID. FUNDRPT1.
- 000019 AUTHOR. JACK T MANN.
- 000020 INSTALLATION. NORTHERN ILLINOIS UNIVERSITY.
- 000021 DATE-WRITTEN. 10/21/2016.
- 000022 DATE-COMPILED. 10/31/16.
- 000023
- 000024
- 000025 ENVIRONMENT DIVISION.
- 000026
- 000027 INPUT-OUTPUT SECTION.
- 000028
- 000029 FILE-CONTROL.
- 000030
- 000031 SELECT FUND-FILE ASSIGN TO FUNDFILE. 39
- 000032 SELECT HISALES-FILE ASSIGN TO HISALES. 44
- 000033 SELECT FUND-REPORT-FILE ASSIGN TO RPTFILE. 51
- 000034
- 000035 DATA DIVISION.
- 000036
- 000037 FILE SECTION.
- 000038
- 000039 FD FUND-FILE
- 000040 RECORDING MODE IS F.
- 000041
- 000042 01 FUND-RECORD PIC X(80).
- 000043
- 000044 FD HISALES-FILE
- 000045 RECORDING MODE IS F.
- 000046
- 000047 01 HISALES-RECORD PIC X(132).
- 000048
- 000049
- 000050
- 000051 FD FUND-REPORT-FILE
- 000052 RECORDING MODE IS F.
- 000053
- 000054 01 FUND-REPORT-RECORD PIC X(132).
- 000055
- 000056 WORKING-STORAGE SECTION.
- 000057 ***************************************************************
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 4
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000058 * WORKING-STORAGE: *
- 000059 * IN-FUND-FIRST-READ BRINGS IN INFORMATION EXCLUSIVE TO THE *
- 000060 * FIRST LINE OF FUNDFILE *
- 000061 * HISALES-* ASSOCIATED WITH THE SECOND HISALES REPORTS *
- 000062 * FOR BROKERS WHO HAVE SOLD AN EXCEPTIONAL AMOUNT *
- 000063 * OF SHARES. *
- 000064 * *
- 000065 ***************************************************************
- 000066
- 000067 01 EOF-FLAG PIC X VALUE 'N'.
- 000068
- 000069 01 TEMP-VARIABLES.
- 000070 05 TEMP-SHARES-SOLD PIC S9(8)V9(3).
- 000071 05 TEMP-CMS-AMT PIC S9(6)V99.
- 000072
- 000073 01 COUNTERS.
- 000074 05 LINE-CTR PIC 9(2) COMP SYNC VALUE 99.
- 000075 05 PAGE-CTR PIC 9(3) COMP-3 VALUE 0.
- 000076 05 RECORD-CTR PIC 9(3) COMP-3 VALUE 0.
- 000077
- 000078 01 TOTALS.
- 000079 05 TOTAL-DEPOSIT-AMT PIC S9(12)V99 COMP-3 VALUE 0.
- 000080 05 TOTAL-SHARES-SOLD PIC S9(12)V99 COMP-3 VALUE 0.
- 000081 05 TOTAL-COMMISSION PIC S9(12)V99 COMP-3 VALUE 0.
- 000082
- 000083 01 CURRENT-DATE-FIELDS.
- 000084 05 CURRENT-DATE.
- 000085 10 CURRENT-YEAR PIC 9(4).
- 000086 10 CURRENT-MONTH PIC 9(2).
- 000087 10 CURRENT-DAY PIC 9(2).
- 000088 05 CURRENT-TIME.
- 000089 10 CURRENT-HOUR PIC 9(2).
- 000090 10 CURRENT-MINUTE PIC 9(2).
- 000091 10 CURRENT-SECOND PIC 9(2).
- 000092 10 CURRENT-MS PIC 9(2).
- 000093 05 DIFF-FROM-GMT PIC S9(4).
- 000094
- 000095 01 FUND-REPORT-HDR-1.
- 000096 05 CURRENT-DAY PIC 99.
- 000097 05 FILLER PIC X VALUE '/'.
- 000098 05 CURRENT-MONTH PIC 99.
- 000099 05 FILLER PIC X VALUE '/'.
- 000100 05 CURRENT-YEAR PIC 9999.
- 000101 05 FILLER PIC X(43) VALUE SPACES. IMP
- 000102 05 OUT-FUND-NME PIC X(25).
- 000103 05 FILLER PIC X(45) VALUE SPACES. IMP
- 000104 05 FILLER PIC X(6) VALUE 'PAGE: '.
- 000105 05 OUT-PAGE-CTR PIC ZZ9.
- 000106
- 000107 01 FUND-REPORT-SUBHDR-1.
- 000108 05 CURRENT-HOUR PIC 99.
- 000109 05 FILLER PIC X VALUE ':'.
- 000110 05 CURRENT-MINUTE PIC 99.
- 000111 05 FILLER PIC X VALUE ':'.
- 000112 05 CURRENT-SECOND PIC 99.
- 000113 05 FILLER PIC X(42) VALUE SPACES. IMP
- 000114 05 SUBHDR-NME PIC X(33)
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 5
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000115 VALUE 'DAILY BROKER SALES AND COMMISSION'.
- 000116 05 FILLER PIC X(49) VALUE SPACES. IMP
- 000117
- 000118 01 FUND-COL-HDR.
- 000119 05 OUT-COL-HDR-BRANCH-NME PIC X(11)
- 000120 VALUE 'BRANCH NAME'.
- 000121 05 FILLER PIC X(23) VALUE SPACES. IMP
- 000122 05 OUT-COL-HDR-BROKER-NME PIC X(11)
- 000123 VALUE 'BROKER NAME'.
- 000124 05 FILLER PIC X(23) VALUE SPACES. IMP
- 000125 05 OUT-COL-HDR-DEPOSIT-AMT PIC X(14)
- 000126 VALUE 'DEPOSIT AMOUNT'.
- 000127 05 FILLER PIC X(16) VALUE SPACES. IMP
- 000128 05 OUT-COL-HDR-SHARES-SOLD PIC X(11)
- 000129 VALUE 'SHARES SOLD'.
- 000130 05 FILLER PIC X(14) VALUE SPACES. IMP
- 000131 05 OUT-COL-HDR-CMS-AMT PIC X(9)
- 000132 VALUE 'COMISSION'.
- 000133
- 000134 01 FUND-COL-HYPHEN.
- 000135 05 HYPHENS PIC X(11) VALUE ALL '-'.
- 000136 05 FILLER PIC X(23) VALUE SPACES. IMP
- 000137 05 HYPHENS PIC X(11) VALUE ALL '-'.
- 000138 05 FILLER PIC X(23) VALUE SPACES. IMP
- 000139 05 HYPHENS PIC X(14) VALUE ALL '-'.
- 000140 05 FILLER PIC X(14) VALUE SPACES. IMP
- 000141 05 HYPHENS PIC X(13) VALUE ALL '-'.
- 000142 05 FILLER PIC X(12) VALUE SPACES. IMP
- 000143 05 HYPHENS PIC X(11) VALUE ALL '-'.
- 000144
- 000145 01 FUND-TOTALS-HDR.
- 000146 05 OUT-RECORD-CTR-HDR PIC X(15)
- 000147 VALUE 'NUMBER OF SALES'.
- 000148 05 FILLER PIC X(19) VALUE SPACES. IMP
- 000149 05 OUT-TOTAL-DEPOSIT-AMT-HDR PIC X(20)
- 000150 VALUE 'TOTAL DEPOSIT AMOUNT'.
- 000151 05 FILLER PIC X(23) VALUE SPACES. IMP
- 000152 05 OUT-TOTAL-SHARES-SOLD-HDR PIC X(17)
- 000153 VALUE 'TOTAL SHARES SOLD'.
- 000154 05 FILLER PIC X(16) VALUE SPACES. IMP
- 000155 05 OUT-TOTAL-COMMISSION-HDR PIC X(22)
- 000156 VALUE 'TOTAL COMMISSIONS PAID'.
- 000157
- 000158 01 FUND-TOTALS-HYPHEN.
- 000159 05 HYPHEN PIC X(15) VALUE ALL '-'.
- 000160 05 FILLER PIC X(19) VALUE SPACES. IMP
- 000161 05 HYPHEN PIC X(20) VALUE ALL '-'.
- 000162 05 FILLER PIC X(23) VALUE SPACES. IMP
- 000163 05 HYPHEN PIC X(17) VALUE ALL '-'.
- 000164 05 FILLER PIC X(16) VALUE SPACES. IMP
- 000165 05 HYPHEN PIC X(22) VALUE ALL '-'.
- 000166
- 000167 01 FUND-TOTALS.
- 000168 05 OUT-RECORD-CTR PIC ZZ9.
- 000169 05 FILLER PIC X(31) VALUE SPACES. IMP
- 000170 05 OUT-TOTAL-DEPOSIT-AMT PIC $$$$,$$$,$$$,$$9.99.
- 000171 05 FILLER PIC X(21) VALUE SPACES. IMP
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 6
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000172 05 OUT-TOTAL-SHARES-SOLD PIC ZZ,ZZZ,ZZZ,ZZ9.9999.
- 000173 05 FILLER PIC X(19) VALUE SPACES. IMP
- 000174 05 OUT-TOTAL-COMMISSION PIC $$$$,$$$,$$$,$$9.99.
- 000175
- 000176 01 IN-FUND-FIRST-READ.
- 000177 05 IN-FUND-SHR-PRC PIC S9(3)V99.
- 000178 05 IN-FUND-NME PIC X(25).
- 000179 05 IN-FUND-CMS-PERCENT-1 PIC S9V9(5).
- 000180 05 IN-FUND-CMS-PERCENT-2 PIC S9V9(5).
- 000181 05 IN-FUND-CMS-PERCENT-3 PIC S9V9(5).
- 000182 05 FILLER PIC X(32) VALUE SPACES. IMP
- 000183
- 000184 01 IN-FUND-RECORD.
- 000185 05 IN-FUND-BRNCH-NME PIC X(25).
- 000186 05 IN-FUND-BROKER-NME PIC X(25).
- 000187 05 IN-FUND-DEPOSIT-AMT PIC S9(8)V9(2).
- 000188 05 FILLER PIC X(4) VALUE SPACES. IMP
- 000189 05 IN-FUND-CMS-FLAG PIC S9.
- 000190 05 FILLER PIC X(15) VALUE SPACES. IMP
- 000191
- 000192 01 OUT-FUND-RECORD.
- 000193 05 OUT-FUND-BRNCH-NME PIC X(25).
- 000194 05 FILLER PIC X(9) VALUE SPACES. IMP
- 000195 05 OUT-FUND-BROKER-NME PIC X(25).
- 000196 05 FILLER PIC X(9) VALUE SPACES. IMP
- 000197 05 OUT-FUND-DEPOSIT-AMT PIC $$$,$$$,$$9.99.
- 000198 05 FILLER PIC X(9) VALUE SPACES. IMP
- 000199 05 OUT-FUND-SHARES-SOLD PIC Z,ZZZ,ZZZ,ZZ9.9999.
- 000200 05 FILLER PIC X(9) VALUE SPACES. IMP
- 000201 05 OUT-FUND-CMS-AMT PIC $$$,$$$,$$9.99.
- 000202
- 000203 01 HISALES-COL-HDR.
- 000204 05 FILLER PIC X(29) VALUE SPACES. IMP
- 000205 05 BROKER-NAME PIC X(11)
- 000206 VALUE 'BROKER NAME'.
- 000207 05 FILLER PIC X(44) VALUE SPACES. IMP
- 000208 05 SHARES-SOLD PIC X(11)
- 000209 VALUE 'SHARES SOLD'.
- 000210 05 FILLER PIC X(37) VALUE SPACES. IMP
- 000211
- 000212 01 HISALES-RECORD-DETAIL.
- 000213 05 FILLER PIC X(29) VALUE SPACES. IMP
- 000214 05 OUT-HISALES-BROKER-NME PIC X(25).
- 000215 05 FILLER PIC X(29) VALUE SPACES. IMP
- 000216 05 OUT-HISALES-SHARES-SOLD PIC Z,ZZZ,ZZZ,ZZ9.9999.
- 000217 05 FILLER PIC X(30) VALUE SPACES. IMP
- 000218
- 000219 01 HISALES-TOTALS.
- 000220 05 FILLER PIC X(50) VALUE SPACES. IMP
- 000221 05 HISALES-RECORD-CTR PIC ZZZ9.
- 000222 05 FILLER PIC X(29) VALUE SPACES. IMP
- 000223 05 HISALES-TOTAL-SHARES-SOLD PIC ZZ,ZZZ,ZZZ,ZZ9.9999.
- 000224 05 FILLER PIC X(29) VALUE SPACES. IMP
- 000225
- 000226 01 HISALES-TOTALS-HDR.
- 000227 05 FILLER PIC X(45) VALUE SPACES. IMP
- 000228 05 HISALES-RECORD-HDR PIC X(13)
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 7
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000229 VALUE 'TOTAL BROKERS'.
- 000230 05 FILLER PIC X(30) VALUE SPACES. IMP
- 000231 05 HISALES-TOTAL-SHARES-HDR PIC X(17)
- 000232 VALUE 'TOTAL SHARES SOLD'.
- 000233 05 FILLER PIC X(27) VALUE SPACES. IMP
- 000234
- 000235 PROCEDURE DIVISION.
- 000236
- 000237 ************************************************************
- 000238 * PARAGRAPH: 0000-MAIN *
- 000239 * FUNCTION: OPENS FILES FOR INPUT/OUTPUT, CALLS *
- 000240 * APPROPRIATE SUB-PARAGRAPHS TO ACCOMPLISH *
- 000241 * THE PRIMARY FUNCTION OF THE PROGRAM. *
- 000242 * *
- 000243 ************************************************************
- 000244
- 000245 0000-MAIN.
- 000246
- 000247 MOVE FUNCTION CURRENT-DATE TO CURRENT-DATE-FIELDS. IFN 83
- 000248 MOVE CORRESPONDING CURRENT-DATE TO FUND-REPORT-HDR-1. 84 95
- 000249 MOVE CORRESPONDING CURRENT-TIME TO FUND-REPORT-SUBHDR-1. 88 107
- 000250
- 000251 OPEN INPUT FUND-FILE 39
- 000252 OUTPUT FUND-REPORT-FILE. 51
- 000253
- 000254 READ FUND-FILE INTO IN-FUND-FIRST-READ 39 176
- 000255 1 AT END MOVE 'Y' TO EOF-FLAG 67
- 000256 END-READ.
- 000257
- 000258 READ FUND-FILE INTO IN-FUND-RECORD 39 184
- 000259 1 AT END MOVE 'Y' TO EOF-FLAG 67
- 000260 END-READ.
- 000261
- 000262 PERFORM 1000-PROCESS-FUND 309
- 000263 UNTIL EOF-FLAG = 'Y'. 67
- 000264
- 000265 MOVE ' BROKER DEPOSITS AND CMS TOTALS ' TO SUBHDR-NME. 114
- 000266
- 000267 PERFORM 0110-PRINT-TOTALS. 392
- 000268
- 000269 CLOSE FUND-FILE 39
- 000270 FUND-REPORT-FILE. 51
- 000271
- 000272 OPEN INPUT FUND-FILE 39
- 000273 OUTPUT HISALES-FILE. 44
- 000274
- 000275 MOVE 99 TO LINE-CTR. 74
- 000276
- 000277 READ FUND-FILE INTO IN-FUND-FIRST-READ 39 176
- 000278 1 AT END MOVE 'Y' TO EOF-FLAG 67
- 000279 END-READ.
- 000280
- 000281 READ FUND-FILE INTO IN-FUND-RECORD 39 184
- 000282 1 AT END MOVE 'Y' TO EOF-FLAG 67
- 000283 END-READ.
- 000284
- 000285 MOVE ' LARGE DEPOSITOR REPORT ' TO SUBHDR-NME. 114
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 8
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000286 MOVE 0 TO TOTAL-SHARES-SOLD. 80
- 000287 MOVE 0 TO RECORD-CTR. 76
- 000288
- 000289 PERFORM 0100-PROCESS-HISALES 427
- 000290 UNTIL EOF-FLAG = 'Y'. 67
- 000291
- 000292 MOVE ' LARGE DEPOSITOR TOTALS ' TO SUBHDR-NME. 114
- 000293
- 000294 PERFORM 0001-PRINT-HISALES-TOTALS. 487
- 000295
- 000296 CLOSE FUND-FILE 39
- 000297 HISALES-FILE. 44
- 000298
- 000299 GOBACK.
- 000300
- 000301 0000-EXIT. EXIT.
- 000302 **************************************************
- 000303 * NAME: 1000-PROCESS-FUND *
- 000304 * FUNCTION: PROPERLY FORMATS THE FUND'S SALES *
- 000305 * REPORT *
- 000306 * *
- 000307 **************************************************
- 000308
- 000309 1000-PROCESS-FUND.
- 000310
- 000311 MOVE IN-FUND-BRNCH-NME TO OUT-FUND-BRNCH-NME. 185 193
- 000312 MOVE IN-FUND-BROKER-NME TO OUT-FUND-BROKER-NME. 186 195
- 000313 MOVE IN-FUND-DEPOSIT-AMT TO OUT-FUND-DEPOSIT-AMT. 187 197
- 000314
- 000315 IF IN-FUND-CMS-FLAG = 1 189
- 000316 1 COMPUTE TEMP-CMS-AMT ROUNDED = 71
- 000317 1 IN-FUND-CMS-PERCENT-1 * IN-FUND-DEPOSIT-AMT 179 187
- 000318 1 MOVE TEMP-CMS-AMT TO OUT-FUND-CMS-AMT 71 201
- 000319 1 ELSE IF IN-FUND-CMS-FLAG = 2 189
- 000320 2 COMPUTE TEMP-CMS-AMT ROUNDED = 71
- 000321 2 IN-FUND-CMS-PERCENT-2 * IN-FUND-DEPOSIT-AMT 180 187
- 000322 2 MOVE TEMP-CMS-AMT TO OUT-FUND-CMS-AMT 71 201
- 000323 1 ELSE
- 000324 2 COMPUTE TEMP-CMS-AMT ROUNDED = 71
- 000325 2 IN-FUND-CMS-PERCENT-3 * IN-FUND-DEPOSIT-AMT 181 187
- 000326 2 MOVE TEMP-CMS-AMT TO OUT-FUND-CMS-AMT 71 201
- 000327 1 END-IF.
- 000328
- 000329 COMPUTE TEMP-SHARES-SOLD ROUNDED = 70
- 000330 IN-FUND-DEPOSIT-AMT / IN-FUND-SHR-PRC. 187 177
- 000331 MOVE TEMP-SHARES-SOLD TO OUT-FUND-SHARES-SOLD. 70 199
- 000332
- 000333 IF LINE-CTR > 15 74
- 000334 1 PERFORM 1100-WRITE-HEADERS. 362
- 000335
- 000336 WRITE FUND-REPORT-RECORD 54
- 000337 FROM OUT-FUND-RECORD AFTER 2. 192
- 000338
- 000339 ADD 1 TO LINE-CTR. 74
- 000340
- 000341 ADD 1 TO RECORD-CTR. 76
- 000342
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 9
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000343 ADD IN-FUND-DEPOSIT-AMT TO TOTAL-DEPOSIT-AMT. 187 79
- 000344
- 000345 ADD TEMP-SHARES-SOLD TO TOTAL-SHARES-SOLD. 70 80
- 000346
- 000347 ADD TEMP-CMS-AMT TO TOTAL-COMMISSION. 71 81
- 000348
- 000349 READ FUND-FILE INTO IN-FUND-RECORD 39 184
- 000350 1 AT END MOVE 'Y' TO EOF-FLAG 67
- 000351 END-READ.
- 000352
- 000353 1000-EXIT. EXIT.
- 000354
- 000355 **********************************************
- 000356 * NAME: 1100-WRITE-HEADERS *
- 000357 * FUNCTION: WRITES THE HEADERS AND BRINGS *
- 000358 * THE REPORT TO A NEW PAGE EVERY *
- 000359 * 15 LINES. *
- 000360 **********************************************
- 000361
- 000362 1100-WRITE-HEADERS.
- 000363
- 000364 ADD 1 TO PAGE-CTR. 75
- 000365
- 000366 MOVE PAGE-CTR TO OUT-PAGE-CTR. 75 105
- 000367
- 000368 MOVE IN-FUND-NME TO OUT-FUND-NME. 178 102
- 000369
- 000370 WRITE FUND-REPORT-RECORD 54
- 000371 FROM FUND-REPORT-HDR-1 AFTER PAGE. 95
- 000372
- 000373 WRITE FUND-REPORT-RECORD 54
- 000374 FROM FUND-REPORT-SUBHDR-1. 107
- 000375
- 000376 WRITE FUND-REPORT-RECORD 54
- 000377 FROM FUND-COL-HDR. 118
- 000378
- 000379 WRITE FUND-REPORT-RECORD 54
- 000380 FROM FUND-COL-HYPHEN. 134
- 000381
- 000382 MOVE 0 TO LINE-CTR. 74
- 000383
- 000384 1100-EXIT. EXIT.
- 000385 **************************************************
- 000386 * NAME: 0110-PRINT-TOTALS. *
- 000387 * FUNCTION: PRINTS OUT THE HEADER AND TOTAL INFO *
- 000388 * FOR THE SALES REPORT *
- 000389 * *
- 000390 **************************************************
- 000391
- 000392 0110-PRINT-TOTALS.
- 000393 ADD 1 TO PAGE-CTR. 75
- 000394
- 000395 MOVE PAGE-CTR TO OUT-PAGE-CTR. 75 105
- 000396
- 000397 MOVE IN-FUND-NME TO OUT-FUND-NME. 178 102
- 000398
- 000399 WRITE FUND-REPORT-RECORD 54
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 10
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000400 FROM FUND-REPORT-HDR-1 AFTER PAGE. 95
- 000401
- 000402 WRITE FUND-REPORT-RECORD 54
- 000403 FROM FUND-REPORT-SUBHDR-1. 107
- 000404
- 000405 WRITE FUND-REPORT-RECORD FROM FUND-TOTALS-HDR. 54 145
- 000406
- 000407 WRITE FUND-REPORT-RECORD FROM FUND-TOTALS-HYPHEN. 54 158
- 000408
- 000409 MOVE RECORD-CTR TO OUT-RECORD-CTR. 76 168
- 000410 MOVE TOTAL-COMMISSION TO OUT-TOTAL-COMMISSION. 81 174
- 000411 MOVE TOTAL-DEPOSIT-AMT TO OUT-TOTAL-DEPOSIT-AMT. 79 170
- 000412 MOVE TOTAL-SHARES-SOLD TO OUT-TOTAL-SHARES-SOLD. 80 172
- 000413
- 000414 WRITE FUND-REPORT-RECORD FROM FUND-TOTALS AFTER 2. 54 167
- 000415
- 000416 MOVE 0 TO LINE-CTR. 74
- 000417
- 000418 0110-EXIT. EXIT.
- 000419 **************************************************************
- 000420 * NAME: PROCESS HISALES *
- 000421 * FUNCTION: READS FUNDFILE AND FILTERS HIGH EARNERS; *
- 000422 * WRITES REPORT TO HISALES-FILE *
- 000423 * *
- 000424 * *
- 000425 **************************************************************
- 000426
- 000427 0100-PROCESS-HISALES.
- 000428
- 000429 IF LINE-CTR > 15 74
- 000430 1 PERFORM 1110-PRINT-HISALES-HDR. 461
- 000431
- 000432 MOVE IN-FUND-BRNCH-NME TO OUT-FUND-BRNCH-NME. 185 193
- 000433 MOVE IN-FUND-BROKER-NME TO OUT-FUND-BROKER-NME. 186 195
- 000434 MOVE IN-FUND-DEPOSIT-AMT TO OUT-FUND-DEPOSIT-AMT. 187 197
- 000435
- 000436 READ FUND-FILE INTO IN-FUND-RECORD 39 184
- 000437 1 AT END MOVE 'Y' TO EOF-FLAG 67
- 000438 END-READ.
- 000439
- 000440 COMPUTE TEMP-SHARES-SOLD ROUNDED = 70
- 000441 IN-FUND-DEPOSIT-AMT / IN-FUND-SHR-PRC. 187 177
- 000442
- 000443 IF TEMP-SHARES-SOLD > 825000 70
- 000444 1 MOVE IN-FUND-BROKER-NME TO OUT-HISALES-BROKER-NME 186 214
- 000445 1 MOVE TEMP-SHARES-SOLD TO OUT-HISALES-SHARES-SOLD 70 216
- 000446 1 WRITE HISALES-RECORD FROM HISALES-RECORD-DETAIL 47 212
- 000447 1 ADD 1 TO RECORD-CTR 76
- 000448 1 ADD TEMP-SHARES-SOLD TO TOTAL-SHARES-SOLD 70 80
- 000449 END-IF.
- 000450
- 000451 0100-EXIT. EXIT.
- 000452 **************************************************
- 000453 * NAME: 1110-PRINT-HISALES-HDR *
- 000454 * FUNCTION: PRINTS THE HEADER INFORMATION FOR *
- 000455 * THE HISALES REPORT EVERY 15 LINES. *
- 000456 * *
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 11
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000457 * *
- 000458 * *
- 000459 **************************************************
- 000460
- 000461 1110-PRINT-HISALES-HDR.
- 000462 ADD 1 TO PAGE-CTR. 75
- 000463
- 000464 MOVE PAGE-CTR TO OUT-PAGE-CTR. 75 105
- 000465
- 000466 MOVE IN-FUND-NME TO OUT-FUND-NME. 178 102
- 000467
- 000468 WRITE HISALES-RECORD 47
- 000469 FROM FUND-REPORT-HDR-1 AFTER PAGE. 95
- 000470
- 000471 WRITE HISALES-RECORD 47
- 000472 FROM FUND-REPORT-SUBHDR-1. 107
- 000473
- 000474 WRITE HISALES-RECORD 47
- 000475 FROM HISALES-COL-HDR. 203
- 000476
- 000477 MOVE 0 TO LINE-CTR. 74
- 000478 1110-EXIT. EXIT.
- 000479 ******************************************************
- 000480 * NAME: 0001-PRINT-HISALES-TOTALS *
- 000481 * FUNCTION: PRINT THE TOTAL BROKERS LISTED AND TOTAL *
- 000482 * SHARES SOLD OF HISALES REPORT. *
- 000483 * *
- 000484 * *
- 000485 ******************************************************
- 000486
- 000487 0001-PRINT-HISALES-TOTALS.
- 000488 ADD 1 TO PAGE-CTR. 75
- 000489
- 000490 MOVE PAGE-CTR TO OUT-PAGE-CTR. 75 105
- 000491
- 000492 MOVE IN-FUND-NME TO OUT-FUND-NME. 178 102
- 000493
- 000494 WRITE HISALES-RECORD 47
- 000495 FROM FUND-REPORT-HDR-1 AFTER PAGE. 95
- 000496
- 000497 WRITE HISALES-RECORD 47
- 000498 FROM FUND-REPORT-SUBHDR-1. 107
- 000499
- 000500 WRITE HISALES-RECORD 47
- 000501 FROM HISALES-TOTALS-HDR. 226
- 000502
- 000503 MOVE RECORD-CTR TO HISALES-RECORD-CTR. 76 221
- 000504 MOVE TOTAL-SHARES-SOLD TO HISALES-TOTAL-SHARES-SOLD. 80 223
- 000505
- 000506 WRITE HISALES-RECORD 47
- 000507 FROM HISALES-TOTALS AFTER 2. 219
- 000508
- 000509 0001-EXIT. EXIT.
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 12
- An "M" preceding a data-name reference indicates that the data-name is modified by this reference.
- Defined Cross-reference of data names References
- 205 BROKER-NAME
- 73 COUNTERS
- 84 CURRENT-DATE . . . . . . . . . 248
- 83 CURRENT-DATE-FIELDS. . . . . . M247
- 87 CURRENT-DAY. . . . . . . . . . 248
- 96 CURRENT-DAY. . . . . . . . . . M248
- 89 CURRENT-HOUR . . . . . . . . . 249
- 108 CURRENT-HOUR . . . . . . . . . M249
- 90 CURRENT-MINUTE . . . . . . . . 249
- 110 CURRENT-MINUTE . . . . . . . . M249
- 86 CURRENT-MONTH. . . . . . . . . 248
- 98 CURRENT-MONTH. . . . . . . . . M248
- 92 CURRENT-MS
- 91 CURRENT-SECOND . . . . . . . . 249
- 112 CURRENT-SECOND . . . . . . . . M249
- 88 CURRENT-TIME . . . . . . . . . 249
- 85 CURRENT-YEAR . . . . . . . . . 248
- 100 CURRENT-YEAR . . . . . . . . . M248
- 93 DIFF-FROM-GMT
- 67 EOF-FLAG . . . . . . . . . . . M255 M259 263 M278 M282 290 M350 M437
- 118 FUND-COL-HDR . . . . . . . . . 377
- 134 FUND-COL-HYPHEN. . . . . . . . 380
- 39 FUND-FILE. . . . . . . . . . . 31 251 254 258 269 272 277 281 296 349 436
- 42 FUND-RECORD
- 51 FUND-REPORT-FILE . . . . . . . 33 252 270
- 95 FUND-REPORT-HDR-1. . . . . . . M248 371 400 469 495
- 54 FUND-REPORT-RECORD . . . . . . M336 M370 M373 M376 M379 M399 M402 M405 M407 M414
- 107 FUND-REPORT-SUBHDR-1 . . . . . M249 374 403 472 498
- 167 FUND-TOTALS. . . . . . . . . . 414
- 145 FUND-TOTALS-HDR. . . . . . . . 405
- 158 FUND-TOTALS-HYPHEN . . . . . . 407
- 203 HISALES-COL-HDR. . . . . . . . 475
- 44 HISALES-FILE . . . . . . . . . 32 273 297
- 47 HISALES-RECORD . . . . . . . . M446 M468 M471 M474 M494 M497 M500 M506
- 221 HISALES-RECORD-CTR . . . . . . M503
- 212 HISALES-RECORD-DETAIL. . . . . 446
- 228 HISALES-RECORD-HDR
- 231 HISALES-TOTAL-SHARES-HDR
- 223 HISALES-TOTAL-SHARES-SOLD. . . M504
- 219 HISALES-TOTALS . . . . . . . . 507
- 226 HISALES-TOTALS-HDR . . . . . . 501
- 159 HYPHEN
- 161 HYPHEN
- 163 HYPHEN
- 165 HYPHEN
- 135 HYPHENS
- 137 HYPHENS
- 139 HYPHENS
- 141 HYPHENS
- 143 HYPHENS
- 185 IN-FUND-BRNCH-NME. . . . . . . 311 432
- 186 IN-FUND-BROKER-NME . . . . . . 312 433 444
- 189 IN-FUND-CMS-FLAG . . . . . . . 315 319
- 179 IN-FUND-CMS-PERCENT-1. . . . . 317
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 13
- Defined Cross-reference of data names References
- 180 IN-FUND-CMS-PERCENT-2. . . . . 321
- 181 IN-FUND-CMS-PERCENT-3. . . . . 325
- 187 IN-FUND-DEPOSIT-AMT. . . . . . 313 317 321 325 330 343 434 441
- 176 IN-FUND-FIRST-READ . . . . . . M254 M277
- 178 IN-FUND-NME. . . . . . . . . . 368 397 466 492
- 184 IN-FUND-RECORD . . . . . . . . M258 M281 M349 M436
- 177 IN-FUND-SHR-PRC. . . . . . . . 330 441
- 74 LINE-CTR . . . . . . . . . . . M275 333 M339 M382 M416 429 M477
- 119 OUT-COL-HDR-BRANCH-NME
- 122 OUT-COL-HDR-BROKER-NME
- 131 OUT-COL-HDR-CMS-AMT
- 125 OUT-COL-HDR-DEPOSIT-AMT
- 128 OUT-COL-HDR-SHARES-SOLD
- 193 OUT-FUND-BRNCH-NME . . . . . . M311 M432
- 195 OUT-FUND-BROKER-NME. . . . . . M312 M433
- 201 OUT-FUND-CMS-AMT . . . . . . . M318 M322 M326
- 197 OUT-FUND-DEPOSIT-AMT . . . . . M313 M434
- 102 OUT-FUND-NME . . . . . . . . . M368 M397 M466 M492
- 192 OUT-FUND-RECORD. . . . . . . . 337
- 199 OUT-FUND-SHARES-SOLD . . . . . M331
- 214 OUT-HISALES-BROKER-NME . . . . M444
- 216 OUT-HISALES-SHARES-SOLD. . . . M445
- 105 OUT-PAGE-CTR . . . . . . . . . M366 M395 M464 M490
- 168 OUT-RECORD-CTR . . . . . . . . M409
- 146 OUT-RECORD-CTR-HDR
- 174 OUT-TOTAL-COMMISSION . . . . . M410
- 155 OUT-TOTAL-COMMISSION-HDR
- 170 OUT-TOTAL-DEPOSIT-AMT. . . . . M411
- 149 OUT-TOTAL-DEPOSIT-AMT-HDR
- 172 OUT-TOTAL-SHARES-SOLD. . . . . M412
- 152 OUT-TOTAL-SHARES-SOLD-HDR
- 75 PAGE-CTR . . . . . . . . . . . M364 366 M393 395 M462 464 M488 490
- 76 RECORD-CTR . . . . . . . . . . M287 M341 409 M447 503
- 208 SHARES-SOLD
- 114 SUBHDR-NME . . . . . . . . . . M265 M285 M292
- 71 TEMP-CMS-AMT . . . . . . . . . M316 318 M320 322 M324 326 347
- 70 TEMP-SHARES-SOLD . . . . . . . M329 331 345 M440 443 445 448
- 69 TEMP-VARIABLES
- 81 TOTAL-COMMISSION . . . . . . . M347 410
- 79 TOTAL-DEPOSIT-AMT. . . . . . . M343 411
- 80 TOTAL-SHARES-SOLD. . . . . . . M286 M345 412 M448 504
- 78 TOTALS
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 14
- Context usage is indicated by the letter preceding a procedure-name reference.
- These letters and their meanings are:
- A = ALTER (procedure-name)
- D = GO TO (procedure-name) DEPENDING ON
- E = End of range of (PERFORM) through (procedure-name)
- G = GO TO (procedure-name)
- P = PERFORM (procedure-name)
- T = (ALTER) TO PROCEED TO (procedure-name)
- U = USE FOR DEBUGGING (procedure-name)
- Defined Cross-reference of procedures References
- 301 0000-EXIT
- 245 0000-MAIN
- 509 0001-EXIT
- 487 0001-PRINT-HISALES-TOTALS. . . P294
- 451 0100-EXIT
- 427 0100-PROCESS-HISALES . . . . . P289
- 418 0110-EXIT
- 392 0110-PRINT-TOTALS. . . . . . . P267
- 353 1000-EXIT
- 309 1000-PROCESS-FUND. . . . . . . P262
- 384 1100-EXIT
- 362 1100-WRITE-HEADERS . . . . . . P334
- 478 1110-EXIT
- 461 1110-PRINT-HISALES-HDR . . . . P430
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 15
- Defined Cross-reference of programs References
- 18 FUNDRPT1
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 16
- 000000 FUNDRPT1 DS 0H PROGRAM:FUNDRPT1
- USING *,15
- 000000 47F0 F028 B 40(,15) BYPASS CONSTANTS. BRANCH TO @STM
- 000004 00 DC AL1(0) ZERO NAME LENGTH FOR DUMPS
- 000005 C3C5C5 DC CL3'CEE' CEE EYE CATCHER
- 000008 00000188 DC X'00000188' STACK FRAME SIZE
- 00000C 00000014 DC A(@PPA1-FUNDRPT1) OFFSET TO PPA1 FROM PRIMARY ENTRY
- 000010 47F0 F001 B 1(,15) RESERVED
- 000014 @PPA1 DS 0H PPA1 STARTS HERE
- 000014 98 DC X'98' OFFSET TO LENGTH OF NAME FROM PPA1
- 000015 CE DC X'CE' CEL SIGNATURE
- 000016 AC DC X'AC' CEL FLAGS: '10101100'B
- 000017 00 DC X'00' MEMBER FLAGS FOR COBOL
- 000018 000000B6 DC A(@PPA2) ADDRESS OF PPA2
- 00001C 00000000 DC F'0' OFFSET TO THE BDI (NONE)
- 000020 00000000 DC F'0' ADDRESS OF ENTRY POINT DESCRIPTORS
- 000024 0000 DC X'0000' RESERVED
- 000026 00 DC X'00' DSA FPR 8-15 SAVE AREA OFFSET/16
- 000027 00 DC X'00' DSA FPR 8-15 SAVE AREA BIT MASK
- 000028 @STM DS 0H STM STARTS HERE
- 000028 90EC D00C STM 14,12,12(13) @STM: SAVE CALLER'S REGISTERS
- 00002C 4110 F038 LA 1,56(,15) GET ADDRESS OF PARMLIST INTO R1
- 000030 98EF F04C LM 14,15,76(15) LOAD ADDRESSES FROM @BRVAL
- 000034 07FF BR 15 DO ANY NECESSARY INITIALIZATION
- 000036 0000 DC AL2'0' AVAILABLE HALF-WORD
- 000038 @MAINENT DS 0H PRIMARY ENTRY POINT ADDRESS
- 000038 00000000 DC A(FUNDRPT1) @PARMS: 1) PRIMARY ENTRY POINT ADDRESS
- 00003C 00000000 DC AL4'0' 2) Available
- 000040 00001500 DC A(DAB) 3) DAB ADDRESS
- 000044 000000AE DC A(@EPNAM) 4) ENTRY POINT NAME ADDRESS
- 000048 00000000 DC A(FUNDRPT1) 5) CURRENT ENTRY POINT ADDRESS
- 00004C 000007FE DC A(START) @BRVAL: 6) PROCEDURE CODE ADDRESS
- 000050 00000000 DC V(IGZCBSO) 7) INITIALIZATION ROUTINE
- 000054 000000CA DC A(@CEEPARM) 8) ADDRESS OF PARM LIST FOR CEEINT
- 000058 00104001 DC X'00104001' DSA WORD 0 CONSTANT
- 00005C 00000000 DC AL4'0' AVAILABLE WORD
- 000060 00000000 DC AL4'0' AVAILABLE WORD
- 000064 00000000 DC AL4'0' AVAILABLE WORD
- 000068 F2F0F1F6 DC CL4'2016' @TIMEVRS: YEAR OF COMPILATION
- 00006C F1F0F3F1 DC CL4'1031' MONTH/DAY OF COMPILATION
- 000070 F2F3F0F1 DC CL4'2301' HOURS/MINUTES OF COMPILATION
- 000074 F0F6 DC CL2'06' SECONDS FOR COMPILATION DATE
- 000076 F0F4F0F2F0F0 DC CL6'040200' VERSION/RELEASE/MOD LEVEL OF PROD
- 00007C 0474 DC X'0474' UNSIGNED BINARY CODE PAGE CCSID VALUE
- 00007E 0000 DC AL2'0' AVAILABLE HALF-WORD
- 000080 1400 DC X'1400' INFO. BYTES 28-29
- 000082 076C DC X'076C' SIGNED BINARY YEARWINDOW OPTION VALUE
- 000084 E0487C4C2080 DC X'E0487C4C2080' INFO. BYTES 1-6
- 00008A 00004280090B DC X'00004280090B' INFO. BYTES 7-12
- 000090 800040500800 DC X'800040500800' INFO. BYTES 13-18
- 000096 0000000000 DC X'0000000000' INFO. BYTES 19-23
- 00009B 00 DC X'00' COBOL SIGNATURE LEVEL
- 00009C 0000005D DC X'0000005D' # DATA DIVISION STATEMENTS
- 0000A0 0000006B DC X'0000006B' # PROCEDURE DIVISION STATEMENTS
- 0000A4 000480 DC X'000480' INFO. BYTES 24-26
- 0000A7 00 DC X'00' INFO. BYTE 27
- 0000A8 40404040 DC C' ' USER LEVEL INFO (LVLINFO)
- 0000AC 0008 DC X'0008' LENGTH OF PROGRAM NAME
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 17
- 0000AE @EPNAM DS 0H ENTRY POINT NAME
- 0000AE C6E4D5C4D9D7E3F1 DC C'FUNDRPT1' PROGRAM NAME
- 0000B6 @PPA2 DS 0H PPA2 STARTS HERE
- 0000B6 05 DC X'05' CEL MEMBER IDENTIFIER
- 0000B7 00 DC X'00' CEL MEMBER SUB-IDENTIFIER
- 0000B8 00 DC X'00' CEL MEMBER DEFINED BYTE
- 0000B9 01 DC X'01' CONTROL LEVEL OF PROLOG
- 0000BA 00000000 DC V(CEESTART) VCON FOR LOAD MODULE
- 0000BE 00000000 DC F'0' OFFSET TO THE CDI (NONE)
- 0000C2 FFFFFFB2 DC A(@TIMEVRS-@PPA2) OFFSET TO TIMESTAMP/VERSION INFO
- 0000C6 00000000 DC A(FUNDRPT1) ADDRESS OF CU PRIMARY ENTRY POINT
- 0000CA @CEEPARM DS 0H PARM LIST FOR CEEINT
- 0000CA 00000038 DC A(@MAINENT) POINTER TO PRIMARY ENTRY PT ADDR
- 0000CE 00000008 DC A(@PARMCEE-@CEEPARM) OFFSET TO PARAMETERS FOR CEEINT
- 0000D2 @PARMCEE DS 0H PARAMETERS FOR CEEINT
- 0000D2 00000006 DC F'6' 1) NUMBER OF ENTRIES IN PARM LIST
- 0000D6 00000038 DC A(@MAINENT) 2) POINTER TO PRIMARY ENTRY PT ADDR
- 0000DA 00000000 DC V(CEESTART) 3) ADDRESS OF CEESTART
- 0000DE 00000000 DC V(CEEBETBL) 4) ADDRESS OF CEEBETBL
- 0000E2 00000005 DC F'5' 5) CEL MEMBER IDENTIFIER
- 0000E6 00000000 DC F'0' 6) FOR CEL MEMBER USE
- 0000EA 00000000 DC AL4'0' AVAILABLE WORD
- 0000EE 00000000 DC AL4'0' AVAILABLE WORD
- 0000F2 00000000 DC AL4'0' AVAILABLE WORD
- 0000F6 00000000 DC AL4'0' AVAILABLE WORD
- 0000FA 0000 DC AL2'0' AVAILABLE HALF-WORD
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 18
- PROGRAM GLOBAL TABLE BEGINS AT LOCATION 0000FC FOR 00003C BYTES
- THE PGT CONTAINS 000001 CELL(S) FOR ADDRESSABILITY TO THE CGT
- PBL1 AT LOCATION 0005A8 FOR LINE 18
- LITERAL POOL MAP FOR SYSTEM LITERALS IN THE PGT:
- 0000FC (LIT+0) 00000064 00000001 40404040 40404040 40404040 40404040 40404040 40404040 |........ |
- 00011C (LIT+32) 40404040 40404040 00000000 0000000C 000F | .......... |
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 19
- CONSTANT GLOBAL TABLE BEGINS AT LOCATION 000138 FOR 00028E BYTES
- LITERAL POOL MAP FOR LITERALS IN THE CGT:
- 000160 (LIT+0) FFFFFFFC 00001000 00000002 000000F7 00000001 00000000 000F0063 40404040 |...............7............ |
- 000180 (LIT+32) 40D3C1D9 C7C540C4 C5D7D6E2 C9E3D6D9 40E3D6E3 C1D3E240 40404040 40404040 | LARGE DEPOSITOR TOTALS |
- 0001A0 (LIT+64) 4040D3C1 D9C7C540 C4C5D7D6 E2C9E3D6 D940D9C5 D7D6D9E3 40404040 40404040 | LARGE DEPOSITOR REPORT |
- 0001C0 (LIT+96) C2D9D6D2 C5D940C4 C5D7D6E2 C9E3E240 C1D5C440 C3D4E240 E3D6E3C1 D3E240C4 |BROKER DEPOSITS AND CMS TOTALS D|
- 0001E0 (LIT+128) C1C9D3E8 40C2D9D6 D2C5D940 E2C1D3C5 E240C1D5 C440C3D6 D4D4C9E2 E2C9D6D5 |AILY BROKER SALES AND COMMISSION|
- 000200 (LIT+160) E3D6E3C1 D340C3D6 D4D4C9E2 E2C9D6D5 E240D7C1 C9C4E3D6 E3C1D340 C4C5D7D6 |TOTAL COMMISSIONS PAIDTOTAL DEPO|
- 000220 (LIT+192) E2C9E340 C1D4D6E4 D5E3E3D6 E3C1D340 E2C8C1D9 C5E240E2 D6D3C4D5 E4D4C2C5 |SIT AMOUNTTOTAL SHARES SOLDNUMBE|
- 000240 (LIT+224) D940D6C6 40E2C1D3 C5E2E3D6 E3C1D340 C2D9D6D2 C5D9E2C2 D9D6D2C5 D940D5C1 |R OF SALESTOTAL BROKERSBROKER NA|
- 000260 (LIT+256) D4C5C2D9 C1D5C3C8 40D5C1D4 C5C3D6D4 C9E2E2C9 D6D5C6E4 D5C4D9D7 E3F1E2E8 |MEBRANCH NAMECOMISSIONFUNDRPT1SY|
- 000280 (LIT+288) E2D6E4E3 4040C9C7 E9E2D9E3 C3C4D7C1 C7C57A40 00000000 0000000C 82500000 |SOUT IGZSRTCDPAGE: ........b&..|
- 0002A0 (LIT+320) 0F2F1F00 00013400 00000300 00012C00 00000100 00013000 00000100 00000000 |................................|
- 0002C0 (LIT+352) 00000000 00000000 0000F000 00000100 00000000 00000000 00000000 00000000 |..........0.....................|
- 0002E0 (LIT+384) 00000080 00000040 20402020 206B2020 206B2020 206B2021 204B2020 4020206B |....... . ...,...,...,...... ..,|
- 000300 (LIT+416) 2020206B 2020206B 2021204B 20202020 40204020 206B2020 206B2021 204B2020 |...,...,........ . ..,...,......|
- 000320 (LIT+448) 40000000 00000000 00000000 40202020 21204020 21200800 00000400 00004000 | ........... ..... ........... .|
- 000340 (LIT+480) 00000000 00000000 00000000 00004000 00000025 C00001C0 00080800 0034013E |.............. .................|
- 000360 (LIT+512) 40000100 02800080 00010002 80004000 01000380 00800001 00038000 40000000 | ............. ............. ...|
- 000380 (LIT+544) 0027C000 01400008 08000034 013E0290 00040800 00340034 40000000 0040C000 |..... .................. .... ..|
- 0003A0 (LIT+576) 01400008 08000034 013E02C0 00080800 0034013E 0900013C 00000900 01380000 |. ..............................|
- 0003C0 (LIT+608) 09000134 0000 |...... |
- 0005A8 GN=3 EQU *
- 0005A8 5820 9128 L 2,296(0,9) BL=1
- 0005AC D201 2008 A02C MVC 8(2,2),44(10) RETURN-CODE PGMLIT AT +4
- 0005B2 D201 2010 A02C MVC 16(2,2),44(10) SORT-RETURN PGMLIT AT +4
- 0005B8 D207 2018 A14E MVC 24(8,2),334(10) SORT-CONTROL PGMLIT AT +294
- 0005BE D203 2020 A03C MVC 32(4,2),60(10) SORT-CORE-SIZE PGMLIT AT +20
- 0005C4 D203 2028 A03C MVC 40(4,2),60(10) SORT-FILE-SIZE PGMLIT AT +20
- 0005CA D203 2030 A03C MVC 48(4,2),60(10) SORT-MODE-SIZE PGMLIT AT +20
- 0005D0 D207 2038 A146 MVC 56(8,2),326(10) SORT-MESSAGE PGMLIT AT +286
- 0005D6 D203 2040 A03C MVC 64(4,2),60(10) TALLY PGMLIT AT +20
- 0005DC 920E 2048 MVI 72(2),X'0E' SHIFT-OUT
- 0005E0 920F 2050 MVI 80(2),X'0F' SHIFT-IN
- 0005E4 D203 2058 A03C MVC 88(4,2),60(10) XML-CODE PGMLIT AT +20
- 0005EA D203 2080 A03C MVC 128(4,2),60(10) XML-INFORMATION PGMLIT AT +20
- 0005F0 D21D 2060 C008 MVC 96(30,2),8(12) XML-EVENT SYSLIT AT +8
- 0005F6 5830 D10C L 3,268(0,13) PVN=1
- 0005FA 07F3 BCR 15,3
- 0005FC GN=4 EQU *
- 0005FC 92D5 8000 MVI 0(8),X'D5' EOF-FLAG
- 000600 D201 8020 A042 MVC 32(2,8),66(10) LINE-CTR PGMLIT AT +26
- 000606 D201 8022 C030 MVC 34(2,8),48(12) PAGE-CTR SYSLIT AT +48
- 00060C D201 8024 C030 MVC 36(2,8),48(12) RECORD-CTR SYSLIT AT +48
- 000612 D207 8028 C028 MVC 40(8,8),40(12) TOTAL-DEPOSIT-AMT SYSLIT AT +40
- 000618 D207 8030 C028 MVC 48(8,8),40(12) TOTAL-SHARES-SOLD SYSLIT AT +40
- 00061E D207 8038 C028 MVC 56(8,8),40(12) TOTAL-COMMISSION SYSLIT AT +40
- 000624 9261 805A MVI 90(8),X'61' FILLER
- 000628 9261 805D MVI 93(8),X'61' FILLER*
- 00062C 9240 8062 MVI 98(8),X'40' FILLER*
- 000630 D229 8063 8062 MVC 99(42,8),98(8) FILLER+1* FILLER*
- 000636 9240 80A6 MVI 166(8),X'40' FILLER*
- 00063A D22B 80A7 80A6 MVC 167(44,8),166(8) FILLER+1* FILLER*
- 000640 D205 80D3 A156 MVC 211(6,8),342(10) FILLER* PGMLIT AT +302
- 000646 927A 80E2 MVI 226(8),X'7A' FILLER*
- 00064A 927A 80E5 MVI 229(8),X'7A' FILLER*
- 00064E 9240 80E8 MVI 232(8),X'40' FILLER*
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 20
- 000652 D228 80E9 80E8 MVC 233(41,8),232(8) FILLER+1* FILLER*
- 000658 D220 8112 A0A7 MVC 274(33,8),167(10) SUBHDR-NME PGMLIT AT +127
- 00065E 9240 8133 MVI 307(8),X'40' FILLER*
- 000662 D22F 8134 8133 MVC 308(48,8),307(8) FILLER+1* FILLER*
- 000668 D20A 8168 A12A MVC 360(11,8),298(10) OUT-COL-HDR-BRANCH-NME PGMLIT AT +258
- 00066E D216 8173 C008 MVC 371(23,8),8(12) FILLER* SYSLIT AT +8
- 000674 D20A 818A A11F MVC 394(11,8),287(10) OUT-COL-HDR-BROKER-NME PGMLIT AT +247
- 00067A D216 8195 C008 MVC 405(23,8),8(12) FILLER* SYSLIT AT +8
- 000680 D20D 81AC A0E4 MVC 428(14,8),228(10) OUT-COL-HDR-DEPOSIT-AMT PGMLIT AT +188
- 000686 D20F 81BA C008 MVC 442(16,8),8(12) FILLER* SYSLIT AT +8
- 00068C D20A 81CA A0F8 MVC 458(11,8),248(10) OUT-COL-HDR-SHARES-SOLD PGMLIT AT +208
- 000692 D20D 81D5 C008 MVC 469(14,8),8(12) FILLER* SYSLIT AT +8
- 000698 D208 81E3 A135 MVC 483(9,8),309(10) OUT-COL-HDR-CMS-AMT PGMLIT AT +269
- 00069E 9260 81F0 MVI 496(8),X'60' HYPHENS
- 0006A2 D209 81F1 81F0 MVC 497(10,8),496(8) HYPHENS+1 HYPHENS
- 0006A8 D216 81FB C008 MVC 507(23,8),8(12) FILLER* SYSLIT AT +8
- 0006AE 9260 8212 MVI 530(8),X'60' HYPHENS*
- 0006B2 D209 8213 8212 MVC 531(10,8),530(8) HYPHENS+1* HYPHENS*
- 0006B8 D216 821D C008 MVC 541(23,8),8(12) FILLER* SYSLIT AT +8
- 0006BE 9260 8234 MVI 564(8),X'60' HYPHENS*
- 0006C2 D20C 8235 8234 MVC 565(13,8),564(8) HYPHENS+1* HYPHENS*
- 0006C8 D20D 8242 C008 MVC 578(14,8),8(12) FILLER* SYSLIT AT +8
- 0006CE 9260 8250 MVI 592(8),X'60' HYPHENS*
- 0006D2 D20B 8251 8250 MVC 593(12,8),592(8) HYPHENS+1* HYPHENS*
- 0006D8 D20B 825D C008 MVC 605(12,8),8(12) FILLER* SYSLIT AT +8
- 0006DE 9260 8269 MVI 617(8),X'60' HYPHENS*
- 0006E2 D209 826A 8269 MVC 618(10,8),617(8) HYPHENS+1* HYPHENS*
- 0006E8 D20E 8278 A103 MVC 632(15,8),259(10) OUT-RECORD-CTR-HDR PGMLIT AT +219
- 0006EE D212 8287 C008 MVC 647(19,8),8(12) FILLER* SYSLIT AT +8
- 0006F4 D213 829A A0DE MVC 666(20,8),222(10) OUT-TOTAL-DEPOSIT-AMT-HDR PGMLIT AT +182
- 0006FA D216 82AE C008 MVC 686(23,8),8(12) FILLER* SYSLIT AT +8
- 000700 D210 82C5 A0F2 MVC 709(17,8),242(10) OUT-TOTAL-SHARES-SOLD-HDR PGMLIT AT +202
- 000706 D20F 82D6 C008 MVC 726(16,8),8(12) FILLER* SYSLIT AT +8
- 00070C D215 82E6 A0C8 MVC 742(22,8),200(10) OUT-TOTAL-COMMISSION-HDR PGMLIT AT +160
- 000712 9260 8300 MVI 768(8),X'60' HYPHEN
- 000716 D20D 8301 8300 MVC 769(14,8),768(8) HYPHEN+1 HYPHEN
- 00071C D212 830F C008 MVC 783(19,8),8(12) FILLER* SYSLIT AT +8
- 000722 9260 8322 MVI 802(8),X'60' HYPHEN*
- 000726 D212 8323 8322 MVC 803(19,8),802(8) HYPHEN+1* HYPHEN*
- 00072C D216 8336 C008 MVC 822(23,8),8(12) FILLER* SYSLIT AT +8
- 000732 9260 834D MVI 845(8),X'60' HYPHEN*
- 000736 D20F 834E 834D MVC 846(16,8),845(8) HYPHEN+1* HYPHEN*
- 00073C D20F 835E C008 MVC 862(16,8),8(12) FILLER* SYSLIT AT +8
- 000742 9260 836E MVI 878(8),X'60' HYPHEN*
- 000746 D214 836F 836E MVC 879(21,8),878(8) HYPHEN+1* HYPHEN*
- 00074C D21E 838B C008 MVC 907(31,8),8(12) FILLER* SYSLIT AT +8
- 000752 D214 83BD C008 MVC 957(21,8),8(12) FILLER* SYSLIT AT +8
- 000758 D212 83E5 C008 MVC 997(19,8),8(12) FILLER* SYSLIT AT +8
- 00075E D21F 8440 C008 MVC 1088(32,8),8(12) FILLER* SYSLIT AT +8
- 000764 D203 849C C008 MVC 1180(4,8),8(12) FILLER* SYSLIT AT +8
- 00076A D20E 84A1 C008 MVC 1185(15,8),8(12) FILLER* SYSLIT AT +8
- 000770 D208 84C9 C008 MVC 1225(9,8),8(12) FILLER* SYSLIT AT +8
- 000776 D208 84EB C008 MVC 1259(9,8),8(12) FILLER* SYSLIT AT +8
- 00077C D208 8502 C008 MVC 1282(9,8),8(12) FILLER* SYSLIT AT +8
- 000782 D208 851D C008 MVC 1309(9,8),8(12) FILLER* SYSLIT AT +8
- 000788 D21C 8538 C008 MVC 1336(29,8),8(12) FILLER* SYSLIT AT +8
- 00078E D20A 8555 A11F MVC 1365(11,8),287(10) BROKER-NAME PGMLIT AT +247
- 000794 9240 8560 MVI 1376(8),X'40' FILLER*
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 21
- 000798 D22A 8561 8560 MVC 1377(43,8),1376(8) FILLER+1* FILLER*
- 00079E D20A 858C A0F8 MVC 1420(11,8),248(10) SHARES-SOLD PGMLIT AT +208
- 0007A4 9240 8597 MVI 1431(8),X'40' FILLER*
- 0007A8 D223 8598 8597 MVC 1432(36,8),1431(8) FILLER+1* FILLER*
- 0007AE D21C 85C0 C008 MVC 1472(29,8),8(12) FILLER* SYSLIT AT +8
- 0007B4 D21C 85F6 C008 MVC 1526(29,8),8(12) FILLER* SYSLIT AT +8
- 0007BA D21D 8625 C008 MVC 1573(30,8),8(12) FILLER* SYSLIT AT +8
- 0007C0 9240 8648 MVI 1608(8),X'40' FILLER*
- 0007C4 D230 8649 8648 MVC 1609(49,8),1608(8) FILLER+1* FILLER*
- 0007CA D21C 867E C008 MVC 1662(29,8),8(12) FILLER* SYSLIT AT +8
- 0007D0 D21C 86AE C008 MVC 1710(29,8),8(12) FILLER* SYSLIT AT +8
- 0007D6 9240 86D0 MVI 1744(8),X'40' FILLER*
- 0007DA D22B 86D1 86D0 MVC 1745(44,8),1744(8) FILLER+1* FILLER*
- 0007E0 D20C 86FD A112 MVC 1789(13,8),274(10) HISALES-RECORD-HDR PGMLIT AT +234
- 0007E6 D21D 870A C008 MVC 1802(30,8),8(12) FILLER* SYSLIT AT +8
- 0007EC D210 8728 A0F2 MVC 1832(17,8),242(10) HISALES-TOTAL-SHARES-HDR PGMLIT AT +202
- 0007F2 D21A 8739 C008 MVC 1849(27,8),8(12) FILLER* SYSLIT AT +8
- 0007F8 5820 D110 L 2,272(0,13) PVN=2
- 0007FC 07F2 BCR 15,2
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 22
- 0007FE START EQU * FUNDRPT1
- 0007FE 183F LR 3,15
- 000800 4100 1188 LA 0,392(0,1)
- 000804 5500 C00C CL 0,12(0,12)
- 000808 0DF0 BASR 15,0
- 00080A 47D0 F00C BC 13,12(0,15)
- 00080E 58F0 C300 L 15,768(0,12)
- 000812 0DEF BASR 14,15
- 000814 181F LR 1,15
- 000816 50D0 1004 ST 13,4(0,1)
- 00081A 5000 104C ST 0,76(0,1)
- 00081E D203 1000 3058 MVC 0(4,1),88(3)
- 000824 D703 1084 1084 XC 132(4,1),132(1)
- 00082A 5090 105C ST 9,92(0,1)
- 00082E 18D1 LR 13,1
- 000830 58C0 90E8 L 12,232(0,9) TGTFIXD+232
- 000834 1812 LR 1,2
- 000836 50D0 D058 ST 13,88(0,13)
- 00083A 58A0 C034 L 10,52(0,12) CBL=1
- 00083E 5880 912C L 8,300(0,9) BLW=0
- 000842 4120 D170 LA 2,368(0,13) ATSdisp=0
- 000846 5020 D0F0 ST 2,240(0,13) BLA=0
- 00084A D203 D088 A038 MVC 136(4,13),56(10) DSAFIXD+136 PGMLIT AT +16
- 000850 BF2F 9164 ICM 2,15,356(9) IPCB=1+16
- 000854 58B0 C038 L 11,56(0,12) PBL=1
- 000858 4780 B2C2 BC 8,706(0,11) GN=32(00086A)
- 00085C 5830 905C L 3,92(0,9) TGTFIXD+92
- 000860 58F0 30F4 L 15,244(0,3) V(IGZCMSG )
- 000864 4110 A260 LA 1,608(0,10) PGMLIT AT +568
- 000868 0DEF BASR 14,15
- 00086A GN=32 EQU *
- 00086A 5A20 C004 A 2,4(0,12) SYSLIT AT +4
- 00086E 5020 9164 ST 2,356(0,9) IPCB=1+16
- 000872 9140 9154 TM 340(9),X'40' IPCB=1
- 000876 4710 B2EA BC 1,746(0,11) GN=33(000892)
- 00087A D203 D144 D110 MVC 324(4,13),272(13) PSV=7 PVN=2
- 000880 4120 B2E4 LA 2,740(0,11) GN=34(00088C)
- 000884 5020 D110 ST 2,272(0,13) PVN=2
- 000888 47F0 B054 BC 15,84(0,11) GN=4(0005FC)
- 00088C GN=34 EQU *
- 00088C D203 D110 D144 MVC 272(4,13),324(13) PVN=2 PSV=7
- 000892 GN=33 EQU *
- 000892 9140 9154 TM 340(9),X'40' IPCB=1
- 000896 58B0 C038 L 11,56(0,12) PBL=1
- 00089A 4710 B30E BC 1,782(0,11) GN=35(0008B6)
- 00089E D203 D148 D10C MVC 328(4,13),268(13) PSV=8 PVN=1
- 0008A4 4120 B308 LA 2,776(0,11) GN=36(0008B0)
- 0008A8 5020 D10C ST 2,268(0,13) PVN=1
- 0008AC 47F0 B000 BC 15,0(0,11) GN=3(0005A8)
- 0008B0 GN=36 EQU *
- 0008B0 D203 D10C D148 MVC 268(4,13),328(13) PVN=1 PSV=8
- 0008B6 GN=35 EQU *
- 0008B6 D217 D114 A010 MVC 276(24,13),16(10) PVN=3 PVNI=3
- 0008BC 9140 9057 TM 87(9),X'40' TGTFIXD+87
- 0008C0 58B0 C038 L 11,56(0,12) PBL=1
- 0008C4 4710 B334 BC 1,820(0,11) GN=37(0008DC)
- 0008C8 9120 9054 TM 84(9),X'20' TGTFIXD+84
- 0008CC 47E0 B32C BC 14,812(0,11) GN=38(0008D4)
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 23
- 0008D0 9620 D084 OI 132(13),X'20' DSAFIXD+132
- 0008D4 GN=38 EQU *
- 0008D4 9640 9057 OI 87(9),X'40' TGTFIXD+87
- 0008D8 47F0 B334 BC 15,820(0,11) GN=39(0008DC)
- 0008DC GN=37 EQU *
- 0008DC GN=39 EQU *
- 0008DC 9640 9154 OI 340(9),X'40' IPCB=1
- 0008E0 9601 D084 OI 132(13),X'01' DSAFIXD+132
- 000245 *
- 000245 *0000-MAIN
- 000247 MOVE
- 0008E4 1B22 SR 2,2
- 0008E6 5020 D16C ST 2,364(0,13) TS2=28
- 0008EA 5830 D0F0 L 3,240(0,13) BLA=0
- 0008EE 4120 3000 LA 2,0(0,3) BLA=0 DISP=0
- 0008F2 5020 D168 ST 2,360(0,13) TS2=24
- 0008F6 4120 D154 LA 2,340(0,13) TS2=4
- 0008FA 5020 D164 ST 2,356(0,13) TS2=20
- 0008FE 4120 D150 LA 2,336(0,13) TS2=0
- 000902 5020 D160 ST 2,352(0,13) TS2=16
- 000906 9680 D16C OI 364(13),X'80' TS2=28
- 00090A 4110 D160 LA 1,352(0,13) TS2=16
- 00090E 58F0 A000 L 15,0(0,10) V(CEELOCT )
- 000912 58C0 9080 L 12,128(0,9) TGTFIXD+128
- 000916 0DEF BASR 14,15
- 000918 58C0 90E8 L 12,232(0,9) TGTFIXD+232
- 00091C 1B22 SR 2,2
- 00091E 5020 D16C ST 2,364(0,13) TS2=28
- 000922 4120 D158 LA 2,344(0,13) TS2=8
- 000926 5020 D168 ST 2,360(0,13) TS2=24
- 00092A 4120 D154 LA 2,340(0,13) TS2=4
- 00092E 5020 D164 ST 2,356(0,13) TS2=20
- 000932 4120 D150 LA 2,336(0,13) TS2=0
- 000936 5020 D160 ST 2,352(0,13) TS2=16
- 00093A 9680 D16C OI 364(13),X'80' TS2=28
- 00093E 4110 D160 LA 1,352(0,13) TS2=16
- 000942 58F0 A004 L 15,4(0,10) V(CEEGMTO )
- 000946 58C0 9080 L 12,128(0,9) TGTFIXD+128
- 00094A 0DEF BASR 14,15
- 00094C 58C0 90E8 L 12,232(0,9) TGTFIXD+232
- 000950 5820 D150 L 2,336(0,13) TS2=0
- 000954 4E20 D160 CVD 2,352(0,13) TS2=16
- 000958 940F D166 NI 358(13),X'0F' TS2=22
- 00095C F811 D166 D166 ZAP 358(2,13),358(2,13) TS2=22 TS2=22
- 000962 F311 3011 D166 UNPK 17(2,3),358(2,13) BLA=0 DISP=0 INCR=17 TS2=22
- 000968 91C0 3012 TM 18(3),X'C0' BLA=0 DISP=0 INCR=18
- 00096C 47E0 B3E0 BC 14,992(0,11) GN=40(000988)
- 000970 9130 3012 TM 18(3),X'30' BLA=0 DISP=0 INCR=18
- 000974 47B0 B3EE BC 11,1006(0,11) GN=41(000996)
- 000978 9110 3012 TM 18(3),X'10' BLA=0 DISP=0 INCR=18
- 00097C 4780 B3E0 BC 8,992(0,11) GN=42(000988)
- 000980 9260 3010 MVI 16(3),X'60' BLA=0 DISP=0 INCR=16
- 000984 47F0 B3F2 BC 15,1010(0,11) GN=43(00099A)
- 000988 GN=42 EQU *
- 000988 GN=40 EQU *
- 000988 5820 905C L 2,92(0,9) TGTFIXD+92
- 00098C 58F0 20F4 L 15,244(0,2) V(IGZCMSG )
- 000990 4110 A244 LA 1,580(0,10) PGMLIT AT +540
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 24
- 000994 0DEF BASR 14,15
- 000996 GN=41 EQU *
- 000996 924E 3010 MVI 16(3),X'4E' BLA=0 DISP=0 INCR=16
- 00099A GN=43 EQU *
- 00099A 96F0 3012 OI 18(3),X'F0' BLA=0 DISP=0 INCR=18
- 00099E 5820 D154 L 2,340(0,13) TS2=4
- 0009A2 4E20 D160 CVD 2,352(0,13) TS2=16
- 0009A6 F311 3013 D166 UNPK 19(2,3),358(2,13) BLA=0 DISP=0 INCR=19 TS2=22
- 0009AC 96F0 3014 OI 20(3),X'F0' BLA=0 DISP=0 INCR=20
- 0009B0 D213 8040 3000 MVC 64(20,8),0(3) CURRENT-DATE-FIELDS BLA=0 DISP=0
- 000248 MOVE
- 0009B6 D203 805E 8040 MVC 94(4,8),64(8) CURRENT-YEAR* CURRENT-YEAR
- 0009BC 96F0 8061 OI 97(8),X'F0' CURRENT-YEAR+3*
- 0009C0 D201 805B 8044 MVC 91(2,8),68(8) CURRENT-MONTH* CURRENT-MONTH
- 0009C6 96F0 805C OI 92(8),X'F0' CURRENT-MONTH+1*
- 0009CA D201 8058 8046 MVC 88(2,8),70(8) CURRENT-DAY* CURRENT-DAY
- 0009D0 96F0 8059 OI 89(8),X'F0' CURRENT-DAY+1*
- 000249 MOVE
- 0009D4 D201 80E0 8048 MVC 224(2,8),72(8) CURRENT-HOUR* CURRENT-HOUR
- 0009DA 96F0 80E1 OI 225(8),X'F0' CURRENT-HOUR+1*
- 0009DE D201 80E3 804A MVC 227(2,8),74(8) CURRENT-MINUTE* CURRENT-MINUTE
- 0009E4 96F0 80E4 OI 228(8),X'F0' CURRENT-MINUTE+1*
- 0009E8 D201 80E6 804C MVC 230(2,8),76(8) CURRENT-SECOND* CURRENT-SECOND
- 0009EE 96F0 80E7 OI 231(8),X'F0' CURRENT-SECOND+1*
- 000251 OPEN
- 0009F2 5820 9148 L 2,328(0,9) FCB=1
- 0009F6 D202 2034 A1AB MVC 52(3,2),427(10) (FCB=1)+52 PGMLIT AT +387
- 0009FC 5840 9150 L 4,336(0,9) FCB=3
- 000A00 D202 4034 A1E8 MVC 52(3,4),488(10) (FCB=3)+52 PGMLIT AT +448
- 000A06 5850 905C L 5,92(0,9) TGTFIXD+92
- 000A0A 58F0 51E4 L 15,484(0,5) V(IGZEQOC )
- 000A0E 4110 A23D LA 1,573(0,10) PGMLIT AT +533
- 000A12 0DEF BASR 14,15
- 000254 READ
- 000A14 5840 9148 L 4,328(0,9) FUND-FILE
- 000A18 9200 40C9 MVI 201(4),X'00' FCB=1
- 000A1C 9200 40B3 MVI 179(4),X'00' FCB=1
- 000A20 D203 4074 A202 MVC 116(4,4),514(10) FCB=1 PGMLIT AT +474
- 000A26 58F0 403C L 15,60(0,4) FCB=1
- 000A2A 0D5F BASR 5,15
- 000A2C 9500 40C9 CLI 201(4),X'00' FCB=1
- 000A30 4770 B49E BC 7,1182(0,11) GN=44(000A46)
- 000A34 5010 9134 ST 1,308(0,9) BLF=0
- 000A38 5850 9134 L 5,308(0,9) BLF=0
- 000A3C D24F 8410 5000 MVC 1040(80,8),0(5) IN-FUND-FIRST-READ FUND-RECORD
- 000A42 47F0 B4B6 BC 15,1206(0,11) GN=6(000A5E)
- 000A46 GN=44 EQU *
- 000A46 9510 40C9 CLI 201(4),X'10' FCB=1
- 000A4A 4780 B4B2 BC 8,1202(0,11) GN=45(000A5A)
- 000A4E 9500 40C9 CLI 201(4),X'00' FCB=1
- 000A52 4780 B4B6 BC 8,1206(0,11) GN=6(000A5E)
- 000A56 47F0 B4B6 BC 15,1206(0,11) GN=5(000A5E)
- 000A5A GN=45 EQU *
- 000255 MOVE
- 000A5A 92E8 8000 MVI 0(8),X'E8' EOF-FLAG
- 000A5E GN=6 EQU *
- 000A5E GN=5 EQU *
- 000258 READ
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 25
- 000A5E 5840 9148 L 4,328(0,9) FUND-FILE
- 000A62 9200 40C9 MVI 201(4),X'00' FCB=1
- 000A66 9200 40B3 MVI 179(4),X'00' FCB=1
- 000A6A D203 4074 A202 MVC 116(4,4),514(10) FCB=1 PGMLIT AT +474
- 000A70 58F0 403C L 15,60(0,4) FCB=1
- 000A74 0D5F BASR 5,15
- 000A76 9500 40C9 CLI 201(4),X'00' FCB=1
- 000A7A 4770 B4E8 BC 7,1256(0,11) GN=46(000A90)
- 000A7E 5010 9134 ST 1,308(0,9) BLF=0
- 000A82 5850 9134 L 5,308(0,9) BLF=0
- 000A86 D24F 8460 5000 MVC 1120(80,8),0(5) IN-FUND-RECORD FUND-RECORD
- 000A8C 47F0 B500 BC 15,1280(0,11) GN=8(000AA8)
- 000A90 GN=46 EQU *
- 000A90 9510 40C9 CLI 201(4),X'10' FCB=1
- 000A94 4780 B4FC BC 8,1276(0,11) GN=47(000AA4)
- 000A98 9500 40C9 CLI 201(4),X'00' FCB=1
- 000A9C 4780 B500 BC 8,1280(0,11) GN=8(000AA8)
- 000AA0 47F0 B500 BC 15,1280(0,11) GN=7(000AA8)
- 000AA4 GN=47 EQU *
- 000259 MOVE
- 000AA4 92E8 8000 MVI 0(8),X'E8' EOF-FLAG
- 000AA8 GN=8 EQU *
- 000AA8 GN=7 EQU *
- 000262 PERFORM
- 000AA8 D203 D12C D114 MVC 300(4,13),276(13) PSV=1 PVN=3
- 000AAE 4140 B50E LA 4,1294(0,11) GN=26(000AB6)
- 000AB2 5040 D114 ST 4,276(0,13) PVN=3
- 000AB6 GN=26 EQU *
- 000AB6 95E8 8000 CLI 0(8),X'E8' EOF-FLAG
- 000ABA 58B0 C038 L 11,56(0,12) PBL=1
- 000ABE 4770 B692 BC 7,1682(0,11) 1000-PROCESS-FUND
- 000AC2 D203 D114 D12C MVC 276(4,13),300(13) PVN=3 PSV=1
- 000265 MOVE
- 000AC8 D220 8112 A086 MVC 274(33,8),134(10) SUBHDR-NME PGMLIT AT +94
- 000267 PERFORM
- 000ACE D203 D130 D118 MVC 304(4,13),280(13) PSV=2 PVN=4
- 000AD4 4120 B538 LA 2,1336(0,11) GN=27(000AE0)
- 000AD8 5020 D118 ST 2,280(0,13) PVN=4
- 000ADC 47F0 BA2A BC 15,2602(0,11) 0110-PRINT-TOTALS
- 000AE0 GN=27 EQU *
- 000AE0 D203 D118 D130 MVC 280(4,13),304(13) PVN=4 PSV=2
- 000269 CLOSE
- 000AE6 5820 9148 L 2,328(0,9) FCB=1
- 000AEA D201 2037 A1AB MVC 55(2,2),427(10) (FCB=1)+55 PGMLIT AT +387
- 000AF0 5830 9150 L 3,336(0,9) FCB=3
- 000AF4 D201 3037 A1AB MVC 55(2,3),427(10) (FCB=3)+55 PGMLIT AT +387
- 000AFA 5840 905C L 4,92(0,9) TGTFIXD+92
- 000AFE 58F0 41E4 L 15,484(0,4) V(IGZEQOC )
- 000B02 4110 A236 LA 1,566(0,10) PGMLIT AT +526
- 000B06 0DEF BASR 14,15
- 000272 OPEN
- 000B08 D202 2034 A1AB MVC 52(3,2),427(10) (FCB=1)+52 PGMLIT AT +387
- 000B0E 5850 914C L 5,332(0,9) FCB=2
- 000B12 D202 5034 A1E8 MVC 52(3,5),488(10) (FCB=2)+52 PGMLIT AT +448
- 000B18 58F0 41E4 L 15,484(0,4) V(IGZEQOC )
- 000B1C 4110 A22F LA 1,559(0,10) PGMLIT AT +519
- 000B20 0DEF BASR 14,15
- 000275 MOVE
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 26
- 000B22 D201 8020 A042 MVC 32(2,8),66(10) LINE-CTR PGMLIT AT +26
- 000277 READ
- 000B28 5840 9148 L 4,328(0,9) FUND-FILE
- 000B2C 9200 40C9 MVI 201(4),X'00' FCB=1
- 000B30 9200 40B3 MVI 179(4),X'00' FCB=1
- 000B34 D203 4074 A202 MVC 116(4,4),514(10) FCB=1 PGMLIT AT +474
- 000B3A 58F0 403C L 15,60(0,4) FCB=1
- 000B3E 0D5F BASR 5,15
- 000B40 9500 40C9 CLI 201(4),X'00' FCB=1
- 000B44 58B0 C038 L 11,56(0,12) PBL=1
- 000B48 4770 B5B6 BC 7,1462(0,11) GN=48(000B5E)
- 000B4C 5010 9134 ST 1,308(0,9) BLF=0
- 000B50 5850 9134 L 5,308(0,9) BLF=0
- 000B54 D24F 8410 5000 MVC 1040(80,8),0(5) IN-FUND-FIRST-READ FUND-RECORD
- 000B5A 47F0 B5CE BC 15,1486(0,11) GN=10(000B76)
- 000B5E GN=48 EQU *
- 000B5E 9510 40C9 CLI 201(4),X'10' FCB=1
- 000B62 4780 B5CA BC 8,1482(0,11) GN=49(000B72)
- 000B66 9500 40C9 CLI 201(4),X'00' FCB=1
- 000B6A 4780 B5CE BC 8,1486(0,11) GN=10(000B76)
- 000B6E 47F0 B5CE BC 15,1486(0,11) GN=9(000B76)
- 000B72 GN=49 EQU *
- 000278 MOVE
- 000B72 92E8 8000 MVI 0(8),X'E8' EOF-FLAG
- 000B76 GN=10 EQU *
- 000B76 GN=9 EQU *
- 000281 READ
- 000B76 5840 9148 L 4,328(0,9) FUND-FILE
- 000B7A 9200 40C9 MVI 201(4),X'00' FCB=1
- 000B7E 9200 40B3 MVI 179(4),X'00' FCB=1
- 000B82 D203 4074 A202 MVC 116(4,4),514(10) FCB=1 PGMLIT AT +474
- 000B88 58F0 403C L 15,60(0,4) FCB=1
- 000B8C 0D5F BASR 5,15
- 000B8E 9500 40C9 CLI 201(4),X'00' FCB=1
- 000B92 4770 B600 BC 7,1536(0,11) GN=50(000BA8)
- 000B96 5010 9134 ST 1,308(0,9) BLF=0
- 000B9A 5850 9134 L 5,308(0,9) BLF=0
- 000B9E D24F 8460 5000 MVC 1120(80,8),0(5) IN-FUND-RECORD FUND-RECORD
- 000BA4 47F0 B618 BC 15,1560(0,11) GN=12(000BC0)
- 000BA8 GN=50 EQU *
- 000BA8 9510 40C9 CLI 201(4),X'10' FCB=1
- 000BAC 4780 B614 BC 8,1556(0,11) GN=51(000BBC)
- 000BB0 9500 40C9 CLI 201(4),X'00' FCB=1
- 000BB4 4780 B618 BC 8,1560(0,11) GN=12(000BC0)
- 000BB8 47F0 B618 BC 15,1560(0,11) GN=11(000BC0)
- 000BBC GN=51 EQU *
- 000282 MOVE
- 000BBC 92E8 8000 MVI 0(8),X'E8' EOF-FLAG
- 000BC0 GN=12 EQU *
- 000BC0 GN=11 EQU *
- 000285 MOVE
- 000BC0 D220 8112 A065 MVC 274(33,8),101(10) SUBHDR-NME PGMLIT AT +61
- 000286 MOVE
- 000BC6 D207 8030 A15C MVC 48(8,8),348(10) TOTAL-SHARES-SOLD PGMLIT AT +308
- 000287 MOVE
- 000BCC D201 8024 A167 MVC 36(2,8),359(10) RECORD-CTR PGMLIT AT +319
- 000289 PERFORM
- 000BD2 D203 D134 D11C MVC 308(4,13),284(13) PSV=3 PVN=5
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 27
- 000BD8 4140 B638 LA 4,1592(0,11) GN=28(000BE0)
- 000BDC 5040 D11C ST 4,284(0,13) PVN=5
- 000BE0 GN=28 EQU *
- 000BE0 95E8 8000 CLI 0(8),X'E8' EOF-FLAG
- 000BE4 58B0 C038 L 11,56(0,12) PBL=1
- 000BE8 4770 BBAE BC 7,2990(0,11) 0100-PROCESS-HISALES
- 000BEC D203 D11C D134 MVC 284(4,13),308(13) PVN=5 PSV=3
- 000292 MOVE
- 000BF2 D220 8112 A044 MVC 274(33,8),68(10) SUBHDR-NME PGMLIT AT +28
- 000294 PERFORM
- 000BF8 D203 D138 D120 MVC 312(4,13),288(13) PSV=4 PVN=6
- 000BFE 4120 B662 LA 2,1634(0,11) GN=29(000C0A)
- 000C02 5020 D120 ST 2,288(0,13) PVN=6
- 000C06 47F0 BDDE BC 15,3550(0,11) 0001-PRINT-HISALES-TOTALS
- 000C0A GN=29 EQU *
- 000C0A D203 D120 D138 MVC 288(4,13),312(13) PVN=6 PSV=4
- 000296 CLOSE
- 000C10 5820 9148 L 2,328(0,9) FCB=1
- 000C14 D201 2037 A1AB MVC 55(2,2),427(10) (FCB=1)+55 PGMLIT AT +387
- 000C1A 5830 914C L 3,332(0,9) FCB=2
- 000C1E D201 3037 A1AB MVC 55(2,3),427(10) (FCB=2)+55 PGMLIT AT +387
- 000C24 5840 905C L 4,92(0,9) TGTFIXD+92
- 000C28 58F0 41E4 L 15,484(0,4) V(IGZEQOC )
- 000C2C 4110 A228 LA 1,552(0,10) PGMLIT AT +512
- 000C30 0DEF BASR 14,15
- 000299 GOBACK
- 000C32 58B0 C038 L 11,56(0,12) PBL=1
- 000C36 47F0 BF0C BC 15,3852(0,11) GN=2(0014B4)
- 000301 *0000-EXIT
- 000301 EXIT
- 000309 *1000-PROCESS-FUND
- 000311 MOVE
- 000C3A D218 84B0 8460 MVC 1200(25,8),1120(8) OUT-FUND-BRNCH-NME IN-FUND-BRNCH-NME
- 000312 MOVE
- 000C40 D218 84D2 8479 MVC 1234(25,8),1145(8) OUT-FUND-BROKER-NME IN-FUND-BROKER-NME
- 000313 MOVE
- 000C46 D20F D150 A1D8 MVC 336(16,13),472(10) TS2=0 PGMLIT AT +432
- 000C4C F259 D160 8492 PACK 352(6,13),1170(10,8) TS2=16 IN-FUND-DEPOSIT-AMT
- 000C52 F855 D160 D160 ZAP 352(6,13),352(6,13) TS2=16 TS2=16
- 000C58 4110 D15C LA 1,348(0,13) TS2=12
- 000C5C DF0F D150 D160 EDMK 336(16,13),352(13) TS2=0 TS2=16
- 000C62 GN=54 EQU *
- 000C62 0610 BCTR 1,0
- 000C64 925B 1000 MVI 0(1),X'5B'
- 000C68 GN=53 EQU *
- 000C68 D20D 84F4 D152 MVC 1268(14,8),338(13) OUT-FUND-DEPOSIT-AMT TS2=2
- 000315 IF
- 000C6E F200 D150 84A0 PACK 336(1,13),1184(1,8) TS2=0 IN-FUND-CMS-FLAG
- 000C74 F900 D150 A16A CP 336(1,13),362(1,10) TS2=0 PGMLIT AT +322
- 000C7A 4770 B72A BC 7,1834(0,11) GN=13(000CD2)
- 000316 COMPUTE
- 000C7E F295 D150 842E PACK 336(10,13),1070(6,8) TS2=0 IN-FUND-CMS-PERCENT-1
- 000C84 F259 D160 8492 PACK 352(6,13),1170(10,8) TS2=16 IN-FUND-DEPOSIT-AMT
- 000C8A FC95 D150 D160 MP 336(10,13),352(6,13) TS2=0 TS2=16
- 000C90 F085 D151 003B SRP 337(9,13),59(0),5 TS2=1
- 000C96 940F D155 NI 341(13),X'0F' TS2=5
- 000C9A F844 D155 D155 ZAP 341(5,13),341(5,13) TS2=5 TS2=5
- 000CA0 F374 8013 D155 UNPK 19(8,8),341(5,13) TEMP-CMS-AMT TS2=5
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 28
- 000318 MOVE
- 000CA6 D20F D150 A1D8 MVC 336(16,13),472(10) TS2=0 PGMLIT AT +432
- 000CAC F257 D160 8013 PACK 352(6,13),19(8,8) TS2=16 TEMP-CMS-AMT
- 000CB2 F844 D161 D161 ZAP 353(5,13),353(5,13) TS2=17 TS2=17
- 000CB8 4110 D15C LA 1,348(0,13) TS2=12
- 000CBC DF0F D150 D160 EDMK 336(16,13),352(13) TS2=0 TS2=16
- 000CC2 GN=57 EQU *
- 000CC2 0610 BCTR 1,0
- 000CC4 925B 1000 MVI 0(1),X'5B'
- 000CC8 GN=56 EQU *
- 000CC8 D20D 8526 D152 MVC 1318(14,8),338(13) OUT-FUND-CMS-AMT TS2=2
- 000CCE 47F0 B7DE BC 15,2014(0,11) GN=14(000D86)
- 000CD2 GN=13 EQU *
- 000319 IF
- 000CD2 F200 D150 84A0 PACK 336(1,13),1184(1,8) TS2=0 IN-FUND-CMS-FLAG
- 000CD8 F900 D150 A169 CP 336(1,13),361(1,10) TS2=0 PGMLIT AT +321
- 000CDE 4770 B78E BC 7,1934(0,11) GN=15(000D36)
- 000320 COMPUTE
- 000CE2 F295 D150 8434 PACK 336(10,13),1076(6,8) TS2=0 IN-FUND-CMS-PERCENT-2
- 000CE8 F259 D160 8492 PACK 352(6,13),1170(10,8) TS2=16 IN-FUND-DEPOSIT-AMT
- 000CEE FC95 D150 D160 MP 336(10,13),352(6,13) TS2=0 TS2=16
- 000CF4 F085 D151 003B SRP 337(9,13),59(0),5 TS2=1
- 000CFA 940F D155 NI 341(13),X'0F' TS2=5
- 000CFE F844 D155 D155 ZAP 341(5,13),341(5,13) TS2=5 TS2=5
- 000D04 F374 8013 D155 UNPK 19(8,8),341(5,13) TEMP-CMS-AMT TS2=5
- 000322 MOVE
- 000D0A D20F D150 A1D8 MVC 336(16,13),472(10) TS2=0 PGMLIT AT +432
- 000D10 F257 D160 8013 PACK 352(6,13),19(8,8) TS2=16 TEMP-CMS-AMT
- 000D16 F844 D161 D161 ZAP 353(5,13),353(5,13) TS2=17 TS2=17
- 000D1C 4110 D15C LA 1,348(0,13) TS2=12
- 000D20 DF0F D150 D160 EDMK 336(16,13),352(13) TS2=0 TS2=16
- 000D26 GN=60 EQU *
- 000D26 0610 BCTR 1,0
- 000D28 925B 1000 MVI 0(1),X'5B'
- 000D2C GN=59 EQU *
- 000D2C D20D 8526 D152 MVC 1318(14,8),338(13) OUT-FUND-CMS-AMT TS2=2
- 000D32 47F0 B7DE BC 15,2014(0,11) GN=16(000D86)
- 000D36 GN=15 EQU *
- 000324 COMPUTE
- 000D36 F295 D150 843A PACK 336(10,13),1082(6,8) TS2=0 IN-FUND-CMS-PERCENT-3
- 000D3C F259 D160 8492 PACK 352(6,13),1170(10,8) TS2=16 IN-FUND-DEPOSIT-AMT
- 000D42 FC95 D150 D160 MP 336(10,13),352(6,13) TS2=0 TS2=16
- 000D48 F085 D151 003B SRP 337(9,13),59(0),5 TS2=1
- 000D4E 940F D155 NI 341(13),X'0F' TS2=5
- 000D52 F844 D155 D155 ZAP 341(5,13),341(5,13) TS2=5 TS2=5
- 000D58 F374 8013 D155 UNPK 19(8,8),341(5,13) TEMP-CMS-AMT TS2=5
- 000326 MOVE
- 000D5E D20F D150 A1D8 MVC 336(16,13),472(10) TS2=0 PGMLIT AT +432
- 000D64 F257 D160 8013 PACK 352(6,13),19(8,8) TS2=16 TEMP-CMS-AMT
- 000D6A F844 D161 D161 ZAP 353(5,13),353(5,13) TS2=17 TS2=17
- 000D70 4110 D15C LA 1,348(0,13) TS2=12
- 000D74 DF0F D150 D160 EDMK 336(16,13),352(13) TS2=0 TS2=16
- 000D7A GN=63 EQU *
- 000D7A 0610 BCTR 1,0
- 000D7C 925B 1000 MVI 0(1),X'5B'
- 000D80 GN=62 EQU *
- 000D80 D20D 8526 D152 MVC 1318(14,8),338(13) OUT-FUND-CMS-AMT TS2=2
- 000D86 GN=16 EQU *
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 29
- 000D86 GN=14 EQU *
- 000329 COMPUTE
- 000D86 F2A9 D150 8492 PACK 336(11,13),1170(10,8) TS2=0 IN-FUND-DEPOSIT-AMT
- 000D8C F070 D153 0004 SRP 339(8,13),4(0),0 TS2=3
- 000D92 F224 D160 8410 PACK 352(3,13),1040(5,8) TS2=16 IN-FUND-SHR-PRC
- 000D98 FDA2 D150 D160 DP 336(11,13),352(3,13) TS2=0 TS2=16
- 000D9E F075 D150 003F SRP 336(8,13),63(0),5 TS2=0
- 000DA4 F855 D152 D152 ZAP 338(6,13),338(6,13) TS2=2 TS2=2
- 000DAA F3A5 8008 D152 UNPK 8(11,8),338(6,13) TEMP-SHARES-SOLD TS2=2
- 000331 MOVE
- 000DB0 D213 D150 A1C4 MVC 336(20,13),452(10) TS2=0 PGMLIT AT +412
- 000DB6 F27A D168 8008 PACK 360(8,13),8(11,8) TS2=24 TEMP-SHARES-SOLD
- 000DBC F060 D169 0001 SRP 361(7,13),1(0),0 TS2=25
- 000DC2 DE13 D150 D168 ED 336(20,13),360(13) TS2=0 TS2=24
- 000DC8 GN=65 EQU *
- 000DC8 D211 850B D152 MVC 1291(18,8),338(13) OUT-FUND-SHARES-SOLD TS2=2
- 000333 IF
- 000DCE D501 8020 A040 CLC 32(2,8),64(10) LINE-CTR PGMLIT AT +24
- 000DD4 47D0 B848 BC 13,2120(0,11) GN=17(000DF0)
- 000334 PERFORM
- 000DD8 D203 D13C D124 MVC 316(4,13),292(13) PSV=5 PVN=7
- 000DDE 4120 B842 LA 2,2114(0,11) GN=30(000DEA)
- 000DE2 5020 D124 ST 2,292(0,13) PVN=7
- 000DE6 47F0 B946 BC 15,2374(0,11) 1100-WRITE-HEADERS
- 000DEA GN=30 EQU *
- 000DEA D203 D124 D13C MVC 292(4,13),316(13) PVN=7 PSV=5
- 000DF0 GN=17 EQU *
- 000336 WRITE
- 000DF0 5820 913C L 2,316(0,9) BLF=2
- 000DF4 D283 2000 84B0 MVC 0(132,2),1200(8) FUND-REPORT-RECORD OUT-FUND-RECORD
- 000DFA 5840 9150 L 4,336(0,9) FUND-REPORT-FILE
- 000DFE 9200 40C9 MVI 201(4),X'00' FCB=3
- 000E02 9200 40B3 MVI 179(4),X'00' FCB=3
- 000E06 D203 40DC A030 MVC 220(4,4),48(10) FCB=3 PGMLIT AT +8
- 000E0C 92A4 40F8 MVI 248(4),X'A4' FCB=3
- 000E10 D203 4074 A1FE MVC 116(4,4),510(10) FCB=3 PGMLIT AT +470
- 000E16 5830 905C L 3,92(0,9) TGTFIXD+92
- 000E1A 58F0 308C L 15,140(0,3) V(IGZCSPA )
- 000E1E 0DEF BASR 14,15
- 000339 ADD
- 000E20 4850 A03A LH 5,58(0,10) PGMLIT AT +18
- 000E24 4A50 8020 AH 5,32(0,8) LINE-CTR
- 000E28 1845 LR 4,5
- 000E2A 8E40 0020 SRDA 4,32(0)
- 000E2E 5D40 C000 D 4,0(0,12) SYSLIT AT +0
- 000E32 4040 8020 STH 4,32(0,8) LINE-CTR
- 000341 ADD
- 000E36 D201 D150 8024 MVC 336(2,13),36(8) TS2=0 RECORD-CTR
- 000E3C 960F D151 OI 337(13),X'0F' TS2=1
- 000E40 FA10 D150 A16A AP 336(2,13),362(1,10) TS2=0 PGMLIT AT +322
- 000E46 D201 8024 D150 MVC 36(2,8),336(13) RECORD-CTR TS2=0
- 000E4C 960F 8025 OI 37(8),X'0F' RECORD-CTR+1
- 000343 ADD
- 000E50 F279 D150 8492 PACK 336(8,13),1170(10,8) TS2=0 IN-FUND-DEPOSIT-AMT
- 000E56 FA75 8028 D152 AP 40(8,8),338(6,13) TOTAL-DEPOSIT-AMT TS2=2
- 000E5C 940F 8028 NI 40(8),X'0F' TOTAL-DEPOSIT-AMT
- 000E60 F877 8028 8028 ZAP 40(8,8),40(8,8) TOTAL-DEPOSIT-AMT TOTAL-DEPOSIT-AMT
- 000345 ADD
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 30
- 000E66 F27A D150 8008 PACK 336(8,13),8(11,8) TS2=0 TEMP-SHARES-SOLD
- 000E6C F070 8030 0001 SRP 48(8,8),1(0),0 TOTAL-SHARES-SOLD
- 000E72 FA75 8030 D152 AP 48(8,8),338(6,13) TOTAL-SHARES-SOLD TS2=2
- 000E78 F176 8030 8030 MVO 48(8,8),48(7,8) TOTAL-SHARES-SOLD TOTAL-SHARES-SOLD
- 000E7E F877 8030 8030 ZAP 48(8,8),48(8,8) TOTAL-SHARES-SOLD TOTAL-SHARES-SOLD
- 000347 ADD
- 000E84 F277 D150 8013 PACK 336(8,13),19(8,8) TS2=0 TEMP-CMS-AMT
- 000E8A FA74 8038 D153 AP 56(8,8),339(5,13) TOTAL-COMMISSION TS2=3
- 000E90 940F 8038 NI 56(8),X'0F' TOTAL-COMMISSION
- 000E94 F877 8038 8038 ZAP 56(8,8),56(8,8) TOTAL-COMMISSION TOTAL-COMMISSION
- 000349 READ
- 000E9A 5840 9148 L 4,328(0,9) FUND-FILE
- 000E9E 9200 40C9 MVI 201(4),X'00' FCB=1
- 000EA2 9200 40B3 MVI 179(4),X'00' FCB=1
- 000EA6 D203 4074 A202 MVC 116(4,4),514(10) FCB=1 PGMLIT AT +474
- 000EAC 58F0 403C L 15,60(0,4) FCB=1
- 000EB0 0D5F BASR 5,15
- 000EB2 9500 40C9 CLI 201(4),X'00' FCB=1
- 000EB6 58B0 C038 L 11,56(0,12) PBL=1
- 000EBA 4770 B928 BC 7,2344(0,11) GN=67(000ED0)
- 000EBE 5010 9134 ST 1,308(0,9) BLF=0
- 000EC2 5850 9134 L 5,308(0,9) BLF=0
- 000EC6 D24F 8460 5000 MVC 1120(80,8),0(5) IN-FUND-RECORD FUND-RECORD
- 000ECC 47F0 B940 BC 15,2368(0,11) GN=19(000EE8)
- 000ED0 GN=67 EQU *
- 000ED0 9510 40C9 CLI 201(4),X'10' FCB=1
- 000ED4 4780 B93C BC 8,2364(0,11) GN=68(000EE4)
- 000ED8 9500 40C9 CLI 201(4),X'00' FCB=1
- 000EDC 4780 B940 BC 8,2368(0,11) GN=19(000EE8)
- 000EE0 47F0 B940 BC 15,2368(0,11) GN=18(000EE8)
- 000EE4 GN=68 EQU *
- 000350 MOVE
- 000EE4 92E8 8000 MVI 0(8),X'E8' EOF-FLAG
- 000EE8 GN=19 EQU *
- 000EE8 GN=18 EQU *
- 000EE8 5840 D114 L 4,276(0,13) PVN=3
- 000EEC 07F4 BCR 15,4
- 000353 *1000-EXIT
- 000353 EXIT
- 000362 *1100-WRITE-HEADERS
- 000364 ADD
- 000EEE D201 D150 8022 MVC 336(2,13),34(8) TS2=0 PAGE-CTR
- 000EF4 960F D151 OI 337(13),X'0F' TS2=1
- 000EF8 FA10 D150 A16A AP 336(2,13),362(1,10) TS2=0 PGMLIT AT +322
- 000EFE D201 8022 D150 MVC 34(2,8),336(13) PAGE-CTR TS2=0
- 000F04 960F 8023 OI 35(8),X'0F' PAGE-CTR+1
- 000366 MOVE
- 000F08 D203 D150 A1FA MVC 336(4,13),506(10) TS2=0 PGMLIT AT +466
- 000F0E DE03 D150 8022 ED 336(4,13),34(8) TS2=0 PAGE-CTR
- 000F14 GN=70 EQU *
- 000F14 D202 80D9 D151 MVC 217(3,8),337(13) OUT-PAGE-CTR TS2=1
- 000368 MOVE
- 000F1A D218 808D 8415 MVC 141(25,8),1045(8) OUT-FUND-NME IN-FUND-NME
- 000370 WRITE
- 000F20 5820 913C L 2,316(0,9) BLF=2
- 000F24 D283 2000 8058 MVC 0(132,2),88(8) FUND-REPORT-RECORD FUND-REPORT-HDR-1
- 000F2A 5840 9150 L 4,336(0,9) FUND-REPORT-FILE
- 000F2E 9200 40C9 MVI 201(4),X'00' FCB=3
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 31
- 000F32 9200 40B3 MVI 179(4),X'00' FCB=3
- 000F36 9212 40F9 MVI 249(4),X'12' FCB=3
- 000F3A 92A8 40F8 MVI 248(4),X'A8' FCB=3
- 000F3E D203 4074 A1FE MVC 116(4,4),510(10) FCB=3 PGMLIT AT +470
- 000F44 5830 905C L 3,92(0,9) TGTFIXD+92
- 000F48 58F0 308C L 15,140(0,3) V(IGZCSPA )
- 000F4C 0DEF BASR 14,15
- 000373 WRITE
- 000F4E D283 2000 80E0 MVC 0(132,2),224(8) FUND-REPORT-RECORD FUND-REPORT-SUBHDR-1
- 000F54 5840 9150 L 4,336(0,9) FUND-REPORT-FILE
- 000F58 9200 40C9 MVI 201(4),X'00' FCB=3
- 000F5C 9200 40B3 MVI 179(4),X'00' FCB=3
- 000F60 D203 40DC A038 MVC 220(4,4),56(10) FCB=3 PGMLIT AT +16
- 000F66 92A4 40F8 MVI 248(4),X'A4' FCB=3
- 000F6A D203 4074 A1FE MVC 116(4,4),510(10) FCB=3 PGMLIT AT +470
- 000F70 58F0 308C L 15,140(0,3) V(IGZCSPA )
- 000F74 0DEF BASR 14,15
- 000376 WRITE
- 000F76 D283 2000 8168 MVC 0(132,2),360(8) FUND-REPORT-RECORD FUND-COL-HDR
- 000F7C 5840 9150 L 4,336(0,9) FUND-REPORT-FILE
- 000F80 9200 40C9 MVI 201(4),X'00' FCB=3
- 000F84 9200 40B3 MVI 179(4),X'00' FCB=3
- 000F88 D203 40DC A038 MVC 220(4,4),56(10) FCB=3 PGMLIT AT +16
- 000F8E 92A4 40F8 MVI 248(4),X'A4' FCB=3
- 000F92 D203 4074 A1FE MVC 116(4,4),510(10) FCB=3 PGMLIT AT +470
- 000F98 58F0 308C L 15,140(0,3) V(IGZCSPA )
- 000F9C 0DEF BASR 14,15
- 000379 WRITE
- 000F9E D283 2000 81F0 MVC 0(132,2),496(8) FUND-REPORT-RECORD FUND-COL-HYPHEN
- 000FA4 5840 9150 L 4,336(0,9) FUND-REPORT-FILE
- 000FA8 9200 40C9 MVI 201(4),X'00' FCB=3
- 000FAC 9200 40B3 MVI 179(4),X'00' FCB=3
- 000FB0 D203 40DC A038 MVC 220(4,4),56(10) FCB=3 PGMLIT AT +16
- 000FB6 92A4 40F8 MVI 248(4),X'A4' FCB=3
- 000FBA D203 4074 A1FE MVC 116(4,4),510(10) FCB=3 PGMLIT AT +470
- 000FC0 58F0 308C L 15,140(0,3) V(IGZCSPA )
- 000FC4 0DEF BASR 14,15
- 000382 MOVE
- 000FC6 D201 8020 A02C MVC 32(2,8),44(10) LINE-CTR PGMLIT AT +4
- 000FCC 5840 D124 L 4,292(0,13) PVN=7
- 000FD0 07F4 BCR 15,4
- 000384 *1100-EXIT
- 000384 EXIT
- 000392 *0110-PRINT-TOTALS
- 000393 ADD
- 000FD2 D201 D150 8022 MVC 336(2,13),34(8) TS2=0 PAGE-CTR
- 000FD8 960F D151 OI 337(13),X'0F' TS2=1
- 000FDC FA10 D150 A16A AP 336(2,13),362(1,10) TS2=0 PGMLIT AT +322
- 000FE2 D201 8022 D150 MVC 34(2,8),336(13) PAGE-CTR TS2=0
- 000FE8 960F 8023 OI 35(8),X'0F' PAGE-CTR+1
- 000395 MOVE
- 000FEC D203 D150 A1FA MVC 336(4,13),506(10) TS2=0 PGMLIT AT +466
- 000FF2 DE03 D150 8022 ED 336(4,13),34(8) TS2=0 PAGE-CTR
- 000FF8 GN=73 EQU *
- 000FF8 D202 80D9 D151 MVC 217(3,8),337(13) OUT-PAGE-CTR TS2=1
- 000397 MOVE
- 000FFE D218 808D 8415 MVC 141(25,8),1045(8) OUT-FUND-NME IN-FUND-NME
- 000399 WRITE
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 32
- 001004 5820 913C L 2,316(0,9) BLF=2
- 001008 D283 2000 8058 MVC 0(132,2),88(8) FUND-REPORT-RECORD FUND-REPORT-HDR-1
- 00100E 5840 9150 L 4,336(0,9) FUND-REPORT-FILE
- 001012 9200 40C9 MVI 201(4),X'00' FCB=3
- 001016 9200 40B3 MVI 179(4),X'00' FCB=3
- 00101A 9212 40F9 MVI 249(4),X'12' FCB=3
- 00101E 92A8 40F8 MVI 248(4),X'A8' FCB=3
- 001022 D203 4074 A1FE MVC 116(4,4),510(10) FCB=3 PGMLIT AT +470
- 001028 5830 905C L 3,92(0,9) TGTFIXD+92
- 00102C 58F0 308C L 15,140(0,3) V(IGZCSPA )
- 001030 0DEF BASR 14,15
- 000402 WRITE
- 001032 D283 2000 80E0 MVC 0(132,2),224(8) FUND-REPORT-RECORD FUND-REPORT-SUBHDR-1
- 001038 5840 9150 L 4,336(0,9) FUND-REPORT-FILE
- 00103C 9200 40C9 MVI 201(4),X'00' FCB=3
- 001040 9200 40B3 MVI 179(4),X'00' FCB=3
- 001044 D203 40DC A038 MVC 220(4,4),56(10) FCB=3 PGMLIT AT +16
- 00104A 92A4 40F8 MVI 248(4),X'A4' FCB=3
- 00104E D203 4074 A1FE MVC 116(4,4),510(10) FCB=3 PGMLIT AT +470
- 001054 58F0 308C L 15,140(0,3) V(IGZCSPA )
- 001058 0DEF BASR 14,15
- 000405 WRITE
- 00105A D283 2000 8278 MVC 0(132,2),632(8) FUND-REPORT-RECORD FUND-TOTALS-HDR
- 001060 5840 9150 L 4,336(0,9) FUND-REPORT-FILE
- 001064 9200 40C9 MVI 201(4),X'00' FCB=3
- 001068 9200 40B3 MVI 179(4),X'00' FCB=3
- 00106C D203 40DC A038 MVC 220(4,4),56(10) FCB=3 PGMLIT AT +16
- 001072 92A4 40F8 MVI 248(4),X'A4' FCB=3
- 001076 D203 4074 A1FE MVC 116(4,4),510(10) FCB=3 PGMLIT AT +470
- 00107C 58F0 308C L 15,140(0,3) V(IGZCSPA )
- 001080 0DEF BASR 14,15
- 000407 WRITE
- 001082 D283 2000 8300 MVC 0(132,2),768(8) FUND-REPORT-RECORD FUND-TOTALS-HYPHEN
- 001088 5840 9150 L 4,336(0,9) FUND-REPORT-FILE
- 00108C 9200 40C9 MVI 201(4),X'00' FCB=3
- 001090 9200 40B3 MVI 179(4),X'00' FCB=3
- 001094 D203 40DC A038 MVC 220(4,4),56(10) FCB=3 PGMLIT AT +16
- 00109A 92A4 40F8 MVI 248(4),X'A4' FCB=3
- 00109E D203 4074 A1FE MVC 116(4,4),510(10) FCB=3 PGMLIT AT +470
- 0010A4 58F0 308C L 15,140(0,3) V(IGZCSPA )
- 0010A8 0DEF BASR 14,15
- 000409 MOVE
- 0010AA D203 D150 A1FA MVC 336(4,13),506(10) TS2=0 PGMLIT AT +466
- 0010B0 DE03 D150 8024 ED 336(4,13),36(8) TS2=0 RECORD-CTR
- 0010B6 GN=76 EQU *
- 0010B6 D202 8388 D151 MVC 904(3,8),337(13) OUT-RECORD-CTR TS2=1
- 000410 MOVE
- 0010BC D214 D150 A1AF MVC 336(21,13),431(10) TS2=0 PGMLIT AT +391
- 0010C2 F877 D168 8038 ZAP 360(8,13),56(8,8) TS2=24 TOTAL-COMMISSION
- 0010C8 4110 D161 LA 1,353(0,13) TS2=17
- 0010CC DF14 D150 D168 EDMK 336(21,13),360(13) TS2=0 TS2=24
- 0010D2 GN=80 EQU *
- 0010D2 0610 BCTR 1,0
- 0010D4 925B 1000 MVI 0(1),X'5B'
- 0010D8 GN=79 EQU *
- 0010D8 D212 83F8 D152 MVC 1016(19,8),338(13) OUT-TOTAL-COMMISSION TS2=2
- 000411 MOVE
- 0010DE D214 D150 A1AF MVC 336(21,13),431(10) TS2=0 PGMLIT AT +391
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 33
- 0010E4 F877 D168 8028 ZAP 360(8,13),40(8,8) TS2=24 TOTAL-DEPOSIT-AMT
- 0010EA 4110 D161 LA 1,353(0,13) TS2=17
- 0010EE DF14 D150 D168 EDMK 336(21,13),360(13) TS2=0 TS2=24
- 0010F4 GN=83 EQU *
- 0010F4 0610 BCTR 1,0
- 0010F6 925B 1000 MVI 0(1),X'5B'
- 0010FA GN=82 EQU *
- 0010FA D212 83AA D152 MVC 938(19,8),338(13) OUT-TOTAL-DEPOSIT-AMT TS2=2
- 000412 MOVE
- 001100 D213 D150 A1C4 MVC 336(20,13),452(10) TS2=0 PGMLIT AT +412
- 001106 F876 D168 8031 ZAP 360(8,13),49(7,8) TS2=24 TOTAL-SHARES-SOLD+1
- 00110C F070 D168 0002 SRP 360(8,13),2(0),0 TS2=24
- 001112 DE13 D150 D168 ED 336(20,13),360(13) TS2=0 TS2=24
- 001118 GN=85 EQU *
- 001118 D212 83D2 D151 MVC 978(19,8),337(13) OUT-TOTAL-SHARES-SOLD TS2=1
- 000414 WRITE
- 00111E D282 2000 8388 MVC 0(131,2),904(8) FUND-REPORT-RECORD FUND-TOTALS
- 001124 9240 2083 MVI 131(2),X'40' FUND-REPORT-RECORD+131
- 001128 5840 9150 L 4,336(0,9) FUND-REPORT-FILE
- 00112C 9200 40C9 MVI 201(4),X'00' FCB=3
- 001130 9200 40B3 MVI 179(4),X'00' FCB=3
- 001134 D203 40DC A030 MVC 220(4,4),48(10) FCB=3 PGMLIT AT +8
- 00113A 92A4 40F8 MVI 248(4),X'A4' FCB=3
- 00113E D203 4074 A1FE MVC 116(4,4),510(10) FCB=3 PGMLIT AT +470
- 001144 58F0 308C L 15,140(0,3) V(IGZCSPA )
- 001148 0DEF BASR 14,15
- 000416 MOVE
- 00114A D201 8020 A02C MVC 32(2,8),44(10) LINE-CTR PGMLIT AT +4
- 001150 5840 D118 L 4,280(0,13) PVN=4
- 001154 07F4 BCR 15,4
- 000418 *0110-EXIT
- 000418 EXIT
- 000427 *0100-PROCESS-HISALES
- 000429 IF
- 001156 D501 8020 A040 CLC 32(2,8),64(10) LINE-CTR PGMLIT AT +24
- 00115C 47D0 BBD0 BC 13,3024(0,11) GN=20(001178)
- 000430 PERFORM
- 001160 D203 D140 D128 MVC 320(4,13),296(13) PSV=6 PVN=8
- 001166 4120 BBCA LA 2,3018(0,11) GN=31(001172)
- 00116A 5020 D128 ST 2,296(0,13) PVN=8
- 00116E 47F0 BD22 BC 15,3362(0,11) 1110-PRINT-HISALES-HDR
- 001172 GN=31 EQU *
- 001172 D203 D128 D140 MVC 296(4,13),320(13) PVN=8 PSV=6
- 001178 GN=20 EQU *
- 000432 MOVE
- 001178 D218 84B0 8460 MVC 1200(25,8),1120(8) OUT-FUND-BRNCH-NME IN-FUND-BRNCH-NME
- 000433 MOVE
- 00117E D218 84D2 8479 MVC 1234(25,8),1145(8) OUT-FUND-BROKER-NME IN-FUND-BROKER-NME
- 000434 MOVE
- 001184 D20F D150 A1D8 MVC 336(16,13),472(10) TS2=0 PGMLIT AT +432
- 00118A F259 D160 8492 PACK 352(6,13),1170(10,8) TS2=16 IN-FUND-DEPOSIT-AMT
- 001190 F855 D160 D160 ZAP 352(6,13),352(6,13) TS2=16 TS2=16
- 001196 4110 D15C LA 1,348(0,13) TS2=12
- 00119A DF0F D150 D160 EDMK 336(16,13),352(13) TS2=0 TS2=16
- 0011A0 GN=89 EQU *
- 0011A0 0610 BCTR 1,0
- 0011A2 925B 1000 MVI 0(1),X'5B'
- 0011A6 GN=88 EQU *
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 34
- 0011A6 D20D 84F4 D152 MVC 1268(14,8),338(13) OUT-FUND-DEPOSIT-AMT TS2=2
- 000436 READ
- 0011AC 5840 9148 L 4,328(0,9) FUND-FILE
- 0011B0 9200 40C9 MVI 201(4),X'00' FCB=1
- 0011B4 9200 40B3 MVI 179(4),X'00' FCB=1
- 0011B8 D203 4074 A202 MVC 116(4,4),514(10) FCB=1 PGMLIT AT +474
- 0011BE 58F0 403C L 15,60(0,4) FCB=1
- 0011C2 0D5F BASR 5,15
- 0011C4 9500 40C9 CLI 201(4),X'00' FCB=1
- 0011C8 58B0 C038 L 11,56(0,12) PBL=1
- 0011CC 4770 BC3A BC 7,3130(0,11) GN=90(0011E2)
- 0011D0 5010 9134 ST 1,308(0,9) BLF=0
- 0011D4 5820 9134 L 2,308(0,9) BLF=0
- 0011D8 D24F 8460 2000 MVC 1120(80,8),0(2) IN-FUND-RECORD FUND-RECORD
- 0011DE 47F0 BC52 BC 15,3154(0,11) GN=22(0011FA)
- 0011E2 GN=90 EQU *
- 0011E2 9510 40C9 CLI 201(4),X'10' FCB=1
- 0011E6 4780 BC4E BC 8,3150(0,11) GN=91(0011F6)
- 0011EA 9500 40C9 CLI 201(4),X'00' FCB=1
- 0011EE 4780 BC52 BC 8,3154(0,11) GN=22(0011FA)
- 0011F2 47F0 BC52 BC 15,3154(0,11) GN=21(0011FA)
- 0011F6 GN=91 EQU *
- 000437 MOVE
- 0011F6 92E8 8000 MVI 0(8),X'E8' EOF-FLAG
- 0011FA GN=22 EQU *
- 0011FA GN=21 EQU *
- 000440 COMPUTE
- 0011FA F2A9 D150 8492 PACK 336(11,13),1170(10,8) TS2=0 IN-FUND-DEPOSIT-AMT
- 001200 F070 D153 0004 SRP 339(8,13),4(0),0 TS2=3
- 001206 F224 D160 8410 PACK 352(3,13),1040(5,8) TS2=16 IN-FUND-SHR-PRC
- 00120C FDA2 D150 D160 DP 336(11,13),352(3,13) TS2=0 TS2=16
- 001212 F075 D150 003F SRP 336(8,13),63(0),5 TS2=0
- 001218 F855 D152 D152 ZAP 338(6,13),338(6,13) TS2=2 TS2=2
- 00121E F3A5 8008 D152 UNPK 8(11,8),338(6,13) TEMP-SHARES-SOLD TS2=2
- 000443 IF
- 001224 F25A D150 8008 PACK 336(6,13),8(11,8) TS2=0 TEMP-SHARES-SOLD
- 00122A F954 D150 A164 CP 336(6,13),356(5,10) TS2=0 PGMLIT AT +316
- 001230 47D0 BD1C BC 13,3356(0,11) GN=23(0012C4)
- 000444 MOVE
- 001234 D218 85DD 8479 MVC 1501(25,8),1145(8) OUT-HISALES-BROKER-NME IN-FUND-BROKER-NME
- 000445 MOVE
- 00123A D213 D150 A1C4 MVC 336(20,13),452(10) TS2=0 PGMLIT AT +412
- 001240 F27A D168 8008 PACK 360(8,13),8(11,8) TS2=24 TEMP-SHARES-SOLD
- 001246 F060 D169 0001 SRP 361(7,13),1(0),0 TS2=25
- 00124C DE13 D150 D168 ED 336(20,13),360(13) TS2=0 TS2=24
- 001252 GN=93 EQU *
- 001252 D211 8613 D152 MVC 1555(18,8),338(13) OUT-HISALES-SHARES-SOLD TS2=2
- 000446 WRITE
- 001258 5820 9138 L 2,312(0,9) BLF=1
- 00125C D282 2000 85C0 MVC 0(131,2),1472(8) HISALES-RECORD HISALES-RECORD-DETAIL
- 001262 9240 2083 MVI 131(2),X'40' HISALES-RECORD+131
- 001266 5840 914C L 4,332(0,9) HISALES-FILE
- 00126A 9200 40C9 MVI 201(4),X'00' FCB=2
- 00126E 9200 40B3 MVI 179(4),X'00' FCB=2
- 001272 D203 40DC A038 MVC 220(4,4),56(10) FCB=2 PGMLIT AT +16
- 001278 92A4 40F8 MVI 248(4),X'A4' FCB=2
- 00127C D203 4074 A1FE MVC 116(4,4),510(10) FCB=2 PGMLIT AT +470
- 001282 5830 905C L 3,92(0,9) TGTFIXD+92
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 35
- 001286 58F0 308C L 15,140(0,3) V(IGZCSPA )
- 00128A 0DEF BASR 14,15
- 000447 ADD
- 00128C D201 D150 8024 MVC 336(2,13),36(8) TS2=0 RECORD-CTR
- 001292 960F D151 OI 337(13),X'0F' TS2=1
- 001296 FA10 D150 A16A AP 336(2,13),362(1,10) TS2=0 PGMLIT AT +322
- 00129C D201 8024 D150 MVC 36(2,8),336(13) RECORD-CTR TS2=0
- 0012A2 960F 8025 OI 37(8),X'0F' RECORD-CTR+1
- 000448 ADD
- 0012A6 F27A D150 8008 PACK 336(8,13),8(11,8) TS2=0 TEMP-SHARES-SOLD
- 0012AC F070 8030 0001 SRP 48(8,8),1(0),0 TOTAL-SHARES-SOLD
- 0012B2 FA75 8030 D152 AP 48(8,8),338(6,13) TOTAL-SHARES-SOLD TS2=2
- 0012B8 F176 8030 8030 MVO 48(8,8),48(7,8) TOTAL-SHARES-SOLD TOTAL-SHARES-SOLD
- 0012BE F877 8030 8030 ZAP 48(8,8),48(8,8) TOTAL-SHARES-SOLD TOTAL-SHARES-SOLD
- 0012C4 GN=23 EQU *
- 0012C4 5820 D11C L 2,284(0,13) PVN=5
- 0012C8 07F2 BCR 15,2
- 000451 *0100-EXIT
- 000451 EXIT
- 000461 *1110-PRINT-HISALES-HDR
- 000462 ADD
- 0012CA D201 D150 8022 MVC 336(2,13),34(8) TS2=0 PAGE-CTR
- 0012D0 960F D151 OI 337(13),X'0F' TS2=1
- 0012D4 FA10 D150 A16A AP 336(2,13),362(1,10) TS2=0 PGMLIT AT +322
- 0012DA D201 8022 D150 MVC 34(2,8),336(13) PAGE-CTR TS2=0
- 0012E0 960F 8023 OI 35(8),X'0F' PAGE-CTR+1
- 000464 MOVE
- 0012E4 D203 D150 A1FA MVC 336(4,13),506(10) TS2=0 PGMLIT AT +466
- 0012EA DE03 D150 8022 ED 336(4,13),34(8) TS2=0 PAGE-CTR
- 0012F0 GN=96 EQU *
- 0012F0 D202 80D9 D151 MVC 217(3,8),337(13) OUT-PAGE-CTR TS2=1
- 000466 MOVE
- 0012F6 D218 808D 8415 MVC 141(25,8),1045(8) OUT-FUND-NME IN-FUND-NME
- 000468 WRITE
- 0012FC 5820 9138 L 2,312(0,9) BLF=1
- 001300 D283 2000 8058 MVC 0(132,2),88(8) HISALES-RECORD FUND-REPORT-HDR-1
- 001306 5840 914C L 4,332(0,9) HISALES-FILE
- 00130A 9200 40C9 MVI 201(4),X'00' FCB=2
- 00130E 9200 40B3 MVI 179(4),X'00' FCB=2
- 001312 9212 40F9 MVI 249(4),X'12' FCB=2
- 001316 92A8 40F8 MVI 248(4),X'A8' FCB=2
- 00131A D203 4074 A1FE MVC 116(4,4),510(10) FCB=2 PGMLIT AT +470
- 001320 5830 905C L 3,92(0,9) TGTFIXD+92
- 001324 58F0 308C L 15,140(0,3) V(IGZCSPA )
- 001328 0DEF BASR 14,15
- 000471 WRITE
- 00132A D283 2000 80E0 MVC 0(132,2),224(8) HISALES-RECORD FUND-REPORT-SUBHDR-1
- 001330 5840 914C L 4,332(0,9) HISALES-FILE
- 001334 9200 40C9 MVI 201(4),X'00' FCB=2
- 001338 9200 40B3 MVI 179(4),X'00' FCB=2
- 00133C D203 40DC A038 MVC 220(4,4),56(10) FCB=2 PGMLIT AT +16
- 001342 92A4 40F8 MVI 248(4),X'A4' FCB=2
- 001346 D203 4074 A1FE MVC 116(4,4),510(10) FCB=2 PGMLIT AT +470
- 00134C 58F0 308C L 15,140(0,3) V(IGZCSPA )
- 001350 0DEF BASR 14,15
- 000474 WRITE
- 001352 D283 2000 8538 MVC 0(132,2),1336(8) HISALES-RECORD HISALES-COL-HDR
- 001358 5840 914C L 4,332(0,9) HISALES-FILE
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 36
- 00135C 9200 40C9 MVI 201(4),X'00' FCB=2
- 001360 9200 40B3 MVI 179(4),X'00' FCB=2
- 001364 D203 40DC A038 MVC 220(4,4),56(10) FCB=2 PGMLIT AT +16
- 00136A 92A4 40F8 MVI 248(4),X'A4' FCB=2
- 00136E D203 4074 A1FE MVC 116(4,4),510(10) FCB=2 PGMLIT AT +470
- 001374 58F0 308C L 15,140(0,3) V(IGZCSPA )
- 001378 0DEF BASR 14,15
- 000477 MOVE
- 00137A D201 8020 A02C MVC 32(2,8),44(10) LINE-CTR PGMLIT AT +4
- 001380 5840 D128 L 4,296(0,13) PVN=8
- 001384 07F4 BCR 15,4
- 000478 *1110-EXIT
- 000478 EXIT
- 000487 *0001-PRINT-HISALES-TOTALS
- 000488 ADD
- 001386 D201 D150 8022 MVC 336(2,13),34(8) TS2=0 PAGE-CTR
- 00138C 960F D151 OI 337(13),X'0F' TS2=1
- 001390 FA10 D150 A16A AP 336(2,13),362(1,10) TS2=0 PGMLIT AT +322
- 001396 D201 8022 D150 MVC 34(2,8),336(13) PAGE-CTR TS2=0
- 00139C 960F 8023 OI 35(8),X'0F' PAGE-CTR+1
- 000490 MOVE
- 0013A0 D203 D150 A1FA MVC 336(4,13),506(10) TS2=0 PGMLIT AT +466
- 0013A6 DE03 D150 8022 ED 336(4,13),34(8) TS2=0 PAGE-CTR
- 0013AC GN=99 EQU *
- 0013AC D202 80D9 D151 MVC 217(3,8),337(13) OUT-PAGE-CTR TS2=1
- 000492 MOVE
- 0013B2 D218 808D 8415 MVC 141(25,8),1045(8) OUT-FUND-NME IN-FUND-NME
- 000494 WRITE
- 0013B8 5820 9138 L 2,312(0,9) BLF=1
- 0013BC D283 2000 8058 MVC 0(132,2),88(8) HISALES-RECORD FUND-REPORT-HDR-1
- 0013C2 5840 914C L 4,332(0,9) HISALES-FILE
- 0013C6 9200 40C9 MVI 201(4),X'00' FCB=2
- 0013CA 9200 40B3 MVI 179(4),X'00' FCB=2
- 0013CE 9212 40F9 MVI 249(4),X'12' FCB=2
- 0013D2 92A8 40F8 MVI 248(4),X'A8' FCB=2
- 0013D6 D203 4074 A1FE MVC 116(4,4),510(10) FCB=2 PGMLIT AT +470
- 0013DC 5830 905C L 3,92(0,9) TGTFIXD+92
- 0013E0 58F0 308C L 15,140(0,3) V(IGZCSPA )
- 0013E4 0DEF BASR 14,15
- 000497 WRITE
- 0013E6 D283 2000 80E0 MVC 0(132,2),224(8) HISALES-RECORD FUND-REPORT-SUBHDR-1
- 0013EC 5840 914C L 4,332(0,9) HISALES-FILE
- 0013F0 9200 40C9 MVI 201(4),X'00' FCB=2
- 0013F4 9200 40B3 MVI 179(4),X'00' FCB=2
- 0013F8 D203 40DC A038 MVC 220(4,4),56(10) FCB=2 PGMLIT AT +16
- 0013FE 92A4 40F8 MVI 248(4),X'A4' FCB=2
- 001402 D203 4074 A1FE MVC 116(4,4),510(10) FCB=2 PGMLIT AT +470
- 001408 58F0 308C L 15,140(0,3) V(IGZCSPA )
- 00140C 0DEF BASR 14,15
- 000500 WRITE
- 00140E D283 2000 86D0 MVC 0(132,2),1744(8) HISALES-RECORD HISALES-TOTALS-HDR
- 001414 5840 914C L 4,332(0,9) HISALES-FILE
- 001418 9200 40C9 MVI 201(4),X'00' FCB=2
- 00141C 9200 40B3 MVI 179(4),X'00' FCB=2
- 001420 D203 40DC A038 MVC 220(4,4),56(10) FCB=2 PGMLIT AT +16
- 001426 92A4 40F8 MVI 248(4),X'A4' FCB=2
- 00142A D203 4074 A1FE MVC 116(4,4),510(10) FCB=2 PGMLIT AT +470
- 001430 58F0 308C L 15,140(0,3) V(IGZCSPA )
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 37
- 001434 0DEF BASR 14,15
- 000503 MOVE
- 001436 D205 D150 A1F4 MVC 336(6,13),500(10) TS2=0 PGMLIT AT +460
- 00143C F821 D158 8024 ZAP 344(3,13),36(2,8) TS2=8 RECORD-CTR
- 001442 960F D15A OI 346(13),X'0F' TS2=10
- 001446 DE05 D150 D158 ED 336(6,13),344(13) TS2=0 TS2=8
- 00144C GN=102 EQU *
- 00144C D203 867A D152 MVC 1658(4,8),338(13) HISALES-RECORD-CTR TS2=2
- 000504 MOVE
- 001452 D213 D150 A1C4 MVC 336(20,13),452(10) TS2=0 PGMLIT AT +412
- 001458 F876 D168 8031 ZAP 360(8,13),49(7,8) TS2=24 TOTAL-SHARES-SOLD+1
- 00145E F070 D168 0002 SRP 360(8,13),2(0),0 TS2=24
- 001464 DE13 D150 D168 ED 336(20,13),360(13) TS2=0 TS2=24
- 00146A GN=105 EQU *
- 00146A D212 869B D151 MVC 1691(19,8),337(13) HISALES-TOTAL-SHARES-SOLD TS2=1
- 000506 WRITE
- 001470 D282 2000 8648 MVC 0(131,2),1608(8) HISALES-RECORD HISALES-TOTALS
- 001476 9240 2083 MVI 131(2),X'40' HISALES-RECORD+131
- 00147A 5840 914C L 4,332(0,9) HISALES-FILE
- 00147E 9200 40C9 MVI 201(4),X'00' FCB=2
- 001482 9200 40B3 MVI 179(4),X'00' FCB=2
- 001486 D203 40DC A030 MVC 220(4,4),48(10) FCB=2 PGMLIT AT +8
- 00148C 92A4 40F8 MVI 248(4),X'A4' FCB=2
- 001490 D203 4074 A1FE MVC 116(4,4),510(10) FCB=2 PGMLIT AT +470
- 001496 58F0 308C L 15,140(0,3) V(IGZCSPA )
- 00149A 0DEF BASR 14,15
- 00149C 5840 D120 L 4,288(0,13) PVN=6
- 0014A0 07F4 BCR 15,4
- 000509 *0001-EXIT
- 000509 EXIT
- 0014A2 9120 D084 TM 132(13),X'20' DSAFIXD+132
- 0014A6 47E0 BF0C BC 14,3852(0,11) GN=2(0014B4)
- 0014AA 58F0 30F4 L 15,244(0,3) V(IGZCMSG )
- 0014AE 4110 A216 LA 1,534(0,10) PGMLIT AT +494
- 0014B2 0DEF BASR 14,15
- 0014B4 GN=2 EQU *
- 0014B4 5820 9164 L 2,356(0,9) IPCB=1+16
- 0014B8 5B20 C004 S 2,4(0,12) SYSLIT AT +4
- 0014BC 5020 9164 ST 2,356(0,9) IPCB=1+16
- 0014C0 9128 9054 TM 84(9),X'28' TGTFIXD+84
- 0014C4 4770 BF36 BC 7,3894(0,11) GN=107(0014DE)
- 0014C8 5820 9128 L 2,296(0,9) BL=1
- 0014CC 48F0 2008 LH 15,8(0,2) RETURN-CODE
- 0014D0 58D0 D004 L 13,4(0,13)
- 0014D4 58E0 D00C L 14,12(0,13)
- 0014D8 980C D014 LM 0,12,20(13)
- 0014DC 07FE BCR 15,14
- 0014DE GN=107 EQU *
- 0014DE D20B D150 A1E8 MVC 336(12,13),488(10) TS2=0 PGMLIT AT +448
- 0014E4 5830 9128 L 3,296(0,9) BL=1
- 0014E8 4820 3008 LH 2,8(0,3) RETURN-CODE
- 0014EC 5020 D15C ST 2,348(0,13) TS2=12
- 0014F0 4110 D150 LA 1,336(0,13) TS2=0
- 0014F4 5820 905C L 2,92(0,9) TGTFIXD+92
- 0014F8 58F0 2224 L 15,548(0,2) V(IGZETRM )
- 0014FC 0DEF BASR 14,15
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 38
- *** TGT MEMORY MAP ***
- TGTLOC
- 000000 RESERVED - 72 BYTES
- 000048 TGT IDENTIFIER
- 00004C RESERVED - 4 BYTES
- 000050 TGT LEVEL INDICATOR
- 000051 RESERVED - 3 BYTES
- 000054 32 BIT SWITCH
- 000058 POINTER TO RUNCOM
- 00005C POINTER TO COBVEC
- 000060 POINTER TO PROGRAM DYNAMIC BLOCK TABLE
- 000064 NUMBER OF FCB'S
- 000068 WORKING-STORAGE LENGTH
- 00006C RESERVED - 4 BYTES
- 000070 ADDRESS OF IGZESMG WORK AREA
- 000074 ADDRESS OF 1ST GETMAIN BLOCK (SPACE MGR)
- 000078 RESERVED - 2 BYTES
- 00007A RESERVED - 2 BYTES
- 00007C RESERVED - 2 BYTES
- 00007E MERGE FILE NUMBER
- 000080 ADDRESS OF CEL COMMON ANCHOR AREA
- 000084 LENGTH OF TGT
- 000088 RESERVED - 1 SINGLE BYTE FIELD
- 000089 PROGRAM MASK USED BY THIS PROGRAM
- 00008A RESERVED - 2 SINGLE BYTE FIELDS
- 00008C NUMBER OF SECONDARY FCB CELLS
- 000090 LENGTH OF THE ALTER VN(VNI) VECTOR
- 000094 COUNT OF NESTED PROGRAMS IN COMPILE UNIT
- 000098 DDNAME FOR DISPLAY OUTPUT
- 0000A0 RESERVED - 8 BYTES
- 0000A8 POINTER TO COM-REG SPECIAL REGISTER
- 0000AC RESERVED - 52 BYTES
- 0000E0 ALTERNATE COLLATING SEQUENCE TABLE PTR.
- 0000E4 ADDRESS OF SORT G.N. ADDRESS BLOCK
- 0000E8 ADDRESS OF PGT
- 0000EC RESERVED - 4 BYTES
- 0000F0 POINTER TO 1ST IPCB
- 0000F4 ADDRESS OF THE CLLE FOR THIS PROGRAM
- 0000F8 POINTER TO ABEND INFORMATION TABLE
- 0000FC POINTER TO TEST INFO FIELDS IN THE TGT
- 000100 ADDRESS OF START OF COBOL PROGRAM
- 000104 POINTER TO ALTER VNI'S IN CGT
- 000108 POINTER TO ALTER VN'S IN TGT
- 00010C POINTER TO FIRST PBL IN THE PGT
- 000110 POINTER TO FIRST FCB CELL
- 000114 WORKING-STORAGE ADDRESS
- 000118 POINTER TO FIRST SECONDARY FCB CELL
- 00011C POINTER TO STATIC CLASS INFO BLOCK 1
- 000120 POINTER TO STATIC CLASS INFO BLOCK 2
- *** VARIABLE PORTION OF TGT ***
- 000124 BASE LOCATORS FOR SPECIAL REGISTERS
- 00012C BASE LOCATORS FOR WORKING-STORAGE
- 000130 BASE LOCATORS FOR LINKAGE-SECTION
- 000134 BASE LOCATORS FOR FILES
- 000140 CLLE ADDR. CELLS FOR CALL LIT. SUB-PGMS.
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 39
- 000148 FCB CELLS
- 000154 INTERNAL PROGRAM CONTROL BLOCKS
- *** DSA MEMORY MAP ***
- DSALOC
- 00000000 REGISTER SAVE AREA
- 0000004C STACK NAB (NEXT AVAILABLE BYTE)
- 00000058 ADDRESS OF INLINE-CODE PRIMARY DSA
- 0000005C ADDRESS OF TGT
- 00000060 ADDRESS OF CAA
- 00000080 XML PARSE WORK AREA ANCHOR
- 00000084 SWITCHES
- 00000088 CURRENT INT. PROGRAM OR METHOD NUMBER
- 0000008C ADDRESS OF CALL STATEMENT PROGRAM NAME
- 00000090 CALC ROUTINE REGISTER SAVE AREA
- 000000C4 ADDRESS OF FILE MUTEX USE COUNT CELLS
- 000000C8 PROCEDURE DIVISION RETURNING VALUE
- *** VARIABLE PORTION OF DSA ***
- 000000D0 BACKSTORE CELLS FOR SYMBOLIC REGISTERS
- 000000F0 BASE LOCATORS FOR ALPHANUMERIC TEMPS
- 000000F4 VARIABLE-LENGTH CELLS
- 0000010C VARIABLE NAME (VN) CELLS FOR PERFORM
- 0000012C PERFORM SAVE CELLS
- 00000150 TEMPORARY STORAGE-2
- 00000170 ALPHANUMERIC TEMPORARY STORAGE
- TGT WILL BE ALLOCATED FOR 00000168 BYTES
- DCB00001 WILL BE ALLOCATED FOR 00000060 BYTES
- FCB00001 WILL BE ALLOCATED FOR 00000114 BYTES
- DCB00002 WILL BE ALLOCATED FOR 00000060 BYTES
- FCB00002 WILL BE ALLOCATED FOR 00000114 BYTES
- DCB00003 WILL BE ALLOCATED FOR 00000060 BYTES
- FCB00003 WILL BE ALLOCATED FOR 00000114 BYTES
- GDT00001 WILL BE ALLOCATED FOR 000000A0 BYTES
- RCD00001 WILL BE ALLOCATED FOR 00000085 BYTES
- RCD00002 WILL BE ALLOCATED FOR 00000085 BYTES
- SPEC-REG WILL BE ALLOCATED FOR 00000084 BYTES
- WRK-STOR WILL BE ALLOCATED FOR 00000754 BYTES
- DSA WILL BE ALLOCATED FOR 00000188 BYTES
- CONSTANT GLOBAL TABLE FOR DYNAMIC STORAGE INITIALIZATION AT LOCATION 001560
- INITD CODE FOR DYNAMIC STORAGE INITIALIZATION BEGINS AT LOCATION 001B8C FOR LENGTH 00016C
- PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 FUNDRPT1 Date 10/31/2016 Time 23:01:06 Page 40
- * Statistics for COBOL program FUNDRPT1:
- * Source records = 509
- * Data Division statements = 93
- * Procedure Division statements = 107
- End of compilation 1, program FUNDRPT1, no statements flagged.
- Return code 0
- !! END OF JES SPOOL FILE !!
- z/OS V2 R1 BINDER 23:01:07 MONDAY OCTOBER 31, 2016
- BATCH EMULATOR JOB(KC03R25A) STEP(JSTEP02 ) PGM= HEWLDRGO
- *** O P E R A T I O N S U M M A R Y R E P O R T ***
- PROCESSING OPTIONS:
- ALIASES NO
- ALIGN2 NO
- AMODE UNSPECIFIED
- CALL YES
- CASE UPPER
- COMPAT UNSPECIFIED
- COMPRESS AUTO
- DCBS NO
- DYNAM NO
- EXTATTR UNSPECIFIED
- EXITS: NONE
- FILL NONE
- GID UNSPECIFIED
- HOBSET NO
- INFO NO
- LET 04
- LINECT 060
- LIST SUMMARY
- LISTPRIV NO
- LONGPARM NO
- MAP NO
- MAXBLK 032760
- MODMAP NO
- MSGLEVEL 00
- OVLY NO
- PRINT YES
- RES YES
- REUSABILITY UNSPECIFIED
- RMODE UNSPECIFIED
- SIGN NO
- STORENX NOREPLACE
- STRIPCL NO
- STRIPSEC NO
- SYMTRACE
- TERM NO
- TRAP ON
- UID UNSPECIFIED
- UPCASE NO
- WKSPACE 000000K,000000K
- XCAL NO
- XREF NO
- ***END OF OPTIONS***
- LOAD OPERATION SUMMARY:
- LOADED NAME **GO
- TIME OF LOAD 23.01.07 OCT 31, 2016
- LOAD PT VADDR(HEX) 1EEBD000
- ENTRY PT VADDR(HEX) 1EEBD000
- LOAD MODULE ATTRIBUTES:
- AMODE 31
- PAGE ALIGN NO
- RMODE ANY
- XPLINK NO
- MODULE SIZE (HEX) 00002958
- z/OS V2 R1 BINDER 23:01:07 MONDAY OCTOBER 31, 2016
- BATCH EMULATOR JOB(KC03R25A) STEP(JSTEP02 ) PGM= HEWLDRGO
- IEW2010I 0F06 LOADED PROGRAM RETURN CODE = 0.
- IEW2008I 0F03 PROCESSING COMPLETED. RETURN CODE = 0.
- ----------------------
- MESSAGE SUMMARY REPORT
- ----------------------
- TERMINAL MESSAGES (SEVERITY = 16)
- NONE
- SEVERE MESSAGES (SEVERITY = 12)
- NONE
- ERROR MESSAGES (SEVERITY = 08)
- NONE
- WARNING MESSAGES (SEVERITY = 04)
- NONE
- INFORMATIONAL MESSAGES (SEVERITY = 00)
- 2008 2010
- **** END OF MESSAGE SUMMARY REPORT ****
- !! END OF JES SPOOL FILE !!
- 31/10/2016 AMERICAN BENEVOLENCE FUND PAGE: 1
- 23:01:07 DAILY BROKER SALES AND COMMISSION
- BRANCH NAME BROKER NAME DEPOSIT AMOUNT SHARES SOLD COMISSION
- ----------- ----------- -------------- ------------- -----------
- Athens, Greece George Schipodokas $401,124.71 9,270.2730 $324.91
- Athens, Greece Boodra Makedonas $943,704.71 21,809.6770 $1,245.69
- Athens, Greece Aristotle Onassis $214,173.13 4,949.6910 $173.48
- Athens, Greece Maria Callas $315,401.52 7,289.1500 $255.48
- Athens, Greece Kostas Dalaras $407,740.68 9,423.1730 $330.27
- Athens, Greece Peter Bogdonas $2,334.72 53.9570 $3.08
- Berlin, Germany Erich Kleiber $513,618.48 11,870.0830 $416.03
- Berlin, Germany Wilhelm Furtwaengler $716,614.94 16,561.4730 $580.46
- Berlin, Germany Adolph Dege $4,080,821.35 94,310.6390 $5,386.68
- Berlin, Germany Johannes Klopp $400,000.20 9,244.2850 $324.00
- Berlin, Germany Eugen Jochum $99,999,999.99 2,311,070.0250 $52,000.00
- Bonn, Germany Ludwig van Beethoven $4,061.21 93.8570 $5.36
- Bonn, Germany Uwe Schmidt $207,430.39 4,793.8620 $273.81
- Bonn, Germany Helga Dernesch $841.52 19.4480 $1.11
- Bonn, Germany Richard Strauss $310,814.02 7,183.1300 $410.27
- Chicago, U.S. Maurizio Damilano $4,000,081.02 92,444.6730 $2,080.04
- 31/10/2016 AMERICAN BENEVOLENCE FUND PAGE: 2
- 23:01:07 DAILY BROKER SALES AND COMMISSION
- BRANCH NAME BROKER NAME DEPOSIT AMOUNT SHARES SOLD COMISSION
- ----------- ----------- -------------- ------------- -----------
- Chicago, U.S. Chi Yen Weh $431,081.00 9,962.5840 $349.18
- Chicago, U.S. Steve Peplowski $241,001.21 5,569.7070 $318.12
- Chicago, U.S. Michael Smith $60,314,081.22 1,393,900.6520 $48,854.41
- Chicago, U.S. Charles Medley $310,481.23 7,175.4390 $251.49
- Chicago, U.S. Risa Rogan $10,310,841.24 238,290.7610 $13,610.31
- Chicago, U.S. Theodore Thomas $310,814.25 7,183.1350 $251.76
- Chicago, U.S. Frederick Stock $20,310,812.46 469,397.0990 $16,451.76
- Dublin, Ireland Billy O'Leary $43,310,821.42 1,000,943.4120 $57,170.28
- Dublin, Ireland Anna Owen $80,331,083.14 1,856,507.5840 $106,037.03
- Belfast, N. Ireland Chet Manassas $60,301,223.41 1,393,603.4990 $79,597.61
- Belfast, N. Ireland Shelley Mann $30,130,000.52 696,325.4110 $39,771.60
- Belfast, N. Ireland Philip Battenberg $40,003,111.60 924,499.9210 $52,804.11
- Edinburgh, U.K. Billy Connolly $90,310,381.72 2,087,136.1620 $119,209.70
- Edinburgh, U.K. Omar Sharif $310,831.12 7,183.5250 $410.30
- Edinburgh, U.K. Julie Christie $40,310,813.12 931,611.1190 $53,210.27
- Edinburgh, U.K. James Oxfordshire $310,811.32 7,183.0670 $410.27
- 31/10/2016 AMERICAN BENEVOLENCE FUND PAGE: 3
- 23:01:07 DAILY BROKER SALES AND COMMISSION
- BRANCH NAME BROKER NAME DEPOSIT AMOUNT SHARES SOLD COMISSION
- ----------- ----------- -------------- ------------- -----------
- Frankfurt, Germany Johannes Dundor $50,460,641.05 1,166,180.7500 $66,608.05
- Frankfurt, Germany Gretel Decker $40,650,764.08 939,467.6240 $53,659.01
- Frankfurt, Germany Adam Dieffenbach $10,606,825.41 245,131.1630 $8,591.53
- Hong Kong, China Mao Zedong $608,627.12 14,065.7990 $492.99
- Hong Kong, China Zhou Enlai $10,608,266.12 245,164.4590 $8,592.70
- Hong Kong, China Zhau Ziyang $10,608,276.12 245,164.6900 $14,002.92
- Hong Kong, China Chiang Kai-shek $20,608,281.62 476,271.8190 $16,692.71
- Hong Kong, China Gau-Yin Lau $64,060,829.12 1,480,490.6200 $84,560.29
- Hong Kong, China Stephanie Buckingham $40,460,821.23 935,077.9110 $32,773.27
- Hong Kong, China Simon Draper $50,640,821.23 1,170,344.8400 $66,845.88
- Kansas City, U.S. Geoffrey Decker $80,604,821.42 1,862,833.8670 $65,289.91
- London, U.K. Elizabeth Windsor $30,714,492.35 709,833.4260 $40,543.13
- London, U.K. Charles Windsor $46,807,916.20 1,081,763.7210 $37,914.41
- London, U.K. Andrew Windsor $80,661,102.24 1,864,134.5560 $65,335.49
- London, U.K. Michael Windsor $91,066,362.25 2,104,607.4010 $73,763.75
- London, U.K. Phillip Windsor $11,116,641.61 256,913.3720 $14,673.97
- 31/10/2016 AMERICAN BENEVOLENCE FUND PAGE: 4
- 23:01:07 DAILY BROKER SALES AND COMMISSION
- BRANCH NAME BROKER NAME DEPOSIT AMOUNT SHARES SOLD COMISSION
- ----------- ----------- -------------- ------------- -----------
- London, U.K. William Windsor $12,111,661.72 279,908.9840 $15,987.39
- Los Angeles, U.S. William Mills $60,111,966.78 1,389,229.6460 $79,347.80
- Los Angeles, U.S. Catherine Monteiro $99,999,999.99 2,311,070.0250 $132,000.00
- Los Angeles, U.S. Jason Landau $20,500,000.78 473,769.3730 $27,060.00
- Los Angeles, U.S. Trevor Pinnicle $30,050,000.00 694,476.5430 $39,666.00
- Moscow, Russia Ivan Grozny $60,135,191.78 1,389,766.3920 $79,378.45
- Moscow, Russia Vladimir Ashkenazy $40,111,591.78 927,006.9740 $32,490.39
- Moscow, Russia Serge Rachmaninov $30,111,951.78 695,908.2920 $39,747.78
- Moscow, Russia Vladimir Putin $20,101,915.77 464,569.3500 $26,534.53
- Moscow, Russia Leonid Breshnev $80,811,333.63 1,867,606.5090 $65,457.18
- Moscow, Russia Dmitri Shostakovich $181,194.74 4,187.5370 $146.77
- New York, U.S. Gary Graffman $118,191.78 2,731.4950 $95.74
- New York, U.S. Andre Previn $232,821.78 5,380.6740 $188.59
- New York, U.S. Samuel Jefferson $99,999,989.99 2,311,069.7940 $131,999.99
- New York, U.S. John Adams $111,978.78 2,587.9080 $58.23
- New York, U.S. Cheryl Studer $3,301,491.78 76,299.7870 $4,357.97
- 31/10/2016 AMERICAN BENEVOLENCE FUND PAGE: 5
- 23:01:07 DAILY BROKER SALES AND COMMISSION
- BRANCH NAME BROKER NAME DEPOSIT AMOUNT SHARES SOLD COMISSION
- ----------- ----------- -------------- ------------- -----------
- New York, U.S. Renee Fleming $331,121.78 7,652.4560 $268.21
- New York, U.S. Birgit Nilsson $33,194.48 767.1480 $43.82
- New York, U.S. Christa Ludwig $113,391.74 2,620.5630 $58.96
- New York, U.S. James Levine $99,999,939.99 2,311,068.6390 $131,999.92
- New York, U.S. Leonard Bernstein $70,111,913.78 1,620,335.4240 $56,790.65
- Paris, France Napoleon Bonaparte $60,007,309.30 1,386,810.9380 $79,209.65
- Paris, France Claude Monet $53,001,251.86 1,224,896.0450 $69,961.65
- Paris, France Olivier Messiaen $40,300,141.60 931,364.4930 $20,956.07
- Paris, France Claude Debussy $80,930,781.55 1,870,367.0340 $42,084.01
- Paris, France Maurice Ravel $41,003,012.22 947,608.3250 $33,212.44
- Paris, France Edith Piaf $30,003,340.33 693,398.2050 $24,302.71
- Paris, France Coco Chanel $80,006,130.54 1,848,997.7010 $105,608.09
- Rio de Janiero, Brazil Joao Castagneto $3,103.55 71.7250 $4.10
- Rio de Janiero, Brazil Lasar Segall $6,105.37 141.0990 $3.17
- Rio de Janiero, Brazil Tarsila do Amaral $50,300,010.58 1,162,468.4670 $66,396.01
- Rio de Janiero, Brazil Eliseu Visconti $40,032,230.54 925,172.8810 $32,426.11
- 31/10/2016 AMERICAN BENEVOLENCE FUND PAGE: 6
- 23:01:07 DAILY BROKER SALES AND COMMISSION
- BRANCH NAME BROKER NAME DEPOSIT AMOUNT SHARES SOLD COMISSION
- ----------- ----------- -------------- ------------- -----------
- Rome, Italy Julius Caesar $80,203,410.65 1,853,556.9830 $105,868.50
- Rome, Italy Franco Sinatra $30,004,310.55 693,420.6270 $39,605.69
- Rome, Italy Giacomo Puccini $98,030,460.45 2,265,552.5870 $129,400.21
- Rome, Italy Enrico Caruso $79,000,413.35 1,825,754.8730 $104,280.55
- Rome, Italy Sofia Loren $40,900,415.25 945,237.2370 $53,988.55
- Sydney, Australia Milton Sheppard $50,190,460.65 1,159,936.6920 $40,654.27
- Sydney, Australia Shelley Boughton $80,009,810.58 1,849,082.7500 $64,807.95
- Sydney, Australia Joan Sutherland $30,002,910.55 693,388.2720 $39,603.84
- Sydney, Australia Barry Tuckwell $50,009,190.54 1,155,747.4130 $40,507.44
- Sydney, Australia Cayla Smithe $2,109.59 48.7540 $1.10
- Sydney, Australia Benjamin Britten $90,004,105.94 2,080,057.9140 $118,805.42
- Sydney, Australia Peter Pears $50,004,930.56 1,155,648.9610 $26,002.56
- Sydney, Australia Paul Gray $10,090,310.45 233,194.1400 $13,319.21
- Vienna, Austria Herbert von Karajan $11,009,580.28 254,439.1100 $8,917.76
- Vienna, Austria Franz Joseph Haydn $5,890.30 136.1290 $4.77
- Vienna, Austria Josef Strauss $9,965,809.48 230,316.8360 $8,072.31
- 31/10/2016 AMERICAN BENEVOLENCE FUND PAGE: 7
- 23:01:07 DAILY BROKER SALES AND COMMISSION
- BRANCH NAME BROKER NAME DEPOSIT AMOUNT SHARES SOLD COMISSION
- ----------- ----------- -------------- ------------- -----------
- Vienna, Austria Karl Boehm $60,505,808.96 1,398,331.6150 $49,009.71
- Vienna, Austria Elisa Schwarzkopf $5,000,480.29 115,564.6010 $4,050.39
- Vienna, Austria Franz Peter Schubert $90,900,031.05 2,100,763.3710 $73,629.03
- Zurich, Switzerland Earl Grey $9,400,058.01 217,241.9230 $12,408.08
- Zurich, Switzerland Diana Kensington $8,900,057.55 205,686.5620 $11,748.08
- Zurich, Switzerland Axel Vondenberg $30,759.01 710.8620 $15.99
- Zurich, Switzerland Ute Schweitzer $147,058.00 3,398.6130 $194.12
- Zurich, Switzerland Rene Jacobs $72,558.00 1,676.8660 $58.77
- Zurich, Switzerland Anton Bruckner $99,999,999.99 2,311,070.0250 $52,000.00
- 31/10/2016 AMERICAN BENEVOLENCE FUND PAGE: 8
- 23:01:07 BROKER DEPOSITS AND CMS TOTALS
- NUMBER OF SALES TOTAL DEPOSIT AMOUNT TOTAL SHARES SOLD TOTAL COMMISSIONS PAID
- --------------- -------------------- ----------------- ----------------------
- 105 $3,418,917,633.84 79,013,580.1900 $3,637,655.56
- !! END OF JES SPOOL FILE !!
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
