Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 Date 02/23/2018 Time 15:32:50 Page 1
- 0PROCESS(CBL) statements:
- CBL LIB,MAP,OFFSET
- IGYOS4090-I The "LIB" option specification is no longer required. COBOL library processing is always in effect.
- 0Options in effect:
- NOADATA
- ADV
- AFP(VOLATILE)
- QUOTE
- ARCH(6)
- ARITH(COMPAT)
- NOAWO
- NOBLOCK0
- BUFSIZE(4096)
- NOCICS
- CODEPAGE(1140)
- NOCOMPILE(S)
- NOCURRENCY
- DATA(31)
- DBCS
- NODECK
- NODIAGTRUNC
- DISPSIGN(COMPAT)
- NODLL
- NODUMP
- NODYNAM
- NOEXIT
- NOEXPORTALL
- NOFASTSRT
- FLAG(I,I)
- NOFLAGSTD
- HGPR(PRESERVE)
- INTDATE(ANSI)
- LANGUAGE(EN)
- LINECOUNT(60)
- NOLIST
- MAP
- MAXPCF(60000)
- NOMDECK
- NONAME
- NSYMBOL(NATIONAL)
- NONUMBER
- NUMPROC(NOPFD)
- OBJECT
- OFFSET
- OPTIMIZE(0)
- OUTDD(SYSOUT)
- PGMNAME(COMPAT)
- RENT
- RMODE(AUTO)
- SEQUENCE
- SIZE(5000000)
- SOURCE
- SPACE(1)
- NOSQL
- SQLCCSID
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 Date 02/23/2018 Time 15:32:50 Page 2
- 0 NOSQLIMS
- NOSSRANGE
- NOSTGOPT
- NOTERM
- NOTEST(NODWARF)
- NOTHREAD
- TRUNC(STD)
- NOVBREF
- NOWORD
- XREF(FULL)
- ZWB
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 3
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 0 000001 IDENTIFICATION DIVISION.
- 000002 PROGRAM-ID. PROG03.
- 000003 ENVIRONMENT DIVISION.
- 000004 INPUT-OUTPUT SECTION.
- 000005 FILE-CONTROL.
- 000006 SELECT I-RECORD ASSIGN TO LOANSI. 13
- 000007 SELECT E-REPORT ASSIGN TO PRINT001. 31
- 000008 SELECT S-REPORT ASSIGN TO PRINT002. 35
- 000009
- 000010 DATA DIVISION.
- 000011 FILE SECTION.
- 000012
- 000013 FD I-RECORD
- ==000013==> IGYGR1216-I A "RECORDING MODE" of "F" was assumed for file "I-RECORD".
- 000014 RECORD CONTAINS 80 CHARACTERS.
- 000015 01 INPUT-RECORD-S. BLF=00001 0CL80
- 000016 05 I-NAME PIC X(40). BLF=00001,000000000 40C
- 000017 05 I-LOAN PIC X(05). BLF=00001,000000040 5C
- 000018 05 I-PRIN PIC 9(9)V99. BLF=00001,000000045 11C
- 000019 05 FILLER PIC X VALUE SPACES. BLF=00001,000000056 1C
- IMP
- ==000019==> IGYDS1158-I A non-level-88 "VALUE" clause was found in the "FILE SECTION" or "LINKAGE
- SECTION". The "VALUE" clause was treated as comments.
- 000020 05 I-TERM PIC X(04). BLF=00001,000000057 4C
- 000021 05 FILLER PIC X VALUE SPACES. BLF=00001,000000061 1C
- IMP
- ==000021==> IGYDS1158-I A non-level-88 "VALUE" clause was found in the "FILE SECTION" or "LINKAGE
- SECTION". The "VALUE" clause was treated as comments.
- 000022 05 I-APR PIC 9999. BLF=00001,000000062 4C
- 000023 05 FILLER PIC X VALUE SPACES. BLF=00001,000000066 1C
- IMP
- ==000023==> IGYDS1158-I A non-level-88 "VALUE" clause was found in the "FILE SECTION" or "LINKAGE
- SECTION". The "VALUE" clause was treated as comments.
- 000024 05 I-DATE PIC X(08). BLF=00001,000000067 8C
- 000025 05 I-DATE-X REDEFINES I-DATE. BLF=00001,000000067 0CL8
- 24
- 000026 10 I-DATE-MONTH PIC X(02). BLF=00001,000000067 2C
- 000027 10 I-DATE-DAY PIC X(02). BLF=00001,000000069 2C
- 000028 10 I-DATE-YEAR PIC X(04). BLF=00001,000000071 4C
- 000029 05 FILLER PIC X(05) VALUE SPACES. BLF=00001,000000075 5C
- IMP
- ==000029==> IGYDS1158-I A non-level-88 "VALUE" clause was found in the "FILE SECTION" or "LINKAGE
- SECTION". The "VALUE" clause was treated as comments.
- 000030
- 000031 FD E-REPORT
- ==000031==> IGYGR1216-I A "RECORDING MODE" of "F" was assumed for file "E-REPORT".
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 4
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 0
- 000032 RECORD CONTAINS 132 CHARACTERS.
- 000033 01 E-REPORTS PIC X(132). BLF=00002 132C
- 000034
- 000035 FD S-REPORT
- ==000035==> IGYGR1216-I A "RECORDING MODE" of "F" was assumed for file "S-REPORT".
- 000036 RECORD CONTAINS 132 CHARACTERS.
- 000037 01 S-REPORTS PIC X(132). BLF=00003 132C
- 000038
- 000039 WORKING-STORAGE SECTION.
- 000040
- 000041 01 PROGRAM-INDICATORS. 0CL1
- 000042 05 ARE-THERE-MORE-RECORDS PIC X VALUE 'Y'. 000000000 1C
- 000043 88 THERE-ARE-MORE-RECORDS VALUE 'Y'.
- 000044 88 THERE-ARE-NO-MORE-RECORDS VALUE 'N'.
- 000045
- 000046 01 WS-PGM-VARS. 0CL7
- 000047 05 WS-LINE-CTR PIC 9(02) VALUE 0. 000000000 2C
- 000048 05 WS-PAGE-CTR PIC 9(05) VALUE 0. 000000002 5C
- 000049
- 000050 01 WS-CURRENT-DATE-N-TIME. 0CL14
- 000051 05 WS-CURRENT-DATE. 000000000 0CL8
- 000052 10 WS-CURRENT-DATE-CCYY PIC 9(04) VALUE 0. 000000000 4C
- 000053 10 WS-CURRENT-DATE-MM PIC 9(02) VALUE 0. 000000004 2C
- 000054 10 WS-CURRENT-DATE-DD PIC 9(02) VALUE 0. 000000006 2C
- 000055 05 WS-CURRENT-TIME. 000000008 0CL6
- 000056 10 WS-CURRENT-TIME-HH PIC 9(02) VALUE 0. 000000008 2C
- 000057 10 WS-CURRENT-TIME-MM PIC 9(02) VALUE 0. 000000010 2C
- 000058 10 WS-CURRENT-TIME-SS PIC 9(02) VALUE 0. 000000012 2C
- 000059
- 000060 01 WS-RPT-HEADING-L1. 0CL130
- 000061 05 FILLER PIC X(06) VALUE 'DATE:'. 000000000 6C
- 000062 05 WS-RPT-H1-MM PIC 9(02). 000000006 2C
- 000063 05 FILLER PIC X(01) VALUE '/'. 000000008 1C
- 000064 05 WS-RPT-H1-DD PIC 9(02). 000000009 2C
- 000065 05 FILLER PIC X(01) VALUE '/'. 000000011 1C
- 000066 05 WS-RPT-H1-CCYY PIC 9(04). 000000012 4C
- 000067 05 FILLER PIC X(01) VALUE SPACES. 000000016 1C
- IMP
- 000068 05 WS-RPT-H1-HR PIC 9(02). 000000017 2C
- 000069 05 FILLER PIC X(01) VALUE ':'. 000000019 1C
- 000070 05 WS-RPT-H1-MIN PIC 9(02). 000000020 2C
- 000071 05 FILLER PIC X(01) VALUE ':'. 000000022 1C
- 000072 05 WS-RPT-H1-SEC PIC 9(02). 000000023 2C
- 000073 05 FILLER PIC X(37) VALUE SPACES. 000000025 37C
- IMP
- 000074 05 WS-RPT-H1-TITLE PIC X(16) VALUE 000000062 16C
- 000075 ' BOBCAT BANK '.
- 000076 05 FILLER PIC X(44) VALUE SPACES. 000000078 44C
- IMP
- 000077 05 FILLER PIC X(05) VALUE 'PAGE:'. 000000122 5C
- 000078 05 WS-RPT-H1-PAGE-NR PIC XXX. 000000127 3C
- 000079
- 000080 01 WS-RPT-HEADING-L2. 0CL128
- 000081 05 FILLER PIC X(24) 000000000 24C
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 5
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 0 000082 VALUE 'PROGRAM #3: KEVIN NGUYEN'.
- 000083 05 FILLER PIC X(27) VALUE SPACES. 000000024 27C
- IMP
- 000084 05 WS-RPT-H2-TITLE PIC X(42) VALUE 000000051 42C
- 000085 ' LOAN AMORTIZATION SCHEDULE '.
- 000086 05 FILLER PIC X(35) VALUE SPACES. 000000093 35C
- IMP
- 000087
- 000088 01 WS-RPT-HEADING-L4. 0CL132
- 000089 05 FILLER PIC X(132) VALUE ' '. 000000000 132C
- 000090
- 000091 01 WS-COLUMN-E1. 0CL87
- 000092 05 E-NAME1 PIC X(04) VALUE 'NAME'. 000000000 4C
- 000093 05 FILLER PIC X(18) VALUE SPACES. 000000004 18C
- IMP
- 000094 05 FILLER PIC X(03) VALUE SPACES. 000000022 3C
- IMP
- 000095 05 E-LOAN1 PIC X(04) VALUE 'LOAN'. 000000025 4C
- 000096 05 FILLER PIC X(05) VALUE SPACES. 000000029 5C
- IMP
- 000097 05 E-PRIN1 PIC X(11) VALUE ' PRINCIPAL '. 000000034 11C
- 000098 05 FILLER PIC X(03) VALUE SPACES. 000000045 3C
- IMP
- 000099 05 E-TERM1 PIC X(05) VALUE 'YEARS'. 000000048 5C
- 000100 05 FILLER PIC X VALUE SPACES. 000000053 1C
- IMP
- 000101 05 E-APR1 PIC X(04) VALUE ' APR'. 000000054 4C
- 000102 05 FILLER PIC XX VALUE SPACES. 000000058 2C
- IMP
- 000103 05 E-DATE1 PIC X(08) VALUE ' DATE '. 000000060 8C
- 000104 05 FILLER PIC XX VALUE SPACES. 000000068 2C
- IMP
- 000105 05 E-EROR1 PIC X(07) VALUE ' ERROR '. 000000070 7C
- 000106 05 FILLER PIC X VALUE SPACES. 000000077 1C
- IMP
- 000107 05 E-DETL1 PIC X(09) VALUE 'DETAILS'. 000000078 9C
- 000108
- 000109 01 WS-COLUMN-E0. 0CL102
- 000110 05 E-NAME0 PIC X(04) VALUE SPACES. 000000000 4C
- IMP
- 000111 05 FILLER PIC X(18) VALUE SPACES. 000000004 18C
- IMP
- 000112 05 FILLER PIC X(03) VALUE SPACES. 000000022 3C
- IMP
- 000113 05 E-LOAN0 PIC X(04) VALUE 'TYPE'. 000000025 4C
- 000114 05 FILLER PIC X(05) VALUE SPACES. 000000029 5C
- IMP
- 000115 05 E-PRIN0 PIC X(11) VALUE ' AMOUNT '. 000000034 11C
- 000116 05 FILLER PIC X(03) VALUE SPACES. 000000045 3C
- IMP
- 000117 05 E-TERM0 PIC X(05) VALUE SPACES. 000000048 5C
- IMP
- 000118 05 FILLER PIC X(03) VALUE SPACES. 000000053 3C
- IMP
- 000119 05 E-APR0 PIC X(04) VALUE SPACES. 000000056 4C
- IMP
- 000120 05 FILLER PIC X VALUE SPACES. 000000060 1C
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 6
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 0 IMP
- 000121 05 E-DATE0 PIC X(06) VALUE SPACES. 000000061 6C
- IMP
- 000122 05 FILLER PIC XX VALUE SPACES. 000000067 2C
- IMP
- 000123 05 E-EROR0 PIC X(07) VALUE ' TYPE '. 000000069 7C
- 000124 05 FILLER PIC X VALUE SPACES. 000000076 1C
- IMP
- 000125 05 E-DETL0 PIC X(25) VALUE SPACES. 000000077 25C
- IMP
- 000126
- 000127 01 WS-DETAIL-E. 0CL103
- 000128 05 E-NAME PIC X(25). 000000000 25C
- 000129 05 E-LOAN PIC X(04). 000000025 4C
- 000130 05 FILLER PIC X(02) VALUE SPACES. 000000029 2C
- IMP
- 000131 05 E-PRIN PIC 999,999,999.99. 000000031 14C
- 000132 05 FILLER PIC X(03) VALUE SPACES. 000000045 3C
- IMP
- 000133 05 E-TERM PIC X(04). 000000048 4C
- 000134 05 FILLER PIC XX VALUE SPACES. 000000052 2C
- IMP
- 000135 05 E-APR PIC 9999. 000000054 4C
- 000136 05 FILLER PIC XX VALUE SPACES. 000000058 2C
- IMP
- 000137 05 E-DATE PIC X(08). 000000060 8C
- 000138 05 FILLER PIC XX VALUE SPACES. 000000068 2C
- IMP
- 000139 05 E-EROR PIC X(07). 000000070 7C
- 000140 05 FILLER PIC X VALUE SPACES. 000000077 1C
- IMP
- 000141 05 E-DETL PIC X(25). 000000078 25C
- 000142
- 000143 01 WS-DETAIL-E2. 0CL103
- 000144 05 E-NAME2 PIC X(25). 000000000 25C
- 000145 05 E-LOAN2 PIC X(04). 000000025 4C
- 000146 05 FILLER PIC X(02) VALUE SPACES. 000000029 2C
- IMP
- 000147 05 E-PRIN2 PIC 999,999,999.99. 000000031 14C
- 000148 05 FILLER PIC X(03) VALUE SPACES. 000000045 3C
- IMP
- 000149 05 E-TERM2 PIC X(04). 000000048 4C
- 000150 05 FILLER PIC XX VALUE SPACES. 000000052 2C
- IMP
- 000151 05 E-APR2 PIC 9999. 000000054 4C
- 000152 05 FILLER PIC XX VALUE SPACES. 000000058 2C
- IMP
- 000153 05 E-DATE2 PIC X(08). 000000060 8C
- 000154 05 FILLER PIC XX VALUE SPACES. 000000068 2C
- IMP
- 000155 05 E-EROR2 PIC X(07). 000000070 7C
- 000156 05 FILLER PIC X VALUE SPACES. 000000077 1C
- IMP
- 000157 05 E-DETL2 PIC X(25). 000000078 25C
- 000158
- 000159 01 WS-DETAIL-E3. 0CL103
- 000160 05 E-NAME3 PIC X(25). 000000000 25C
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 7
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 0 000161 05 E-LOAN3 PIC X(04). 000000025 4C
- 000162 05 FILLER PIC X(02) VALUE SPACES. 000000029 2C
- IMP
- 000163 05 E-PRIN3 PIC 999,999,999.99. 000000031 14C
- 000164 05 FILLER PIC X(03) VALUE SPACES. 000000045 3C
- IMP
- 000165 05 E-TERM3 PIC X(04). 000000048 4C
- 000166 05 FILLER PIC XX VALUE SPACES. 000000052 2C
- IMP
- 000167 05 E-APR3 PIC 9999. 000000054 4C
- 000168 05 FILLER PIC XX VALUE SPACES. 000000058 2C
- IMP
- 000169 05 E-DATE3 PIC X(08). 000000060 8C
- 000170 05 FILLER PIC XX VALUE SPACES. 000000068 2C
- IMP
- 000171 05 E-EROR3 PIC X(07). 000000070 7C
- 000172 05 FILLER PIC X VALUE SPACES. 000000077 1C
- IMP
- 000173 05 E-DETL3 PIC X(25). 000000078 25C
- 000174
- 000175 01 WS-DETAIL-E4. 0CL103
- 000176 05 E-NAME4 PIC X(25). 000000000 25C
- 000177 05 E-LOAN4 PIC X(04). 000000025 4C
- 000178 05 FILLER PIC X(02) VALUE SPACES. 000000029 2C
- IMP
- 000179 05 E-PRIN4 PIC 999,999,999.99. 000000031 14C
- 000180 05 FILLER PIC X(03) VALUE SPACES. 000000045 3C
- IMP
- 000181 05 E-TERM4 PIC X(04). 000000048 4C
- 000182 05 FILLER PIC XX VALUE SPACES. 000000052 2C
- IMP
- 000183 05 E-APR4 PIC 9999. 000000054 4C
- 000184 05 FILLER PIC XX VALUE SPACES. 000000058 2C
- IMP
- 000185 05 E-DATE4 PIC X(08). 000000060 8C
- 000186 05 FILLER PIC XX VALUE SPACES. 000000068 2C
- IMP
- 000187 05 E-EROR4 PIC X(07). 000000070 7C
- 000188 05 FILLER PIC X VALUE SPACES. 000000077 1C
- IMP
- 000189 05 E-DETL4 PIC X(25). 000000078 25C
- 000190
- 000191 01 WS-COLUMN-S1. 0CL93
- 000192 05 S-PAY-N1 PIC XXX VALUE 'PAY'. 000000000 3C
- 000193 05 FILLER PIC X VALUE SPACES. 000000003 1C
- IMP
- 000194 05 S-PAY-M1 PIC XX VALUE SPACES. 000000004 2C
- IMP
- 000195 05 S-PAY-D1 PIC XXXX VALUE 'DATE'. 000000006 4C
- 000196 05 S-PAY-Y1 PIC XXXX VALUE SPACES. 000000010 4C
- IMP
- 000197 05 FILLER PIC X(5) VALUE SPACES. 000000014 5C
- IMP
- 000198 05 S-BEG-BAL1 PIC X(11) VALUE ' BEGINNING '. 000000019 11C
- 000199 05 FILLER PIC X(05) VALUE SPACES. 000000030 5C
- IMP
- 000200 05 S-M-PAY1 PIC X(11) VALUE ' MONTHLY '. 000000035 11C
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 8
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 0 000201 05 FILLER PIC X(03) VALUE SPACES. 000000046 3C
- IMP
- 000202 05 S-I-DUE1 PIC X(11) VALUE ' INTEREST '. 000000049 11C
- 000203 05 FILLER PIC X(03) VALUE SPACES. 000000060 3C
- IMP
- 000204 05 S-P-PAY1 PIC X(11) VALUE ' PRINCIPAL '. 000000063 11C
- 000205 05 FILLER PIC X(08) VALUE SPACES. 000000074 8C
- IMP
- 000206 05 S-END-BAL1 PIC X(11) VALUE ' ENDING '. 000000082 11C
- 000207
- 000208 01 WS-COLUMN-S2. 0CL92
- 000209 05 S-PAY-N2 PIC XXX VALUE ' # '. 000000000 3C
- 000210 05 FILLER PIC X VALUE SPACES. 000000003 1C
- IMP
- 000211 05 S-PAY-M2 PIC XX VALUE SPACES. 000000004 2C
- IMP
- 000212 05 FILLER PIC X VALUE SPACES. 000000006 1C
- IMP
- 000213 05 S-PAY-D2 PIC XX VALUE SPACES. 000000007 2C
- IMP
- 000214 05 FILLER PIC X VALUE SPACES. 000000009 1C
- IMP
- 000215 05 S-PAY-Y2 PIC XXXX VALUE SPACES. 000000010 4C
- IMP
- 000216 05 FILLER PIC X(5) VALUE SPACES. 000000014 5C
- IMP
- 000217 05 S-BEG-BAL2 PIC X(11) VALUE ' BALANCE '. 000000019 11C
- 000218 05 FILLER PIC X(05) VALUE SPACES. 000000030 5C
- IMP
- 000219 05 S-M-PAY2 PIC X(11) VALUE ' PAYMENT '. 000000035 11C
- 000220 05 FILLER PIC X(04) VALUE SPACES. 000000046 4C
- IMP
- 000221 05 S-I-DUE2 PIC X(11) VALUE ' DUE '. 000000050 11C
- 000222 05 FILLER PIC X(02) VALUE SPACES. 000000061 2C
- IMP
- 000223 05 S-P-PAY2 PIC X(11) VALUE ' PAYMENT '. 000000063 11C
- 000224 05 FILLER PIC X(07) VALUE SPACES. 000000074 7C
- IMP
- 000225 05 S-END-BAL2 PIC X(11) VALUE ' BALANCE '. 000000081 11C
- 000226
- 000227 01 WS-SUMM-C. 0CL125
- 000228 05 C-NAME PIC X(04) VALUE 'NAME'. 000000000 4C
- 000229 05 FILLER PIC X(20) VALUE SPACES. 000000004 20C
- IMP
- 000230 05 C-LOAN PIC X(09) VALUE 'LOAN TYPE'. 000000024 9C
- 000231 05 FILLER PIC X(04) VALUE SPACES. 000000033 4C
- IMP
- 000232 05 C-DESC PIC X(11) VALUE 'DESCRIPTION'. 000000037 11C
- 000233 05 FILLER PIC X(12) VALUE SPACES. 000000048 12C
- IMP
- 000234 05 C-PRIN PIC X(09) VALUE 'PRINCIPAL'. 000000060 9C
- 000235 05 FILLER PIC X(02) VALUE SPACES. 000000069 2C
- IMP
- 000236 05 C-TERM PIC X(12) VALUE 'TERM (YEARS)'. 000000071 12C
- 000237 05 FILLER PIC X(01) VALUE SPACES. 000000083 1C
- IMP
- 000238 05 C-TERM-M PIC X(13) VALUE 'TERM (MONTHS)'. 000000084 13C
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 9
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 0 000239 05 FILLER PIC X(03) VALUE SPACES. 000000097 3C
- IMP
- 000240 05 C-APR PIC X(03) VALUE 'APR'. 000000100 3C
- 000241 05 FILLER PIC X(07) VALUE SPACES. 000000103 7C
- IMP
- 000242 05 C-M-PAYS PIC X(15) VALUE 'MONTHLY PAYMENT'. 000000110 15C
- 000243
- 000244 01 WS-SUMM-S. 0CL123
- 000245 05 S-NAME PIC X(25). 000000000 25C
- 000246 05 FILLER PIC X VALUE SPACES. 000000025 1C
- IMP
- 000247 05 S-LOAN PIC X(05). 000000026 5C
- 000248 05 FILLER PIC X(07) VALUE SPACES. 000000031 7C
- IMP
- 000249 05 S-DESC PIC X(16). 000000038 16C
- 000250 05 FILLER PIC X VALUE SPACES. 000000054 1C
- IMP
- 000251 05 S-PRIN PIC ZZZ,ZZZ,ZZZ.99. 000000055 14C
- 000252 05 FILLER PIC X(05) VALUE SPACES. 000000069 5C
- IMP
- 000253 05 S-TERM PIC ZZZ9. 000000074 4C
- 000254 05 FILLER PIC X(09) VALUE SPACES. 000000078 9C
- IMP
- 000255 05 S-TERM-M PIC ZZZ9. 000000087 4C
- 000256 05 FILLER PIC X(08) VALUE SPACES. 000000091 8C
- IMP
- 000257 05 S-APR PIC Z9.99. 000000099 5C
- 000258 05 FILLER PIC X(05) VALUE SPACES. 000000104 5C
- IMP
- 000259 05 S-M-PAYS PIC ZZZ,ZZZ,ZZZ.99. 000000109 14C
- 000260
- 000261 01 WS-DETAIL-S. 0CL91
- 000262 05 S-PAY-N PIC 999 VALUE 0. 000000000 3C
- 000263 05 FILLER PIC X VALUE SPACES. 000000003 1C
- IMP
- 000264 05 S-PAY-M PIC 99. 000000004 2C
- 000265 05 FILLER PIC X VALUE '/'. 000000006 1C
- 000266 05 S-PAY-D PIC 99. 000000007 2C
- 000267 05 FILLER PIC X VALUE '/'. 000000009 1C
- 000268 05 S-PAY-Y PIC 9999. 000000010 4C
- 000269 05 FILLER PIC X VALUE SPACES. 000000014 1C
- IMP
- 000270 05 S-BEG-BAL PIC ZZZ,ZZZ,ZZ9.99. 000000015 14C
- 000271 05 FILLER PIC X VALUE SPACES. 000000029 1C
- IMP
- 000272 05 S-M-PAY PIC ZZZ,ZZZ,ZZ9.99. 000000030 14C
- 000273 05 FILLER PIC X VALUE SPACES. 000000044 1C
- IMP
- 000274 05 S-I-DUE PIC ZZZ,ZZZ,ZZ9.99. 000000045 14C
- 000275 05 FILLER PIC X VALUE SPACES. 000000059 1C
- IMP
- 000276 05 S-P-PAY PIC ZZZ,ZZZ,ZZ9.99. 000000060 14C
- 000277 05 FILLER PIC X(03) VALUE SPACES. 000000074 3C
- IMP
- 000278 05 S-END-BAL PIC ZZZ,ZZZ,ZZ9.99. 000000077 14C
- 000279
- 000280 01 WS-DETAIL-T1. 0CL77
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 10
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 0 000281 05 FILLER PIC X(31) VALUE SPACES. 000000000 31C
- IMP
- 000282 05 FILLER PIC X(13) VALUE 'TOTAL MONTHLY'. 000000031 13C
- 000283 05 FILLER PIC X(02) VALUE SPACES. 000000044 2C
- IMP
- 000284 05 FILLER PIC X(14) VALUE 'TOTAL INTEREST'. 000000046 14C
- 000285 05 FILLER PIC X(02) VALUE SPACES. 000000060 2C
- IMP
- 000286 05 FILLER PIC X(15) VALUE 'TOTAL PRINCIPAL'. 000000062 15C
- 000287
- 000288 01 WS-DETAIL-T2. 0CL77
- 000289 05 FILLER PIC XXX VALUE SPACES. 000000000 3C
- IMP
- 000290 05 FILLER PIC X VALUE SPACES. 000000003 1C
- IMP
- 000291 05 FILLER PIC XX VALUE SPACES. 000000004 2C
- IMP
- 000292 05 FILLER PIC X VALUE SPACES. 000000006 1C
- IMP
- 000293 05 FILLER PIC XX VALUE SPACES. 000000007 2C
- IMP
- 000294 05 FILLER PIC XX VALUE SPACES. 000000009 2C
- IMP
- 000295 05 FILLER PIC XXXX VALUE SPACES. 000000011 4C
- IMP
- 000296 05 FILLER PIC X(08) VALUE SPACES. 000000015 8C
- IMP
- 000297 05 FILLER PIC X(06) VALUE SPACES. 000000023 6C
- IMP
- 000298 05 FILLER PIC X VALUE SPACES. 000000029 1C
- IMP
- 000299 05 T-M-PAYS PIC ZZZ,ZZZ,ZZ9.99. 000000030 14C
- 000300 05 FILLER PIC X VALUE SPACES. 000000044 1C
- IMP
- 000301 05 T-I-DUES PIC ZZZ,ZZZ,ZZ9.99. 000000045 14C
- 000302 05 FILLER PIC X VALUE SPACES. 000000059 1C
- IMP
- 000303 05 T-P-PAYS PIC ZZZ,ZZZ,ZZ9.99. 000000060 14C
- 000304 05 FILLER PIC X(03) VALUE SPACES. 000000074 3C
- IMP
- 000305
- 000306 01 WS-GRAND-TOTALS. 0CL33
- 000307 05 T-M-PAY PIC 999999999V99 VALUE ZERO. 000000000 11C
- IMP
- 000308 05 T-I-DUE PIC 999999999V99 VALUE ZERO. 000000011 11C
- IMP
- 000309 05 T-P-PAY PIC 999999999V99 VALUE ZERO. 000000022 11C
- IMP
- 000310
- 000311 01 WS-NO-EXCEPTIONS. 0CL132
- 000312 05 FILLER PIC X(132) 000000000 132C
- 000313 VALUE 'NO EXPCETIONS TO REPORT'.
- 000314
- 000315 01 WS-VAR. 0CL19
- 000316 05 WS-CNT PIC 99. 000000000 2C
- 000317 05 BAD-ENTRY PIC 9 VALUE 0. 000000002 1C
- 000318 05 WS-TERM PIC 999. 000000003 3C
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 11
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 0 000319 05 WS-N-CNT PIC 999. 000000006 3C
- 000320 05 S-DATE-MONTH PIC 99. 000000009 2C
- 000321 05 S-DATE-DAY PIC 99. 000000011 2C
- 000322 05 S-DATE-YEAR PIC 9999. 000000013 4C
- 000323 05 WS-PAGE-ADD PIC 99. 000000017 2C
- 000324
- 000325 01 WS-SPACE. 0CL132
- 000326 05 WS-SPACE-X PIC X(132) VALUE SPACES. 000000000 132C
- IMP
- 000327
- 000328 01 WS-AMORT-VAR. 0CL104
- 000329 05 WS-M-PAY PIC 999999999V99. 000000000 11C
- 000330 05 PIC X VALUE SPACES. 000000011 1C
- IMP
- 000331 05 WS-M-PAY1 PIC 999999999V99. 000000012 11C
- 000332 05 PIC X VALUE SPACES. 000000023 1C
- IMP
- 000333 05 WS-M-PAY2 PIC 999999999V99. 000000024 11C
- 000334 05 PIC X VALUE SPACES. 000000035 1C
- IMP
- 000335 05 WS-PRIN PIC 999999999V99. 000000036 11C
- 000336 05 PIC X VALUE SPACES. 000000047 1C
- IMP
- 000337 05 WS-M-APR PIC V9999. 000000048 4C
- 000338 05 PIC X VALUE SPACES. 000000052 1C
- IMP
- 000339 05 WS-N-PAY PIC 999. 000000053 3C
- 000340 05 PIC X VALUE SPACES. 000000056 1C
- IMP
- 000341 05 WS-I-DUE PIC 999999999V99. 000000057 11C
- 000342 05 PIC X VALUE SPACES. 000000068 1C
- IMP
- 000343 05 WS-BPRIN PIC 999999999V99. 000000069 11C
- 000344 05 PIC X VALUE SPACES. 000000080 1C
- IMP
- 000345 05 WS-EPRIN PIC 999999999V99. 000000081 11C
- 000346 05 PIC X VALUE SPACES. 000000092 1C
- IMP
- 000347 05 WS-APRIN PIC 999999999V99. 000000093 11C
- 000348
- 000349 PROCEDURE DIVISION.
- 000350 **STARTS ALL PROCEDURES BELOW**
- 000351 00000-MAIN-LINE-ROUTINE.
- 000352
- 000353 PERFORM 10000-INITIALIZATION-ROUTINE. 365
- 000354
- 000355 PERFORM 20000-HEADING-ROUTINE. 389
- 000356
- 000357 PERFORM 30000-PROCESS-MASTER 408
- 000358 UNTIL THERE-ARE-NO-MORE-RECORDS. 44
- 000359
- 000360 PERFORM 40000-FINISH-ROUTINE. 710
- 000361
- 000362 STOP RUN.
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 12
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000363 /
- 000364 **INITIAL ROUTINE TO OPEN RECORDS AND WRITE DATE/TIME**
- 000365 10000-INITIALIZATION-ROUTINE.
- 000366
- 000367 OPEN INPUT I-RECORD, 13
- 000368 OUTPUT E-REPORT, 31
- 000369 OUTPUT S-REPORT. 35
- 000370
- 000371 MOVE FUNCTION CURRENT-DATE TO IFN
- 000372 WS-CURRENT-DATE-N-TIME. 50
- 000373
- 000374 MOVE WS-CURRENT-DATE-DD TO 54
- 000375 WS-RPT-H1-DD. 64
- 000376 MOVE WS-CURRENT-DATE-MM TO 53
- 000377 WS-RPT-H1-MM. 62
- 000378 MOVE WS-CURRENT-DATE-CCYY TO 52
- 000379 WS-RPT-H1-CCYY. 66
- 000380 MOVE WS-CURRENT-TIME-HH TO 56
- 000381 WS-RPT-H1-HR. 68
- 000382 MOVE WS-CURRENT-TIME-MM TO 57
- 000383 WS-RPT-H1-MIN. 70
- 000384 MOVE WS-CURRENT-TIME-SS TO 58
- 000385 WS-RPT-H1-SEC. 72
- 000386
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 13
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000387 /
- 000388 **HEADING ROUTINE FOR EACH PAGE**
- 000389 20000-HEADING-ROUTINE.
- 000390 PERFORM 21000-E-HEADING-ROUTINE. 393
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 14
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000391 /
- 000392 **HEADING ROUTINE FOR EXCEPTION REPORT**
- 000393 21000-E-HEADING-ROUTINE.
- 000394 WRITE E-REPORTS FROM WS-RPT-HEADING-L1 33 60
- 000395 AFTER ADVANCING PAGE.
- 000396 WRITE E-REPORTS FROM WS-RPT-HEADING-L2 33 80
- 000397 AFTER ADVANCING 1 LINE.
- 000398 WRITE E-REPORTS FROM WS-SPACE 33 325
- 000399 AFTER ADVANCING 1 LINE.
- 000400 WRITE E-REPORTS FROM WS-COLUMN-E1 33 91
- 000401 AFTER ADVANCING 1 LINE.
- 000402 WRITE E-REPORTS FROM WS-COLUMN-E0 33 109
- 000403 AFTER ADVANCING 1 LINE.
- 000404 ADD +1 TO WS-PAGE-CTR. 48
- 000405 MOVE WS-PAGE-CTR TO WS-RPT-H1-PAGE-NR. 48 78
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 15
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000406 /
- 000407 **READING INPUT FILE FOR VALIDATION AND AMORTIZATION**
- 000408 30000-PROCESS-MASTER.
- 000409 READ I-RECORD 13
- 000410 AT END
- 000411 1 MOVE 'N' TO ARE-THERE-MORE-RECORDS 42
- 000412 NOT AT END
- 000413 1 PERFORM 31000-VALIDATE 417
- 000414 END-READ.
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 16
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000415 /
- 000416 **START VALIDATING PROCEDURE**
- 000417 31000-VALIDATE.
- 000418 MOVE 0 TO BAD-ENTRY 317
- 000419 PERFORM 31100-VALIDATE-1 426
- 000420 PERFORM 31200-VALIDATE-2 462
- 000421 PERFORM 31300-VALIDATE-3 491
- 000422 PERFORM 31400-VALIDATE-4 548
- 000423 PERFORM 31500-VALIDATE-CHECK. 590
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 17
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000424 /
- 000425 **VALIDATING LOAN TYPE VALUE**
- 000426 31100-VALIDATE-1.
- 000427 EVALUATE I-LOAN 17
- 000428 1 WHEN '100N' MOVE 'NEW CAR' TO S-DESC 249
- 000429 1 MOVE 0 TO BAD-ENTRY 317
- 000430 1 WHEN '100U' MOVE 'USED CAR' TO S-DESC 249
- 000431 1 MOVE 0 TO BAD-ENTRY 317
- 000432 1 WHEN '200' MOVE 'BOAT' TO S-DESC 249
- 000433 1 MOVE 0 TO BAD-ENTRY 317
- 000434 1 WHEN '300' MOVE 'SIGNATURE LOAN' TO S-DESC 249
- 000435 1 MOVE 0 TO BAD-ENTRY 317
- 000436 1 WHEN '400' MOVE 'R/V' TO S-DESC 249
- 000437 1 MOVE 0 TO BAD-ENTRY 317
- 000438 1 WHEN '500' MOVE 'MOTORCYCLE' TO S-DESC 249
- 000439 1 MOVE 0 TO BAD-ENTRY 317
- 000440 1 WHEN '600' MOVE 'MORTGAGE' TO S-DESC 249
- 000441 1 MOVE 0 TO BAD-ENTRY 317
- 000442 1 WHEN '700' MOVE 'HOME EQUITY' TO S-DESC 249
- 000443 1 MOVE 0 TO BAD-ENTRY 317
- 000444 1 WHEN '800' MOVE 'HOME IMPROVEMENT' TO S-DESC 249
- 000445 1 MOVE 0 TO BAD-ENTRY 317
- 000446 WHEN OTHER
- 000447 1 MOVE I-NAME TO E-NAME 16 128
- 000448 1 MOVE I-LOAN TO E-LOAN 17 129
- 000449 1 MOVE I-PRIN TO E-PRIN 18 131
- 000450 1 MOVE I-TERM TO E-TERM 20 133
- 000451 1 MOVE I-APR TO E-APR 22 135
- 000452 1 MOVE I-DATE TO E-DATE 24 137
- 000453 1 MOVE 'WARNING' TO E-EROR 139
- 000454 1 MOVE 'INVALID LOAN TYPE' TO
- 000455 1 E-DETL 141
- 000456 1 MOVE 1 TO BAD-ENTRY 317
- 000457 1 WRITE E-REPORTS FROM WS-DETAIL-E 33 127
- 000458 1 AFTER ADVANCING 1 LINE
- 000459 END-EVALUATE.
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 18
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000460 /
- 000461 **VALIDATING PRINCIPAL VALUE**
- 000462 31200-VALIDATE-2.
- 000463 IF I-PRIN <= 0 18
- 000464 1 MOVE I-NAME TO E-NAME2 16 144
- 000465 1 MOVE I-LOAN TO E-LOAN2 17 145
- 000466 1 MOVE I-PRIN TO E-PRIN2 18 147
- 000467 1 MOVE I-TERM TO E-TERM2 20 149
- 000468 1 MOVE I-APR TO E-APR2 22 151
- 000469 1 MOVE I-DATE TO E-DATE2 24 153
- 000470 1 MOVE 'FATAL' TO E-EROR2 155
- 000471 1 MOVE 'INVALID PRINCIPAL AMOUNT' TO
- 000472 1 E-DETL2 157
- 000473 1 MOVE 1 TO BAD-ENTRY 317
- 000474 1 WRITE E-REPORTS FROM WS-DETAIL-E2 33 143
- 000475 1 AFTER ADVANCING 1 LINE
- 000476 1 IF I-PRIN IS NOT NUMERIC 18
- 000477 2 MOVE I-NAME TO E-NAME2 16 144
- 000478 2 MOVE I-LOAN TO E-LOAN2 17 145
- 000479 2 MOVE I-PRIN TO E-PRIN2 18 147
- 000480 2 MOVE I-TERM TO E-TERM2 20 149
- 000481 2 MOVE I-APR TO E-APR2 22 151
- 000482 2 MOVE I-DATE TO E-DATE2 24 153
- 000483 2 MOVE 'FATAL' TO E-EROR2 155
- 000484 2 MOVE 'INVALID PRINCIPAL AMOUNT' TO
- 000485 2 E-DETL2 157
- 000486 2 MOVE 1 TO BAD-ENTRY 317
- 000487 2 WRITE E-REPORTS FROM WS-DETAIL-E2 33 143
- 000488 2 AFTER ADVANCING 1 LINE.
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 19
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000489 /
- 000490 **VALIDATING APR VALUE**
- 000491 31300-VALIDATE-3.
- 000492 INSPECT I-APR TALLYING WS-CNT FOR ALL '.' 22 316
- 000493 IF WS-CNT > 0 316
- 000494 1 MOVE I-NAME TO E-NAME3 16 160
- 000495 1 MOVE I-LOAN TO E-LOAN3 17 161
- 000496 1 MOVE I-PRIN TO E-PRIN3 18 163
- 000497 1 MOVE I-TERM TO E-TERM3 20 165
- 000498 1 MOVE I-APR TO E-APR3 22 167
- 000499 1 MOVE I-DATE TO E-DATE3 24 169
- 000500 1 MOVE 'FATAL' TO E-EROR3 171
- 000501 1 MOVE 'INVALID APR VALUE' TO
- 000502 1 E-DETL3 173
- 000503 1 MOVE 1 TO BAD-ENTRY 317
- 000504 1 WRITE E-REPORTS FROM WS-DETAIL-E3 33 159
- 000505 1 AFTER ADVANCING 1 LINE
- 000506 1 MOVE 0 TO WS-CNT 316
- 000507 1 IF I-APR = LOW-VALUES 22 IMP
- 000508 2 MOVE I-NAME TO E-NAME3 16 160
- 000509 2 MOVE I-LOAN TO E-LOAN3 17 161
- 000510 2 MOVE I-PRIN TO E-PRIN3 18 163
- 000511 2 MOVE I-TERM TO E-TERM3 20 165
- 000512 2 MOVE I-APR TO E-APR3 22 167
- 000513 2 MOVE I-DATE TO E-DATE3 24 169
- 000514 2 MOVE 'FATAL' TO E-EROR3 171
- 000515 2 MOVE 'INVALID APR VALUE' TO
- 000516 2 E-DETL3 173
- 000517 2 MOVE 1 TO BAD-ENTRY 317
- 000518 2 WRITE E-REPORTS FROM WS-DETAIL-E3 33 159
- 000519 2 AFTER ADVANCING 1 LINE
- 000520 2 IF I-APR IS ZERO 22
- 000521 3 MOVE I-NAME TO E-NAME3 16 160
- 000522 3 MOVE I-LOAN TO E-LOAN3 17 161
- 000523 3 MOVE I-PRIN TO E-PRIN3 18 163
- 000524 3 MOVE I-TERM TO E-TERM3 20 165
- 000525 3 MOVE I-APR TO E-APR3 22 167
- 000526 3 MOVE I-DATE TO E-DATE3 24 169
- 000527 3 MOVE 'FATAL' TO E-EROR3 171
- 000528 3 MOVE 'INVALID APR VALUE' TO
- 000529 3 E-DETL3 173
- 000530 3 MOVE 1 TO BAD-ENTRY 317
- 000531 3 WRITE E-REPORTS FROM WS-DETAIL-E3 33 159
- 000532 3 AFTER ADVANCING 1 LINE.
- 000533 IF I-APR IS NOT NUMERIC 22
- 000534 1 MOVE I-NAME TO E-NAME3 16 160
- 000535 1 MOVE I-LOAN TO E-LOAN3 17 161
- 000536 1 MOVE I-PRIN TO E-PRIN3 18 163
- 000537 1 MOVE I-TERM TO E-TERM3 20 165
- 000538 1 MOVE I-APR TO E-APR3 22 167
- 000539 1 MOVE I-DATE TO E-DATE3 24 169
- 000540 1 MOVE 'FATAL' TO E-EROR3 171
- 000541 1 MOVE 'INVALID APR VALUE' TO
- 000542 1 E-DETL3 173
- 000543 1 MOVE 1 TO BAD-ENTRY 317
- 000544 1 WRITE E-REPORTS FROM WS-DETAIL-E3 33 159
- 000545 1 AFTER ADVANCING 1 LINE.
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 20
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000546 /
- 000547 **VALIDATING TERM VALUE**
- 000548 31400-VALIDATE-4.
- 000549 IF I-TERM <= 0 20
- 000550 1 MOVE I-NAME TO E-NAME4 16 176
- 000551 1 MOVE I-LOAN TO E-LOAN4 17 177
- 000552 1 MOVE I-PRIN TO E-PRIN4 18 179
- 000553 1 MOVE I-TERM TO E-TERM4 20 181
- 000554 1 MOVE I-APR TO E-APR4 22 183
- 000555 1 MOVE I-DATE TO E-DATE4 24 185
- 000556 1 MOVE 'FATAL' TO E-EROR4 187
- 000557 1 MOVE 'INVALID TERM LENGTH' TO
- 000558 1 E-DETL4 189
- 000559 1 MOVE 1 TO BAD-ENTRY 317
- 000560 1 WRITE E-REPORTS FROM WS-DETAIL-E4 33 175
- 000561 1 AFTER ADVANCING 1 LINE
- 000562 1 IF I-TERM = LOW-VALUES 20 IMP
- 000563 2 MOVE I-NAME TO E-NAME4 16 176
- 000564 2 MOVE I-LOAN TO E-LOAN4 17 177
- 000565 2 MOVE I-PRIN TO E-PRIN4 18 179
- 000566 2 MOVE I-TERM TO E-TERM4 20 181
- 000567 2 MOVE I-APR TO E-APR4 22 183
- 000568 2 MOVE I-DATE TO E-DATE4 24 185
- 000569 2 MOVE 'FATAL' TO E-EROR4 187
- 000570 2 MOVE 'INVALID TERM LENGTH' TO
- 000571 2 E-DETL4 189
- 000572 2 MOVE 1 TO BAD-ENTRY 317
- 000573 2 WRITE E-REPORTS FROM WS-DETAIL-E4 33 175
- 000574 2 AFTER ADVANCING 1 LINE.
- 000575 IF I-TERM IS NOT NUMERIC 20
- 000576 1 MOVE I-NAME TO E-NAME4 16 176
- 000577 1 MOVE I-LOAN TO E-LOAN4 17 177
- 000578 1 MOVE I-PRIN TO E-PRIN4 18 179
- 000579 1 MOVE I-TERM TO E-TERM4 20 181
- 000580 1 MOVE I-APR TO E-APR4 22 183
- 000581 1 MOVE I-DATE TO E-DATE4 24 185
- 000582 1 MOVE 'FATAL' TO E-EROR4 187
- 000583 1 MOVE 'INVALID TERM LENGTH' TO
- 000584 1 E-DETL4 189
- 000585 1 MOVE 1 TO BAD-ENTRY 317
- 000586 1 WRITE E-REPORTS FROM WS-DETAIL-E4 33 175
- 000587 1 AFTER ADVANCING 1 LINE.
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 21
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000588 /
- 000589 **CHECK IF READY TO AMORTIZE**
- 000590 31500-VALIDATE-CHECK.
- 000591 IF BAD-ENTRY = 0 317
- 000592 1 PERFORM 31600-MOVE-VALUES 599
- 000593 1 PERFORM 31700-CALC-M-PAY 611
- 000594 1 PERFORM 31800-SUMMARY-ROUTINE 621
- 000595 1 PERFORM 32000-CALCULATIONS 649
- 000596 1 UNTIL WS-N-CNT = 0. 319
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 22
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000597 /
- 000598 **INITIAL MOVE FOR VALUES TO BE CALCULATED**
- 000599 31600-MOVE-VALUES.
- 000600 MOVE I-PRIN TO WS-PRIN 18 335
- 000601 COMPUTE WS-M-APR = I-APR / 120000 337 22
- 000602 MOVE I-TERM TO WS-TERM 20 318
- 000603 COMPUTE WS-N-PAY = WS-TERM * 12 339 318
- 000604 MOVE WS-N-PAY TO WS-N-CNT 339 319
- 000605 MOVE I-DATE-MONTH TO S-DATE-MONTH. 26 320
- 000606 MOVE I-DATE-DAY TO S-DATE-DAY. 27 321
- 000607 MOVE I-DATE-YEAR TO S-DATE-YEAR. 28 322
- 000608 MOVE WS-PRIN TO WS-BPRIN. 335 343
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 23
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000609 /
- 000610 **CALCULATING MONTHLY PAYMENT**
- 000611 31700-CALC-M-PAY.
- 000612 COMPUTE WS-M-PAY1 = 331
- 000613 (WS-PRIN * WS-M-APR * ((1 + WS-M-APR) ** WS-N-PAY)) 335 337 337 339
- 000614 COMPUTE WS-M-PAY2 = 333
- 000615 (((1 + WS-M-APR) ** WS-N-PAY) - 1) 337 339
- 000616 COMPUTE WS-M-PAY = 329
- 000617 WS-M-PAY1 / WS-M-PAY2 331 333
- 000618 MOVE WS-M-PAY TO S-M-PAY. 329 272
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 24
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000619 /
- 000620 **PRINTS SUMMARY-ROUTINE AND AMORTIZATION HEADING**
- 000621 31800-SUMMARY-ROUTINE.
- 000622 MOVE I-NAME TO S-NAME 16 245
- 000623 MOVE I-LOAN TO S-LOAN 17 247
- 000624 MOVE I-PRIN TO S-PRIN 18 251
- 000625 MOVE I-TERM TO S-TERM 20 253
- 000626 MOVE WS-N-PAY TO S-TERM-M 339 255
- 000627 COMPUTE S-APR = I-APR / 100 257 22
- 000628 MOVE WS-M-PAY TO S-M-PAYS 329 259
- 000629 WRITE S-REPORTS FROM WS-RPT-HEADING-L1 37 60
- 000630 AFTER ADVANCING PAGE.
- 000631 WRITE S-REPORTS FROM WS-RPT-HEADING-L2 37 80
- 000632 AFTER ADVANCING 1 LINE.
- 000633 WRITE S-REPORTS FROM WS-SPACE 37 325
- 000634 AFTER ADVANCING 1 LINE.
- 000635 WRITE S-REPORTS FROM WS-SUMM-C 37 227
- 000636 AFTER ADVANCING 1 LINE.
- 000637 WRITE S-REPORTS FROM WS-SUMM-S 37 244
- 000638 AFTER ADVANCING 1 LINE.
- 000639 WRITE S-REPORTS FROM WS-SPACE 37 325
- 000640 AFTER ADVANCING 1 LINE.
- 000641 WRITE S-REPORTS FROM WS-COLUMN-S1 37 191
- 000642 AFTER ADVANCING 1 LINE.
- 000643 WRITE S-REPORTS FROM WS-COLUMN-S2 37 208
- 000644 AFTER ADVANCING 1 LINE.
- 000645 ADD +1 TO WS-PAGE-CTR. 48
- 000646 MOVE WS-PAGE-CTR TO WS-RPT-H1-PAGE-NR. 48 78
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 25
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000647 /
- 000648 **INITIAL CALCULATION CALLING METHOD**
- 000649 32000-CALCULATIONS.
- 000650 PERFORM 32200-CALC-I-DUE 656
- 000651 PERFORM 32300-CALC-APRIN 660
- 000652 PERFORM 32400-CALC-EPRIN 664
- 000653 PERFORM 32500-PRINT-DTL. 670
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 26
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000654 /
- 000655 **CALCULATE INTEREST DUE**
- 000656 32200-CALC-I-DUE.
- 000657 COMPUTE WS-I-DUE = WS-M-APR * WS-BPRIN. 341 337 343
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 27
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000658 /
- 000659 **CALCULATE ACTUAL PRINCIPAL PAID**
- 000660 32300-CALC-APRIN.
- 000661 COMPUTE WS-APRIN = WS-M-PAY - WS-I-DUE. 347 329 341
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 28
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000662 /
- 000663 **CALCULATE ENDING PRINCIPAL**
- 000664 32400-CALC-EPRIN.
- 000665 COMPUTE WS-EPRIN = WS-BPRIN - WS-APRIN. 345 343 347
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 29
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000666 /
- 000667 **PRINT DETAIL LINE FOR AMORTIZATION SCHEDULE**
- 000668 **LOGIC TO CREATE NEW PAGE AFTER 55 LINES**
- 000669 **LOGIC TO CREATE NEW HEADING AFTER COMPLETE SCHEDULE**
- 000670 32500-PRINT-DTL.
- 000671 COMPUTE S-PAY-N = S-PAY-N + 1 262 262
- 000672 MOVE S-DATE-MONTH TO S-PAY-M 320 264
- 000673 MOVE S-DATE-DAY TO S-PAY-D 321 266
- 000674 MOVE S-DATE-YEAR TO S-PAY-Y 322 268
- 000675 MOVE WS-BPRIN TO S-BEG-BAL 343 270
- 000676 MOVE WS-I-DUE TO S-I-DUE 341 274
- 000677 MOVE WS-APRIN TO S-P-PAY 347 276
- 000678 MOVE WS-EPRIN TO S-END-BAL 345 278
- 000679 COMPUTE T-M-PAY = T-M-PAY + WS-M-PAY 307 307 329
- 000680 MOVE T-M-PAY TO T-M-PAYS 307 299
- 000681 COMPUTE T-I-DUE = T-I-DUE + WS-I-DUE 308 308 341
- 000682 MOVE T-I-DUE TO T-I-DUES 308 301
- 000683 COMPUTE T-P-PAY = T-P-PAY + WS-APRIN 309 309 347
- 000684 MOVE T-P-PAY TO T-P-PAYS 309 303
- 000685 WRITE S-REPORTS FROM WS-DETAIL-S 37 261
- 000686 AFTER ADVANCING 1 LINE
- 000687 MOVE WS-EPRIN TO WS-BPRIN 345 343
- 000688
- 000689 COMPUTE WS-LINE-CTR = WS-LINE-CTR + 1 47 47
- 000690 COMPUTE WS-N-CNT = WS-N-CNT - 1 319 319
- 000691 IF WS-N-CNT = 0 319
- 000692 1 MOVE 0 TO S-PAY-N 262
- 000693 1 WRITE S-REPORTS FROM WS-DETAIL-T1 37 280
- 000694 1 AFTER ADVANCING 1 LINE
- 000695 1 WRITE S-REPORTS FROM WS-DETAIL-T2 37 288
- 000696 1 AFTER ADVANCING 1 LINE
- 000697 ELSE
- 000698 1 IF WS-LINE-CTR > 55 47
- 000699 2 COMPUTE WS-PAGE-CTR = WS-PAGE-CTR + 1 48 48
- 000700 2 MOVE WS-PAGE-CTR TO WS-RPT-H1-PAGE-NR 48 78
- 000701 2 PERFORM 31800-SUMMARY-ROUTINE 621
- 000702 2 MOVE 7 TO WS-LINE-CTR. 47
- 000703
- 000704 IF S-DATE-MONTH > 11 320
- 000705 1 COMPUTE S-DATE-MONTH = S-DATE-MONTH - 11 320 320
- 000706 1 COMPUTE S-DATE-YEAR = S-DATE-YEAR + 1 322 322
- 000707 ELSE
- 000708 1 COMPUTE S-DATE-MONTH = S-DATE-MONTH + 1. 320 320
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 30
- LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
- 000709 /
- 000710 40000-FINISH-ROUTINE.
- 000711 CLOSE I-RECORD. 13
- 000712 CLOSE E-REPORT. 31
- 000713 CLOSE S-REPORT. 35
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 31
- 0An "M" preceding a data-name reference indicates that the data-name is modified by this reference.
- Defined Cross-reference of data names References
- 42 ARE-THERE-MORE-RECORDS . . . . M411
- 317 BAD-ENTRY. . . . . . . . . . . M418 M429 M431 M433 M435 M437 M439 M441 M443 M445 M456 M473 M486 M503 M517 M530
- M543 M559 M572 M585 591
- 240 C-APR
- 232 C-DESC
- 230 C-LOAN
- 242 C-M-PAYS
- 228 C-NAME
- 234 C-PRIN
- 236 C-TERM
- 238 C-TERM-M
- 135 E-APR. . . . . . . . . . . . . M451
- 119 E-APR0
- 101 E-APR1
- 151 E-APR2 . . . . . . . . . . . . M468 M481
- 167 E-APR3 . . . . . . . . . . . . M498 M512 M525 M538
- 183 E-APR4 . . . . . . . . . . . . M554 M567 M580
- 137 E-DATE . . . . . . . . . . . . M452
- 121 E-DATE0
- 103 E-DATE1
- 153 E-DATE2. . . . . . . . . . . . M469 M482
- 169 E-DATE3. . . . . . . . . . . . M499 M513 M526 M539
- 185 E-DATE4. . . . . . . . . . . . M555 M568 M581
- 141 E-DETL . . . . . . . . . . . . M455
- 125 E-DETL0
- 107 E-DETL1
- 157 E-DETL2. . . . . . . . . . . . M472 M485
- 173 E-DETL3. . . . . . . . . . . . M502 M516 M529 M542
- 189 E-DETL4. . . . . . . . . . . . M558 M571 M584
- 139 E-EROR . . . . . . . . . . . . M453
- 123 E-EROR0
- 105 E-EROR1
- 155 E-EROR2. . . . . . . . . . . . M470 M483
- 171 E-EROR3. . . . . . . . . . . . M500 M514 M527 M540
- 187 E-EROR4. . . . . . . . . . . . M556 M569 M582
- 129 E-LOAN . . . . . . . . . . . . M448
- 113 E-LOAN0
- 95 E-LOAN1
- 145 E-LOAN2. . . . . . . . . . . . M465 M478
- 161 E-LOAN3. . . . . . . . . . . . M495 M509 M522 M535
- 177 E-LOAN4. . . . . . . . . . . . M551 M564 M577
- 128 E-NAME . . . . . . . . . . . . M447
- 110 E-NAME0
- 92 E-NAME1
- 144 E-NAME2. . . . . . . . . . . . M464 M477
- 160 E-NAME3. . . . . . . . . . . . M494 M508 M521 M534
- 176 E-NAME4. . . . . . . . . . . . M550 M563 M576
- 131 E-PRIN . . . . . . . . . . . . M449
- 115 E-PRIN0
- 97 E-PRIN1
- 147 E-PRIN2. . . . . . . . . . . . M466 M479
- 163 E-PRIN3. . . . . . . . . . . . M496 M510 M523 M536
- 179 E-PRIN4. . . . . . . . . . . . M552 M565 M578
- 31 E-REPORT . . . . . . . . . . . 7 368 712
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 32
- 0 Defined Cross-reference of data names References
- 0 33 E-REPORTS. . . . . . . . . . . M394 M396 M398 M400 M402 M457 M474 M487 M504 M518 M531 M544 M560 M573 M586
- 133 E-TERM . . . . . . . . . . . . M450
- 117 E-TERM0
- 99 E-TERM1
- 149 E-TERM2. . . . . . . . . . . . M467 M480
- 165 E-TERM3. . . . . . . . . . . . M497 M511 M524 M537
- 181 E-TERM4. . . . . . . . . . . . M553 M566 M579
- 22 I-APR. . . . . . . . . . . . . 451 468 481 492 498 507 512 520 525 533 538 554 567 580 601 627
- 24 I-DATE . . . . . . . . . . . . 25 452 469 482 499 513 526 539 555 568 581
- 27 I-DATE-DAY . . . . . . . . . . 606
- 26 I-DATE-MONTH . . . . . . . . . 605
- 25 I-DATE-X
- 28 I-DATE-YEAR. . . . . . . . . . 607
- 17 I-LOAN . . . . . . . . . . . . 427 448 465 478 495 509 522 535 551 564 577 623
- 16 I-NAME . . . . . . . . . . . . 447 464 477 494 508 521 534 550 563 576 622
- 18 I-PRIN . . . . . . . . . . . . 449 463 466 476 479 496 510 523 536 552 565 578 600 624
- 13 I-RECORD . . . . . . . . . . . 6 367 409 711
- 20 I-TERM . . . . . . . . . . . . 450 467 480 497 511 524 537 549 553 562 566 575 579 602 625
- 15 INPUT-RECORD-S
- 41 PROGRAM-INDICATORS
- 257 S-APR. . . . . . . . . . . . . M627
- 270 S-BEG-BAL. . . . . . . . . . . M675
- 198 S-BEG-BAL1
- 217 S-BEG-BAL2
- 321 S-DATE-DAY . . . . . . . . . . M606 673
- 320 S-DATE-MONTH . . . . . . . . . M605 672 704 M705 705 M708 708
- 322 S-DATE-YEAR. . . . . . . . . . M607 674 M706 706
- 249 S-DESC . . . . . . . . . . . . M428 M430 M432 M434 M436 M438 M440 M442 M444
- 278 S-END-BAL. . . . . . . . . . . M678
- 206 S-END-BAL1
- 225 S-END-BAL2
- 274 S-I-DUE. . . . . . . . . . . . M676
- 202 S-I-DUE1
- 221 S-I-DUE2
- 247 S-LOAN . . . . . . . . . . . . M623
- 272 S-M-PAY. . . . . . . . . . . . M618
- 259 S-M-PAYS . . . . . . . . . . . M628
- 200 S-M-PAY1
- 219 S-M-PAY2
- 245 S-NAME . . . . . . . . . . . . M622
- 276 S-P-PAY. . . . . . . . . . . . M677
- 204 S-P-PAY1
- 223 S-P-PAY2
- 266 S-PAY-D. . . . . . . . . . . . M673
- 195 S-PAY-D1
- 213 S-PAY-D2
- 264 S-PAY-M. . . . . . . . . . . . M672
- 194 S-PAY-M1
- 211 S-PAY-M2
- 262 S-PAY-N. . . . . . . . . . . . M671 671 M692
- 192 S-PAY-N1
- 209 S-PAY-N2
- 268 S-PAY-Y. . . . . . . . . . . . M674
- 196 S-PAY-Y1
- 215 S-PAY-Y2
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 33
- 0 Defined Cross-reference of data names References
- 0 251 S-PRIN . . . . . . . . . . . . M624
- 35 S-REPORT . . . . . . . . . . . 8 369 713
- 37 S-REPORTS. . . . . . . . . . . M629 M631 M633 M635 M637 M639 M641 M643 M685 M693 M695
- 253 S-TERM . . . . . . . . . . . . M625
- 255 S-TERM-M . . . . . . . . . . . M626
- 308 T-I-DUE. . . . . . . . . . . . M681 681 682
- 301 T-I-DUES . . . . . . . . . . . M682
- 307 T-M-PAY. . . . . . . . . . . . M679 679 680
- 299 T-M-PAYS . . . . . . . . . . . M680
- 309 T-P-PAY. . . . . . . . . . . . M683 683 684
- 303 T-P-PAYS . . . . . . . . . . . M684
- 43 THERE-ARE-MORE-RECORDS
- 44 THERE-ARE-NO-MORE-RECORDS. . . 358
- 328 WS-AMORT-VAR
- 347 WS-APRIN . . . . . . . . . . . M661 665 677 683
- 343 WS-BPRIN . . . . . . . . . . . M608 657 665 675 M687
- 316 WS-CNT . . . . . . . . . . . . M492 493 M506
- 109 WS-COLUMN-E0 . . . . . . . . . 402
- 91 WS-COLUMN-E1 . . . . . . . . . 400
- 191 WS-COLUMN-S1 . . . . . . . . . 641
- 208 WS-COLUMN-S2 . . . . . . . . . 643
- 51 WS-CURRENT-DATE
- 52 WS-CURRENT-DATE-CCYY . . . . . 378
- 54 WS-CURRENT-DATE-DD . . . . . . 374
- 53 WS-CURRENT-DATE-MM . . . . . . 376
- 50 WS-CURRENT-DATE-N-TIME . . . . M372
- 55 WS-CURRENT-TIME
- 56 WS-CURRENT-TIME-HH . . . . . . 380
- 57 WS-CURRENT-TIME-MM . . . . . . 382
- 58 WS-CURRENT-TIME-SS . . . . . . 384
- 127 WS-DETAIL-E. . . . . . . . . . 457
- 143 WS-DETAIL-E2 . . . . . . . . . 474 487
- 159 WS-DETAIL-E3 . . . . . . . . . 504 518 531 544
- 175 WS-DETAIL-E4 . . . . . . . . . 560 573 586
- 261 WS-DETAIL-S. . . . . . . . . . 685
- 280 WS-DETAIL-T1 . . . . . . . . . 693
- 288 WS-DETAIL-T2 . . . . . . . . . 695
- 345 WS-EPRIN . . . . . . . . . . . M665 678 687
- 306 WS-GRAND-TOTALS
- 341 WS-I-DUE . . . . . . . . . . . M657 661 676 681
- 47 WS-LINE-CTR. . . . . . . . . . M689 689 698 M702
- 337 WS-M-APR . . . . . . . . . . . M601 613 613 615 657
- 329 WS-M-PAY . . . . . . . . . . . M616 618 628 661 679
- 331 WS-M-PAY1. . . . . . . . . . . M612 617
- 333 WS-M-PAY2. . . . . . . . . . . M614 617
- 319 WS-N-CNT . . . . . . . . . . . 596 M604 M690 690 691
- 339 WS-N-PAY . . . . . . . . . . . M603 604 613 615 626
- 311 WS-NO-EXCEPTIONS
- 323 WS-PAGE-ADD
- 48 WS-PAGE-CTR. . . . . . . . . . M404 405 M645 646 M699 699 700
- 46 WS-PGM-VARS
- 335 WS-PRIN. . . . . . . . . . . . M600 608 613
- 60 WS-RPT-HEADING-L1. . . . . . . 394 629
- 80 WS-RPT-HEADING-L2. . . . . . . 396 631
- 88 WS-RPT-HEADING-L4
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 34
- 0 Defined Cross-reference of data names References
- 0 66 WS-RPT-H1-CCYY . . . . . . . . M379
- 64 WS-RPT-H1-DD . . . . . . . . . M375
- 68 WS-RPT-H1-HR . . . . . . . . . M381
- 70 WS-RPT-H1-MIN. . . . . . . . . M383
- 62 WS-RPT-H1-MM . . . . . . . . . M377
- 78 WS-RPT-H1-PAGE-NR. . . . . . . M405 M646 M700
- 72 WS-RPT-H1-SEC. . . . . . . . . M385
- 74 WS-RPT-H1-TITLE
- 84 WS-RPT-H2-TITLE
- 325 WS-SPACE . . . . . . . . . . . 398 633 639
- 326 WS-SPACE-X
- 227 WS-SUMM-C. . . . . . . . . . . 635
- 244 WS-SUMM-S. . . . . . . . . . . 637
- 318 WS-TERM. . . . . . . . . . . . M602 603
- 315 WS-VAR
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 35
- 0Context 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
- 351 00000-MAIN-LINE-ROUTINE
- 365 10000-INITIALIZATION-ROUTINE . P353
- 389 20000-HEADING-ROUTINE. . . . . P355
- 393 21000-E-HEADING-ROUTINE. . . . P390
- 408 30000-PROCESS-MASTER . . . . . P357
- 417 31000-VALIDATE . . . . . . . . P413
- 426 31100-VALIDATE-1 . . . . . . . P419
- 462 31200-VALIDATE-2 . . . . . . . P420
- 491 31300-VALIDATE-3 . . . . . . . P421
- 548 31400-VALIDATE-4 . . . . . . . P422
- 590 31500-VALIDATE-CHECK . . . . . P423
- 599 31600-MOVE-VALUES. . . . . . . P592
- 611 31700-CALC-M-PAY . . . . . . . P593
- 621 31800-SUMMARY-ROUTINE. . . . . P594 P701
- 649 32000-CALCULATIONS . . . . . . P595
- 656 32200-CALC-I-DUE . . . . . . . P650
- 660 32300-CALC-APRIN . . . . . . . P651
- 664 32400-CALC-EPRIN . . . . . . . P652
- 670 32500-PRINT-DTL. . . . . . . . P653
- 710 40000-FINISH-ROUTINE . . . . . P360
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 36
- 0 Defined Cross-reference of programs References
- 2 PROG03
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 37
- 0Data Division Map
- 0Data Definition Attribute codes (rightmost column) have the following meanings:
- D = Object of OCCURS DEPENDING G = GLOBAL S = Spanned file
- E = EXTERNAL O = Has OCCURS clause U = Undefined format file
- F = Fixed-length file OG= Group has own length definition V = Variable-length file
- FB= Fixed-length blocked file R = REDEFINES VB= Variable-length blocked file
- X = Unallocated
- 0Source Hierarchy and Base Displacement Asmblr Data Data Def
- LineID Data Name Locator Structure Definition Data Type Attributes
- 2 PROGRAM-ID PROG03------------------------------------------------------------------------------------------------------*
- 13 FD I-RECORD. . . . . . . . . . . . . . . . . . . BLF=00001 QSAM F
- 15 1 INPUT-RECORD-S. . . . . . . . . . . . . . . . BLF=00001 DS 0CL80 Group
- 16 2 I-NAME. . . . . . . . . . . . . . . . . . . BLF=00001 000000000 DS 40C Display
- 17 2 I-LOAN. . . . . . . . . . . . . . . . . . . BLF=00001 000000040 DS 5C Display
- 18 2 I-PRIN. . . . . . . . . . . . . . . . . . . BLF=00001 000000045 DS 11C Disp-Num
- 19 2 FILLER. . . . . . . . . . . . . . . . . . . BLF=00001 000000056 DS 1C Display
- 20 2 I-TERM. . . . . . . . . . . . . . . . . . . BLF=00001 000000057 DS 4C Display
- 21 2 FILLER. . . . . . . . . . . . . . . . . . . BLF=00001 000000061 DS 1C Display
- 22 2 I-APR . . . . . . . . . . . . . . . . . . . BLF=00001 000000062 DS 4C Disp-Num
- 23 2 FILLER. . . . . . . . . . . . . . . . . . . BLF=00001 000000066 DS 1C Display
- 24 2 I-DATE. . . . . . . . . . . . . . . . . . . BLF=00001 000000067 DS 8C Display
- 25 2 I-DATE-X. . . . . . . . . . . . . . . . . . BLF=00001 000000067 DS 0CL8 Group R
- 26 3 I-DATE-MONTH. . . . . . . . . . . . . . . BLF=00001 000000067 DS 2C Display
- 27 3 I-DATE-DAY. . . . . . . . . . . . . . . . BLF=00001 000000069 DS 2C Display
- 28 3 I-DATE-YEAR . . . . . . . . . . . . . . . BLF=00001 000000071 DS 4C Display
- 29 2 FILLER. . . . . . . . . . . . . . . . . . . BLF=00001 000000075 DS 5C Display
- 31 FD E-REPORT. . . . . . . . . . . . . . . . . . . BLF=00002 QSAM F
- 33 1 E-REPORTS . . . . . . . . . . . . . . . . . . BLF=00002 DS 132C Display
- 35 FD S-REPORT. . . . . . . . . . . . . . . . . . . BLF=00003 QSAM F
- 37 1 S-REPORTS . . . . . . . . . . . . . . . . . . BLF=00003 DS 132C Display
- 41 1 PROGRAM-INDICATORS. . . . . . . . . . . . . . DS 0CL1 Group
- 42 2 ARE-THERE-MORE-RECORDS. . . . . . . . . . . 000000000 DS 1C Display
- 43 88 THERE-ARE-MORE-RECORDS. . . . . . . . . . .
- 44 88 THERE-ARE-NO-MORE-RECORDS . . . . . . . . .
- 46 1 WS-PGM-VARS . . . . . . . . . . . . . . . . . DS 0CL7 Group
- 47 2 WS-LINE-CTR . . . . . . . . . . . . . . . . 000000000 DS 2C Disp-Num
- 48 2 WS-PAGE-CTR . . . . . . . . . . . . . . . . 000000002 DS 5C Disp-Num
- 50 1 WS-CURRENT-DATE-N-TIME. . . . . . . . . . . . DS 0CL14 Group
- 51 2 WS-CURRENT-DATE . . . . . . . . . . . . . . 000000000 DS 0CL8 Group
- 52 3 WS-CURRENT-DATE-CCYY. . . . . . . . . . . 000000000 DS 4C Disp-Num
- 53 3 WS-CURRENT-DATE-MM. . . . . . . . . . . . 000000004 DS 2C Disp-Num
- 54 3 WS-CURRENT-DATE-DD. . . . . . . . . . . . 000000006 DS 2C Disp-Num
- 55 2 WS-CURRENT-TIME . . . . . . . . . . . . . . 000000008 DS 0CL6 Group
- 56 3 WS-CURRENT-TIME-HH. . . . . . . . . . . . 000000008 DS 2C Disp-Num
- 57 3 WS-CURRENT-TIME-MM. . . . . . . . . . . . 000000010 DS 2C Disp-Num
- 58 3 WS-CURRENT-TIME-SS. . . . . . . . . . . . 000000012 DS 2C Disp-Num
- 60 1 WS-RPT-HEADING-L1 . . . . . . . . . . . . . . DS 0CL130 Group
- 61 2 FILLER. . . . . . . . . . . . . . . . . . . 000000000 DS 6C Display
- 62 2 WS-RPT-H1-MM. . . . . . . . . . . . . . . . 000000006 DS 2C Disp-Num
- 63 2 FILLER. . . . . . . . . . . . . . . . . . . 000000008 DS 1C Display
- 64 2 WS-RPT-H1-DD. . . . . . . . . . . . . . . . 000000009 DS 2C Disp-Num
- 65 2 FILLER. . . . . . . . . . . . . . . . . . . 000000011 DS 1C Display
- 66 2 WS-RPT-H1-CCYY. . . . . . . . . . . . . . . 000000012 DS 4C Disp-Num
- 67 2 FILLER. . . . . . . . . . . . . . . . . . . 000000016 DS 1C Display
- 68 2 WS-RPT-H1-HR. . . . . . . . . . . . . . . . 000000017 DS 2C Disp-Num
- 69 2 FILLER. . . . . . . . . . . . . . . . . . . 000000019 DS 1C Display
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 38
- 0Source Hierarchy and Base Displacement Asmblr Data Data Def
- LineID Data Name Locator Structure Definition Data Type Attributes
- 70 2 WS-RPT-H1-MIN . . . . . . . . . . . . . . . 000000020 DS 2C Disp-Num
- 71 2 FILLER. . . . . . . . . . . . . . . . . . . 000000022 DS 1C Display
- 72 2 WS-RPT-H1-SEC . . . . . . . . . . . . . . . 000000023 DS 2C Disp-Num
- 73 2 FILLER. . . . . . . . . . . . . . . . . . . 000000025 DS 37C Display
- 74 2 WS-RPT-H1-TITLE . . . . . . . . . . . . . . 000000062 DS 16C Display
- 76 2 FILLER. . . . . . . . . . . . . . . . . . . 000000078 DS 44C Display
- 77 2 FILLER. . . . . . . . . . . . . . . . . . . 000000122 DS 5C Display
- 78 2 WS-RPT-H1-PAGE-NR . . . . . . . . . . . . . 000000127 DS 3C Display
- 80 1 WS-RPT-HEADING-L2 . . . . . . . . . . . . . . DS 0CL128 Group
- 81 2 FILLER. . . . . . . . . . . . . . . . . . . 000000000 DS 24C Display
- 83 2 FILLER. . . . . . . . . . . . . . . . . . . 000000024 DS 27C Display
- 84 2 WS-RPT-H2-TITLE . . . . . . . . . . . . . . 000000051 DS 42C Display
- 86 2 FILLER. . . . . . . . . . . . . . . . . . . 000000093 DS 35C Display
- 88 1 WS-RPT-HEADING-L4 . . . . . . . . . . . . . . DS 0CL132 Group
- 89 2 FILLER. . . . . . . . . . . . . . . . . . . 000000000 DS 132C Display
- 91 1 WS-COLUMN-E1. . . . . . . . . . . . . . . . . DS 0CL87 Group
- 92 2 E-NAME1 . . . . . . . . . . . . . . . . . . 000000000 DS 4C Display
- 93 2 FILLER. . . . . . . . . . . . . . . . . . . 000000004 DS 18C Display
- 94 2 FILLER. . . . . . . . . . . . . . . . . . . 000000022 DS 3C Display
- 95 2 E-LOAN1 . . . . . . . . . . . . . . . . . . 000000025 DS 4C Display
- 96 2 FILLER. . . . . . . . . . . . . . . . . . . 000000029 DS 5C Display
- 97 2 E-PRIN1 . . . . . . . . . . . . . . . . . . 000000034 DS 11C Display
- 98 2 FILLER. . . . . . . . . . . . . . . . . . . 000000045 DS 3C Display
- 99 2 E-TERM1 . . . . . . . . . . . . . . . . . . 000000048 DS 5C Display
- 100 2 FILLER. . . . . . . . . . . . . . . . . . . 000000053 DS 1C Display
- 101 2 E-APR1. . . . . . . . . . . . . . . . . . . 000000054 DS 4C Display
- 102 2 FILLER. . . . . . . . . . . . . . . . . . . 000000058 DS 2C Display
- 103 2 E-DATE1 . . . . . . . . . . . . . . . . . . 000000060 DS 8C Display
- 104 2 FILLER. . . . . . . . . . . . . . . . . . . 000000068 DS 2C Display
- 105 2 E-EROR1 . . . . . . . . . . . . . . . . . . 000000070 DS 7C Display
- 106 2 FILLER. . . . . . . . . . . . . . . . . . . 000000077 DS 1C Display
- 107 2 E-DETL1 . . . . . . . . . . . . . . . . . . 000000078 DS 9C Display
- 109 1 WS-COLUMN-E0. . . . . . . . . . . . . . . . . DS 0CL102 Group
- 110 2 E-NAME0 . . . . . . . . . . . . . . . . . . 000000000 DS 4C Display
- 111 2 FILLER. . . . . . . . . . . . . . . . . . . 000000004 DS 18C Display
- 112 2 FILLER. . . . . . . . . . . . . . . . . . . 000000022 DS 3C Display
- 113 2 E-LOAN0 . . . . . . . . . . . . . . . . . . 000000025 DS 4C Display
- 114 2 FILLER. . . . . . . . . . . . . . . . . . . 000000029 DS 5C Display
- 115 2 E-PRIN0 . . . . . . . . . . . . . . . . . . 000000034 DS 11C Display
- 116 2 FILLER. . . . . . . . . . . . . . . . . . . 000000045 DS 3C Display
- 117 2 E-TERM0 . . . . . . . . . . . . . . . . . . 000000048 DS 5C Display
- 118 2 FILLER. . . . . . . . . . . . . . . . . . . 000000053 DS 3C Display
- 119 2 E-APR0. . . . . . . . . . . . . . . . . . . 000000056 DS 4C Display
- 120 2 FILLER. . . . . . . . . . . . . . . . . . . 000000060 DS 1C Display
- 121 2 E-DATE0 . . . . . . . . . . . . . . . . . . 000000061 DS 6C Display
- 122 2 FILLER. . . . . . . . . . . . . . . . . . . 000000067 DS 2C Display
- 123 2 E-EROR0 . . . . . . . . . . . . . . . . . . 000000069 DS 7C Display
- 124 2 FILLER. . . . . . . . . . . . . . . . . . . 000000076 DS 1C Display
- 125 2 E-DETL0 . . . . . . . . . . . . . . . . . . 000000077 DS 25C Display
- 127 1 WS-DETAIL-E . . . . . . . . . . . . . . . . . DS 0CL103 Group
- 128 2 E-NAME. . . . . . . . . . . . . . . . . . . 000000000 DS 25C Display
- 129 2 E-LOAN. . . . . . . . . . . . . . . . . . . 000000025 DS 4C Display
- 130 2 FILLER. . . . . . . . . . . . . . . . . . . 000000029 DS 2C Display
- 131 2 E-PRIN. . . . . . . . . . . . . . . . . . . 000000031 DS 14C Disp-Num-Edit
- 132 2 FILLER. . . . . . . . . . . . . . . . . . . 000000045 DS 3C Display
- 133 2 E-TERM. . . . . . . . . . . . . . . . . . . 000000048 DS 4C Display
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 39
- 0Source Hierarchy and Base Displacement Asmblr Data Data Def
- LineID Data Name Locator Structure Definition Data Type Attributes
- 134 2 FILLER. . . . . . . . . . . . . . . . . . . 000000052 DS 2C Display
- 135 2 E-APR . . . . . . . . . . . . . . . . . . . 000000054 DS 4C Disp-Num
- 136 2 FILLER. . . . . . . . . . . . . . . . . . . 000000058 DS 2C Display
- 137 2 E-DATE. . . . . . . . . . . . . . . . . . . 000000060 DS 8C Display
- 138 2 FILLER. . . . . . . . . . . . . . . . . . . 000000068 DS 2C Display
- 139 2 E-EROR. . . . . . . . . . . . . . . . . . . 000000070 DS 7C Display
- 140 2 FILLER. . . . . . . . . . . . . . . . . . . 000000077 DS 1C Display
- 141 2 E-DETL. . . . . . . . . . . . . . . . . . . 000000078 DS 25C Display
- 143 1 WS-DETAIL-E2. . . . . . . . . . . . . . . . . DS 0CL103 Group
- 144 2 E-NAME2 . . . . . . . . . . . . . . . . . . 000000000 DS 25C Display
- 145 2 E-LOAN2 . . . . . . . . . . . . . . . . . . 000000025 DS 4C Display
- 146 2 FILLER. . . . . . . . . . . . . . . . . . . 000000029 DS 2C Display
- 147 2 E-PRIN2 . . . . . . . . . . . . . . . . . . 000000031 DS 14C Disp-Num-Edit
- 148 2 FILLER. . . . . . . . . . . . . . . . . . . 000000045 DS 3C Display
- 149 2 E-TERM2 . . . . . . . . . . . . . . . . . . 000000048 DS 4C Display
- 150 2 FILLER. . . . . . . . . . . . . . . . . . . 000000052 DS 2C Display
- 151 2 E-APR2. . . . . . . . . . . . . . . . . . . 000000054 DS 4C Disp-Num
- 152 2 FILLER. . . . . . . . . . . . . . . . . . . 000000058 DS 2C Display
- 153 2 E-DATE2 . . . . . . . . . . . . . . . . . . 000000060 DS 8C Display
- 154 2 FILLER. . . . . . . . . . . . . . . . . . . 000000068 DS 2C Display
- 155 2 E-EROR2 . . . . . . . . . . . . . . . . . . 000000070 DS 7C Display
- 156 2 FILLER. . . . . . . . . . . . . . . . . . . 000000077 DS 1C Display
- 157 2 E-DETL2 . . . . . . . . . . . . . . . . . . 000000078 DS 25C Display
- 159 1 WS-DETAIL-E3. . . . . . . . . . . . . . . . . DS 0CL103 Group
- 160 2 E-NAME3 . . . . . . . . . . . . . . . . . . 000000000 DS 25C Display
- 161 2 E-LOAN3 . . . . . . . . . . . . . . . . . . 000000025 DS 4C Display
- 162 2 FILLER. . . . . . . . . . . . . . . . . . . 000000029 DS 2C Display
- 163 2 E-PRIN3 . . . . . . . . . . . . . . . . . . 000000031 DS 14C Disp-Num-Edit
- 164 2 FILLER. . . . . . . . . . . . . . . . . . . 000000045 DS 3C Display
- 165 2 E-TERM3 . . . . . . . . . . . . . . . . . . 000000048 DS 4C Display
- 166 2 FILLER. . . . . . . . . . . . . . . . . . . 000000052 DS 2C Display
- 167 2 E-APR3. . . . . . . . . . . . . . . . . . . 000000054 DS 4C Disp-Num
- 168 2 FILLER. . . . . . . . . . . . . . . . . . . 000000058 DS 2C Display
- 169 2 E-DATE3 . . . . . . . . . . . . . . . . . . 000000060 DS 8C Display
- 170 2 FILLER. . . . . . . . . . . . . . . . . . . 000000068 DS 2C Display
- 171 2 E-EROR3 . . . . . . . . . . . . . . . . . . 000000070 DS 7C Display
- 172 2 FILLER. . . . . . . . . . . . . . . . . . . 000000077 DS 1C Display
- 173 2 E-DETL3 . . . . . . . . . . . . . . . . . . 000000078 DS 25C Display
- 175 1 WS-DETAIL-E4. . . . . . . . . . . . . . . . . DS 0CL103 Group
- 176 2 E-NAME4 . . . . . . . . . . . . . . . . . . 000000000 DS 25C Display
- 177 2 E-LOAN4 . . . . . . . . . . . . . . . . . . 000000025 DS 4C Display
- 178 2 FILLER. . . . . . . . . . . . . . . . . . . 000000029 DS 2C Display
- 179 2 E-PRIN4 . . . . . . . . . . . . . . . . . . 000000031 DS 14C Disp-Num-Edit
- 180 2 FILLER. . . . . . . . . . . . . . . . . . . 000000045 DS 3C Display
- 181 2 E-TERM4 . . . . . . . . . . . . . . . . . . 000000048 DS 4C Display
- 182 2 FILLER. . . . . . . . . . . . . . . . . . . 000000052 DS 2C Display
- 183 2 E-APR4. . . . . . . . . . . . . . . . . . . 000000054 DS 4C Disp-Num
- 184 2 FILLER. . . . . . . . . . . . . . . . . . . 000000058 DS 2C Display
- 185 2 E-DATE4 . . . . . . . . . . . . . . . . . . 000000060 DS 8C Display
- 186 2 FILLER. . . . . . . . . . . . . . . . . . . 000000068 DS 2C Display
- 187 2 E-EROR4 . . . . . . . . . . . . . . . . . . 000000070 DS 7C Display
- 188 2 FILLER. . . . . . . . . . . . . . . . . . . 000000077 DS 1C Display
- 189 2 E-DETL4 . . . . . . . . . . . . . . . . . . 000000078 DS 25C Display
- 191 1 WS-COLUMN-S1. . . . . . . . . . . . . . . . . DS 0CL93 Group
- 192 2 S-PAY-N1. . . . . . . . . . . . . . . . . . 000000000 DS 3C Display
- 193 2 FILLER. . . . . . . . . . . . . . . . . . . 000000003 DS 1C Display
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 40
- 0Source Hierarchy and Base Displacement Asmblr Data Data Def
- LineID Data Name Locator Structure Definition Data Type Attributes
- 194 2 S-PAY-M1. . . . . . . . . . . . . . . . . . 000000004 DS 2C Display
- 195 2 S-PAY-D1. . . . . . . . . . . . . . . . . . 000000006 DS 4C Display
- 196 2 S-PAY-Y1. . . . . . . . . . . . . . . . . . 000000010 DS 4C Display
- 197 2 FILLER. . . . . . . . . . . . . . . . . . . 000000014 DS 5C Display
- 198 2 S-BEG-BAL1. . . . . . . . . . . . . . . . . 000000019 DS 11C Display
- 199 2 FILLER. . . . . . . . . . . . . . . . . . . 000000030 DS 5C Display
- 200 2 S-M-PAY1. . . . . . . . . . . . . . . . . . 000000035 DS 11C Display
- 201 2 FILLER. . . . . . . . . . . . . . . . . . . 000000046 DS 3C Display
- 202 2 S-I-DUE1. . . . . . . . . . . . . . . . . . 000000049 DS 11C Display
- 203 2 FILLER. . . . . . . . . . . . . . . . . . . 000000060 DS 3C Display
- 204 2 S-P-PAY1. . . . . . . . . . . . . . . . . . 000000063 DS 11C Display
- 205 2 FILLER. . . . . . . . . . . . . . . . . . . 000000074 DS 8C Display
- 206 2 S-END-BAL1. . . . . . . . . . . . . . . . . 000000082 DS 11C Display
- 208 1 WS-COLUMN-S2. . . . . . . . . . . . . . . . . DS 0CL92 Group
- 209 2 S-PAY-N2. . . . . . . . . . . . . . . . . . 000000000 DS 3C Display
- 210 2 FILLER. . . . . . . . . . . . . . . . . . . 000000003 DS 1C Display
- 211 2 S-PAY-M2. . . . . . . . . . . . . . . . . . 000000004 DS 2C Display
- 212 2 FILLER. . . . . . . . . . . . . . . . . . . 000000006 DS 1C Display
- 213 2 S-PAY-D2. . . . . . . . . . . . . . . . . . 000000007 DS 2C Display
- 214 2 FILLER. . . . . . . . . . . . . . . . . . . 000000009 DS 1C Display
- 215 2 S-PAY-Y2. . . . . . . . . . . . . . . . . . 000000010 DS 4C Display
- 216 2 FILLER. . . . . . . . . . . . . . . . . . . 000000014 DS 5C Display
- 217 2 S-BEG-BAL2. . . . . . . . . . . . . . . . . 000000019 DS 11C Display
- 218 2 FILLER. . . . . . . . . . . . . . . . . . . 000000030 DS 5C Display
- 219 2 S-M-PAY2. . . . . . . . . . . . . . . . . . 000000035 DS 11C Display
- 220 2 FILLER. . . . . . . . . . . . . . . . . . . 000000046 DS 4C Display
- 221 2 S-I-DUE2. . . . . . . . . . . . . . . . . . 000000050 DS 11C Display
- 222 2 FILLER. . . . . . . . . . . . . . . . . . . 000000061 DS 2C Display
- 223 2 S-P-PAY2. . . . . . . . . . . . . . . . . . 000000063 DS 11C Display
- 224 2 FILLER. . . . . . . . . . . . . . . . . . . 000000074 DS 7C Display
- 225 2 S-END-BAL2. . . . . . . . . . . . . . . . . 000000081 DS 11C Display
- 227 1 WS-SUMM-C . . . . . . . . . . . . . . . . . . DS 0CL125 Group
- 228 2 C-NAME. . . . . . . . . . . . . . . . . . . 000000000 DS 4C Display
- 229 2 FILLER. . . . . . . . . . . . . . . . . . . 000000004 DS 20C Display
- 230 2 C-LOAN. . . . . . . . . . . . . . . . . . . 000000024 DS 9C Display
- 231 2 FILLER. . . . . . . . . . . . . . . . . . . 000000033 DS 4C Display
- 232 2 C-DESC. . . . . . . . . . . . . . . . . . . 000000037 DS 11C Display
- 233 2 FILLER. . . . . . . . . . . . . . . . . . . 000000048 DS 12C Display
- 234 2 C-PRIN. . . . . . . . . . . . . . . . . . . 000000060 DS 9C Display
- 235 2 FILLER. . . . . . . . . . . . . . . . . . . 000000069 DS 2C Display
- 236 2 C-TERM. . . . . . . . . . . . . . . . . . . 000000071 DS 12C Display
- 237 2 FILLER. . . . . . . . . . . . . . . . . . . 000000083 DS 1C Display
- 238 2 C-TERM-M. . . . . . . . . . . . . . . . . . 000000084 DS 13C Display
- 239 2 FILLER. . . . . . . . . . . . . . . . . . . 000000097 DS 3C Display
- 240 2 C-APR . . . . . . . . . . . . . . . . . . . 000000100 DS 3C Display
- 241 2 FILLER. . . . . . . . . . . . . . . . . . . 000000103 DS 7C Display
- 242 2 C-M-PAYS. . . . . . . . . . . . . . . . . . 000000110 DS 15C Display
- 244 1 WS-SUMM-S . . . . . . . . . . . . . . . . . . DS 0CL123 Group
- 245 2 S-NAME. . . . . . . . . . . . . . . . . . . 000000000 DS 25C Display
- 246 2 FILLER. . . . . . . . . . . . . . . . . . . 000000025 DS 1C Display
- 247 2 S-LOAN. . . . . . . . . . . . . . . . . . . 000000026 DS 5C Display
- 248 2 FILLER. . . . . . . . . . . . . . . . . . . 000000031 DS 7C Display
- 249 2 S-DESC. . . . . . . . . . . . . . . . . . . 000000038 DS 16C Display
- 250 2 FILLER. . . . . . . . . . . . . . . . . . . 000000054 DS 1C Display
- 251 2 S-PRIN. . . . . . . . . . . . . . . . . . . 000000055 DS 14C Disp-Num-Edit
- 252 2 FILLER. . . . . . . . . . . . . . . . . . . 000000069 DS 5C Display
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 41
- 0Source Hierarchy and Base Displacement Asmblr Data Data Def
- LineID Data Name Locator Structure Definition Data Type Attributes
- 253 2 S-TERM. . . . . . . . . . . . . . . . . . . 000000074 DS 4C Disp-Num-Edit
- 254 2 FILLER. . . . . . . . . . . . . . . . . . . 000000078 DS 9C Display
- 255 2 S-TERM-M. . . . . . . . . . . . . . . . . . 000000087 DS 4C Disp-Num-Edit
- 256 2 FILLER. . . . . . . . . . . . . . . . . . . 000000091 DS 8C Display
- 257 2 S-APR . . . . . . . . . . . . . . . . . . . 000000099 DS 5C Disp-Num-Edit
- 258 2 FILLER. . . . . . . . . . . . . . . . . . . 000000104 DS 5C Display
- 259 2 S-M-PAYS. . . . . . . . . . . . . . . . . . 000000109 DS 14C Disp-Num-Edit
- 261 1 WS-DETAIL-S . . . . . . . . . . . . . . . . . DS 0CL91 Group
- 262 2 S-PAY-N . . . . . . . . . . . . . . . . . . 000000000 DS 3C Disp-Num
- 263 2 FILLER. . . . . . . . . . . . . . . . . . . 000000003 DS 1C Display
- 264 2 S-PAY-M . . . . . . . . . . . . . . . . . . 000000004 DS 2C Disp-Num
- 265 2 FILLER. . . . . . . . . . . . . . . . . . . 000000006 DS 1C Display
- 266 2 S-PAY-D . . . . . . . . . . . . . . . . . . 000000007 DS 2C Disp-Num
- 267 2 FILLER. . . . . . . . . . . . . . . . . . . 000000009 DS 1C Display
- 268 2 S-PAY-Y . . . . . . . . . . . . . . . . . . 000000010 DS 4C Disp-Num
- 269 2 FILLER. . . . . . . . . . . . . . . . . . . 000000014 DS 1C Display
- 270 2 S-BEG-BAL . . . . . . . . . . . . . . . . . 000000015 DS 14C Disp-Num-Edit
- 271 2 FILLER. . . . . . . . . . . . . . . . . . . 000000029 DS 1C Display
- 272 2 S-M-PAY . . . . . . . . . . . . . . . . . . 000000030 DS 14C Disp-Num-Edit
- 273 2 FILLER. . . . . . . . . . . . . . . . . . . 000000044 DS 1C Display
- 274 2 S-I-DUE . . . . . . . . . . . . . . . . . . 000000045 DS 14C Disp-Num-Edit
- 275 2 FILLER. . . . . . . . . . . . . . . . . . . 000000059 DS 1C Display
- 276 2 S-P-PAY . . . . . . . . . . . . . . . . . . 000000060 DS 14C Disp-Num-Edit
- 277 2 FILLER. . . . . . . . . . . . . . . . . . . 000000074 DS 3C Display
- 278 2 S-END-BAL . . . . . . . . . . . . . . . . . 000000077 DS 14C Disp-Num-Edit
- 280 1 WS-DETAIL-T1. . . . . . . . . . . . . . . . . DS 0CL77 Group
- 281 2 FILLER. . . . . . . . . . . . . . . . . . . 000000000 DS 31C Display
- 282 2 FILLER. . . . . . . . . . . . . . . . . . . 000000031 DS 13C Display
- 283 2 FILLER. . . . . . . . . . . . . . . . . . . 000000044 DS 2C Display
- 284 2 FILLER. . . . . . . . . . . . . . . . . . . 000000046 DS 14C Display
- 285 2 FILLER. . . . . . . . . . . . . . . . . . . 000000060 DS 2C Display
- 286 2 FILLER. . . . . . . . . . . . . . . . . . . 000000062 DS 15C Display
- 288 1 WS-DETAIL-T2. . . . . . . . . . . . . . . . . DS 0CL77 Group
- 289 2 FILLER. . . . . . . . . . . . . . . . . . . 000000000 DS 3C Display
- 290 2 FILLER. . . . . . . . . . . . . . . . . . . 000000003 DS 1C Display
- 291 2 FILLER. . . . . . . . . . . . . . . . . . . 000000004 DS 2C Display
- 292 2 FILLER. . . . . . . . . . . . . . . . . . . 000000006 DS 1C Display
- 293 2 FILLER. . . . . . . . . . . . . . . . . . . 000000007 DS 2C Display
- 294 2 FILLER. . . . . . . . . . . . . . . . . . . 000000009 DS 2C Display
- 295 2 FILLER. . . . . . . . . . . . . . . . . . . 000000011 DS 4C Display
- 296 2 FILLER. . . . . . . . . . . . . . . . . . . 000000015 DS 8C Display
- 297 2 FILLER. . . . . . . . . . . . . . . . . . . 000000023 DS 6C Display
- 298 2 FILLER. . . . . . . . . . . . . . . . . . . 000000029 DS 1C Display
- 299 2 T-M-PAYS. . . . . . . . . . . . . . . . . . 000000030 DS 14C Disp-Num-Edit
- 300 2 FILLER. . . . . . . . . . . . . . . . . . . 000000044 DS 1C Display
- 301 2 T-I-DUES. . . . . . . . . . . . . . . . . . 000000045 DS 14C Disp-Num-Edit
- 302 2 FILLER. . . . . . . . . . . . . . . . . . . 000000059 DS 1C Display
- 303 2 T-P-PAYS. . . . . . . . . . . . . . . . . . 000000060 DS 14C Disp-Num-Edit
- 304 2 FILLER. . . . . . . . . . . . . . . . . . . 000000074 DS 3C Display
- 306 1 WS-GRAND-TOTALS . . . . . . . . . . . . . . . DS 0CL33 Group
- 307 2 T-M-PAY . . . . . . . . . . . . . . . . . . 000000000 DS 11C Disp-Num
- 308 2 T-I-DUE . . . . . . . . . . . . . . . . . . 000000011 DS 11C Disp-Num
- 309 2 T-P-PAY . . . . . . . . . . . . . . . . . . 000000022 DS 11C Disp-Num
- 311 1 WS-NO-EXCEPTIONS. . . . . . . . . . . . . . . DS 0CL132 Group
- 312 2 FILLER. . . . . . . . . . . . . . . . . . . 000000000 DS 132C Display
- 315 1 WS-VAR. . . . . . . . . . . . . . . . . . . . DS 0CL19 Group
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 42
- 0Source Hierarchy and Base Displacement Asmblr Data Data Def
- LineID Data Name Locator Structure Definition Data Type Attributes
- 316 2 WS-CNT. . . . . . . . . . . . . . . . . . . 000000000 DS 2C Disp-Num
- 317 2 BAD-ENTRY . . . . . . . . . . . . . . . . . 000000002 DS 1C Disp-Num
- 318 2 WS-TERM . . . . . . . . . . . . . . . . . . 000000003 DS 3C Disp-Num
- 319 2 WS-N-CNT. . . . . . . . . . . . . . . . . . 000000006 DS 3C Disp-Num
- 320 2 S-DATE-MONTH. . . . . . . . . . . . . . . . 000000009 DS 2C Disp-Num
- 321 2 S-DATE-DAY. . . . . . . . . . . . . . . . . 000000011 DS 2C Disp-Num
- 322 2 S-DATE-YEAR . . . . . . . . . . . . . . . . 000000013 DS 4C Disp-Num
- 323 2 WS-PAGE-ADD . . . . . . . . . . . . . . . . 000000017 DS 2C Disp-Num
- 325 1 WS-SPACE. . . . . . . . . . . . . . . . . . . DS 0CL132 Group
- 326 2 WS-SPACE-X. . . . . . . . . . . . . . . . . 000000000 DS 132C Display
- 328 1 WS-AMORT-VAR. . . . . . . . . . . . . . . . . DS 0CL104 Group
- 329 2 WS-M-PAY. . . . . . . . . . . . . . . . . . 000000000 DS 11C Disp-Num
- 330 2 FILLER. . . . . . . . . . . . . . . . . . . 000000011 DS 1C Display
- 331 2 WS-M-PAY1 . . . . . . . . . . . . . . . . . 000000012 DS 11C Disp-Num
- 332 2 FILLER. . . . . . . . . . . . . . . . . . . 000000023 DS 1C Display
- 333 2 WS-M-PAY2 . . . . . . . . . . . . . . . . . 000000024 DS 11C Disp-Num
- 334 2 FILLER. . . . . . . . . . . . . . . . . . . 000000035 DS 1C Display
- 335 2 WS-PRIN . . . . . . . . . . . . . . . . . . 000000036 DS 11C Disp-Num
- 336 2 FILLER. . . . . . . . . . . . . . . . . . . 000000047 DS 1C Display
- 337 2 WS-M-APR. . . . . . . . . . . . . . . . . . 000000048 DS 4C Disp-Num
- 338 2 FILLER. . . . . . . . . . . . . . . . . . . 000000052 DS 1C Display
- 339 2 WS-N-PAY. . . . . . . . . . . . . . . . . . 000000053 DS 3C Disp-Num
- 340 2 FILLER. . . . . . . . . . . . . . . . . . . 000000056 DS 1C Display
- 341 2 WS-I-DUE. . . . . . . . . . . . . . . . . . 000000057 DS 11C Disp-Num
- 342 2 FILLER. . . . . . . . . . . . . . . . . . . 000000068 DS 1C Display
- 343 2 WS-BPRIN. . . . . . . . . . . . . . . . . . 000000069 DS 11C Disp-Num
- 344 2 FILLER. . . . . . . . . . . . . . . . . . . 000000080 DS 1C Display
- 345 2 WS-EPRIN. . . . . . . . . . . . . . . . . . 000000081 DS 11C Disp-Num
- 346 2 FILLER. . . . . . . . . . . . . . . . . . . 000000092 DS 1C Display
- 347 2 WS-APRIN. . . . . . . . . . . . . . . . . . 000000093 DS 11C Disp-Num
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 43
- 0LineID Message code Message text
- 13 IGYGR1216-I A "RECORDING MODE" of "F" was assumed for file "I-RECORD".
- 19 IGYDS1158-I A non-level-88 "VALUE" clause was found in the "FILE SECTION" or "LINKAGE SECTION". The "VALUE" clause was
- treated as comments.
- Same message on line: 21 23 29
- 31 IGYGR1216-I A "RECORDING MODE" of "F" was assumed for file "E-REPORT".
- 35 IGYGR1216-I A "RECORDING MODE" of "F" was assumed for file "S-REPORT".
- -Messages Total Informational Warning Error Severe Terminating
- 0Printed: 8 8
- -* Statistics for COBOL program PROG03:
- * Source records = 713
- * Data Division statements = 175
- * Procedure Division statements = 236
- * Generated COBOL statements = 0
- * Program complexity factor = 240
- 0End of compilation 1, program PROG03, highest severity 0.
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 44
- 0LINEID HEXLOC VERBCODE LINEID HEXLOC VERBCODE LINEID HEXLOC VERBCODE
- 000353 00019E PERFORM 000355 0001BC PERFORM 000357 0001DA PERFORM
- 000360 0001FE PERFORM 000362 00021C STOP 000367 00025E OPEN
- 000371 000314 MOVE 000374 000330 MOVE 000376 00033A MOVE
- 000378 000344 MOVE 000380 00034E MOVE 000382 000358 MOVE
- 000384 000362 MOVE 000390 000372 PERFORM 000394 000396 WRITE
- 000396 0003DA WRITE 000398 000420 WRITE 000400 000460 WRITE
- 000402 0004A6 WRITE 000404 0004EC ADD 000405 000502 MOVE
- 000409 00050E READ 000411 000552 MOVE 000413 00055C PERFORM
- 000418 000580 MOVE 000419 000584 PERFORM 000420 0005A2 PERFORM
- 000421 0005C0 PERFORM 000422 0005DE PERFORM 000423 0005FC PERFORM
- 000427 000620 EVALUATE 000428 000620 WHEN 000428 00062E MOVE
- 000429 00063A MOVE 000430 000642 WHEN 000430 000650 MOVE
- 000431 00065C MOVE 000432 000664 WHEN 000432 000672 MOVE
- 000433 00067E MOVE 000434 000686 WHEN 000434 000694 MOVE
- 000435 0006A0 MOVE 000436 0006A8 WHEN 000436 0006B6 MOVE
- 000437 0006C2 MOVE 000438 0006CA WHEN 000438 0006D8 MOVE
- 000439 0006E4 MOVE 000440 0006EC WHEN 000440 0006FA MOVE
- 000441 000706 MOVE 000442 00070E WHEN 000442 00071C MOVE
- 000443 000728 MOVE 000444 000730 WHEN 000444 00073E MOVE
- 000445 000744 MOVE 000446 00074C WHEN 000447 00074C MOVE
- 000448 000756 MOVE 000449 000760 MOVE 000450 000780 MOVE
- 000451 00078A MOVE 000452 00079E MOVE 000453 0007A8 MOVE
- 000454 0007AE MOVE 000456 0007BA MOVE 000457 0007BE WRITE
- 000463 00080A IF 000464 00081E MOVE 000465 000828 MOVE
- 000466 000832 MOVE 000467 000852 MOVE 000468 00085C MOVE
- 000469 000870 MOVE 000470 00087A MOVE 000471 000886 MOVE
- 000473 000890 MOVE 000474 000894 WRITE 000476 0008DA IF
- 000477 0008FA MOVE 000478 000904 MOVE 000479 00090E MOVE
- 000480 00092E MOVE 000481 000938 MOVE 000482 00094C MOVE
- 000483 000956 MOVE 000484 000962 MOVE 000486 00096C MOVE
- 000487 000970 WRITE 000492 0009BC INSPECT 000493 000A3A IF
- 000494 000A4A MOVE 000495 000A54 MOVE 000496 000A5E MOVE
- 000497 000A7E MOVE 000498 000A88 MOVE 000499 000A9C MOVE
- 000500 000AA6 MOVE 000501 000AB2 MOVE 000503 000ABE MOVE
- 000504 000AC2 WRITE 000506 000B08 MOVE 000507 000B10 IF
- 000508 000B1E MOVE 000509 000B28 MOVE 000510 000B32 MOVE
- 000511 000B52 MOVE 000512 000B5C MOVE 000513 000B70 MOVE
- 000514 000B7A MOVE 000515 000B86 MOVE 000517 000B92 MOVE
- 000518 000B96 WRITE 000520 000BDC IF 000521 000BF0 MOVE
- 000522 000BFA MOVE 000523 000C04 MOVE 000524 000C24 MOVE
- 000525 000C2E MOVE 000526 000C42 MOVE 000527 000C4C MOVE
- 000528 000C58 MOVE 000530 000C64 MOVE 000531 000C68 WRITE
- 000533 000CAE IF 000534 000CCE MOVE 000535 000CD8 MOVE
- 000536 000CE2 MOVE 000537 000D02 MOVE 000538 000D0C MOVE
- 000539 000D20 MOVE 000540 000D2A MOVE 000541 000D36 MOVE
- 000543 000D42 MOVE 000544 000D46 WRITE 000549 000D92 IF
- 000550 000DA0 MOVE 000551 000DAA MOVE 000552 000DB4 MOVE
- 000553 000DD4 MOVE 000554 000DDE MOVE 000555 000DF2 MOVE
- 000556 000DFC MOVE 000557 000E08 MOVE 000559 000E14 MOVE
- 000560 000E18 WRITE 000562 000E5E IF 000563 000E6C MOVE
- 000564 000E76 MOVE 000565 000E80 MOVE 000566 000EA0 MOVE
- 000567 000EAA MOVE 000568 000EBE MOVE 000569 000EC8 MOVE
- 000570 000ED4 MOVE 000572 000EE0 MOVE 000573 000EE4 WRITE
- 000575 000F2A IF 000576 000F4A MOVE 000577 000F54 MOVE
- 000578 000F5E MOVE 000579 000F7E MOVE 000580 000F88 MOVE
- 000581 000F9C MOVE 000582 000FA6 MOVE 000583 000FB2 MOVE
- 000585 000FBE MOVE 000586 000FC2 WRITE 000591 00100E IF
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 45
- 0000592 00101C PERFORM 000593 00103A PERFORM 000594 001058 PERFORM
- 000595 001076 PERFORM 000600 0010A6 MOVE 000601 0010BA COMPUTE
- 000602 0010EA MOVE 000603 0010FE COMPUTE 000604 001114 MOVE
- 000605 00111E MOVE 000606 001132 MOVE 000607 001146 MOVE
- 000608 00115A MOVE 000612 00116A COMPUTE 000614 001218 COMPUTE
- 000616 001288 COMPUTE 000618 0012B6 MOVE 000622 0012D8 MOVE
- 000623 0012E2 MOVE 000624 0012EC MOVE 000625 001312 MOVE
- 000626 001332 MOVE 000627 00134E COMPUTE 000628 001374 MOVE
- 000629 001396 WRITE 000631 0013DA WRITE 000633 001420 WRITE
- 000635 001460 WRITE 000637 0014A6 WRITE 000639 0014EC WRITE
- 000641 00152C WRITE 000643 001572 WRITE 000645 0015B8 ADD
- 000646 0015CE MOVE 000650 0015DA PERFORM 000651 0015F8 PERFORM
- 000652 001616 PERFORM 000653 001634 PERFORM 000657 001658 COMPUTE
- 000661 00167A COMPUTE 000665 00169C COMPUTE 000671 0016BE COMPUTE
- 000672 0016D4 MOVE 000673 0016DE MOVE 000674 0016E8 MOVE
- 000675 0016F2 MOVE 000676 001714 MOVE 000677 001736 MOVE
- 000678 001758 MOVE 000679 00177A COMPUTE 000680 001796 MOVE
- 000681 0017B8 COMPUTE 000682 0017D4 MOVE 000683 0017F6 COMPUTE
- 000684 001812 MOVE 000685 001834 WRITE 000687 00187A MOVE
- 000689 001884 COMPUTE 000690 00189A COMPUTE 000691 0018B0 IF
- 000692 0018C0 MOVE 000693 0018C6 WRITE 000695 00190C WRITE
- 000698 001956 IF 000699 001966 COMPUTE 000700 00197C MOVE
- 000701 001982 PERFORM 000702 0019A0 MOVE 000704 0019A8 IF
- 000705 0019B8 COMPUTE 000706 0019CE COMPUTE 000708 0019E8 COMPUTE
- 000711 001A04 CLOSE 000712 001A38 CLOSE 000713 001A6C CLOSE
- CONSTANT AREA
- 0028B0 (+0) 00CCDDFF 00000000 D7D9D6C7 F0F30000 C9C7E9E2 D9E3C3C4 40000A00 00000000 |........PROG03..IGZSRTCD .......|
- 0028D0 (+32) E2E8E2D6 E4E34040 00070000 0E000F00 E800F0F0 00000000 F0F0F0F0 F0000000 |SYSOUT ........Y.00....00000...|
- 0028F0 (+64) F0F0F0F0 F0F00000 C4C1E3C5 7A006100 7A000000 00000000 404040C2 D6C2C3C1 |000000..DATE:./.:....... BOBCA|
- 002910 (+96) E340C2C1 D5D24040 00000000 00000000 D7C1C7C5 7A000000 D7D9D6C7 D9C1D440 |T BANK ........PAGE:...PROGRAM |
- 002930 (+128) 7BF37A40 D2C5E5C9 D540D5C7 E4E8C5D5 00000000 00000000 40404040 4040D3D6 |#3: KEVIN NGUYEN........ LO|
- 002950 (+160) C1D540C1 D4D6D9E3 C9E9C1E3 C9D6D540 E2C3C8C5 C4E4D3C5 40404040 40404040 |AN AMORTIZATION SCHEDULE |
- 002970 (+192) 40400000 00000000 D5C1D4C5 00000000 D3D6C1D5 00000000 40D7D9C9 D5C3C9D7 | ......NAME....LOAN.... PRINCIP|
- 002990 (+224) C1D34000 00000000 E8C5C1D9 E2000000 40C1D7D9 00000000 4040C4C1 E3C54040 |AL .....YEARS... APR.... DATE |
- 0029B0 (+256) 00000000 00000000 40C5D9D9 D6D94000 C4C5E3C1 C9D3E200 E3E8D7C5 00000000 |........ ERROR .DETAILS.TYPE....|
- 0029D0 (+288) 4040C1D4 D6E4D5E3 40404000 00000000 4040E3E8 D7C54000 D7C1E800 00000000 | AMOUNT ..... TYPE .PAY.....|
- 0029F0 (+320) C4C1E3C5 00000000 40C2C5C7 C9D5D5C9 D5C74000 00000000 4040D4D6 D5E3C8D3 |DATE.... BEGINNING ..... MONTHL|
- 002A10 (+352) E8404000 00000000 4040C9D5 E3C5D9C5 E2E34000 00000000 4040C5D5 C4C9D5C7 |Y ..... INTEREST ..... ENDING|
- 002A30 (+384) 40404000 407B4000 4040C2C1 D3C1D5C3 C5404000 00000000 4040D7C1 E8D4C5D5 | . # . BALANCE ..... PAYMEN|
- 002A50 (+416) E3404000 00000000 40404040 C4E4C540 40404000 00000000 D3D6C1D5 40E3E8D7 |T ..... DUE .....LOAN TYP|
- 002A70 (+448) C5000000 00000000 C4C5E2C3 D9C9D7E3 C9D6D500 00000000 D7D9C9D5 C3C9D7C1 |E.......DESCRIPTION.....PRINCIPA|
- 002A90 (+480) D3000000 00000000 E3C5D9D4 404DE8C5 C1D9E25D 00000000 E3C5D9D4 404DD4D6 |L.......TERM (YEARS)....TERM (MO|
- 002AB0 (+512) D5E3C8E2 5D000000 C1D7D900 00000000 D4D6D5E3 C8D3E840 D7C1E8D4 C5D5E300 |NTHS)...APR.....MONTHLY PAYMENT.|
- 002AD0 (+544) F0F0F000 61000000 E3D6E3C1 D340D4D6 D5E3C8D3 E8000000 E3D6E3C1 D340C9D5 |000./...TOTAL MONTHLY...TOTAL IN|
- 002AF0 (+576) E3C5D9C5 E2E30000 00000000 00000000 E3D6E3C1 D340D7D9 C9D5C3C9 D7C1D300 |TEREST..........TOTAL PRINCIPAL.|
- 002B10 (+608) F0F0F0F0 F0F0F0F0 F0F0F0F0 00000000 D7D9D6C7 F0F30000 D5008000 00000000 |000000000000....PROG03..N.......|
- 002B30 (+640) 80000000 00000000 40000000 08000000 A800A400 1C000000 04420000 00000000 |........ .......y.u.............|
- 002B50 (+672) F1F0F0D5 00000000 D5C5E640 C3C1D900 F1F0F0E4 00000000 E4E2C5C4 40C3C1D9 |100N....NEW CAR.100U....USED CAR|
- 002B70 (+704) 00000000 F2F0F000 C2D6C1E3 00000000 F3F0F000 00000000 E2C9C7D5 C1E3E4D9 |....200.BOAT....300.....SIGNATUR|
- 002B90 (+736) C540D3D6 C1D50000 F4F0F000 D961E500 F5F0F000 00000000 D4D6E3D6 D9C3E8C3 |E LOAN..400.R/V.500.....MOTORCYC|
- 002BB0 (+768) D3C50000 F6F0F000 D4D6D9E3 C7C1C7C5 00000000 F7F0F000 C8D6D4C5 40C5D8E4 |LE..600.MORTGAGE....700.HOME EQU|
- 002BD0 (+800) C9E3E800 F8F0F000 C8D6D4C5 40C9D4D7 D9D6E5C5 D4C5D5E3 00000000 00000000 |ITY.800.HOME IMPROVEMENT........|
- 002BF0 (+832) 40212120 20206B20 20206B20 20204B20 20000000 00000000 E6C1D9D5 C9D5C700 | .....,...,.............WARNING.|
- 002C10 (+864) C9D5E5C1 D3C9C440 D3D6C1D5 40E3E8D7 C500F100 00000000 C6C1E3C1 D3000000 |INVALID LOAN TYPE.1.....FATAL...|
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 46
- 0 002C30 (+896) C9D5E5C1 D3C9C440 D7D9C9D5 C3C9D7C1 D340C1D4 D6E4D5E3 00000000 00000000 |INVALID PRINCIPAL AMOUNT........|
- 002C50 (+928) 10101010 10101010 10101010 10101010 10101010 10101010 10101010 10101010 |................................|
- 002C70 (+960) 10101010 10101010 10101010 10101010 10101010 10101010 10101010 10101010 |................................|
- 002C90 (+992) 10101010 10101010 10101010 10101010 10101010 10101010 10101010 10101010 |................................|
- 002CB0 (+1024) 10101010 10101010 10101010 10101010 10101010 10101010 10101010 10101010 |................................|
- 002CD0 (+1056) 10101010 10101010 10101010 10101010 10101010 10101010 10101010 10101010 |................................|
- 002CF0 (+1088) 10101010 10101010 10101010 10101010 10101010 10101010 10101010 10101010 |................................|
- 002D10 (+1120) 80808080 80808080 80801010 10101010 80808080 80808080 80801010 10101010 |................................|
- 002D30 (+1152) 10101010 10101010 10101010 10101010 00000000 00000000 00001010 10101010 |................................|
- 002D50 (+1184) 00004B00 F0F00000 C9D5E5C1 D3C9C440 C1D7D940 E5C1D3E4 C5000000 F0F0F0F0 |....00..INVALID APR VALUE...0000|
- 002D70 (+1216) C9D5E5C1 D3C9C440 E3C5D9D4 40D3C5D5 C7E3C800 00000000 F0F0F000 0120000F |INVALID TERM LENGTH.....000.....|
- 002D90 (+1248) 012F1F00 00000000 00000000 00000000 40202020 6B202020 6B202120 4B202000 |................ ...,...,.......|
- 002DB0 (+1280) 40202020 6B202020 6B202021 4B202000 40202020 21200000 100F0000 00000000 | ...,...,....... ...............|
- 002DD0 (+1312) 40202120 4B202000 F5F5F0F7 F1F1011F 80000000 00000000 C6C9C200 0104D3D6 | .......550711..........FIB...LO|
- 002DF0 (+1344) C1D5E2C9 40400084 80800400 00008000 00000050 00000050 00000000 00000000 |ANSI .d...........&...&........|
- 002E10 (+1376) 00000000 00000000 82080000 00000000 00000000 00000000 00000000 00000000 |........b.......................|
- 002E30 (+1408) 00000000 00000000 00000000 00000000 00000000 00000000 C960D9C5 C3D6D9C4 |........................I-RECORD|
- 002E50 (+1440) 40404040 40404040 40404040 40404040 40404040 40400000 C6C3C200 01030000 | ..FCB.....|
- 002E70 (+1472) FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF 00000000 |................................|
- 002E90 (+1504) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 002EB0 (+1536) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 002ED0 (+1568) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 002EF0 (+1600) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 002F10 (+1632) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 002F30 (+1664) 00000000 00000000 00000000 00000000 00000050 00000000 00000000 00000000 |...................&............|
- 002F50 (+1696) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 002F70 (+1728) 00000000 00000000 00000000 00000000 C6C9C200 0204D7D9 C9D5E3F0 F0F10084 |................FIB...PRINT001.d|
- 002F90 (+1760) 80802410 00008400 00000085 00000085 00000000 00000000 00000000 00000000 |......d....e...e................|
- 002FB0 (+1792) 42240000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 002FD0 (+1824) 00000000 00000000 00000000 00000000 00000000 00000000 C560D9C5 D7D6D9E3 |........................E-REPORT|
- 002FF0 (+1856) 40404040 40404040 40404040 40404040 40404040 40400000 C6C3C200 02030000 | ..FCB.....|
- 003010 (+1888) FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF 00000000 |................................|
- 003030 (+1920) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 003050 (+1952) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 003070 (+1984) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 003090 (+2016) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 0030B0 (+2048) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 0030D0 (+2080) 00000000 00000000 00000000 00000000 00000085 00000000 00000000 00000000 |...................e............|
- 0030F0 (+2112) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 003110 (+2144) 00000000 00000000 00000000 00000000 C6C9C200 0304D7D9 C9D5E3F0 F0F20084 |................FIB...PRINT002.d|
- 003130 (+2176) 80802410 00008400 00000085 00000085 00000000 00000000 00000000 00000000 |......d....e...e................|
- 003150 (+2208) 42240000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 003170 (+2240) 00000000 00000000 00000000 00000000 00000000 00000000 E260D9C5 D7D6D9E3 |........................S-REPORT|
- 003190 (+2272) 40404040 40404040 40404040 40404040 40404040 40400000 C6C3C200 03030000 | ..FCB.....|
- 0031B0 (+2304) FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF 00000000 |................................|
- 0031D0 (+2336) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 0031F0 (+2368) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 003210 (+2400) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 003230 (+2432) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 003250 (+2464) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 003270 (+2496) 00000000 00000000 00000000 00000000 00000085 00000000 00000000 00000000 |...................e............|
- 003290 (+2528) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 0032B0 (+2560) 00000000 00000000 00000000 00000000 F1F3F1F5 F6F5F1F0 00000000 00000000 |................13156510........|
- 0032D0 (+2592) E2E8E2D6 E4E34040 00000000 00000000 00000000 00000000 00001B18 00001C20 |SYSOUT ........................|
- 0032F0 (+2624) 00000000 00000000 00000000 00000000 00000000 00000000 F1F0F0D5 40000000 |........................100N ...|
- 003310 (+2656) F1F0F0E4 40000000 F2F0F040 40000000 F3F0F040 40000000 F4F0F040 40000000 |100U ...200 ...300 ...400 ...|
- 003330 (+2688) F5F0F040 40000000 F6F0F040 40000000 F7F0F040 40000000 F8F0F040 40000000 |500 ...600 ...700 ...800 ...|
- 003350 (+2720) 00000000 000F0F00 00000000 000C000F 000C0000 00000000 00000000 00000000 |................................|
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 47
- 0 003370 (+2752) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 003390 (+2784) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 0033B0 (+2816) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 0033D0 (+2848) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 0033F0 (+2880) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 003410 (+2912) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 003430 (+2944) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
- 003450 (+2976) 00000000 00000000 00000000 00000000 00000000 00000000 00000F00 00000000 |................................|
- 003470 (+3008) 00000C00 F0404040 0C000000 00000000 10000F00 055F055C 011F011C 00000000 |....0 .............^.*........|
- 003490 (+3040) 00000000 00000000 00000040 00000000 00000002 0000000B 00000006 00800000 |........... ....................|
- 0034B0 (+3072) 08000000 12A80000 00000001 A4000000 04420000 00300000 00000004 89000001 |.....y......u...............i...|
- 0034D0 (+3104) 88000002 00000009 80000000 00000025 40404040 40404040 40404040 40404040 |h............... |
- 0034F0 (+3136) 40404040 40404040 40404040 40404040 40404040 40404040 40404040 40404040 | |
- 003510 (+3168) 40404040 40404040 40404040 40404040 40404040 40404040 40404040 40404040 | |
- 003530 (+3200) 40404040 40404040 40404040 40404040 40404040 40404040 40404040 40404040 | |
- 003550 (+3232) 40404040 40404040 40404040 40404040 40404040 40404040 40404040 40404040 | |
- 003570 (+3264) 40404040 40404040 40404040 40404040 40404040 40404040 40404040 40404040 | |
- 003590 (+3296) 40404040 40404040 40404040 40404040 40404040 40404040 40404040 40404040 | |
- 0035B0 (+3328) 40404040 40404040 40404040 40404040 40404040 40404040 40404040 40404040 | |
- 0035D0 (+3360) 40404040 40404040 40404040 40404040 00000000 00000000 00000000 00000000 | ................|
- 0035F0 (+3392) F1F3F1F5 F6F5F1F0 04000000 00000000 E2E8E2D6 E4E34040 00000003 |13156510........SYSOUT .... |
- PPA1: Entry Point Constants
- 003610 1CCEA506 =F'483304710' Flags
- 003614 000037D0 =A(PPA2-PROG03)
- 003618 00003740 =A(PPA3-PROG03)
- 00361C 00000000 =F'0' No EPD
- 003620 FFFE0000 =F'-131072' Register Save Mask
- 003624 40000000 =F'1073741824' Member Flags
- 003628 90 =AL1(144) Flags
- 003629 000428 =AL3(1064) Callee's DSA use/8
- 00362C 0000 =AL1(0) Flags
- 00362E 0012 =H'18' Offset/2 to CDL
- 003630 D0000298 =F'-805305704' State variable location
- 003634 00000000 =F'0' CDL function length/2
- 003638 00000000 =F'0' CDL function EP offset
- 00363C 00000000 =F'0' CDL prolog
- 003640 00000000 =F'0' CDL epilog
- 003644 00000000 =F'0' CDL end
- 003648 0006 **** AL2(6),C'PROG03'
- PPA1 End
- PPA1: Entry Point Constants
- 003650 1CCE2106 =F'483270918' Flags
- 003654 00001CB8 =A(PPA2-#SRVal000000001 )
- 003658 00001C38 =A(PPA3-#SRVal000000001 )
- 00365C 00000000 =F'0' No EPD
- 003660 FFFE0000 =F'-131072' Register Save Mask
- 003664 00000000 =F'0' Member Flags
- 003668 90 =AL1(144) Flags
- 003669 000190 =AL3(400) Callee's DSA use/8
- 00366C 0000 =AL1(0) Flags
- 00366E 0012 =H'18' Offset/2 to CDL
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 48
- 0 003670 00000000 =F'0' State variable location
- 003674 00000000 =F'0' CDL function length/2
- 003678 00000000 =F'0' CDL function EP offset
- 00367C 00000000 =F'0' CDL prolog
- 003680 00000000 =F'0' CDL epilog
- 003684 00000000 =F'0' CDL end
- 003688 0010 **** AL2(16),C'#SRVal000000001 '
- PPA1 End
- PPA1: Entry Point Constants
- 0036A0 1CCE2106 =F'483270918' Flags
- 0036A4 00001BB0 =A(PPA2-#WSVal000000001 )
- 0036A8 00001B40 =A(PPA3-#WSVal000000001 )
- 0036AC 00000000 =F'0' No EPD
- 0036B0 FFFE0000 =F'-131072' Register Save Mask
- 0036B4 00000000 =F'0' Member Flags
- 0036B8 90 =AL1(144) Flags
- 0036B9 000190 =AL3(400) Callee's DSA use/8
- 0036BC 0000 =AL1(0) Flags
- 0036BE 0012 =H'18' Offset/2 to CDL
- 0036C0 00000000 =F'0' State variable location
- 0036C4 00000000 =F'0' CDL function length/2
- 0036C8 00000000 =F'0' CDL function EP offset
- 0036CC 00000000 =F'0' CDL prolog
- 0036D0 00000000 =F'0' CDL epilog
- 0036D4 00000000 =F'0' CDL end
- 0036D8 0010 **** AL2(16),C'#WSVal000000001 '
- PPA1 End
- PPA1: Entry Point Constants
- 0036F0 1CCE2106 =F'483270918' Flags
- 0036F4 00001398 =A(PPA2-__COMPUNITsinit)
- 0036F8 00001338 =A(PPA3-__COMPUNITsinit)
- 0036FC 00000000 =F'0' No EPD
- 003700 FFE00000 =F'-2097152' Register Save Mask
- 003704 00000000 =F'0' Member Flags
- 003708 90 =AL1(144) Flags
- 003709 000190 =AL3(400) Callee's DSA use/8
- 00370C 0000 =AL1(0) Flags
- 00370E 0012 =H'18' Offset/2 to CDL
- 003710 00000000 =F'0' State variable location
- 003714 00000000 =F'0' CDL function length/2
- 003718 00000000 =F'0' CDL function EP offset
- 00371C 00000000 =F'0' CDL prolog
- 003720 00000000 =F'0' CDL epilog
- 003724 00000000 =F'0' CDL end
- 003728 000F **** AL2(15),C'__COMPUNITsinit'
- PPA1 End
- Timestamp and Version Information
- 003780 F2F0 F1F8 =C'2018' Compiled Year
- 003784 F0F2 F2F3 =C'0223' Compiled Date MMDD
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 49
- 0 003788 F1F5 F3F2 F5F0 =C'153250' Compiled Time HHMMSS
- 00378E F0F5 F0F1 F0F0 =C'050100' VERSION/RELEASE/MOD LEVEL OF PROD
- Timestamp and Version Information End
- Compiler Options and Program Information Section
- 003794 0034 =X'0034' Size of Compiler Options and Prog Info Section
- 003796 (+00) 0474 =X'0474' UNSIGNED BINARY CODE PAGE CCSID VALUE
- 003798 (+02) 06 =X'06' ARCHITECTURE LEVEL
- 003799 (+03) 00 =X'00' OPTIMIZATION LEVEL
- 00379A (+04) 1406 =X'1406' INFO. BYTES 28-29
- 00379C (+06) 0000 =X'0000' RESERVED
- 00379E (+08) A02C744C2080 =X'A02C744C2080' INFO. BYTES 1-6
- 0037A4 (+14) 00004280012B =X'00004280012B' INFO. BYTES 7-12
- 0037AA (+20) 802040900400 =X'802040900400' INFO. BYTES 13-18
- 0037B0 (+26) 0000000200 =X'0000000200' INFO. BYTES 19-23
- 0037B5 (+31) 00 =X'00' COBOL SIGNATURE LEVEL
- 0037B6 (+32) 000000AF =X'000000AF' # DATA DIVISION STATEMENTS
- 0037BA (+36) 000000EC =X'000000EC' # PROCEDURE DIVISION STATEMENTS
- 0037BE (+40) 00048000 =X'00048000' INFO. BYTES 24-27
- 0037C2 (+44) 4040404040404040 =C' ' USER LEVEL INFO (LVLINFO)
- Compiler Options and Program Information Section End
- PPA2: Entry Point Constants
- 0037D0 04002203 =F'67117571' Flags
- 0037D4 FFFFC830 =A(CEESTART-PPA2)
- 0037D8 00000058 =F'88' A(PPA4-PPA2)
- 0037DC FFFFFFB0 =A(TIMESTMP-PPA2)
- 0037E0 FFFFC830 =A(PrimaryEntryPoint-PPA2)
- 0037E4 02200000 =F'35651584' Flags
- PPA2 End
- PPA3: Entry Point Constants
- 003740 00000000 =F'0' Flags
- 003744 000000C0 =F'192' A(Base_Locator_Table-PPA3)
- 003748 000000D8 =F'216' A(Special_Register_Table-PPA3)
- 003748 0000019E =X'19E' A(User_Entry-CUEntry)
- PPA3 End
- PPA3: Entry Point Constants
- 003750 00000000 =F'0' Flags
- 003754 00000000 =F'0' A(Base_Locator_Table-PPA3)
- 003758 00000000 =F'0' A(Special_Register_Table-PPA3)
- 003758 00000000 =X'0' A(User_Entry-CUEntry)
- PPA3 End
- PPA3: Entry Point Constants
- 003760 00000000 =F'0' Flags
- 003764 00000000 =F'0' A(Base_Locator_Table-PPA3)
- 003768 00000000 =F'0' A(Special_Register_Table-PPA3)
- 003768 00000000 =X'0' A(User_Entry-CUEntry)
- PPA3 End
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 50
- 0
- PPA3: Entry Point Constants
- 003770 00000000 =F'0' Flags
- 003774 00000000 =F'0' A(Base_Locator_Table-PPA3)
- 003778 00000000 =F'0' A(Special_Register_Table-PPA3)
- 003778 00000000 =X'0' A(User_Entry-CUEntry)
- PPA3 End
- Base Locator Table
- 003800 01 =X'1' Table Version
- 003801 00 =X'0' Reserved
- 003802 0008 =H'8' Header length
- 003804 00000010 =F'16' Array byte length
- 003808 0A00 =X'A00' Flags & info (element 1)
- 00380A 00000000 =X'0' Offset to cells
- 00380E 03 =X'3' Cell count
- 00380F 2A00 =X'2A00' Flags & info (element 2)
- 003811 0000000C =X'C' Offset to cells
- 003815 03 =X'3' Cell count
- 003816 0000 =X'0' Flags & info (end of array)
- Base Locator Table End
- Special Register Table
- 003818 01 =X'1' Table Version
- 003819 00 =X'0' Reserved
- 00381A 0008 =H'8' Header length
- 00381C 00000006 =F'6' Array byte length
- 003820 12 =X'12' Flags & info (element 1)
- 003821 00000020 =X'20' Offset to cells
- 003825 00 =X'0' Flags & info (end of array)
- Special Register Table End
- PPA4: Entry Point Constants
- 003828 08000000 =F'134217728' Flags 1
- 00382C 00020100 =F'131328' Flags 2
- 003830 00000000 =F'0' A(NORENTstatic)
- 003834 00000000 =F'0' Q(RENTstatic)
- 003838 00000000 =F'0' A(DATA24_address_cell-RENTstatic)
- 00383C FFFFC7D8 =F'-14376' A(Code-PPA4)
- 003840 00003860 =F'14432' Code Length
- 003844 00000000 =F'0' Length NORENTstatic
- 003848 00001070 =F'4208' Length RENTstatic
- 00384C 00000000 =F'0' Length DATA24
- 003850 002A =X'2A' A(CUName-PPA4)
- PPA4 End
- E X T E R N A L S Y M B O L D I C T I O N A R Y
- TYPE ID ADDR LENGTH NAME
- SD 1 000000 000000 PROG03
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 51
- 0 ED 2 000000 000000 C_CEESG003
- ED 3 000000 003860 C_CODE
- LD 4 000000 000000 PROG03#C
- ER 5 000000 000000 CEESTART
- ER 6 000000 000000 CEEBETBL
- ED 7 000000 000000 C_WSA
- PR 8 000000 001070 PROG03#S
- ED 9 000000 000022 B_IDRL
- ER 10 000000 000000 IGZXBST
- ER 11 000000 000000 PROG03
- ER 12 000000 000000 IGZXPRS
- ER 13 000000 000000 IGZXCMSG
- ER 14 000000 000000 IGZXTREC
- ER 15 000000 000000 IGZXQOPN
- ER 16 000000 000000 IGZXCDT
- ER 17 000000 000000 IGZXSPA
- ER 18 000000 000000 IGZXQCLS
- ER 19 000000 000000 IGZXINSP
- ER 20 000000 000000 IGZXPR2
- ER 21 000000 000000 IGZXXMU0
- LD 22 000000 000000 PROG03
- ER 23 000000 000000 CEESG004
- ED 24 000000 000000 C_@@PPA2
- PR 25 000000 000008
- ED 26 000000 000000 C_@@CSINIT
- PR 27 000000 000004
- * * * * * S T A T I C M A P * * * * *
- OFFSET (HEX) LENGTH (HEX) NAME
- 0 C BLF_Ptrs
- C C BLT_Ptrs
- 18 4 JNIENVPTR
- 20 2 RETURN-CODE
- 28 2 SORT-RETURN
- 30 8 SORT-CONTROL
- 38 4 SORT-CORE-SIZE
- 40 4 SORT-FILE-SIZE
- 48 4 SORT-MODE-SIZE
- 50 8 SORT-MESSAGE
- 58 4 TALLY
- 60 1 SHIFT-OUT
- 68 1 SHIFT-IN
- 70 4 XML-CODE
- 78 1E XML-EVENT
- 98 4 XML-INFORMATION
- A0 85 E-REPORT
- 128 85 S-REPORT
- 1B0 1 PROGRAM-INDICATORS
- 1B8 7 WS-PGM-VARS
- 1C0 E WS-CURRENT-DATE-N-TIME
- 1D0 82 WS-RPT-HEADING-L1
- 258 80 WS-RPT-HEADING-L2
- 2D8 84 WS-RPT-HEADING-L4
- 360 57 WS-COLUMN-E1
- 3B8 66 WS-COLUMN-E0
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 52
- 0 420 67 WS-DETAIL-E
- 488 67 WS-DETAIL-E2
- 4F0 67 WS-DETAIL-E3
- 558 67 WS-DETAIL-E4
- 5C0 5D WS-COLUMN-S1
- 620 5C WS-COLUMN-S2
- 680 7D WS-SUMM-C
- 700 7B WS-SUMM-S
- 780 5B WS-DETAIL-S
- 7E0 4D WS-DETAIL-T1
- 830 4D WS-DETAIL-T2
- 880 21 WS-GRAND-TOTALS
- 8A8 84 WS-NO-EXCEPTIONS
- 930 13 WS-VAR
- 948 84 WS-SPACE
- 9D0 68 WS-AMORT-VAR
- A38 C _FCBAA
- A44 C _FIBAA
- A50 BC I-RECORD_IFIB
- B0C 114 I-RECORD_FCB
- C20 BC E-REPORT_IFIB
- CDC 114 E-REPORT_FCB
- DF0 BC S-REPORT_IFIB
- EAC 114 S-REPORT_FCB
- FC0 4C VNI_cells
- 100C 60 GPCB
- 106C 4 WSA24-BASE-ADDRESS
- * * * * * E N D O F S T A T I C M A P * * * * *
- * * * * * A U T O M A T I C M A P * * * * *
- OFFSET (HEX) LENGTH (HEX) NAME
- Block name: PROG03
- 0 5 _VTS_3
- 80 4 __CAA
- C8 10 _BEtemp200
- D8 10 _BEtemp216
- E8 10 _BEtemp232
- F8 10 _BEtemp248
- 108 10 _BEtemp264
- 118 20 _BEtemp280
- 138 10 _BEtemp312
- 148 10 _BEtemp328
- 158 10 _BEtemp344
- 168 4 _BEtemp360
- 16C 4 _CACHED_$STATIC
- 170 4 TS2=12
- 174 4 TS2=11
- 178 2 _returnValue
- 17C 4 PfmSv_Cell
- 180 4 PfmSv_Cell
- 184 4 PfmSv_Cell
- 188 4 PfmSv_Cell
- 18C 4 PfmSv_Cell
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 53
- 0 190 3 TS2=17
- 194 4 PfmSv_Cell
- 198 4 PfmSv_Cell
- 19C 4 PfmSv_Cell
- 1A0 4 PfmSv_Cell
- 1A4 4 PfmSv_Cell
- 1A8 4 PfmSv_Cell
- 1AC 6 TS2=29
- 1B4 7 TS2=30
- 1BB 1 TS2=38
- 1BC 4 TS2=37
- 1C0 4 PfmSv_Cell
- 1C4 4 PfmSv_Cell
- 1C8 4 PfmSv_Cell
- 1CC 4 PfmSv_Cell
- 1D0 6 TS2=112
- 1D8 4 PfmSv_Cell
- 1DC 4 PfmSv_Cell
- 1E0 4 PfmSv_Cell
- 1E4 4 PfmSv_Cell
- 1E8 4 PfmSv_Cell
- 1F0 30 _argumentList2
- 220 24 _argumentList
- 248 4C VN_cells
- 298 30 COBDSACB
- 2C8 18 VLC_cells
- 2E0 15 FuncResultTemp
- 2F8 11 TS2=28
- 310 F TS2=115
- 320 6 TS2=124
- 328 7 TS2=135
- 330 10 _VTS_4
- 340 17 _VTS_2
- 358 10 _VTS_1
- OFFSET (HEX) LENGTH (HEX) NAME
- Block name: #SRVal000000001
- 80 4 __CAA
- 84 4 _parentDSA
- C8 4 _CACHED_$STATIC
- OFFSET (HEX) LENGTH (HEX) NAME
- Block name: #WSVal000000001
- 80 4 __CAA
- 84 4 _parentDSA
- C8 4 _CACHED_$STATIC
- OFFSET (HEX) LENGTH (HEX) NAME
- Block name: __COMPUNITsinit
- 1PP 5655-W32 IBM Enterprise COBOL for z/OS 5.1.0 PROG03 Date 02/23/2018 Time 15:32:50 Page 54
- 0 C 4 __CAACRENT
- 80 4 _incomingArgumentList
- 84 4 __CAA
- C8 4 _CACHED_$STATIC
- * * * * * E N D O F A U T O M A T I C M A P * * * * *
- Testarossa level: tr.r13.cobol_20131008_47825
- * * * * * E N D O F C O M P I L A T I O N * * * * *
- 0Return code 0
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement