| 1 | ****************************************************************** |
| 2 | * Copyright Amazon.com, Inc. or its affiliates. |
| 3 | * All Rights Reserved. |
| 4 | * |
| 5 | * Licensed under the Apache License, Version 2.0 (the "License"). |
| 6 | * You may not use this file except in compliance with the License. |
| 7 | * You may obtain a copy of the License at |
| 8 | * |
| 9 | * http://www.apache.org/licenses/LICENSE-2.0 |
| 10 | * |
| 11 | * Unless required by applicable law or agreed to in writing, |
| 12 | * software distributed under the License is distributed on an |
| 13 | * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, |
| 14 | * either express or implied. See the License for the specific |
| 15 | * language governing permissions and limitations under the License |
| 16 | ****************************************************************** |
| 17 | 01 CORPT0AI. |
| 18 | 02 FILLER PIC X(12). |
| 19 | 02 TRNNAMEL COMP PIC S9(4). |
| 20 | 02 TRNNAMEF PICTURE X. |
| 21 | 02 FILLER REDEFINES TRNNAMEF. |
| 22 | 03 TRNNAMEA PICTURE X. |
| 23 | 02 FILLER PICTURE X(4). |
| 24 | 02 TRNNAMEI PIC X(4). |
| 25 | 02 TITLE01L COMP PIC S9(4). |
| 26 | 02 TITLE01F PICTURE X. |
| 27 | 02 FILLER REDEFINES TITLE01F. |
| 28 | 03 TITLE01A PICTURE X. |
| 29 | 02 FILLER PICTURE X(4). |
| 30 | 02 TITLE01I PIC X(40). |
| 31 | 02 CURDATEL COMP PIC S9(4). |
| 32 | 02 CURDATEF PICTURE X. |
| 33 | 02 FILLER REDEFINES CURDATEF. |
| 34 | 03 CURDATEA PICTURE X. |
| 35 | 02 FILLER PICTURE X(4). |
| 36 | 02 CURDATEI PIC X(8). |
| 37 | 02 PGMNAMEL COMP PIC S9(4). |
| 38 | 02 PGMNAMEF PICTURE X. |
| 39 | 02 FILLER REDEFINES PGMNAMEF. |
| 40 | 03 PGMNAMEA PICTURE X. |
| 41 | 02 FILLER PICTURE X(4). |
| 42 | 02 PGMNAMEI PIC X(8). |
| 43 | 02 TITLE02L COMP PIC S9(4). |
| 44 | 02 TITLE02F PICTURE X. |
| 45 | 02 FILLER REDEFINES TITLE02F. |
| 46 | 03 TITLE02A PICTURE X. |
| 47 | 02 FILLER PICTURE X(4). |
| 48 | 02 TITLE02I PIC X(40). |
| 49 | 02 CURTIMEL COMP PIC S9(4). |
| 50 | 02 CURTIMEF PICTURE X. |
| 51 | 02 FILLER REDEFINES CURTIMEF. |
| 52 | 03 CURTIMEA PICTURE X. |
| 53 | 02 FILLER PICTURE X(4). |
| 54 | 02 CURTIMEI PIC X(8). |
| 55 | 02 MONTHLYL COMP PIC S9(4). |
| 56 | 02 MONTHLYF PICTURE X. |
| 57 | 02 FILLER REDEFINES MONTHLYF. |
| 58 | 03 MONTHLYA PICTURE X. |
| 59 | 02 FILLER PICTURE X(4). |
| 60 | 02 MONTHLYI PIC X(1). |
| 61 | 02 YEARLYL COMP PIC S9(4). |
| 62 | 02 YEARLYF PICTURE X. |
| 63 | 02 FILLER REDEFINES YEARLYF. |
| 64 | 03 YEARLYA PICTURE X. |
| 65 | 02 FILLER PICTURE X(4). |
| 66 | 02 YEARLYI PIC X(1). |
| 67 | 02 CUSTOML COMP PIC S9(4). |
| 68 | 02 CUSTOMF PICTURE X. |
| 69 | 02 FILLER REDEFINES CUSTOMF. |
| 70 | 03 CUSTOMA PICTURE X. |
| 71 | 02 FILLER PICTURE X(4). |
| 72 | 02 CUSTOMI PIC X(1). |
| 73 | 02 SDTMML COMP PIC S9(4). |
| 74 | 02 SDTMMF PICTURE X. |
| 75 | 02 FILLER REDEFINES SDTMMF. |
| 76 | 03 SDTMMA PICTURE X. |
| 77 | 02 FILLER PICTURE X(4). |
| 78 | 02 SDTMMI PIC X(2). |
| 79 | 02 SDTDDL COMP PIC S9(4). |
| 80 | 02 SDTDDF PICTURE X. |
| 81 | 02 FILLER REDEFINES SDTDDF. |
| 82 | 03 SDTDDA PICTURE X. |
| 83 | 02 FILLER PICTURE X(4). |
| 84 | 02 SDTDDI PIC X(2). |
| 85 | 02 SDTYYYYL COMP PIC S9(4). |
| 86 | 02 SDTYYYYF PICTURE X. |
| 87 | 02 FILLER REDEFINES SDTYYYYF. |
| 88 | 03 SDTYYYYA PICTURE X. |
| 89 | 02 FILLER PICTURE X(4). |
| 90 | 02 SDTYYYYI PIC X(4). |
| 91 | 02 EDTMML COMP PIC S9(4). |
| 92 | 02 EDTMMF PICTURE X. |
| 93 | 02 FILLER REDEFINES EDTMMF. |
| 94 | 03 EDTMMA PICTURE X. |
| 95 | 02 FILLER PICTURE X(4). |
| 96 | 02 EDTMMI PIC X(2). |
| 97 | 02 EDTDDL COMP PIC S9(4). |
| 98 | 02 EDTDDF PICTURE X. |
| 99 | 02 FILLER REDEFINES EDTDDF. |
| 100 | 03 EDTDDA PICTURE X. |
| 101 | 02 FILLER PICTURE X(4). |
| 102 | 02 EDTDDI PIC X(2). |
| 103 | 02 EDTYYYYL COMP PIC S9(4). |
| 104 | 02 EDTYYYYF PICTURE X. |
| 105 | 02 FILLER REDEFINES EDTYYYYF. |
| 106 | 03 EDTYYYYA PICTURE X. |
| 107 | 02 FILLER PICTURE X(4). |
| 108 | 02 EDTYYYYI PIC X(4). |
| 109 | 02 CONFIRML COMP PIC S9(4). |
| 110 | 02 CONFIRMF PICTURE X. |
| 111 | 02 FILLER REDEFINES CONFIRMF. |
| 112 | 03 CONFIRMA PICTURE X. |
| 113 | 02 FILLER PICTURE X(4). |
| 114 | 02 CONFIRMI PIC X(1). |
| 115 | 02 ERRMSGL COMP PIC S9(4). |
| 116 | 02 ERRMSGF PICTURE X. |
| 117 | 02 FILLER REDEFINES ERRMSGF. |
| 118 | 03 ERRMSGA PICTURE X. |
| 119 | 02 FILLER PICTURE X(4). |
| 120 | 02 ERRMSGI PIC X(78). |
| 121 | 01 CORPT0AO REDEFINES CORPT0AI. |
| 122 | 02 FILLER PIC X(12). |
| 123 | 02 FILLER PICTURE X(3). |
| 124 | 02 TRNNAMEC PICTURE X. |
| 125 | 02 TRNNAMEP PICTURE X. |
| 126 | 02 TRNNAMEH PICTURE X. |
| 127 | 02 TRNNAMEV PICTURE X. |
| 128 | 02 TRNNAMEO PIC X(4). |
| 129 | 02 FILLER PICTURE X(3). |
| 130 | 02 TITLE01C PICTURE X. |
| 131 | 02 TITLE01P PICTURE X. |
| 132 | 02 TITLE01H PICTURE X. |
| 133 | 02 TITLE01V PICTURE X. |
| 134 | 02 TITLE01O PIC X(40). |
| 135 | 02 FILLER PICTURE X(3). |
| 136 | 02 CURDATEC PICTURE X. |
| 137 | 02 CURDATEP PICTURE X. |
| 138 | 02 CURDATEH PICTURE X. |
| 139 | 02 CURDATEV PICTURE X. |
| 140 | 02 CURDATEO PIC X(8). |
| 141 | 02 FILLER PICTURE X(3). |
| 142 | 02 PGMNAMEC PICTURE X. |
| 143 | 02 PGMNAMEP PICTURE X. |
| 144 | 02 PGMNAMEH PICTURE X. |
| 145 | 02 PGMNAMEV PICTURE X. |
| 146 | 02 PGMNAMEO PIC X(8). |
| 147 | 02 FILLER PICTURE X(3). |
| 148 | 02 TITLE02C PICTURE X. |
| 149 | 02 TITLE02P PICTURE X. |
| 150 | 02 TITLE02H PICTURE X. |
| 151 | 02 TITLE02V PICTURE X. |
| 152 | 02 TITLE02O PIC X(40). |
| 153 | 02 FILLER PICTURE X(3). |
| 154 | 02 CURTIMEC PICTURE X. |
| 155 | 02 CURTIMEP PICTURE X. |
| 156 | 02 CURTIMEH PICTURE X. |
| 157 | 02 CURTIMEV PICTURE X. |
| 158 | 02 CURTIMEO PIC X(8). |
| 159 | 02 FILLER PICTURE X(3). |
| 160 | 02 MONTHLYC PICTURE X. |
| 161 | 02 MONTHLYP PICTURE X. |
| 162 | 02 MONTHLYH PICTURE X. |
| 163 | 02 MONTHLYV PICTURE X. |
| 164 | 02 MONTHLYO PIC X(1). |
| 165 | 02 FILLER PICTURE X(3). |
| 166 | 02 YEARLYC PICTURE X. |
| 167 | 02 YEARLYP PICTURE X. |
| 168 | 02 YEARLYH PICTURE X. |
| 169 | 02 YEARLYV PICTURE X. |
| 170 | 02 YEARLYO PIC X(1). |
| 171 | 02 FILLER PICTURE X(3). |
| 172 | 02 CUSTOMC PICTURE X. |
| 173 | 02 CUSTOMP PICTURE X. |
| 174 | 02 CUSTOMH PICTURE X. |
| 175 | 02 CUSTOMV PICTURE X. |
| 176 | 02 CUSTOMO PIC X(1). |
| 177 | 02 FILLER PICTURE X(3). |
| 178 | 02 SDTMMC PICTURE X. |
| 179 | 02 SDTMMP PICTURE X. |
| 180 | 02 SDTMMH PICTURE X. |
| 181 | 02 SDTMMV PICTURE X. |
| 182 | 02 SDTMMO PIC X(2). |
| 183 | 02 FILLER PICTURE X(3). |
| 184 | 02 SDTDDC PICTURE X. |
| 185 | 02 SDTDDP PICTURE X. |
| 186 | 02 SDTDDH PICTURE X. |
| 187 | 02 SDTDDV PICTURE X. |
| 188 | 02 SDTDDO PIC X(2). |
| 189 | 02 FILLER PICTURE X(3). |
| 190 | 02 SDTYYYYC PICTURE X. |
| 191 | 02 SDTYYYYP PICTURE X. |
| 192 | 02 SDTYYYYH PICTURE X. |
| 193 | 02 SDTYYYYV PICTURE X. |
| 194 | 02 SDTYYYYO PIC X(4). |
| 195 | 02 FILLER PICTURE X(3). |
| 196 | 02 EDTMMC PICTURE X. |
| 197 | 02 EDTMMP PICTURE X. |
| 198 | 02 EDTMMH PICTURE X. |
| 199 | 02 EDTMMV PICTURE X. |
| 200 | 02 EDTMMO PIC X(2). |
| 201 | 02 FILLER PICTURE X(3). |
| 202 | 02 EDTDDC PICTURE X. |
| 203 | 02 EDTDDP PICTURE X. |
| 204 | 02 EDTDDH PICTURE X. |
| 205 | 02 EDTDDV PICTURE X. |
| 206 | 02 EDTDDO PIC X(2). |
| 207 | 02 FILLER PICTURE X(3). |
| 208 | 02 EDTYYYYC PICTURE X. |
| 209 | 02 EDTYYYYP PICTURE X. |
| 210 | 02 EDTYYYYH PICTURE X. |
| 211 | 02 EDTYYYYV PICTURE X. |
| 212 | 02 EDTYYYYO PIC X(4). |
| 213 | 02 FILLER PICTURE X(3). |
| 214 | 02 CONFIRMC PICTURE X. |
| 215 | 02 CONFIRMP PICTURE X. |
| 216 | 02 CONFIRMH PICTURE X. |
| 217 | 02 CONFIRMV PICTURE X. |
| 218 | 02 CONFIRMO PIC X(1). |
| 219 | 02 FILLER PICTURE X(3). |
| 220 | 02 ERRMSGC PICTURE X. |
| 221 | 02 ERRMSGP PICTURE X. |
| 222 | 02 ERRMSGH PICTURE X. |
| 223 | 02 ERRMSGV PICTURE X. |
| 224 | 02 ERRMSGO PIC X(78). |