PageRenderTime 30ms CodeModel.GetById 21ms RepoModel.GetById 1ms app.codeStats 0ms

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

https://bitbucket.org/pymma/openesb-components
COBOL | 417 lines | 394 code | 2 blank | 21 comment | 0 complexity | ee4b09b856aee4e50079de4121a9eb19 MD5 | raw file
    

  1.       * MVS PORT-- CODE RUN THROUGH PROCESSOR
    2. 

  2.       *            on Fri Feb  7 10:16:43 2003
    3. 

  3. 

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

  5.       **                                                             **
    6. 

  6.       **           FOUNDATION FOR COOPERATIVE PROCESSING             **
    7. 

  7.       **                                                             **
    8. 

  8.       **                     COBOL  COPYBOOK                         **
    9. 

  9.       **                                                             **
    10. 

  10.       *****************************************************************
    11. 

  11.       **                                                             **
    12. 

  12.       **      COPYBOOK: CUCL107I                                     **
    13. 

  13.       **                                                             **
    14. 

  14.       **  COPYBOOK FOR: Copybook.CUCL107I MAINTAIN BILL ACCT         **
    15. 

  15.       **                                                             **
    16. 

  16.       **  GENERATED ON: Fri Jan 31 13:20:23 2003                     **
    17. 

  17.       **                                                             **
    18. 

  18.       **  SHORT DESCRIPTION: CUCL107I MAINTAIN BILL ACCT             **
    19. 

  19.       **                                                             **
    20. 

  20.       **            BY: NAZIRA__                                     **
    21. 

  21.       **                                                             **
    22. 

  22.       *****************************************************************
    23. 

  23.        03  MSG-I-MNT-BILL-ACCT.
    24. 

  24.          05  MSG-I-STANDARD-HEADER.
    25. 

  25.            07  MSG-I-CD-FUNC-ID                  PIC X(2).
    26. 

  26.                88  MSG-I-FUNC-01                     VALUE '01'.
    27. 

  27.                88  MSG-I-FUNC-02                     VALUE '02'.
    28. 

  28.                88  MSG-I-FUNC-03                     VALUE '03'.
    29. 

  29.                88  MSG-I-FUNC-04                     VALUE '04'.
    30. 

  30.                88  MSG-I-FUNC-05                     VALUE '05'.
    31. 

  31.                88  MSG-I-FUNC-06                     VALUE '06'.
    32. 

  32.                88  MSG-I-FUNC-07                     VALUE '07'.
    33. 

  33.                88  MSG-I-FUNC-08                     VALUE '08'.
    34. 

  34.                88  MSG-I-FUNC-09                     VALUE '09'.
    35. 

  35.                88  MSG-I-FUNC-10                     VALUE '10'.
    36. 

  36.                88  MSG-I-FUNC-11                     VALUE '11'.
    37. 

  37.                88  MSG-I-FUNC-12                     VALUE '12'.
    38. 

  38.                88  MSG-I-FUNC-13                     VALUE '13'.
    39. 

  39.                88  MSG-I-FUNC-14                     VALUE '14'.
    40. 

  40.                88  MSG-I-FUNC-15                     VALUE '15'.
    41. 

  41.                88  MSG-I-FUNC-16                     VALUE '16'.
    42. 

  42.                88  MSG-I-FUNC-17                     VALUE '17'.
    43. 

  43.                88  MSG-I-FUNC-18                     VALUE '18'.
    44. 

  44.                88  MSG-I-FUNC-19                     VALUE '19'.
    45. 

  45.                88  MSG-I-FUNC-20                     VALUE '20'.
    46. 

  46.                88  MSG-I-FUNC-21                     VALUE '21'.
    47. 

  47.                88  MSG-I-FUNC-22                     VALUE '22'.
    48. 

  48.                88  MSG-I-FUNC-23                     VALUE '23'.
    49. 

  49.                88  MSG-I-FUNC-24                     VALUE '24'.
    50. 

  50.                88  MSG-I-FUNC-25                     VALUE '25'.
    51. 

  51.                88  MSG-I-FUNC-26                     VALUE '26'.
    52. 

  52.                88  MSG-I-FUNC-27                     VALUE '27'.
    53. 

  53.                88  MSG-I-FUNC-28                     VALUE '28'.
    54. 

  54.                88  MSG-I-FUNC-29                     VALUE '29'.
    55. 

  55.                88  MSG-I-FUNC-30                     VALUE '30'.
    56. 

  56.                88  MSG-I-FUNC-31                     VALUE '31'.
    57. 

  57.                88  MSG-I-FUNC-32                     VALUE '32'.
    58. 

  58.                88  MSG-I-FUNC-33                     VALUE '33'.
    59. 

  59.                88  MSG-I-FUNC-34                     VALUE '34'.
    60. 

  60.                88  MSG-I-FUNC-35                     VALUE '35'.
    61. 

  61.                88  MSG-I-FUNC-36                     VALUE '36'.
    62. 

  62.                88  MSG-I-FUNC-37                     VALUE '37'.
    63. 

  63.                88  MSG-I-FUNC-38                     VALUE '38'.
    64. 

  64.                88  MSG-I-FUNC-39                     VALUE '39'.
    65. 

  65.                88  MSG-I-FUNC-40                     VALUE '40'.
    66. 

  66.                88  MSG-I-FUNC-41                     VALUE '41'.
    67. 

  67.                88  MSG-I-FUNC-42                     VALUE '42'.
    68. 

  68.                88  MSG-I-FUNC-43                     VALUE '43'.
    69. 

  69.                88  MSG-I-FUNC-44                     VALUE '44'.
    70. 

  70.                88  MSG-I-FUNC-45                     VALUE '45'.
    71. 

  71.                88  MSG-I-FUNC-46                     VALUE '46'.
    72. 

  72.                88  MSG-I-FUNC-47                     VALUE '47'.
    73. 

  73.                88  MSG-I-FUNC-48                     VALUE '48'.
    74. 

  74.                88  MSG-I-FUNC-49                     VALUE '49'.
    75. 

  75.                88  MSG-I-FUNC-50                     VALUE '50'.
    76. 

  76.            07  MSG-I-DT-CURR-DATE                PIC X(10).
    77. 

  77.            07  MSG-I-KY-CONV-ID                  PIC X(8).
    78. 

  78.            07  MSG-I-STNDRD-HEAD-SUBGRP.
    79. 

  79.              09  MSG-I-KY-BA                     PIC S9(10) COMP-3.
    80. 

  80.              09  MSG-I-KY-CUST-NO                PIC S9(9) COMP.
    81. 

  81.              09  MSG-I-KY-PREM-NO                PIC S9(9) COMP.
    82. 

  82.              09  MSG-I-KY-SPT                    PIC S9(8) COMP-3.
    83. 

  83.              09  MSG-I-KY-FORD-NO                PIC S9(9) COMP-3.
    84. 

  84.              09  MSG-I-ID-EQUIPMENT              PIC S9(8) COMP.
    85. 

  85.              09  MSG-I-NO-FUTURE-KEY-X           PIC S9(9) COMP.
    86. 

  86.              09  MSG-I-NO-FUTURE-KEY-Y           PIC S9(9) COMP.
    87. 

  87.              09  MSG-I-NO-FUTURE-KEY-Z           PIC S9(9) COMP.
    88. 

  88.              09  MSG-I-NO-LOCK-SEQ-CUST          PIC S9(2) COMP-3.
    89. 

  89.              09  MSG-I-NO-LOCK-SEQ-PREM          PIC S9(2) COMP-3.
    90. 

  90.              09  MSG-I-NO-LOCK-SEQ-BA            PIC S9(2) COMP-3.
    91. 

  91.              09  MSG-I-NO-LOCK-SEQ-BA-AIM        PIC S9(2) COMP-3.
    92. 

  92.              09  MSG-I-NO-LOCK-SEQ-SPT           PIC S9(2) COMP-3.
    93. 

  93.              09  MSG-I-NO-LOCK-SEQ-FO-HDR        PIC S9(2) COMP-3.
    94. 

  94.              09  MSG-I-NO-LOCK-SEQ-EQUIP         PIC S9(2) COMP.
    95. 

  95.              09  MSG-I-NO-LOCK-SEQ-X             PIC S9(2) COMP-3.
    96. 

  96.              09  MSG-I-NO-LOCK-SEQ-Y             PIC S9(2) COMP-3.
    97. 

  97.              09  MSG-I-NO-LOCK-SEQ-Z             PIC S9(2) COMP-3.
    98. 

  98.            07  MSG-I-KY-USERID-2                 PIC X(8).
    99. 

  99.            07  MSG-I-NO-SVC-VERSION              PIC S9(14) COMP.
    100. 

  100.            07  MSG-I-PERF-SUBGRP-2.
    101. 

  101.              09  MSG-I-ID-PREV-MSG-INST          PIC X(24).
    102. 

  102.              09  MSG-I-NO-PREV-RESP-TIME         PIC S9(4)V9(3) COMP-3.
    103. 

  103.            07  MSG-I-CD-STD-MSG-HDR-FLR          PIC X(20).
    104. 

  104.          05  MSG-I-HDR-CUMCC001.
    105. 

  105.            07  MSG-I-CD-RETURN                   PIC S9(9) COMP-3.
    106. 

  106.            07  MSG-I-TX-RQST-BY                  PIC X(28).
    107. 

  107.            07  MSG-I-TX-RQST-BY-PHN              PIC X(8).
    108. 

  108.          05  MSG-I-HDR-CUMCC002.
    109. 

  109.            07  MSG-I-CD-RETURN                   PIC S9(9) COMP-3.
    110. 

  110.            07  MSG-I-CD-FUNCTION                 PIC X(2).
    111. 

  111.                88  MSG-I-FUNC-CD-SELECT              VALUE 'S'.
    112. 

  112.                88  MSG-I-FUNC-CD-INSERT              VALUE 'I'.
    113. 

  113.                88  MSG-I-FUNC-CD-UPDATE              VALUE 'U'.
    114. 

  114.                88  MSG-I-FUNC-CD-DELETE              VALUE 'D'.
    115. 

  115.                88  MSG-I-FUNC-CD-SELECT-LESS-THAN    VALUE 'SL'.
    116. 

  116.                88  MSG-I-FUNC-CD-SELECT-GTR-THAN     VALUE 'SG'.
    117. 

  117.            07  MSG-I-KY-REMARKS                  PIC S9(9) COMP.
    118. 

  118.            07  MSG-I-TX-REMARKS-1                PIC X(360).
    119. 

  119.            07  MSG-I-DT-GREGORIAN                PIC X(10).
    120. 

  120.          05  MSG-I-HDR-CUMSO005.
    121. 

  121.            07  MSG-I-CD-RETURN                   PIC S9(9) COMP-3.
    122. 

  122.            07  MSG-I-CD-ADDR-FUNC                PIC X(1).
    123. 

  123.                88  MSG-I-ADD                         VALUE 'A'.
    124. 

  124.                88  MSG-I-UPDATE                      VALUE 'U'.
    125. 

  125.                88  MSG-I-DELETE                      VALUE 'D'.
    126. 

  126.                88  MSG-I-ADD-ONLY                    VALUE 'O'.
    127. 

  127.                88  MSG-I-REPLACE-BILLING             VALUE 'R'.
    128. 

  128.            07  MSG-I-KY-BA                       PIC S9(10) COMP-3.
    129. 

  129.            07  MSG-I-KY-CUST-NO                  PIC S9(9) COMP.
    130. 

  130.            07  MSG-I-KY-AD                       PIC S9(9) COMP.
    131. 

  131.            07  MSG-I-CD-AD-TYPE                  PIC X(1).
    132. 

  132.                88  MSG-I-PREM                        VALUE 'P'.
    133. 

  133.                88  MSG-I-BLDG                        VALUE 'B'.
    134. 

  134.                88  MSG-I-3RD-PARTY                   VALUE 'T'.
    135. 

  135.                88  MSG-I-MLNG-AD                     VALUE 'M'.
    136. 

  136.                88  MSG-I-GUAR                        VALUE 'G'.
    137. 

  137.                88  MSG-I-RFND                        VALUE 'R'.
    138. 

  138.                88  MSG-I-AGENCY                      VALUE 'A'.
    139. 

  139.                88  MSG-I-TEMPORARY                   VALUE 'Y'.
    140. 

  140.                88  MSG-I-CUSTOMER-88                 VALUE 'C'.
    141. 

  141.                88  MSG-I-LANDLORD                    VALUE 'L'.
    142. 

  142.                88  MSG-I-OWNER                       VALUE 'O'.
    143. 

  143.            07  MSG-I-CD-RTRN-MAIL-PRCS           PIC X(4).
    144. 

  144.                88  MSG-I-SUCC-CMPLT                  VALUE '0000'.
    145. 

  145.                88  MSG-I-MSNG-REQD-FLD               VALUE '1111'.
    146. 

  146.                88  MSG-I-INVAL-FUNC                  VALUE '2222'.
    147. 

  147.                88  MSG-I-CUST-ADDR-BEING-USED        VALUE '3333'.
    148. 

  148.                88  MSG-I-PGM-ABEND                   VALUE '9999'.
    149. 

  149.            07  MSG-I-DT-GREGORIAN                PIC X(10).
    150. 

  150.          05  MSG-I-HDR-CUMGM003.
    151. 

  151.            07  MSG-I-QY-ALR-ACL-CNT              PIC S9(3) COMP-3.
    152. 

  152.            07  MSG-I-KY-BA                       PIC S9(10) COMP-3.
    153. 

  153.            07  MSG-I-KY-CUST-NO                  PIC S9(9) COMP.
    154. 

  154.            07  MSG-I-CD-BP-TABLE-ACCESS          PIC X(2).
    155. 

  155.                88  MSG-I-USE-DEFAULT-ONLY            VALUE '01'.
    156. 

  156.                88  MSG-I-USE-BILL-FORMAT-ONLY        VALUE '02'.
    157. 

  157.                88  MSG-I-USE-DEF-PLUS-BILL-FORM      VALUE '03'.
    158. 

  158.          05  MSG-I-HDR-CU0234I.
    159. 

  159.            07  MSG-I-CD-RETURN                   PIC S9(9) COMP-3.
    160. 

  160.            07  MSG-I-QY-ALR-ACL-CNT              PIC S9(3) COMP-3.
    161. 

  161.            07  MSG-I-KY-BA                       PIC S9(10) COMP-3.
    162. 

  162.            07  MSG-I-KY-CUST-NO                  PIC S9(9) COMP.
    163. 

  163.            07  MSG-I-FL-MEDICAL-ACCOUNT          PIC X(1).
    164. 

  164.          05  MSG-I-HDR-CU0303A.
    165. 

  165.            07  MSG-I-CD-RETURN                   PIC S9(9) COMP-3.
    166. 

  166.            07  MSG-I-QY-ALR-ACL-CNT              PIC S9(3) COMP-3.
    167. 

  167.            07  MSG-I-KY-CUST-NO                  PIC S9(9) COMP.
    168. 

  168.            07  MSG-I-KY-PREM-NO                  PIC S9(9) COMP.
    169. 

  169.            07  MSG-I-CD-CRITICAL-ACCT            PIC X(2).
    170. 

  170.            07  MSG-I-TX-CRIT-ACCT-RSN            PIC X(20).
    171. 

  171.            07  MSG-I-FL-CAP-EMERGENCY            PIC X(1).
    172. 

  172.            07  MSG-I-CD-STAT                     PIC S9(2) COMP-3.
    173. 

  173.                88  MSG-I-INACT                       VALUE 01.
    174. 

  174.                88  MSG-I-ACT                         VALUE 02.
    175. 

  175.                88  MSG-I-PEND-ACT                    VALUE 03.
    176. 

  176.                88  MSG-I-GAS-ACT                     VALUE 04.
    177. 

  177.                88  MSG-I-ELECTRIC-ACT                VALUE 05.
    178. 

  178.                88  MSG-I-REMV                        VALUE 06.
    179. 

  179.                88  MSG-I-VOID                        VALUE 07.
    180. 

  180.                88  MSG-I-UNCOLL                      VALUE 08.
    181. 

  181.                88  MSG-I-FINALED                     VALUE 09.
    182. 

  182.                88  MSG-I-PEND-TRNSFR                 VALUE 10.
    183. 

  183.                88  MSG-I-TRNSFR                      VALUE 11.
    184. 

  184.                88  MSG-I-CNCLD                       VALUE 12.
    185. 

  185.                88  MSG-I-RECONCILE                   VALUE 20.
    186. 

  186.                88  MSG-I-RECONCILE-INSERT            VALUE 21.
    187. 

  187.                88  MSG-I-UNRECONCILE                 VALUE 22.
    188. 

  188.                88  MSG-I-DELETED                     VALUE 99.
    189. 

  189.            07  MSG-I-DT-STAT                     PIC X(10).
    190. 

  190.            07  MSG-I-DT-MED-CERT-START           PIC X(10).
    191. 

  191.            07  MSG-I-DT-MED-CERT-EXP             PIC X(10).
    192. 

  192.            07  MSG-I-CD-MED-CERT-STAT            PIC X(2).
    193. 

  193.            07  MSG-I-NM-MED-AUTH                 PIC X(28).
    194. 

  194.            07  MSG-I-AD-STR-1                    PIC X(28).
    195. 

  195.            07  MSG-I-AD-STR-2                    PIC X(28).
    196. 

  196.            07  MSG-I-AD-CITY                     PIC X(18).
    197. 

  197.            07  MSG-I-AD-ZIP                      PIC S9(6) COMP-3.
    198. 

  198.            07  MSG-I-AD-ST                       PIC X(2).
    199. 

  199.                88  MSG-I-ALBERTA                     VALUE 'AB'.
    200. 

  200.                88  MSG-I-AMERICAN-SAMOA              VALUE 'AS'.
    201. 

  201.                88  MSG-I-BRITISH-COLUMBIA            VALUE 'BC'.
    202. 

  202.                88  MSG-I-FED-STATES-MICRO            VALUE 'FM'.
    203. 

  203.                88  MSG-I-GUAM                        VALUE 'GU'.
    204. 

  204.                88  MSG-I-MANITOBA                    VALUE 'MB'.
    205. 

  205.                88  MSG-I-MARSHALL-ISLANDS            VALUE 'MH'.
    206. 

  206.                88  MSG-I-NRTHRN-MARIANA-ISLNDS       VALUE 'MP'.
    207. 

  207.                88  MSG-I-NEW-BRUNSWICK               VALUE 'NB'.
    208. 

  208.                88  MSG-I-NEWFOUNDLAND                VALUE 'NF'.
    209. 

  209.                88  MSG-I-NORTHWEST-TERRITORIES       VALUE 'NT'.
    210. 

  210.                88  MSG-I-NOVA-SCOTIA                 VALUE 'NS'.
    211. 

  211.                88  MSG-I-NORTHWEST-TERRITORY         VALUE 'NT'.
    212. 

  212.                88  MSG-I-ONTARIO                     VALUE 'ON'.
    213. 

  213.                88  MSG-I-PRINCE-EDWARD-ISLAND        VALUE 'PE'.
    214. 

  214.                88  MSG-I-PUERTO-RICO                 VALUE 'PR'.
    215. 

  215.                88  MSG-I-QUEBEC                      VALUE 'PQ'.
    216. 

  216.                88  MSG-I-PALAU                       VALUE 'PW'.
    217. 

  217.                88  MSG-I-SASKATCHEWAN                VALUE 'SK'.
    218. 

  218.                88  MSG-I-VIRGIN-ISLANDS              VALUE 'VI'.
    219. 

  219.                88  MSG-I-YUKON-TERRITORY             VALUE 'YT'.
    220. 

  220.            07  MSG-I-TX-TELEPHONE                PIC X(10).
    221. 

  221.            07  MSG-I-CD-MED-EQUIP                PIC X(2).
    222. 

  222.            07  MSG-I-TX-FREQ-USE                 PIC X(24).
    223. 

  223.            07  MSG-I-NM-PATIENT                  PIC X(30).
    224. 

  224.            07  MSG-I-TX-PATIENT-RLSHIP           PIC X(20).
    225. 

  225.            07  MSG-I-KY-REMARKS                  PIC S9(9) COMP.
    226. 

  226.            07  MSG-I-TX-REMARKS-1                PIC X(360).
    227. 

  227.          05  MSG-I-HDR-CU0307P.
    228. 

  228.            07  MSG-I-CD-RETURN                   PIC S9(9) COMP-3.
    229. 

  229.            07  MSG-I-QY-ALR-ACL-CNT              PIC S9(3) COMP-3.
    230. 

  230.            07  MSG-I-KY-BA                       PIC S9(10) COMP-3.
    231. 

  231.            07  MSG-I-KY-CUST-NO                  PIC S9(9) COMP.
    232. 

  232.            07  MSG-I-DT-TEMP-MAIL-START          PIC X(10).
    233. 

  233.            07  MSG-I-TX-TEMP-ACD                 PIC X(3).
    234. 

  234.            07  MSG-I-TX-TEMP-PHN-NO              PIC X(8).
    235. 

  235.            07  MSG-I-TX-TEMP-PHN-EXTN            PIC X(4).
    236. 

  236.            07  MSG-I-TX-HOME-ACD                 PIC X(3).
    237. 

  237.            07  MSG-I-TX-HOME-PHN-NO              PIC X(8).
    238. 

  238.            07  MSG-I-TX-HOME-PHN-EXTN            PIC X(4).
    239. 

  239.            07  MSG-I-FL-UNLST-PHN-NO             PIC X(1).
    240. 

  240.            07  MSG-I-TX-BUS-ACD                  PIC X(3).
    241. 

  241.            07  MSG-I-TX-BUS-PHN-NO               PIC X(8).
    242. 

  242.            07  MSG-I-TX-BUS-PHN-EXTN             PIC X(4).
    243. 

  243.            07  MSG-I-FL-UNLST-BUS-PHN            PIC X(1).
    244. 

  244.            07  MSG-I-DT-TEMP-MAIL-END            PIC X(10).
    245. 

  245.            07  MSG-I-FL-UNLST-TEMP-PHN           PIC X(1).
    246. 

  246.            07  MSG-I-KY-ASSIGND-REP-UID          PIC X(8).
    247. 

  247.            07  MSG-I-FL-UPDT-PHONE               PIC X(1).
    248. 

  248.                88  MSG-I-FL-UPDT-PHONE-Y             VALUE 'Y'.
    249. 

  249.                88  MSG-I-FL-UPDT-PHONE-N             VALUE 'N'.
    250. 

  250.            07  MSG-I-KY-CUST-ID                  PIC X(15).
    251. 

  251.            07  MSG-I-NM-DO-BUSINESS-AS           PIC X(28).
    252. 

  252.          05  MSG-I-HDR-CU0320I.
    253. 

  253.            07  MSG-I-CD-RETURN                   PIC S9(9) COMP-3.
    254. 

  254.            07  MSG-I-QY-ALR-ACL-CNT              PIC S9(3) COMP-3.
    255. 

  255.            07  MSG-I-CD-CUST-RESPNSBL            PIC X(2).
    256. 

  256.                88  MSG-I-PRIMARY                     VALUE '01'.
    257. 

  257.                88  MSG-I-SPOUSE                      VALUE '02'.
    258. 

  258.                88  MSG-I-THIRD-PARTY                 VALUE '03'.
    259. 

  259.                88  MSG-I-ROOMMATE                    VALUE '04'.
    260. 

  260.                88  MSG-I-BILL-CONTACT                VALUE '05'.
    261. 

  261.                88  MSG-I-COMP-CONTACT                VALUE '06'.
    262. 

  262.                88  MSG-I-MARK-CONTACT                VALUE '07'.
    263. 

  263.                88  MSG-I-OTHR                        VALUE '08'.
    264. 

  264.            07  MSG-I-KY-REMARKS                  PIC S9(9) COMP.
    265. 

  265.            07  MSG-I-HDR-CU02013.
    266. 

  266.              09  MSG-I-CD-RETURN                 PIC S9(9) COMP-3.
    267. 

  267.              09  MSG-I-QY-ALR-ACL-CNT            PIC S9(3) COMP-3.
    268. 

  268.              09  MSG-I-KY-BA                     PIC S9(10) COMP-3.
    269. 

  269.              09  MSG-I-NO-CC-TAX-EX-CERT         PIC X(13).
    270. 

  270.              09  MSG-I-DT-CC-TAX-EX-EXP          PIC X(10).
    271. 

  271.              09  MSG-I-CD-TAX-AUTHORITY          PIC X(1).
    272. 

  272.              09  MSG-I-CD-CASH-ONLY-RES          PIC X(2).
    273. 

  273.          05  MSG-I-HDR-CU02012.
    274. 

  274.            07  MSG-I-CD-ACCT-TYPE                PIC X(2).
    275. 

  275.                88  MSG-I-PEND-SERV                   VALUE '03'.
    276. 

  276.                88  MSG-I-DEFAULTED                   VALUE '  '.
    277. 

  277.                88  MSG-I-PEND-SERV-OTHER-ACT         VALUE '06'.
    278. 

  278.                88  MSG-I-PEND-FINAL-ELE              VALUE '12'.
    279. 

  279.                88  MSG-I-PEND-FINAL-ELE-ACT          VALUE '21'.
    280. 

  280.                88  MSG-I-FINAL-SERV-ACT              VALUE '42'.
    281. 

  281.                88  MSG-I-DMAG                        VALUE '48'.
    282. 

  282.                88  MSG-I-SUM-BILL                    VALUE '51'.
    283. 

  283.                88  MSG-I-PAL                         VALUE '54'.
    284. 

  284.                88  MSG-I-SL                          VALUE '57'.
    285. 

  285.                88  MSG-I-NONCONSUMER                 VALUE '60'.
    286. 

  286.                88  MSG-I-CASH                        VALUE '63'.
    287. 

  287.                88  MSG-I-DEBITS                      VALUE '66'.
    288. 

  288.                88  MSG-I-UNCOLL-CASH                 VALUE '69'.
    289. 

  289.                88  MSG-I-SERV-TYPE VALUE '12','21','18','33','42','09',
    290. 

  290.                    '15','24','27','30','36','39','54'.
    291. 

  291.                88  MSG-I-SERV-PEND                   VALUE '03', '06'.
    292. 

  292.                88  MSG-I-NON-SERV VALUE '45','48','60','72'.
    293. 

  293.                88  MSG-I-TAX-ONLY                    VALUE '72'.
    294. 

  294.            07  MSG-I-CD-BA-STAT                  PIC X(2).
    295. 

  295.                88  MSG-I-ACT                         VALUE '02'.
    296. 

  296.                88  MSG-I-PEND-ACT                    VALUE '03'.
    297. 

  297.                88  MSG-I-PEND-TRNSFR                 VALUE '04'.
    298. 

  298.                88  MSG-I-VOIDED                      VALUE '07'.
    299. 

  299.                88  MSG-I-FINALED                     VALUE '09'.
    300. 

  300.                88  MSG-I-UNCOLL                      VALUE '18'.
    301. 

  301.                88  MSG-I-NOT-VOID VALUE '02','03','04','09','18','30'.
    302. 

  302.                88  MSG-I-ESCHEAT                     VALUE '30'.
    303. 

  303.          05  MSG-I-HDR-CU0401P.
    304. 

  304.            07  MSG-I-CD-REPORT-LEVEL             PIC X(5).
    305. 

  305.                88  MSG-I-RPT-LVL-APK                 VALUE 'APK'.
    306. 

  306.                88  MSG-I-GEN-OFFICE                  VALUE 'GEN'.
    307. 

  307.                88  MSG-I-RPT-LVL-APL                 VALUE 'APL'.
    308. 

  308.                88  MSG-I-RPT-LVL-AVP                 VALUE 'AVP'.
    309. 

  309.                88  MSG-I-RPT-LVL-BKS                 VALUE 'BKS'.
    310. 

  310.                88  MSG-I-RPT-LVL-BLG                 VALUE 'BLG'.
    311. 

  311.                88  MSG-I-RPT-LVL-BNV                 VALUE 'BNV'.
    312. 

  312.                88  MSG-I-RPT-LVL-CAR                 VALUE 'CAR'.
    313. 

  313.                88  MSG-I-RPT-LVL-CLR                 VALUE 'CLR'.
    314. 

  314.                88  MSG-I-RPT-LVL-CLW                 VALUE 'CLW'.
    315. 

  315.                88  MSG-I-RPT-LVL-CRC                 VALUE 'CRC'.
    316. 

  316.                88  MSG-I-RPT-LVL-CRV                 VALUE 'CRV'.
    317. 

  317.                88  MSG-I-RPT-LVL-CRW                 VALUE 'CRW'.
    318. 

  318.                88  MSG-I-RPT-LVL-DEL                 VALUE 'DEL'.
    319. 

  319.                88  MSG-I-RPT-LVL-DUN                 VALUE 'DUN'.
    320. 

  320.                88  MSG-I-RPT-LVL-EUS                 VALUE 'EUS'.
    321. 

  321.                88  MSG-I-RPT-LVL-FRP                 VALUE 'FRP'.
    322. 

  322.                88  MSG-I-RPT-LVL-HNC                 VALUE 'HNC'.
    323. 

  323.                88  MSG-I-RPT-LVL-HSP                 VALUE 'HSP'.
    324. 

  324.                88  MSG-I-RPT-LVL-INV                 VALUE 'INV'.
    325. 

  325.                88  MSG-I-RPT-LVL-JAM                 VALUE 'JAM'.
    326. 

  326.                88  MSG-I-RPT-LVL-JAS                 VALUE 'JAS'.
    327. 

  327.                88  MSG-I-RPT-LVL-LKP                 VALUE 'LKP'.
    328. 

  328.                88  MSG-I-RPT-LVL-LKW                 VALUE 'LKW'.
    329. 

  329.                88  MSG-I-RPT-LVL-MAD                 VALUE 'MAD'.
    330. 

  330.                88  MSG-I-RPT-LVL-MON                 VALUE 'MON'.
    331. 

  331.                88  MSG-I-RPT-LVL-OKL                 VALUE 'OKL'.
    332. 

  332.                88  MSG-I-RPT-LVL-PRY                 VALUE 'PRY'.
    333. 

  333.                88  MSG-I-RPT-LVL-PSJ                 VALUE 'PSJ'.
    334. 

  334.                88  MSG-I-RPT-LVL-RED                 VALUE 'RED'.
    335. 

  335.                88  MSG-I-RPT-LVL-STP                 VALUE 'STP'.
    336. 

  336.                88  MSG-I-RPT-LVL-TRN                 VALUE 'TRN'.
    337. 

  337.                88  MSG-I-RPT-LVL-TRP                 VALUE 'TRP'.
    338. 

  338.                88  MSG-I-RPT-LVL-WAL                 VALUE 'WAL'.
    339. 

  339.                88  MSG-I-RPT-LVL-WLD                 VALUE 'WLD'.
    340. 

  340.                88  MSG-I-RPT-LVL-ZEP                 VALUE 'ZEP'.
    341. 

  341.            07  MSG-I-CD-SIC                      PIC X(6).
    342. 

  342.          05  MSG-I-DAT-CUMGM003.
    343. 

  343.            07  MSG-I-KY-BILL-FORMAT              PIC S9(6) COMP-3.
    344. 

  344.            07  MSG-I-CD-FORMAT-ID                PIC X(3).
    345. 

  345.            07  MSG-I-CD-DELIV-METHOD             PIC X(2).
    346. 

  346.                88  MSG-I-MAIL                        VALUE '01'.
    347. 

  347.                88  MSG-I-FAX                         VALUE '02'.
    348. 

  348.                88  MSG-I-EDI                         VALUE '03'.
    349. 

  349.            07  MSG-I-TX-FAX-PHN-NO               PIC 9(10).
    350. 

  350.            07  MSG-I-TX-ELEC-ADDRESS             PIC X(80).
    351. 

  351.            07  MSG-I-QY-BILL-COPY                PIC S9(1) COMP-3.
    352. 

  352.            07  MSG-I-CD-ROW-ACTION               PIC X(1).
    353. 

  353.                88  MSG-I-NO-ACTION                   VALUE '0'.
    354. 

  354.                88  MSG-I-INSERT                      VALUE '1'.
    355. 

  355.                88  MSG-I-UPDATE                      VALUE '2'.
    356. 

  356.                88  MSG-I-INACTIVATE                  VALUE '3'.
    357. 

  357.                88  MSG-I-ACTIVATE                    VALUE '4'.
    358. 

  358.            07  MSG-I-CD-BILL-LITR                PIC X(1).
    359. 

  359.            07  MSG-I-CD-DTL-LVL                  PIC X(1).
    360. 

  360.            07  MSG-I-CD-BILL-FORM                PIC X(2).
    361. 

  361.          05  MSG-I-CUR-CUMGM003.
    362. 

  362.            07  MSG-I-CD-FORMAT-ID                PIC X(3).
    363. 

  363.          05  MSG-I-DAT-CUMSO005
    364. 

  364.                             OCCURS 2 TIMES.
    365. 

  365.            07  MSG-I-CD-AD-TYPE                  PIC X(1).
    366. 

  366.                88  MSG-I-PREM                        VALUE 'P'.
    367. 

  367.                88  MSG-I-BLDG                        VALUE 'B'.
    368. 

  368.                88  MSG-I-3RD-PARTY                   VALUE 'T'.
    369. 

  369.                88  MSG-I-MLNG-AD                     VALUE 'M'.
    370. 

  370.                88  MSG-I-GUAR                        VALUE 'G'.
    371. 

  371.                88  MSG-I-RFND                        VALUE 'R'.
    372. 

  372.                88  MSG-I-AGENCY                      VALUE 'A'.
    373. 

  373.                88  MSG-I-TEMPORARY                   VALUE 'Y'.
    374. 

  374.                88  MSG-I-CUSTOMER-88                 VALUE 'C'.
    375. 

  375.                88  MSG-I-LANDLORD                    VALUE 'L'.
    376. 

  376.                88  MSG-I-OWNER                       VALUE 'O'.
    377. 

  377.            07  MSG-I-AD-MAIL-TO-1                PIC X(28).
    378. 

  378.            07  MSG-I-AD-MAIL-TO-2                PIC X(28).
    379. 

  379.            07  MSG-I-AD-MAIL-TO-3                PIC X(28).
    380. 

  380.            07  MSG-I-AD-MAIL-TO-4                PIC X(28).
    381. 

  381.            07  MSG-I-AD-COUNTRY                  PIC X(28).
    382. 

  382.            07  MSG-I-DT-TEMP-MAIL-START          PIC X(10).
    383. 

  383.            07  MSG-I-DT-TEMP-MAIL-END            PIC X(10).
    384. 

  384.            07  MSG-I-KY-AD                       PIC S9(9) COMP.
    385. 

  385.          05  MSG-I-HDR-CI0201W.
    386. 

  386.            07  MSG-I-CD-BILL-EXTN                PIC X(1).
    387. 

  387.                88  MSG-I-NOT-ON-EXTN                 VALUE '0'.
    388. 

  388.                88  MSG-I-CUST-LESS-60-MO             VALUE '1'.
    389. 

  389.                88  MSG-I-CUST-LESS-60-1-YR           VALUE '2'.
    390. 

  390.                88  MSG-I-CUST-LESS-60-2-YR           VALUE '3'.
    391. 

  391.                88  MSG-I-CUST-LESS-60-3-YR           VALUE '4'.
    392. 

  392.                88  MSG-I-CUST-LESS-60-4-YR           VALUE '5'.
    393. 

  393.                88  MSG-I-CUST-OVER-60                VALUE '9'.
    394. 

  394.            07  MSG-I-CD-ACCT-HANDLING            PIC X(1).
    395. 

  395.                88  MSG-I-REGULAR                     VALUE 'R'.
    396. 

  396.                88  MSG-I-SPECIAL                     VALUE 'S'.
    397. 

  397.                88  MSG-I-PRE-CAL                     VALUE 'P'.
    398. 

  398.            07  MSG-I-CD-COMPNY-FACILITY          PIC X(2).
    399. 

  399.                88  MSG-I-VS-COMP-STOREROOM           VALUE '01'.
    400. 

  400.            07  MSG-I-CD-RDG-INSTR                PIC X(2).
    401. 

  401.                88  MSG-I-DO-NOT-EST-TEMP             VALUE '01'.
    402. 

  402.                88  MSG-I-ACCT-CD-A-DEC               VALUE '02'.
    403. 

  403.                88  MSG-I-DO-NOT-EST-PERM             VALUE '03'.
    404. 

  404.                88  MSG-I-DO-NOT-EST-NO-POST-TEMP     VALUE '04'.
    405. 

  405.                88  MSG-I-ACCT-CD-D-DEC               VALUE '05'.
    406. 

  406.                88  MSG-I-DO-NOT-EST-NO-POST-PERM     VALUE '06'.
    407. 

  407.                88  MSG-I-DO-NOT-USE-ESTIMATE VALUE '01','02','03','04',
    408. 

  408.                    '05','06','07'.
    409. 

  409.                88  MSG-I-NO-POST-PERM                VALUE '07'.
    410. 

  410.            07  MSG-I-FL-LPC-ELIGIBLE             PIC X(1).
    411. 

  411.            07  MSG-I-SUMMARY-BILL.
    412. 

  412.              09  MSG-I-FL-SHOW-RTP-MASTER        PIC X(1).
    413. 

  413.              09  MSG-I-FL-SUM-BILL               PIC X(1).
    414. 

  414.            07  MSG-I-CD-RESIDENCE                PIC X(1).
    415. 

  415.          05  MSG-I-GRP-CUMGM003.
    416. 

  416.            07  MSG-I-CD-FORMAT-ID                PIC X(3).
    417. 

  417. 

  418.