*********************************************************************** * 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 *