MFmainframe-rea
WS carddemo · 26f629ef

Business rules · 697 guarded actionsCOACTUPC

Each row is an action and the full chain of conditions that must hold for it to run, recovered from nested IF / EVALUATE / PERFORM UNTIL scopes. Name the rule; the evidence is already attached.

88 levels

Condition names used

CDEMO-PGM-REENTERmeans CDEMO-PGM-CONTEXT = 1COCOM01Y.cpy:31 via COACTUPC.cbl:650
CCARD-AID-ENTERmeans CCARD-AID = 'ENTER'CVCRD01Y.cpy:4 via COACTUPC.cbl:597
CCARD-AID-PFK03means CCARD-AID = 'PFK03'CVCRD01Y.cpy:10 via COACTUPC.cbl:597
CCARD-AID-PFK05means CCARD-AID = 'PFK05'CVCRD01Y.cpy:12 via COACTUPC.cbl:597
ACUP-CHANGES-OK-NOT-CONFIRMEDmeans ACUP-CHANGE-ACTION = 'N'COACTUPC.cbl:664
CCARD-AID-PFK12means CCARD-AID = 'PFK12'CVCRD01Y.cpy:19 via COACTUPC.cbl:597
ACUP-DETAILS-NOT-FETCHEDmeans ACUP-CHANGE-ACTION = LOW-VALUES OR SPACESCOACTUPC.cbl:656
PFK-INVALIDmeans WS-PFK-FLAG = '1'COACTUPC.cbl:180
CDEMO-PGM-ENTERmeans CDEMO-PGM-CONTEXT = 0COCOM01Y.cpy:30 via COACTUPC.cbl:650
ACUP-CHANGES-OKAYED-AND-DONEmeans ACUP-CHANGE-ACTION = 'C'COACTUPC.cbl:665
ACUP-CHANGES-FAILEDmeans ACUP-CHANGE-ACTION = 'L' OR 'F'COACTUPC.cbl:666
FLG-ACCTFILTER-BLANKmeans WS-EDIT-ACCT-FLAG = ' 'COACTUPC.cbl:186
NO-CHANGES-FOUNDmeans WS-DATACHANGED-FLAG = '0'COACTUPC.cbl:169
WS-EDIT-DT-OF-BIRTH-ISVALIDmeans WS-EDIT-DT-OF-BIRTH-FLGS = LOW-VALUESCOACTUPC.cbl:218
FLG-FICO-SCORE-ISVALIDmeans WS-EDIT-FICO-SCORE-FLGS = LOW-VALUESCOACTUPC.cbl:232
FLG-ALPHA-ISVALIDmeans WS-EDIT-ALPHA-ONLY-FLAGS = LOW-VALUESCOACTUPC.cbl:65
FLG-STATE-ISVALIDmeans WS-EDIT-STATE-FLGS = LOW-VALUESCOACTUPC.cbl:304
FLG-ZIPCODE-ISVALIDmeans WS-EDIT-ZIPCODE-FLGS = LOW-VALUESCOACTUPC.cbl:308
INPUT-ERRORmeans WS-INPUT-FLAG = '1'COACTUPC.cbl:173
WS-RETURN-MSG-OFFmeans WS-RETURN-MSG = SPACESCOACTUPC.cbl:480
FLG-YES-NO-ISVALIDmeans WS-EDIT-YES-NO = 'Y' OR 'N'COACTUPC.cbl:78
VALID-GENERAL-PURP-CODEmeans WS-US-PHONE-AREA-CODE-TO-EDIT = '201' OR '202' OR '203' OR '204' OR '205' OR '206' OR '207' OR '208' OR '209' OR '210' OR '212' OR '213' OR '214' OR '215' OR '216' OR '217' OR '218' OR '219' OR '220' OR '223' OR '224' OR '225' OR '226' OR '228' OR '229' OR '231' OR '234' OR '236' OR '239' OR '240' OR '242' OR '246' OR '248' OR '249' OR '250' OR '251' OR '252' OR '253' OR '254' OR '256' OR '260' OR '262' OR '264' OR '267' OR '268' OR '269' OR '270' OR '272' OR '276' OR '279' OR '281' OR '284' OR '289' OR '301' OR '302' OR '303' OR '304' OR '305' OR '306' OR '307' OR '308' OR '309' OR '310' OR '312' OR '313' OR '314' OR '315' OR '316' OR '317' OR '318' OR '319' OR '320' OR '321' OR '323' OR '325' OR '326' OR '330' OR '331' OR '332' OR '334' OR '336' OR '337' OR '339' OR '340' OR '341' OR '343' OR '345' OR '346' OR '347' OR '351' OR '352' OR '360' OR '361' OR '364' OR '365' OR '367' OR '368' OR '380' OR '385' OR '386' OR '401' OR '402' OR '403' OR '404' OR '405' OR '406' OR '407' OR '408' OR '409' OR '410' OR '412' OR '413' OR '414' OR '415' OR '416' OR '417' OR '418' OR '419' OR '423' OR '424' OR '425' OR '430' OR '431' OR '432' OR '434' OR '435' OR '437' OR '438' OR '440' OR '441' OR '442' OR '443' OR '445' OR '447' OR '448' OR '450' OR '458' OR '463' OR '464' OR '469' OR '470' OR '473' OR '474' OR '475' OR '478' OR '479' OR '480' OR '484' OR '501' OR '502' OR '503' OR '504' OR '505' OR '506' OR '507' OR '508' OR '509' OR '510' OR '512' OR '513' OR '514' OR '515' OR '516' OR '517' OR '518' OR '519' OR '520' OR '530' OR '531' OR '534' OR '539' OR '540' OR '541' OR '548' OR '551' OR '559' OR '561' OR '562' OR '563' OR '564' OR '567' OR '570' OR '571' OR '572' OR '573' OR '574' OR '575' OR '579' OR '580' OR '581' OR '582' OR '585' OR '586' OR '587' OR '601' OR '602' OR '603' OR '604' OR '605' OR '606' OR '607' OR '608' OR '609' OR '610' OR '612' OR '613' OR '614' OR '615' OR '616' OR '617' OR '618' OR '619' OR '620' OR '623' OR '626' OR '628' OR '629' OR '630' OR '631' OR '636' OR '639' OR '640' OR '641' OR '646' OR '647' OR '649' OR '650' OR '651' OR '656' OR '657' OR '658' OR '659' OR '660' OR '661' OR '662' OR '664' OR '667' OR '669' OR '670' OR '671' OR '672' OR '678' OR '680' OR '681' OR '682' OR '683' OR '684' OR '689' OR '701' OR '702' OR '703' OR '704' OR '705' OR '706' OR '707' OR '708' OR '709' OR '712' OR '713' OR '714' OR '715' OR '716' OR '717' OR '718' OR '719' OR '720' OR '721' OR '724' OR '725' OR '726' OR '727' OR '731' OR '732' OR '734' OR '737' OR '740' OR '742' OR '743' OR '747' OR '753' OR '754' OR '757' OR '758' OR '760' OR '762' OR '763' OR '765' OR '767' OR '769' OR '770' OR '771' OR '772' OR '773' OR '774' OR '775' OR '778' OR '779' OR '780' OR '781' OR '782' OR '784' OR '785' OR '786' OR '787' OR '801' OR '802' OR '803' OR '804' OR '805' OR '806' OR '807' OR '808' OR '809' OR '810' OR '812' OR '813' OR '814' OR '815' OR '816' OR '817' OR '818' OR '819' OR '820' OR '825' OR '826' OR '828' OR '829' OR '830' OR '831' OR '832' OR '838' OR '839' OR '840' OR '843' OR '845' OR '847' OR '848' OR '849' OR '850' OR '854' OR '856' OR '857' OR '858' OR '859' OR '860' OR '862' OR '863' OR '864' OR '865' OR '867' OR '868' OR '869' OR '870' OR '872' OR '873' OR '876' OR '878' OR '901' OR '902' OR '903' OR '904' OR '905' OR '906' OR '907' OR '908' OR '909' OR '910' OR '912' OR '913' OR '914' OR '915' OR '916' OR '917' OR '918' OR '919' OR '920' OR '925' OR '928' OR '929' OR '930' OR '931' OR '934' OR '936' OR '937' OR '938' OR '939' OR '940' OR '941' OR '943' OR '945' OR '947' OR '948' OR '949' OR '951' OR '952' OR '954' OR '956' OR '959' OR '970' OR '971' OR '972' OR '973' OR '978' OR '979' OR '980' OR '983' OR '984' OR '985' OR '986' OR '989'CSLKPCDY.cpy:521 via COACTUPC.cbl:602
FLG-EDIT-US-SSN-PART1-ISVALIDmeans WS-EDIT-US-SSN-PART1-FLGS = LOW-VALUESCOACTUPC.cbl:136
INVALID-SSN-PART1means WS-EDIT-US-SSN-PART1-N = 0 OR 666 OR 900 THRU 999COACTUPC.cbl:121
VALID-US-STATE-CODEmeans US-STATE-CODE-TO-EDIT = 'AL' OR 'AK' OR 'AZ' OR 'AR' OR 'CA' OR 'CO' OR 'CT' OR 'DE' OR 'FL' OR 'GA' OR 'HI' OR 'ID' OR 'IL' OR 'IN' OR 'IA' OR 'KS' OR 'KY' OR 'LA' OR 'ME' OR 'MD' OR 'MA' OR 'MI' OR 'MN' OR 'MS' OR 'MO' OR 'MT' OR 'NE' OR 'NV' OR 'NH' OR 'NJ' OR 'NM' OR 'NY' OR 'NC' OR 'ND' OR 'OH' OR 'OK' OR 'OR' OR 'PA' OR 'RI' OR 'SC' OR 'SD' OR 'TN' OR 'TX' OR 'UT' OR 'VT' OR 'VA' OR 'WA' OR 'WV' OR 'WI' OR 'WY' OR 'DC' OR 'AS' OR 'GU' OR 'MP' OR 'PR' OR 'VI'CSLKPCDY.cpy:1013 via COACTUPC.cbl:602
FICO-RANGE-IS-VALIDmeans ACUP-NEW-CUST-FICO-SCORE = 300 THRU 850COACTUPC.cbl:848
VALID-US-STATE-ZIP-CD2-COMBOmeans US-STATE-AND-FIRST-ZIP2 = 'AA34' OR 'AE90' OR 'AE91' OR 'AE92' OR 'AE93' OR 'AE94' OR 'AE95' OR 'AE96' OR 'AE97' OR 'AE98' OR 'AK99' OR 'AL35' OR 'AL36' OR 'AP96' OR 'AR71' OR 'AR72' OR 'AS96' OR 'AZ85' OR 'AZ86' OR 'CA90' OR 'CA91' OR 'CA92' OR 'CA93' OR 'CA94' OR 'CA95' OR 'CA96' OR 'CO80' OR 'CO81' OR 'CT60' OR 'CT61' OR 'CT62' OR 'CT63' OR 'CT64' OR 'CT65' OR 'CT66' OR 'CT67' OR 'CT68' OR 'CT69' OR 'DC20' OR 'DC56' OR 'DC88' OR 'DE19' OR 'FL32' OR 'FL33' OR 'FL34' OR 'FM96' OR 'GA30' OR 'GA31' OR 'GA39' OR 'GU96' OR 'HI96' OR 'IA50' OR 'IA51' OR 'IA52' OR 'ID83' OR 'IL60' OR 'IL61' OR 'IL62' OR 'IN46' OR 'IN47' OR 'KS66' OR 'KS67' OR 'KY40' OR 'KY41' OR 'KY42' OR 'LA70' OR 'LA71' OR 'MA10' OR 'MA11' OR 'MA12' OR 'MA13' OR 'MA14' OR 'MA15' OR 'MA16' OR 'MA17' OR 'MA18' OR 'MA19' OR 'MA20' OR 'MA21' OR 'MA22' OR 'MA23' OR 'MA24' OR 'MA25' OR 'MA26' OR 'MA27' OR 'MA55' OR 'MD20' OR 'MD21' OR 'ME39' OR 'ME40' OR 'ME41' OR 'ME42' OR 'ME43' OR 'ME44' OR 'ME45' OR 'ME46' OR 'ME47' OR 'ME48' OR 'ME49' OR 'MH96' OR 'MI48' OR 'MI49' OR 'MN55' OR 'MN56' OR 'MO63' OR 'MO64' OR 'MO65' OR 'MO72' OR 'MP96' OR 'MS38' OR 'MS39' OR 'MT59' OR 'NC27' OR 'NC28' OR 'ND58' OR 'NE68' OR 'NE69' OR 'NH30' OR 'NH31' OR 'NH32' OR 'NH33' OR 'NH34' OR 'NH35' OR 'NH36' OR 'NH37' OR 'NH38' OR 'NJ70' OR 'NJ71' OR 'NJ72' OR 'NJ73' OR 'NJ74' OR 'NJ75' OR 'NJ76' OR 'NJ77' OR 'NJ78' OR 'NJ79' OR 'NJ80' OR 'NJ81' OR 'NJ82' OR 'NJ83' OR 'NJ84' OR 'NJ85' OR 'NJ86' OR 'NJ87' OR 'NJ88' OR 'NJ89' OR 'NM87' OR 'NM88' OR 'NV88' OR 'NV89' OR 'NY50' OR 'NY54' OR 'NY63' OR 'NY10' OR 'NY11' OR 'NY12' OR 'NY13' OR 'NY14' OR 'OH43' OR 'OH44' OR 'OH45' OR 'OK73' OR 'OK74' OR 'OR97' OR 'PA15' OR 'PA16' OR 'PA17' OR 'PA18' OR 'PA19' OR 'PR60' OR 'PR61' OR 'PR62' OR 'PR63' OR 'PR64' OR 'PR65' OR 'PR66' OR 'PR67' OR 'PR68' OR 'PR69' OR 'PR70' OR 'PR71' OR 'PR72' OR 'PR73' OR 'PR74' OR 'PR75' OR 'PR76' OR 'PR77' OR 'PR78' OR 'PR79' OR 'PR90' OR 'PR91' OR 'PR92' OR 'PR93' OR 'PR94' OR 'PR95' OR 'PR96' OR 'PR97' OR 'PR98' OR 'PW96' OR 'RI28' OR 'RI29' OR 'SC29' OR 'SD57' OR 'TN37' OR 'TN38' OR 'TX73' OR 'TX75' OR 'TX76' OR 'TX77' OR 'TX78' OR 'TX79' OR 'TX88' OR 'UT84' OR 'VA20' OR 'VA22' OR 'VA23' OR 'VA24' OR 'VI80' OR 'VI82' OR 'VI83' OR 'VI84' OR 'VI85' OR 'VT50' OR 'VT51' OR 'VT52' OR 'VT53' OR 'VT54' OR 'VT56' OR 'VT57' OR 'VT58' OR 'VT59' OR 'WA98' OR 'WA99' OR 'WI53' OR 'WI54' OR 'WV24' OR 'WV25' OR 'WV26' OR 'WY82' OR 'WY83'CSLKPCDY.cpy:1073 via COACTUPC.cbl:602
FLG-ACCTFILTER-ISVALIDmeans WS-EDIT-ACCT-FLAG = '1'COACTUPC.cbl:184
FOUND-CUST-IN-MASTERmeans WS-CUST-MASTER-READ-FLAG = '1'COACTUPC.cbl:388
ACUP-SHOW-DETAILSmeans ACUP-CHANGE-ACTION = 'S'COACTUPC.cbl:659
NO-CHANGES-DETECTEDmeans WS-RETURN-MSG = 'No change detected with respect to values fetched.'COACTUPC.cbl:491
COULD-NOT-LOCK-ACCT-FOR-UPDATEmeans WS-RETURN-MSG = 'Could not lock account record for update'COACTUPC.cbl:517
LOCKED-BUT-UPDATE-FAILEDmeans WS-RETURN-MSG = 'Update of record failed'COACTUPC.cbl:523
DATA-WAS-CHANGED-BEFORE-UPDATEmeans WS-RETURN-MSG = 'Record changed by some one else. Please review'COACTUPC.cbl:521
ACUP-CHANGES-NOT-OKmeans ACUP-CHANGE-ACTION = 'E'COACTUPC.cbl:663
ACUP-CHANGES-MADEmeans ACUP-CHANGE-ACTION = 'E' OR 'N' OR 'C' OR 'L' OR 'F'COACTUPC.cbl:660
FOUND-ACCT-IN-MASTERmeans WS-ACCOUNT-MASTER-READ-FLAG = '1'COACTUPC.cbl:386
FLG-CRED-LIMIT-ISVALIDmeans WS-EDIT-CREDIT-LIMIT = LOW-VALUESCOACTUPC.cbl:197
FLG-CASH-CREDIT-LIMIT-ISVALIDmeans WS-EDIT-CASH-CREDIT-LIMIT = LOW-VALUESCOACTUPC.cbl:201
FLG-CURR-BAL-ISVALIDmeans WS-EDIT-CURR-BAL = LOW-VALUESCOACTUPC.cbl:205
FLG-CURR-CYC-CREDIT-ISVALIDmeans WS-EDIT-CURR-CYC-CREDIT = LOW-VALUESCOACTUPC.cbl:209
FLG-CURR-CYC-DEBIT-ISVALIDmeans WS-EDIT-CURR-CYC-DEBIT = LOW-VALUESCOACTUPC.cbl:213
ACUP-CHANGES-OKAYED-LOCK-ERRORmeans ACUP-CHANGE-ACTION = 'L'COACTUPC.cbl:667
ACUP-CHANGES-OKAYED-BUT-FAILEDmeans ACUP-CHANGE-ACTION = 'F'COACTUPC.cbl:668
WS-NO-INFO-MESSAGEmeans WS-INFO-MSG = SPACES OR LOW-VALUESCOACTUPC.cbl:464
FOUND-ACCOUNT-DATAmeans WS-INFO-MSG = 'Details of selected account shown above'COACTUPC.cbl:466
FLG-ACCTFILTER-NOT-OKmeans WS-EDIT-ACCT-FLAG = '0'COACTUPC.cbl:185
FLG-ACCT-STATUS-NOT-OKmeans WS-EDIT-ACCT-STATUS = '0'COACTUPC.cbl:194
FLG-ACCT-STATUS-BLANKmeans WS-EDIT-ACCT-STATUS = 'B'COACTUPC.cbl:195
FLG-OPEN-YEAR-NOT-OKmeans WS-EDIT-OPEN-YEAR-FLG = '0'COACTUPC.cbl:239
FLG-OPEN-YEAR-BLANKmeans WS-EDIT-OPEN-YEAR-FLG = 'B'COACTUPC.cbl:240
FLG-OPEN-MONTH-NOT-OKmeans WS-EDIT-OPEN-MONTH = '0'COACTUPC.cbl:243
FLG-OPEN-MONTH-BLANKmeans WS-EDIT-OPEN-MONTH = 'B'COACTUPC.cbl:244
FLG-OPEN-DAY-NOT-OKmeans WS-EDIT-OPEN-DAY = '0'COACTUPC.cbl:247
FLG-OPEN-DAY-BLANKmeans WS-EDIT-OPEN-DAY = 'B'COACTUPC.cbl:248
FLG-CRED-LIMIT-NOT-OKmeans WS-EDIT-CREDIT-LIMIT = '0'COACTUPC.cbl:198
FLG-CRED-LIMIT-BLANKmeans WS-EDIT-CREDIT-LIMIT = 'B'COACTUPC.cbl:199
FLG-EXPIRY-YEAR-NOT-OKmeans WS-EDIT-EXPIRY-YEAR-FLG = '0'COACTUPC.cbl:253
FLG-EXPIRY-YEAR-BLANKmeans WS-EDIT-EXPIRY-YEAR-FLG = 'B'COACTUPC.cbl:254
FLG-EXPIRY-MONTH-NOT-OKmeans WS-EDIT-EXPIRY-MONTH = '0'COACTUPC.cbl:257
FLG-EXPIRY-MONTH-BLANKmeans WS-EDIT-EXPIRY-MONTH = 'B'COACTUPC.cbl:258
FLG-EXPIRY-DAY-NOT-OKmeans WS-EDIT-EXPIRY-DAY = '0'COACTUPC.cbl:261
FLG-EXPIRY-DAY-BLANKmeans WS-EDIT-EXPIRY-DAY = 'B'COACTUPC.cbl:262
FLG-CASH-CREDIT-LIMIT-NOT-OKmeans WS-EDIT-CASH-CREDIT-LIMIT = '0'COACTUPC.cbl:202
FLG-CASH-CREDIT-LIMIT-BLANKmeans WS-EDIT-CASH-CREDIT-LIMIT = 'B'COACTUPC.cbl:203
FLG-REISSUE-YEAR-NOT-OKmeans WS-EDIT-REISSUE-YEAR-FLG = '0'COACTUPC.cbl:267
FLG-REISSUE-YEAR-BLANKmeans WS-EDIT-REISSUE-YEAR-FLG = 'B'COACTUPC.cbl:268
FLG-REISSUE-MONTH-NOT-OKmeans WS-EDIT-REISSUE-MONTH = '0'COACTUPC.cbl:271
FLG-REISSUE-MONTH-BLANKmeans WS-EDIT-REISSUE-MONTH = 'B'COACTUPC.cbl:272
FLG-REISSUE-DAY-NOT-OKmeans WS-EDIT-REISSUE-DAY = '0'COACTUPC.cbl:275
FLG-REISSUE-DAY-BLANKmeans WS-EDIT-REISSUE-DAY = 'B'COACTUPC.cbl:276
FLG-CURR-BAL-NOT-OKmeans WS-EDIT-CURR-BAL = '0'COACTUPC.cbl:206
FLG-CURR-BAL-BLANKmeans WS-EDIT-CURR-BAL = 'B'COACTUPC.cbl:207
FLG-CURR-CYC-CREDIT-NOT-OKmeans WS-EDIT-CURR-CYC-CREDIT = '0'COACTUPC.cbl:210
FLG-CURR-CYC-CREDIT-BLANKmeans WS-EDIT-CURR-CYC-CREDIT = 'B'COACTUPC.cbl:211
FLG-CURR-CYC-DEBIT-NOT-OKmeans WS-EDIT-CURR-CYC-DEBIT = '0'COACTUPC.cbl:214
FLG-CURR-CYC-DEBIT-BLANKmeans WS-EDIT-CURR-CYC-DEBIT = 'B'COACTUPC.cbl:215
FLG-EDIT-US-SSN-PART1-NOT-OKmeans WS-EDIT-US-SSN-PART1-FLGS = '0'COACTUPC.cbl:137
FLG-EDIT-US-SSN-PART1-BLANKmeans WS-EDIT-US-SSN-PART1-FLGS = 'B'COACTUPC.cbl:138
FLG-EDIT-US-SSN-PART2-NOT-OKmeans WS-EDIT-US-SSN-PART2-FLGS = '0'COACTUPC.cbl:141
FLG-EDIT-US-SSN-PART2-BLANKmeans WS-EDIT-US-SSN-PART2-FLGS = 'B'COACTUPC.cbl:142
FLG-EDIT-US-SSN-PART3-NOT-OKmeans WS-EDIT-US-SSN-PART3-FLGS = '0'COACTUPC.cbl:145
FLG-EDIT-US-SSN-PART3-BLANKmeans WS-EDIT-US-SSN-PART3-FLGS = 'B'COACTUPC.cbl:146
FLG-DT-OF-BIRTH-YEAR-NOT-OKmeans WS-EDIT-DT-OF-BIRTH-YEAR-FLG = '0'COACTUPC.cbl:221
FLG-DT-OF-BIRTH-YEAR-BLANKmeans WS-EDIT-DT-OF-BIRTH-YEAR-FLG = 'B'COACTUPC.cbl:222
FLG-DT-OF-BIRTH-MONTH-NOT-OKmeans WS-EDIT-DT-OF-BIRTH-MONTH = '0'COACTUPC.cbl:225
FLG-DT-OF-BIRTH-MONTH-BLANKmeans WS-EDIT-DT-OF-BIRTH-MONTH = 'B'COACTUPC.cbl:226
FLG-DT-OF-BIRTH-DAY-NOT-OKmeans WS-EDIT-DT-OF-BIRTH-DAY = '0'COACTUPC.cbl:229
FLG-DT-OF-BIRTH-DAY-BLANKmeans WS-EDIT-DT-OF-BIRTH-DAY = 'B'COACTUPC.cbl:230
FLG-FICO-SCORE-NOT-OKmeans WS-EDIT-FICO-SCORE-FLGS = '0'COACTUPC.cbl:233
FLG-FICO-SCORE-BLANKmeans WS-EDIT-FICO-SCORE-FLGS = 'B'COACTUPC.cbl:234
FLG-FIRST-NAME-NOT-OKmeans WS-EDIT-FIRST-NAME-FLGS = '0'COACTUPC.cbl:280
FLG-FIRST-NAME-BLANKmeans WS-EDIT-FIRST-NAME-FLGS = 'B'COACTUPC.cbl:281
FLG-MIDDLE-NAME-NOT-OKmeans WS-EDIT-MIDDLE-NAME-FLGS = '0'COACTUPC.cbl:284
FLG-LAST-NAME-NOT-OKmeans WS-EDIT-LAST-NAME-FLGS = '0'COACTUPC.cbl:288
FLG-LAST-NAME-BLANKmeans WS-EDIT-LAST-NAME-FLGS = 'B'COACTUPC.cbl:289
FLG-ADDRESS-LINE-1-NOT-OKmeans WS-EDIT-ADDRESS-LINE-1-FLGS = '0'COACTUPC.cbl:293
FLG-ADDRESS-LINE-1-BLANKmeans WS-EDIT-ADDRESS-LINE-1-FLGS = 'B'COACTUPC.cbl:294
FLG-STATE-NOT-OKmeans WS-EDIT-STATE-FLGS = '0'COACTUPC.cbl:305
FLG-STATE-BLANKmeans WS-EDIT-STATE-FLGS = 'B'COACTUPC.cbl:306
FLG-ZIPCODE-NOT-OKmeans WS-EDIT-ZIPCODE-FLGS = '0'COACTUPC.cbl:309
FLG-ZIPCODE-BLANKmeans WS-EDIT-ZIPCODE-FLGS = 'B'COACTUPC.cbl:310
FLG-CITY-NOT-OKmeans WS-EDIT-CITY-FLGS = '0'COACTUPC.cbl:301
FLG-CITY-BLANKmeans WS-EDIT-CITY-FLGS = 'B'COACTUPC.cbl:302
FLG-COUNTRY-NOT-OKmeans WS-EDIT-COUNTRY-FLGS = '0'COACTUPC.cbl:313
FLG-COUNTRY-BLANKmeans WS-EDIT-COUNTRY-FLGS = 'B'COACTUPC.cbl:314
FLG-PHONE-NUM-1A-NOT-OKmeans WS-EDIT-PHONE-NUM-1A-FLG = '0'COACTUPC.cbl:320
FLG-PHONE-NUM-1A-BLANKmeans WS-EDIT-PHONE-NUM-1A-FLG = 'B'COACTUPC.cbl:321
FLG-PHONE-NUM-1B-NOT-OKmeans WS-EDIT-PHONE-NUM-1B = '0'COACTUPC.cbl:324
FLG-PHONE-NUM-1B-BLANKmeans WS-EDIT-PHONE-NUM-1B = 'B'COACTUPC.cbl:325
FLG-PHONE-NUM-1C-NOT-OKmeans WS-EDIT-PHONE-NUM-1C = '0'COACTUPC.cbl:328
FLG-PHONE-NUM-1C-BLANKmeans WS-EDIT-PHONE-NUM-1C = 'B'COACTUPC.cbl:329
FLG-PHONE-NUM-2A-NOT-OKmeans WS-EDIT-PHONE-NUM-2A-FLG = '0'COACTUPC.cbl:335
FLG-PHONE-NUM-2A-BLANKmeans WS-EDIT-PHONE-NUM-2A-FLG = 'B'COACTUPC.cbl:336
FLG-PHONE-NUM-2B-NOT-OKmeans WS-EDIT-PHONE-NUM-2B = '0'COACTUPC.cbl:339
FLG-PHONE-NUM-2B-BLANKmeans WS-EDIT-PHONE-NUM-2B = 'B'COACTUPC.cbl:340
FLG-PHONE-NUM-2C-NOT-OKmeans WS-EDIT-PHONE-NUM-2C = '0'COACTUPC.cbl:343
FLG-PHONE-NUM-2C-BLANKmeans WS-EDIT-PHONE-NUM-2C = 'B'COACTUPC.cbl:344
FLG-EFT-ACCOUNT-ID-NOT-OKmeans WS-EFT-ACCOUNT-ID-FLGS = '0'COACTUPC.cbl:347
FLG-EFT-ACCOUNT-ID-BLANKmeans WS-EFT-ACCOUNT-ID-FLGS = 'B'COACTUPC.cbl:348
FLG-PRI-CARDHOLDER-NOT-OKmeans WS-EDIT-PRI-CARDHOLDER = '0'COACTUPC.cbl:351
FLG-PRI-CARDHOLDER-BLANKmeans WS-EDIT-PRI-CARDHOLDER = 'B'COACTUPC.cbl:352
FLG-MIDDLE-NAME-BLANKmeans WS-EDIT-MIDDLE-NAME-FLGS = 'B'COACTUPC.cbl:285
FLG-ADDRESS-LINE-2-NOT-OKmeans WS-EDIT-ADDRESS-LINE-2-FLGS = '0'COACTUPC.cbl:297
FLG-ADDRESS-LINE-2-BLANKmeans WS-EDIT-ADDRESS-LINE-2-FLGS = 'B'COACTUPC.cbl:298
PROMPT-FOR-CONFIRMATIONmeans WS-INFO-MSG = 'Changes validated.Press F5 to save'COACTUPC.cbl:472
DID-NOT-FIND-ACCT-IN-ACCTDATmeans WS-RETURN-MSG = 'Did not find this account in account master file'COACTUPC.cbl:499
DID-NOT-FIND-CUST-IN-CUSTDATmeans WS-RETURN-MSG = 'Did not find associated customer in master file'COACTUPC.cbl:501
THIS-CENTURYmeans WS-EDIT-DATE-CC-N = 20CSUTLDWY.cpy:9 via COACTUPC.cbl:166
LAST-CENTURYmeans WS-EDIT-DATE-CC-N = 19CSUTLDWY.cpy:10 via COACTUPC.cbl:166
WS-VALID-MONTHmeans WS-EDIT-DATE-MM-N = 1 THRU 12CSUTLDWY.cpy:19 via COACTUPC.cbl:166
WS-VALID-DAYmeans WS-EDIT-DATE-DD-N = 1 THRU 31CSUTLDWY.cpy:28 via COACTUPC.cbl:166
WS-31-DAY-MONTHmeans WS-EDIT-DATE-MM-N = 1 OR 3 OR 5 OR 7 OR 8 OR 10 OR 12CSUTLDWY.cpy:21 via COACTUPC.cbl:166
WS-DAY-31means WS-EDIT-DATE-DD-N = 31CSUTLDWY.cpy:30 via COACTUPC.cbl:166
WS-FEBRUARYmeans WS-EDIT-DATE-MM-N = 2CSUTLDWY.cpy:24 via COACTUPC.cbl:166
WS-DAY-30means WS-EDIT-DATE-DD-N = 30CSUTLDWY.cpy:31 via COACTUPC.cbl:166
WS-DAY-29means WS-EDIT-DATE-DD-N = 29CSUTLDWY.cpy:32 via COACTUPC.cbl:166
WS-EDIT-DATE-IS-VALIDmeans WS-EDIT-DATE-FLGS = LOW-VALUESCSUTLDWY.cpy:44 via COACTUPC.cbl:166
35 rules

0000-MAIN

WhenThenAt
  1. EIBCALEN IS EQUAL TO 0 OR (CDEMO-FROM-PROGRAM = LIT-MENUPGM AND NOT CDEMO-PGM-REENTER)
 INITIALIZE CARDDEMO-COMMAREA WS-THIS-PROGCOMMAREACOACTUPC.cbl:883–884
  1. EIBCALEN IS EQUAL TO 0 OR (CDEMO-FROM-PROGRAM = LIT-MENUPGM AND NOT CDEMO-PGM-REENTER)
 SET CDEMO-PGM-ENTER TO TRUECOACTUPC.cbl:885
  1. EIBCALEN IS EQUAL TO 0 OR (CDEMO-FROM-PROGRAM = LIT-MENUPGM AND NOT CDEMO-PGM-REENTER)
 SET ACUP-DETAILS-NOT-FETCHED TO TRUECOACTUPC.cbl:886
  1. NOT (EIBCALEN IS EQUAL TO 0 OR (CDEMO-FROM-PROGRAM = LIT-MENUPGM AND NOT CDEMO-PGM-REENTER))
 MOVE DFHCOMMAREA (1:LENGTH OF CARDDEMO-COMMAREA) TO CARDDEMO-COMMAREACOACTUPC.cbl:888–889
  1. NOT (EIBCALEN IS EQUAL TO 0 OR (CDEMO-FROM-PROGRAM = LIT-MENUPGM AND NOT CDEMO-PGM-REENTER))
 MOVE DFHCOMMAREA(LENGTH OF CARDDEMO-COMMAREA + 1: LENGTH OF WS-THIS-PROGCOMMAREA ) TO WS-THIS-PROGCOMMAREACOACTUPC.cbl:890–892
  1. CCARD-AID-ENTER OR CCARD-AID-PFK03 OR (CCARD-AID-PFK05 AND ACUP-CHANGES-OK-NOT-CONFIRMED) OR (CCARD-AID-PFK12 AND NOT ACUP-DETAILS-NOT-FETCHED)
 SET PFK-VALID TO TRUECOACTUPC.cbl:911
  1. PFK-INVALID
 SET CCARD-AID-ENTER TO TRUECOACTUPC.cbl:915
  1. CCARD-AID-PFK03
 SET CCARD-AID-PFK03 TO TRUECOACTUPC.cbl:928
  1. CCARD-AID-PFK03
  2. CDEMO-FROM-TRANID EQUAL LOW-VALUES OR CDEMO-FROM-TRANID EQUAL SPACES
 MOVE LIT-MENUTRANID TO CDEMO-TO-TRANIDCOACTUPC.cbl:932
  1. CCARD-AID-PFK03
  2. NOT (CDEMO-FROM-TRANID EQUAL LOW-VALUES OR CDEMO-FROM-TRANID EQUAL SPACES)
 MOVE CDEMO-FROM-TRANID TO CDEMO-TO-TRANIDCOACTUPC.cbl:934
  1. CCARD-AID-PFK03
  2. CDEMO-FROM-PROGRAM EQUAL LOW-VALUES OR CDEMO-FROM-PROGRAM EQUAL SPACES
 MOVE LIT-MENUPGM TO CDEMO-TO-PROGRAMCOACTUPC.cbl:939
  1. CCARD-AID-PFK03
  2. NOT (CDEMO-FROM-PROGRAM EQUAL LOW-VALUES OR CDEMO-FROM-PROGRAM EQUAL SPACES)
 MOVE CDEMO-FROM-PROGRAM TO CDEMO-TO-PROGRAMCOACTUPC.cbl:941
  1. CCARD-AID-PFK03
 MOVE LIT-THISTRANID TO CDEMO-FROM-TRANIDCOACTUPC.cbl:944
  1. CCARD-AID-PFK03
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOACTUPC.cbl:945
  1. CCARD-AID-PFK03
 SET CDEMO-USRTYP-USER TO TRUECOACTUPC.cbl:947
  1. CCARD-AID-PFK03
 SET CDEMO-PGM-ENTER TO TRUECOACTUPC.cbl:948
  1. CCARD-AID-PFK03
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOACTUPC.cbl:949
  1. CCARD-AID-PFK03
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOACTUPC.cbl:950
  1. CCARD-AID-PFK03
 EXEC CICS SYNCPOINT END-EXECCOACTUPC.cbl:952–954
  1. CCARD-AID-PFK03
 EXEC CICS XCTL PROGRAM (CDEMO-TO-PROGRAM) COMMAREA(CARDDEMO-COMMAREA) END-EXECCOACTUPC.cbl:956–959
  1. ACUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER | CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER
 INITIALIZE WS-THIS-PROGCOMMAREACOACTUPC.cbl:968
  1. ACUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER | CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER
 PERFORM 3000-SEND-MAP THRU 3000-SEND-MAP-EXITCOACTUPC.cbl:969–970
  1. ACUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER | CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER
 SET CDEMO-PGM-REENTER TO TRUECOACTUPC.cbl:971
  1. ACUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER | CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER
 SET ACUP-DETAILS-NOT-FETCHED TO TRUECOACTUPC.cbl:972
  1. ACUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER | CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER
 GO TO COMMON-RETURNCOACTUPC.cbl:973
  1. ACUP-CHANGES-OKAYED-AND-DONE | ACUP-CHANGES-FAILED
 INITIALIZE WS-THIS-PROGCOMMAREA WS-MISC-STORAGE CDEMO-ACCT-IDCOACTUPC.cbl:981–983
  1. ACUP-CHANGES-OKAYED-AND-DONE | ACUP-CHANGES-FAILED
 SET CDEMO-PGM-ENTER TO TRUECOACTUPC.cbl:984
  1. ACUP-CHANGES-OKAYED-AND-DONE | ACUP-CHANGES-FAILED
 PERFORM 3000-SEND-MAP THRU 3000-SEND-MAP-EXITCOACTUPC.cbl:985–986
  1. ACUP-CHANGES-OKAYED-AND-DONE | ACUP-CHANGES-FAILED
 SET CDEMO-PGM-REENTER TO TRUECOACTUPC.cbl:987
  1. ACUP-CHANGES-OKAYED-AND-DONE | ACUP-CHANGES-FAILED
 SET ACUP-DETAILS-NOT-FETCHED TO TRUECOACTUPC.cbl:988
  1. ACUP-CHANGES-OKAYED-AND-DONE | ACUP-CHANGES-FAILED
 GO TO COMMON-RETURNCOACTUPC.cbl:989
  1. TRUE is none of [CCARD-AID-PFK03; ACUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER; CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER; ACUP-CHANGES-OKAYED-AND-DONE; ACUP-CHANGES-FAILED]
 PERFORM 1000-PROCESS-INPUTS THRU 1000-PROCESS-INPUTS-EXITCOACTUPC.cbl:997–998
  1. TRUE is none of [CCARD-AID-PFK03; ACUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER; CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER; ACUP-CHANGES-OKAYED-AND-DONE; ACUP-CHANGES-FAILED]
 PERFORM 2000-DECIDE-ACTION THRU 2000-DECIDE-ACTION-EXITCOACTUPC.cbl:999–1000
  1. TRUE is none of [CCARD-AID-PFK03; ACUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER; CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER; ACUP-CHANGES-OKAYED-AND-DONE; ACUP-CHANGES-FAILED]
 PERFORM 3000-SEND-MAP THRU 3000-SEND-MAP-EXITCOACTUPC.cbl:1001–1002
  1. TRUE is none of [CCARD-AID-PFK03; ACUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER; CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER; ACUP-CHANGES-OKAYED-AND-DONE; ACUP-CHANGES-FAILED]
 GO TO COMMON-RETURNCOACTUPC.cbl:1003
92 rules

1100-RECEIVE-MAP

WhenThenAt
  1. ACCTSIDI OF CACTUPAI = '*' OR ACCTSIDI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO CC-ACCT-ID ACUP-NEW-ACCT-ID-XCOACTUPC.cbl:1053–1054
  1. NOT (ACCTSIDI OF CACTUPAI = '*' OR ACCTSIDI OF CACTUPAI = SPACES)
 MOVE ACCTSIDI OF CACTUPAI TO CC-ACCT-ID ACUP-NEW-ACCT-ID-XCOACTUPC.cbl:1056–1057
  1. ACUP-DETAILS-NOT-FETCHED
 GO TO 1100-RECEIVE-MAP-EXITCOACTUPC.cbl:1061
  1. ACSTTUSI OF CACTUPAI = '*' OR ACSTTUSI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-ACTIVE-STATUSCOACTUPC.cbl:1067
  1. NOT (ACSTTUSI OF CACTUPAI = '*' OR ACSTTUSI OF CACTUPAI = SPACES)
 MOVE ACSTTUSI OF CACTUPAI TO ACUP-NEW-ACTIVE-STATUSCOACTUPC.cbl:1069
  1. ACRDLIMI OF CACTUPAI = '*' OR ACRDLIMI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CREDIT-LIMIT-XCOACTUPC.cbl:1075
  1. NOT (ACRDLIMI OF CACTUPAI = '*' OR ACRDLIMI OF CACTUPAI = SPACES)
 MOVE ACRDLIMI OF CACTUPAI TO ACUP-NEW-CREDIT-LIMIT-XCOACTUPC.cbl:1077
  1. NOT (ACRDLIMI OF CACTUPAI = '*' OR ACRDLIMI OF CACTUPAI = SPACES)
  2. FUNCTION TEST-NUMVAL-C(ACUP-NEW-CREDIT-LIMIT-X) = 0
calc COMPUTE ACUP-NEW-CREDIT-LIMIT-N = FUNCTION NUMVAL-C(ACRDLIMI OF CACTUPAI)COACTUPC.cbl:1079–1080
  1. ACSHLIMI OF CACTUPAI = '*' OR ACSHLIMI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CASH-CREDIT-LIMIT-XCOACTUPC.cbl:1089
  1. NOT (ACSHLIMI OF CACTUPAI = '*' OR ACSHLIMI OF CACTUPAI = SPACES)
 MOVE ACSHLIMI OF CACTUPAI TO ACUP-NEW-CASH-CREDIT-LIMIT-XCOACTUPC.cbl:1091
  1. NOT (ACSHLIMI OF CACTUPAI = '*' OR ACSHLIMI OF CACTUPAI = SPACES)
  2. FUNCTION TEST-NUMVAL-C(ACUP-NEW-CASH-CREDIT-LIMIT-X) = 0
calc COMPUTE ACUP-NEW-CASH-CREDIT-LIMIT-N = FUNCTION NUMVAL-C(ACSHLIMI OF CACTUPAI)COACTUPC.cbl:1093–1094
  1. ACURBALI OF CACTUPAI = '*' OR ACURBALI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CURR-BAL-XCOACTUPC.cbl:1103
  1. NOT (ACURBALI OF CACTUPAI = '*' OR ACURBALI OF CACTUPAI = SPACES)
 MOVE ACURBALI OF CACTUPAI TO ACUP-NEW-CURR-BAL-XCOACTUPC.cbl:1105
  1. NOT (ACURBALI OF CACTUPAI = '*' OR ACURBALI OF CACTUPAI = SPACES)
  2. FUNCTION TEST-NUMVAL-C(ACUP-NEW-CURR-BAL-X) = 0
calc COMPUTE ACUP-NEW-CURR-BAL-N = FUNCTION NUMVAL-C(ACUP-NEW-CURR-BAL-X)COACTUPC.cbl:1107–1108
  1. ACRCYCRI OF CACTUPAI = '*' OR ACRCYCRI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CURR-CYC-CREDIT-XCOACTUPC.cbl:1117
  1. NOT (ACRCYCRI OF CACTUPAI = '*' OR ACRCYCRI OF CACTUPAI = SPACES)
 MOVE ACRCYCRI OF CACTUPAI TO ACUP-NEW-CURR-CYC-CREDIT-XCOACTUPC.cbl:1119
  1. NOT (ACRCYCRI OF CACTUPAI = '*' OR ACRCYCRI OF CACTUPAI = SPACES)
  2. FUNCTION TEST-NUMVAL-C(ACUP-NEW-CURR-CYC-CREDIT-X) = 0
calc COMPUTE ACUP-NEW-CURR-CYC-CREDIT-N = FUNCTION NUMVAL-C(ACRCYCRI OF CACTUPAI)COACTUPC.cbl:1121–1122
  1. ACRCYDBI OF CACTUPAI = '*' OR ACRCYDBI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CURR-CYC-DEBIT-XCOACTUPC.cbl:1131
  1. NOT (ACRCYDBI OF CACTUPAI = '*' OR ACRCYDBI OF CACTUPAI = SPACES)
 MOVE ACRCYDBI OF CACTUPAI TO ACUP-NEW-CURR-CYC-DEBIT-XCOACTUPC.cbl:1133
  1. NOT (ACRCYDBI OF CACTUPAI = '*' OR ACRCYDBI OF CACTUPAI = SPACES)
  2. FUNCTION TEST-NUMVAL-C(ACUP-NEW-CURR-CYC-DEBIT-X) = 0
calc COMPUTE ACUP-NEW-CURR-CYC-DEBIT-N = FUNCTION NUMVAL-C(ACRCYDBI OF CACTUPAI)COACTUPC.cbl:1135–1136
  1. OPNYEARI OF CACTUPAI = '*' OR OPNYEARI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-OPEN-YEARCOACTUPC.cbl:1146
  1. NOT (OPNYEARI OF CACTUPAI = '*' OR OPNYEARI OF CACTUPAI = SPACES)
 MOVE OPNYEARI OF CACTUPAI TO ACUP-NEW-OPEN-YEARCOACTUPC.cbl:1148
  1. OPNMONI OF CACTUPAI = '*' OR OPNMONI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-OPEN-MONCOACTUPC.cbl:1153
  1. NOT (OPNMONI OF CACTUPAI = '*' OR OPNMONI OF CACTUPAI = SPACES)
 MOVE OPNMONI OF CACTUPAI TO ACUP-NEW-OPEN-MONCOACTUPC.cbl:1155
  1. OPNDAYI OF CACTUPAI = '*' OR OPNDAYI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-OPEN-DAYCOACTUPC.cbl:1160
  1. NOT (OPNDAYI OF CACTUPAI = '*' OR OPNDAYI OF CACTUPAI = SPACES)
 MOVE OPNDAYI OF CACTUPAI TO ACUP-NEW-OPEN-DAYCOACTUPC.cbl:1162
  1. EXPYEARI OF CACTUPAI = '*' OR EXPYEARI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-EXP-YEARCOACTUPC.cbl:1169
  1. NOT (EXPYEARI OF CACTUPAI = '*' OR EXPYEARI OF CACTUPAI = SPACES)
 MOVE EXPYEARI OF CACTUPAI TO ACUP-NEW-EXP-YEARCOACTUPC.cbl:1171
  1. EXPMONI OF CACTUPAI = '*' OR EXPMONI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-EXP-MONCOACTUPC.cbl:1176
  1. NOT (EXPMONI OF CACTUPAI = '*' OR EXPMONI OF CACTUPAI = SPACES)
 MOVE EXPMONI OF CACTUPAI TO ACUP-NEW-EXP-MONCOACTUPC.cbl:1178
  1. EXPDAYI OF CACTUPAI = '*' OR EXPDAYI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-EXP-DAYCOACTUPC.cbl:1183
  1. NOT (EXPDAYI OF CACTUPAI = '*' OR EXPDAYI OF CACTUPAI = SPACES)
 MOVE EXPDAYI OF CACTUPAI TO ACUP-NEW-EXP-DAYCOACTUPC.cbl:1185
  1. RISYEARI OF CACTUPAI = '*' OR RISYEARI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-REISSUE-YEARCOACTUPC.cbl:1192
  1. NOT (RISYEARI OF CACTUPAI = '*' OR RISYEARI OF CACTUPAI = SPACES)
 MOVE RISYEARI OF CACTUPAI TO ACUP-NEW-REISSUE-YEARCOACTUPC.cbl:1194
  1. RISMONI OF CACTUPAI = '*' OR RISMONI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-REISSUE-MONCOACTUPC.cbl:1199
  1. NOT (RISMONI OF CACTUPAI = '*' OR RISMONI OF CACTUPAI = SPACES)
 MOVE RISMONI OF CACTUPAI TO ACUP-NEW-REISSUE-MONCOACTUPC.cbl:1201
  1. RISDAYI OF CACTUPAI = '*' OR RISDAYI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-REISSUE-DAYCOACTUPC.cbl:1206
  1. NOT (RISDAYI OF CACTUPAI = '*' OR RISDAYI OF CACTUPAI = SPACES)
 MOVE RISDAYI OF CACTUPAI TO ACUP-NEW-REISSUE-DAYCOACTUPC.cbl:1208
  1. AADDGRPI OF CACTUPAI = '*' OR AADDGRPI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-GROUP-IDCOACTUPC.cbl:1215
  1. NOT (AADDGRPI OF CACTUPAI = '*' OR AADDGRPI OF CACTUPAI = SPACES)
 MOVE AADDGRPI OF CACTUPAI TO ACUP-NEW-GROUP-IDCOACTUPC.cbl:1217
  1. ACSTNUMI OF CACTUPAI = '*' OR ACSTNUMI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-ID-XCOACTUPC.cbl:1226
  1. NOT (ACSTNUMI OF CACTUPAI = '*' OR ACSTNUMI OF CACTUPAI = SPACES)
 MOVE ACSTNUMI OF CACTUPAI TO ACUP-NEW-CUST-ID-XCOACTUPC.cbl:1228
  1. ACTSSN1I OF CACTUPAI = '*' OR ACTSSN1I OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-SSN-1COACTUPC.cbl:1235
  1. NOT (ACTSSN1I OF CACTUPAI = '*' OR ACTSSN1I OF CACTUPAI = SPACES)
 MOVE ACTSSN1I OF CACTUPAI TO ACUP-NEW-CUST-SSN-1COACTUPC.cbl:1237
  1. ACTSSN2I OF CACTUPAI = '*' OR ACTSSN2I OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-SSN-2COACTUPC.cbl:1242
  1. NOT (ACTSSN2I OF CACTUPAI = '*' OR ACTSSN2I OF CACTUPAI = SPACES)
 MOVE ACTSSN2I OF CACTUPAI TO ACUP-NEW-CUST-SSN-2COACTUPC.cbl:1244
  1. ACTSSN3I OF CACTUPAI = '*' OR ACTSSN3I OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-SSN-3COACTUPC.cbl:1249
  1. NOT (ACTSSN3I OF CACTUPAI = '*' OR ACTSSN3I OF CACTUPAI = SPACES)
 MOVE ACTSSN3I OF CACTUPAI TO ACUP-NEW-CUST-SSN-3COACTUPC.cbl:1251
  1. DOBYEARI OF CACTUPAI = '*' OR DOBYEARI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-DOB-YEARCOACTUPC.cbl:1258
  1. NOT (DOBYEARI OF CACTUPAI = '*' OR DOBYEARI OF CACTUPAI = SPACES)
 MOVE DOBYEARI OF CACTUPAI TO ACUP-NEW-CUST-DOB-YEARCOACTUPC.cbl:1260
  1. DOBMONI OF CACTUPAI = '*' OR DOBMONI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-DOB-MONCOACTUPC.cbl:1265
  1. NOT (DOBMONI OF CACTUPAI = '*' OR DOBMONI OF CACTUPAI = SPACES)
 MOVE DOBMONI OF CACTUPAI TO ACUP-NEW-CUST-DOB-MONCOACTUPC.cbl:1267
  1. DOBDAYI OF CACTUPAI = '*' OR DOBDAYI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-DOB-DAYCOACTUPC.cbl:1272
  1. NOT (DOBDAYI OF CACTUPAI = '*' OR DOBDAYI OF CACTUPAI = SPACES)
 MOVE DOBDAYI OF CACTUPAI TO ACUP-NEW-CUST-DOB-DAYCOACTUPC.cbl:1274
  1. ACSTFCOI OF CACTUPAI = '*' OR ACSTFCOI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-FICO-SCORE-XCOACTUPC.cbl:1281
  1. NOT (ACSTFCOI OF CACTUPAI = '*' OR ACSTFCOI OF CACTUPAI = SPACES)
 MOVE ACSTFCOI OF CACTUPAI TO ACUP-NEW-CUST-FICO-SCORE-XCOACTUPC.cbl:1283
  1. ACSFNAMI OF CACTUPAI = '*' OR ACSFNAMI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-FIRST-NAMECOACTUPC.cbl:1290
  1. NOT (ACSFNAMI OF CACTUPAI = '*' OR ACSFNAMI OF CACTUPAI = SPACES)
 MOVE ACSFNAMI OF CACTUPAI TO ACUP-NEW-CUST-FIRST-NAMECOACTUPC.cbl:1292
  1. ACSMNAMI OF CACTUPAI = '*' OR ACSMNAMI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-MIDDLE-NAMECOACTUPC.cbl:1299
  1. NOT (ACSMNAMI OF CACTUPAI = '*' OR ACSMNAMI OF CACTUPAI = SPACES)
 MOVE ACSMNAMI OF CACTUPAI TO ACUP-NEW-CUST-MIDDLE-NAMECOACTUPC.cbl:1301
  1. ACSLNAMI OF CACTUPAI = '*' OR ACSLNAMI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-LAST-NAMECOACTUPC.cbl:1308
  1. NOT (ACSLNAMI OF CACTUPAI = '*' OR ACSLNAMI OF CACTUPAI = SPACES)
 MOVE ACSLNAMI OF CACTUPAI TO ACUP-NEW-CUST-LAST-NAMECOACTUPC.cbl:1310
  1. ACSADL1I OF CACTUPAI = '*' OR ACSADL1I OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-ADDR-LINE-1COACTUPC.cbl:1317
  1. NOT (ACSADL1I OF CACTUPAI = '*' OR ACSADL1I OF CACTUPAI = SPACES)
 MOVE ACSADL1I OF CACTUPAI TO ACUP-NEW-CUST-ADDR-LINE-1COACTUPC.cbl:1319
  1. ACSADL2I OF CACTUPAI = '*' OR ACSADL2I OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-ADDR-LINE-2COACTUPC.cbl:1324
  1. NOT (ACSADL2I OF CACTUPAI = '*' OR ACSADL2I OF CACTUPAI = SPACES)
 MOVE ACSADL2I OF CACTUPAI TO ACUP-NEW-CUST-ADDR-LINE-2COACTUPC.cbl:1326
  1. ACSCITYI OF CACTUPAI = '*' OR ACSCITYI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-ADDR-LINE-3COACTUPC.cbl:1331
  1. NOT (ACSCITYI OF CACTUPAI = '*' OR ACSCITYI OF CACTUPAI = SPACES)
 MOVE ACSCITYI OF CACTUPAI TO ACUP-NEW-CUST-ADDR-LINE-3COACTUPC.cbl:1333
  1. ACSSTTEI OF CACTUPAI = '*' OR ACSSTTEI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-ADDR-STATE-CDCOACTUPC.cbl:1338
  1. NOT (ACSSTTEI OF CACTUPAI = '*' OR ACSSTTEI OF CACTUPAI = SPACES)
 MOVE ACSSTTEI OF CACTUPAI TO ACUP-NEW-CUST-ADDR-STATE-CDCOACTUPC.cbl:1340
  1. ACSCTRYI OF CACTUPAI = '*' OR ACSCTRYI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-ADDR-COUNTRY-CDCOACTUPC.cbl:1345
  1. NOT (ACSCTRYI OF CACTUPAI = '*' OR ACSCTRYI OF CACTUPAI = SPACES)
 MOVE ACSCTRYI OF CACTUPAI TO ACUP-NEW-CUST-ADDR-COUNTRY-CDCOACTUPC.cbl:1347
  1. ACSZIPCI OF CACTUPAI = '*' OR ACSZIPCI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-ADDR-ZIPCOACTUPC.cbl:1352
  1. NOT (ACSZIPCI OF CACTUPAI = '*' OR ACSZIPCI OF CACTUPAI = SPACES)
 MOVE ACSZIPCI OF CACTUPAI TO ACUP-NEW-CUST-ADDR-ZIPCOACTUPC.cbl:1354
  1. ACSPH1AI OF CACTUPAI = '*' OR ACSPH1AI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-PHONE-NUM-1ACOACTUPC.cbl:1359
  1. NOT (ACSPH1AI OF CACTUPAI = '*' OR ACSPH1AI OF CACTUPAI = SPACES)
 MOVE ACSPH1AI OF CACTUPAI TO ACUP-NEW-CUST-PHONE-NUM-1ACOACTUPC.cbl:1361
  1. ACSPH1BI OF CACTUPAI = '*' OR ACSPH1BI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-PHONE-NUM-1BCOACTUPC.cbl:1366
  1. NOT (ACSPH1BI OF CACTUPAI = '*' OR ACSPH1BI OF CACTUPAI = SPACES)
 MOVE ACSPH1BI OF CACTUPAI TO ACUP-NEW-CUST-PHONE-NUM-1BCOACTUPC.cbl:1368
  1. ACSPH1CI OF CACTUPAI = '*' OR ACSPH1CI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-PHONE-NUM-1CCOACTUPC.cbl:1373
  1. NOT (ACSPH1CI OF CACTUPAI = '*' OR ACSPH1CI OF CACTUPAI = SPACES)
 MOVE ACSPH1CI OF CACTUPAI TO ACUP-NEW-CUST-PHONE-NUM-1CCOACTUPC.cbl:1375
  1. ACSPH2AI OF CACTUPAI = '*' OR ACSPH2AI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-PHONE-NUM-2ACOACTUPC.cbl:1380
  1. NOT (ACSPH2AI OF CACTUPAI = '*' OR ACSPH2AI OF CACTUPAI = SPACES)
 MOVE ACSPH2AI OF CACTUPAI TO ACUP-NEW-CUST-PHONE-NUM-2ACOACTUPC.cbl:1382
  1. ACSPH2BI OF CACTUPAI = '*' OR ACSPH2BI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-PHONE-NUM-2BCOACTUPC.cbl:1387
  1. NOT (ACSPH2BI OF CACTUPAI = '*' OR ACSPH2BI OF CACTUPAI = SPACES)
 MOVE ACSPH2BI OF CACTUPAI TO ACUP-NEW-CUST-PHONE-NUM-2BCOACTUPC.cbl:1389
  1. ACSPH2CI OF CACTUPAI = '*' OR ACSPH2CI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-PHONE-NUM-2CCOACTUPC.cbl:1394
  1. NOT (ACSPH2CI OF CACTUPAI = '*' OR ACSPH2CI OF CACTUPAI = SPACES)
 MOVE ACSPH2CI OF CACTUPAI TO ACUP-NEW-CUST-PHONE-NUM-2CCOACTUPC.cbl:1396
  1. ACSGOVTI OF CACTUPAI = '*' OR ACSGOVTI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-GOVT-ISSUED-IDCOACTUPC.cbl:1403
  1. NOT (ACSGOVTI OF CACTUPAI = '*' OR ACSGOVTI OF CACTUPAI = SPACES)
 MOVE ACSGOVTI OF CACTUPAI TO ACUP-NEW-CUST-GOVT-ISSUED-IDCOACTUPC.cbl:1405
  1. ACSEFTCI OF CACTUPAI = '*' OR ACSEFTCI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-EFT-ACCOUNT-IDCOACTUPC.cbl:1412
  1. NOT (ACSEFTCI OF CACTUPAI = '*' OR ACSEFTCI OF CACTUPAI = SPACES)
 MOVE ACSEFTCI OF CACTUPAI TO ACUP-NEW-CUST-EFT-ACCOUNT-IDCOACTUPC.cbl:1414
  1. ACSPFLGI OF CACTUPAI = '*' OR ACSPFLGI OF CACTUPAI = SPACES
 MOVE LOW-VALUES TO ACUP-NEW-CUST-PRI-HOLDER-INDCOACTUPC.cbl:1421
  1. NOT (ACSPFLGI OF CACTUPAI = '*' OR ACSPFLGI OF CACTUPAI = SPACES)
 MOVE ACSPFLGI OF CACTUPAI TO ACUP-NEW-CUST-PRI-HOLDER-INDCOACTUPC.cbl:1423
36 rules

1200-EDIT-MAP-INPUTS

WhenThenAt
  1. ACUP-DETAILS-NOT-FETCHED
 PERFORM 1210-EDIT-ACCOUNT THRU 1210-EDIT-ACCOUNT-EXITCOACTUPC.cbl:1435–1436
  1. ACUP-DETAILS-NOT-FETCHED
 MOVE LOW-VALUES TO ACUP-OLD-ACCT-DATACOACTUPC.cbl:1438
  1. ACUP-DETAILS-NOT-FETCHED
  2. FLG-ACCTFILTER-BLANK
 SET NO-SEARCH-CRITERIA-RECEIVED TO TRUECOACTUPC.cbl:1442
  1. ACUP-DETAILS-NOT-FETCHED
 GO TO 1200-EDIT-MAP-INPUTS-EXITCOACTUPC.cbl:1446
  1. NO-CHANGES-FOUND OR ACUP-CHANGES-OK-NOT-CONFIRMED OR ACUP-CHANGES-OKAYED-AND-DONE
 MOVE LOW-VALUES TO WS-NON-KEY-FLAGSCOACTUPC.cbl:1466
  1. NO-CHANGES-FOUND OR ACUP-CHANGES-OK-NOT-CONFIRMED OR ACUP-CHANGES-OKAYED-AND-DONE
 GO TO 1200-EDIT-MAP-INPUTS-EXITCOACTUPC.cbl:1467
always MOVE 'Account Status' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1472
always MOVE 'Open Date' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1478
always MOVE 'Credit Limit' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1484
always MOVE 'Expiry Date' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1490
always MOVE 'Cash Credit Limit' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1496
always MOVE 'Reissue Date' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1503
always MOVE 'Current Balance' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1509
always MOVE 'Current Cycle Credit Limit' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1515
always MOVE 'Current Cycle Debit Limit' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1522
always MOVE 'SSN' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1529
always MOVE 'Date of Birth' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1533
  1. WS-EDIT-DT-OF-BIRTH-ISVALID
 PERFORM EDIT-DATE-OF-BIRTH THRU EDIT-DATE-OF-BIRTH-EXITCOACTUPC.cbl:1540–1541
  1. WS-EDIT-DT-OF-BIRTH-ISVALID
 MOVE WS-EDIT-DATE-FLGS TO WS-EDIT-DT-OF-BIRTH-FLGSCOACTUPC.cbl:1542
always MOVE 'FICO Score' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1545
  1. FLG-FICO-SCORE-ISVALID
 PERFORM 1275-EDIT-FICO-SCORE THRU 1275-EDIT-FICO-SCORE-EXITCOACTUPC.cbl:1554–1555
always MOVE 'First Name' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1560
always MOVE 'Middle Name' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1568
always MOVE 'Last Name' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1576
always MOVE 'Address Line 1' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1584
always MOVE 'State' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1592
  1. FLG-ALPHA-ISVALID
 PERFORM 1270-EDIT-US-STATE-CD THRU 1270-EDIT-US-STATE-CD-EXITCOACTUPC.cbl:1600–1601
always MOVE 'Zip' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1605
always MOVE 'City' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1615
always MOVE 'Country' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1623
always MOVE 'Phone Number 1' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1632
always MOVE 'Phone Number 2' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1640
always MOVE 'EFT Account Id' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1648
always MOVE 'Primary Card Holder' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:1657
  1. FLG-STATE-ISVALID AND FLG-ZIPCODE-ISVALID
 PERFORM 1280-EDIT-US-STATE-ZIP-CD THRU 1280-EDIT-US-STATE-ZIP-CD-EXITCOACTUPC.cbl:1667–1668
  1. NOT (INPUT-ERROR)
 SET ACUP-CHANGES-OK-NOT-CONFIRMED TO TRUECOACTUPC.cbl:1674
5 rules

1205-COMPARE-OLD-NEW

WhenThenAt
  1. NOT (ACUP-NEW-ACCT-ID-X = ACUP-OLD-ACCT-ID-X AND FUNCTION UPPER-CASE ( ACUP-NEW-ACTIVE-STATUS) = FUNCTION UPPER-CASE ( ACUP-OLD-ACTIVE-STATUS) AND ACUP-NEW-CURR-BAL = ACUP-OLD-CURR-BAL AND ACUP-NEW-CREDIT-LIMIT = ACUP-OLD-CREDIT-LIMIT AND ACUP-NEW-CASH-CREDIT-LIMIT = ACUP-OLD-CASH-CREDIT-LIMIT AND ACUP-NEW-OPEN-DATE = ACUP-OLD-OPEN-DATE AND ACUP-NEW-EXPIRAION-DATE = ACUP-OLD-EXPIRAION-DATE AND ACUP-NEW-REISSUE-DATE = ACUP-OLD-REISSUE-DATE AND ACUP-NEW-CURR-CYC-CREDIT = ACUP-OLD-CURR-CYC-CREDIT AND ACUP-NEW-CURR-CYC-DEBIT = ACUP-OLD-CURR-CYC-DEBIT AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-GROUP-ID))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-GROUP-ID)))
 SET CHANGE-HAS-OCCURRED TO TRUECOACTUPC.cbl:1703
  1. NOT (ACUP-NEW-ACCT-ID-X = ACUP-OLD-ACCT-ID-X AND FUNCTION UPPER-CASE ( ACUP-NEW-ACTIVE-STATUS) = FUNCTION UPPER-CASE ( ACUP-OLD-ACTIVE-STATUS) AND ACUP-NEW-CURR-BAL = ACUP-OLD-CURR-BAL AND ACUP-NEW-CREDIT-LIMIT = ACUP-OLD-CREDIT-LIMIT AND ACUP-NEW-CASH-CREDIT-LIMIT = ACUP-OLD-CASH-CREDIT-LIMIT AND ACUP-NEW-OPEN-DATE = ACUP-OLD-OPEN-DATE AND ACUP-NEW-EXPIRAION-DATE = ACUP-OLD-EXPIRAION-DATE AND ACUP-NEW-REISSUE-DATE = ACUP-OLD-REISSUE-DATE AND ACUP-NEW-CURR-CYC-CREDIT = ACUP-OLD-CURR-CYC-CREDIT AND ACUP-NEW-CURR-CYC-DEBIT = ACUP-OLD-CURR-CYC-DEBIT AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-GROUP-ID))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-GROUP-ID)))
 GO TO 1205-COMPARE-OLD-NEW-EXITCOACTUPC.cbl:1704
  1. FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ID-X))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ID-X)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-FIRST-NAME))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-FIRST-NAME)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-MIDDLE-NAME))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-MIDDLE-NAME)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-LAST-NAME))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-LAST-NAME)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-LINE-1))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-LINE-1)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-LINE-2))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-LINE-2)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-LINE-3))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-LINE-3)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-STATE-CD))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-STATE-CD)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-COUNTRY-CD))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-COUNTRY-CD)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-ZIP))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-ZIP)) AND ACUP-NEW-CUST-PHONE-NUM-1A = ACUP-OLD-CUST-PHONE-NUM-1A AND ACUP-NEW-CUST-PHONE-NUM-1B = ACUP-OLD-CUST-PHONE-NUM-1B AND ACUP-NEW-CUST-PHONE-NUM-1C = ACUP-OLD-CUST-PHONE-NUM-1C AND ACUP-NEW-CUST-PHONE-NUM-2A = ACUP-OLD-CUST-PHONE-NUM-2A AND ACUP-NEW-CUST-PHONE-NUM-2B = ACUP-OLD-CUST-PHONE-NUM-2B AND ACUP-NEW-CUST-PHONE-NUM-2C = ACUP-OLD-CUST-PHONE-NUM-2C AND ACUP-NEW-CUST-SSN-X = ACUP-OLD-CUST-SSN-X AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-GOVT-ISSUED-ID ))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-GOVT-ISSUED-ID)) AND ACUP-NEW-CUST-DOB-YYYY-MM-DD = ACUP-OLD-CUST-DOB-YYYY-MM-DD AND ACUP-NEW-CUST-EFT-ACCOUNT-ID = ACUP-OLD-CUST-EFT-ACCOUNT-ID AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-PRI-HOLDER-IND))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-PRI-HOLDER-IND)) AND ACUP-NEW-CUST-FICO-SCORE-X = ACUP-OLD-CUST-FICO-SCORE-X
 SET NO-CHANGES-DETECTED TO TRUECOACTUPC.cbl:1769
  1. NOT (FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ID-X))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ID-X)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-FIRST-NAME))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-FIRST-NAME)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-MIDDLE-NAME))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-MIDDLE-NAME)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-LAST-NAME))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-LAST-NAME)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-LINE-1))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-LINE-1)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-LINE-2))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-LINE-2)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-LINE-3))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-LINE-3)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-STATE-CD))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-STATE-CD)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-COUNTRY-CD))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-COUNTRY-CD)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-ZIP))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-ZIP)) AND ACUP-NEW-CUST-PHONE-NUM-1A = ACUP-OLD-CUST-PHONE-NUM-1A AND ACUP-NEW-CUST-PHONE-NUM-1B = ACUP-OLD-CUST-PHONE-NUM-1B AND ACUP-NEW-CUST-PHONE-NUM-1C = ACUP-OLD-CUST-PHONE-NUM-1C AND ACUP-NEW-CUST-PHONE-NUM-2A = ACUP-OLD-CUST-PHONE-NUM-2A AND ACUP-NEW-CUST-PHONE-NUM-2B = ACUP-OLD-CUST-PHONE-NUM-2B AND ACUP-NEW-CUST-PHONE-NUM-2C = ACUP-OLD-CUST-PHONE-NUM-2C AND ACUP-NEW-CUST-SSN-X = ACUP-OLD-CUST-SSN-X AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-GOVT-ISSUED-ID ))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-GOVT-ISSUED-ID)) AND ACUP-NEW-CUST-DOB-YYYY-MM-DD = ACUP-OLD-CUST-DOB-YYYY-MM-DD AND ACUP-NEW-CUST-EFT-ACCOUNT-ID = ACUP-OLD-CUST-EFT-ACCOUNT-ID AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-PRI-HOLDER-IND))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-PRI-HOLDER-IND)) AND ACUP-NEW-CUST-FICO-SCORE-X = ACUP-OLD-CUST-FICO-SCORE-X)
 SET CHANGE-HAS-OCCURRED TO TRUECOACTUPC.cbl:1771
  1. NOT (FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ID-X))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ID-X)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-FIRST-NAME))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-FIRST-NAME)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-MIDDLE-NAME))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-MIDDLE-NAME)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-LAST-NAME))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-LAST-NAME)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-LINE-1))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-LINE-1)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-LINE-2))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-LINE-2)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-LINE-3))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-LINE-3)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-STATE-CD))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-STATE-CD)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-COUNTRY-CD))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-COUNTRY-CD)) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-ADDR-ZIP))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-ADDR-ZIP)) AND ACUP-NEW-CUST-PHONE-NUM-1A = ACUP-OLD-CUST-PHONE-NUM-1A AND ACUP-NEW-CUST-PHONE-NUM-1B = ACUP-OLD-CUST-PHONE-NUM-1B AND ACUP-NEW-CUST-PHONE-NUM-1C = ACUP-OLD-CUST-PHONE-NUM-1C AND ACUP-NEW-CUST-PHONE-NUM-2A = ACUP-OLD-CUST-PHONE-NUM-2A AND ACUP-NEW-CUST-PHONE-NUM-2B = ACUP-OLD-CUST-PHONE-NUM-2B AND ACUP-NEW-CUST-PHONE-NUM-2C = ACUP-OLD-CUST-PHONE-NUM-2C AND ACUP-NEW-CUST-SSN-X = ACUP-OLD-CUST-SSN-X AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-GOVT-ISSUED-ID ))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-GOVT-ISSUED-ID)) AND ACUP-NEW-CUST-DOB-YYYY-MM-DD = ACUP-OLD-CUST-DOB-YYYY-MM-DD AND ACUP-NEW-CUST-EFT-ACCOUNT-ID = ACUP-OLD-CUST-EFT-ACCOUNT-ID AND FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-NEW-CUST-PRI-HOLDER-IND))= FUNCTION UPPER-CASE ( FUNCTION TRIM (ACUP-OLD-CUST-PRI-HOLDER-IND)) AND ACUP-NEW-CUST-FICO-SCORE-X = ACUP-OLD-CUST-FICO-SCORE-X)
 GO TO 1205-COMPARE-OLD-NEW-EXITCOACTUPC.cbl:1772
11 rules

1210-EDIT-ACCOUNT

WhenThenAt
  1. CC-ACCT-ID EQUAL LOW-VALUES OR CC-ACCT-ID EQUAL SPACES
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:1789
  1. CC-ACCT-ID EQUAL LOW-VALUES OR CC-ACCT-ID EQUAL SPACES
 SET FLG-ACCTFILTER-BLANK TO TRUECOACTUPC.cbl:1790
  1. CC-ACCT-ID EQUAL LOW-VALUES OR CC-ACCT-ID EQUAL SPACES
  2. WS-RETURN-MSG-OFF
 SET WS-PROMPT-FOR-ACCT TO TRUECOACTUPC.cbl:1792
  1. CC-ACCT-ID EQUAL LOW-VALUES OR CC-ACCT-ID EQUAL SPACES
 MOVE ZEROES TO CDEMO-ACCT-ID ACUP-NEW-ACCT-IDCOACTUPC.cbl:1794–1795
  1. CC-ACCT-ID EQUAL LOW-VALUES OR CC-ACCT-ID EQUAL SPACES
 GO TO 1210-EDIT-ACCOUNT-EXITCOACTUPC.cbl:1796
  1. CC-ACCT-ID IS NOT NUMERIC OR CC-ACCT-ID-N EQUAL ZEROS
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:1804
  1. CC-ACCT-ID IS NOT NUMERIC OR CC-ACCT-ID-N EQUAL ZEROS
  2. WS-RETURN-MSG-OFF
 STRING 'Account Number if supplied must be a 11 digit' ' Non-Zero Number' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:1806–1810
  1. CC-ACCT-ID IS NOT NUMERIC OR CC-ACCT-ID-N EQUAL ZEROS
 MOVE ZEROES TO CDEMO-ACCT-IDCOACTUPC.cbl:1812
  1. CC-ACCT-ID IS NOT NUMERIC OR CC-ACCT-ID-N EQUAL ZEROS
 GO TO 1210-EDIT-ACCOUNT-EXITCOACTUPC.cbl:1813
  1. NOT (CC-ACCT-ID IS NOT NUMERIC OR CC-ACCT-ID-N EQUAL ZEROS)
 MOVE CC-ACCT-ID TO CDEMO-ACCT-IDCOACTUPC.cbl:1815
  1. NOT (CC-ACCT-ID IS NOT NUMERIC OR CC-ACCT-ID-N EQUAL ZEROS)
 SET FLG-ACCTFILTER-ISVALID TO TRUECOACTUPC.cbl:1816
4 rules

1215-EDIT-MANDATORY

WhenThenAt
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:1836
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 SET FLG-MANDATORY-BLANK TO TRUECOACTUPC.cbl:1837
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' must be supplied.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:1839–1843
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 GO TO 1215-EDIT-MANDATORY-EXITCOACTUPC.cbl:1847
8 rules

1220-EDIT-YESNO

WhenThenAt
  1. WS-EDIT-YES-NO EQUAL LOW-VALUES OR WS-EDIT-YES-NO EQUAL SPACES OR WS-EDIT-YES-NO EQUAL ZEROS
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:1864
  1. WS-EDIT-YES-NO EQUAL LOW-VALUES OR WS-EDIT-YES-NO EQUAL SPACES OR WS-EDIT-YES-NO EQUAL ZEROS
 SET FLG-YES-NO-BLANK TO TRUECOACTUPC.cbl:1865
  1. WS-EDIT-YES-NO EQUAL LOW-VALUES OR WS-EDIT-YES-NO EQUAL SPACES OR WS-EDIT-YES-NO EQUAL ZEROS
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' must be supplied.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:1867–1871
  1. WS-EDIT-YES-NO EQUAL LOW-VALUES OR WS-EDIT-YES-NO EQUAL SPACES OR WS-EDIT-YES-NO EQUAL ZEROS
 GO TO 1220-EDIT-YESNO-EXITCOACTUPC.cbl:1874
  1. NOT (FLG-YES-NO-ISVALID)
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:1881
  1. NOT (FLG-YES-NO-ISVALID)
 SET FLG-YES-NO-NOT-OK TO TRUECOACTUPC.cbl:1882
  1. NOT (FLG-YES-NO-ISVALID)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' must be Y or N.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:1884–1888
  1. NOT (FLG-YES-NO-ISVALID)
 GO TO 1220-EDIT-YESNO-EXITCOACTUPC.cbl:1891
8 rules

1225-EDIT-ALPHA-REQD

WhenThenAt
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:1910
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 SET FLG-ALPHA-BLANK TO TRUECOACTUPC.cbl:1911
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' must be supplied.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:1913–1917
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 GO TO 1225-EDIT-ALPHA-REQD-EXITCOACTUPC.cbl:1921
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:1936
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 SET FLG-ALPHA-NOT-OK TO TRUECOACTUPC.cbl:1937
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' can have alphabets only.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:1939–1943
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 GO TO 1225-EDIT-ALPHA-REQD-EXITCOACTUPC.cbl:1946
8 rules

1230-EDIT-ALPHANUM-REQD

WhenThenAt
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:1967
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 SET FLG-ALPHNANUM-BLANK TO TRUECOACTUPC.cbl:1968
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' must be supplied.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:1970–1974
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 GO TO 1230-EDIT-ALPHANUM-REQD-EXITCOACTUPC.cbl:1978
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:1994
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 SET FLG-ALPHNANUM-NOT-OK TO TRUECOACTUPC.cbl:1995
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' can have numbers or alphabets only.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:1997–2001
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 GO TO 1230-EDIT-ALPHANUM-REQD-EXITCOACTUPC.cbl:2004
6 rules

1235-EDIT-ALPHA-OPT

WhenThenAt
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 SET FLG-ALPHA-ISVALID TO TRUECOACTUPC.cbl:2024
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 GO TO 1235-EDIT-ALPHA-OPT-EXITCOACTUPC.cbl:2025
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2042
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 SET FLG-ALPHA-NOT-OK TO TRUECOACTUPC.cbl:2043
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' can have alphabets only.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2045–2049
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 GO TO 1235-EDIT-ALPHA-OPT-EXITCOACTUPC.cbl:2052
6 rules

1240-EDIT-ALPHANUM-OPT

WhenThenAt
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 SET FLG-ALPHNANUM-ISVALID TO TRUECOACTUPC.cbl:2072
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 GO TO 1240-EDIT-ALPHANUM-OPT-EXITCOACTUPC.cbl:2073
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2090
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 SET FLG-ALPHNANUM-NOT-OK TO TRUECOACTUPC.cbl:2091
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' can have numbers or alphabets only.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2093–2097
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 GO TO 1240-EDIT-ALPHANUM-OPT-EXITCOACTUPC.cbl:2100
12 rules

1245-EDIT-NUM-REQD

WhenThenAt
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2121
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 SET FLG-ALPHNANUM-BLANK TO TRUECOACTUPC.cbl:2122
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' must be supplied.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2124–2128
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 GO TO 1245-EDIT-NUM-REQD-EXITCOACTUPC.cbl:2132
  1. NOT (WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) IS NUMERIC)
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2141
  1. NOT (WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) IS NUMERIC)
 SET FLG-ALPHNANUM-NOT-OK TO TRUECOACTUPC.cbl:2142
  1. NOT (WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) IS NUMERIC)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' must be all numeric.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2144–2148
  1. NOT (WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) IS NUMERIC)
 GO TO 1245-EDIT-NUM-REQD-EXITCOACTUPC.cbl:2151
  1. FUNCTION NUMVAL(WS-EDIT-ALPHANUM-ONLY(1: WS-EDIT-ALPHANUM-LENGTH)) = 0
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2158
  1. FUNCTION NUMVAL(WS-EDIT-ALPHANUM-ONLY(1: WS-EDIT-ALPHANUM-LENGTH)) = 0
 SET FLG-ALPHNANUM-NOT-OK TO TRUECOACTUPC.cbl:2159
  1. FUNCTION NUMVAL(WS-EDIT-ALPHANUM-ONLY(1: WS-EDIT-ALPHANUM-LENGTH)) = 0
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' must not be zero.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2161–2165
  1. FUNCTION NUMVAL(WS-EDIT-ALPHANUM-ONLY(1: WS-EDIT-ALPHANUM-LENGTH)) = 0
 GO TO 1245-EDIT-NUM-REQD-EXITCOACTUPC.cbl:2168
8 rules

1250-EDIT-SIGNED-9V2

WhenThenAt
  1. WS-EDIT-SIGNED-NUMBER-9V2-X EQUAL LOW-VALUES OR WS-EDIT-SIGNED-NUMBER-9V2-X EQUAL SPACES
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2186
  1. WS-EDIT-SIGNED-NUMBER-9V2-X EQUAL LOW-VALUES OR WS-EDIT-SIGNED-NUMBER-9V2-X EQUAL SPACES
 SET FLG-SIGNED-NUMBER-BLANK TO TRUECOACTUPC.cbl:2187
  1. WS-EDIT-SIGNED-NUMBER-9V2-X EQUAL LOW-VALUES OR WS-EDIT-SIGNED-NUMBER-9V2-X EQUAL SPACES
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' must be supplied.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2189–2193
  1. WS-EDIT-SIGNED-NUMBER-9V2-X EQUAL LOW-VALUES OR WS-EDIT-SIGNED-NUMBER-9V2-X EQUAL SPACES
 GO TO 1250-EDIT-SIGNED-9V2-EXITCOACTUPC.cbl:2196
  1. NOT (FUNCTION TEST-NUMVAL-C(WS-EDIT-SIGNED-NUMBER-9V2-X) = 0)
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2204
  1. NOT (FUNCTION TEST-NUMVAL-C(WS-EDIT-SIGNED-NUMBER-9V2-X) = 0)
 SET FLG-SIGNED-NUMBER-NOT-OK TO TRUECOACTUPC.cbl:2205
  1. NOT (FUNCTION TEST-NUMVAL-C(WS-EDIT-SIGNED-NUMBER-9V2-X) = 0)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' is not valid' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2207–2211
  1. NOT (FUNCTION TEST-NUMVAL-C(WS-EDIT-SIGNED-NUMBER-9V2-X) = 0)
 GO TO 1250-EDIT-SIGNED-9V2-EXITCOACTUPC.cbl:2213
2 rules

1260-EDIT-US-PHONE-NUM

WhenThenAt
  1. (WS-EDIT-US-PHONE-NUMA EQUAL SPACES OR WS-EDIT-US-PHONE-NUMA EQUAL LOW-VALUES) AND (WS-EDIT-US-PHONE-NUMB EQUAL SPACES OR WS-EDIT-US-PHONE-NUMB EQUAL LOW-VALUES) AND (WS-EDIT-US-PHONE-NUMA EQUAL SPACES OR WS-EDIT-US-PHONE-NUMC EQUAL LOW-VALUES)
 SET WS-EDIT-US-PHONE-IS-VALID TO TRUECOACTUPC.cbl:2240
  1. (WS-EDIT-US-PHONE-NUMA EQUAL SPACES OR WS-EDIT-US-PHONE-NUMA EQUAL LOW-VALUES) AND (WS-EDIT-US-PHONE-NUMB EQUAL SPACES OR WS-EDIT-US-PHONE-NUMB EQUAL LOW-VALUES) AND (WS-EDIT-US-PHONE-NUMA EQUAL SPACES OR WS-EDIT-US-PHONE-NUMC EQUAL LOW-VALUES)
 GO TO EDIT-US-PHONE-EXITCOACTUPC.cbl:2241
16 rules

EDIT-AREA-CODE

WhenThenAt
  1. WS-EDIT-US-PHONE-NUMA EQUAL SPACES OR WS-EDIT-US-PHONE-NUMA EQUAL LOW-VALUES
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2249
  1. WS-EDIT-US-PHONE-NUMA EQUAL SPACES OR WS-EDIT-US-PHONE-NUMA EQUAL LOW-VALUES
 SET FLG-EDIT-US-PHONEA-BLANK TO TRUECOACTUPC.cbl:2250
  1. WS-EDIT-US-PHONE-NUMA EQUAL SPACES OR WS-EDIT-US-PHONE-NUMA EQUAL LOW-VALUES
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ': Area code must be supplied.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2252–2256
  1. WS-EDIT-US-PHONE-NUMA EQUAL SPACES OR WS-EDIT-US-PHONE-NUMA EQUAL LOW-VALUES
 GO TO EDIT-US-PHONE-PREFIXCOACTUPC.cbl:2259
  1. NOT (WS-EDIT-US-PHONE-NUMA IS NUMERIC)
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2267
  1. NOT (WS-EDIT-US-PHONE-NUMA IS NUMERIC)
 SET FLG-EDIT-US-PHONEA-NOT-OK TO TRUECOACTUPC.cbl:2268
  1. NOT (WS-EDIT-US-PHONE-NUMA IS NUMERIC)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ': Area code must be A 3 digit number.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2270–2274
  1. NOT (WS-EDIT-US-PHONE-NUMA IS NUMERIC)
 GO TO EDIT-US-PHONE-PREFIXCOACTUPC.cbl:2277
  1. WS-EDIT-US-PHONE-NUMA-N = 0
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2281
  1. WS-EDIT-US-PHONE-NUMA-N = 0
 SET FLG-EDIT-US-PHONEA-NOT-OK TO TRUECOACTUPC.cbl:2282
  1. WS-EDIT-US-PHONE-NUMA-N = 0
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ': Area code cannot be zero' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2284–2288
  1. WS-EDIT-US-PHONE-NUMA-N = 0
 GO TO EDIT-US-PHONE-PREFIXCOACTUPC.cbl:2291
  1. NOT (VALID-GENERAL-PURP-CODE)
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2301
  1. NOT (VALID-GENERAL-PURP-CODE)
 SET FLG-EDIT-US-PHONEA-NOT-OK TO TRUECOACTUPC.cbl:2302
  1. NOT (VALID-GENERAL-PURP-CODE)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ': Not valid North America general purpose area code' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2304–2308
  1. NOT (VALID-GENERAL-PURP-CODE)
 GO TO EDIT-US-PHONE-PREFIXCOACTUPC.cbl:2311
12 rules

EDIT-US-PHONE-PREFIX

WhenThenAt
  1. WS-EDIT-US-PHONE-NUMB EQUAL SPACES OR WS-EDIT-US-PHONE-NUMB EQUAL LOW-VALUES
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2320
  1. WS-EDIT-US-PHONE-NUMB EQUAL SPACES OR WS-EDIT-US-PHONE-NUMB EQUAL LOW-VALUES
 SET FLG-EDIT-US-PHONEB-BLANK TO TRUECOACTUPC.cbl:2321
  1. WS-EDIT-US-PHONE-NUMB EQUAL SPACES OR WS-EDIT-US-PHONE-NUMB EQUAL LOW-VALUES
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ': Prefix code must be supplied.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2323–2327
  1. WS-EDIT-US-PHONE-NUMB EQUAL SPACES OR WS-EDIT-US-PHONE-NUMB EQUAL LOW-VALUES
 GO TO EDIT-US-PHONE-LINENUMCOACTUPC.cbl:2330
  1. NOT (WS-EDIT-US-PHONE-NUMB IS NUMERIC)
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2338
  1. NOT (WS-EDIT-US-PHONE-NUMB IS NUMERIC)
 SET FLG-EDIT-US-PHONEB-NOT-OK TO TRUECOACTUPC.cbl:2339
  1. NOT (WS-EDIT-US-PHONE-NUMB IS NUMERIC)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ': Prefix code must be A 3 digit number.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2341–2345
  1. NOT (WS-EDIT-US-PHONE-NUMB IS NUMERIC)
 GO TO EDIT-US-PHONE-LINENUMCOACTUPC.cbl:2348
  1. WS-EDIT-US-PHONE-NUMB-N = 0
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2352
  1. WS-EDIT-US-PHONE-NUMB-N = 0
 SET FLG-EDIT-US-PHONEB-NOT-OK TO TRUECOACTUPC.cbl:2353
  1. WS-EDIT-US-PHONE-NUMB-N = 0
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ': Prefix code cannot be zero' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2355–2359
  1. WS-EDIT-US-PHONE-NUMB-N = 0
 GO TO EDIT-US-PHONE-LINENUMCOACTUPC.cbl:2362
12 rules

EDIT-US-PHONE-LINENUM

WhenThenAt
  1. WS-EDIT-US-PHONE-NUMC EQUAL SPACES OR WS-EDIT-US-PHONE-NUMC EQUAL LOW-VALUES
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2373
  1. WS-EDIT-US-PHONE-NUMC EQUAL SPACES OR WS-EDIT-US-PHONE-NUMC EQUAL LOW-VALUES
 SET FLG-EDIT-US-PHONEC-BLANK TO TRUECOACTUPC.cbl:2374
  1. WS-EDIT-US-PHONE-NUMC EQUAL SPACES OR WS-EDIT-US-PHONE-NUMC EQUAL LOW-VALUES
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ': Line number code must be supplied.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2376–2380
  1. WS-EDIT-US-PHONE-NUMC EQUAL SPACES OR WS-EDIT-US-PHONE-NUMC EQUAL LOW-VALUES
 GO TO EDIT-US-PHONE-EXITCOACTUPC.cbl:2383
  1. NOT (WS-EDIT-US-PHONE-NUMC IS NUMERIC)
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2391
  1. NOT (WS-EDIT-US-PHONE-NUMC IS NUMERIC)
 SET FLG-EDIT-US-PHONEC-NOT-OK TO TRUECOACTUPC.cbl:2392
  1. NOT (WS-EDIT-US-PHONE-NUMC IS NUMERIC)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ': Line number code must be A 4 digit number.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2394–2398
  1. NOT (WS-EDIT-US-PHONE-NUMC IS NUMERIC)
 GO TO EDIT-US-PHONE-EXITCOACTUPC.cbl:2401
  1. WS-EDIT-US-PHONE-NUMC-N = 0
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2405
  1. WS-EDIT-US-PHONE-NUMC-N = 0
 SET FLG-EDIT-US-PHONEC-NOT-OK TO TRUECOACTUPC.cbl:2406
  1. WS-EDIT-US-PHONE-NUMC-N = 0
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ': Line number code cannot be zero' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2408–2412
  1. WS-EDIT-US-PHONE-NUMC-N = 0
 GO TO EDIT-US-PHONE-EXITCOACTUPC.cbl:2415
15 rules

1265-EDIT-US-SSN

WhenThenAt
always MOVE 'SSN: First 3 chars' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:2439
  1. FLG-EDIT-US-SSN-PART1-ISVALID
 MOVE ACUP-NEW-CUST-SSN-1 TO WS-EDIT-US-SSN-PART1COACTUPC.cbl:2449
  1. FLG-EDIT-US-SSN-PART1-ISVALID
  2. INVALID-SSN-PART1
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2451
  1. FLG-EDIT-US-SSN-PART1-ISVALID
  2. INVALID-SSN-PART1
 SET FLG-EDIT-US-SSN-PART1-NOT-OK TO TRUECOACTUPC.cbl:2452–2453
  1. FLG-EDIT-US-SSN-PART1-ISVALID
  2. INVALID-SSN-PART1
  3. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ': should not be 000, 666, or between 900 and 999' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2455–2459
  1. FLG-EDIT-US-SSN-PART1-ISVALID
 MOVE 'SSN 4th & 5th chars' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:2469
  1. FLG-EDIT-US-SSN-PART1-ISVALID
 MOVE ACUP-NEW-CUST-SSN-2 TO WS-EDIT-ALPHANUM-ONLYCOACTUPC.cbl:2470
  1. FLG-EDIT-US-SSN-PART1-ISVALID
 MOVE 2 TO WS-EDIT-ALPHANUM-LENGTHCOACTUPC.cbl:2471
  1. FLG-EDIT-US-SSN-PART1-ISVALID
 PERFORM 1245-EDIT-NUM-REQD THRU 1245-EDIT-NUM-REQD-EXITCOACTUPC.cbl:2472–2473
  1. FLG-EDIT-US-SSN-PART1-ISVALID
 MOVE WS-EDIT-ALPHANUM-ONLY-FLAGS TO WS-EDIT-US-SSN-PART2-FLGSCOACTUPC.cbl:2474–2475
  1. FLG-EDIT-US-SSN-PART1-ISVALID
 MOVE 'SSN Last 4 chars' TO WS-EDIT-VARIABLE-NAMECOACTUPC.cbl:2481
  1. FLG-EDIT-US-SSN-PART1-ISVALID
 MOVE ACUP-NEW-CUST-SSN-3 TO WS-EDIT-ALPHANUM-ONLYCOACTUPC.cbl:2482
  1. FLG-EDIT-US-SSN-PART1-ISVALID
 MOVE 4 TO WS-EDIT-ALPHANUM-LENGTHCOACTUPC.cbl:2483
  1. FLG-EDIT-US-SSN-PART1-ISVALID
 PERFORM 1245-EDIT-NUM-REQD THRU 1245-EDIT-NUM-REQD-EXITCOACTUPC.cbl:2484–2485
  1. FLG-EDIT-US-SSN-PART1-ISVALID
 MOVE WS-EDIT-ALPHANUM-ONLY-FLAGS TO WS-EDIT-US-SSN-PART3-FLGSCOACTUPC.cbl:2486–2487
4 rules

1270-EDIT-US-STATE-CD

WhenThenAt
  1. NOT (VALID-US-STATE-CODE)
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2498
  1. NOT (VALID-US-STATE-CODE)
 SET FLG-STATE-NOT-OK TO TRUECOACTUPC.cbl:2499
  1. NOT (VALID-US-STATE-CODE)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ': is not a valid state code' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2501–2505
  1. NOT (VALID-US-STATE-CODE)
 GO TO 1270-EDIT-US-STATE-CD-EXITCOACTUPC.cbl:2508
4 rules

1275-EDIT-FICO-SCORE

WhenThenAt
  1. NOT (FICO-RANGE-IS-VALID)
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2518
  1. NOT (FICO-RANGE-IS-VALID)
 SET FLG-FICO-SCORE-NOT-OK TO TRUECOACTUPC.cbl:2519
  1. NOT (FICO-RANGE-IS-VALID)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ': should be between 300 and 850' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2521–2525
  1. NOT (FICO-RANGE-IS-VALID)
 GO TO 1275-EDIT-FICO-SCORE-EXITCOACTUPC.cbl:2528
5 rules

1280-EDIT-US-STATE-ZIP-CD

WhenThenAt
  1. NOT (VALID-US-STATE-ZIP-CD2-COMBO)
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:2545
  1. NOT (VALID-US-STATE-ZIP-CD2-COMBO)
 SET FLG-STATE-NOT-OK TO TRUECOACTUPC.cbl:2546
  1. NOT (VALID-US-STATE-ZIP-CD2-COMBO)
 SET FLG-ZIPCODE-NOT-OK TO TRUECOACTUPC.cbl:2547
  1. NOT (VALID-US-STATE-ZIP-CD2-COMBO)
  2. WS-RETURN-MSG-OFF
 STRING 'Invalid zip code for state' DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:2549–2552
  1. NOT (VALID-US-STATE-ZIP-CD2-COMBO)
 GO TO 1280-EDIT-US-STATE-ZIP-CD-EXITCOACTUPC.cbl:2555
17 rules

2000-DECIDE-ACTION

WhenThenAt
  1. ACUP-DETAILS-NOT-FETCHED | CCARD-AID-PFK12
  2. FLG-ACCTFILTER-ISVALID
 SET WS-RETURN-MSG-OFF TO TRUECOACTUPC.cbl:2574
  1. ACUP-DETAILS-NOT-FETCHED | CCARD-AID-PFK12
  2. FLG-ACCTFILTER-ISVALID
 PERFORM 9000-READ-ACCT THRU 9000-READ-ACCT-EXITCOACTUPC.cbl:2575–2576
  1. ACUP-DETAILS-NOT-FETCHED | CCARD-AID-PFK12
  2. FLG-ACCTFILTER-ISVALID
  3. FOUND-CUST-IN-MASTER
 SET ACUP-SHOW-DETAILS TO TRUECOACTUPC.cbl:2578
  1. ACUP-SHOW-DETAILS
  2. NOT (INPUT-ERROR OR NO-CHANGES-DETECTED)
 SET ACUP-CHANGES-OK-NOT-CONFIRMED TO TRUECOACTUPC.cbl:2590
  1. ACUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05
 PERFORM 9600-WRITE-PROCESSING THRU 9600-WRITE-PROCESSING-EXITCOACTUPC.cbl:2604–2605
  1. ACUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05
  2. COULD-NOT-LOCK-ACCT-FOR-UPDATE
 SET ACUP-CHANGES-OKAYED-LOCK-ERROR TO TRUECOACTUPC.cbl:2608
  1. ACUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05
  2. LOCKED-BUT-UPDATE-FAILED
 SET ACUP-CHANGES-OKAYED-BUT-FAILED TO TRUECOACTUPC.cbl:2610
  1. ACUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05
  2. DATA-WAS-CHANGED-BEFORE-UPDATE
 SET ACUP-SHOW-DETAILS TO TRUECOACTUPC.cbl:2612
  1. ACUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05
  2. TRUE is none of [COULD-NOT-LOCK-ACCT-FOR-UPDATE; LOCKED-BUT-UPDATE-FAILED; DATA-WAS-CHANGED-BEFORE-UPDATE]
 SET ACUP-CHANGES-OKAYED-AND-DONE TO TRUECOACTUPC.cbl:2614
  1. ACUP-CHANGES-OKAYED-AND-DONE
 SET ACUP-SHOW-DETAILS TO TRUECOACTUPC.cbl:2626
  1. ACUP-CHANGES-OKAYED-AND-DONE
  2. CDEMO-FROM-TRANID EQUAL LOW-VALUES OR CDEMO-FROM-TRANID EQUAL SPACES
 MOVE ZEROES TO CDEMO-ACCT-ID CDEMO-CARD-NUMCOACTUPC.cbl:2629–2630
  1. ACUP-CHANGES-OKAYED-AND-DONE
  2. CDEMO-FROM-TRANID EQUAL LOW-VALUES OR CDEMO-FROM-TRANID EQUAL SPACES
 MOVE LOW-VALUES TO CDEMO-ACCT-STATUSCOACTUPC.cbl:2631
  1. TRUE is none of [ACUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK12; ACUP-SHOW-DETAILS; ACUP-CHANGES-NOT-OK; ACUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05; ACUP-CHANGES-OK-NOT-CONFIRMED; ACUP-CHANGES-OKAYED-AND-DONE]
 MOVE LIT-THISPGM TO ABEND-CULPRITCOACTUPC.cbl:2634
  1. TRUE is none of [ACUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK12; ACUP-SHOW-DETAILS; ACUP-CHANGES-NOT-OK; ACUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05; ACUP-CHANGES-OK-NOT-CONFIRMED; ACUP-CHANGES-OKAYED-AND-DONE]
 MOVE '0001' TO ABEND-CODECOACTUPC.cbl:2635
  1. TRUE is none of [ACUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK12; ACUP-SHOW-DETAILS; ACUP-CHANGES-NOT-OK; ACUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05; ACUP-CHANGES-OK-NOT-CONFIRMED; ACUP-CHANGES-OKAYED-AND-DONE]
 MOVE SPACES TO ABEND-REASONCOACTUPC.cbl:2636
  1. TRUE is none of [ACUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK12; ACUP-SHOW-DETAILS; ACUP-CHANGES-NOT-OK; ACUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05; ACUP-CHANGES-OK-NOT-CONFIRMED; ACUP-CHANGES-OKAYED-AND-DONE]
 MOVE 'UNEXPECTED DATA SCENARIO' TO ABEND-MSGCOACTUPC.cbl:2637–2638
  1. TRUE is none of [ACUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK12; ACUP-SHOW-DETAILS; ACUP-CHANGES-NOT-OK; ACUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05; ACUP-CHANGES-OK-NOT-CONFIRMED; ACUP-CHANGES-OKAYED-AND-DONE]
 PERFORM ABEND-ROUTINE THRU ABEND-ROUTINE-EXITCOACTUPC.cbl:2639–2640
6 rules

3200-SETUP-SCREEN-VARS

WhenThenAt
  1. NOT (CDEMO-PGM-ENTER)
  2. CC-ACCT-ID-N = 0 AND FLG-ACCTFILTER-ISVALID
 MOVE LOW-VALUES TO ACCTSIDO OF CACTUPAOCOACTUPC.cbl:2705
  1. NOT (CDEMO-PGM-ENTER)
  2. NOT (CC-ACCT-ID-N = 0 AND FLG-ACCTFILTER-ISVALID)
 MOVE CC-ACCT-ID TO ACCTSIDO OF CACTUPAOCOACTUPC.cbl:2707
  1. NOT (CDEMO-PGM-ENTER)
  2. ACUP-DETAILS-NOT-FETCHED | CC-ACCT-ID-N = 0
 PERFORM 3201-SHOW-INITIAL-VALUES THRU 3201-SHOW-INITIAL-VALUES-EXITCOACTUPC.cbl:2713–2714
  1. NOT (CDEMO-PGM-ENTER)
  2. ACUP-SHOW-DETAILS
 PERFORM 3202-SHOW-ORIGINAL-VALUES THRU 3202-SHOW-ORIGINAL-VALUES-EXITCOACTUPC.cbl:2716–2717
  1. NOT (CDEMO-PGM-ENTER)
  2. ACUP-CHANGES-MADE
 PERFORM 3203-SHOW-UPDATED-VALUES THRU 3203-SHOW-UPDATED-VALUES-EXITCOACTUPC.cbl:2719–2720
  1. NOT (CDEMO-PGM-ENTER)
  2. TRUE is none of [ACUP-DETAILS-NOT-FETCHED; CC-ACCT-ID-N = 0; ACUP-SHOW-DETAILS; ACUP-CHANGES-MADE]
 PERFORM 3202-SHOW-ORIGINAL-VALUES THRU 3202-SHOW-ORIGINAL-VALUES-EXITCOACTUPC.cbl:2722–2723
47 rules

3202-SHOW-ORIGINAL-VALUES

WhenThenAt
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-ACTIVE-STATUS TO ACSTTUSO OF CACTUPAOCOACTUPC.cbl:2795
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CURR-BAL-N TO WS-EDIT-CURRENCY-9-2-FCOACTUPC.cbl:2797
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE WS-EDIT-CURRENCY-9-2-F TO ACURBALO OF CACTUPAOCOACTUPC.cbl:2798
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CREDIT-LIMIT-N TO WS-EDIT-CURRENCY-9-2-FCOACTUPC.cbl:2800
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE WS-EDIT-CURRENCY-9-2-F TO ACRDLIMO OF CACTUPAOCOACTUPC.cbl:2801
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CASH-CREDIT-LIMIT-N TO WS-EDIT-CURRENCY-9-2-FCOACTUPC.cbl:2803–2804
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE WS-EDIT-CURRENCY-9-2-F TO ACSHLIMO OF CACTUPAOCOACTUPC.cbl:2805
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CURR-CYC-CREDIT-N TO WS-EDIT-CURRENCY-9-2-FCOACTUPC.cbl:2807
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE WS-EDIT-CURRENCY-9-2-F TO ACRCYCRO OF CACTUPAOCOACTUPC.cbl:2808
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CURR-CYC-DEBIT-N TO WS-EDIT-CURRENCY-9-2-FCOACTUPC.cbl:2810
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE WS-EDIT-CURRENCY-9-2-F TO ACRCYDBO OF CACTUPAOCOACTUPC.cbl:2811
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-OPEN-YEAR TO OPNYEARO OF CACTUPAOCOACTUPC.cbl:2813
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-OPEN-MON TO OPNMONO OF CACTUPAOCOACTUPC.cbl:2814
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-OPEN-DAY TO OPNDAYO OF CACTUPAOCOACTUPC.cbl:2815
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-EXP-YEAR TO EXPYEARO OF CACTUPAOCOACTUPC.cbl:2817
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-EXP-MON TO EXPMONO OF CACTUPAOCOACTUPC.cbl:2818
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-EXP-DAY TO EXPDAYO OF CACTUPAOCOACTUPC.cbl:2819
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-REISSUE-YEAR TO RISYEARO OF CACTUPAOCOACTUPC.cbl:2821
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-REISSUE-MON TO RISMONO OF CACTUPAOCOACTUPC.cbl:2822
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-REISSUE-DAY TO RISDAYO OF CACTUPAOCOACTUPC.cbl:2823
  1. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-GROUP-ID TO AADDGRPO OF CACTUPAOCOACTUPC.cbl:2824
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-ID-X TO ACSTNUMO OF CACTUPAOCOACTUPC.cbl:2828
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-SSN-X(1:3) TO ACTSSN1O OF CACTUPAOCOACTUPC.cbl:2829
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-SSN-X(4:2) TO ACTSSN2O OF CACTUPAOCOACTUPC.cbl:2830
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-SSN-X(6:4) TO ACTSSN3O OF CACTUPAOCOACTUPC.cbl:2831
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-FICO-SCORE-X TO ACSTFCOO OF CACTUPAOCOACTUPC.cbl:2832
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-DOB-YEAR TO DOBYEARO OF CACTUPAOCOACTUPC.cbl:2833
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-DOB-MON TO DOBMONO OF CACTUPAOCOACTUPC.cbl:2834
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-DOB-DAY TO DOBDAYO OF CACTUPAOCOACTUPC.cbl:2835
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-FIRST-NAME TO ACSFNAMO OF CACTUPAOCOACTUPC.cbl:2836
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-MIDDLE-NAME TO ACSMNAMO OF CACTUPAOCOACTUPC.cbl:2837
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-LAST-NAME TO ACSLNAMO OF CACTUPAOCOACTUPC.cbl:2838
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-ADDR-LINE-1 TO ACSADL1O OF CACTUPAOCOACTUPC.cbl:2839
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-ADDR-LINE-2 TO ACSADL2O OF CACTUPAOCOACTUPC.cbl:2840
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-ADDR-LINE-3 TO ACSCITYO OF CACTUPAOCOACTUPC.cbl:2841
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-ADDR-STATE-CD TO ACSSTTEO OF CACTUPAOCOACTUPC.cbl:2842
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-ADDR-ZIP TO ACSZIPCO OF CACTUPAOCOACTUPC.cbl:2843
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-ADDR-COUNTRY-CD TO ACSCTRYO OF CACTUPAOCOACTUPC.cbl:2844–2845
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-PHONE-NUM-1(2:3) TO ACSPH1AO OF CACTUPAOCOACTUPC.cbl:2846–2847
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-PHONE-NUM-1(6:3) TO ACSPH1BO OF CACTUPAOCOACTUPC.cbl:2848–2849
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-PHONE-NUM-1(10:4) TO ACSPH1CO OF CACTUPAOCOACTUPC.cbl:2850–2851
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-PHONE-NUM-2(2:3) TO ACSPH2AO OF CACTUPAOCOACTUPC.cbl:2852–2853
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-PHONE-NUM-2(6:3) TO ACSPH2BO OF CACTUPAOCOACTUPC.cbl:2854–2855
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-PHONE-NUM-2(10:4) TO ACSPH2CO OF CACTUPAOCOACTUPC.cbl:2856–2857
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-GOVT-ISSUED-ID TO ACSGOVTO OF CACTUPAOCOACTUPC.cbl:2858–2859
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-EFT-ACCOUNT-ID TO ACSEFTCO OF CACTUPAOCOACTUPC.cbl:2860–2861
  1. FOUND-CUST-IN-MASTER
 MOVE ACUP-OLD-CUST-PRI-HOLDER-IND TO ACSPFLGO OF CACTUPAOCOACTUPC.cbl:2862–2863
15 rules

3203-SHOW-UPDATED-VALUES

WhenThenAt
  1. FLG-CRED-LIMIT-ISVALID
 MOVE ACUP-NEW-CREDIT-LIMIT-N TO WS-EDIT-CURRENCY-9-2-FCOACTUPC.cbl:2875
  1. FLG-CRED-LIMIT-ISVALID
 MOVE WS-EDIT-CURRENCY-9-2-F TO ACRDLIMO OF CACTUPAOCOACTUPC.cbl:2876
  1. NOT (FLG-CRED-LIMIT-ISVALID)
 MOVE ACUP-NEW-CREDIT-LIMIT-X TO ACRDLIMO OF CACTUPAOCOACTUPC.cbl:2878
  1. FLG-CASH-CREDIT-LIMIT-ISVALID
 MOVE ACUP-NEW-CASH-CREDIT-LIMIT-N TO WS-EDIT-CURRENCY-9-2-FCOACTUPC.cbl:2882–2883
  1. FLG-CASH-CREDIT-LIMIT-ISVALID
 MOVE WS-EDIT-CURRENCY-9-2-F TO ACSHLIMO OF CACTUPAOCOACTUPC.cbl:2884
  1. NOT (FLG-CASH-CREDIT-LIMIT-ISVALID)
 MOVE ACUP-NEW-CASH-CREDIT-LIMIT-X TO ACSHLIMO OF CACTUPAOCOACTUPC.cbl:2886–2887
  1. FLG-CURR-BAL-ISVALID
 MOVE ACUP-NEW-CURR-BAL-N TO WS-EDIT-CURRENCY-9-2-FCOACTUPC.cbl:2891
  1. FLG-CURR-BAL-ISVALID
 MOVE WS-EDIT-CURRENCY-9-2-F TO ACURBALO OF CACTUPAOCOACTUPC.cbl:2892
  1. NOT (FLG-CURR-BAL-ISVALID)
 MOVE ACUP-NEW-CURR-BAL-X TO ACURBALO OF CACTUPAOCOACTUPC.cbl:2894
  1. FLG-CURR-CYC-CREDIT-ISVALID
 MOVE ACUP-NEW-CURR-CYC-CREDIT-N TO WS-EDIT-CURRENCY-9-2-FCOACTUPC.cbl:2898
  1. FLG-CURR-CYC-CREDIT-ISVALID
 MOVE WS-EDIT-CURRENCY-9-2-F TO ACRCYCRO OF CACTUPAOCOACTUPC.cbl:2899
  1. NOT (FLG-CURR-CYC-CREDIT-ISVALID)
 MOVE ACUP-NEW-CURR-CYC-CREDIT-X TO ACRCYCRO OF CACTUPAOCOACTUPC.cbl:2901
  1. FLG-CURR-CYC-DEBIT-ISVALID
 MOVE ACUP-NEW-CURR-CYC-DEBIT-N TO WS-EDIT-CURRENCY-9-2-FCOACTUPC.cbl:2905
  1. FLG-CURR-CYC-DEBIT-ISVALID
 MOVE WS-EDIT-CURRENCY-9-2-F TO ACRCYDBO OF CACTUPAOCOACTUPC.cbl:2906
  1. NOT (FLG-CURR-CYC-DEBIT-ISVALID)
 MOVE ACUP-NEW-CURR-CYC-DEBIT-X TO ACRCYDBO OF CACTUPAOCOACTUPC.cbl:2908
9 rules

3250-SETUP-INFOMSG

WhenThenAt
  1. CDEMO-PGM-ENTER
 SET PROMPT-FOR-SEARCH-KEYS TO TRUECOACTUPC.cbl:2959
  1. ACUP-DETAILS-NOT-FETCHED
 SET PROMPT-FOR-SEARCH-KEYS TO TRUECOACTUPC.cbl:2961
  1. ACUP-SHOW-DETAILS
 SET PROMPT-FOR-CHANGES TO TRUECOACTUPC.cbl:2963
  1. ACUP-CHANGES-NOT-OK
 SET PROMPT-FOR-CHANGES TO TRUECOACTUPC.cbl:2965
  1. ACUP-CHANGES-OK-NOT-CONFIRMED
 SET PROMPT-FOR-CONFIRMATION TO TRUECOACTUPC.cbl:2967
  1. ACUP-CHANGES-OKAYED-AND-DONE
 SET CONFIRM-UPDATE-SUCCESS TO TRUECOACTUPC.cbl:2969
  1. ACUP-CHANGES-OKAYED-LOCK-ERROR
 SET INFORM-FAILURE TO TRUECOACTUPC.cbl:2972
  1. ACUP-CHANGES-OKAYED-BUT-FAILED
 SET INFORM-FAILURE TO TRUECOACTUPC.cbl:2974
  1. WS-NO-INFO-MESSAGE
 SET PROMPT-FOR-SEARCH-KEYS TO TRUECOACTUPC.cbl:2976
127 rules

3300-SETUP-SCREEN-ATTRS

WhenThenAt
  1. ACUP-DETAILS-NOT-FETCHED
 MOVE DFHBMFSE TO ACCTSIDA OF CACTUPAICOACTUPC.cbl:2996
  1. ACUP-SHOW-DETAILS | ACUP-CHANGES-NOT-OK
 PERFORM 3320-UNPROTECT-FEW-ATTRS THRU 3320-UNPROTECT-FEW-ATTRS-EXITCOACTUPC.cbl:2999–3000
  1. TRUE is none of [ACUP-DETAILS-NOT-FETCHED; ACUP-SHOW-DETAILS; ACUP-CHANGES-NOT-OK; ACUP-CHANGES-OK-NOT-CONFIRMED; ACUP-CHANGES-OKAYED-AND-DONE]
 MOVE DFHBMFSE TO ACCTSIDA OF CACTUPAICOACTUPC.cbl:3005
  1. FOUND-ACCOUNT-DATA | NO-CHANGES-DETECTED
 MOVE -1 TO ACSTTUSL OF CACTUPAICOACTUPC.cbl:3012
  1. FLG-ACCTFILTER-NOT-OK | FLG-ACCTFILTER-BLANK
 MOVE -1 TO ACCTSIDL OF CACTUPAICOACTUPC.cbl:3015
  1. FLG-ACCT-STATUS-NOT-OK | FLG-ACCT-STATUS-BLANK
 MOVE -1 TO ACSTTUSL OF CACTUPAICOACTUPC.cbl:3019
  1. FLG-OPEN-YEAR-NOT-OK | FLG-OPEN-YEAR-BLANK
 MOVE -1 TO OPNYEARL OF CACTUPAICOACTUPC.cbl:3023
  1. FLG-OPEN-MONTH-NOT-OK | FLG-OPEN-MONTH-BLANK
 MOVE -1 TO OPNMONL OF CACTUPAICOACTUPC.cbl:3027
  1. FLG-OPEN-DAY-NOT-OK | FLG-OPEN-DAY-BLANK
 MOVE -1 TO OPNDAYL OF CACTUPAICOACTUPC.cbl:3031
  1. FLG-CRED-LIMIT-NOT-OK | FLG-CRED-LIMIT-BLANK
 MOVE -1 TO ACRDLIML OF CACTUPAICOACTUPC.cbl:3035
  1. FLG-EXPIRY-YEAR-NOT-OK | FLG-EXPIRY-YEAR-BLANK
 MOVE -1 TO EXPYEARL OF CACTUPAICOACTUPC.cbl:3039
  1. FLG-EXPIRY-MONTH-NOT-OK | FLG-EXPIRY-MONTH-BLANK
 MOVE -1 TO EXPMONL OF CACTUPAICOACTUPC.cbl:3043
  1. FLG-EXPIRY-DAY-NOT-OK | FLG-EXPIRY-DAY-BLANK
 MOVE -1 TO EXPDAYL OF CACTUPAICOACTUPC.cbl:3047
  1. FLG-CASH-CREDIT-LIMIT-NOT-OK | FLG-CASH-CREDIT-LIMIT-BLANK
 MOVE -1 TO ACSHLIML OF CACTUPAICOACTUPC.cbl:3051
  1. FLG-REISSUE-YEAR-NOT-OK | FLG-REISSUE-YEAR-BLANK
 MOVE -1 TO RISYEARL OF CACTUPAICOACTUPC.cbl:3055
  1. FLG-REISSUE-MONTH-NOT-OK | FLG-REISSUE-MONTH-BLANK
 MOVE -1 TO RISMONL OF CACTUPAICOACTUPC.cbl:3059
  1. FLG-REISSUE-DAY-NOT-OK | FLG-REISSUE-DAY-BLANK
 MOVE -1 TO RISDAYL OF CACTUPAICOACTUPC.cbl:3063
  1. FLG-CURR-BAL-NOT-OK | FLG-CURR-BAL-BLANK
 MOVE -1 TO ACURBALL OF CACTUPAICOACTUPC.cbl:3068
  1. FLG-CURR-CYC-CREDIT-NOT-OK | FLG-CURR-CYC-CREDIT-BLANK
 MOVE -1 TO ACRCYCRL OF CACTUPAICOACTUPC.cbl:3072
  1. FLG-CURR-CYC-DEBIT-NOT-OK | FLG-CURR-CYC-DEBIT-BLANK
 MOVE -1 TO ACRCYDBL OF CACTUPAICOACTUPC.cbl:3076
  1. FLG-EDIT-US-SSN-PART1-NOT-OK | FLG-EDIT-US-SSN-PART1-BLANK
 MOVE -1 TO ACTSSN1L OF CACTUPAICOACTUPC.cbl:3080
  1. FLG-EDIT-US-SSN-PART2-NOT-OK | FLG-EDIT-US-SSN-PART2-BLANK
 MOVE -1 TO ACTSSN2L OF CACTUPAICOACTUPC.cbl:3084
  1. FLG-EDIT-US-SSN-PART3-NOT-OK | FLG-EDIT-US-SSN-PART3-BLANK
 MOVE -1 TO ACTSSN3L OF CACTUPAICOACTUPC.cbl:3088
  1. FLG-DT-OF-BIRTH-YEAR-NOT-OK | FLG-DT-OF-BIRTH-YEAR-BLANK
 MOVE -1 TO DOBYEARL OF CACTUPAICOACTUPC.cbl:3092
  1. FLG-DT-OF-BIRTH-MONTH-NOT-OK | FLG-DT-OF-BIRTH-MONTH-BLANK
 MOVE -1 TO DOBMONL OF CACTUPAICOACTUPC.cbl:3096
  1. FLG-DT-OF-BIRTH-DAY-NOT-OK | FLG-DT-OF-BIRTH-DAY-BLANK
 MOVE -1 TO DOBDAYL OF CACTUPAICOACTUPC.cbl:3100
  1. FLG-FICO-SCORE-NOT-OK | FLG-FICO-SCORE-BLANK
 MOVE -1 TO ACSTFCOL OF CACTUPAICOACTUPC.cbl:3104
  1. FLG-FIRST-NAME-NOT-OK | FLG-FIRST-NAME-BLANK
 MOVE -1 TO ACSFNAML OF CACTUPAICOACTUPC.cbl:3108
  1. FLG-MIDDLE-NAME-NOT-OK
 MOVE -1 TO ACSMNAML OF CACTUPAICOACTUPC.cbl:3111
  1. FLG-LAST-NAME-NOT-OK | FLG-LAST-NAME-BLANK
 MOVE -1 TO ACSLNAML OF CACTUPAICOACTUPC.cbl:3115
  1. FLG-ADDRESS-LINE-1-NOT-OK | FLG-ADDRESS-LINE-1-BLANK
 MOVE -1 TO ACSADL1L OF CACTUPAICOACTUPC.cbl:3119
  1. FLG-STATE-NOT-OK | FLG-STATE-BLANK
 MOVE -1 TO ACSSTTEL OF CACTUPAICOACTUPC.cbl:3123
  1. FLG-ZIPCODE-NOT-OK | FLG-ZIPCODE-BLANK
 MOVE -1 TO ACSZIPCL OF CACTUPAICOACTUPC.cbl:3128
  1. FLG-CITY-NOT-OK | FLG-CITY-BLANK
 MOVE -1 TO ACSCITYL OF CACTUPAICOACTUPC.cbl:3132
  1. FLG-COUNTRY-NOT-OK | FLG-COUNTRY-BLANK
 MOVE -1 TO ACSCTRYL OF CACTUPAICOACTUPC.cbl:3136
  1. FLG-PHONE-NUM-1A-NOT-OK | FLG-PHONE-NUM-1A-BLANK
 MOVE -1 TO ACSPH1AL OF CACTUPAICOACTUPC.cbl:3140
  1. FLG-PHONE-NUM-1B-NOT-OK | FLG-PHONE-NUM-1B-BLANK
 MOVE -1 TO ACSPH1BL OF CACTUPAICOACTUPC.cbl:3143
  1. FLG-PHONE-NUM-1C-NOT-OK | FLG-PHONE-NUM-1C-BLANK
 MOVE -1 TO ACSPH1CL OF CACTUPAICOACTUPC.cbl:3146
  1. FLG-PHONE-NUM-2A-NOT-OK | FLG-PHONE-NUM-2A-BLANK
 MOVE -1 TO ACSPH2AL OF CACTUPAICOACTUPC.cbl:3150
  1. FLG-PHONE-NUM-2B-NOT-OK | FLG-PHONE-NUM-2B-BLANK
 MOVE -1 TO ACSPH2BL OF CACTUPAICOACTUPC.cbl:3153
  1. FLG-PHONE-NUM-2C-NOT-OK | FLG-PHONE-NUM-2C-BLANK
 MOVE -1 TO ACSPH2CL OF CACTUPAICOACTUPC.cbl:3156
  1. FLG-EFT-ACCOUNT-ID-NOT-OK | FLG-EFT-ACCOUNT-ID-BLANK
 MOVE -1 TO ACSEFTCL OF CACTUPAICOACTUPC.cbl:3160
  1. FLG-PRI-CARDHOLDER-NOT-OK | FLG-PRI-CARDHOLDER-BLANK
 MOVE -1 TO ACSPFLGL OF CACTUPAICOACTUPC.cbl:3164
  1. TRUE is none of [FOUND-ACCOUNT-DATA; NO-CHANGES-DETECTED; FLG-ACCTFILTER-NOT-OK; FLG-ACCTFILTER-BLANK; FLG-ACCT-STATUS-NOT-OK; FLG-ACCT-STATUS-BLANK; FLG-OPEN-YEAR-NOT-OK; FLG-OPEN-YEAR-BLANK; FLG-OPEN-MONTH-NOT-OK; FLG-OPEN-MONTH-BLANK; FLG-OPEN-DAY-NOT-OK; FLG-OPEN-DAY-BLANK; FLG-CRED-LIMIT-NOT-OK; FLG-CRED-LIMIT-BLANK; FLG-EXPIRY-YEAR-NOT-OK; FLG-EXPIRY-YEAR-BLANK; FLG-EXPIRY-MONTH-NOT-OK; FLG-EXPIRY-MONTH-BLANK; FLG-EXPIRY-DAY-NOT-OK; FLG-EXPIRY-DAY-BLANK; FLG-CASH-CREDIT-LIMIT-NOT-OK; FLG-CASH-CREDIT-LIMIT-BLANK; FLG-REISSUE-YEAR-NOT-OK; FLG-REISSUE-YEAR-BLANK; FLG-REISSUE-MONTH-NOT-OK; FLG-REISSUE-MONTH-BLANK; FLG-REISSUE-DAY-NOT-OK; FLG-REISSUE-DAY-BLANK; FLG-CURR-BAL-NOT-OK; FLG-CURR-BAL-BLANK; FLG-CURR-CYC-CREDIT-NOT-OK; FLG-CURR-CYC-CREDIT-BLANK; FLG-CURR-CYC-DEBIT-NOT-OK; FLG-CURR-CYC-DEBIT-BLANK; FLG-EDIT-US-SSN-PART1-NOT-OK; FLG-EDIT-US-SSN-PART1-BLANK; FLG-EDIT-US-SSN-PART2-NOT-OK; FLG-EDIT-US-SSN-PART2-BLANK; FLG-EDIT-US-SSN-PART3-NOT-OK; FLG-EDIT-US-SSN-PART3-BLANK; FLG-DT-OF-BIRTH-YEAR-NOT-OK; FLG-DT-OF-BIRTH-YEAR-BLANK; FLG-DT-OF-BIRTH-MONTH-NOT-OK; FLG-DT-OF-BIRTH-MONTH-BLANK; FLG-DT-OF-BIRTH-DAY-NOT-OK; FLG-DT-OF-BIRTH-DAY-BLANK; FLG-FICO-SCORE-NOT-OK; FLG-FICO-SCORE-BLANK; FLG-FIRST-NAME-NOT-OK; FLG-FIRST-NAME-BLANK; FLG-MIDDLE-NAME-NOT-OK; FLG-LAST-NAME-NOT-OK; FLG-LAST-NAME-BLANK; FLG-ADDRESS-LINE-1-NOT-OK; FLG-ADDRESS-LINE-1-BLANK; FLG-STATE-NOT-OK; FLG-STATE-BLANK; FLG-ZIPCODE-NOT-OK; FLG-ZIPCODE-BLANK; FLG-CITY-NOT-OK; FLG-CITY-BLANK; FLG-COUNTRY-NOT-OK; FLG-COUNTRY-BLANK; FLG-PHONE-NUM-1A-NOT-OK; FLG-PHONE-NUM-1A-BLANK; FLG-PHONE-NUM-1B-NOT-OK; FLG-PHONE-NUM-1B-BLANK; FLG-PHONE-NUM-1C-NOT-OK; FLG-PHONE-NUM-1C-BLANK; FLG-PHONE-NUM-2A-NOT-OK; FLG-PHONE-NUM-2A-BLANK; FLG-PHONE-NUM-2B-NOT-OK; FLG-PHONE-NUM-2B-BLANK; FLG-PHONE-NUM-2C-NOT-OK; FLG-PHONE-NUM-2C-BLANK; FLG-EFT-ACCOUNT-ID-NOT-OK; FLG-EFT-ACCOUNT-ID-BLANK; FLG-PRI-CARDHOLDER-NOT-OK; FLG-PRI-CARDHOLDER-BLANK]
 MOVE -1 TO ACCTSIDL OF CACTUPAICOACTUPC.cbl:3166
  1. CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET
 MOVE DFHDFCOL TO ACCTSIDC OF CACTUPAOCOACTUPC.cbl:3172
  1. FLG-ACCTFILTER-NOT-OK
 MOVE DFHRED TO ACCTSIDC OF CACTUPAOCOACTUPC.cbl:3177
  1. FLG-ACCTFILTER-BLANK AND CDEMO-PGM-REENTER
 MOVE '*' TO ACCTSIDO OF CACTUPAOCOACTUPC.cbl:3182
  1. FLG-ACCTFILTER-BLANK AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACCTSIDC OF CACTUPAOCOACTUPC.cbl:3183
  1. ACUP-DETAILS-NOT-FETCHED OR FLG-ACCTFILTER-BLANK OR FLG-ACCTFILTER-NOT-OK
 GO TO 3300-SETUP-SCREEN-ATTRS-EXITCOACTUPC.cbl:3189
  1. (FLG-ACCT-STATUS-NOT-OK OR FLG-ACCT-STATUS-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSTTUSC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3208
  1. (FLG-ACCT-STATUS-NOT-OK OR FLG-ACCT-STATUS-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-ACCT-STATUS-BLANK
 MOVE '*' TO ACSTTUSO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3208
  1. (FLG-OPEN-YEAR-NOT-OK OR FLG-OPEN-YEAR-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO OPNYEARC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3214
  1. (FLG-OPEN-YEAR-NOT-OK OR FLG-OPEN-YEAR-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-OPEN-YEAR-BLANK
 MOVE '*' TO OPNYEARO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3214
  1. (FLG-OPEN-MONTH-NOT-OK OR FLG-OPEN-MONTH-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO OPNMONC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3220
  1. (FLG-OPEN-MONTH-NOT-OK OR FLG-OPEN-MONTH-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-OPEN-MONTH-BLANK
 MOVE '*' TO OPNMONO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3220
  1. (FLG-OPEN-DAY-NOT-OK OR FLG-OPEN-DAY-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO OPNDAYC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3226
  1. (FLG-OPEN-DAY-NOT-OK OR FLG-OPEN-DAY-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-OPEN-DAY-BLANK
 MOVE '*' TO OPNDAYO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3226
  1. (FLG-CRED-LIMIT-NOT-OK OR FLG-CRED-LIMIT-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACRDLIMC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3232
  1. (FLG-CRED-LIMIT-NOT-OK OR FLG-CRED-LIMIT-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-CRED-LIMIT-BLANK
 MOVE '*' TO ACRDLIMO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3232
  1. (FLG-EXPIRY-YEAR-NOT-OK OR FLG-EXPIRY-YEAR-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO EXPYEARC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3238
  1. (FLG-EXPIRY-YEAR-NOT-OK OR FLG-EXPIRY-YEAR-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-EXPIRY-YEAR-BLANK
 MOVE '*' TO EXPYEARO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3238
  1. (FLG-EXPIRY-MONTH-NOT-OK OR FLG-EXPIRY-MONTH-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO EXPMONC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3244
  1. (FLG-EXPIRY-MONTH-NOT-OK OR FLG-EXPIRY-MONTH-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-EXPIRY-MONTH-BLANK
 MOVE '*' TO EXPMONO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3244
  1. (FLG-EXPIRY-DAY-NOT-OK OR FLG-EXPIRY-DAY-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO EXPDAYC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3250
  1. (FLG-EXPIRY-DAY-NOT-OK OR FLG-EXPIRY-DAY-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-EXPIRY-DAY-BLANK
 MOVE '*' TO EXPDAYO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3250
  1. (FLG-CASH-CREDIT-LIMIT-NOT-OK OR FLG-CASH-CREDIT-LIMIT-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSHLIMC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3256
  1. (FLG-CASH-CREDIT-LIMIT-NOT-OK OR FLG-CASH-CREDIT-LIMIT-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-CASH-CREDIT-LIMIT-BLANK
 MOVE '*' TO ACSHLIMO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3256
  1. (FLG-REISSUE-YEAR-NOT-OK OR FLG-REISSUE-YEAR-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO RISYEARC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3262
  1. (FLG-REISSUE-YEAR-NOT-OK OR FLG-REISSUE-YEAR-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-REISSUE-YEAR-BLANK
 MOVE '*' TO RISYEARO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3262
  1. (FLG-REISSUE-MONTH-NOT-OK OR FLG-REISSUE-MONTH-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO RISMONC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3268
  1. (FLG-REISSUE-MONTH-NOT-OK OR FLG-REISSUE-MONTH-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-REISSUE-MONTH-BLANK
 MOVE '*' TO RISMONO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3268
  1. (FLG-REISSUE-DAY-NOT-OK OR FLG-REISSUE-DAY-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO RISDAYC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3274
  1. (FLG-REISSUE-DAY-NOT-OK OR FLG-REISSUE-DAY-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-REISSUE-DAY-BLANK
 MOVE '*' TO RISDAYO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3274
  1. (FLG-CURR-BAL-NOT-OK OR FLG-CURR-BAL-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACURBALC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3280
  1. (FLG-CURR-BAL-NOT-OK OR FLG-CURR-BAL-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-CURR-BAL-BLANK
 MOVE '*' TO ACURBALO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3280
  1. (FLG-CURR-CYC-CREDIT-NOT-OK OR FLG-CURR-CYC-CREDIT-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACRCYCRC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3286
  1. (FLG-CURR-CYC-CREDIT-NOT-OK OR FLG-CURR-CYC-CREDIT-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-CURR-CYC-CREDIT-BLANK
 MOVE '*' TO ACRCYCRO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3286
  1. (FLG-CURR-CYC-DEBIT-NOT-OK OR FLG-CURR-CYC-DEBIT-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACRCYDBC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3292
  1. (FLG-CURR-CYC-DEBIT-NOT-OK OR FLG-CURR-CYC-DEBIT-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-CURR-CYC-DEBIT-BLANK
 MOVE '*' TO ACRCYDBO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3292
  1. (FLG-EDIT-US-SSN-PART1-NOT-OK OR FLG-EDIT-US-SSN-PART1-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACTSSN1C OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3298
  1. (FLG-EDIT-US-SSN-PART1-NOT-OK OR FLG-EDIT-US-SSN-PART1-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-EDIT-US-SSN-PART1-BLANK
 MOVE '*' TO ACTSSN1O OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3298
  1. (FLG-EDIT-US-SSN-PART2-NOT-OK OR FLG-EDIT-US-SSN-PART2-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACTSSN2C OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3304
  1. (FLG-EDIT-US-SSN-PART2-NOT-OK OR FLG-EDIT-US-SSN-PART2-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-EDIT-US-SSN-PART2-BLANK
 MOVE '*' TO ACTSSN2O OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3304
  1. (FLG-EDIT-US-SSN-PART3-NOT-OK OR FLG-EDIT-US-SSN-PART3-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACTSSN3C OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3310
  1. (FLG-EDIT-US-SSN-PART3-NOT-OK OR FLG-EDIT-US-SSN-PART3-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-EDIT-US-SSN-PART3-BLANK
 MOVE '*' TO ACTSSN3O OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3310
  1. (FLG-DT-OF-BIRTH-YEAR-NOT-OK OR FLG-DT-OF-BIRTH-YEAR-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO DOBYEARC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3316
  1. (FLG-DT-OF-BIRTH-YEAR-NOT-OK OR FLG-DT-OF-BIRTH-YEAR-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-DT-OF-BIRTH-YEAR-BLANK
 MOVE '*' TO DOBYEARO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3316
  1. (FLG-DT-OF-BIRTH-MONTH-NOT-OK OR FLG-DT-OF-BIRTH-MONTH-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO DOBMONC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3322
  1. (FLG-DT-OF-BIRTH-MONTH-NOT-OK OR FLG-DT-OF-BIRTH-MONTH-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-DT-OF-BIRTH-MONTH-BLANK
 MOVE '*' TO DOBMONO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3322
  1. (FLG-DT-OF-BIRTH-DAY-NOT-OK OR FLG-DT-OF-BIRTH-DAY-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO DOBDAYC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3328
  1. (FLG-DT-OF-BIRTH-DAY-NOT-OK OR FLG-DT-OF-BIRTH-DAY-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-DT-OF-BIRTH-DAY-BLANK
 MOVE '*' TO DOBDAYO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3328
  1. (FLG-FICO-SCORE-NOT-OK OR FLG-FICO-SCORE-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSTFCOC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3334
  1. (FLG-FICO-SCORE-NOT-OK OR FLG-FICO-SCORE-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-FICO-SCORE-BLANK
 MOVE '*' TO ACSTFCOO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3334
  1. (FLG-FIRST-NAME-NOT-OK OR FLG-FIRST-NAME-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSFNAMC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3340
  1. (FLG-FIRST-NAME-NOT-OK OR FLG-FIRST-NAME-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-FIRST-NAME-BLANK
 MOVE '*' TO ACSFNAMO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3340
  1. (FLG-MIDDLE-NAME-NOT-OK OR FLG-MIDDLE-NAME-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSMNAMC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3346
  1. (FLG-MIDDLE-NAME-NOT-OK OR FLG-MIDDLE-NAME-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-MIDDLE-NAME-BLANK
 MOVE '*' TO ACSMNAMO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3346
  1. (FLG-LAST-NAME-NOT-OK OR FLG-LAST-NAME-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSLNAMC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3352
  1. (FLG-LAST-NAME-NOT-OK OR FLG-LAST-NAME-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-LAST-NAME-BLANK
 MOVE '*' TO ACSLNAMO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3352
  1. (FLG-ADDRESS-LINE-1-NOT-OK OR FLG-ADDRESS-LINE-1-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSADL1C OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3358
  1. (FLG-ADDRESS-LINE-1-NOT-OK OR FLG-ADDRESS-LINE-1-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-ADDRESS-LINE-1-BLANK
 MOVE '*' TO ACSADL1O OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3358
  1. (FLG-STATE-NOT-OK OR FLG-STATE-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSSTTEC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3364
  1. (FLG-STATE-NOT-OK OR FLG-STATE-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-STATE-BLANK
 MOVE '*' TO ACSSTTEO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3364
  1. (FLG-ADDRESS-LINE-2-NOT-OK OR FLG-ADDRESS-LINE-2-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSADL2C OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3370
  1. (FLG-ADDRESS-LINE-2-NOT-OK OR FLG-ADDRESS-LINE-2-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-ADDRESS-LINE-2-BLANK
 MOVE '*' TO ACSADL2O OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3370
  1. (FLG-ZIPCODE-NOT-OK OR FLG-ZIPCODE-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSZIPCC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3376
  1. (FLG-ZIPCODE-NOT-OK OR FLG-ZIPCODE-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-ZIPCODE-BLANK
 MOVE '*' TO ACSZIPCO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3376
  1. (FLG-CITY-NOT-OK OR FLG-CITY-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSCITYC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3382
  1. (FLG-CITY-NOT-OK OR FLG-CITY-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-CITY-BLANK
 MOVE '*' TO ACSCITYO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3382
  1. (FLG-COUNTRY-NOT-OK OR FLG-COUNTRY-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSCTRYC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3388
  1. (FLG-COUNTRY-NOT-OK OR FLG-COUNTRY-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-COUNTRY-BLANK
 MOVE '*' TO ACSCTRYO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3388
  1. (FLG-PHONE-NUM-1A-NOT-OK OR FLG-PHONE-NUM-1A-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSPH1AC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3394
  1. (FLG-PHONE-NUM-1A-NOT-OK OR FLG-PHONE-NUM-1A-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-PHONE-NUM-1A-BLANK
 MOVE '*' TO ACSPH1AO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3394
  1. (FLG-PHONE-NUM-1B-NOT-OK OR FLG-PHONE-NUM-1B-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSPH1BC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3400
  1. (FLG-PHONE-NUM-1B-NOT-OK OR FLG-PHONE-NUM-1B-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-PHONE-NUM-1B-BLANK
 MOVE '*' TO ACSPH1BO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3400
  1. (FLG-PHONE-NUM-1C-NOT-OK OR FLG-PHONE-NUM-1C-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSPH1CC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3405
  1. (FLG-PHONE-NUM-1C-NOT-OK OR FLG-PHONE-NUM-1C-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-PHONE-NUM-1C-BLANK
 MOVE '*' TO ACSPH1CO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3405
  1. (FLG-PHONE-NUM-2A-NOT-OK OR FLG-PHONE-NUM-2A-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSPH2AC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3411
  1. (FLG-PHONE-NUM-2A-NOT-OK OR FLG-PHONE-NUM-2A-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-PHONE-NUM-2A-BLANK
 MOVE '*' TO ACSPH2AO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3411
  1. (FLG-PHONE-NUM-2B-NOT-OK OR FLG-PHONE-NUM-2B-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSPH2BC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3417
  1. (FLG-PHONE-NUM-2B-NOT-OK OR FLG-PHONE-NUM-2B-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-PHONE-NUM-2B-BLANK
 MOVE '*' TO ACSPH2BO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3417
  1. (FLG-PHONE-NUM-2C-NOT-OK OR FLG-PHONE-NUM-2C-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSPH2CC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3422
  1. (FLG-PHONE-NUM-2C-NOT-OK OR FLG-PHONE-NUM-2C-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-PHONE-NUM-2C-BLANK
 MOVE '*' TO ACSPH2CO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3422
  1. (FLG-PRI-CARDHOLDER-NOT-OK OR FLG-PRI-CARDHOLDER-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSPFLGC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3427
  1. (FLG-PRI-CARDHOLDER-NOT-OK OR FLG-PRI-CARDHOLDER-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-PRI-CARDHOLDER-BLANK
 MOVE '*' TO ACSPFLGO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3427
  1. (FLG-EFT-ACCOUNT-ID-NOT-OK OR FLG-EFT-ACCOUNT-ID-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACSEFTCC OF CACTUPAOCSSETATY.cpy:21–22 via COACTUPC.cbl:3432
  1. (FLG-EFT-ACCOUNT-ID-NOT-OK OR FLG-EFT-ACCOUNT-ID-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-EFT-ACCOUNT-ID-BLANK
 MOVE '*' TO ACSEFTCO OF CACTUPAOCSSETATY.cpy:24–25 via COACTUPC.cbl:3432
5 rules

3390-SETUP-INFOMSG-ATTRS

WhenThenAt
  1. WS-NO-INFO-MESSAGE
 MOVE DFHBMDAR TO INFOMSGA OF CACTUPAICOACTUPC.cbl:3568
  1. NOT (WS-NO-INFO-MESSAGE)
 MOVE DFHBMASB TO INFOMSGA OF CACTUPAICOACTUPC.cbl:3570
  1. ACUP-CHANGES-MADE AND NOT ACUP-CHANGES-OKAYED-AND-DONE
 MOVE DFHBMASB TO FKEY12A OF CACTUPAICOACTUPC.cbl:3575
  1. PROMPT-FOR-CONFIRMATION
 MOVE DFHBMASB TO FKEY05A OF CACTUPAICOACTUPC.cbl:3579
  1. PROMPT-FOR-CONFIRMATION
 MOVE DFHBMASB TO FKEY12A OF CACTUPAICOACTUPC.cbl:3580
3 rules

9000-READ-ACCT

WhenThenAt
  1. FLG-ACCTFILTER-NOT-OK
 GO TO 9000-READ-ACCT-EXITCOACTUPC.cbl:3621
  1. DID-NOT-FIND-ACCT-IN-ACCTDAT
 GO TO 9000-READ-ACCT-EXITCOACTUPC.cbl:3628
  1. DID-NOT-FIND-CUST-IN-CUSTDAT
 GO TO 9000-READ-ACCT-EXITCOACTUPC.cbl:3637
14 rules

9200-GETCARDXREF-BYACCT

WhenThenAt
  1. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE XREF-CUST-ID TO CDEMO-CUST-IDCOACTUPC.cbl:3666
  1. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE XREF-CARD-NUM TO CDEMO-CARD-NUMCOACTUPC.cbl:3667
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:3669
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOACTUPC.cbl:3670
  1. WS-RESP-CD = DFHRESP(NOTFND)
  2. WS-RETURN-MSG-OFF
 MOVE WS-RESP-CD TO ERROR-RESPCOACTUPC.cbl:3672
  1. WS-RESP-CD = DFHRESP(NOTFND)
  2. WS-RETURN-MSG-OFF
 MOVE WS-REAS-CD TO ERROR-RESP2COACTUPC.cbl:3673
  1. WS-RESP-CD = DFHRESP(NOTFND)
  2. WS-RETURN-MSG-OFF
 STRING 'Account:' WS-CARD-RID-ACCT-ID-X ' not found in' ' Cross ref file. Resp:' ERROR-RESP ' Reas:' ERROR-RESP2 DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:3674–3683
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:3687
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOACTUPC.cbl:3688
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'READ' TO ERROR-OPNAMECOACTUPC.cbl:3689
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE LIT-CARDXREFNAME-ACCT-PATH TO ERROR-FILECOACTUPC.cbl:3690
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-RESP-CD TO ERROR-RESPCOACTUPC.cbl:3691
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-REAS-CD TO ERROR-RESP2COACTUPC.cbl:3692
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-FILE-ERROR-MESSAGE TO WS-RETURN-MSGCOACTUPC.cbl:3693
13 rules

9300-GETACCTDATA-BYACCT

WhenThenAt
  1. WS-RESP-CD = DFHRESP(NORMAL)
 SET FOUND-ACCT-IN-MASTER TO TRUECOACTUPC.cbl:3715
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:3717
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOACTUPC.cbl:3718
  1. WS-RESP-CD = DFHRESP(NOTFND)
  2. WS-RETURN-MSG-OFF
 MOVE WS-RESP-CD TO ERROR-RESPCOACTUPC.cbl:3721
  1. WS-RESP-CD = DFHRESP(NOTFND)
  2. WS-RETURN-MSG-OFF
 MOVE WS-REAS-CD TO ERROR-RESP2COACTUPC.cbl:3722
  1. WS-RESP-CD = DFHRESP(NOTFND)
  2. WS-RETURN-MSG-OFF
 STRING 'Account:' WS-CARD-RID-ACCT-ID-X ' not found in' ' Acct Master file.Resp:' ERROR-RESP ' Reas:' ERROR-RESP2 DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:3723–3732
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:3737
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOACTUPC.cbl:3738
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'READ' TO ERROR-OPNAMECOACTUPC.cbl:3739
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE LIT-ACCTFILENAME TO ERROR-FILECOACTUPC.cbl:3740
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-RESP-CD TO ERROR-RESPCOACTUPC.cbl:3741
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-REAS-CD TO ERROR-RESP2COACTUPC.cbl:3742
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-FILE-ERROR-MESSAGE TO WS-RETURN-MSGCOACTUPC.cbl:3743
13 rules

9400-GETCUSTDATA-BYCUST

WhenThenAt
  1. WS-RESP-CD = DFHRESP(NORMAL)
 SET FOUND-CUST-IN-MASTER TO TRUECOACTUPC.cbl:3765
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:3767
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET FLG-CUSTFILTER-NOT-OK TO TRUECOACTUPC.cbl:3768
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE WS-RESP-CD TO ERROR-RESPCOACTUPC.cbl:3770
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE WS-REAS-CD TO ERROR-RESP2COACTUPC.cbl:3771
  1. WS-RESP-CD = DFHRESP(NOTFND)
  2. WS-RETURN-MSG-OFF
 STRING 'CustId:' WS-CARD-RID-CUST-ID-X ' not found' ' in customer master.Resp: ' ERROR-RESP ' REAS:' ERROR-RESP2 DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTUPC.cbl:3773–3782
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:3786
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 SET FLG-CUSTFILTER-NOT-OK TO TRUECOACTUPC.cbl:3787
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'READ' TO ERROR-OPNAMECOACTUPC.cbl:3788
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE LIT-CUSTFILENAME TO ERROR-FILECOACTUPC.cbl:3789
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-RESP-CD TO ERROR-RESPCOACTUPC.cbl:3790
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-REAS-CD TO ERROR-RESP2COACTUPC.cbl:3791
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-FILE-ERROR-MESSAGE TO WS-RETURN-MSGCOACTUPC.cbl:3792
12 rules

9600-WRITE-PROCESSING

WhenThenAt
  1. NOT (WS-RESP-CD EQUAL TO DFHRESP(NORMAL))
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:3910
  1. NOT (WS-RESP-CD EQUAL TO DFHRESP(NORMAL))
  2. WS-RETURN-MSG-OFF
 SET COULD-NOT-LOCK-ACCT-FOR-UPDATE TO TRUECOACTUPC.cbl:3912
  1. NOT (WS-RESP-CD EQUAL TO DFHRESP(NORMAL))
 GO TO 9600-WRITE-PROCESSING-EXITCOACTUPC.cbl:3914
  1. NOT (WS-RESP-CD EQUAL TO DFHRESP(NORMAL))
 SET INPUT-ERROR TO TRUECOACTUPC.cbl:3937
  1. NOT (WS-RESP-CD EQUAL TO DFHRESP(NORMAL))
  2. WS-RETURN-MSG-OFF
 SET COULD-NOT-LOCK-CUST-FOR-UPDATE TO TRUECOACTUPC.cbl:3939
  1. NOT (WS-RESP-CD EQUAL TO DFHRESP(NORMAL))
 GO TO 9600-WRITE-PROCESSING-EXITCOACTUPC.cbl:3941
  1. DATA-WAS-CHANGED-BEFORE-UPDATE
 GO TO 9600-WRITE-PROCESSING-EXITCOACTUPC.cbl:3951
  1. NOT (WS-RESP-CD EQUAL TO DFHRESP(NORMAL))
 SET LOCKED-BUT-UPDATE-FAILED TO TRUECOACTUPC.cbl:4079
  1. NOT (WS-RESP-CD EQUAL TO DFHRESP(NORMAL))
 GO TO 9600-WRITE-PROCESSING-EXITCOACTUPC.cbl:4080
  1. NOT (WS-RESP-CD EQUAL TO DFHRESP(NORMAL))
 SET LOCKED-BUT-UPDATE-FAILED TO TRUECOACTUPC.cbl:4098
  1. NOT (WS-RESP-CD EQUAL TO DFHRESP(NORMAL))
 EXEC CICS SYNCPOINT ROLLBACK END-EXECCOACTUPC.cbl:4099–4101
  1. NOT (WS-RESP-CD EQUAL TO DFHRESP(NORMAL))
 GO TO 9600-WRITE-PROCESSING-EXITCOACTUPC.cbl:4102
4 rules

9700-CHECK-CHANGE-IN-REC

WhenThenAt
  1. NOT (ACCT-ACTIVE-STATUS EQUAL ACUP-OLD-ACTIVE-STATUS AND ACCT-CURR-BAL EQUAL ACUP-OLD-CURR-BAL-N AND ACCT-CREDIT-LIMIT EQUAL ACUP-OLD-CREDIT-LIMIT-N AND ACCT-CASH-CREDIT-LIMIT EQUAL ACUP-OLD-CASH-CREDIT-LIMIT-N AND ACCT-CURR-CYC-CREDIT EQUAL ACUP-OLD-CURR-CYC-CREDIT-N AND ACCT-CURR-CYC-DEBIT EQUAL ACUP-OLD-CURR-CYC-DEBIT-N AND ACCT-OPEN-DATE(1:4) EQUAL ACUP-OLD-OPEN-YEAR AND ACCT-OPEN-DATE(6:2) EQUAL ACUP-OLD-OPEN-MON AND ACCT-OPEN-DATE(9:2) EQUAL ACUP-OLD-OPEN-DAY AND ACCT-EXPIRAION-DATE(1:4)EQUAL ACUP-OLD-EXP-YEAR AND ACCT-EXPIRAION-DATE(6:2)EQUAL ACUP-OLD-EXP-MON AND ACCT-EXPIRAION-DATE(9:2)EQUAL ACUP-OLD-EXP-DAY AND ACCT-REISSUE-DATE(1:4) EQUAL ACUP-OLD-REISSUE-YEAR AND ACCT-REISSUE-DATE(6:2) EQUAL ACUP-OLD-REISSUE-MON AND ACCT-REISSUE-DATE(9:2) EQUAL ACUP-OLD-REISSUE-DAY AND FUNCTION LOWER-CASE (ACCT-GROUP-ID) EQUAL FUNCTION LOWER-CASE (ACUP-OLD-GROUP-ID))
 SET DATA-WAS-CHANGED-BEFORE-UPDATE TO TRUECOACTUPC.cbl:4143
  1. NOT (ACCT-ACTIVE-STATUS EQUAL ACUP-OLD-ACTIVE-STATUS AND ACCT-CURR-BAL EQUAL ACUP-OLD-CURR-BAL-N AND ACCT-CREDIT-LIMIT EQUAL ACUP-OLD-CREDIT-LIMIT-N AND ACCT-CASH-CREDIT-LIMIT EQUAL ACUP-OLD-CASH-CREDIT-LIMIT-N AND ACCT-CURR-CYC-CREDIT EQUAL ACUP-OLD-CURR-CYC-CREDIT-N AND ACCT-CURR-CYC-DEBIT EQUAL ACUP-OLD-CURR-CYC-DEBIT-N AND ACCT-OPEN-DATE(1:4) EQUAL ACUP-OLD-OPEN-YEAR AND ACCT-OPEN-DATE(6:2) EQUAL ACUP-OLD-OPEN-MON AND ACCT-OPEN-DATE(9:2) EQUAL ACUP-OLD-OPEN-DAY AND ACCT-EXPIRAION-DATE(1:4)EQUAL ACUP-OLD-EXP-YEAR AND ACCT-EXPIRAION-DATE(6:2)EQUAL ACUP-OLD-EXP-MON AND ACCT-EXPIRAION-DATE(9:2)EQUAL ACUP-OLD-EXP-DAY AND ACCT-REISSUE-DATE(1:4) EQUAL ACUP-OLD-REISSUE-YEAR AND ACCT-REISSUE-DATE(6:2) EQUAL ACUP-OLD-REISSUE-MON AND ACCT-REISSUE-DATE(9:2) EQUAL ACUP-OLD-REISSUE-DAY AND FUNCTION LOWER-CASE (ACCT-GROUP-ID) EQUAL FUNCTION LOWER-CASE (ACUP-OLD-GROUP-ID))
 GO TO 9600-WRITE-PROCESSING-EXITCOACTUPC.cbl:4144
  1. NOT (FUNCTION UPPER-CASE (CUST-FIRST-NAME ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-FIRST-NAME ) AND FUNCTION UPPER-CASE (CUST-MIDDLE-NAME ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-MIDDLE-NAME) AND FUNCTION UPPER-CASE (CUST-LAST-NAME ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-LAST-NAME ) AND FUNCTION UPPER-CASE (CUST-ADDR-LINE-1 ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-ADDR-LINE-1) AND FUNCTION UPPER-CASE (CUST-ADDR-LINE-2 ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-ADDR-LINE-2) AND FUNCTION UPPER-CASE (CUST-ADDR-LINE-3 ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-ADDR-LINE-3) AND FUNCTION UPPER-CASE (CUST-ADDR-STATE-CD ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-ADDR-STATE-CD) AND FUNCTION UPPER-CASE (CUST-ADDR-COUNTRY-CD ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-ADDR-COUNTRY-CD ) AND CUST-ADDR-ZIP EQUAL ACUP-OLD-CUST-ADDR-ZIP AND CUST-PHONE-NUM-1 EQUAL ACUP-OLD-CUST-PHONE-NUM-1 AND CUST-PHONE-NUM-2 EQUAL ACUP-OLD-CUST-PHONE-NUM-2 AND CUST-SSN EQUAL ACUP-OLD-CUST-SSN AND FUNCTION UPPER-CASE (CUST-GOVT-ISSUED-ID ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-GOVT-ISSUED-ID ) AND CUST-DOB-YYYY-MM-DD (1:4) EQUAL ACUP-OLD-CUST-DOB-YYYY-MM-DD (1:4) AND CUST-DOB-YYYY-MM-DD (6:2) EQUAL ACUP-OLD-CUST-DOB-YYYY-MM-DD (5:2) AND CUST-DOB-YYYY-MM-DD (9:2) EQUAL ACUP-OLD-CUST-DOB-YYYY-MM-DD (7:2) AND CUST-EFT-ACCOUNT-ID EQUAL ACUP-OLD-CUST-EFT-ACCOUNT-ID AND CUST-PRI-CARD-HOLDER-IND EQUAL ACUP-OLD-CUST-PRI-HOLDER-IND AND CUST-FICO-CREDIT-SCORE EQUAL ACUP-OLD-CUST-FICO-SCORE)
 SET DATA-WAS-CHANGED-BEFORE-UPDATE TO TRUECOACTUPC.cbl:4189
  1. NOT (FUNCTION UPPER-CASE (CUST-FIRST-NAME ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-FIRST-NAME ) AND FUNCTION UPPER-CASE (CUST-MIDDLE-NAME ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-MIDDLE-NAME) AND FUNCTION UPPER-CASE (CUST-LAST-NAME ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-LAST-NAME ) AND FUNCTION UPPER-CASE (CUST-ADDR-LINE-1 ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-ADDR-LINE-1) AND FUNCTION UPPER-CASE (CUST-ADDR-LINE-2 ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-ADDR-LINE-2) AND FUNCTION UPPER-CASE (CUST-ADDR-LINE-3 ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-ADDR-LINE-3) AND FUNCTION UPPER-CASE (CUST-ADDR-STATE-CD ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-ADDR-STATE-CD) AND FUNCTION UPPER-CASE (CUST-ADDR-COUNTRY-CD ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-ADDR-COUNTRY-CD ) AND CUST-ADDR-ZIP EQUAL ACUP-OLD-CUST-ADDR-ZIP AND CUST-PHONE-NUM-1 EQUAL ACUP-OLD-CUST-PHONE-NUM-1 AND CUST-PHONE-NUM-2 EQUAL ACUP-OLD-CUST-PHONE-NUM-2 AND CUST-SSN EQUAL ACUP-OLD-CUST-SSN AND FUNCTION UPPER-CASE (CUST-GOVT-ISSUED-ID ) EQUAL FUNCTION UPPER-CASE (ACUP-OLD-CUST-GOVT-ISSUED-ID ) AND CUST-DOB-YYYY-MM-DD (1:4) EQUAL ACUP-OLD-CUST-DOB-YYYY-MM-DD (1:4) AND CUST-DOB-YYYY-MM-DD (6:2) EQUAL ACUP-OLD-CUST-DOB-YYYY-MM-DD (5:2) AND CUST-DOB-YYYY-MM-DD (9:2) EQUAL ACUP-OLD-CUST-DOB-YYYY-MM-DD (7:2) AND CUST-EFT-ACCOUNT-ID EQUAL ACUP-OLD-CUST-EFT-ACCOUNT-ID AND CUST-PRI-CARD-HOLDER-IND EQUAL ACUP-OLD-CUST-PRI-HOLDER-IND AND CUST-FICO-CREDIT-SCORE EQUAL ACUP-OLD-CUST-FICO-SCORE)
 GO TO 9600-WRITE-PROCESSING-EXITCOACTUPC.cbl:4190
28 rules

YYYY-STORE-PFKEY

WhenThenAt
  1. EIBAID IS EQUAL TO DFHENTER
 SET CCARD-AID-ENTER TO TRUECSSTRPFY.cpy:23 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHCLEAR
 SET CCARD-AID-CLEAR TO TRUECSSTRPFY.cpy:25 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPA1
 SET CCARD-AID-PA1 TO TRUECSSTRPFY.cpy:27 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPA2
 SET CCARD-AID-PA2 TO TRUECSSTRPFY.cpy:29 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF1
 SET CCARD-AID-PFK01 TO TRUECSSTRPFY.cpy:31 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF2
 SET CCARD-AID-PFK02 TO TRUECSSTRPFY.cpy:33 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF3
 SET CCARD-AID-PFK03 TO TRUECSSTRPFY.cpy:35 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF4
 SET CCARD-AID-PFK04 TO TRUECSSTRPFY.cpy:37 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF5
 SET CCARD-AID-PFK05 TO TRUECSSTRPFY.cpy:39 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF6
 SET CCARD-AID-PFK06 TO TRUECSSTRPFY.cpy:41 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF7
 SET CCARD-AID-PFK07 TO TRUECSSTRPFY.cpy:43 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF8
 SET CCARD-AID-PFK08 TO TRUECSSTRPFY.cpy:45 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF9
 SET CCARD-AID-PFK09 TO TRUECSSTRPFY.cpy:47 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF10
 SET CCARD-AID-PFK10 TO TRUECSSTRPFY.cpy:49 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF11
 SET CCARD-AID-PFK11 TO TRUECSSTRPFY.cpy:51 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF12
 SET CCARD-AID-PFK12 TO TRUECSSTRPFY.cpy:53 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF13
 SET CCARD-AID-PFK01 TO TRUECSSTRPFY.cpy:55 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF14
 SET CCARD-AID-PFK02 TO TRUECSSTRPFY.cpy:57 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF15
 SET CCARD-AID-PFK03 TO TRUECSSTRPFY.cpy:59 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF16
 SET CCARD-AID-PFK04 TO TRUECSSTRPFY.cpy:61 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF17
 SET CCARD-AID-PFK05 TO TRUECSSTRPFY.cpy:63 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF18
 SET CCARD-AID-PFK06 TO TRUECSSTRPFY.cpy:65 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF19
 SET CCARD-AID-PFK07 TO TRUECSSTRPFY.cpy:67 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF20
 SET CCARD-AID-PFK08 TO TRUECSSTRPFY.cpy:69 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF21
 SET CCARD-AID-PFK09 TO TRUECSSTRPFY.cpy:71 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF22
 SET CCARD-AID-PFK10 TO TRUECSSTRPFY.cpy:73 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF23
 SET CCARD-AID-PFK11 TO TRUECSSTRPFY.cpy:75 via COACTUPC.cbl:4199
  1. EIBAID IS EQUAL TO DFHPF24
 SET CCARD-AID-PFK12 TO TRUECSSTRPFY.cpy:77 via COACTUPC.cbl:4199
1 rules

ABEND-ROUTINE

WhenThenAt
  1. ABEND-MSG EQUAL LOW-VALUES
 MOVE 'UNEXPECTED ABEND OCCURRED.' TO ABEND-MSGCOACTUPC.cbl:4206
12 rules

EDIT-YEAR-CCYY

WhenThenAt
  1. WS-EDIT-DATE-CCYY EQUAL LOW-VALUES OR WS-EDIT-DATE-CCYY EQUAL SPACES
 SET INPUT-ERROR TO TRUECSUTLDPY.cpy:32 via COACTUPC.cbl:4232
  1. WS-EDIT-DATE-CCYY EQUAL LOW-VALUES OR WS-EDIT-DATE-CCYY EQUAL SPACES
 SET FLG-YEAR-BLANK TO TRUECSUTLDPY.cpy:33 via COACTUPC.cbl:4232
  1. WS-EDIT-DATE-CCYY EQUAL LOW-VALUES OR WS-EDIT-DATE-CCYY EQUAL SPACES
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' : Year must be supplied.' DELIMITED BY SIZE INTO WS-RETURN-MSGCSUTLDPY.cpy:35–39 via COACTUPC.cbl:4232
  1. WS-EDIT-DATE-CCYY EQUAL LOW-VALUES OR WS-EDIT-DATE-CCYY EQUAL SPACES
 GO TO EDIT-YEAR-CCYY-EXITCSUTLDPY.cpy:42 via COACTUPC.cbl:4232
  1. WS-EDIT-DATE-CCYY IS NOT NUMERIC
 SET INPUT-ERROR TO TRUECSUTLDPY.cpy:49 via COACTUPC.cbl:4232
  1. WS-EDIT-DATE-CCYY IS NOT NUMERIC
 SET FLG-YEAR-NOT-OK TO TRUECSUTLDPY.cpy:50 via COACTUPC.cbl:4232
  1. WS-EDIT-DATE-CCYY IS NOT NUMERIC
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' must be 4 digit number.' DELIMITED BY SIZE INTO WS-RETURN-MSGCSUTLDPY.cpy:52–56 via COACTUPC.cbl:4232
  1. WS-EDIT-DATE-CCYY IS NOT NUMERIC
 GO TO EDIT-YEAR-CCYY-EXITCSUTLDPY.cpy:58 via COACTUPC.cbl:4232
  1. NOT (THIS-CENTURY OR LAST-CENTURY)
 SET INPUT-ERROR TO TRUECSUTLDPY.cpy:74 via COACTUPC.cbl:4232
  1. NOT (THIS-CENTURY OR LAST-CENTURY)
 SET FLG-YEAR-NOT-OK TO TRUECSUTLDPY.cpy:75 via COACTUPC.cbl:4232
  1. NOT (THIS-CENTURY OR LAST-CENTURY)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' : Century is not valid.' DELIMITED BY SIZE INTO WS-RETURN-MSGCSUTLDPY.cpy:77–81 via COACTUPC.cbl:4232
  1. NOT (THIS-CENTURY OR LAST-CENTURY)
 GO TO EDIT-YEAR-CCYY-EXITCSUTLDPY.cpy:83 via COACTUPC.cbl:4232
13 rules

EDIT-MONTH

WhenThenAt
  1. WS-EDIT-DATE-MM EQUAL LOW-VALUES OR WS-EDIT-DATE-MM EQUAL SPACES
 SET INPUT-ERROR TO TRUECSUTLDPY.cpy:96 via COACTUPC.cbl:4232
  1. WS-EDIT-DATE-MM EQUAL LOW-VALUES OR WS-EDIT-DATE-MM EQUAL SPACES
 SET FLG-MONTH-BLANK TO TRUECSUTLDPY.cpy:97 via COACTUPC.cbl:4232
  1. WS-EDIT-DATE-MM EQUAL LOW-VALUES OR WS-EDIT-DATE-MM EQUAL SPACES
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' : Month must be supplied.' DELIMITED BY SIZE INTO WS-RETURN-MSGCSUTLDPY.cpy:99–103 via COACTUPC.cbl:4232
  1. WS-EDIT-DATE-MM EQUAL LOW-VALUES OR WS-EDIT-DATE-MM EQUAL SPACES
 GO TO EDIT-MONTH-EXITCSUTLDPY.cpy:105 via COACTUPC.cbl:4232
  1. NOT (WS-VALID-MONTH)
 SET INPUT-ERROR TO TRUECSUTLDPY.cpy:114 via COACTUPC.cbl:4232
  1. NOT (WS-VALID-MONTH)
 SET FLG-MONTH-NOT-OK TO TRUECSUTLDPY.cpy:115 via COACTUPC.cbl:4232
  1. NOT (WS-VALID-MONTH)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ': Month must be a number between 1 and 12.' DELIMITED BY SIZE INTO WS-RETURN-MSGCSUTLDPY.cpy:117–121 via COACTUPC.cbl:4232
  1. NOT (WS-VALID-MONTH)
 GO TO EDIT-MONTH-EXITCSUTLDPY.cpy:123 via COACTUPC.cbl:4232
  1. FUNCTION TEST-NUMVAL (WS-EDIT-DATE-MM) = 0
calc COMPUTE WS-EDIT-DATE-MM-N = FUNCTION NUMVAL (WS-EDIT-DATE-MM)CSUTLDPY.cpy:127–128 via COACTUPC.cbl:4232
  1. NOT (FUNCTION TEST-NUMVAL (WS-EDIT-DATE-MM) = 0)
 SET INPUT-ERROR TO TRUECSUTLDPY.cpy:131 via COACTUPC.cbl:4232
  1. NOT (FUNCTION TEST-NUMVAL (WS-EDIT-DATE-MM) = 0)
 SET FLG-MONTH-NOT-OK TO TRUECSUTLDPY.cpy:132 via COACTUPC.cbl:4232
  1. NOT (FUNCTION TEST-NUMVAL (WS-EDIT-DATE-MM) = 0)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ': Month must be a number between 1 and 12.' DELIMITED BY SIZE INTO WS-RETURN-MSGCSUTLDPY.cpy:134–138 via COACTUPC.cbl:4232
  1. NOT (FUNCTION TEST-NUMVAL (WS-EDIT-DATE-MM) = 0)
 GO TO EDIT-MONTH-EXITCSUTLDPY.cpy:140 via COACTUPC.cbl:4232
13 rules

EDIT-DAY

WhenThenAt
  1. WS-EDIT-DATE-DD EQUAL LOW-VALUES OR WS-EDIT-DATE-DD EQUAL SPACES
 SET INPUT-ERROR TO TRUECSUTLDPY.cpy:156 via COACTUPC.cbl:4232
  1. WS-EDIT-DATE-DD EQUAL LOW-VALUES OR WS-EDIT-DATE-DD EQUAL SPACES
 SET FLG-DAY-BLANK TO TRUECSUTLDPY.cpy:157 via COACTUPC.cbl:4232
  1. WS-EDIT-DATE-DD EQUAL LOW-VALUES OR WS-EDIT-DATE-DD EQUAL SPACES
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' : Day must be supplied.' DELIMITED BY SIZE INTO WS-RETURN-MSGCSUTLDPY.cpy:159–163 via COACTUPC.cbl:4232
  1. WS-EDIT-DATE-DD EQUAL LOW-VALUES OR WS-EDIT-DATE-DD EQUAL SPACES
 GO TO EDIT-DAY-EXITCSUTLDPY.cpy:165 via COACTUPC.cbl:4232
  1. FUNCTION TEST-NUMVAL (WS-EDIT-DATE-DD) = 0
calc COMPUTE WS-EDIT-DATE-DD-N = FUNCTION NUMVAL (WS-EDIT-DATE-DD)CSUTLDPY.cpy:171–172 via COACTUPC.cbl:4232
  1. NOT (FUNCTION TEST-NUMVAL (WS-EDIT-DATE-DD) = 0)
 SET INPUT-ERROR TO TRUECSUTLDPY.cpy:175 via COACTUPC.cbl:4232
  1. NOT (FUNCTION TEST-NUMVAL (WS-EDIT-DATE-DD) = 0)
 SET FLG-DAY-NOT-OK TO TRUECSUTLDPY.cpy:176 via COACTUPC.cbl:4232
  1. NOT (FUNCTION TEST-NUMVAL (WS-EDIT-DATE-DD) = 0)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ':day must be a number between 1 and 31.' DELIMITED BY SIZE INTO WS-RETURN-MSGCSUTLDPY.cpy:178–182 via COACTUPC.cbl:4232
  1. NOT (FUNCTION TEST-NUMVAL (WS-EDIT-DATE-DD) = 0)
 GO TO EDIT-DAY-EXITCSUTLDPY.cpy:184 via COACTUPC.cbl:4232
  1. NOT (WS-VALID-DAY)
 SET INPUT-ERROR TO TRUECSUTLDPY.cpy:190 via COACTUPC.cbl:4232
  1. NOT (WS-VALID-DAY)
 SET FLG-DAY-NOT-OK TO TRUECSUTLDPY.cpy:191 via COACTUPC.cbl:4232
  1. NOT (WS-VALID-DAY)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ':day must be a number between 1 and 31.' DELIMITED BY SIZE INTO WS-RETURN-MSGCSUTLDPY.cpy:193–197 via COACTUPC.cbl:4232
  1. NOT (WS-VALID-DAY)
 GO TO EDIT-DAY-EXITCSUTLDPY.cpy:199 via COACTUPC.cbl:4232
20 rules

EDIT-DAY-MONTH-YEAR

WhenThenAt
  1. NOT WS-31-DAY-MONTH AND WS-DAY-31
 SET INPUT-ERROR TO TRUECSUTLDPY.cpy:215 via COACTUPC.cbl:4232
  1. NOT WS-31-DAY-MONTH AND WS-DAY-31
 SET FLG-DAY-NOT-OK TO TRUECSUTLDPY.cpy:216 via COACTUPC.cbl:4232
  1. NOT WS-31-DAY-MONTH AND WS-DAY-31
 SET FLG-MONTH-NOT-OK TO TRUECSUTLDPY.cpy:217 via COACTUPC.cbl:4232
  1. NOT WS-31-DAY-MONTH AND WS-DAY-31
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ':Cannot have 31 days in this month.' DELIMITED BY SIZE INTO WS-RETURN-MSGCSUTLDPY.cpy:219–223 via COACTUPC.cbl:4232
  1. NOT WS-31-DAY-MONTH AND WS-DAY-31
 GO TO EDIT-DATE-CCYYMMDD-EXITCSUTLDPY.cpy:225 via COACTUPC.cbl:4232
  1. WS-FEBRUARY AND WS-DAY-30
 SET INPUT-ERROR TO TRUECSUTLDPY.cpy:230 via COACTUPC.cbl:4232
  1. WS-FEBRUARY AND WS-DAY-30
 SET FLG-DAY-NOT-OK TO TRUECSUTLDPY.cpy:231 via COACTUPC.cbl:4232
  1. WS-FEBRUARY AND WS-DAY-30
 SET FLG-MONTH-NOT-OK TO TRUECSUTLDPY.cpy:232 via COACTUPC.cbl:4232
  1. WS-FEBRUARY AND WS-DAY-30
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ':Cannot have 30 days in this month.' DELIMITED BY SIZE INTO WS-RETURN-MSGCSUTLDPY.cpy:234–238 via COACTUPC.cbl:4232
  1. WS-FEBRUARY AND WS-DAY-30
 GO TO EDIT-DATE-CCYYMMDD-EXITCSUTLDPY.cpy:240 via COACTUPC.cbl:4232
  1. WS-FEBRUARY AND WS-DAY-29
  2. WS-EDIT-DATE-YY-N = 0
 MOVE 400 TO WS-DIV-BYCSUTLDPY.cpy:246 via COACTUPC.cbl:4232
  1. WS-FEBRUARY AND WS-DAY-29
  2. NOT (WS-EDIT-DATE-YY-N = 0)
 MOVE 4 TO WS-DIV-BYCSUTLDPY.cpy:248 via COACTUPC.cbl:4232
  1. WS-FEBRUARY AND WS-DAY-29
calc DIVIDE WS-EDIT-DATE-CCYY-N BY WS-DIV-BY GIVING WS-DIVIDEND REMAINDER WS-REMAINDERCSUTLDPY.cpy:251–254 via COACTUPC.cbl:4232
  1. WS-FEBRUARY AND WS-DAY-29
  2. NOT (WS-REMAINDER = ZEROES)
 SET INPUT-ERROR TO TRUECSUTLDPY.cpy:259 via COACTUPC.cbl:4232
  1. WS-FEBRUARY AND WS-DAY-29
  2. NOT (WS-REMAINDER = ZEROES)
 SET FLG-DAY-NOT-OK TO TRUECSUTLDPY.cpy:260 via COACTUPC.cbl:4232
  1. WS-FEBRUARY AND WS-DAY-29
  2. NOT (WS-REMAINDER = ZEROES)
 SET FLG-MONTH-NOT-OK TO TRUECSUTLDPY.cpy:261 via COACTUPC.cbl:4232
  1. WS-FEBRUARY AND WS-DAY-29
  2. NOT (WS-REMAINDER = ZEROES)
 SET FLG-YEAR-NOT-OK TO TRUECSUTLDPY.cpy:262 via COACTUPC.cbl:4232
  1. WS-FEBRUARY AND WS-DAY-29
  2. NOT (WS-REMAINDER = ZEROES)
  3. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ':Not a leap year.Cannot have 29 days in this month.' DELIMITED BY SIZE INTO WS-RETURN-MSGCSUTLDPY.cpy:264–268 via COACTUPC.cbl:4232
  1. WS-FEBRUARY AND WS-DAY-29
  2. NOT (WS-REMAINDER = ZEROES)
 GO TO EDIT-DATE-CCYYMMDD-EXITCSUTLDPY.cpy:270 via COACTUPC.cbl:4232
  1. NOT (WS-EDIT-DATE-IS-VALID)
 GO TO EDIT-DATE-CCYYMMDD-EXITCSUTLDPY.cpy:277 via COACTUPC.cbl:4232
8 rules

EDIT-DATE-LE

WhenThenAt
always MOVE 'YYYYMMDD' TO WS-DATE-FORMATCSUTLDPY.cpy:291 via COACTUPC.cbl:4232
  1. NOT (WS-SEVERITY-N = 0)
 SET INPUT-ERROR TO TRUECSUTLDPY.cpy:301 via COACTUPC.cbl:4232
  1. NOT (WS-SEVERITY-N = 0)
 SET FLG-DAY-NOT-OK TO TRUECSUTLDPY.cpy:302 via COACTUPC.cbl:4232
  1. NOT (WS-SEVERITY-N = 0)
 SET FLG-MONTH-NOT-OK TO TRUECSUTLDPY.cpy:303 via COACTUPC.cbl:4232
  1. NOT (WS-SEVERITY-N = 0)
 SET FLG-YEAR-NOT-OK TO TRUECSUTLDPY.cpy:304 via COACTUPC.cbl:4232
  1. NOT (WS-SEVERITY-N = 0)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' validation error Sev code: ' WS-SEVERITY ' Message code: ' WS-MSG-NO DELIMITED BY SIZE INTO WS-RETURN-MSGCSUTLDPY.cpy:306–313 via COACTUPC.cbl:4232
  1. NOT (WS-SEVERITY-N = 0)
 GO TO EDIT-DATE-LE-EXITCSUTLDPY.cpy:315 via COACTUPC.cbl:4232
  1. NOT INPUT-ERROR
 SET FLG-DAY-ISVALID TO TRUECSUTLDPY.cpy:319 via COACTUPC.cbl:4232
8 rules

EDIT-DATE-OF-BIRTH

WhenThenAt
alwayscalc COMPUTE WS-EDIT-DATE-BINARY = FUNCTION INTEGER-OF-DATE (WS-EDIT-DATE-CCYYMMDD-N)CSUTLDPY.cpy:345–346 via COACTUPC.cbl:4232
alwayscalc COMPUTE WS-CURRENT-DATE-BINARY = FUNCTION INTEGER-OF-DATE (WS-CURRENT-DATE-YYYYMMDD-N)CSUTLDPY.cpy:347–348 via COACTUPC.cbl:4232
  1. NOT (WS-CURRENT-DATE-BINARY > WS-EDIT-DATE-BINARY)
 SET INPUT-ERROR TO TRUECSUTLDPY.cpy:356 via COACTUPC.cbl:4232
  1. NOT (WS-CURRENT-DATE-BINARY > WS-EDIT-DATE-BINARY)
 SET FLG-DAY-NOT-OK TO TRUECSUTLDPY.cpy:357 via COACTUPC.cbl:4232
  1. NOT (WS-CURRENT-DATE-BINARY > WS-EDIT-DATE-BINARY)
 SET FLG-MONTH-NOT-OK TO TRUECSUTLDPY.cpy:358 via COACTUPC.cbl:4232
  1. NOT (WS-CURRENT-DATE-BINARY > WS-EDIT-DATE-BINARY)
 SET FLG-YEAR-NOT-OK TO TRUECSUTLDPY.cpy:359 via COACTUPC.cbl:4232
  1. NOT (WS-CURRENT-DATE-BINARY > WS-EDIT-DATE-BINARY)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ':cannot be in the future ' DELIMITED BY SIZE INTO WS-RETURN-MSGCSUTLDPY.cpy:361–365 via COACTUPC.cbl:4232
  1. NOT (WS-CURRENT-DATE-BINARY > WS-EDIT-DATE-BINARY)
 GO TO EDIT-DATE-OF-BIRTH-EXITCSUTLDPY.cpy:367 via COACTUPC.cbl:4232