PageRenderTime 53ms CodeModel.GetById 14ms RepoModel.GetById 0ms app.codeStats 1ms

/ojc-core/encodersl/encoder-coco/test/data/JCAPS51/BXCFTLAU.cobol

https://bitbucket.org/pymma/openesb-components
COBOL | 618 lines | 618 code | 0 blank | 0 comment | 0 complexity | 02235b3e05328ca1560e1c0343f363af MD5 | raw file
    

  1. 000050*****************************************************************         
    2. 

  2. 000100* YEAR 2000 COMPLIANT  ?  MM/DD/CCYY   REVIEWED BY: ______      *         
    3. 

  3. 000150* YEAR 2000 UPDATED    _  MM/DD/CCYY    UPDATED BY: ______      *         
    4. 

  4. 000200*****************************************************************         
    5. 

  5. 000250* FTL - FORMATED TRANSACTION LOG.  CREATED BY STL EXTRACT.       *        
    6. 

  6. 000300*                                  AND BY DEBIT DTF EXTRACT      *        
    7. 

  7. 000350*----------------------------------------------------------------*        
    8. 

  8. 000400*                         CHANGE HISTORY                         *        
    9. 

  9. 000450*----------------------------------------------------------------*        
    10. 

  10. 000500* MOD DATE  BY WHOM  REASON FOR CHANGE - CHANGE MADE             *        
    11. 

  11. 000550*                                                                         
    12. 

  12. EPAY1A*  1/09/95  J.COVINGTON (EPAY)   ADDED CONTINUATION RECORD TYPE           
    13. 

  13. R81768*  6/14/95  F. BRADEN   R0081768 ADDED CONTINUATION RECORD 4.2            
    14. 

  14. R70235*  7/14/95  F. BRADEN   R0070235 READYPOST MISC FIELDS & FLAGS            
    15. 

  15. EPAY1C*  7/24/95  F. BRADEN   EPAY1C   A1XPVID FLAG                             
    16. 

  16. EPAY2 *  2/05/96  F. BRADEN   EPAY2    ISO 61.3, 73, 103, 126.5                 
    17. 

  17. EPAY2 *                                ADDED TO EBANK EXTENSION RECORD          
    18. 

  18. NNSS  *  2/07/96  F. BRADEN   NNSS     NATIONAL NET SETTLEMENT SYSTEMS          
    19. 

  19. NNSS  *                                BIT249 (NO ISO) SWITCHES                 
    20. 

  20. NNSS  *                                ISO119 STTLMNT SERVICE DATA              
    21. 

  21. NNSS  *                                - ALL FIELDS ADDED IN TYPE4.2            
    22. 

  22. NNSS  *                                - EXTENSION RECORD                       
    23. 

  23. CRIS  *  2/14/96  F. BRADEN   CRIS     CRIS ADVICES FIELD 48 DATA               
    24. 

  24. ONEATM*  3/01/96  F. BRADEN   ONEATM   FIELD 28                                 
    25. 

  25. SVCDEV*  3/03/96  F. BRADEN   SVCDEV   STT SERVICE DEVELOPMENT FIELD            
    26. 

  26. CHIP1A*  4/08/96  F. BRADEN   CHIP1A   CCPS - CHIP CARD PROCESSING SYS          
    27. 

  27. IDEF63*  6/12/96  F. BRADEN   IDEF63   ADD ISO 63.2                             
    28. 

  28. CCFS  *  7/09/96  F. BRADEN   CCFS     CURRENCY CONVERSION FEE SERVICE          
    29. 

  29. VCASH *           F. BRADEN   VCASH    VISA CASH LOAD RESPONSE SIGNATUR         
    30. 

  30. SUSEG *  7/26/96  C. JOHNSON  SUSEG    SU SEGMENT NEWLY EXTRACTED TRANS         
    31. 

  31. CHIP1B* 12/13/96  C. JOHNSON  CHIP1B   CCPS - PHASE 1B                          
    32. 

  32. CHIP1B*                                C0158654                                 
    33. 

  33. CHIP1B* 12/30/96  F. BRADEN   CHIP1B   SUPPORTING BASEII USE OF BXCFTLN         
    34. 

  34. CHIP1B* 05/09/97  F. BRADEN   C0XXXXXX CORRECTIONS TO NEW CHIP FIELDS           
    35. 

  35. BER574* 07/30/97  C. JOHNSON  C0173405 BANKRUPTCY RISK PREDICTION SRV           
    36. 

  36. VDAS  * 08/25/97  C. JOHNSON  C0173416 VDAS Workstation BIN Address             
    37. 

  37. BER182* 11/24/97  Y. MOLDAVS  C0185260 COPAC CHIP OFF-LINE                      
    38. 

  38. BER182*                                PRE-AUTHORIZED CARD                      
    39. 

  39. BER926* 11/25/97  Y. MOLDAVS  C0185260 VISANET DELIVERY ENHANCEMENT FOR         
    40. 

  40. BER926*                                CRIS ALERT                               
    41. 

  41. BER159* 01/07/98  Y. MOLDAVS  BER1599  ADDITIONAL DATA INDICATOR                
    42. 

  42. BER881* 01/07/98  Y. MOLDAVS  MERCHANT MULTI VOLUME INDICATOR                   
    43. 

  43. RT1401* 04/23/98  Y. MOLDAVS  RTN1401  VSEC                                     
    44. 

  44. RT1268* 04/23/98  Y. MOLDAVS  RTN1268  CVV2                                     
    45. 

  45. RT1682* 04/23/98  Y. MOLDAVS  RTN1682  F44.9                                    
    46. 

  46. SEPT98* 05/04/98  F. BRADEN   SEPT98   SEPTEMBER 1998 MISC CLEANUP              
    47. 

  47. B53924* 05/12/98  F. BRADEN   P0253924 MULTIPLE CLEARING SEQ NUMBER FOR         
    48. 

  48. B53924*                                BOAS/VTRS                                
    49. 

  49. RT0712* 05/22/98  F. BRADEN   RTN712   VISA ELECTRON PROD CODE EXPANSION        
    50. 

  50. RT0712*                                & USAGE CODE                             
    51. 

  51. RT1794* 05/28/98  F. BRADEN   RTN1794  VCCII LOG AREA                           
    52. 

  52. RT1291* 06/01/98  Y. MOLDAVS  RTN1291  FLEET PHASE III                          
    53. 

  53. RT1794* 06/16/98  F. BRADEN   RTN1794  F62.15                                   
    54. 

  54. RT1925* 12/07/98  S. LEWIS    RTN1925  LARGE TICKET & IGOTS                     
    55. 

  55. RT2013* 12/11/98  F. BRADEN   RTN2013  ELECTRON STIP REPORTING                  
    56. 

  56. RT1864* 12/17/98  F. BRADEN   RTN1864  U.S. COLLECTION ONLY TRANSACTIONS        
    57. 

  57. APRL99* 12/18/98  F. BRADEN   APRIL99  APRIL MISC COSMETIC CLEANUPS             
    58. 

  58. RT2043* 03/09/99  S. ROY      RTN2043  88 LEVELS FOR EXISITNG FIELDS            
    59. 

  59. RT1852* 03/17/99  F. BRADEN   RTN1852  MASTERCARD FIELD 43 - NAME/LOC           
    60. 

  60. RT1628* 04/21/99  F. BRADEN   RTN1628  ATM FORMAT STATUS FLAGS                  
    61. 

  61. RT2395* 03/30/00  F. BRADEN            POS Check Service                        
    62. 

  62. RT2433* 03/30/00  F. BRADEN            FTL 2-hr feed to VTRS & the world        
    63. 

  63. 003100*----------------------------------------------------------------*        
    64. 

  64. 003150*                                                                         
    65. 

  65. 003150*  ===                                                                    
    66. 

  66. 003150*  ======> The default values are supplied by the "INITIALIZE"            
    67. 

  67. 003150*  ======> COBOL verb except where indicated by comments                  
    68. 

  68. 003150*  ===                                                                    
    69. 

  69. 003150*                                                                         
    70. 

  70. 003200*----------------------------------------------------------------*        
    71. 

  71. 003250*    RECORD HEADER - AUTHORIZATION RECORD COMMON AREA            *        
    72. 

  72. 003300*----------------------------------------------------------------*    
    73. 

  73. 003325     01  BXCFTLAU.    
    74. 

  74. 003350     03  :FTL:-AU-COMMON-DATA.                                            
    75. 

  75. 003400         05  :FTL:-AU-REC-TYPE               PIC  X(001).                 
    76. 

  76. 003450             88  :FTL:-AU-HEADER             VALUE 'H'.                   
    77. 

  77. 003500             88  :FTL:-AU-AUTHORIZATION      VALUE '0'.                   
    78. 

  78. 003550             88  :FTL:-AU-FILE-MAINTENANCE   VALUE '1'.                   
    79. 

  79. 003600             88  :FTL:-AU-CP-NONPACM         VALUE '3'.                   
    80. 

  80. 003700             88  :FTL:-AU-MIP-BILLING-STATS  VALUE '5'.                   
    81. 

  81. 003750             88  :FTL:-AU-MIP-ONUS-STATS     VALUE '6'.                   
    82. 

  82. 003800             88  :FTL:-AU-ARS-ADVICE         VALUE '7'.                   
    83. 

  83. 003850             88  :FTL:-AU-INTER-VIC          VALUE '8'.                   
    84. 

  84. 003900             88  :FTL:-AU-REJECTED-MSG       VALUE '9'.                   
    85. 

  85. SUSEG              88  :FTL:-AU-SUSEGMENT-MSG      VALUE 'S'.                   
    86. 

  86. 004000             88  :FTL:-AU-TRAILER            VALUE 'T'.                   
    87. 

  87. 004500*----------------------------------------------------------------*        
    88. 

  88. 004550*   AUTHORIZATION RECORD   TYPE '0'.                             *        
    89. 

  89. 004600*   AUTH. ADVICE RECORD    TYPE '7'.                             *        
    90. 

  90. 004650*   OCEMA INTER-VIC RECORD TYPE '8'.                             *        
    91. 

  91. 004700*   LATE RESPONSES         TYPE '9'.                             *        
    92. 

  92. 004750*----------------------------------------------------------------*        
    93. 

  93. 004050         05  :FTL:-AU-VIC                    PIC  X(001).                 
    94. 

  94. 004100             88  :FTL:-AU-VIC-OCW            VALUE 'A'.                   
    95. 

  95. 004150             88  :FTL:-AU-VIC-OCE            VALUE 'B'.                   
    96. 

  96. 004200             88  :FTL:-AU-VIC-OCEMA          VALUE 'C'.                   
    97. 

  97. 004250             88  :FTL:-AU-VIC-OCB            VALUE 'D'.                   
    98. 

  98. 004300             88  :FTL:-AU-VIC-OCAP           VALUE 'E'.                   
    99. 

  99. 004350         05  :FTL:-AU-DATE-YYDDD             PIC S9(005) COMP-3.          
    100. 

  100. 004400         05  :FTL:-AU-TIME-HHMMSS            PIC S9(006) COMP-3.          
    101. 

  101. 004450         05  :FTL:-AU-SRCE-STATION           PIC S9(006) COMP-3.          
    102. 

  102. 004750*----------------------------------------------------------------*        
    103. 

  103. 004460         05  :FTL:-AU-DEST-STATION           PIC S9(006) COMP-3.          
    104. 

  104. 004470         05  :FTL:-AU-PETERLOWRY-SWITCHES.                                
    105. 

  105. RT2433             10  :FTL:-AU-SW01               PIC X(001).                  
    106. 

  106. RT2433             10  :FTL:-AU-SW02               PIC X(001).                  
    107. 

  107. RT2433             10  :FTL:-AU-SW03               PIC X(001).                  
    108. 

  108. RT2433             10  :FTL:-AU-SW04               PIC X(001).                  
    109. 

  109. RT2433             10  :FTL:-AU-SW05               PIC X(001).                  
    110. 

  110. RT2433             10  :FTL:-AU-SW06               PIC X(001).                  
    111. 

  111. RT2433             10  :FTL:-AU-SW07               PIC X(001).                  
    112. 

  112. RT2433             10  :FTL:-AU-SW08               PIC X(001).                  
    113. 

  113. RT2433             10  :FTL:-AU-SW09               PIC X(001).                  
    114. 

  114. RT2433             10  :FTL:-AU-SW10               PIC X(001).                  
    115. 

  115. 004470         05  FILLER                          PIC X(025).                  
    116. 

  116. 004800     03  :FTL:-AU-RECORD.                                                 
    117. 

  117. 004850         05  :FTL:-AU-STIP                   PIC S9(004) COMP.            
    118. 

  118. 004900            88  :FTL:-AU-STIP-NOT-PROC-BY    VALUE +0.                    
    119. 

  119. 004950            88  :FTL:-AU-STIP-UNPLANED       VALUE +1  +2  +3  +4         
    120. 

  120. 005000                                                   +6  +8  +9 +13         
    121. 

  121. 005050                                                  +16 +17 +18 +19.        
    122. 

  122. 005100            88  :FTL:-AU-STIP-LINE-INVALID       VALUE +1.                
    123. 

  123. 005150            88  :FTL:-AU-STIP-LINE-STOPPED       VALUE +2.                
    124. 

  124. 005200            88  :FTL:-AU-STIP-TERM-STOPPED       VALUE +3.                
    125. 

  125. 005250            88  :FTL:-AU-STIP-TERM-SLOW-POLL     VALUE +4.                
    126. 

  126. 005300            88  :FTL:-AU-STIP-SIGNED-ON          VALUE +5.                
    127. 

  127. 005350            88  :FTL:-AU-STIP-EDIT-ERROR         VALUE +6.                
    128. 

  128. 005400            88  :FTL:-AU-STIP-TERM-SI-MODE       VALUE +7.                
    129. 

  129. 005450            88  :FTL:-AU-STIP-LINE-QUEUE-LONG    VALUE +8.                
    130. 

  130. 005500            88  :FTL:-AU-STIP-RETURNED-MESSAGE   VALUE +9.                
    131. 

  131. 005550            88  :FTL:-AU-STIP-FAST-RESP-REQD     VALUE +10.               
    132. 

  132. 005600            88  :FTL:-AU-STIP-FAST-RESP-ALT-RTG  VALUE +11.               
    133. 

  133. 005650            88  :FTL:-AU-STIP-TERM-SIGNED-OFF    VALUE +12.               
    134. 

  134. 005700            88  :FTL:-AU-STIP-OTHER              VALUE +13.               
    135. 

  135. 005750            88  :FTL:-AU-STIP-VERIFICATION       VALUE +14.               
    136. 

  136. 005800            88  :FTL:-AU-STIP-LCS-CATEGORY-AB    VALUE +15.               
    137. 

  137. 005850            88  :FTL:-AU-STIP-SERIES1-DEST       VALUE +16.               
    138. 

  138. 005900            88  :FTL:-AU-STIP-IN-DATA-FLOW-RESET VALUE +17.               
    139. 

  139. 005950            88  :FTL:-AU-STIP-BIND-NOT-RECEIVED  VALUE +18.               
    140. 

  140. 006000            88  :FTL:-AU-STIP-NODE-NOT-ACTIVE    VALUE +19.               
    141. 

  141. 006050            88  :FTL:-AU-STIP-ATR-TIMEOUT        VALUE +20.               
    142. 

  142. 006100            88  :FTL:-AU-STIP-PVV-ATTEMPTED      VALUE +21.               
    143. 

  143. 006150            88  :FTL:-AU-STIP-FREE-ACTIVITY      VALUE +22.               
    144. 

  144. 006200            88  :FTL:-AU-STIP-FORCE-ON-REQUEST   VALUE +23.               
    145. 

  145. 006250         05  :FTL:-AU-STIP-ADV-CODE          PIC  9(001).                 
    146. 

  146. 006300            88  :FTL:-AU-STIP-ATR-TIMEOUT        VALUE 1.                 
    147. 

  147. 006350            88  :FTL:-AU-STIP-LCS-CATEGORY-AB    VALUE 2.                 
    148. 

  148. 006400            88  :FTL:-AU-STIP-ISS-SI-MODE        VALUE 3.                 
    149. 

  149. 006450            88  :FTL:-AU-STIP-ISS-UNAVAILABLE    VALUE 4.                 
    150. 

  150. 006500            88  :FTL:-AU-MCAS-ISS-RESPONDED      VALUE 5.                 
    151. 

  151. 006550            88  :FTL:-AU-STIP-FORCE-ATR          VALUE 6.                 
    152. 

  152. 006600            88  :FTL:-AU-STIP-POTENTIAL-DUP      VALUE 7.                 
    153. 

  153. 006650            88  :FTL:-AU-STIP-PROBABLE-DUP       VALUE 8.                 
    154. 

  154. 006700            88  :FTL:-AU-STIP-BKUP-CENTER-ADVICE VALUE 9.                 
    155. 

  155. 006750         05  :FTL:-AU-AVS-RESULT             PIC  X(001).                 
    156. 

  156. 006800            88  :FTL:-AU-AVS-NOT-PERFORMED     VALUE    SPACE.            
    157. 

  157. 006850            88  :FTL:-AU-AVS-YADR-Y5ZIP        VALUE    'Y'.              
    158. 

  158. 006900            88  :FTL:-AU-AVS-YADR-Y9ZIP        VALUE    'X'.              
    159. 

  159. 006950            88  :FTL:-AU-AVS-YADR-NZIP         VALUE    'A'.              
    160. 

  160. 007000            88  :FTL:-AU-AVS-NADR-Y5ZIP        VALUE    'Z'.              
    161. 

  161. 007050            88  :FTL:-AU-AVS-NADR-Y9ZIP        VALUE    'W'.              
    162. 

  162. 007100            88  :FTL:-AU-AVS-NADR-NZIP         VALUE    'N'.              
    163. 

  163. 007150            88  :FTL:-AU-AVS-INFO-UNAVAILABLE  VALUE    'U'.              
    164. 

  164. 007200            88  :FTL:-AU-AVS-SYS-UNAVAIL-RETRY VALUE    'R'.              
    165. 

  165. 007250            88  :FTL:-AU-AVS-NOT-SUPPORTED     VALUE    'S'.              
    166. 

  166. 007300         05  :FTL:-AU-TELECD-RESULT-REDEF    REDEFINES                    
    167. 

  167. 007350             :FTL:-AU-AVS-RESULT.                                         
    168. 

  168. 007400             10  :FTL:-AU-TELECODE-RESULT    PIC  X(001).                 
    169. 

  169. 007450                 88 :FTL:-AU-TELECODE-NOT-PERFORMED VALUE SPACE.          
    170. 

  170. 007500                 88 :FTL:-AU-TELECODE-MATCHED       VALUE '0'.            
    171. 

  171. 007550                 88 :FTL:-AU-NO-TELECODE-SEGMENT    VALUE '1'.            
    172. 

  172. 007600                 88 :FTL:-AU-TELECODE-UNMATCHED     VALUE '2'.            
    173. 

  173. 007650                 88 :FTL:-AU-TEL-MANY-VERIF-ATTEMPT VALUE '3'.            
    174. 

  174. 007700                 88 :FTL:-AU-TEL-DAILY-USE-EXCEEDED VALUE '4'.            
    175. 

  175. 007750         05  :FTL:-AU-RESP-SECONDS           PIC S9(004) COMP.            
    176. 

  176. 007800         05  :FTL:-AU-CARDTYPE               PIC  X(001).                 
    177. 

  177. RT2043             88  :FTL:-AU-VISA VALUE '4' 'P' 'E' 'B' 'H'                  
    178. 

  178. RT2043                                     'J' 'K' 'R' 'S'.                     
    179. 

  179. 007950             88  :FTL:-AU-VISA-CLASIC       VALUE '4'.                    
    180. 

  180. 008000             88  :FTL:-AU-VISA-PREMIER      VALUE 'P'.                    
    181. 

  181. 008050             88  :FTL:-AU-VISA-ELECTRON     VALUE 'E'.                    
    182. 

  182. 008100             88  :FTL:-AU-VISA-BUSINESS     VALUE 'B'.                    
    183. 

  183. RT2043             88  :FTL:-AU-VISA-INFINITE     VALUE 'H'.                    
    184. 

  184. RT2043             88  :FTL:-AU-VISA-PLATINUM     VALUE 'J'.                    
    185. 

  185. RT2043             88  :FTL:-AU-VISA-SIGNATURE    VALUE 'K'.                    
    186. 

  186. 008300             88  :FTL:-AU-VISA-CORPORATE    VALUE 'R'.                    
    187. 

  187. 008350             88  :FTL:-AU-VISA-PROCUREMENT  VALUE 'S'.                    
    188. 

  188. 008400             88  :FTL:-AU-AMEX              VALUE '3'.                    
    189. 

  189. 008450             88  :FTL:-AU-MASTERCARD        VALUE '5'.                    
    190. 

  190. 008500             88  :FTL:-AU-DINERS            VALUE '6'.                    
    191. 

  191. 008550             88  :FTL:-AU-JCB               VALUE '7'.                    
    192. 

  192. 008600             88  :FTL:-AU-DISCOVER          VALUE '8'.                    
    193. 

  193. 008650             88  :FTL:-AU-PRIVATE           VALUE '9'.                    
    194. 

  194. 008700             88  :FTL:-AU-UNKNOWN-CARD      VALUE 'U'.                    
    195. 

  195. 008750***F102 ACCOUNT ID 1 OR F103  ACCOUNT ID 2                                
    196. 

  196. 008775         05  :FTL:-AU-CARD-NUMBER           PIC  X(028).                  
    197. 

  197. RT2395         05  :FTL:-AU-F125-CHK-ID-NUMBER    REDEFINES                     
    198. 

  198. RT2395             :FTL:-AU-CARD-NUMBER.                                        
    199. 

  199. RT2395             10 :FTL:-AU-F125-CHK-ABA-NUMBER PIC  9(009).                 
    200. 

  200. RT2395             10 :FTL:-AU-F125-CHK-ACCT-NBR   PIC  X(019).                 
    201. 

  201. 008850         05  :FTL:-AU-CARD-EXP-DATE-MMYY     PIC S9(004)  COMP.           
    202. 

  202. 008900         05  :FTL:-AU-TRAN-AMT               PIC S9(10)V99                
    203. 

  203. 008901                                             COMP-3.                      
    204. 

  204. 008950         05  :FTL:-AU-ACQ-FORMAT-FLAG        PIC  X(001).                 
    205. 

  205. 009000             88  :FTL:-AU-ACQ-FIX-MSG        VALUE '0'.                   
    206. 

  206. 009050             88  :FTL:-AU-ACQ-ISO-MSG        VALUE '1'.                   
    207. 

  207. 009100             88  :FTL:-AU-ACQ-AMEX-MSG       VALUE '2'.                   
    208. 

  208. 009150             88  :FTL:-AU-ACQ-MC-MSG         VALUE '3'.                   
    209. 

  209. 009200         05  :FTL:-AU-ACQ-MSG-TYPE           PIC  9(004).                 
    210. 

  210. 009250         05  :FTL:-AU-ACQ-MSG-REDEF          REDEFINES                    
    211. 

  211. 009300             :FTL:-AU-ACQ-MSG-TYPE.                                       
    212. 

  212. 009350             10 :FTL:-AU-ACQ-MSG-TYPE1       PIC  9(002).                 
    213. 

  213. 009400                88 :FTL:-AU-ACQ-AUTHORIZATION   VALUE 01.                 
    214. 

  214. 009450                88 :FTL:-AU-ACQ-FILE-UPDATE     VALUE 03.                 
    215. 

  215. 009500                88 :FTL:-AU-ACQ-REVERSAL        VALUE 04.                 
    216. 

  216. 009550                88 :FTL:-AU-ACQ-ADMINISTRATIVE  VALUE 06.                 
    217. 

  217. 009600                88 :FTL:-AU-ACQ-NETWORK         VALUE 08.                 
    218. 

  218. 009650                88 :FTL:-AU-ACQ-PRVT-LBL-MSG    VALUE 90.                 
    219. 

  219. 009700                88 :FTL:-AU-ACQ-SECURITY-MODULE VALUE 99.                 
    220. 

  220. 009750             10 :FTL:-AU-ACQ-MSG-TYPE2       PIC  9(002).                 
    221. 

  221. 009800                88 :FTL:-AU-ACQ-REQUEST             VALUE 00.             
    222. 

  222. 009850                88 :FTL:-AU-ACQ-REPEAT              VALUE 01.             
    223. 

  223. 009900                88 :FTL:-AU-ACQ-CONFIRMATION        VALUE 02.             
    224. 

  224. 009950                88 :FTL:-AU-ACQ-RESPONSE            VALUE 10.             
    225. 

  225. 010000                88 :FTL:-AU-ACQ-ONLINE-FM-UPDT-RESP VALUE 12.             
    226. 

  226. 010050                88 :FTL:-AU-ACQ-ADVICE              VALUE 20.             
    227. 

  227. 010100                88 :FTL:-AU-ACQ-ONLINE-FM-UPDT-ADV  VALUE 22.             
    228. 

  228. 010150                88 :FTL:-AU-ACQ-ADVICE-RESPONSE     VALUE 30.             
    229. 

  229. 010200                88 :FTL:-AU-ACQ-ADVICE-RESP-FM-UPDT VALUE 32.             
    230. 

  230. 010250         05  :FTL:-AU-PROC-CODE.                                          
    231. 

  231. 010300             10  :FTL:-AU-PROC-TRAN          PIC  9(002).                 
    232. 

  232. 010350             10  :FTL:-AU-PROC-ACCT          PIC  9(002).                 
    233. 

  233. BER182                 88 :FTL:-AU-COPAC-ACCT      VALUE  62.                   
    234. 

  234. 010450         05  :FTL:-AU-TRAN-CODE.                                          
    235. 

  235. 010500             88  :FTL:-AU-CHECK-ACCEPTANCE VALUE 'C1' 'C2' 'C3'           
    236. 

  236. 010550                                                 'C4' 'C5'.               
    237. 

  237. 010600             10  :FTL:-AU-TRAN-CD-CHAR1      PIC  X(001).                 
    238. 

  238. 010650             10  :FTL:-AU-TRAN-CD-CHAR2      PIC  X(001).                 
    239. 

  239. 010700         05  :FTL:-AU-SRCE-DEV               PIC  X(001).                 
    240. 

  240. 010750***2.7000 - 7999 OR 1001 - 1699 OR 3001 - 3699 FTL-AU-SYSTEM-MIP=3        
    241. 

  241. 010800         05  :FTL:-AU-ACQ-SYSTEM-TYPE        PIC  X(001).                 
    242. 

  242. 010850             88  :FTL:-AU-SYSTEM-REGULAR     VALUE '0'.                   
    243. 

  243. 010900             88  :FTL:-AU-SYSTEM-MIP         VALUE '3'.                   
    244. 

  244. 010950             88  :FTL:-AU-SYSTEM-POS         VALUE '4'.                   
    245. 

  245. 011000         05  :FTL:-AU-ACQ-BIN                PIC  9(006) COMP-3.          
    246. 

  246. 011050         05  :FTL:-AU-ACQ-PCR                PIC  X(004).                 
    247. 

  247. 011100         05  :FTL:-AU-ACQ-PCR-COUNTRY        PIC  9(003).                 
    248. 

  248. 011150         05  :FTL:-AU-ACQ-PCR-REGION         PIC  X(001).                 
    249. 

  249. 011200         05  :FTL:-AU-ACQ-MERCH-TYPE         PIC  X(004).                 
    250. 

  250. 011250         05  :FTL:-AU-ACQ-MERCH-NUM          PIC S9(006) COMP-3.          
    251. 

  251. 011300         05  :FTL:-AU-ACQ-TERM-ID            PIC  X(015).                 
    252. 

  252. 011350         05  :FTL:-AU-ACQ-TERM-ID-CODE       PIC  X(008).                 
    253. 

  253. 011400         05  :FTL:-AU-ACQ-POSTAL-CODE        PIC  X(009).                 
    254. 

  254. 011450         05  :FTL:-AU-ACQ-POST-REDEF         REDEFINES                    
    255. 

  255. 011500             :FTL:-AU-ACQ-POSTAL-CODE.                                    
    256. 

  256. 011550             10  :FTL:-AU-ACQ-POSTAL-ONE     PIC  X(005).                 
    257. 

  257. 011600             10  :FTL:-AU-ACQ-POSTAL-TWO     PIC  X(004).                 
    258. 

  258. 011650         05  :FTL:-AU-POS-ENT-MODE           PIC  X(003).                 
    259. 

  259. 011700         05  FILLER                          REDEFINES                    
    260. 

  260. 011750             :FTL:-AU-POS-ENT-MODE.                                       
    261. 

  261. 011800             10 :FTL:-AU-POS-ENT-MODE-USED PIC X(002).                    
    262. 

  262. CHIP1B                88 :FTL:-AU-CHIP-CVV-RELIABLE   VALUE '05'.               
    263. 

  263. CHIP1B                88 :FTL:-AU-CHIP-CVV-UNRELIABLE VALUE '95'.               
    264. 

  264. 011950             10 :FTL:-AU-POS-ENT-CAPABILITY PIC X(001).                   
    265. 

  265. 012000         05  :FTL:-AU-POS-ENT-CAP-CODE       PIC X(002).                  
    266. 

  266. 012050         05  FILLER                          REDEFINES                    
    267. 

  267. 012100             :FTL:-AU-POS-ENT-CAP-CODE.                                   
    268. 

  268. 012150             10 :FTL:-AU-POS-TERM-TYPE       PIC X(001).                  
    269. 

  269. 012200             10 :FTL:-AU-POS-TERM-CAPABILITY PIC X(001).                  
    270. 

  270. 012250         05  :FTL:-AU-POS-COND-CODE          PIC X(002).                  
    271. 

  271. 012300         05  :FTL:-AU-ACQ-OPER-ID            PIC S9(003) COMP-3.          
    272. 

  272. 012350         05  :FTL:-AU-TRACK1-OR-TRACK2       REDEFINES                    
    273. 

  273. 012400             :FTL:-AU-ACQ-OPER-ID.                                        
    274. 

  274. 012450             10 :FTL:-AU-TRACK-SELECTED      PIC S9(003) COMP-3.          
    275. 

  275. 012500                88 :FTL:-AU-NO-DATA-ON-TRACKS VALUE +0.                   
    276. 

  276. 012550                88 :FTL:-AU-TRACK-ONE         VALUE +1.                   
    277. 

  277. 012600                88 :FTL:-AU-TRACK-TWO         VALUE +2.                   
    278. 

  278. 012650         05  :FTL:-AU-INTER-VIC-FLAG         PIC  X(001).                 
    279. 

  279. 012700             88 :FTL:-AU-INTER-VIC-REC        VALUE '1'.                  
    280. 

  280. 012750         05  :FTL:-AU-ISS-FORMAT-FLAG        PIC  X(001).                 
    281. 

  281. 012800             88 :FTL:-AU-ISS-FIX-MSG          VALUE '0'.                  
    282. 

  282. 012850             88 :FTL:-AU-ISS-ISO-MSG          VALUE '1'.                  
    283. 

  283. 012900             88 :FTL:-AU-ISS-AMEX-MSG         VALUE '2'.                  
    284. 

  284. 012950             88 :FTL:-AU-ISS-MC-MSG           VALUE '3'.                  
    285. 

  285. 013000         05  :FTL:-AU-ISS-MSG-TYPE           PIC  9(004).                 
    286. 

  286. 013050         05  :FTL:-AU-ISS-MSG-REDEF          REDEFINES                    
    287. 

  287. 013100             :FTL:-AU-ISS-MSG-TYPE.                                       
    288. 

  288. 013150             10 :FTL:-AU-ISS-MSG-TYPE1       PIC  9(002).                 
    289. 

  289. 013200                88 :FTL:-AU-ISS-AUTHORIZATION   VALUE 01.                 
    290. 

  290. 013250                88 :FTL:-AU-ISS-FILE-UPDATE     VALUE 03.                 
    291. 

  291. 013300                88 :FTL:-AU-ISS-REVERSAL        VALUE 04.                 
    292. 

  292. 013350                88 :FTL:-AU-ISS-ADMINISTRATIVE  VALUE 06.                 
    293. 

  293. 013400                88 :FTL:-AU-ISS-NETWORK         VALUE 08.                 
    294. 

  294. 013450                88 :FTL:-AU-ISS-PRVT-LBL-MSG    VALUE 90.                 
    295. 

  295. 013500                88 :FTL:-AU-ISS-SECURITY-MODULE VALUE 99.                 
    296. 

  296. 013550             10 :FTL:-AU-ISS-MSG-TYPE2       PIC  9(002).                 
    297. 

  297. 013600                88 :FTL:-AU-ISS-REQUEST             VALUE 00.             
    298. 

  298. 013650                88 :FTL:-AU-ISS-REPEAT              VALUE 01.             
    299. 

  299. 013700                88 :FTL:-AU-ISS-CONFIRMATION        VALUE 02.             
    300. 

  300. 013750                88 :FTL:-AU-ISS-RESPONSE            VALUE 10.             
    301. 

  301. 013800                88 :FTL:-AU-ISS-ONLINE-FM-UPDT-RESP VALUE 12.             
    302. 

  302. 013850                88 :FTL:-AU-ISS-ADVICE              VALUE 20.             
    303. 

  303. 013900                88 :FTL:-AU-ISS-ONLINE-FM-UPDT-ADV  VALUE 22.             
    304. 

  304. 013950                88 :FTL:-AU-ISS-ADVICE-RESPONSE     VALUE 30.             
    305. 

  305. 014000                88 :FTL:-AU-ISS-ADVICE-RESP-FM-UPDT VALUE 32.             
    306. 

  306. 014050* THE FOLLOWING FIELD FTL-AU-ISS-BIN SHOULD NOT BE USED ANYMORE           
    307. 

  307. 014100* SINCE BIN NUMBER CAN BE UPTO 11 BYTES.                                  
    308. 

  308. 014150* INSTEAD FIELD FTL-AU-ISS-INST-ID SHOULD BE USED.                        
    309. 

  309. 014200* THIS FIELD WILL CONTINUE TO BE EXTRACTED.                               
    310. 

  310. 014250* 12/01/94  SROY                                                          
    311. 

  311. 014300***F100 RECEIVING INSTITUTION ID CODE                                     
    312. 

  312. 014350         05  :FTL:-AU-ISS-BIN                PIC S9(006) COMP-3.          
    313. 

  313. 014400*            REMAINDER OF POS-ENT-CAP-CODE                       *        
    314. 

  314. 014450         05  :FTL:-AU-MCAS-REASON-CODE       PIC  9(002).                 
    315. 

  315. 014500         05  :FTL:-AU-ACQ-CVV-FLAGS-REDEF    REDEFINES                    
    316. 

  316. 014550             :FTL:-AU-MCAS-REASON-CODE.                                   
    317. 

  317. 014600             10  :FTL:-AU-ACQ-CVV-FLAGS      PIC S9(004) COMP.            
    318. 

  318. 014650             10  :FTL:-AU-ACQ-CVV-FLAGS-GROUP    REDEFINES                
    319. 

  319. 014700                 :FTL:-AU-ACQ-CVV-FLAGS.                                  
    320. 

  320. 014750                 15 :FTL:-AU-CVV-FLAG1       PIC  X(001).                 
    321. 

  321. 014800                 15 :FTL:-AU-CVV-FLAG2       PIC  X(001).                 
    322. 

  322. 014850         05  :FTL:-AU-MRCH-GROUP             PIC  9(002).                 
    323. 

  323. 014900         05  :FTL:-AU-MRCH-GROUP-REDEF       REDEFINES                    
    324. 

  324. 014950             :FTL:-AU-MRCH-GROUP.                                         
    325. 

  325. 015000             10  :FTL:-AU-MERCH-GROUP        PIC  9(004) COMP.            
    326. 

  326. 015050                 88  :FTL:-AU-MERCH-NOT-PRESENT    VALUE 00.              
    327. 

  327. 015100                 88  :FTL:-AU-MERCH-TRAVEL         VALUE 01.              
    328. 

  328. 015150                 88  :FTL:-AU-MERCH-LODGING        VALUE 02.              
    329. 

  329. 015200                 88  :FTL:-AU-MERCH-AUTO-RENTAL    VALUE 03.              
    330. 

  330. 015250                 88  :FTL:-AU-MERCH-RESTAURANT     VALUE 04.              
    331. 

  331. 015300                 88  :FTL:-AU-MERCH-MAIL-PHONE     VALUE 05.              
    332. 

  332. 015350                 88  :FTL:-AU-MERCH-RISKY-PURCHASE VALUE 06.              
    333. 

  333. 015400                 88  :FTL:-AU-MERCH-OTHER-PURCHASE VALUE 07.              
    334. 

  334. 015450                 88  :FTL:-AU-MERCH-OTHER-CASH     VALUE 08.              
    335. 

  335. 015500                 88  :FTL:-AU-MERCH-ATM-CASH       VALUE 09.              
    336. 

  336. 015550                 88  :FTL:-AU-MERCH-QUASI-CASH     VALUE 10.              
    337. 

  337. 015600                 88  :FTL:-AU-MERCH-MEDICAL        VALUE 11.              
    338. 

  338. 015650             10  :FTL:-AU-MERCH-BYTES        REDEFINES                    
    339. 

  339. 015700                 :FTL:-AU-MERCH-GROUP.                                    
    340. 

  340. 015750                15  :FTL:-AU-MERCH-BYTE01    PIC  X(001).                 
    341. 

  341. 015800                15  :FTL:-AU-MERCH-BYTE02    PIC  X(001).                 
    342. 

  342. 015850         05  :FTL:-AU-RISK-LEVEL             PIC  X(001).                 
    343. 

  343. 015900             88  :FTL:-AU-RISK-LEVEL-A       VALUE 'A'.                   
    344. 

  344. 015950             88  :FTL:-AU-RISK-LEVEL-B       VALUE 'B'.                   
    345. 

  345. 016000             88  :FTL:-AU-RISK-LEVEL-C       VALUE 'C'.                   
    346. 

  346. 016050             88  :FTL:-AU-RISK-LEVEL-D       VALUE 'D'.                   
    347. 

  347. 016100         05  :FTL:-AU-RISK-FLAG              PIC  X(001).                 
    348. 

  348. 016150             88  :FTL:-AU-CARD-REC-NOT-ACCESSED VALUE '0'.                
    349. 

  349. 016200             88  :FTL:-AU-CARD-REC-ACCESSED    VALUE '1'.                 
    350. 

  350. 016250         05  :FTL:-AU-ISS-PCR                PIC  X(004).                 
    351. 

  351. 016300         05  :FTL:-AU-ISS-REGION             PIC  X(001).                 
    352. 

  352. 016350         05  :FTL:-AU-ISS-COUNTRY            PIC  9(003).                 
    353. 

  353. 016400*  OR F184 MISC FIELDS ISSUER (DEST) COUNTRY CODE                         
    354. 

  354. 016450         05  :FTL:-AU-ISS-PCR-COUNTRY        PIC  9(003).                 
    355. 

  355. 016500         05  :FTL:-AU-ISS-SI-PEN-FLAG        PIC  X(001).                 
    356. 

  356. 016550             88  :FTL:-AU-SI-MODE-PENETRATED VALUE '1'.                   
    357. 

  357. 016600         05  :FTL:-AU-LCS-RAND-FLAG          PIC  X(001).                 
    358. 

  358. 016650         05  :FTL:-AU-LCS-CAT                PIC  X(001).                 
    359. 

  359. 016700         05  :FTL:-AU-LCS-CRB-REGION         PIC  X(001).                 
    360. 

  360. 016750         05  :FTL:-AU-LCS-FLAGS              PIC  X(007).                 
    361. 

  361. 016800         05  :FTL:-AU-LCS-FLAGS-REDEF        REDEFINES                    
    362. 

  362. 016850             :FTL:-AU-LCS-FLAGS.                                          
    363. 

  363. 016900             10  :FTL:-AU-LCS-FLAGS-ON.                                   
    364. 

  364. 016950               15  :FTL:-AU-LCS-ACT-TEST-FLAG PIC X(001).                 
    365. 

  365. 017000               15  :FTL:-AU-LCS-ACT-DOL-EX-FLAG PIC X(001).               
    366. 

  366. 017050               15  :FTL:-AU-LCS-ACT-CNT-EX-FLAG PIC X(001).               
    367. 

  367. 017100               15  :FTL:-AU-LCS-ADVICE-FLAG PIC    X(001).                
    368. 

  368. 017150               15  :FTL:-AU-LCS-FORWARD-FLAG PIC X(001).                  
    369. 

  369. 017200               15  :FTL:-AU-LCS-FORCE-CAT-C-FLAG PIC X(001).              
    370. 

  370. 017250               15  :FTL:-AU-DIAL-SOURCE-FLAG PIC X(001).                  
    371. 

  371. 017300                   88  :FTL:-AU-DIAL-SERIES1 VALUE '1'.                   
    372. 

  372. 017350         05  :FTL:-AU-RESP-DATE-YYDDD        PIC S9(005) COMP-3.          
    373. 

  373. 017400         05  :FTL:-AU-RESP-TIME-HHMMSS       PIC S9(006) COMP-3.          
    374. 

  374. 017450*  OLD FMT DESTINATION /*BM*/ (ISO:A0IDSI)  OR                            
    375. 

  375. 017500* MESSAGE HEADER SOURCE ID                                                
    376. 

  376. 017550         05  :FTL:-AU-ISS-STATION            PIC S9(006) COMP-3.          
    377. 

  377. 017600*  OR REPLACEMENT AMT, US$ EQUIV. (W/ FEES)                               
    378. 

  378. 017650         05  :FTL:-AU-AUTH-AMT               PIC S9(10)V99 COMP-3.        
    379. 

  379. 017700         05  :FTL:-AU-ISO-RESP-CODE          PIC  X(002).                 
    380. 

  380. 017750         05  :FTL:-AU-RESP-CODE              PIC  X(002).                 
    381. 

  381. 017800         05  :FTL:-AU-AUTH-CODE              PIC  X(006).                 
    382. 

  382. 017850         05  :FTL:-AU-PIN-TRANSLATION-FLAG PIC    X(001).                 
    383. 

  383. 017900             88  :FTL:-AU-PIN-NOT-TRANSLATED VALUE '0'.                   
    384. 

  384. 017950             88  :FTL:-AU-PIN-TRANSLATED     VALUE '1'.                   
    385. 

  385. 018000         05  :FTL:-AU-PIN-VERIFICATION-FLAG PIC X(001).                   
    386. 

  386. 018050             88  :FTL:-AU-PIN-NOT-VERIFIED VALUE '0'.                     
    387. 

  387. 018100             88  :FTL:-AU-PIN-VERIFIED       VALUE '1' '2'.               
    388. 

  388. 018150             88  :FTL:-AU-PIN-VERIFY-CORRECT VALUE '1'.                   
    389. 

  389. 018200             88  :FTL:-AU-PIN-VERIFY-INCORRECT VALUE '2'.                 
    390. 

  390. 018250         05  :FTL:-AU-PIN-ERROR-FLAG         PIC  X(001).                 
    391. 

  391. 018300             88  :FTL:-AU-PIN-ERRORS-EXCEEDED VALUE '1'.                  
    392. 

  392. 018350*                PIN INVALID ACTIVITY COUNT  EXCEEDED            *        
    393. 

  393. 018400         05  :FTL:-AU-GENERAL-USE-DATA       PIC X(002).                  
    394. 

  394. 018450         05  :FTL:-AU-AVS-REDEF              REDEFINES                    
    395. 

  395. 018500             :FTL:-AU-GENERAL-USE-DATA.                                   
    396. 

  396. 018550             10  :FTL:-AU-ATM-NETWORK-ID     PIC  X(001).                 
    397. 

  397. 018600*            POSSIBLE NUMERIC VALUES AND THEIR EXPLANATIONS:              
    398. 

  398. 018650*            HEX'00 ' AND HEX'02' IS USED FOR VISA NETWORK ID.            
    399. 

  399. 018700                 88  :FTL:-AU-ATM-ID-VISA-UNKNOWN VALUE X'00'.            
    400. 

  400. 018800                 88  :FTL:-AU-ATM-ID-VISA          VALUE  X'02'.          
    401. 

  401. 018900                 88  :FTL:-AU-ATM-ID-PLUS          VALUE  X'04'.          
    402. 

  402. 019000                 88  :FTL:-AU-ATM-ID-ENTREE        VALUE  X'05'.          
    403. 

  403. 019100             10  :FTL:-AU-AVS-DATA-PRESENT PIC    X(001).                 
    404. 

  404. 019150                 88 :FTL:-AU-AVS-ADR-PRSNT         VALUES 'P' 'O'.        
    405. 

  405. 019200                 88 :FTL:-AU-AVS-ZIP-ONLY          VALUE 'O'.             
    406. 

  406. 019250                 88 :FTL:-AU-AVS-ADR-NO-ADR        VALUE 'N'.             
    407. 

  407. 019300         05  :FTL:-AU-REJECT-REDEF           REDEFINES                    
    408. 

  408. 019350             :FTL:-AU-GENERAL-USE-DATA.                                   
    409. 

  409. 019400             10  :FTL:-AU-REJECT-REASON      PIC 9(004) COMP.             
    410. 

  410. 019450                 88  :FTL:-AU-REJ-DUP-TRAN VALUE 2 14.                    
    411. 

  411. 019500*            POSSIBLE NUMERIC VALUES AND THEIR EXPLANATIONS:              
    412. 

  412. 019550*               1 = UNSOLICITED AUTHORIZATION RESPONSE                    
    413. 

  413. 019600*               2 = AUTHORIZATION REQUEST IN PROGRESS                     
    414. 

  414. 019650*               3 = LATE AUTHORIZATION RESPONSE                           
    415. 

  415. 019700*              12 = LATE RESPONSE BUT INQUIRY NOT IN TABLE                
    416. 

  416. 019750*              13 = LATE REVERSAL RESPONSE                                
    417. 

  417. 019800*              14 = REVERSAL IN PROGRESS                                  
    418. 

  418. 019850*              15 = LATE REVERSAL RESPONSE                                
    419. 

  419. 019900*              16 = UNSOLICITED REVERSAL RESPONSE                         
    420. 

  420. 019950*              30 = UNSLCTD RESP FROM OTHER VIC/UNSLCTD THERE TOO         
    421. 

  421. 020000         05  :FTL:-AU-ACQ-INST-ID            PIC  X(011).                 
    422. 

  422. 020050*  F121  ISSUING INSTITUTION ID   OR                                      
    423. 

  423. 020100*  F184 MISC FIELDS BILLING BIN ID                                        
    424. 

  424. 020150         05  :FTL:-AU-ISS-INST-ID            PIC  X(011).                 
    425. 

  425. 020200         05  :FTL:-AU-TERMINAL-TYPE          PIC  X(001).                 
    426. 

  426. 020250*  F184 MISC FIELDS ACQUIRER (SRCE) COUNTRY CODE                          
    427. 

  427. 020300         05  :FTL:-AU-ACQ-COUNTRY            PIC  9(003).                 
    428. 

  428. 020350         05  :FTL:-AU-BILL-INDIC             PIC  X(001).                 
    429. 

  429. 020400             88  :FTL:-AU-BILL-IND-POS-LEASED     VALUE 'A'.              
    430. 

  430. 020450             88  :FTL:-AU-BILL-IND-WATTS          VALUE 'B'.              
    431. 

  431. 020500             88  :FTL:-AU-BILL-IND-LOCAL          VALUE 'C'.              
    432. 

  432. 020550             88  :FTL:-AU-BILL-IND-UNUSED         VALUE 'D'.              
    433. 

  433. 020600             88  :FTL:-AU-BILL-IND-ASYNCH         VALUE 'D'.              
    434. 

  434. 020650             88  :FTL:-AU-BILL-IND-DRN-LATA       VALUE 'E'.              
    435. 

  435. 020700             88  :FTL:-AU-BILL-IND-X25-GATEWAY    VALUE 'E'.              
    436. 

  436. 020750             88  :FTL:-AU-BILL-IND-NON-US-DIAL    VALUE 'F'.              
    437. 

  437. 020800             88  :FTL:-AU-BILL-IND-JAPAN-ACQ-SERV VALUE 'J'.              
    438. 

  438. 020850             88  :FTL:-AU-BILL-IND-LOCAL-CANADA   VALUE 'I'.              
    439. 

  439. 020900             88  :FTL:-AU-BILL-IND-FGB-SYNCH      VALUE 'N'.              
    440. 

  440. 020950             88  :FTL:-AU-BILL-IND-SYNCH800       VALUE 'O'.              
    441. 

  441. 021000             88  :FTL:-AU-BILL-IND-DATAOVR-VOICE  VALUE 'P'.              
    442. 

  442. 021050             88  :FTL:-AU-BILL-IND-DIAL-ISDN      VALUE 'R'.              
    443. 

  443. 021100             88  :FTL:-AU-BILL-IND-DPAC-CANADA    VALUE 'S'.              
    444. 

  444. 021150             88  :FTL:-AU-BILL-IND-DIAL-SATLITE   VALUE 'T'.              
    445. 

  445. 021200*SPECIAL CITIBANK STATIONS ARE FROM 1 TO 15 (X'01'..X'0F')                
    446. 

  446. 021250*X'00' INDICATES NO SPECIAL ROUTING USED.                                 
    447. 

  447. 021300         05  :FTL:-AU-SPECIAL-ROUTING-IND    PIC  X(001).                 
    448. 

  448. 021350             88 :FTL:-AU-NO-SPECIAL-ROUTING-X00 VALUE X'00'.              
    449. 

  449. 021450*  THIS FIELD IS DEFINED THE SAME WAY AS FTL-AU-PROC-CODE FROM            
    450. 

  450. 021500*  ACQUIRER.  THIS NEW FIELD IS THE PROCESSING CODE FROM ISSUER.          
    451. 

  451. 021550         05  :FTL:-AU-ISS-PROC-CODE.                                      
    452. 

  452. 021600             10  :FTL:-AU-ISS-PROC-TYPE      PIC  9(002).                 
    453. 

  453. 021650             10  :FTL:-AU-ISS-PROC-ACCT      PIC  9(002).                 
    454. 

  454. 021700         05  :FTL:-AU-ADV-CARD-PRODUCT       PIC  X(001).                 
    455. 

  455. 021750             88 :FTL:-AU-ADV-VISA-BUSINESS   VALUE 'B'.                   
    456. 

  456. 021800             88 :FTL:-AU--ADV-VISA-CLASSIC   VALUE 'C'.                   
    457. 

  457. 021850             88 :FTL:-AU--ADV-VISA-ELECTRON  VALUE 'E'.                   
    458. 

  458. 021900             88 :FTL:-AU-ADV-VISA-PREMR-GOLD VALUE 'P'.                   
    459. 

  459. 021950             88 :FTL:-AU-ADV-VISA-CORPORATE  VALUE 'R'.                   
    460. 

  460. 022000             88 :FTL:-AU-ADV-VISA-PROCUREMNT VALUE 'S'.                   
    461. 

  461. 022050             88 :FTL:-AU-ADV-NON-US-ISSUER   VALUE 'X'.                   
    462. 

  462. 022100             88 :FTL:-AU-ADV-ISS-DEBIT-ATCHD VALUE 'Y'.                   
    463. 

  463. 022150             88 :FTL:-AU-ADV-NON-VISA-CARD   VALUE 'X'.                   
    464. 

  464. 022200         05  :FTL:-AU-RETRIEVAL-REF-NO       PIC S9(012) COMP-3.          
    465. 

  465. 022250         05  :FTL:-AU-EAS-AUTO-CDB           PIC  X(001).                 
    466. 

  466. 022300         05  :FTL:-AU-EAR-CERT               PIC  X(001).                 
    467. 

  467. 022350         05  :FTL:-AU-PACM                   PIC  X(001).                 
    468. 

  468. 022400         05  :FTL:-AU-EAS1-RESV              PIC  X(001).                 
    469. 

  469. 022450         05  :FTL:-AU-ACDB-BILLING           PIC  X(001).                 
    470. 

  470. 022500         05  :FTL:-AU-EAR-BILLING            PIC  X(001).                 
    471. 

  471. 022550         05  :FTL:-AU-PACM-BILLING           PIC  X(001).                 
    472. 

  472. 022600         05  :FTL:-AU-EAS2-RESV              PIC  X(001).                 
    473. 

  473. 022650         05  :FTL:-AU-EAS-MSG-ID             PIC  X(001).                 
    474. 

  474. 022700             88  :FTL:-AU-EAS-NO-ID          VALUE '0'.                   
    475. 

  475. 022750             88  :FTL:-AU-EAS-AUTOCDB-ID1    VALUE '1'.                   
    476. 

  476. 022800             88  :FTL:-AU-EAS-EAR-ID2        VALUE '2'.                   
    477. 

  477. 022850             88  :FTL:-AU-EAS-EAR-VIOLATOR VALUE '3'.                     
    478. 

  478. 022900         05  :FTL:-AU-STIP-ELIGIBLE          PIC  X(001).                 
    479. 

  479. 022950         05  :FTL:-AU-PACM-DIVERTED          PIC  X(001).                 
    480. 

  480. 023000         05  :FTL:-AU-PACM-DIVERT-LEVEL      PIC  X(002).                 
    481. 

  481. 023050         05  :FTL:-AU-PACM-DIVERT-REASON     PIC  X(001).                 
    482. 

  482. 023100         05  :FTL:-AU-PARTCIP-FLAG-HEX       PIC  X(001).                 
    483. 

  483. 023150         05  :FTL:-AU-DOWNGRD-RSN-CODE       PIC  X(002).                 
    484. 

  484. 023200         05  :FTL:-AU-PYMT-SVC-IND           PIC  X(001).                 
    485. 

  485. 023250             88  :FTL:-AU-PYMT-SVC-ID-A      VALUE 'A'.                   
    486. 

  486. 023300             88  :FTL:-AU-PYMT-SVC-ID-N      VALUE 'N'.                   
    487. 

  487. 023350             88  :FTL:-AU-PYMT-SVC-ID-Y      VALUE 'Y'.                   
    488. 

  488. 023400         05  :FTL:-AU-TRAN-ID-VALUE          PIC  S9(15) COMP-3.          
    489. 

  489. 023450         05  :FTL:-AU-VALDTN-CODE-VALUE      PIC  X(004).                 
    490. 

  490. 023500         05  :FTL:-AU-TRANS-CURR-CODE        PIC  X(003).                 
    491. 

  491. 023550         05  :FTL:-AU-SYS-TRACE-AUDIT-NBR    PIC  X(006).                 
    492. 

  492. 023600         05  :FTL:-AU-F44-FIFTH-BYTE         PIC  X(001).                 
    493. 

  493. 023650             88  :FTL:-AU-F44-FIFTH-F1       VALUE '1'.                   
    494. 

  494. 023700             88  :FTL:-AU-F44-FIFTH-F2       VALUE '2'.                   
    495. 

  495. 023750             88  :FTL:-AU-F44-FIFTH-F3       VALUE '3'.                   
    496. 

  496. 023800         05  :FTL:-AU-A1CVVFA                PIC  X(001).                 
    497. 

  497. 023850         05  :FTL:-AU-A1CVVFB                PIC  X(001).                 
    498. 

  498. 023900         05  :FTL:-AU-AMT-CRDHLDR-BILL       PIC S9(011) COMP-3.          
    499. 

  499. 023950         05  :FTL:-AU-CONV-RATE-DEC-PT       PIC  X(001).                 
    500. 

  500. 024000         05  :FTL:-AU-CONV-RATE              PIC S9(007) COMP-3.          
    501. 

  501. 024050         05  :FTL:-AU-CRDHLDR-BILL-CURR-CODE PIC S9(003) COMP-3.          
    502. 

  502. 024100         05  :FTL:-AU-A0IAMT-TRAN-FLD4       PIC S9(012) COMP-3.          
    503. 

  503. 024150         05  :FTL:-AU-NETWORK-ID             PIC  X(004).                 
    504. 

  504. 024200         05  :FTL:-AU-TRACK-LEN              PIC  9(002).                 
    505. 

  505. 024250         05  :FTL:-AU-TRACK-DATA.                                         
    506. 

  506. 024300            10 :FTL:-AU-TRACK1-DATA          PIC  X(076).                 
    507. 

  507. 024350            10 :FTL:-AU-TRACK2-ONLY                                       
    508. 

  508. 024400                   REDEFINES :FTL:-AU-TRACK1-DATA.                        
    509. 

  509. 024450                15 :FTL:-AU-TRACK2-DATA      PIC  X(038).                 
    510. 

  510. 024500                15 FILLER                    PIC  X(038).                 
    511. 

  511. 024550         05 :FTL:-AU-ODE-DATA.                                            
    512. 

  512. 024600            10 :FTL:-AU-ODE-MSG-TYPE         PIC  X(04).                  
    513. 

  513. 024650            10 :FTL:-AU-ODE-TRACE-NBR        PIC  X(06).                  
    514. 

  514. 024700            10 :FTL:-AU-ODE-TRANSMIT-DATA.                                
    515. 

  515. 024750               15 :FTL:-AU-ODE-TRANSMIT-DATE PIC X(04).                   
    516. 

  516. 024800               15 :FTL:-AU-ODE-TRANSMIT-TIME PIC  X(06).                  
    517. 

  517. 024850            10 :FTL:-AU-ODE-ACQ-ID           PIC  X(11).                  
    518. 

  518. 024900            10 :FTL:-AU-ODE-FWD-INST-ID      PIC  X(11).                  
    519. 

  519. 024950         05 :FTL:-AU-LCS-ORG-CAT             PIC  X(001).                 
    520. 

  520. 025000         05 :FTL:-AU-MERCH-RGN-CODE          PIC  X(001).                 
    521. 

  521. 025050         05 :FTL:-AU-ACQ-RGN-CODE            PIC  X(001).                 
    522. 

  522. 025100         05 :FTL:-AU-AVS-ISS-RESULT          PIC  X(001).                 
    523. 

  523. 025150*  F39 RESPONSE CODE OR IF REC TYP 7 F184                                 
    524. 

  524. 025200         05 :FTL:-AU-ISS-RESP-CODE           PIC  X(002).                 
    525. 

  525. 025250         05 :FTL:-AU-CASHBACK-AMT            PIC S9(12) COMP-3.           
    526. 

  526. 025300*  PS94 FIELDS  -------------------------------------------------*        
    527. 

  527. 025350         05 :FTL:-AU-MARKET-DATA             PIC  X(001).                 
    528. 

  528. 025400            88 :FTL:-AU-MARKET-AUTO-RENTAL              VALUE 'A'.        
    529. 

  529. 025450            88 :FTL:-AU-MARKET-HOTEL                    VALUE 'H'.        
    530. 

  530. 025500            88 :FTL:-AU-MARKET-FAILED-EDITS             VALUE 'N'.        
    531. 

  531. 025550         05 :FTL:-AU-DURATION                PIC  9(002).                 
    532. 

  532. 025600         05 :FTL:-AU-PRST-PROP-IND           PIC  X(001).                 
    533. 

  533. 025650            88 :FTL:-AU-PRST-PROP-MULTI-LIMIT           VALUE 'D'.        
    534. 

  534. 025700            88 :FTL:-AU-PRST-PROP-LIMIT-1000            VALUE 'B'.        
    535. 

  535. 025750            88 :FTL:-AU-PRST-PROP-LIMIT-1500            VALUE 'S'.        
    536. 

  536. 025800         05 :FTL:-AU-STAT-MC                 PIC  X(001).                 
    537. 

  537. 025850         05 :FTL:-AU-BIT-FIELDS              PIC  X(001).                 
    538. 

  538. 025900*           X'80'  ACQUIRER PARTICIPATES IN PS/2000                       
    539. 

  539. 025950*           X'40'  ACQUIRER CERTIFYING IN PS/2000                         
    540. 

  540. 026000*           X'C0'  INDICATOR TO CHK ACQUIRER OPTIONS: PS/2000             
    541. 

  541. 026050*           X'20'  ACQUIRER PARTICIPATES IN CPS/ATM                       
    542. 

  542. 026100*           X'10'  ACQUIRER CERTIFYING IN CPS/ATM                         
    543. 

  543. 026150*           X'30'  INDICATOR TO CHK ACQUIRER OPTIONS: CPS/ATM             
    544. 

  544. 026200*           X'08'  ISSUER PARTICIPATES IN PS/2000                         
    545. 

  545. 026250*           X'04'  ISSUER CERTIFYING IN PS/2000                           
    546. 

  546. 026300*           X'0C'  INDICATOR TO CHK ISSUER OPTIONS: PS/2000               
    547. 

  547. 026350*           X'02'  ISSUER PARTICIPATES IN CPS/ATM                         
    548. 

  548. 026400*           X'01'  ISSUER CERTIFYING IN CPS/ATM                           
    549. 

  549. 026450*           X'03'  INDICATOR TO CHK ISSUER OPTIONS: CPS/ATM               
    550. 

  550. 026500         05 :FTL:-AU-REPL-AMT           PIC S9(12)    COMP-3.             
    551. 

  551. 026550         05 :FTL:-AU-REPL-AMT-US        PIC S9(10)V99 COMP-3.             
    552. 

  552. 026600         05 :FTL:-AU-SUBMIT-ACI         PIC  X(001).                      
    553. 

  553. 026650            88 :FTL:-AU-MEETS-CPS-RETAIL           VALUE 'A'.             
    554. 

  554. 026700            88 :FTL:-AU-CUST-ACTIV-TERM-QUALFD     VALUE 'C'.             
    555. 

  555. 026750            88 :FTL:-AU-MERCH-NAME-LOC-QUALFD      VALUE 'E'.             
    556. 

  556. 026800            88 :FTL:-AU-INCREMENTAL-QUALFD         VALUE 'I'.             
    557. 

  557. 026850            88 :FTL:-AU-DIRECT-MARKETING           VALUE 'M'.             
    558. 

  558. 026900            88 :FTL:-AU-DISQUALIFIED-FOR-PS2K      VALUE 'N'.             
    559. 

  559. 026950            88 :FTL:-AU-PREFERRED-CUST-QUALFD      VALUE 'P'.             
    560. 

  560. 027000            88 :FTL:-AU-AVS-QUALFD                 VALUE 'V'.             
    561. 

  561. 027050            88 :FTL:-AU-REQUESTING-CPS-RETAIL      VALUE 'Y'.             
    562. 

  562. 027100         05 :FTL:-AU-MASTER-CARD-ID.                                      
    563. 

  563. 027150            10 :FTL:-AU-MCID-BANKNET-DATE    PIC  X(004).                 
    564. 

  564. 027200            10 :FTL:-AU-MCID-BANKNET-REF-NO PIC X(009).                   
    565. 

  565. 027250            10 FILLER                        PIC  X(002).                 
    566. 

  566. 027300         05 :FTL:-AU-DATA-AUG-IND            PIC  X(002).                 
    567. 

  567. 027350         05 :FTL:-AU-DEBIT-CREDIT-FLAG       PIC  X(001).                 
    568. 

  568. 027400            88  :FTL:-AU-CREDIT                   VALUE 'C'.              
    569. 

  569. 027450            88  :FTL:-AU-DEBIT                    VALUE 'D'.              
    570. 

  570. 027500         05 :FTL:-AU-CARDHOLDER-NAME-LOC.                                 
    571. 

  571. 027550            10  :FTL:-AU-CARDHOLDER-NAME     PIC X(025).                  
    572. 

  572. 027600            10  :FTL:-AU-CARDHOLDER-CITY     PIC X(013).                  
    573. 

  573. 027650            10  :FTL:-AU-CARDHOLDER-CNTRY    PIC X(002).                  
    574. 

  574. 027700         05 :FTL:-AU-CARDACCPTR-NAME-LOC REDEFINES                        
    575. 

  575. 027750            :FTL:-AU-CARDHOLDER-NAME-LOC.                                 
    576. 

  576. 027800            10  :FTL:-AU-CARDACCPTR-NAME     PIC X(025).                  
    577. 

  577. 027850            10  :FTL:-AU-CARDACCPTR-CITY     PIC X(013).                  
    578. 

  578. 027900            10  :FTL:-AU-CARDACCPTR-CNTRY    PIC X(002).                  
    579. 

  579. 027950         05 :FTL:-AU-ACQ-STATE-CODE          PIC X(002).                  
    580. 

  580. 028000         05 :FTL:-AU-ACQ-COUNTY-CODE         PIC X(003).                  
    581. 

  581. 028050         05 :FTL:-AU-COBRAND-BIN-ID          PIC X(011).                  
    582. 

  582. 028100         05 :FTL:-AU-COBRAND-FLAGS.                                       
    583. 

  583. 028150            10 :FTL:-AU-COBRAND-FLAG-1       PIC X(001).                  
    584. 

  584. 028200            10 :FTL:-AU-COBRAND-FLAG-2       PIC X(001).                  
    585. 

  585. 028250         05 :FTL:-AU-TRANSMIT-DATE           PIC 9(004).                  
    586. 

  586. 028300         05 :FTL:-AU-TRANSMIT-TIME           PIC 9(006).                  
    587. 

  587. 028350         05 :FTL:-AU-RETURN-MSG-FLAG-3       PIC X(001).                  
    588. 

  588. 028400* SINCE MULTIPLE FOLLOWING FIELDS MAY BE PRESENT AT THE SAME              
    589. 

  589. 028450* TIME, THE 1 BYTE FIELDS-PRESENT-INDICATOR BELOW IS ARRIVED              
    590. 

  590. 028500* AT BY OR'ING FOLLOWING APPROPRIATE HEX VALUES:                          
    591. 

  591. 028550* WS-AU-POS-ENT-MODE      FIELD-PRESENT INDICATED BY FLAG X'80'           
    592. 

  592. 028600* WS-AU-POS-ENT-CAP-CODE  FIELD-PRESENT INDICATED BY FLAG X'40'           
    593. 

  593. 028650* WS-AU-POS-COND-CODE     FIELD-PRESENT INDICATED BY FLAG X'20'           
    594. 

  594. 028700* WS-AU-ACQ-TERM-ID       FIELD-PRESENT INDICATED BY FLAG X'10'           
    595. 

  595. 028750* WS-AU-CARD-ACPTR-ID     FIELD-PRESENT INDICATED BY FLAG X'10'           
    596. 

  596. 028800* WS-AU-ACQ-TERM-ID-CODE  FIELD-PRESENT INDICATED BY FLAG X'08'           
    597. 

  597. 028850* WS-AU-CARD-ACPTR-TERMID FIELD-PRESENT INDICATED BY FLAG X'08'           
    598. 

  598. 028900* WS-AU-CARDHOLDER-NAME   FIELD-PRESENT INDICATED BY FLAG X'04'           
    599. 

  599. 028950* WS-AU-CARD-ACPTR-NAME   FIELD-PRESENT INDICATED BY FLAG X'04'           
    600. 

  600. 029000* WS-AU-ACQ-POSTAL-CODE   FIELD-PRESENT INDICATED BY FLAG X'02'           
    601. 

  601. 029050* WS-AU-TRAN-DATE-TIME    FIELD-PRESENT INDICATED BY FLAG X'01'           
    602. 

  602. 029100         05 :FTL:-AU-FLDS-PRESENT-IND-BITS PIC X(001).                    
    603. 

  603. 029150         05 :FTL:-AU-READYPOST-FLAGS         PIC X(001).                  
    604. 

  604. 029200         05 :FTL:-AU-ISSUER-STATION-VAP      PIC X(006).                  
    605. 

  605. 029250         05 :FTL:-AU-ISSUER-STATION-PCR      PIC X(004).                  
    606. 

  606. 029300         05 :FTL:-AU-ACQUIRER-STATION-VAP    PIC X(006).                  
    607. 

  607. 029350         05 :FTL:-AU-ACQUIRER-STATION-PCR    PIC X(004).                  
    608. 

  608. EPAY1C*        * --------------------------------------------------             
    609. 

  609. EPAY1C*        * - THIS LOGICALLY BELONGS IN THE EPAY EXTENSION REC             
    610. 

  610. EPAY1C*        * - BUT IT IS USED BY CREDIT, TOO, AND THEY DON'T                
    611. 

  611. EPAY1C*        * - HAVE AN EXTENSION REC.                                       
    612. 

  612. EPAY1C*        * --------------------------------------------------             
    613. 

  613. EPAY1C         05 :FTL:-AU-A1IEPI1-EPAY-FLAGS.                                  
    614. 

  614. EPAY1C            10  :FTL:-AU-A1XPVID-RCVD-IN-PMT-REQ PIC X.                   
    615. 

  615. EPAY2             10  :FTL:-AU-A0VEES1-EPAY-VEES-FLAGS PIC X.                   
    616. 

  616. EPAY1C*           * ---------------------------------------                     
    617. 

  617. EPAY1C*           * - FUTURE EPAY FLAGS                                         
    618. 

  618. EPAY1C*           * ---------------------------------------                    
    619.