***********************************************************************
*    CardDemo - Account Update Screen
***********************************************************************
* Copyright Amazon.com, Inc. or its affiliates.                   
* All Rights Reserved.                                            
*                                                                 
* Licensed under the Apache License, Version 2.0 (the "License"). 
* You may not use this file except in compliance with the License.
* You may obtain a copy of the License at                         
*                                                                 
*    http://www.apache.org/licenses/LICENSE-2.0                   
*                                                                 
* Unless required by applicable law or agreed to in writing,      
* software distributed under the License is distributed on an     
* "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND,    
* either express or implied. See the License for the specific     
* language governing permissions and limitations under the License
******************************************************************
        TITLE 'BMS MAP FOR ACCOUNT UPDATE'
COACTUP DFHMSD LANG=COBOL,                                             -
               MODE=INOUT,                                             -
               STORAGE=AUTO,                                           -
               TIOAPFX=YES,                                            -
               TYPE=&&SYSPARM
CACTUPA DFHMDI CTRL=(FREEKB),                                          -
               DSATTS=(COLOR,HILIGHT,PS,VALIDN),                       -
               MAPATTS=(COLOR,HILIGHT,PS,VALIDN),                      -
               SIZE=(24,80)
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               COLOR=BLUE,                                             -
               LENGTH=5,                                               -
               POS=(1,1),                                              -
               INITIAL='Tran:'
TRNNAME DFHMDF ATTRB=(ASKIP,FSET,NORM),                                -
               COLOR=BLUE,                                             -
               LENGTH=4,                                               -
               POS=(1,7)
TITLE01 DFHMDF ATTRB=(ASKIP,NORM),                                     -
               COLOR=YELLOW,                                           -
               LENGTH=40,                                              -
               POS=(1,21)
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               COLOR=BLUE,                                             -
               LENGTH=5,                                               -
               POS=(1,65),                                             -
               INITIAL='Date:'
CURDATE DFHMDF ATTRB=(ASKIP,NORM),                                     -
               COLOR=BLUE,                                             -
               LENGTH=8,                                               -
               POS=(1,71),                                             -
               INITIAL='mm/dd/yy'
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               COLOR=BLUE,                                             -
               LENGTH=5,                                               -
               POS=(2,1),                                              -
               INITIAL='Prog:'
PGMNAME DFHMDF ATTRB=(ASKIP,NORM),                                     -
               COLOR=BLUE,                                             -
               LENGTH=8,                                               -
               POS=(2,7)
TITLE02 DFHMDF ATTRB=(ASKIP,NORM),                                     -
               COLOR=YELLOW,                                           -
               LENGTH=40,                                              -
               POS=(2,21)
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               COLOR=BLUE,                                             -
               LENGTH=5,                                               -
               POS=(2,65),                                             -
               INITIAL='Time:'
CURTIME DFHMDF ATTRB=(ASKIP,NORM),                                     -
               COLOR=BLUE,                                             -
               LENGTH=8,                                               -
               POS=(2,71),                                             -
               INITIAL='hh:mm:ss'
        DFHMDF COLOR=NEUTRAL,                                          -
               LENGTH=14,                                              -
               POS=(4,33),                                             -
               INITIAL='Update Account'
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               COLOR=TURQUOISE,                                        -
               LENGTH=16,                                              -
               POS=(5,19),                                             -
               INITIAL='Account Number :'
ACCTSID DFHMDF ATTRB=(IC,UNPROT),                                      -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=11,                                              -
               POS=(5,38)
        DFHMDF LENGTH=0,                                               -
               POS=(5,50)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=12,                                              -
               POS=(5,57),                                             -
               INITIAL='Active Y/N: '
ACSTTUS DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=1,                                               -
               POS=(5,70)
        DFHMDF LENGTH=0,                                               -
               POS=(5,72)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=8,                                               -
               POS=(6,8),                                              -
               INITIAL='Opened :'
OPNYEAR DFHMDF ATTRB=(FSET,UNPROT),                                    -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=4,                                               -
               POS=(6,17)
        DFHMDF LENGTH=1,                                               -
               POS=(6,22),                                             -
               INITIAL='-'
OPNMON  DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=2,                                               -
               POS=(6,24)
        DFHMDF LENGTH=1,                                               -
               POS=(6,27),                                             -
               INITIAL='-'
OPNDAY  DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=2,                                               -
               POS=(6,29)
        DFHMDF LENGTH=0,                                               -
               POS=(6,32)
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               COLOR=TURQUOISE,                                        -
               LENGTH=21,                                              -
               POS=(6,39),                                             -
               INITIAL='Credit Limit        :'
ACRDLIM DFHMDF ATTRB=(FSET,UNPROT),                                    -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=15,                                              -
               POS=(6,61)
        DFHMDF LENGTH=0,                                               -
               POS=(6,77)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=8,                                               -
               POS=(7,8),                                              -
               INITIAL='Expiry :'
EXPYEAR DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=4,                                               -
               POS=(7,17)
        DFHMDF LENGTH=1,                                               -
               POS=(7,22),                                             -
               INITIAL='-'
EXPMON  DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=2,                                               -
               POS=(7,24)
        DFHMDF LENGTH=1,                                               -
               POS=(7,27),                                             -
               INITIAL='-'
EXPDAY  DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=2,                                               -
               POS=(7,29)
        DFHMDF LENGTH=0,                                               -
               POS=(7,32)
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               COLOR=TURQUOISE,                                        -
               LENGTH=21,                                              -
               POS=(7,39),                                             -
               INITIAL='Cash credit Limit   :'
ACSHLIM DFHMDF ATTRB=(FSET,UNPROT),                                    -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=15,                                              -
               POS=(7,61)
        DFHMDF LENGTH=0,                                               -
               POS=(7,77)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=8,                                               -
               POS=(8,8),                                              -
               INITIAL='Reissue:'
RISYEAR DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=4,                                               -
               POS=(8,17)
        DFHMDF LENGTH=1,                                               -
               POS=(8,22),                                             -
               INITIAL='-'
RISMON  DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=2,                                               -
               POS=(8,24)
        DFHMDF LENGTH=1,                                               -
               POS=(8,27),                                             -
               INITIAL='-'
RISDAY  DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=2,                                               -
               POS=(8,29)
        DFHMDF LENGTH=0,                                               -
               POS=(8,32)
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               COLOR=TURQUOISE,                                        -
               LENGTH=21,                                              -
               POS=(8,39),                                             -
               INITIAL='Current Balance     :'
ACURBAL DFHMDF ATTRB=(FSET,UNPROT),                                    -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=15,                                              -
               POS=(8,61)
        DFHMDF LENGTH=0,                                               -
               POS=(8,77)
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               COLOR=TURQUOISE,                                        -
               LENGTH=21,                                              -
               POS=(9,39),                                             -
               INITIAL='Current Cycle Credit:'
ACRCYCR DFHMDF ATTRB=(FSET,UNPROT),                                    -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=15,                                              -
               POS=(9,61)
        DFHMDF LENGTH=0,                                               -
               POS=(9,77)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=14,                                              -
               POS=(10,8),                                             -
               INITIAL='Account Group:'
AADDGRP DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=10,                                              -
               POS=(10,23)
        DFHMDF LENGTH=0,                                               -
               POS=(10,34)
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               COLOR=TURQUOISE,                                        -
               LENGTH=21,                                              -
               POS=(10,39),                                            -
               INITIAL='Current Cycle Debit :'
ACRCYDB DFHMDF ATTRB=(FSET,UNPROT),                                    -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=15,                                              -
               POS=(10,61)
        DFHMDF LENGTH=0,                                               -
               POS=(10,77)
        DFHMDF COLOR=NEUTRAL,                                          -
               LENGTH=16,                                              -
               POS=(11,32),                                            -
               INITIAL='Customer Details'
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=14,                                              -
               POS=(12,8),                                             -
               INITIAL='Customer id  :'
ACSTNUM DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=9,                                               -
               POS=(12,23)
        DFHMDF LENGTH=0,                                               -
               POS=(12,33)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=4,                                               -
               POS=(12,49),                                            -
               INITIAL='SSN:'
ACTSSN1 DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=3,                                               -
               POS=(12,55),                                            -
               INITIAL='999'
        DFHMDF LENGTH=1,                                               -
               POS=(12,59),                                            -
               INITIAL='-'
ACTSSN2 DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=2,                                               -
               POS=(12,61),                                            -
               INITIAL='99'
        DFHMDF LENGTH=1,                                               -
               POS=(12,64),                                            -
               INITIAL='-'
ACTSSN3 DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=4,                                               -
               POS=(12,66),                                            -
               INITIAL='9999'
        DFHMDF LENGTH=0,                                               -
               POS=(12,71)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=14,                                              -
               POS=(13,8),                                             -
               INITIAL='Date of birth:'
DOBYEAR DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=4,                                               -
               POS=(13,23)
        DFHMDF LENGTH=1,                                               -
               POS=(13,28),                                            -
               INITIAL='-'
DOBMON  DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=2,                                               -
               POS=(13,30)
        DFHMDF LENGTH=1,                                               -
               POS=(13,33),                                            -
               INITIAL='-'
DOBDAY  DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=2,                                               -
               POS=(13,35)
        DFHMDF LENGTH=0,                                               -
               POS=(13,38)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=11,                                              -
               POS=(13,49),                                            -
               INITIAL='FICO Score:'
ACSTFCO DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=3,                                               -
               POS=(13,62)
        DFHMDF LENGTH=0,                                               -
               POS=(13,66)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=10,                                              -
               POS=(14,1),                                             -
               INITIAL='First Name'
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=13,                                              -
               POS=(14,28),                                            -
               INITIAL='Middle Name: '
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=12,                                              -
               POS=(14,55),                                            -
               INITIAL='Last Name : '
ACSFNAM DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=25,                                              -
               POS=(15,1)
        DFHMDF LENGTH=0,                                               -
               POS=(15,27)
ACSMNAM DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=25,                                              -
               POS=(15,28)
        DFHMDF LENGTH=0,                                               -
               POS=(15,54)
ACSLNAM DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=25,                                              -
               POS=(15,55)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=8,                                               -
               POS=(16,1),                                             -
               INITIAL='Address:'
ACSADL1 DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=50,                                              -
               POS=(16,10)
        DFHMDF LENGTH=0,                                               -
               POS=(16,61)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=6,                                               -
               POS=(16,63),                                            -
               INITIAL='State '
ACSSTTE DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=2,                                               -
               POS=(16,73)
        DFHMDF LENGTH=0,                                               -
               POS=(16,76)
ACSADL2 DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=50,                                              -
               POS=(17,10)
        DFHMDF LENGTH=0,                                               -
               POS=(17,61)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=3,                                               -
               POS=(17,63),                                            -
               INITIAL='Zip'
ACSZIPC DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=5,                                               -
               POS=(17,73)
        DFHMDF LENGTH=0,                                               -
               POS=(17,79)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=5,                                               -
               POS=(18,1),                                             -
               INITIAL='City '
ACSCITY DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=50,                                              -
               POS=(18,10)
        DFHMDF LENGTH=0,                                               -
               POS=(18,61)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=7,                                               -
               POS=(18,63),                                            -
               INITIAL='Country'
ACSCTRY DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=3,                                               -
               POS=(18,73)
        DFHMDF LENGTH=0,                                               -
               POS=(18,77)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=8,                                               -
               POS=(19,1),                                             -
               INITIAL='Phone 1:'
ACSPH1A DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=3,                                               -
               POS=(19,10)
ACSPH1B DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=3,                                               -
               POS=(19,14)
ACSPH1C DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=4,                                               -
               POS=(19,18)
        DFHMDF LENGTH=0,                                               -
               POS=(19,23)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=30,                                              -
               POS=(19,24),                                            -
               INITIAL='Government Issued Id Ref    : '
ACSGOVT DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=20,                                              -
               POS=(19,58)
        DFHMDF LENGTH=0,                                               -
               POS=(19,79)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=8,                                               -
               POS=(20,1),                                             -
               INITIAL='Phone 2:'
ACSPH2A DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=3,                                               -
               POS=(20,10)
ACSPH2B DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=3,                                               -
               POS=(20,14)
ACSPH2C DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               JUSTIFY=(RIGHT),                                        -
               LENGTH=4,                                               -
               POS=(20,18)
        DFHMDF LENGTH=0,                                               -
               POS=(20,23)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=16,                                              -
               POS=(20,24),                                            -
               INITIAL='EFT Account Id: '
ACSEFTC DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=10,                                              -
               POS=(20,41)
        DFHMDF LENGTH=0,                                               -
               POS=(20,52)
        DFHMDF COLOR=TURQUOISE,                                        -
               LENGTH=24,                                              -
               POS=(20,53),                                            -
               INITIAL='Primary Card Holder Y/N:'
ACSPFLG DFHMDF ATTRB=(UNPROT),                                         -
               HILIGHT=UNDERLINE,                                      -
               LENGTH=1,                                               -
               POS=(20,78)
        DFHMDF LENGTH=0,                                               -
               POS=(20,80)
INFOMSG DFHMDF ATTRB=(ASKIP),                                          -
               COLOR=NEUTRAL,                                          -
               HILIGHT=OFF,                                            -
               LENGTH=45,                                              -
               POS=(22,23)
        DFHMDF LENGTH=0,                                               -
               POS=(22,69)
        DFHMDF LENGTH=9,                                               -
               POS=(1,1)
ERRMSG  DFHMDF ATTRB=(ASKIP,BRT,FSET),                                 -
               COLOR=RED,                                              -
               LENGTH=78,                                              -
               POS=(23,1)
FKEYS   DFHMDF ATTRB=(ASKIP,NORM),                                     -
               COLOR=YELLOW,                                           -
               LENGTH=21,                                              -
               POS=(24,1),                                             -
               INITIAL='ENTER=Process F3=Exit'
FKEY05  DFHMDF ATTRB=(ASKIP,DRK),                                      -
               COLOR=YELLOW,                                           -
               LENGTH=7,                                               -
               POS=(24,23),                                            -
               INITIAL='F5=Save'
FKEY12  DFHMDF ATTRB=(ASKIP,DRK),                                      -
               COLOR=YELLOW,                                           -
               LENGTH=10,                                              -
               POS=(24,31),                                            -
               INITIAL='F12=Cancel'
        DFHMSD TYPE=FINAL
        END
*
* Ver: CardDemo_v1.0-70-g193b394-123 Date: 2022-08-22 17:02:42 CDT
*
