| 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 CCRDUPAI. |
| 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 ACCTSIDL COMP PIC S9(4). |
| 56 | 02 ACCTSIDF PICTURE X. |
| 57 | 02 FILLER REDEFINES ACCTSIDF. |
| 58 | 03 ACCTSIDA PICTURE X. |
| 59 | 02 FILLER PICTURE X(4). |
| 60 | 02 ACCTSIDI PIC X(11). |
| 61 | 02 CARDSIDL COMP PIC S9(4). |
| 62 | 02 CARDSIDF PICTURE X. |
| 63 | 02 FILLER REDEFINES CARDSIDF. |
| 64 | 03 CARDSIDA PICTURE X. |
| 65 | 02 FILLER PICTURE X(4). |
| 66 | 02 CARDSIDI PIC X(16). |
| 67 | 02 CRDNAMEL COMP PIC S9(4). |
| 68 | 02 CRDNAMEF PICTURE X. |
| 69 | 02 FILLER REDEFINES CRDNAMEF. |
| 70 | 03 CRDNAMEA PICTURE X. |
| 71 | 02 FILLER PICTURE X(4). |
| 72 | 02 CRDNAMEI PIC X(50). |
| 73 | 02 CRDSTCDL COMP PIC S9(4). |
| 74 | 02 CRDSTCDF PICTURE X. |
| 75 | 02 FILLER REDEFINES CRDSTCDF. |
| 76 | 03 CRDSTCDA PICTURE X. |
| 77 | 02 FILLER PICTURE X(4). |
| 78 | 02 CRDSTCDI PIC X(1). |
| 79 | 02 EXPMONL COMP PIC S9(4). |
| 80 | 02 EXPMONF PICTURE X. |
| 81 | 02 FILLER REDEFINES EXPMONF. |
| 82 | 03 EXPMONA PICTURE X. |
| 83 | 02 FILLER PICTURE X(4). |
| 84 | 02 EXPMONI PIC X(2). |
| 85 | 02 EXPYEARL COMP PIC S9(4). |
| 86 | 02 EXPYEARF PICTURE X. |
| 87 | 02 FILLER REDEFINES EXPYEARF. |
| 88 | 03 EXPYEARA PICTURE X. |
| 89 | 02 FILLER PICTURE X(4). |
| 90 | 02 EXPYEARI PIC X(4). |
| 91 | 02 EXPDAYL COMP PIC S9(4). |
| 92 | 02 EXPDAYF PICTURE X. |
| 93 | 02 FILLER REDEFINES EXPDAYF. |
| 94 | 03 EXPDAYA PICTURE X. |
| 95 | 02 FILLER PICTURE X(4). |
| 96 | 02 EXPDAYI PIC X(2). |
| 97 | 02 INFOMSGL COMP PIC S9(4). |
| 98 | 02 INFOMSGF PICTURE X. |
| 99 | 02 FILLER REDEFINES INFOMSGF. |
| 100 | 03 INFOMSGA PICTURE X. |
| 101 | 02 FILLER PICTURE X(4). |
| 102 | 02 INFOMSGI PIC X(40). |
| 103 | 02 ERRMSGL COMP PIC S9(4). |
| 104 | 02 ERRMSGF PICTURE X. |
| 105 | 02 FILLER REDEFINES ERRMSGF. |
| 106 | 03 ERRMSGA PICTURE X. |
| 107 | 02 FILLER PICTURE X(4). |
| 108 | 02 ERRMSGI PIC X(80). |
| 109 | 02 FKEYSL COMP PIC S9(4). |
| 110 | 02 FKEYSF PICTURE X. |
| 111 | 02 FILLER REDEFINES FKEYSF. |
| 112 | 03 FKEYSA PICTURE X. |
| 113 | 02 FILLER PICTURE X(4). |
| 114 | 02 FKEYSI PIC X(21). |
| 115 | 02 FKEYSCL COMP PIC S9(4). |
| 116 | 02 FKEYSCF PICTURE X. |
| 117 | 02 FILLER REDEFINES FKEYSCF. |
| 118 | 03 FKEYSCA PICTURE X. |
| 119 | 02 FILLER PICTURE X(4). |
| 120 | 02 FKEYSCI PIC X(18). |
| 121 | 01 CCRDUPAO REDEFINES CCRDUPAI. |
| 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 ACCTSIDC PICTURE X. |
| 161 | 02 ACCTSIDP PICTURE X. |
| 162 | 02 ACCTSIDH PICTURE X. |
| 163 | 02 ACCTSIDV PICTURE X. |
| 164 | 02 ACCTSIDO PIC X(11). |
| 165 | 02 FILLER PICTURE X(3). |
| 166 | 02 CARDSIDC PICTURE X. |
| 167 | 02 CARDSIDP PICTURE X. |
| 168 | 02 CARDSIDH PICTURE X. |
| 169 | 02 CARDSIDV PICTURE X. |
| 170 | 02 CARDSIDO PIC X(16). |
| 171 | 02 FILLER PICTURE X(3). |
| 172 | 02 CRDNAMEC PICTURE X. |
| 173 | 02 CRDNAMEP PICTURE X. |
| 174 | 02 CRDNAMEH PICTURE X. |
| 175 | 02 CRDNAMEV PICTURE X. |
| 176 | 02 CRDNAMEO PIC X(50). |
| 177 | 02 FILLER PICTURE X(3). |
| 178 | 02 CRDSTCDC PICTURE X. |
| 179 | 02 CRDSTCDP PICTURE X. |
| 180 | 02 CRDSTCDH PICTURE X. |
| 181 | 02 CRDSTCDV PICTURE X. |
| 182 | 02 CRDSTCDO PIC X(1). |
| 183 | 02 FILLER PICTURE X(3). |
| 184 | 02 EXPMONC PICTURE X. |
| 185 | 02 EXPMONP PICTURE X. |
| 186 | 02 EXPMONH PICTURE X. |
| 187 | 02 EXPMONV PICTURE X. |
| 188 | 02 EXPMONO PIC X(2). |
| 189 | 02 FILLER PICTURE X(3). |
| 190 | 02 EXPYEARC PICTURE X. |
| 191 | 02 EXPYEARP PICTURE X. |
| 192 | 02 EXPYEARH PICTURE X. |
| 193 | 02 EXPYEARV PICTURE X. |
| 194 | 02 EXPYEARO PIC X(4). |
| 195 | 02 FILLER PICTURE X(3). |
| 196 | 02 EXPDAYC PICTURE X. |
| 197 | 02 EXPDAYP PICTURE X. |
| 198 | 02 EXPDAYH PICTURE X. |
| 199 | 02 EXPDAYV PICTURE X. |
| 200 | 02 EXPDAYO PIC X(2). |
| 201 | 02 FILLER PICTURE X(3). |
| 202 | 02 INFOMSGC PICTURE X. |
| 203 | 02 INFOMSGP PICTURE X. |
| 204 | 02 INFOMSGH PICTURE X. |
| 205 | 02 INFOMSGV PICTURE X. |
| 206 | 02 INFOMSGO PIC X(40). |
| 207 | 02 FILLER PICTURE X(3). |
| 208 | 02 ERRMSGC PICTURE X. |
| 209 | 02 ERRMSGP PICTURE X. |
| 210 | 02 ERRMSGH PICTURE X. |
| 211 | 02 ERRMSGV PICTURE X. |
| 212 | 02 ERRMSGO PIC X(80). |
| 213 | 02 FILLER PICTURE X(3). |
| 214 | 02 FKEYSC PICTURE X. |
| 215 | 02 FKEYSP PICTURE X. |
| 216 | 02 FKEYSH PICTURE X. |
| 217 | 02 FKEYSV PICTURE X. |
| 218 | 02 FKEYSO PIC X(21). |
| 219 | 02 FILLER PICTURE X(3). |
| 220 | 02 FKEYSCC PICTURE X. |
| 221 | 02 FKEYSCP PICTURE X. |
| 222 | 02 FKEYSCH PICTURE X. |
| 223 | 02 FKEYSCV PICTURE X. |
| 224 | 02 FKEYSCO PIC X(18). |