| 1 | ****************************************************************** |
| 2 | * CardDemo - Card Update Screen |
| 3 | *********************************************************************** |
| 4 | * Copyright Amazon.com, Inc. or its affiliates. |
| 5 | * All Rights Reserved. |
| 6 | * |
| 7 | * Licensed under the Apache License, Version 2.0 (the "License"). |
| 8 | * You may not use this file except in compliance with the License. |
| 9 | * You may obtain a copy of the License at |
| 10 | * |
| 11 | * http://www.apache.org/licenses/LICENSE-2.0 |
| 12 | * |
| 13 | * Unless required by applicable law or agreed to in writing, |
| 14 | * software distributed under the License is distributed on an |
| 15 | * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, |
| 16 | * either express or implied. See the License for the specific |
| 17 | * language governing permissions and limitations under the License |
| 18 | ****************************************************************** |
| 19 | TITLE 'BMS MAP FOR UPDATE CARDS ' |
| 20 | COCRDUP DFHMSD LANG=COBOL, - |
| 21 | MODE=INOUT, - |
| 22 | STORAGE=AUTO, - |
| 23 | TIOAPFX=YES, - |
| 24 | TYPE=&&SYSPARM |
| 25 | CCRDUPA DFHMDI CTRL=(FREEKB), - |
| 26 | DSATTS=(COLOR,HILIGHT,PS,VALIDN), - |
| 27 | MAPATTS=(COLOR,HILIGHT,PS,VALIDN), - |
| 28 | SIZE=(24,80) |
| 29 | DFHMDF ATTRB=(ASKIP,NORM), - |
| 30 | COLOR=BLUE, - |
| 31 | LENGTH=5, - |
| 32 | POS=(1,1), - |
| 33 | INITIAL='Tran:' |
| 34 | TRNNAME DFHMDF ATTRB=(ASKIP,FSET,NORM), - |
| 35 | COLOR=BLUE, - |
| 36 | LENGTH=4, - |
| 37 | POS=(1,7) |
| 38 | TITLE01 DFHMDF ATTRB=(ASKIP,NORM), - |
| 39 | COLOR=YELLOW, - |
| 40 | LENGTH=40, - |
| 41 | POS=(1,21) |
| 42 | DFHMDF ATTRB=(ASKIP,NORM), - |
| 43 | COLOR=BLUE, - |
| 44 | LENGTH=5, - |
| 45 | POS=(1,65), - |
| 46 | INITIAL='Date:' |
| 47 | CURDATE DFHMDF ATTRB=(ASKIP,NORM), - |
| 48 | COLOR=BLUE, - |
| 49 | LENGTH=8, - |
| 50 | POS=(1,71), - |
| 51 | INITIAL='mm/dd/yy' |
| 52 | DFHMDF ATTRB=(ASKIP,NORM), - |
| 53 | COLOR=BLUE, - |
| 54 | LENGTH=5, - |
| 55 | POS=(2,1), - |
| 56 | INITIAL='Prog:' |
| 57 | PGMNAME DFHMDF ATTRB=(ASKIP,NORM), - |
| 58 | COLOR=BLUE, - |
| 59 | LENGTH=8, - |
| 60 | POS=(2,7) |
| 61 | TITLE02 DFHMDF ATTRB=(ASKIP,NORM), - |
| 62 | COLOR=YELLOW, - |
| 63 | LENGTH=40, - |
| 64 | POS=(2,21) |
| 65 | DFHMDF ATTRB=(ASKIP,NORM), - |
| 66 | COLOR=BLUE, - |
| 67 | LENGTH=5, - |
| 68 | POS=(2,65), - |
| 69 | INITIAL='Time:' |
| 70 | CURTIME DFHMDF ATTRB=(ASKIP,NORM), - |
| 71 | COLOR=BLUE, - |
| 72 | LENGTH=8, - |
| 73 | POS=(2,71), - |
| 74 | INITIAL='hh:mm:ss' |
| 75 | DFHMDF COLOR=NEUTRAL, - |
| 76 | LENGTH=26, - |
| 77 | POS=(4,30), - |
| 78 | INITIAL='Update Credit Card Details' |
| 79 | DFHMDF ATTRB=(ASKIP,NORM), - |
| 80 | COLOR=TURQUOISE, - |
| 81 | LENGTH=19, - |
| 82 | POS=(7,23), - |
| 83 | INITIAL='Account Number :' |
| 84 | ACCTSID DFHMDF ATTRB=(FSET,IC,NORM,PROT), - |
| 85 | COLOR=DEFAULT, - |
| 86 | HILIGHT=UNDERLINE, - |
| 87 | LENGTH=11, - |
| 88 | POS=(7,45) |
| 89 | DFHMDF LENGTH=0, - |
| 90 | POS=(7,57) |
| 91 | DFHMDF ATTRB=(ASKIP,NORM), - |
| 92 | COLOR=TURQUOISE, - |
| 93 | LENGTH=19, - |
| 94 | POS=(8,23), - |
| 95 | INITIAL='Card Number :' |
| 96 | CARDSID DFHMDF ATTRB=(FSET,NORM,UNPROT), - |
| 97 | COLOR=DEFAULT, - |
| 98 | HILIGHT=UNDERLINE, - |
| 99 | LENGTH=16, - |
| 100 | POS=(8,45) |
| 101 | DFHMDF LENGTH=0, - |
| 102 | POS=(8,62) |
| 103 | DFHMDF COLOR=TURQUOISE, - |
| 104 | LENGTH=20, - |
| 105 | POS=(11,4), - |
| 106 | INITIAL='Name on card :' |
| 107 | CRDNAME DFHMDF ATTRB=(UNPROT), - |
| 108 | HILIGHT=UNDERLINE, - |
| 109 | LENGTH=50, - |
| 110 | POS=(11,25) |
| 111 | DFHMDF LENGTH=0, - |
| 112 | POS=(11,76) |
| 113 | DFHMDF COLOR=TURQUOISE, - |
| 114 | LENGTH=20, - |
| 115 | POS=(13,4), - |
| 116 | INITIAL='Card Active Y/N : ' |
| 117 | CRDSTCD DFHMDF ATTRB=(UNPROT), - |
| 118 | HILIGHT=UNDERLINE, - |
| 119 | LENGTH=1, - |
| 120 | POS=(13,25) |
| 121 | DFHMDF LENGTH=0, - |
| 122 | POS=(13,27) |
| 123 | DFHMDF COLOR=TURQUOISE, - |
| 124 | LENGTH=20, - |
| 125 | POS=(15,4), - |
| 126 | INITIAL='Expiry Date : ' |
| 127 | EXPMON DFHMDF ATTRB=(UNPROT), - |
| 128 | HILIGHT=UNDERLINE, - |
| 129 | JUSTIFY=(RIGHT), - |
| 130 | LENGTH=2, - |
| 131 | POS=(15,25) |
| 132 | DFHMDF LENGTH=1, - |
| 133 | POS=(15,28), - |
| 134 | INITIAL='/' |
| 135 | EXPYEAR DFHMDF ATTRB=(UNPROT), - |
| 136 | HILIGHT=UNDERLINE, - |
| 137 | JUSTIFY=(RIGHT), - |
| 138 | LENGTH=4, - |
| 139 | POS=(15,30) |
| 140 | DFHMDF LENGTH=0, - |
| 141 | POS=(15,35) |
| 142 | EXPDAY DFHMDF ATTRB=(DRK,FSET,PROT), - |
| 143 | HILIGHT=OFF, - |
| 144 | JUSTIFY=(RIGHT), - |
| 145 | LENGTH=2, - |
| 146 | POS=(15,36) |
| 147 | DFHMDF LENGTH=0, - |
| 148 | POS=(15,39) |
| 149 | INFOMSG DFHMDF ATTRB=(PROT), - |
| 150 | COLOR=NEUTRAL, - |
| 151 | HILIGHT=OFF, - |
| 152 | LENGTH=40, - |
| 153 | POS=(20,25) |
| 154 | ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), - |
| 155 | COLOR=RED, - |
| 156 | LENGTH=80, - |
| 157 | POS=(23,1) |
| 158 | FKEYS DFHMDF ATTRB=(ASKIP,NORM), - |
| 159 | COLOR=YELLOW, - |
| 160 | LENGTH=21, - |
| 161 | POS=(24,1), - |
| 162 | INITIAL='ENTER=Process F3=Exit' |
| 163 | FKEYSC DFHMDF ATTRB=(ASKIP,DRK), - |
| 164 | COLOR=YELLOW, - |
| 165 | LENGTH=18, - |
| 166 | POS=(24,23), - |
| 167 | INITIAL='F5=Save F12=Cancel' |
| 168 | DFHMSD TYPE=FINAL |
| 169 | END |
| 170 | * |
| 171 | * Ver: CardDemo_v1.0-70-g193b394-123 Date: 2022-08-22 17:02:43 CDT |
| 172 | * |