| 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 COSGN0AI. |
| 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(9). |
| 55 | 02 APPLIDL COMP PIC S9(4). |
| 56 | 02 APPLIDF PICTURE X. |
| 57 | 02 FILLER REDEFINES APPLIDF. |
| 58 | 03 APPLIDA PICTURE X. |
| 59 | 02 FILLER PICTURE X(4). |
| 60 | 02 APPLIDI PIC X(8). |
| 61 | 02 SYSIDL COMP PIC S9(4). |
| 62 | 02 SYSIDF PICTURE X. |
| 63 | 02 FILLER REDEFINES SYSIDF. |
| 64 | 03 SYSIDA PICTURE X. |
| 65 | 02 FILLER PICTURE X(4). |
| 66 | 02 SYSIDI PIC X(8). |
| 67 | 02 USERIDL COMP PIC S9(4). |
| 68 | 02 USERIDF PICTURE X. |
| 69 | 02 FILLER REDEFINES USERIDF. |
| 70 | 03 USERIDA PICTURE X. |
| 71 | 02 FILLER PICTURE X(4). |
| 72 | 02 USERIDI PIC X(8). |
| 73 | 02 PASSWDL COMP PIC S9(4). |
| 74 | 02 PASSWDF PICTURE X. |
| 75 | 02 FILLER REDEFINES PASSWDF. |
| 76 | 03 PASSWDA PICTURE X. |
| 77 | 02 FILLER PICTURE X(4). |
| 78 | 02 PASSWDI PIC X(8). |
| 79 | 02 ERRMSGL COMP PIC S9(4). |
| 80 | 02 ERRMSGF PICTURE X. |
| 81 | 02 FILLER REDEFINES ERRMSGF. |
| 82 | 03 ERRMSGA PICTURE X. |
| 83 | 02 FILLER PICTURE X(4). |
| 84 | 02 ERRMSGI PIC X(78). |
| 85 | 01 COSGN0AO REDEFINES COSGN0AI. |
| 86 | 02 FILLER PIC X(12). |
| 87 | 02 FILLER PICTURE X(3). |
| 88 | 02 TRNNAMEC PICTURE X. |
| 89 | 02 TRNNAMEP PICTURE X. |
| 90 | 02 TRNNAMEH PICTURE X. |
| 91 | 02 TRNNAMEV PICTURE X. |
| 92 | 02 TRNNAMEO PIC X(4). |
| 93 | 02 FILLER PICTURE X(3). |
| 94 | 02 TITLE01C PICTURE X. |
| 95 | 02 TITLE01P PICTURE X. |
| 96 | 02 TITLE01H PICTURE X. |
| 97 | 02 TITLE01V PICTURE X. |
| 98 | 02 TITLE01O PIC X(40). |
| 99 | 02 FILLER PICTURE X(3). |
| 100 | 02 CURDATEC PICTURE X. |
| 101 | 02 CURDATEP PICTURE X. |
| 102 | 02 CURDATEH PICTURE X. |
| 103 | 02 CURDATEV PICTURE X. |
| 104 | 02 CURDATEO PIC X(8). |
| 105 | 02 FILLER PICTURE X(3). |
| 106 | 02 PGMNAMEC PICTURE X. |
| 107 | 02 PGMNAMEP PICTURE X. |
| 108 | 02 PGMNAMEH PICTURE X. |
| 109 | 02 PGMNAMEV PICTURE X. |
| 110 | 02 PGMNAMEO PIC X(8). |
| 111 | 02 FILLER PICTURE X(3). |
| 112 | 02 TITLE02C PICTURE X. |
| 113 | 02 TITLE02P PICTURE X. |
| 114 | 02 TITLE02H PICTURE X. |
| 115 | 02 TITLE02V PICTURE X. |
| 116 | 02 TITLE02O PIC X(40). |
| 117 | 02 FILLER PICTURE X(3). |
| 118 | 02 CURTIMEC PICTURE X. |
| 119 | 02 CURTIMEP PICTURE X. |
| 120 | 02 CURTIMEH PICTURE X. |
| 121 | 02 CURTIMEV PICTURE X. |
| 122 | 02 CURTIMEO PIC X(9). |
| 123 | 02 FILLER PICTURE X(3). |
| 124 | 02 APPLIDC PICTURE X. |
| 125 | 02 APPLIDP PICTURE X. |
| 126 | 02 APPLIDH PICTURE X. |
| 127 | 02 APPLIDV PICTURE X. |
| 128 | 02 APPLIDO PIC X(8). |
| 129 | 02 FILLER PICTURE X(3). |
| 130 | 02 SYSIDC PICTURE X. |
| 131 | 02 SYSIDP PICTURE X. |
| 132 | 02 SYSIDH PICTURE X. |
| 133 | 02 SYSIDV PICTURE X. |
| 134 | 02 SYSIDO PIC X(8). |
| 135 | 02 FILLER PICTURE X(3). |
| 136 | 02 USERIDC PICTURE X. |
| 137 | 02 USERIDP PICTURE X. |
| 138 | 02 USERIDH PICTURE X. |
| 139 | 02 USERIDV PICTURE X. |
| 140 | 02 USERIDO PIC X(8). |
| 141 | 02 FILLER PICTURE X(3). |
| 142 | 02 PASSWDC PICTURE X. |
| 143 | 02 PASSWDP PICTURE X. |
| 144 | 02 PASSWDH PICTURE X. |
| 145 | 02 PASSWDV PICTURE X. |
| 146 | 02 PASSWDO PIC X(8). |
| 147 | 02 FILLER PICTURE X(3). |
| 148 | 02 ERRMSGC PICTURE X. |
| 149 | 02 ERRMSGP PICTURE X. |
| 150 | 02 ERRMSGH PICTURE X. |
| 151 | 02 ERRMSGV PICTURE X. |
| 152 | 02 ERRMSGO PIC X(78). |