/src/test/resources/gov/nist/NC202A.CBL

https://github.com/uwol/proleap-cobol-parser · COBOL · 2221 lines · 2219 code · 0 blank · 2 comment · 0 complexity · 2b0766062ad767e46ea45b649d7312cf MD5 · raw file 

    

  1. *HEADER,COBOL,NC202A                                                            
    2. 

  2. 000100 IDENTIFICATION DIVISION.                                         NC2024.2
    3. 

  3. 000200 PROGRAM-ID.                                                      NC2024.2
    4. 

  4. 000300     NC202A.                                                      NC2024.2
    5. 

  5. 000400                                                                  NC2024.2
    6. 

  6. 000500****************************************************************  NC2024.2
    7. 

  7. 000600*                                                              *  NC2024.2
    8. 

  8. 000700*    VALIDATION FOR:-                                          *  NC2024.2
    9. 

  9. 000800*                                                              *  NC2024.2
    10. 

  10. 000900*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC2024.2
    11. 

  11. 001000*                                                              *  NC2024.2
    12. 

  12. 001100*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC2024.2
    13. 

  13. 001200*                                                              *  NC2024.2
    14. 

  14. 001300****************************************************************  NC2024.2
    15. 

  15. 001400*                                                              *  NC2024.2
    16. 

  16. 001500*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC2024.2
    17. 

  17. 001600*                                                              *  NC2024.2
    18. 

  18. 001700*        X-55  - SYSTEM PRINTER NAME.                          *  NC2024.2
    19. 

  19. 001800*        X-82  - SOURCE COMPUTER NAME.                         *  NC2024.2
    20. 

  20. 001900*        X-83  - OBJECT COMPUTER NAME.                         *  NC2024.2
    21. 

  21. 002000*                                                              *  NC2024.2
    22. 

  22. 002100****************************************************************  NC2024.2
    23. 

  23. 002200*                                                                 NC2024.2
    24. 

  24. 002300*    PROGRAM NC202A TESTS FORMAT3 OF THE ADD STATEMENT.           NC2024.2
    25. 

  25. 002400*                                                                 NC2024.2
    26. 

  26. 002500 ENVIRONMENT DIVISION.                                            NC2024.2
    27. 

  27. 002600 CONFIGURATION SECTION.                                           NC2024.2
    28. 

  28. 002700 SOURCE-COMPUTER.                                                 NC2024.2
    29. 

  29. 002800     XXXXX082.                                                    NC2024.2
    30. 

  30. 002900 OBJECT-COMPUTER.                                                 NC2024.2
    31. 

  31. 003000     XXXXX083.                                                    NC2024.2
    32. 

  32. 003100 INPUT-OUTPUT SECTION.                                            NC2024.2
    33. 

  33. 003200 FILE-CONTROL.                                                    NC2024.2
    34. 

  34. 003300     SELECT PRINT-FILE ASSIGN TO                                  NC2024.2
    35. 

  35. 003400     XXXXX055.                                                    NC2024.2
    36. 

  36. 003500 DATA DIVISION.                                                   NC2024.2
    37. 

  37. 003600 FILE SECTION.                                                    NC2024.2
    38. 

  38. 003700 FD  PRINT-FILE.                                                  NC2024.2
    39. 

  39. 003800 01  PRINT-REC PICTURE X(120).                                    NC2024.2
    40. 

  40. 003900 01  DUMMY-RECORD PICTURE X(120).                                 NC2024.2
    41. 

  41. 004000 WORKING-STORAGE SECTION.                                         NC2024.2
    42. 

  42. 004100 01  TABLE1.                                                      NC2024.2
    43. 

  43. 004200     02  RECORD1                 PICTURE 99.                      NC2024.2
    44. 

  44. 004300     02  RECORD2                 PICTURE 99                       NC2024.2
    45. 

  45. 004400                                 OCCURS 2 TIMES                   NC2024.2
    46. 

  46. 004500                                 INDEXED BY INDEX1.               NC2024.2
    47. 

  47. 004600     02  RECORD3                 PICTURE 99.                      NC2024.2
    48. 

  48. 004700 01  TABLE2.                                                      NC2024.2
    49. 

  49. 004800     02  RECORD1                 PICTURE 99.                      NC2024.2
    50. 

  50. 004900     02  RECORD2                 PICTURE 99                       NC2024.2
    51. 

  51. 005000                                 OCCURS 2 TIMES                   NC2024.2
    52. 

  52. 005100                                 INDEXED BY INDEX2.               NC2024.2
    53. 

  53. 005200     02  RECORD3                 PICTURE 99.                      NC2024.2
    54. 

  54. 005300 77  WRK-AN-00001                PICTURE X.                       NC2024.2
    55. 

  55. 005400 77  WRK-XN-00001                PICTURE X.                       NC2024.2
    56. 

  56. 005500 77  WRK-DS-01V00                PICTURE S9.                      NC2024.2
    57. 

  57. 005600 77  WRK-DS-02V00                PICTURE S99.                     NC2024.2
    58. 

  58. 005700 77  WRK-DS-06V06                PICTURE S9(6)V9(6).              NC2024.2
    59. 

  59. 005800 77  WRK-DS-05V00                PICTURE S9(5).                   NC2024.2
    60. 

  60. 005900 77  AZERO-DS-05V05              PICTURE S9(5)V9(5) VALUE ZERO.   NC2024.2
    61. 

  61. 006000 77  WRK-DS-09V09                PICTURE S9(9)V9(9).              NC2024.2
    62. 

  62. 006100 77  WRK-DS-18V00-S REDEFINES WRK-DS-09V09 PICTURE S9(18).        NC2024.2
    63. 

  63. 006200 77  A18ONES-DS-09V09            PICTURE S9(9)V9(9)               NC2024.2
    64. 

  64. 006300                                 VALUE 111111111.111111111.       NC2024.2
    65. 

  65. 006400 77  WRK-DS-18V00       PICTURE S9(18) VALUE 111111111111111111.  NC2024.2
    66. 

  66. 006500 77  A05ONES-DS-05V00            PICTURE S9(5) VALUE 11111.       NC2024.2
    67. 

  67. 006600 77  A99-DS-02V00                PICTURE S99   VALUE 99.          NC2024.2
    68. 

  68. 006700 77  WRK-DS-03V00                PICTURE S999.                    NC2024.2
    69. 

  69. 006800 77  WRK-DS-06V00                PICTURE S9(6).                   NC2024.2
    70. 

  70. 006900 77  WRK-DS-0201P                PICTURE S99P.                    NC2024.2
    71. 

  71. 007000 77  WRK-DS-03V10                PICTURE S9(3)V9(10).             NC2024.2
    72. 

  72. 007100 77  ADD-1                   PICTURE S9(8)V99  VALUE 1.           NC2024.2
    73. 

  73. 007200 77  ADD-2                   PICTURE S9(6)V9(4) VALUE 1.          NC2024.2
    74. 

  74. 007300 77  ADD-3                   PICTURE S9(5)     VALUE -1.          NC2024.2
    75. 

  75. 007400 77  ADD-4                   PICTURE 9         VALUE 9.           NC2024.2
    76. 

  76. 007500 77  ADD-5                   PICTURE 9         VALUE 9.           NC2024.2
    77. 

  77. 007600 77  ADD-6                   PICTURE 9(5)      VALUE 99999.       NC2024.2
    78. 

  78. 007700 77  ADD-7                   PICTURE 9         VALUE 1.           NC2024.2
    79. 

  79. 007800 77  ADD-8                   PICTURE 9.                           NC2024.2
    80. 

  80. 007900 77  ADD-9                   PICTURE S9(8)V99  VALUE 5.9.         NC2024.2
    81. 

  81. 008000 77  ADD-10                  PICTURE 9(5)      VALUE 52800.       NC2024.2
    82. 

  82. 008100 77  ADD-11                  PICTURE 99999.                       NC2024.2
    83. 

  83. 008200 77  ADD-12                  PICTURE PP9       VALUE .001.        NC2024.2
    84. 

  84. 008300 77  ADD-13                  PICTURE 9PP       VALUE 100.         NC2024.2
    85. 

  85. 008400 77  ADD-14                  PICTURE 999V999.                     NC2024.2
    86. 

  86. 008500 77  W-1                     PICTURE IS 9.                        NC2024.2
    87. 

  87. 008600 77  W-2                     PICTURE IS 99.                       NC2024.2
    88. 

  88. 008700 77  W-3                     PICTURE IS 999.                      NC2024.2
    89. 

  89. 008800 77  W-4                PICTURE 9  VALUE 0.                       NC2024.2
    90. 

  90. 008900 77  W-6                     PICTURE IS 999    VALUE IS ZERO.     NC2024.2
    91. 

  91. 009000 77  W-9                     PICTURE 999.                         NC2024.2
    92. 

  92. 009100 77  D-5                PICTURE S999  VALUE -1.                   NC2024.2
    93. 

  93. 009200 77  D-9                PICTURE 9(4)V9(4)  VALUE 111.1189.        NC2024.2
    94. 

  94. 009300 77  ONE                PICTURE 9  VALUE 1.                       NC2024.2
    95. 

  95. 009400 77  TWO                PICTURE S9  VALUE 2.                      NC2024.2
    96. 

  96. 009500 77  THREE              PICTURE S9  VALUE 3.                      NC2024.2
    97. 

  97. 009600 77  FOUR               PICTURE S9  VALUE 4.                      NC2024.2
    98. 

  98. 009700 77  FIVE               PICTURE S9  VALUE 5.                      NC2024.2
    99. 

  99. 009800 77  SIX                PICTURE S9  VALUE 6.                      NC2024.2
    100. 

  100. 009900 77  SEVEN              PICTURE S9  VALUE 7.                      NC2024.2
    101. 

  101. 010000 77  EIGHT              PICTURE 9  VALUE 8.                       NC2024.2
    102. 

  102. 010100 77  NINE               PICTURE S9  VALUE 9.                      NC2024.2
    103. 

  103. 010200 77  TEN                PICTURE S99  VALUE 10.                    NC2024.2
    104. 

  104. 010300 77  FIFTEEN            PICTURE S99  VALUE 15.                    NC2024.2
    105. 

  105. 010400 77  TWENTY             PICTURE S99  VALUE 20.                    NC2024.2
    106. 

  106. 010500 77  TWENTY-5           PICTURE S99  VALUE 25.                    NC2024.2
    107. 

  107. 010600 01  WRK-DS-09V00                 PICTURE S9(9)  VALUE ZERO.      NC2024.2
    108. 

  108. 010700 01  GRP-FOR-ADD-CORR-1.                                          NC2024.2
    109. 

  109. 010800     02  GRP-SUBTRACT-CORR-1.                                     NC2024.2
    110. 

  110. 010900     03  FILLER                  PICTURE S99  VALUE 91.           NC2024.2
    111. 

  111. 011000     03  ADD-CORR-2              PICTURE S99  VALUE 22.           NC2024.2
    112. 

  112. 011100     03  ADD-CORR-1              PICTURE S99 VALUE 11.            NC2024.2
    113. 

  113. 011200     03  ADD-CORR-A              PICTURE S99 VALUE 93.            NC2024.2
    114. 

  114. 011300     03  ADD-CORR-4              PICTURE S99 VALUE 44.            NC2024.2
    115. 

  115. 011400     03  ADD-CORR-3              PICTURE S99 VALUE 33.            NC2024.2
    116. 

  116. 011500     03  ADD-CORR-6              PICTURE S99 VALUE 66.            NC2024.2
    117. 

  117. 011600     03  ADD-CORR-5              PICTURE S99 VALUE 55.            NC2024.2
    118. 

  118. 011700     03  ADD-CORR-8              PICTURE S99 VALUE 88.            NC2024.2
    119. 

  119. 011800     03  ADD-CORR-7              PICTURE S99 VALUE 77.            NC2024.2
    120. 

  120. 011900     03  ADD-CORR-9              PICTURE S99 VALUE 99.            NC2024.2
    121. 

  121. 012000 01  GRP-FOR-ADD-CORR-R.                                          NC2024.2
    122. 

  122. 012100     02  GRP-SUBTRACT-CORR-1.                                     NC2024.2
    123. 

  123. 012200     05  ADD-CORR-1              PICTURE 99.                      NC2024.2
    124. 

  124. 012300     05  ADD-CORR-2              PICTURE 99.                      NC2024.2
    125. 

  125. 012400     05  ADD-CORR-3              PICTURE 99.                      NC2024.2
    126. 

  126. 012500     05  ADD-CORR-4              PICTURE 99.                      NC2024.2
    127. 

  127. 012600     05  ADD-CORR-5              PICTURE 9P.                      NC2024.2
    128. 

  128. 012700     05  ADD-CORR-6              PICTURE 999.                     NC2024.2
    129. 

  129. 012800     05  ADD-CORR-7              PICTURE 99.                      NC2024.2
    130. 

  130. 012900     05  ADD-CORR-8              PICTURE 99.                      NC2024.2
    131. 

  131. 013000     05  ADD-CORR-9              PICTURE 99.                      NC2024.2
    132. 

  132. 013100     05  FILLER                  PICTURE 99.                      NC2024.2
    133. 

  133. 013200 01  GRP-FOR-ADD-CORR-2.                                          NC2024.2
    134. 

  134. 013300     02  GRP-ADD-SUB-CORR.                                        NC2024.2
    135. 

  135. 013400     03  GRP-SUBTRACT-CORR-1.                                     NC2024.2
    136. 

  136. 013500     04  ADD-CORR-1              PICTURE S99  VALUE 11.           NC2024.2
    137. 

  137. 013600     04  ADD-CORR-2              PICTURE S99  VALUE 22.           NC2024.2
    138. 

  138. 013700     04  ADD-CORR-5              PICTURE S99  VALUE 55.           NC2024.2
    139. 

  139. 013800     04  ADD-CORR-4              PICTURE S99  VALUE 44.           NC2024.2
    140. 

  140. 013900     04  ADD-CORR-3              PICTURE S99  VALUE 33.           NC2024.2
    141. 

  141. 014000     04  ADD-CORR-6              PICTURE S99  VALUE 66.           NC2024.2
    142. 

  142. 014100     04  ADD-CORR-7              PICTURE S99  VALUE 77.           NC2024.2
    143. 

  143. 014200     04  ADD-CORR-8              PICTURE S99  VALUE 88.           NC2024.2
    144. 

  144. 014300     04  ADD-CORR-9              PICTURE S99  VALUE 99.           NC2024.2
    145. 

  145. 014400     04  ADD-CORR-B              PICTURE S99  VALUE 92.           NC2024.2
    146. 

  146. 014500     04  ADD-CORR-0              PICTURE S99  VALUE 00.           NC2024.2
    147. 

  147. 014600 01  GRP-FOR-ADD-CORR-A.                                          NC2024.2
    148. 

  148. 014700     02  GRP-SUBTRACT-CORR-3.                                     NC2024.2
    149. 

  149. 014800         03  GRP-SUBTRACT-CORR-1.                                 NC2024.2
    150. 

  150. 014900             05  ADD-CORR-4      PICTURE S999   VALUE 044.        NC2024.2
    151. 

  151. 015000             05  ADD-CORR-3      PICTURE S999   VALUE 033.        NC2024.2
    152. 

  152. 015100             05  ADD-CORR-2      PICTURE S999   VALUE 022.        NC2024.2
    153. 

  153. 015200             05  ADD-CORR-1      PICTURE S999   VALUE 111.        NC2024.2
    154. 

  154. 015300 01  ADD-15.                                                      NC2024.2
    155. 

  155. 015400     02 FIELD1               PICTURE 99999     VALUE 1.           NC2024.2
    156. 

  156. 015500     02 FIELD2               PICTURE 999V99    VALUE 32.1.        NC2024.2
    157. 

  157. 015600     02 FIELD3               PICTURE 999V9     VALUE 123.4.       NC2024.2
    158. 

  158. 015700 01  ADD-16.                                                      NC2024.2
    159. 

  159. 015800     02 FIELD1               PICTURE 99999     VALUE 99999.       NC2024.2
    160. 

  160. 015900     02 FIELD2               PICTURE 999V99    VALUE 745.67.      NC2024.2
    161. 

  161. 016000     02 FIELD3               PICTURE 999V9     VALUE 432.1.       NC2024.2
    162. 

  162. 016100 01  SUBTRACT-DATA.                                               NC2024.2
    163. 

  163. 016200     02 SUBTR-1              PICTURE 9         VALUE 1.           NC2024.2
    164. 

  164. 016300     02 SUBTR-2              PICTURE S99       VALUE 99.          NC2024.2
    165. 

  165. 016400     02 SUBTR-3              PICTURE S9V99     VALUE -1.          NC2024.2
    166. 

  166. 016500     02 SUBTR-4              PICTURE SPP9      VALUE .001.        NC2024.2
    167. 

  167. 016600     02 SUBTR-5              PICTURE S9PP      VALUE 100.         NC2024.2
    168. 

  168. 016700     02  SUBTR-6                  PICTURE 9 VALUE 1.              NC2024.2
    169. 

  169. 016800     02  SUBTR-7                  PICTURE S99  VALUE 99.          NC2024.2
    170. 

  170. 016900     02  SUBTR-8                  PICTURE S9V99  VALUE -9.99.     NC2024.2
    171. 

  171. 017000     02 SUBTR-9              PICTURE SV999.                       NC2024.2
    172. 

  172. 017100     02  SUBTR-10                 PICTURE S999  VALUE 100.        NC2024.2
    173. 

  173. 017200     02 SUBTR-11             PICTURE S999V999.                    NC2024.2
    174. 

  174. 017300     02 SUBTR-12.                                                 NC2024.2
    175. 

  175. 017400     03 SUBTR-13             PICTURE 9         VALUE 1.           NC2024.2
    176. 

  176. 017500     03 SUBTR-14             PICTURE S9V999    VALUE -1.725.      NC2024.2
    177. 

  177. 017600     03 SUBTR-15             PICTURE S99V99    VALUE 76.76.       NC2024.2
    178. 

  178. 017700     02 SUBTR-16.                                                 NC2024.2
    179. 

  179. 017800     03 SUBTR-13             PICTURE 9         VALUE 2.           NC2024.2
    180. 

  180. 017900     03 SUBTR-14             PICTURE S9V99     VALUE .23.         NC2024.2
    181. 

  181. 018000     03 SUBTR-15             PICTURE S9V99     VALUE 1.           NC2024.2
    182. 

  182. 018100 01  CORR-DATA-1.                                                 NC2024.2
    183. 

  183. 018200     03 XYZ-1                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    184. 

  184. 018300     03 XYZ-2                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    185. 

  185. 018400     03 XYZ-3                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    186. 

  186. 018500     03 XYZ-4                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    187. 

  187. 018600     03 XYZ-5                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    188. 

  188. 018700     03 XYZ-6                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    189. 

  189. 018800 01  CORR-DATA-2.                                                 NC2024.2
    190. 

  190. 018900     03 XYZ-1                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    191. 

  191. 019000     03 XYZ-2                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    192. 

  192. 019100     03 XYZ-3                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    193. 

  193. 019200     03 XYZ-4                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    194. 

  194. 019300     03 XYZ-5                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    195. 

  195. 019400     03 XYZ-6                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    196. 

  196. 019500 01  CORR-DATA-3.                                                 NC2024.2
    197. 

  197. 019600     03 XYZ-4                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    198. 

  198. 019700     03 XYZ-3                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    199. 

  199. 019800     03 XYZ-6                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    200. 

  200. 019900     03 XYZ-5                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    201. 

  201. 020000     03 XYZ-2                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    202. 

  202. 020100     03 XYZ-1                PICTURE IS 99     VALUE IS ZERO.     NC2024.2
    203. 

  203. 020200 01  CORR-DATA-4.                                                 NC2024.2
    204. 

  204. 020300     03 XYZ-11               PICTURE IS 99.                       NC2024.2
    205. 

  205. 020400     03 XYZ-12               PICTURE IS 99.                       NC2024.2
    206. 

  206. 020500     03 XYZ-13               PICTURE IS 99.                       NC2024.2
    207. 

  207. 020600     03 XYZ-14               PICTURE IS 99.                       NC2024.2
    208. 

  208. 020700     03 XYZ-15               PICTURE IS 99.                       NC2024.2
    209. 

  209. 020800     03 XYZ-16               PICTURE IS 99.                       NC2024.2
    210. 

  210. 020900 01  CORR-DATA-5.                                                 NC2024.2
    211. 

  211. 021000     03 XYZ-1                PICTURE 99.                          NC2024.2
    212. 

  212. 021100     03 XYZ-2                PICTURE 99.                          NC2024.2
    213. 

  213. 021200     03 XYZ-13               PICTURE IS 99.                       NC2024.2
    214. 

  214. 021300     03 XYZ-14               PICTURE IS 99.                       NC2024.2
    215. 

  215. 021400     03 FILLER               PICTURE IS 99.                       NC2024.2
    216. 

  216. 021500     03 XYZ-11               PICTURE IS 99.                       NC2024.2
    217. 

  217. 021600     03 XYZ-12               PICTURE IS 99.                       NC2024.2
    218. 

  218. 021700 01  CORR-DATA-6.                                                 NC2024.2
    219. 

  219. 021800     03 XYZ-11               PICTURE IS 99.                       NC2024.2
    220. 

  220. 021900     03 XYZ-12               PICTURE IS 99.                       NC2024.2
    221. 

  221. 022000     03 FILLER               PICTURE IS 99.                       NC2024.2
    222. 

  222. 022100     03 XYZ-1                PICTURE IS 99.                       NC2024.2
    223. 

  223. 022200     03 XYZ-2                PICTURE IS 9(2).                     NC2024.2
    224. 

  224. 022300     03 FILLER               PICTURE IS 99.                       NC2024.2
    225. 

  225. 022400 01  CORR-DATA-7.                                                 NC2024.2
    226. 

  226. 022500     02 XYZ-1                PICTURE 99V99     VALUE 10.45.       NC2024.2
    227. 

  227. 022600     02 XYZ-6                PICTURE 999V9     VALUE 100.5.       NC2024.2
    228. 

  228. 022700     02 XYZ-11               PICTURE 99V9      VALUE ZERO.        NC2024.2
    229. 

  229. 022800     02 XYZ-2                PICTURE 99V9      VALUE 0.9.         NC2024.2
    230. 

  230. 022900 01  42-DATANAMES.                                                NC2024.2
    231. 

  231. 023000     02  DNAME1   PICTURE 9      VALUE 1        COMPUTATIONAL.    NC2024.2
    232. 

  232. 023100     02  DNAME2   PICTURE 99      VALUE 1  COMPUTATIONAL.         NC2024.2
    233. 

  233. 023200     02  DNAME3   PICTURE 999     VALUE 1  COMPUTATIONAL.         NC2024.2
    234. 

  234. 023300     02  DNAME4   PICTURE 9(4)    VALUE 1  COMPUTATIONAL.         NC2024.2
    235. 

  235. 023400     02  DNAME5   PICTURE 9(5)    VALUE 1  COMPUTATIONAL.         NC2024.2
    236. 

  236. 023500     02  DNAME6   PICTURE 9(6)    VALUE 1  COMPUTATIONAL.         NC2024.2
    237. 

  237. 023600     02  DNAME7   PICTURE 9(7)    VALUE 1  COMPUTATIONAL.         NC2024.2
    238. 

  238. 023700     02  DNAME8   PICTURE 9(8)    VALUE 1  COMPUTATIONAL.         NC2024.2
    239. 

  239. 023800     02  DNAME9   PICTURE 9(9)    VALUE 1  COMPUTATIONAL.         NC2024.2
    240. 

  240. 023900     02  DNAME10  PICTURE 9(10)   VALUE 1.                        NC2024.2
    241. 

  241. 024000     02  DNAME11  PICTURE 9(11)   VALUE 1.                        NC2024.2
    242. 

  242. 024100     02  DNAME12  PICTURE 9(12)   VALUE 1.                        NC2024.2
    243. 

  243. 024200     02  DNAME13  PICTURE 9(13)   VALUE 1.                        NC2024.2
    244. 

  244. 024300     02  DNAME14  PICTURE 9(14)   VALUE 1.                        NC2024.2
    245. 

  245. 024400     02  DNAME15  PICTURE 9(15)   VALUE 1.                        NC2024.2
    246. 

  246. 024500     02  DNAME16  PICTURE 9(16)   VALUE 1.                        NC2024.2
    247. 

  247. 024600     02  DNAME17  PICTURE 9(17)   VALUE 1.                        NC2024.2
    248. 

  248. 024700     02  DNAME18  PICTURE 9(18)   VALUE 1.                        NC2024.2
    249. 

  249. 024800     02  DNAME19  PICTURE 9       VALUE 1.                        NC2024.2
    250. 

  250. 024900     02  DNAME20  PICTURE 99      VALUE 1.                        NC2024.2
    251. 

  251. 025000     02  DNAME21  PICTURE 999     VALUE 1.                        NC2024.2
    252. 

  252. 025100     02  DNAME22  PICTURE 9(18)  VALUE ZERO.                      NC2024.2
    253. 

  253. 025200     02  DNAME23  PICTURE 9(18)  VALUE ZERO.                      NC2024.2
    254. 

  254. 025300     02  DNAME24  PICTURE 9(18)  VALUE ZERO.                      NC2024.2
    255. 

  255. 025400     02  DNAME25  PICTURE 9(18)  VALUE ZERO.                      NC2024.2
    256. 

  256. 025500     02  DNAME26  PICTURE 9(18)  VALUE ZERO.                      NC2024.2
    257. 

  257. 025600     02  DNAME27  PICTURE 9(18)  VALUE ZERO.                      NC2024.2
    258. 

  258. 025700     02  DNAME28  PICTURE 9(18)  VALUE ZERO.                      NC2024.2
    259. 

  259. 025800     02  DNAME29  PICTURE 9(18)  VALUE ZERO.                      NC2024.2
    260. 

  260. 025900     02  DNAME30   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2024.2
    261. 

  261. 026000     02  DNAME31   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2024.2
    262. 

  262. 026100     02  DNAME32   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2024.2
    263. 

  263. 026200     02  DNAME33   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2024.2
    264. 

  264. 026300     02  DNAME34   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2024.2
    265. 

  265. 026400     02  DNAME35   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2024.2
    266. 

  266. 026500     02  DNAME36   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2024.2
    267. 

  267. 026600     02  DNAME37   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2024.2
    268. 

  268. 026700     02  DNAME38   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2024.2
    269. 

  269. 026800     02  DNAME39   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2024.2
    270. 

  270. 026900     02  DNAME40   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2024.2
    271. 

  271. 027000     02  DNAME41   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2024.2
    272. 

  272. 027100     02  DNAME42   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2024.2
    273. 

  273. 027200 01  TEST-RESULTS.                                                NC2024.2
    274. 

  274. 027300     02 FILLER                   PIC X      VALUE SPACE.          NC2024.2
    275. 

  275. 027400     02 FEATURE                  PIC X(20)  VALUE SPACE.          NC2024.2
    276. 

  276. 027500     02 FILLER                   PIC X      VALUE SPACE.          NC2024.2
    277. 

  277. 027600     02 P-OR-F                   PIC X(5)   VALUE SPACE.          NC2024.2
    278. 

  278. 027700     02 FILLER                   PIC X      VALUE SPACE.          NC2024.2
    279. 

  279. 027800     02  PAR-NAME.                                                NC2024.2
    280. 

  280. 027900       03 FILLER                 PIC X(19)  VALUE SPACE.          NC2024.2
    281. 

  281. 028000       03  PARDOT-X              PIC X      VALUE SPACE.          NC2024.2
    282. 

  282. 028100       03 DOTVALUE               PIC 99     VALUE ZERO.           NC2024.2
    283. 

  283. 028200     02 FILLER                   PIC X(8)   VALUE SPACE.          NC2024.2
    284. 

  284. 028300     02 RE-MARK                  PIC X(61).                       NC2024.2
    285. 

  285. 028400 01  TEST-COMPUTED.                                               NC2024.2
    286. 

  286. 028500     02 FILLER                   PIC X(30)  VALUE SPACE.          NC2024.2
    287. 

  287. 028600     02 FILLER                   PIC X(17)  VALUE                 NC2024.2
    288. 

  288. 028700            "       COMPUTED=".                                   NC2024.2
    289. 

  289. 028800     02 COMPUTED-X.                                               NC2024.2
    290. 

  290. 028900     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          NC2024.2
    291. 

  291. 029000     03 COMPUTED-N               REDEFINES COMPUTED-A             NC2024.2
    292. 

  292. 029100                                 PIC -9(9).9(9).                  NC2024.2
    293. 

  293. 029200     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         NC2024.2
    294. 

  294. 029300     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     NC2024.2
    295. 

  295. 029400     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     NC2024.2
    296. 

  296. 029500     03       CM-18V0 REDEFINES COMPUTED-A.                       NC2024.2
    297. 

  297. 029600         04 COMPUTED-18V0                    PIC -9(18).          NC2024.2
    298. 

  298. 029700         04 FILLER                           PIC X.               NC2024.2
    299. 

  299. 029800     03 FILLER PIC X(50) VALUE SPACE.                             NC2024.2
    300. 

  300. 029900 01  TEST-CORRECT.                                                NC2024.2
    301. 

  301. 030000     02 FILLER PIC X(30) VALUE SPACE.                             NC2024.2
    302. 

  302. 030100     02 FILLER PIC X(17) VALUE "       CORRECT =".                NC2024.2
    303. 

  303. 030200     02 CORRECT-X.                                                NC2024.2
    304. 

  304. 030300     03 CORRECT-A                  PIC X(20) VALUE SPACE.         NC2024.2
    305. 

  305. 030400     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      NC2024.2
    306. 

  306. 030500     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         NC2024.2
    307. 

  307. 030600     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     NC2024.2
    308. 

  308. 030700     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     NC2024.2
    309. 

  309. 030800     03      CR-18V0 REDEFINES CORRECT-A.                         NC2024.2
    310. 

  310. 030900         04 CORRECT-18V0                     PIC -9(18).          NC2024.2
    311. 

  311. 031000         04 FILLER                           PIC X.               NC2024.2
    312. 

  312. 031100     03 FILLER PIC X(2) VALUE SPACE.                              NC2024.2
    313. 

  313. 031200     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     NC2024.2
    314. 

  314. 031300 01  CCVS-C-1.                                                    NC2024.2
    315. 

  315. 031400     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE              PANC2024.2
    316. 

  316. 031500-    "SS  PARAGRAPH-NAME                                          NC2024.2
    317. 

  317. 031600-    "       REMARKS".                                            NC2024.2
    318. 

  318. 031700     02 FILLER                     PIC X(20)    VALUE SPACE.      NC2024.2
    319. 

  319. 031800 01  CCVS-C-2.                                                    NC2024.2
    320. 

  320. 031900     02 FILLER                     PIC X        VALUE SPACE.      NC2024.2
    321. 

  321. 032000     02 FILLER                     PIC X(6)     VALUE "TESTED".   NC2024.2
    322. 

  322. 032100     02 FILLER                     PIC X(15)    VALUE SPACE.      NC2024.2
    323. 

  323. 032200     02 FILLER                     PIC X(4)     VALUE "FAIL".     NC2024.2
    324. 

  324. 032300     02 FILLER                     PIC X(94)    VALUE SPACE.      NC2024.2
    325. 

  325. 032400 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       NC2024.2
    326. 

  326. 032500 01  REC-CT                        PIC 99       VALUE ZERO.       NC2024.2
    327. 

  327. 032600 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       NC2024.2
    328. 

  328. 032700 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       NC2024.2
    329. 

  329. 032800 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       NC2024.2
    330. 

  330. 032900 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       NC2024.2
    331. 

  331. 033000 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       NC2024.2
    332. 

  332. 033100 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       NC2024.2
    333. 

  333. 033200 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      NC2024.2
    334. 

  334. 033300 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       NC2024.2
    335. 

  335. 033400 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     NC2024.2
    336. 

  336. 033500 01  CCVS-H-1.                                                    NC2024.2
    337. 

  337. 033600     02  FILLER                    PIC X(39)    VALUE SPACES.     NC2024.2
    338. 

  338. 033700     02  FILLER                    PIC X(42)    VALUE             NC2024.2
    339. 

  339. 033800     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 NC2024.2
    340. 

  340. 033900     02  FILLER                    PIC X(39)    VALUE SPACES.     NC2024.2
    341. 

  341. 034000 01  CCVS-H-2A.                                                   NC2024.2
    342. 

  342. 034100   02  FILLER                        PIC X(40)  VALUE SPACE.      NC2024.2
    343. 

  343. 034200   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  NC2024.2
    344. 

  344. 034300   02  FILLER                        PIC XXXX   VALUE             NC2024.2
    345. 

  345. 034400     "4.2 ".                                                      NC2024.2
    346. 

  346. 034500   02  FILLER                        PIC X(28)  VALUE             NC2024.2
    347. 

  347. 034600            " COPY - NOT FOR DISTRIBUTION".                       NC2024.2
    348. 

  348. 034700   02  FILLER                        PIC X(41)  VALUE SPACE.      NC2024.2
    349. 

  349. 034800                                                                  NC2024.2
    350. 

  350. 034900 01  CCVS-H-2B.                                                   NC2024.2
    351. 

  351. 035000   02  FILLER                        PIC X(15)  VALUE             NC2024.2
    352. 

  352. 035100            "TEST RESULT OF ".                                    NC2024.2
    353. 

  353. 035200   02  TEST-ID                       PIC X(9).                    NC2024.2
    354. 

  354. 035300   02  FILLER                        PIC X(4)   VALUE             NC2024.2
    355. 

  355. 035400            " IN ".                                               NC2024.2
    356. 

  356. 035500   02  FILLER                        PIC X(12)  VALUE             NC2024.2
    357. 

  357. 035600     " HIGH       ".                                              NC2024.2
    358. 

  358. 035700   02  FILLER                        PIC X(22)  VALUE             NC2024.2
    359. 

  359. 035800            " LEVEL VALIDATION FOR ".                             NC2024.2
    360. 

  360. 035900   02  FILLER                        PIC X(58)  VALUE             NC2024.2
    361. 

  361. 036000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC2024.2
    362. 

  362. 036100 01  CCVS-H-3.                                                    NC2024.2
    363. 

  363. 036200     02  FILLER                      PIC X(34)  VALUE             NC2024.2
    364. 

  364. 036300            " FOR OFFICIAL USE ONLY    ".                         NC2024.2
    365. 

  365. 036400     02  FILLER                      PIC X(58)  VALUE             NC2024.2
    366. 

  366. 036500     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC2024.2
    367. 

  367. 036600     02  FILLER                      PIC X(28)  VALUE             NC2024.2
    368. 

  368. 036700            "  COPYRIGHT   1985 ".                                NC2024.2
    369. 

  369. 036800 01  CCVS-E-1.                                                    NC2024.2
    370. 

  370. 036900     02 FILLER                       PIC X(52)  VALUE SPACE.      NC2024.2
    371. 

  371. 037000     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  ".              NC2024.2
    372. 

  372. 037100     02 ID-AGAIN                     PIC X(9).                    NC2024.2
    373. 

  373. 037200     02 FILLER                       PIC X(45)  VALUE SPACES.     NC2024.2
    374. 

  374. 037300 01  CCVS-E-2.                                                    NC2024.2
    375. 

  375. 037400     02  FILLER                      PIC X(31)  VALUE SPACE.      NC2024.2
    376. 

  376. 037500     02  FILLER                      PIC X(21)  VALUE SPACE.      NC2024.2
    377. 

  377. 037600     02 CCVS-E-2-2.                                               NC2024.2
    378. 

  378. 037700         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      NC2024.2
    379. 

  379. 037800         03 FILLER                   PIC X      VALUE SPACE.      NC2024.2
    380. 

  380. 037900         03 ENDER-DESC               PIC X(44)  VALUE             NC2024.2
    381. 

  381. 038000            "ERRORS ENCOUNTERED".                                 NC2024.2
    382. 

  382. 038100 01  CCVS-E-3.                                                    NC2024.2
    383. 

  383. 038200     02  FILLER                      PIC X(22)  VALUE             NC2024.2
    384. 

  384. 038300            " FOR OFFICIAL USE ONLY".                             NC2024.2
    385. 

  385. 038400     02  FILLER                      PIC X(12)  VALUE SPACE.      NC2024.2
    386. 

  386. 038500     02  FILLER                      PIC X(58)  VALUE             NC2024.2
    387. 

  387. 038600     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC2024.2
    388. 

  388. 038700     02  FILLER                      PIC X(13)  VALUE SPACE.      NC2024.2
    389. 

  389. 038800     02 FILLER                       PIC X(15)  VALUE             NC2024.2
    390. 

  390. 038900             " COPYRIGHT 1985".                                   NC2024.2
    391. 

  391. 039000 01  CCVS-E-4.                                                    NC2024.2
    392. 

  392. 039100     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      NC2024.2
    393. 

  393. 039200     02 FILLER                       PIC X(4)   VALUE " OF ".     NC2024.2
    394. 

  394. 039300     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      NC2024.2
    395. 

  395. 039400     02 FILLER                       PIC X(40)  VALUE             NC2024.2
    396. 

  396. 039500      "  TESTS WERE EXECUTED SUCCESSFULLY".                       NC2024.2
    397. 

  397. 039600 01  XXINFO.                                                      NC2024.2
    398. 

  398. 039700     02 FILLER                       PIC X(19)  VALUE             NC2024.2
    399. 

  399. 039800            "*** INFORMATION ***".                                NC2024.2
    400. 

  400. 039900     02 INFO-TEXT.                                                NC2024.2
    401. 

  401. 040000       04 FILLER                     PIC X(8)   VALUE SPACE.      NC2024.2
    402. 

  402. 040100       04 XXCOMPUTED                 PIC X(20).                   NC2024.2
    403. 

  403. 040200       04 FILLER                     PIC X(5)   VALUE SPACE.      NC2024.2
    404. 

  404. 040300       04 XXCORRECT                  PIC X(20).                   NC2024.2
    405. 

  405. 040400     02 INF-ANSI-REFERENCE           PIC X(48).                   NC2024.2
    406. 

  406. 040500 01  HYPHEN-LINE.                                                 NC2024.2
    407. 

  407. 040600     02 FILLER  PIC IS X VALUE IS SPACE.                          NC2024.2
    408. 

  408. 040700     02 FILLER  PIC IS X(65)    VALUE IS "************************NC2024.2
    409. 

  409. 040800-    "*****************************************".                 NC2024.2
    410. 

  410. 040900     02 FILLER  PIC IS X(54)    VALUE IS "************************NC2024.2
    411. 

  411. 041000-    "******************************".                            NC2024.2
    412. 

  412. 041100 01  CCVS-PGM-ID                     PIC X(9)   VALUE             NC2024.2
    413. 

  413. 041200     "NC202A".                                                    NC2024.2
    414. 

  414. 041300 PROCEDURE DIVISION.                                              NC2024.2
    415. 

  415. 041400 CCVS1 SECTION.                                                   NC2024.2
    416. 

  416. 041500 OPEN-FILES.                                                      NC2024.2
    417. 

  417. 041600     OPEN     OUTPUT PRINT-FILE.                                  NC2024.2
    418. 

  418. 041700     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   NC2024.2
    419. 

  419. 041800     MOVE    SPACE TO TEST-RESULTS.                               NC2024.2
    420. 

  420. 041900     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             NC2024.2
    421. 

  421. 042000     GO TO CCVS1-EXIT.                                            NC2024.2
    422. 

  422. 042100 CLOSE-FILES.                                                     NC2024.2
    423. 

  423. 042200     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   NC2024.2
    424. 

  424. 042300 TERMINATE-CCVS.                                                  NC2024.2
    425. 

  425. 042400*    EXIT PROGRAM.                                                NC2024.2
    426. 

  426. 042500*TERMINATE-CALL.                                                  NC2024.2
    427. 

  427. 042600     STOP     RUN.                                                NC2024.2
    428. 

  428. 042700 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         NC2024.2
    429. 

  429. 042800 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           NC2024.2
    430. 

  430. 042900 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          NC2024.2
    431. 

  431. 043000 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      NC2024.2
    432. 

  432. 043100     MOVE "****TEST DELETED****" TO RE-MARK.                      NC2024.2
    433. 

  433. 043200 PRINT-DETAIL.                                                    NC2024.2
    434. 

  434. 043300     IF REC-CT NOT EQUAL TO ZERO                                  NC2024.2
    435. 

  435. 043400             MOVE "." TO PARDOT-X                                 NC2024.2
    436. 

  436. 043500             MOVE REC-CT TO DOTVALUE.                             NC2024.2
    437. 

  437. 043600     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      NC2024.2
    438. 

  438. 043700     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               NC2024.2
    439. 

  439. 043800        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 NC2024.2
    440. 

  440. 043900          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 NC2024.2
    441. 

  441. 044000     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              NC2024.2
    442. 

  442. 044100     MOVE SPACE TO CORRECT-X.                                     NC2024.2
    443. 

  443. 044200     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         NC2024.2
    444. 

  444. 044300     MOVE     SPACE TO RE-MARK.                                   NC2024.2
    445. 

  445. 044400 HEAD-ROUTINE.                                                    NC2024.2
    446. 

  446. 044500     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC2024.2
    447. 

  447. 044600     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC2024.2
    448. 

  448. 044700     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC2024.2
    449. 

  449. 044800     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC2024.2
    450. 

  450. 044900 COLUMN-NAMES-ROUTINE.                                            NC2024.2
    451. 

  451. 045000     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2024.2
    452. 

  452. 045100     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2024.2
    453. 

  453. 045200     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        NC2024.2
    454. 

  454. 045300 END-ROUTINE.                                                     NC2024.2
    455. 

  455. 045400     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2024.2
    456. 

  456. 045500 END-RTN-EXIT.                                                    NC2024.2
    457. 

  457. 045600     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2024.2
    458. 

  458. 045700 END-ROUTINE-1.                                                   NC2024.2
    459. 

  459. 045800      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      NC2024.2
    460. 

  460. 045900      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               NC2024.2
    461. 

  461. 046000      ADD PASS-COUNTER TO ERROR-HOLD.                             NC2024.2
    462. 

  462. 046100*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC2024.2
    463. 

  463. 046200      MOVE PASS-COUNTER TO CCVS-E-4-1.                            NC2024.2
    464. 

  464. 046300      MOVE ERROR-HOLD TO CCVS-E-4-2.                              NC2024.2
    465. 

  465. 046400      MOVE CCVS-E-4 TO CCVS-E-2-2.                                NC2024.2
    466. 

  466. 046500      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           NC2024.2
    467. 

  467. 046600  END-ROUTINE-12.                                                 NC2024.2
    468. 

  468. 046700      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        NC2024.2
    469. 

  469. 046800     IF       ERROR-COUNTER IS EQUAL TO ZERO                      NC2024.2
    470. 

  470. 046900         MOVE "NO " TO ERROR-TOTAL                                NC2024.2
    471. 

  471. 047000         ELSE                                                     NC2024.2
    472. 

  472. 047100         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC2024.2
    473. 

  473. 047200     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           NC2024.2
    474. 

  474. 047300     PERFORM WRITE-LINE.                                          NC2024.2
    475. 

  475. 047400 END-ROUTINE-13.                                                  NC2024.2
    476. 

  476. 047500     IF DELETE-COUNTER IS EQUAL TO ZERO                           NC2024.2
    477. 

  477. 047600         MOVE "NO " TO ERROR-TOTAL  ELSE                          NC2024.2
    478. 

  478. 047700         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      NC2024.2
    479. 

  479. 047800     MOVE "TEST(S) DELETED     " TO ENDER-DESC.                   NC2024.2
    480. 

  480. 047900     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2024.2
    481. 

  481. 048000      IF   INSPECT-COUNTER EQUAL TO ZERO                          NC2024.2
    482. 

  482. 048100          MOVE "NO " TO ERROR-TOTAL                               NC2024.2
    483. 

  483. 048200      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   NC2024.2
    484. 

  484. 048300      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            NC2024.2
    485. 

  485. 048400      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          NC2024.2
    486. 

  486. 048500     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2024.2
    487. 

  487. 048600 WRITE-LINE.                                                      NC2024.2
    488. 

  488. 048700     ADD 1 TO RECORD-COUNT.                                       NC2024.2
    489. 

  489. 048800*    IF RECORD-COUNT GREATER 50                                   NC2024.2
    490. 

  490. 048900*        MOVE DUMMY-RECORD TO DUMMY-HOLD                          NC2024.2
    491. 

  491. 049000*        MOVE SPACE TO DUMMY-RECORD                               NC2024.2
    492. 

  492. 049100*        WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  NC2024.2
    493. 

  493. 049200*        MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             NC2024.2
    494. 

  494. 049300*        MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     NC2024.2
    495. 

  495. 049400*        MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          NC2024.2
    496. 

  496. 049500*        MOVE DUMMY-HOLD TO DUMMY-RECORD                          NC2024.2
    497. 

  497. 049600*        MOVE ZERO TO RECORD-COUNT.                               NC2024.2
    498. 

  498. 049700     PERFORM WRT-LN.                                              NC2024.2
    499. 

  499. 049800 WRT-LN.                                                          NC2024.2
    500. 

  500. 049900     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               NC2024.2
    501. 

  501. 050000     MOVE SPACE TO DUMMY-RECORD.                                  NC2024.2
    502. 

  502. 050100 BLANK-LINE-PRINT.                                                NC2024.2
    503. 

  503. 050200     PERFORM WRT-LN.                                              NC2024.2
    504. 

  504. 050300 FAIL-ROUTINE.                                                    NC2024.2
    505. 

  505. 050400     IF   COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2024.2
    506. 

  506. 050500     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2024.2
    507. 

  507. 050600     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC2024.2
    508. 

  508. 050700     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   NC2024.2
    509. 

  509. 050800     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2024.2
    510. 

  510. 050900     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC2024.2
    511. 

  511. 051000     GO TO  FAIL-ROUTINE-EX.                                      NC2024.2
    512. 

  512. 051100 FAIL-ROUTINE-WRITE.                                              NC2024.2
    513. 

  513. 051200     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         NC2024.2
    514. 

  514. 051300     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 NC2024.2
    515. 

  515. 051400     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2024.2
    516. 

  516. 051500     MOVE   SPACES TO COR-ANSI-REFERENCE.                         NC2024.2
    517. 

  517. 051600 FAIL-ROUTINE-EX. EXIT.                                           NC2024.2
    518. 

  518. 051700 BAIL-OUT.                                                        NC2024.2
    519. 

  519. 051800     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   NC2024.2
    520. 

  520. 051900     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           NC2024.2
    521. 

  521. 052000 BAIL-OUT-WRITE.                                                  NC2024.2
    522. 

  522. 052100     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  NC2024.2
    523. 

  523. 052200     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC2024.2
    524. 

  524. 052300     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2024.2
    525. 

  525. 052400     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC2024.2
    526. 

  526. 052500 BAIL-OUT-EX. EXIT.                                               NC2024.2
    527. 

  527. 052600 CCVS1-EXIT.                                                      NC2024.2
    528. 

  528. 052700     EXIT.                                                        NC2024.2
    529. 

  529. 052800 SECT-NC202A-001 SECTION.                                         NC2024.2
    530. 

  530. 052900 ADD-INIT-F3-1.                                                   NC2024.2
    531. 

  531. 053000     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    532. 

  532. 053100     MOVE "ADD CORRESPONDING " TO FEATURE.                        NC2024.2
    533. 

  533. 053200     MOVE "ADD-TEST-F3-1" TO PAR-NAME.                            NC2024.2
    534. 

  534. 053300     MOVE ZERO TO GRP-FOR-ADD-CORR-R.                             NC2024.2
    535. 

  535. 053400     MOVE   11  TO  ADD-CORR-1 OF GRP-FOR-ADD-CORR-1.             NC2024.2
    536. 

  536. 053500     MOVE   22  TO  ADD-CORR-2 OF GRP-FOR-ADD-CORR-1.             NC2024.2
    537. 

  537. 053600     MOVE   33  TO  ADD-CORR-3 OF GRP-FOR-ADD-CORR-1.             NC2024.2
    538. 

  538. 053700     MOVE   44  TO  ADD-CORR-4 OF GRP-FOR-ADD-CORR-1.             NC2024.2
    539. 

  539. 053800     MOVE   55  TO  ADD-CORR-5 OF GRP-FOR-ADD-CORR-1.             NC2024.2
    540. 

  540. 053900     MOVE   66  TO  ADD-CORR-6 OF GRP-FOR-ADD-CORR-1.             NC2024.2
    541. 

  541. 054000     MOVE   77  TO  ADD-CORR-7 OF GRP-FOR-ADD-CORR-1.             NC2024.2
    542. 

  542. 054100     MOVE   88  TO  ADD-CORR-8 OF GRP-FOR-ADD-CORR-1.             NC2024.2
    543. 

  543. 054200     MOVE   99  TO  ADD-CORR-9 OF GRP-FOR-ADD-CORR-1.             NC2024.2
    544. 

  544. 054300 ADD-TEST-F3-1.                                                   NC2024.2
    545. 

  545. 054400     ADD CORRESPONDING GRP-FOR-ADD-CORR-1 TO GRP-FOR-ADD-CORR-R.  NC2024.2
    546. 

  546. 054500     IF GRP-FOR-ADD-CORR-R EQUAL TO "11223344506677889900"        NC2024.2
    547. 

  547. 054600         PERFORM PASS                                             NC2024.2
    548. 

  548. 054700         GO TO ADD-WRITE-F3-1.                                    NC2024.2
    549. 

  549. 054800     GO TO ADD-FAIL-F3-1.                                         NC2024.2
    550. 

  550. 054900 ADD-DELETE-F3-1.                                                 NC2024.2
    551. 

  551. 055000     PERFORM DE-LETE.                                             NC2024.2
    552. 

  552. 055100     GO TO ADD-WRITE-F3-1.                                        NC2024.2
    553. 

  553. 055200 ADD-FAIL-F3-1.                                                   NC2024.2
    554. 

  554. 055300     MOVE GRP-FOR-ADD-CORR-R TO COMPUTED-A.                       NC2024.2
    555. 

  555. 055400     MOVE "11223344506677889900" TO CORRECT-A.                    NC2024.2
    556. 

  556. 055500     PERFORM FAIL.                                                NC2024.2
    557. 

  557. 055600 ADD-WRITE-F3-1.                                                  NC2024.2
    558. 

  558. 055700     PERFORM PRINT-DETAIL.                                        NC2024.2
    559. 

  559. 055800*                                                                 NC2024.2
    560. 

  560. 055900 ADD-INIT-F3-2.                                                   NC2024.2
    561. 

  561. 056000     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    562. 

  562. 056100     MOVE "ADD-TEST-F3-2" TO PAR-NAME.                            NC2024.2
    563. 

  563. 056200     MOVE ZERO TO GRP-FOR-ADD-CORR-R.                             NC2024.2
    564. 

  564. 056300     MOVE   11  TO  ADD-CORR-1 OF GRP-ADD-SUB-CORR.               NC2024.2
    565. 

  565. 056400     MOVE   22  TO  ADD-CORR-2 OF GRP-ADD-SUB-CORR.               NC2024.2
    566. 

  566. 056500     MOVE   33  TO  ADD-CORR-3 OF GRP-ADD-SUB-CORR.               NC2024.2
    567. 

  567. 056600     MOVE   44  TO  ADD-CORR-4 OF GRP-ADD-SUB-CORR.               NC2024.2
    568. 

  568. 056700     MOVE   55  TO  ADD-CORR-5 OF GRP-ADD-SUB-CORR.               NC2024.2
    569. 

  569. 056800     MOVE   66  TO  ADD-CORR-6 OF GRP-ADD-SUB-CORR.               NC2024.2
    570. 

  570. 056900     MOVE   77  TO  ADD-CORR-7 OF GRP-ADD-SUB-CORR.               NC2024.2
    571. 

  571. 057000     MOVE   88  TO  ADD-CORR-8 OF GRP-ADD-SUB-CORR.               NC2024.2
    572. 

  572. 057100     MOVE   99  TO  ADD-CORR-9 OF GRP-ADD-SUB-CORR.               NC2024.2
    573. 

  573. 057200 ADD-TEST-F3-2.                                                   NC2024.2
    574. 

  574. 057300     ADD CORRESPONDING GRP-ADD-SUB-CORR TO                        NC2024.2
    575. 

  575. 057400         GRP-FOR-ADD-CORR-R ROUNDED.                              NC2024.2
    576. 

  576. 057500     IF GRP-FOR-ADD-CORR-R EQUAL TO "11223344606677889900"        NC2024.2
    577. 

  577. 057600               PERFORM PASS                                       NC2024.2
    578. 

  578. 057700               GO TO ADD-WRITE-F3-2.                              NC2024.2
    579. 

  579. 057800     GO TO ADD-FAIL-F3-2.                                         NC2024.2
    580. 

  580. 057900 ADD-DELETE-F3-2.                                                 NC2024.2
    581. 

  581. 058000     PERFORM DE-LETE.                                             NC2024.2
    582. 

  582. 058100     GO TO ADD-WRITE-F3-2.                                        NC2024.2
    583. 

  583. 058200 ADD-FAIL-F3-2.                                                   NC2024.2
    584. 

  584. 058300     MOVE GRP-FOR-ADD-CORR-R TO COMPUTED-A.                       NC2024.2
    585. 

  585. 058400     MOVE "11223344606677889900" TO CORRECT-A.                    NC2024.2
    586. 

  586. 058500     PERFORM FAIL.                                                NC2024.2
    587. 

  587. 058600 ADD-WRITE-F3-2.                                                  NC2024.2
    588. 

  588. 058700     PERFORM PRINT-DETAIL.                                        NC2024.2
    589. 

  589. 058800*                                                                 NC2024.2
    590. 

  590. 058900 ADD-INIT-F3-3.                                                   NC2024.2
    591. 

  591. 059000     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    592. 

  592. 059100     MOVE ZERO TO GRP-FOR-ADD-CORR-R,  WRK-XN-00001.              NC2024.2
    593. 

  593. 059200     MOVE 111    TO  ADD-CORR-1 OF GRP-SUBTRACT-CORR-3.           NC2024.2
    594. 

  594. 059300     MOVE  22    TO  ADD-CORR-2 OF GRP-SUBTRACT-CORR-3.           NC2024.2
    595. 

  595. 059400     MOVE  33    TO  ADD-CORR-3 OF GRP-SUBTRACT-CORR-3.           NC2024.2
    596. 

  596. 059500     MOVE  44    TO  ADD-CORR-4 OF GRP-SUBTRACT-CORR-3.           NC2024.2
    597. 

  597. 059600 ADD-INIT-F3-3-1.                                                 NC2024.2
    598. 

  598. 059700     MOVE "ADD-TEST-F3-3-1" TO PAR-NAME.                          NC2024.2
    599. 

  599. 059800 ADD-TEST-F3-3-1.                                                 NC2024.2
    600. 

  600. 059900     ADD CORRESPONDING GRP-SUBTRACT-CORR-3 TO GRP-FOR-ADD-CORR-R  NC2024.2
    601. 

  601. 060000         ON SIZE ERROR MOVE "1" TO WRK-XN-00001.                  NC2024.2
    602. 

  602. 060100     IF GRP-FOR-ADD-CORR-R EQUAL TO "00223344000000000000"        NC2024.2
    603. 

  603. 060200                   PERFORM PASS                                   NC2024.2
    604. 

  604. 060300                   GO TO ADD-WRITE-F3-3-1.                        NC2024.2
    605. 

  605. 060400     GO TO ADD-FAIL-F3-3-1.                                       NC2024.2
    606. 

  606. 060500 ADD-DELETE-F3-3-1.                                               NC2024.2
    607. 

  607. 060600     PERFORM DE-LETE.                                             NC2024.2
    608. 

  608. 060700     GO TO ADD-WRITE-F3-3-1.                                      NC2024.2
    609. 

  609. 060800 ADD-FAIL-F3-3-1.                                                 NC2024.2
    610. 

  610. 060900     MOVE "00223344000000000000" TO CORRECT-A.                    NC2024.2
    611. 

  611. 061000     MOVE GRP-FOR-ADD-CORR-R TO COMPUTED-A.                       NC2024.2
    612. 

  612. 061100     PERFORM FAIL.                                                NC2024.2
    613. 

  613. 061200 ADD-WRITE-F3-3-1.                                                NC2024.2
    614. 

  614. 061300     PERFORM PRINT-DETAIL.                                        NC2024.2
    615. 

  615. 061400*                                                                 NC2024.2
    616. 

  616. 061500 ADD-INIT-F3-3-2.                                                 NC2024.2
    617. 

  617. 061600     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    618. 

  618. 061700     MOVE "ADD-TEST-F3-3-2" TO PAR-NAME.                          NC2024.2
    619. 

  619. 061800 ADD-TEST-F3-3-2.                                                 NC2024.2
    620. 

  620. 061900     IF       WRK-XN-00001 EQUAL TO "1"                           NC2024.2
    621. 

  621. 062000               PERFORM PASS                                       NC2024.2
    622. 

  622. 062100               GO TO ADD-WRITE-F3-3-2.                            NC2024.2
    623. 

  623. 062200     GO TO ADD-FAIL-F3-3-2.                                       NC2024.2
    624. 

  624. 062300 ADD-DELETE-F3-3-2.                                               NC2024.2
    625. 

  625. 062400     PERFORM DE-LETE.                                             NC2024.2
    626. 

  626. 062500     GO TO ADD-WRITE-F3-3-2.                                      NC2024.2
    627. 

  627. 062600 ADD-FAIL-F3-3-2.                                                 NC2024.2
    628. 

  628. 062700     MOVE 1 TO CORRECT-A.                                         NC2024.2
    629. 

  629. 062800     MOVE WRK-XN-00001 TO COMPUTED-A.                             NC2024.2
    630. 

  630. 062900     PERFORM FAIL.                                                NC2024.2
    631. 

  631. 063000 ADD-WRITE-F3-3-2.                                                NC2024.2
    632. 

  632. 063100     PERFORM PRINT-DETAIL.                                        NC2024.2
    633. 

  633. 063200*                                                                 NC2024.2
    634. 

  634. 063300 ADD-INIT-F3-4.                                                   NC2024.2
    635. 

  635. 063400     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    636. 

  636. 063500     MOVE "ADD-TEST-F3-4" TO PAR-NAME.                            NC2024.2
    637. 

  637. 063600     MOVE ZERO TO GRP-FOR-ADD-CORR-R.                             NC2024.2
    638. 

  638. 063700     MOVE ZERO TO ADD-CORR-1 OF GRP-FOR-ADD-CORR-A.               NC2024.2
    639. 

  639. 063800 ADD-TEST-F3-4.                                                   NC2024.2
    640. 

  640. 063900     ADD CORRESPONDING GRP-SUBTRACT-CORR-1 OF GRP-SUBTRACT-CORR-3 NC2024.2
    641. 

  641. 064000             TO GRP-SUBTRACT-CORR-1 OF GRP-FOR-ADD-CORR-R.        NC2024.2
    642. 

  642. 064100     IF GRP-FOR-ADD-CORR-R EQUAL TO "00223344000000000000"        NC2024.2
    643. 

  643. 064200                  PERFORM PASS                                    NC2024.2
    644. 

  644. 064300                  GO TO ADD-WRITE-F3-4.                           NC2024.2
    645. 

  645. 064400     GO TO ADD-FAIL-F3-4.                                         NC2024.2
    646. 

  646. 064500 ADD-DELETE-F3-4.                                                 NC2024.2
    647. 

  647. 064600     PERFORM DE-LETE.                                             NC2024.2
    648. 

  648. 064700     GO TO ADD-WRITE-F3-4.                                        NC2024.2
    649. 

  649. 064800 ADD-FAIL-F3-4.                                                   NC2024.2
    650. 

  650. 064900     MOVE "00223344000000000000" TO CORRECT-A.                    NC2024.2
    651. 

  651. 065000     MOVE GRP-FOR-ADD-CORR-R TO COMPUTED-A.                       NC2024.2
    652. 

  652. 065100     PERFORM FAIL.                                                NC2024.2
    653. 

  653. 065200 ADD-WRITE-F3-4.                                                  NC2024.2
    654. 

  654. 065300     PERFORM PRINT-DETAIL.                                        NC2024.2
    655. 

  655. 065400*                                                                 NC2024.2
    656. 

  656. 065500 ADD-INIT-F3-5-1.                                                 NC2024.2
    657. 

  657. 065600     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    658. 

  658. 065700     MOVE "ADD-TEST-F3-5-1" TO PAR-NAME.                          NC2024.2
    659. 

  659. 065800     MOVE     1    TO FIELD1 OF ADD-15.                           NC2024.2
    660. 

  660. 065900     MOVE    32.1  TO FIELD2 OF ADD-15.                           NC2024.2
    661. 

  661. 066000     MOVE   123.4  TO FIELD3 OF ADD-15.                           NC2024.2
    662. 

  662. 066100     MOVE 99999    TO FIELD1 OF ADD-16.                           NC2024.2
    663. 

  663. 066200     MOVE   745.67 TO FIELD2 OF ADD-16.                           NC2024.2
    664. 

  664. 066300     MOVE   432.1  TO FIELD3 OF ADD-16.                           NC2024.2
    665. 

  665. 066400 ADD-TEST-F3-5-1.                                                 NC2024.2
    666. 

  666. 066500     ADD CORRESPONDING ADD-15 TO ADD-16 ON SIZE ERROR             NC2024.2
    667. 

  667. 066600               PERFORM PASS                                       NC2024.2
    668. 

  668. 066700               GO TO ADD-WRITE-F3-5-1.                            NC2024.2
    669. 

  669. 066800     GO TO ADD-FAIL-F3-5-1.                                       NC2024.2
    670. 

  670. 066900 ADD-DELETE-F3-5-1.                                               NC2024.2
    671. 

  671. 067000     PERFORM DE-LETE.                                             NC2024.2
    672. 

  672. 067100     GO TO ADD-WRITE-F3-5-1.                                      NC2024.2
    673. 

  673. 067200 ADD-FAIL-F3-5-1.                                                 NC2024.2
    674. 

  674. 067300     PERFORM FAIL.                                                NC2024.2
    675. 

  675. 067400     MOVE "ON SIZE ERROR NOT EXECUTED" TO RE-MARK.                NC2024.2
    676. 

  676. 067500 ADD-WRITE-F3-5-1.                                                NC2024.2
    677. 

  677. 067600     PERFORM PRINT-DETAIL.                                        NC2024.2
    678. 

  678. 067700*                                                                 NC2024.2
    679. 

  679. 067800 ADD-INIT-F3-5-2.                                                 NC2024.2
    680. 

  680. 067900     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    681. 

  681. 068000     MOVE "ADD-TEST-F3-5-2" TO PAR-NAME.                          NC2024.2
    682. 

  682. 068100 ADD-TEST-F3-5-2.                                                 NC2024.2
    683. 

  683. 068200     IF       FIELD1 OF ADD-16 EQUAL TO 99999                     NC2024.2
    684. 

  684. 068300              PERFORM PASS                                        NC2024.2
    685. 

  685. 068400              GO TO ADD-WRITE-F3-5-2.                             NC2024.2
    686. 

  686. 068500     GO TO ADD-FAIL-F3-5-2.                                       NC2024.2
    687. 

  687. 068600 ADD-DELETE-F3-5-2.                                               NC2024.2
    688. 

  688. 068700     PERFORM DE-LETE.                                             NC2024.2
    689. 

  689. 068800     GO TO ADD-WRITE-F3-5-2.                                      NC2024.2
    690. 

  690. 068900 ADD-FAIL-F3-5-2.                                                 NC2024.2
    691. 

  691. 069000     MOVE FIELD1 OF ADD-16 TO COMPUTED-N.                         NC2024.2
    692. 

  692. 069100     MOVE     99999 TO CORRECT-N.                                 NC2024.2
    693. 

  693. 069200     PERFORM FAIL.                                                NC2024.2
    694. 

  694. 069300 ADD-WRITE-F3-5-2.                                                NC2024.2
    695. 

  695. 069400     PERFORM PRINT-DETAIL.                                        NC2024.2
    696. 

  696. 069500*                                                                 NC2024.2
    697. 

  697. 069600 ADD-INIT-F3-5-3.                                                 NC2024.2
    698. 

  698. 069700     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    699. 

  699. 069800     MOVE "ADD-TEST-F3-5-3" TO PAR-NAME.                          NC2024.2
    700. 

  700. 069900 ADD-TEST-F3-5-3.                                                 NC2024.2
    701. 

  701. 070000     IF FIELD2 OF ADD-16 IS EQUAL TO 777.77                       NC2024.2
    702. 

  702. 070100            PERFORM PASS                                          NC2024.2
    703. 

  703. 070200            GO TO ADD-WRITE-F3-5-3.                               NC2024.2
    704. 

  704. 070300     GO TO ADD-FAIL-F3-5-3.                                       NC2024.2
    705. 

  705. 070400 ADD-DELETE-F3-5-3.                                               NC2024.2
    706. 

  706. 070500     PERFORM DE-LETE.                                             NC2024.2
    707. 

  707. 070600     GO TO ADD-WRITE-F3-5-3.                                      NC2024.2
    708. 

  708. 070700 ADD-FAIL-F3-5-3.                                                 NC2024.2
    709. 

  709. 070800     PERFORM FAIL.                                                NC2024.2
    710. 

  710. 070900     MOVE FIELD2 OF ADD-16 TO COMPUTED-N.                         NC2024.2
    711. 

  711. 071000     MOVE "+777.77" TO CORRECT-A.                                 NC2024.2
    712. 

  712. 071100 ADD-WRITE-F3-5-3.                                                NC2024.2
    713. 

  713. 071200     PERFORM PRINT-DETAIL.                                        NC2024.2
    714. 

  714. 071300*                                                                 NC2024.2
    715. 

  715. 071400 ADD-INIT-F3-5-4.                                                 NC2024.2
    716. 

  716. 071500     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    717. 

  717. 071600     MOVE "ADD-TEST-F3-5-4" TO PAR-NAME.                          NC2024.2
    718. 

  718. 071700 ADD-TEST-F3-5-4.                                                 NC2024.2
    719. 

  719. 071800     IF FIELD3 OF ADD-16 IS EQUAL TO 555.5                        NC2024.2
    720. 

  720. 071900                  PERFORM PASS                                    NC2024.2
    721. 

  721. 072000                  GO TO ADD-WRITE-F3-5-4.                         NC2024.2
    722. 

  722. 072100     GO TO ADD-FAIL-F3-5-4.                                       NC2024.2
    723. 

  723. 072200 ADD-DELETE-F3-5-4.                                               NC2024.2
    724. 

  724. 072300     PERFORM DE-LETE.                                             NC2024.2
    725. 

  725. 072400     GO TO ADD-WRITE-F3-5-4.                                      NC2024.2
    726. 

  726. 072500 ADD-FAIL-F3-5-4.                                                 NC2024.2
    727. 

  727. 072600     PERFORM FAIL.                                                NC2024.2
    728. 

  728. 072700     MOVE FIELD3 OF ADD-16 TO COMPUTED-N.                         NC2024.2
    729. 

  729. 072800     MOVE 555.5 TO CORRECT-N.                                     NC2024.2
    730. 

  730. 072900 ADD-WRITE-F3-5-4.                                                NC2024.2
    731. 

  731. 073000     PERFORM PRINT-DETAIL.                                        NC2024.2
    732. 

  732. 073100*                                                                 NC2024.2
    733. 

  733. 073200 ADD-INIT-F3-6.                                                   NC2024.2
    734. 

  734. 073300     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    735. 

  735. 073400     MOVE "ADD-TEST-F3-6" TO PAR-NAME.                            NC2024.2
    736. 

  736. 073500     MOVE "ADD CORRESPONDING   " TO FEATURE.                      NC2024.2
    737. 

  737. 073600     MOVE 03   TO XYZ-1 OF CORR-DATA-1.                           NC2024.2
    738. 

  738. 073700     MOVE 04   TO XYZ-2 OF CORR-DATA-1                            NC2024.2
    739. 

  739. 073800     MOVE TEN  TO XYZ-3 OF CORR-DATA-1.                           NC2024.2
    740. 

  740. 073900     MOVE ZERO TO XYZ-4 OF CORR-DATA-1.                           NC2024.2
    741. 

  741. 074000     MOVE 01   TO XYZ-5 OF CORR-DATA-1.                           NC2024.2
    742. 

  742. 074100     MOVE 00   TO XYZ-6 OF CORR-DATA-1.                           NC2024.2
    743. 

  743. 074200     MOVE ZEROES TO CORR-DATA-2.                                  NC2024.2
    744. 

  744. 074300 ADD-TEST-F3-6.                                                   NC2024.2
    745. 

  745. 074400     ADD CORRESPONDING CORR-DATA-1 TO CORR-DATA-2.                NC2024.2
    746. 

  746. 074500     IF XYZ-4 OF CORR-DATA-2 EQUAL TO ZERO                        NC2024.2
    747. 

  747. 074600                PERFORM PASS                                      NC2024.2
    748. 

  748. 074700                GO TO ADD-WRITE-F3-6.                             NC2024.2
    749. 

  749. 074800     GO TO ADD-FAIL-F3-6.                                         NC2024.2
    750. 

  750. 074900 ADD-DELETE-F3-6.                                                 NC2024.2
    751. 

  751. 075000     PERFORM DE-LETE.                                             NC2024.2
    752. 

  752. 075100     GO TO ADD-WRITE-F3-6.                                        NC2024.2
    753. 

  753. 075200 ADD-FAIL-F3-6.                                                   NC2024.2
    754. 

  754. 075300     PERFORM FAIL.                                                NC2024.2
    755. 

  755. 075400     MOVE XYZ-4 OF CORR-DATA-2 TO COMPUTED-A.                     NC2024.2
    756. 

  756. 075500     MOVE 00 TO CORRECT-A.                                        NC2024.2
    757. 

  757. 075600 ADD-WRITE-F3-6.                                                  NC2024.2
    758. 

  758. 075700     PERFORM PRINT-DETAIL.                                        NC2024.2
    759. 

  759. 075800*                                                                 NC2024.2
    760. 

  760. 075900 ADD-INIT-F3-7.                                                   NC2024.2
    761. 

  761. 076000     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    762. 

  762. 076100     MOVE 03   TO XYZ-1 OF CORR-DATA-1.                           NC2024.2
    763. 

  763. 076200     MOVE 04   TO XYZ-2 OF CORR-DATA-1                            NC2024.2
    764. 

  764. 076300     MOVE TEN  TO XYZ-3 OF CORR-DATA-1.                           NC2024.2
    765. 

  765. 076400     MOVE ZERO TO XYZ-4 OF CORR-DATA-1.                           NC2024.2
    766. 

  766. 076500     MOVE 01   TO XYZ-5 OF CORR-DATA-1.                           NC2024.2
    767. 

  767. 076600     MOVE 00   TO XYZ-6 OF CORR-DATA-1.                           NC2024.2
    768. 

  768. 076700     MOVE 060820000200 TO CORR-DATA-2.                            NC2024.2
    769. 

  769. 076800 ADD-INIT-F3-7-1.                                                 NC2024.2
    770. 

  770. 076900     MOVE "ADD-TEST-F3-7-1" TO PAR-NAME.                          NC2024.2
    771. 

  771. 077000 ADD-TEST-F3-7-1.                                                 NC2024.2
    772. 

  772. 077100     ADD CORRESPONDING CORR-DATA-1 TO CORR-DATA-2.                NC2024.2
    773. 

  773. 077200     IF XYZ-1 OF CORR-DATA-2 EQUAL TO 09                          NC2024.2
    774. 

  774. 077300                 PERFORM PASS                                     NC2024.2
    775. 

  775. 077400                 GO TO ADD-WRITE-F3-7-1.                          NC2024.2
    776. 

  776. 077500     GO TO ADD-FAIL-F3-7-1.                                       NC2024.2
    777. 

  777. 077600 ADD-DELETE-F3-7-1.                                               NC2024.2
    778. 

  778. 077700     PERFORM DE-LETE.                                             NC2024.2
    779. 

  779. 077800     GO TO ADD-WRITE-F3-7-1.                                      NC2024.2
    780. 

  780. 077900 ADD-FAIL-F3-7-1.                                                 NC2024.2
    781. 

  781. 078000     PERFORM FAIL.                                                NC2024.2
    782. 

  782. 078100     MOVE XYZ-1 OF CORR-DATA-2 TO COMPUTED-A.                     NC2024.2
    783. 

  783. 078200     MOVE "09" TO CORRECT-A.                                      NC2024.2
    784. 

  784. 078300 ADD-WRITE-F3-7-1.                                                NC2024.2
    785. 

  785. 078400     PERFORM PRINT-DETAIL.                                        NC2024.2
    786. 

  786. 078500*                                                                 NC2024.2
    787. 

  787. 078600 ADD-INIT-F3-7-2.                                                 NC2024.2
    788. 

  788. 078700     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    789. 

  789. 078800     MOVE "ADD-TEST-F3-7-2" TO PAR-NAME.                          NC2024.2
    790. 

  790. 078900 ADD-TEST-F3-7-2.                                                 NC2024.2
    791. 

  791. 079000     IF XYZ-2 OF CORR-DATA-2 EQUAL TO 12                          NC2024.2
    792. 

  792. 079100                 PERFORM PASS                                     NC2024.2
    793. 

  793. 079200                 GO TO ADD-WRITE-F3-7-2.                          NC2024.2
    794. 

  794. 079300     GO TO ADD-FAIL-F3-7-2.                                       NC2024.2
    795. 

  795. 079400 ADD-DELETE-F3-7-2.                                               NC2024.2
    796. 

  796. 079500     PERFORM DE-LETE.                                             NC2024.2
    797. 

  797. 079600     GO TO ADD-WRITE-F3-7-2.                                      NC2024.2
    798. 

  798. 079700 ADD-FAIL-F3-7-2.                                                 NC2024.2
    799. 

  799. 079800     PERFORM FAIL.                                                NC2024.2
    800. 

  800. 079900     MOVE XYZ-2 OF CORR-DATA-2 TO COMPUTED-A.                     NC2024.2
    801. 

  801. 080000     MOVE "12" TO CORRECT-A.                                      NC2024.2
    802. 

  802. 080100 ADD-WRITE-F3-7-2.                                                NC2024.2
    803. 

  803. 080200     PERFORM PRINT-DETAIL.                                        NC2024.2
    804. 

  804. 080300*                                                                 NC2024.2
    805. 

  805. 080400 ADD-INIT-F3-7-3.                                                 NC2024.2
    806. 

  806. 080500     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    807. 

  807. 080600     MOVE "ADD-TEST-F3-7-3" TO PAR-NAME.                          NC2024.2
    808. 

  808. 080700 ADD-TEST-F3-7-3.                                                 NC2024.2
    809. 

  809. 080800     IF XYZ-3 OF CORR-DATA-2 EQUAL TO 30                          NC2024.2
    810. 

  810. 080900                 PERFORM PASS                                     NC2024.2
    811. 

  811. 081000                 GO TO ADD-WRITE-F3-7-3.                          NC2024.2
    812. 

  812. 081100     GO TO ADD-FAIL-F3-7-3.                                       NC2024.2
    813. 

  813. 081200 ADD-DELETE-F3-7-3.                                               NC2024.2
    814. 

  814. 081300     PERFORM DE-LETE.                                             NC2024.2
    815. 

  815. 081400     GO TO ADD-WRITE-F3-7-3.                                      NC2024.2
    816. 

  816. 081500 ADD-FAIL-F3-7-3.                                                 NC2024.2
    817. 

  817. 081600     PERFORM FAIL.                                                NC2024.2
    818. 

  818. 081700     MOVE XYZ-3 OF CORR-DATA-2 TO COMPUTED-A.                     NC2024.2
    819. 

  819. 081800     MOVE "30" TO CORRECT-A.                                      NC2024.2
    820. 

  820. 081900 ADD-WRITE-F3-7-3.                                                NC2024.2
    821. 

  821. 082000     PERFORM PRINT-DETAIL.                                        NC2024.2
    822. 

  822. 082100*                                                                 NC2024.2
    823. 

  823. 082200 ADD-INIT-F3-7-4.                                                 NC2024.2
    824. 

  824. 082300     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    825. 

  825. 082400     MOVE "ADD-TEST-F3-7-4" TO PAR-NAME.                          NC2024.2
    826. 

  826. 082500 ADD-TEST-F3-7-4.                                                 NC2024.2
    827. 

  827. 082600     IF XYZ-4 OF CORR-DATA-2 EQUAL TO 00                          NC2024.2
    828. 

  828. 082700                 PERFORM PASS                                     NC2024.2
    829. 

  829. 082800                 GO TO ADD-WRITE-F3-7-4.                          NC2024.2
    830. 

  830. 082900     GO TO ADD-FAIL-F3-7-4.                                       NC2024.2
    831. 

  831. 083000 ADD-DELETE-F3-7-4.                                               NC2024.2
    832. 

  832. 083100     PERFORM DE-LETE.                                             NC2024.2
    833. 

  833. 083200     GO TO ADD-WRITE-F3-7-4.                                      NC2024.2
    834. 

  834. 083300 ADD-FAIL-F3-7-4.                                                 NC2024.2
    835. 

  835. 083400     PERFORM FAIL.                                                NC2024.2
    836. 

  836. 083500     MOVE XYZ-4 OF CORR-DATA-2 TO COMPUTED-A.                     NC2024.2
    837. 

  837. 083600     MOVE "00" TO CORRECT-A.                                      NC2024.2
    838. 

  838. 083700 ADD-WRITE-F3-7-4.                                                NC2024.2
    839. 

  839. 083800     PERFORM PRINT-DETAIL.                                        NC2024.2
    840. 

  840. 083900*                                                                 NC2024.2
    841. 

  841. 084000 ADD-INIT-F3-7-5.                                                 NC2024.2
    842. 

  842. 084100     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    843. 

  843. 084200     MOVE "ADD-TEST-F3-7-5" TO PAR-NAME.                          NC2024.2
    844. 

  844. 084300 ADD-TEST-F3-7-5.                                                 NC2024.2
    845. 

  845. 084400     IF XYZ-5 IN CORR-DATA-2 EQUAL TO 03                          NC2024.2
    846. 

  846. 084500               PERFORM PASS                                       NC2024.2
    847. 

  847. 084600               GO TO ADD-WRITE-F3-7-5.                            NC2024.2
    848. 

  848. 084700     GO TO ADD-FAIL-F3-7-5.                                       NC2024.2
    849. 

  849. 084800 DELETE-F3-7-5.                                                   NC2024.2
    850. 

  850. 084900     PERFORM DE-LETE.                                             NC2024.2
    851. 

  851. 085000     GO TO ADD-WRITE-F3-7-5.                                      NC2024.2
    852. 

  852. 085100 ADD-FAIL-F3-7-5.                                                 NC2024.2
    853. 

  853. 085200     MOVE XYZ-5 OF CORR-DATA-2 TO COMPUTED-A.                     NC2024.2
    854. 

  854. 085300     MOVE "03" TO CORRECT-A.                                      NC2024.2
    855. 

  855. 085400     PERFORM FAIL.                                                NC2024.2
    856. 

  856. 085500 ADD-WRITE-F3-7-5.                                                NC2024.2
    857. 

  857. 085600     PERFORM PRINT-DETAIL.                                        NC2024.2
    858. 

  858. 085700*                                                                 NC2024.2
    859. 

  859. 085800 ADD-INIT-F3-8.                                                   NC2024.2
    860. 

  860. 085900     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    861. 

  861. 086000     MOVE ZERO TO WRK-AN-00001.                                   NC2024.2
    862. 

  862. 086100     MOVE 03   TO XYZ-1 OF CORR-DATA-1.                           NC2024.2
    863. 

  863. 086200     MOVE 04   TO XYZ-2 OF CORR-DATA-1                            NC2024.2
    864. 

  864. 086300     MOVE TEN  TO XYZ-3 OF CORR-DATA-1.                           NC2024.2
    865. 

  865. 086400     MOVE ZERO TO XYZ-4 OF CORR-DATA-1.                           NC2024.2
    866. 

  866. 086500     MOVE 01   TO XYZ-5 OF CORR-DATA-1.                           NC2024.2
    867. 

  867. 086600     MOVE 00   TO XYZ-6 OF CORR-DATA-1.                           NC2024.2
    868. 

  868. 086700     MOVE 999999999999 TO CORR-DATA-2.                            NC2024.2
    869. 

  869. 086800 ADD-INIT-F3-8-1.                                                 NC2024.2
    870. 

  870. 086900     MOVE "ADD-TEST-F3-8-1" TO PAR-NAME.                          NC2024.2
    871. 

  871. 087000 ADD-TEST-F3-8-1.                                                 NC2024.2
    872. 

  872. 087100     ADD CORRESPONDING CORR-DATA-1 TO CORR-DATA-2 ON SIZE ERROR   NC2024.2
    873. 

  873. 087200              MOVE 4 TO WRK-AN-00001.                             NC2024.2
    874. 

  874. 087300     IF WRK-AN-00001 EQUAL TO "4"                                 NC2024.2
    875. 

  875. 087400              PERFORM PASS                                        NC2024.2
    876. 

  876. 087500              GO TO ADD-WRITE-F3-8-1.                             NC2024.2
    877. 

  877. 087600     GO TO ADD-FAIL-F3-8-1.                                       NC2024.2
    878. 

  878. 087700 ADD-DELETE-F3-8-1.                                               NC2024.2
    879. 

  879. 087800     PERFORM DE-LETE.                                             NC2024.2
    880. 

  880. 087900     GO TO ADD-WRITE-F3-8-1.                                      NC2024.2
    881. 

  881. 088000 ADD-FAIL-F3-8-1.                                                 NC2024.2
    882. 

  882. 088100     PERFORM FAIL.                                                NC2024.2
    883. 

  883. 088200     MOVE WRK-AN-00001 TO COMPUTED-A.                             NC2024.2
    884. 

  884. 088300     MOVE "ON SIZE ERROR SHOULD BE EXECUTED" TO RE-MARK.          NC2024.2
    885. 

  885. 088400 ADD-WRITE-F3-8-1.                                                NC2024.2
    886. 

  886. 088500     PERFORM PRINT-DETAIL.                                        NC2024.2
    887. 

  887. 088600*                                                                 NC2024.2
    888. 

  888. 088700 ADD-INIT-F3-8-2.                                                 NC2024.2
    889. 

  889. 088800     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    890. 

  890. 088900     MOVE "ADD-TEST-F3-8-2" TO PAR-NAME.                          NC2024.2
    891. 

  891. 089000 ADD-TEST-F3-8-2.                                                 NC2024.2
    892. 

  892. 089100     IF CORR-DATA-2 EQUAL TO "999999999999"                       NC2024.2
    893. 

  893. 089200                 PERFORM PASS                                     NC2024.2
    894. 

  894. 089300                 GO TO ADD-WRITE-F3-8-2.                          NC2024.2
    895. 

  895. 089400     GO TO ADD-FAIL-F3-8-2.                                       NC2024.2
    896. 

  896. 089500 ADD-DELETE-F3-8-2.                                               NC2024.2
    897. 

  897. 089600     PERFORM DE-LETE.                                             NC2024.2
    898. 

  898. 089700     GO TO ADD-WRITE-F3-8-2.                                      NC2024.2
    899. 

  899. 089800 ADD-FAIL-F3-8-2.                                                 NC2024.2
    900. 

  900. 089900     PERFORM FAIL.                                                NC2024.2
    901. 

  901. 090000     MOVE CORR-DATA-2 TO COMPUTED-A.                              NC2024.2
    902. 

  902. 090100     MOVE "999999999999" TO CORRECT-A.                            NC2024.2
    903. 

  903. 090200     MOVE "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK.            NC2024.2
    904. 

  904. 090300 ADD-WRITE-F3-8-2.                                                NC2024.2
    905. 

  905. 090400     PERFORM PRINT-DETAIL.                                        NC2024.2
    906. 

  906. 090500*                                                                 NC2024.2
    907. 

  907. 090600 ADD-INIT-F3-9-1.                                                 NC2024.2
    908. 

  908. 090700     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    909. 

  909. 090800     MOVE "ADD-TEST-F3-9-1" TO PAR-NAME.                          NC2024.2
    910. 

  910. 090900     MOVE ZEROES TO CORR-DATA-5.                                  NC2024.2
    911. 

  911. 091000     MOVE 222222222222 TO CORR-DATA-1.                            NC2024.2
    912. 

  912. 091100 ADD-TEST-F3-9-1.                                                 NC2024.2
    913. 

  913. 091200     ADD CORRESPONDING CORR-DATA-1 TO CORR-DATA-5.                NC2024.2
    914. 

  914. 091300     IF XYZ-1 OF CORR-DATA-5 EQUAL TO 22                          NC2024.2
    915. 

  915. 091400                PERFORM PASS                                      NC2024.2
    916. 

  916. 091500                GO TO ADD-WRITE-F3-9-1.                           NC2024.2
    917. 

  917. 091600     GO TO ADD-FAIL-F3-9-1.                                       NC2024.2
    918. 

  918. 091700 ADD-DELETE-F3-9-1.                                               NC2024.2
    919. 

  919. 091800     PERFORM DE-LETE.                                             NC2024.2
    920. 

  920. 091900     GO TO ADD-WRITE-F3-9-1.                                      NC2024.2
    921. 

  921. 092000 ADD-FAIL-F3-9-1.                                                 NC2024.2
    922. 

  922. 092100     MOVE XYZ-1 OF CORR-DATA-5 TO COMPUTED-A.                     NC2024.2
    923. 

  923. 092200     MOVE "22" TO CORRECT-A.                                      NC2024.2
    924. 

  924. 092300     PERFORM FAIL.                                                NC2024.2
    925. 

  925. 092400 ADD-WRITE-F3-9-1.                                                NC2024.2
    926. 

  926. 092500     PERFORM PRINT-DETAIL.                                        NC2024.2
    927. 

  927. 092600*                                                                 NC2024.2
    928. 

  928. 092700 ADD-INIT-F3-9-2.                                                 NC2024.2
    929. 

  929. 092800     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    930. 

  930. 092900     MOVE "ADD-TEST-F3-9-2" TO PAR-NAME.                          NC2024.2
    931. 

  931. 093000 ADD-TEST-F3-9-2.                                                 NC2024.2
    932. 

  932. 093100     IF XYZ-13 OF CORR-DATA-5 EQUAL TO 00                         NC2024.2
    933. 

  933. 093200              PERFORM PASS                                        NC2024.2
    934. 

  934. 093300              GO TO ADD-WRITE-F3-9-2.                             NC2024.2
    935. 

  935. 093400     GO TO ADD-FAIL-F3-9-2.                                       NC2024.2
    936. 

  936. 093500 ADD-DELETE-F3-9-2.                                               NC2024.2
    937. 

  937. 093600     PERFORM DE-LETE.                                             NC2024.2
    938. 

  938. 093700     GO TO ADD-WRITE-F3-9-2.                                      NC2024.2
    939. 

  939. 093800 ADD-FAIL-F3-9-2.                                                 NC2024.2
    940. 

  940. 093900     MOVE XYZ-13 OF CORR-DATA-5 TO COMPUTED-A.                    NC2024.2
    941. 

  941. 094000     MOVE "00" TO CORRECT-A.                                      NC2024.2
    942. 

  942. 094100     PERFORM FAIL.                                                NC2024.2
    943. 

  943. 094200 ADD-WRITE-F3-9-2.                                                NC2024.2
    944. 

  944. 094300     PERFORM PRINT-DETAIL.                                        NC2024.2
    945. 

  945. 094400*                                                                 NC2024.2
    946. 

  946. 094500 ADD-INIT-F3-9-3.                                                 NC2024.2
    947. 

  947. 094600     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    948. 

  948. 094700     MOVE "ADD-TEST-F3-9-3" TO PAR-NAME.                          NC2024.2
    949. 

  949. 094800 ADD-TEST-F3-9-3.                                                 NC2024.2
    950. 

  950. 094900     IF XYZ-11 OF CORR-DATA-5 EQUAL TO 00                         NC2024.2
    951. 

  951. 095000                  PERFORM PASS                                    NC2024.2
    952. 

  952. 095100                  GO TO ADD-WRITE-F3-9-3.                         NC2024.2
    953. 

  953. 095200     GO TO ADD-FAIL-F3-9-3.                                       NC2024.2
    954. 

  954. 095300 ADD-DELETE-F3-9-3.                                               NC2024.2
    955. 

  955. 095400     PERFORM DE-LETE.                                             NC2024.2
    956. 

  956. 095500     GO TO ADD-WRITE-F3-9-3.                                      NC2024.2
    957. 

  957. 095600 ADD-FAIL-F3-9-3.                                                 NC2024.2
    958. 

  958. 095700     MOVE XYZ-11 OF CORR-DATA-5 TO COMPUTED-A.                    NC2024.2
    959. 

  959. 095800     MOVE "00" TO CORRECT-A.                                      NC2024.2
    960. 

  960. 095900     PERFORM FAIL.                                                NC2024.2
    961. 

  961. 096000 ADD-WRITE-F3-9-3.                                                NC2024.2
    962. 

  962. 096100     PERFORM PRINT-DETAIL.                                        NC2024.2
    963. 

  963. 096200*                                                                 NC2024.2
    964. 

  964. 096300 ADD-INIT-F3-10.                                                  NC2024.2
    965. 

  965. 096400     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    966. 

  966. 096500     MOVE ZERO  TO           CORR-DATA-5.                         NC2024.2
    967. 

  967. 096600     MOVE 10    TO XYZ-1  OF CORR-DATA-5.                         NC2024.2
    968. 

  968. 096700     MOVE 98    TO XYZ-2  OF CORR-DATA-5.                         NC2024.2
    969. 

  969. 096800     MOVE 01    TO XYZ-11 OF CORR-DATA-5.                         NC2024.2
    970. 

  970. 096900     MOVE 10.45 TO XYZ-1  OF CORR-DATA-7.                         NC2024.2
    971. 

  971. 097000     MOVE  0.9  TO XYZ-2  OF CORR-DATA-7.                         NC2024.2
    972. 

  972. 097100     MOVE ZERO  TO XYZ-11 OF CORR-DATA-7.                         NC2024.2
    973. 

  973. 097200 ADD-INIT-F3-10-1.                                                NC2024.2
    974. 

  974. 097300     MOVE "ADD-TEST-F3-10-1" TO PAR-NAME.                         NC2024.2
    975. 

  975. 097400 ADD-TEST-F3-10-1.                                                NC2024.2
    976. 

  976. 097500     ADD CORRESPONDING CORR-DATA-7 TO CORR-DATA-5.                NC2024.2
    977. 

  977. 097600     IF XYZ-1 IN CORR-DATA-5 EQUAL TO 20                          NC2024.2
    978. 

  978. 097700                 PERFORM PASS                                     NC2024.2
    979. 

  979. 097800                 GO TO ADD-WRITE-F3-10-1.                         NC2024.2
    980. 

  980. 097900     GO TO ADD-FAIL-F3-10-1.                                      NC2024.2
    981. 

  981. 098000 ADD-DELETE-F3-10-1.                                              NC2024.2
    982. 

  982. 098100     PERFORM DE-LETE.                                             NC2024.2
    983. 

  983. 098200     GO TO ADD-WRITE-F3-10-1.                                     NC2024.2
    984. 

  984. 098300 ADD-FAIL-F3-10-1.                                                NC2024.2
    985. 

  985. 098400     PERFORM FAIL.                                                NC2024.2
    986. 

  986. 098500     MOVE XYZ-1 OF CORR-DATA-5 TO COMPUTED-N.                     NC2024.2
    987. 

  987. 098600     MOVE "+20.0000" TO CORRECT-A.                                NC2024.2
    988. 

  988. 098700 ADD-WRITE-F3-10-1.                                               NC2024.2
    989. 

  989. 098800     PERFORM PRINT-DETAIL.                                        NC2024.2
    990. 

  990. 098900*                                                                 NC2024.2
    991. 

  991. 099000 ADD-INIT-F3-10-2.                                                NC2024.2
    992. 

  992. 099100     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    993. 

  993. 099200     MOVE "ADD-TEST-F3-10-2" TO PAR-NAME.                         NC2024.2
    994. 

  994. 099300 ADD-TEST-F3-10-2.                                                NC2024.2
    995. 

  995. 099400     IF XYZ-2 IN CORR-DATA-5 EQUAL TO 98                          NC2024.2
    996. 

  996. 099500                 PERFORM PASS                                     NC2024.2
    997. 

  997. 099600                 GO TO ADD-WRITE-F3-10-2.                         NC2024.2
    998. 

  998. 099700     GO TO ADD-FAIL-F3-10-2.                                      NC2024.2
    999. 

  999. 099800 ADD-DELETE-F3-10-2.                                              NC2024.2
    1000. 

  1000. 099900     PERFORM DE-LETE.                                             NC2024.2
    1001. 

  1001. 100000     GO TO ADD-WRITE-F3-10-2.                                     NC2024.2
    1002. 

  1002. 100100 ADD-FAIL-F3-10-2.                                                NC2024.2
    1003. 

  1003. 100200     PERFORM FAIL.                                                NC2024.2
    1004. 

  1004. 100300     MOVE XYZ-2 OF CORR-DATA-5 TO COMPUTED-N.                     NC2024.2
    1005. 

  1005. 100400     MOVE "98.0000" TO CORRECT-A.                                 NC2024.2
    1006. 

  1006. 100500 ADD-WRITE-F3-10-2.                                               NC2024.2
    1007. 

  1007. 100600     PERFORM PRINT-DETAIL.                                        NC2024.2
    1008. 

  1008. 100700*                                                                 NC2024.2
    1009. 

  1009. 100800 ADD-INIT-F3-10-3.                                                NC2024.2
    1010. 

  1010. 100900     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    1011. 

  1011. 101000     MOVE "ADD-TEST-F3-10-3" TO PAR-NAME.                         NC2024.2
    1012. 

  1012. 101100 ADD-TEST-F3-10-3.                                                NC2024.2
    1013. 

  1013. 101200     IF XYZ-11 OF CORR-DATA-5 EQUAL TO 01                         NC2024.2
    1014. 

  1014. 101300                  PERFORM PASS                                    NC2024.2
    1015. 

  1015. 101400                  GO TO ADD-WRITE-F3-10-3.                        NC2024.2
    1016. 

  1016. 101500     GO TO ADD-FAIL-F3-10-3.                                      NC2024.2
    1017. 

  1017. 101600 ADD-DELETE-F3-10-3.                                              NC2024.2
    1018. 

  1018. 101700     PERFORM DE-LETE.                                             NC2024.2
    1019. 

  1019. 101800     GO TO ADD-WRITE-F3-10-3.                                     NC2024.2
    1020. 

  1020. 101900 ADD-FAIL-F3-10-3.                                                NC2024.2
    1021. 

  1021. 102000     PERFORM FAIL.                                                NC2024.2
    1022. 

  1022. 102100     MOVE XYZ-11 OF CORR-DATA-5 TO COMPUTED-N.                    NC2024.2
    1023. 

  1023. 102200     MOVE "+01.0000" TO CORRECT-A.                                NC2024.2
    1024. 

  1024. 102300 ADD-WRITE-F3-10-3.                                               NC2024.2
    1025. 

  1025. 102400     PERFORM PRINT-DETAIL.                                        NC2024.2
    1026. 

  1026. 102500*                                                                 NC2024.2
    1027. 

  1027. 102600 ADD-INIT-F3-11.                                                  NC2024.2
    1028. 

  1028. 102700     MOVE ZERO  TO           CORR-DATA-5.                         NC2024.2
    1029. 

  1029. 102800     MOVE 10    TO XYZ-1  OF CORR-DATA-5.                         NC2024.2
    1030. 

  1030. 102900     MOVE 98    TO XYZ-2  OF CORR-DATA-5.                         NC2024.2
    1031. 

  1031. 103000     MOVE 01    TO XYZ-11 OF CORR-DATA-5.                         NC2024.2
    1032. 

  1032. 103100     MOVE 10.45 TO XYZ-1  OF CORR-DATA-7.                         NC2024.2
    1033. 

  1033. 103200     MOVE  0.9  TO XYZ-2  OF CORR-DATA-7.                         NC2024.2
    1034. 

  1034. 103300     MOVE ZERO  TO XYZ-11 OF CORR-DATA-7.                         NC2024.2
    1035. 

  1035. 103400 ADD-INIT-F3-11-1.                                                NC2024.2
    1036. 

  1036. 103500     MOVE "ADD-TEST-F3-11-1" TO PAR-NAME.                         NC2024.2
    1037. 

  1037. 103600 ADD-TEST-F3-11-1.                                                NC2024.2
    1038. 

  1038. 103700     ADD CORRESPONDING CORR-DATA-7 TO CORR-DATA-5 ROUNDED.        NC2024.2
    1039. 

  1039. 103800     IF XYZ-1 OF CORR-DATA-5 EQUAL TO 20                          NC2024.2
    1040. 

  1040. 103900                 PERFORM PASS                                     NC2024.2
    1041. 

  1041. 104000                 GO TO ADD-WRITE-F3-11-1.                         NC2024.2
    1042. 

  1042. 104100     GO TO ADD-FAIL-F3-11-1.                                      NC2024.2
    1043. 

  1043. 104200 ADD-DELETE-F3-11-1.                                              NC2024.2
    1044. 

  1044. 104300     PERFORM DE-LETE.                                             NC2024.2
    1045. 

  1045. 104400     GO TO ADD-WRITE-F3-11-1.                                     NC2024.2
    1046. 

  1046. 104500 ADD-FAIL-F3-11-1.                                                NC2024.2
    1047. 

  1047. 104600     PERFORM FAIL.                                                NC2024.2
    1048. 

  1048. 104700     MOVE XYZ-1 OF CORR-DATA-5 TO COMPUTED-N.                     NC2024.2
    1049. 

  1049. 104800     MOVE 20.0000 TO CORRECT-N.                                   NC2024.2
    1050. 

  1050. 104900 ADD-WRITE-F3-11-1.                                               NC2024.2
    1051. 

  1051. 105000     PERFORM PRINT-DETAIL.                                        NC2024.2
    1052. 

  1052. 105100*                                                                 NC2024.2
    1053. 

  1053. 105200 ADD-INIT-F3-11-2.                                                NC2024.2
    1054. 

  1054. 105300     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    1055. 

  1055. 105400     MOVE "ADD-TEST-F3-11-2" TO PAR-NAME.                         NC2024.2
    1056. 

  1056. 105500 ADD-TEST-F3-11-2.                                                NC2024.2
    1057. 

  1057. 105600     IF XYZ-2 OF CORR-DATA-5 EQUAL TO 99                          NC2024.2
    1058. 

  1058. 105700                 PERFORM PASS                                     NC2024.2
    1059. 

  1059. 105800                 GO TO ADD-WRITE-F3-11-2.                         NC2024.2
    1060. 

  1060. 105900     GO TO ADD-FAIL-F3-11-2.                                      NC2024.2
    1061. 

  1061. 106000 ADD-DELETE-F3-11-2.                                              NC2024.2
    1062. 

  1062. 106100     PERFORM DE-LETE.                                             NC2024.2
    1063. 

  1063. 106200     GO TO ADD-WRITE-F3-11-2.                                     NC2024.2
    1064. 

  1064. 106300 ADD-FAIL-F3-11-2.                                                NC2024.2
    1065. 

  1065. 106400     MOVE XYZ-2 OF CORR-DATA-5 TO COMPUTED-N.                     NC2024.2
    1066. 

  1066. 106500     MOVE "+99.0000" TO CORRECT-A.                                NC2024.2
    1067. 

  1067. 106600     PERFORM FAIL.                                                NC2024.2
    1068. 

  1068. 106700 ADD-WRITE-F3-11-2.                                               NC2024.2
    1069. 

  1069. 106800     PERFORM PRINT-DETAIL.                                        NC2024.2
    1070. 

  1070. 106900*                                                                 NC2024.2
    1071. 

  1071. 107000 ADD-INIT-F3-12.                                                  NC2024.2
    1072. 

  1072. 107100     MOVE   "VI-74 6.6.4 GR3" TO ANSI-REFERENCE.                  NC2024.2
    1073. 

  1073. 107200     MOVE "ADD-TEST-F3-12" TO PAR-NAME.                           NC2024.2
    1074. 

  1074. 107300     MOVE ZERO  TO           CORR-DATA-5.                         NC2024.2
    1075. 

  1075. 107400     MOVE 10    TO XYZ-1  OF CORR-DATA-5.                         NC2024.2
    1076. 

  1076. 107500     MOVE 99    TO XYZ-2  OF CORR-DATA-5.                         NC2024.2
    1077. 

  1077. 107600     MOVE 01    TO XYZ-11 OF CORR-DATA-5.                         NC2024.2
    1078. 

  1078. 107700     MOVE 10.45 TO XYZ-1  OF CORR-DATA-7.                         NC2024.2
    1079. 

  1079. 107800     MOVE  0.9  TO XYZ-2  OF CORR-DATA-7.                         NC2024.2
    1080. 

  1080. 107900     MOVE ZERO  TO XYZ-11 OF CORR-DATA-7.                         NC2024.2
    1081. 

  1081. 108000     MOVE SPACE TO WRK-AN-00001.                                  NC2024.2
    1082. 

  1082. 108100 ADD-TEST-F3-12.                                                  NC2024.2
    1083. 

  1083. 108200     ADD CORRESPONDING CORR-DATA-7 TO CORR-DATA-5 ROUNDED         NC2024.2
    1084. 

  1084. 108300       ON SIZE ERROR MOVE "W" TO WRK-AN-00001.                    NC2024.2
    1085. 

  1085. 108400     IF WRK-AN-00001 EQUAL TO "W"                                 NC2024.2
    1086. 

  1086. 108500                  PERFORM PASS                                    NC2024.2
    1087. 

  1087. 108600                  GO TO ADD-WRITE-F3-12.                          NC2024.2
    1088. 

  1088. 108700     GO TO ADD-FAIL-F3-12.                                        NC2024.2
    1089. 

  1089. 108800 ADD-DELETE-F3-12.                                                NC2024.2
    1090. 

  1090. 108900     PERFORM DE-LETE.                                             NC2024.2
    1091. 

  1091. 109000     GO TO ADD-WRITE-F3-12.                                       NC2024.2
    1092. 

  1092. 109100 ADD-FAIL-F3-12.                                                  NC2024.2
    1093. 

  1093. 109200     PERFORM FAIL.                                                NC2024.2
    1094. 

  1094. 109300     MOVE "ON SIZE ERROR SHOULD BE EXECUTED" TO RE-MARK.          NC2024.2
    1095. 

  1095. 109400 ADD-WRITE-F3-12.                                                 NC2024.2
    1096. 

  1096. 109500     PERFORM PRINT-DETAIL.                                        NC2024.2
    1097. 

  1097. 109600*                                                                 NC2024.2
    1098. 

  1098. 109700 ADD-INIT-F3-13.                                                  NC2024.2
    1099. 

  1099. 109800     MOVE "ADD-TEST-F3-13" TO PAR-NAME.                           NC2024.2
    1100. 

  1100. 109900     MOVE   "VI-74 6.6.4" TO ANSI-REFERENCE.                      NC2024.2
    1101. 

  1101. 110000     MOVE  "ADD CORRESPONDING" TO FEATURE.                        NC2024.2
    1102. 

  1102. 110100 BUILD-TABLE1.                                                    NC2024.2
    1103. 

  1103. 110200     MOVE 06 TO RECORD1 OF TABLE1.                                NC2024.2
    1104. 

  1104. 110300     MOVE 01 TO RECORD2 OF TABLE1 (1).                            NC2024.2
    1105. 

  1105. 110400     MOVE 02 TO RECORD2 OF TABLE1 (2).                            NC2024.2
    1106. 

  1106. 110500     MOVE 07 TO RECORD3 OF TABLE1.                                NC2024.2
    1107. 

  1107. 110600 BUILD-TABLE2.                                                    NC2024.2
    1108. 

  1108. 110700     MOVE 08 TO RECORD1 OF TABLE2.                                NC2024.2
    1109. 

  1109. 110800     MOVE 03 TO RECORD2 OF TABLE2 (1).                            NC2024.2
    1110. 

  1110. 110900     MOVE 04 TO RECORD2 OF TABLE2 (2).                            NC2024.2
    1111. 

  1111. 111000     MOVE 09 TO RECORD3 OF TABLE2.                                NC2024.2
    1112. 

  1112. 111100 ADD-TEST-F3-13.                                                  NC2024.2
    1113. 

  1113. 111200     ADD CORRESPONDING TABLE1 TO TABLE2.                          NC2024.2
    1114. 

  1114. 111300     IF RECORD1 OF TABLE2 = 14 AND                                NC2024.2
    1115. 

  1115. 111400        RECORD2 OF TABLE2 (1) = 03 AND                            NC2024.2
    1116. 

  1116. 111500        RECORD2 OF TABLE2 (2) = 04 AND                            NC2024.2
    1117. 

  1117. 111600        RECORD3 OF TABLE2 = 16                                    NC2024.2
    1118. 

  1118. 111700           PERFORM PASS                                           NC2024.2
    1119. 

  1119. 111800           GO TO ADD-WRITE-F3-13.                                 NC2024.2
    1120. 

  1120. 111900     GO TO ADD-FAIL-F3-13.                                        NC2024.2
    1121. 

  1121. 112000 ADD-DELETE-F3-13.                                                NC2024.2
    1122. 

  1122. 112100     PERFORM DE-LETE.                                             NC2024.2
    1123. 

  1123. 112200     GO TO ADD-WRITE-F3-13.                                       NC2024.2
    1124. 

  1124. 112300 ADD-FAIL-F3-13.                                                  NC2024.2
    1125. 

  1125. 112400     PERFORM FAIL.                                                NC2024.2
    1126. 

  1126. 112500     MOVE TABLE2 TO COMPUTED-A.                                   NC2024.2
    1127. 

  1127. 112600     MOVE "14030416" TO CORRECT-A.                                NC2024.2
    1128. 

  1128. 112700 ADD-WRITE-F3-13.                                                 NC2024.2
    1129. 

  1129. 112800     PERFORM PRINT-DETAIL.                                        NC2024.2
    1130. 

  1130. 112900*                                                                 NC2024.2
    1131. 

  1131. 113000 ADD-INIT-F3-14.                                                  NC2024.2
    1132. 

  1132. 113100     MOVE   "VI-73 6.6" TO ANSI-REFERENCE.                        NC2024.2
    1133. 

  1133. 113200*    ===-->  NO SIZE ERROR  <--===                                NC2024.2
    1134. 

  1134. 113300     MOVE    1 TO REC-CT.                                         NC2024.2
    1135. 

  1135. 113400     MOVE    1      TO FIELD1 OF ADD-15.                          NC2024.2
    1136. 

  1136. 113500     MOVE    32.1   TO FIELD2 OF ADD-15.                          NC2024.2
    1137. 

  1137. 113600     MOVE    123.4  TO FIELD3 OF ADD-15.                          NC2024.2
    1138. 

  1138. 113700     MOVE    88888  TO FIELD1 OF ADD-16.                          NC2024.2
    1139. 

  1139. 113800     MOVE    745.67 TO FIELD2 OF ADD-16.                          NC2024.2
    1140. 

  1140. 113900     MOVE    432.1  TO FIELD3 OF ADD-16.                          NC2024.2
    1141. 

  1141. 114000     MOVE   "ADD-TEST-F3-14-0" TO PAR-NAME.                       NC2024.2
    1142. 

  1142. 114100 ADD-TEST-F3-14-1.                                                NC2024.2
    1143. 

  1143. 114200     ADD     CORRESPONDING ADD-15 TO ADD-16                       NC2024.2
    1144. 

  1144. 114300             ON SIZE ERROR                                        NC2024.2
    1145. 

  1145. 114400             GO TO ADD-FAIL-F3-14-1.                              NC2024.2
    1146. 

  1146. 114500     PERFORM PASS.                                                NC2024.2
    1147. 

  1147. 114600     GO TO   ADD-WRITE-F3-14-1.                                   NC2024.2
    1148. 

  1148. 114700 ADD-DELETE-F3-14-1.                                              NC2024.2
    1149. 

  1149. 114800     PERFORM DE-LETE.                                             NC2024.2
    1150. 

  1150. 114900     GO TO ADD-WRITE-F3-14-1.                                     NC2024.2
    1151. 

  1151. 115000 ADD-FAIL-F3-14-1.                                                NC2024.2
    1152. 

  1152. 115100     MOVE   "ON SIZE ERROR SHOULD NOT BE EXECUTED"                NC2024.2
    1153. 

  1153. 115200            TO RE-MARK                                            NC2024.2
    1154. 

  1154. 115300     PERFORM FAIL.                                                NC2024.2
    1155. 

  1155. 115400 ADD-WRITE-F3-14-1.                                               NC2024.2
    1156. 

  1156. 115500     PERFORM PRINT-DETAIL.                                        NC2024.2
    1157. 

  1157. 115600*                                                                 NC2024.2
    1158. 

  1158. 115700 ADD-INIT-F3-14-2.                                                NC2024.2
    1159. 

  1159. 115800     MOVE   "ADD-TEST-F3-14-2" TO PAR-NAME.                       NC2024.2
    1160. 

  1160. 115900     ADD     1 TO REC-CT.                                         NC2024.2
    1161. 

  1161. 116000 ADD-TEST-F3-14-2.                                                NC2024.2
    1162. 

  1162. 116100     IF      FIELD1 OF ADD-16 EQUAL TO 88889                      NC2024.2
    1163. 

  1163. 116200             PERFORM PASS                                         NC2024.2
    1164. 

  1164. 116300             GO TO ADD-WRITE-F3-14-2.                             NC2024.2
    1165. 

  1165. 116400     GO TO ADD-FAIL-F3-14-2.                                      NC2024.2
    1166. 

  1166. 116500 ADD-DELETE-F3-14-2.                                              NC2024.2
    1167. 

  1167. 116600     PERFORM DE-LETE                                              NC2024.2
    1168. 

  1168. 116700     GO TO ADD-WRITE-F3-14-2.                                     NC2024.2
    1169. 

  1169. 116800 ADD-FAIL-F3-14-2.                                                NC2024.2
    1170. 

  1170. 116900     MOVE    FIELD1 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1171. 

  1171. 117000     MOVE    88889 TO CORRECT-N                                   NC2024.2
    1172. 

  1172. 117100     PERFORM FAIL.                                                NC2024.2
    1173. 

  1173. 117200 ADD-WRITE-F3-14-2.                                               NC2024.2
    1174. 

  1174. 117300     PERFORM PRINT-DETAIL.                                        NC2024.2
    1175. 

  1175. 117400*                                                                 NC2024.2
    1176. 

  1176. 117500 ADD-INIT-F3-14-3.                                                NC2024.2
    1177. 

  1177. 117600     MOVE   "ADD-TEST-F3-14-3" TO PAR-NAME.                       NC2024.2
    1178. 

  1178. 117700     ADD     1 TO REC-CT.                                         NC2024.2
    1179. 

  1179. 117800 ADD-TEST-F3-14-3.                                                NC2024.2
    1180. 

  1180. 117900     IF      FIELD2 OF ADD-16 IS EQUAL TO 777.77                  NC2024.2
    1181. 

  1181. 118000             PERFORM PASS                                         NC2024.2
    1182. 

  1182. 118100             GO TO ADD-WRITE-F3-14-3.                             NC2024.2
    1183. 

  1183. 118200     GO TO ADD-FAIL-F3-14-3.                                      NC2024.2
    1184. 

  1184. 118300 ADD-DELETE-F3-14-3.                                              NC2024.2
    1185. 

  1185. 118400     PERFORM DE-LETE.                                             NC2024.2
    1186. 

  1186. 118500     GO TO ADD-WRITE-F3-14-3.                                     NC2024.2
    1187. 

  1187. 118600 ADD-FAIL-F3-14-3.                                                NC2024.2
    1188. 

  1188. 118700     MOVE    FIELD2 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1189. 

  1189. 118800     MOVE   "+777.77" TO CORRECT-A                                NC2024.2
    1190. 

  1190. 118900     PERFORM FAIL.                                                NC2024.2
    1191. 

  1191. 119000 ADD-WRITE-F3-14-3.                                               NC2024.2
    1192. 

  1192. 119100     PERFORM PRINT-DETAIL.                                        NC2024.2
    1193. 

  1193. 119200*                                                                 NC2024.2
    1194. 

  1194. 119300 ADD-INIT-F3-14-4.                                                NC2024.2
    1195. 

  1195. 119400     MOVE   "ADD-TEST-F3-14-4" TO PAR-NAME.                       NC2024.2
    1196. 

  1196. 119500     ADD     1 TO REC-CT.                                         NC2024.2
    1197. 

  1197. 119600 ADD-TEST-F3-14-4.                                                NC2024.2
    1198. 

  1198. 119700     IF      FIELD3 OF ADD-16 IS EQUAL TO 555.5                   NC2024.2
    1199. 

  1199. 119800             PERFORM PASS                                         NC2024.2
    1200. 

  1200. 119900             GO TO ADD-WRITE-F3-14-4.                             NC2024.2
    1201. 

  1201. 120000     GO TO ADD-FAIL-F3-14-4.                                      NC2024.2
    1202. 

  1202. 120100 ADD-DELETE-F3-14-4.                                              NC2024.2
    1203. 

  1203. 120200     PERFORM DE-LETE.                                             NC2024.2
    1204. 

  1204. 120300     GO TO ADD-WRITE-F3-14-4.                                     NC2024.2
    1205. 

  1205. 120400 ADD-FAIL-F3-14-4.                                                NC2024.2
    1206. 

  1206. 120500     MOVE FIELD3 OF ADD-16 TO COMPUTED-N                          NC2024.2
    1207. 

  1207. 120600     MOVE 555.5 TO CORRECT-N                                      NC2024.2
    1208. 

  1208. 120700     PERFORM FAIL.                                                NC2024.2
    1209. 

  1209. 120800 ADD-WRITE-F3-14-4.                                               NC2024.2
    1210. 

  1210. 120900     PERFORM PRINT-DETAIL.                                        NC2024.2
    1211. 

  1211. 121000*                                                                 NC2024.2
    1212. 

  1212. 121100 ADD-INIT-F3-15.                                                  NC2024.2
    1213. 

  1213. 121200*    ===-->  NEW SIZE ERROR TESTS  <--===                         NC2024.2
    1214. 

  1214. 121300*    ===-->      SIZE ERROR        <--===                         NC2024.2
    1215. 

  1215. 121400     MOVE   "VI-73 6.6" TO ANSI-REFERENCE.                        NC2024.2
    1216. 

  1216. 121500     MOVE    0 TO REC-CT.                                         NC2024.2
    1217. 

  1217. 121600     MOVE    1      TO FIELD1 OF ADD-15.                          NC2024.2
    1218. 

  1218. 121700     MOVE    32.1   TO FIELD2 OF ADD-15.                          NC2024.2
    1219. 

  1219. 121800     MOVE    123.4  TO FIELD3 OF ADD-15.                          NC2024.2
    1220. 

  1220. 121900     MOVE    99999  TO FIELD1 OF ADD-16.                          NC2024.2
    1221. 

  1221. 122000     MOVE    745.67 TO FIELD2 OF ADD-16.                          NC2024.2
    1222. 

  1222. 122100     MOVE    432.1  TO FIELD3 OF ADD-16.                          NC2024.2
    1223. 

  1223. 122200*                                                                 NC2024.2
    1224. 

  1224. 122300 ADD-INIT-F3-15-1.                                                NC2024.2
    1225. 

  1225. 122400     MOVE   "ADD-TEST-F3-15-1" TO PAR-NAME.                       NC2024.2
    1226. 

  1226. 122500     ADD     1 TO REC-CT.                                         NC2024.2
    1227. 

  1227. 122600 ADD-TEST-F3-15-1.                                                NC2024.2
    1228. 

  1228. 122700     ADD     CORRESPONDING ADD-15 TO ADD-16                       NC2024.2
    1229. 

  1229. 122800         NOT ON SIZE ERROR                                        NC2024.2
    1230. 

  1230. 122900             GO TO ADD-FAIL-F3-15-1.                              NC2024.2
    1231. 

  1231. 123000     PERFORM PASS.                                                NC2024.2
    1232. 

  1232. 123100     GO TO ADD-WRITE-F3-15-1.                                     NC2024.2
    1233. 

  1233. 123200 ADD-DELETE-F3-15-1.                                              NC2024.2
    1234. 

  1234. 123300     PERFORM DE-LETE.                                             NC2024.2
    1235. 

  1235. 123400     GO TO   ADD-WRITE-F3-15-1.                                   NC2024.2
    1236. 

  1236. 123500 ADD-FAIL-F3-15-1.                                                NC2024.2
    1237. 

  1237. 123600     MOVE   "NOT ON SIZE ERROR SHOULD NOT BE EXECUTED"            NC2024.2
    1238. 

  1238. 123700     TO RE-MARK                                                   NC2024.2
    1239. 

  1239. 123800     PERFORM FAIL.                                                NC2024.2
    1240. 

  1240. 123900 ADD-WRITE-F3-15-1.                                               NC2024.2
    1241. 

  1241. 124000     PERFORM PRINT-DETAIL.                                        NC2024.2
    1242. 

  1242. 124100*                                                                 NC2024.2
    1243. 

  1243. 124200 ADD-INIT-F3-15-2.                                                NC2024.2
    1244. 

  1244. 124300     MOVE   "ADD-TEST-F3-15-2" TO PAR-NAME.                       NC2024.2
    1245. 

  1245. 124400     ADD     1 TO REC-CT.                                         NC2024.2
    1246. 

  1246. 124500 ADD-TEST-F3-15-2.                                                NC2024.2
    1247. 

  1247. 124600     IF      FIELD1 OF ADD-16 EQUAL TO 99999                      NC2024.2
    1248. 

  1248. 124700             PERFORM PASS                                         NC2024.2
    1249. 

  1249. 124800             GO TO ADD-WRITE-F3-15-2.                             NC2024.2
    1250. 

  1250. 124900     GO TO ADD-FAIL-F3-15-2.                                      NC2024.2
    1251. 

  1251. 125000 ADD-DELETE-F3-15-2.                                              NC2024.2
    1252. 

  1252. 125100     PERFORM DE-LETE.                                             NC2024.2
    1253. 

  1253. 125200     GO TO ADD-WRITE-F3-15-2.                                     NC2024.2
    1254. 

  1254. 125300 ADD-FAIL-F3-15-2.                                                NC2024.2
    1255. 

  1255. 125400     MOVE    FIELD1 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1256. 

  1256. 125500     MOVE    99999 TO CORRECT-N                                   NC2024.2
    1257. 

  1257. 125600     PERFORM FAIL.                                                NC2024.2
    1258. 

  1258. 125700 ADD-WRITE-F3-15-2.                                               NC2024.2
    1259. 

  1259. 125800     PERFORM PRINT-DETAIL.                                        NC2024.2
    1260. 

  1260. 125900*                                                                 NC2024.2
    1261. 

  1261. 126000 ADD-INIT-F3-15-3.                                                NC2024.2
    1262. 

  1262. 126100     MOVE   "ADD-TEST-F3-15-3" TO PAR-NAME.                       NC2024.2
    1263. 

  1263. 126200     ADD     1 TO REC-CT.                                         NC2024.2
    1264. 

  1264. 126300 ADD-TEST-F3-15-3.                                                NC2024.2
    1265. 

  1265. 126400     IF      FIELD2 OF ADD-16 IS EQUAL TO 777.77                  NC2024.2
    1266. 

  1266. 126500             PERFORM PASS                                         NC2024.2
    1267. 

  1267. 126600             GO TO ADD-WRITE-F3-15-3.                             NC2024.2
    1268. 

  1268. 126700     GO TO ADD-FAIL-F3-15-3.                                      NC2024.2
    1269. 

  1269. 126800 ADD-DELETE-F3-15-3.                                              NC2024.2
    1270. 

  1270. 126900     PERFORM DE-LETE.                                             NC2024.2
    1271. 

  1271. 127000     GO TO ADD-WRITE-F3-15-3.                                     NC2024.2
    1272. 

  1272. 127100 ADD-FAIL-F3-15-3.                                                NC2024.2
    1273. 

  1273. 127200     MOVE    FIELD2 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1274. 

  1274. 127300     MOVE   "+777.77" TO CORRECT-A                                NC2024.2
    1275. 

  1275. 127400     PERFORM FAIL.                                                NC2024.2
    1276. 

  1276. 127500 ADD-WRITE-F3-15-3.                                               NC2024.2
    1277. 

  1277. 127600     PERFORM PRINT-DETAIL.                                        NC2024.2
    1278. 

  1278. 127700*                                                                 NC2024.2
    1279. 

  1279. 127800 ADD-INIT-F3-15-4.                                                NC2024.2
    1280. 

  1280. 127900     MOVE   "ADD-TEST-F3-15-4" TO PAR-NAME.                       NC2024.2
    1281. 

  1281. 128000     ADD     1 TO REC-CT.                                         NC2024.2
    1282. 

  1282. 128100 ADD-TEST-F3-15-4.                                                NC2024.2
    1283. 

  1283. 128200     IF      FIELD3 OF ADD-16 IS EQUAL TO 555.5                   NC2024.2
    1284. 

  1284. 128300             PERFORM PASS                                         NC2024.2
    1285. 

  1285. 128400             GO TO ADD-WRITE-F3-15-4.                             NC2024.2
    1286. 

  1286. 128500     GO TO ADD-FAIL-F3-15-4.                                      NC2024.2
    1287. 

  1287. 128600 ADD-DELETE-F3-15-4.                                              NC2024.2
    1288. 

  1288. 128700     PERFORM DE-LETE.                                             NC2024.2
    1289. 

  1289. 128800     GO TO ADD-WRITE-F3-15-4.                                     NC2024.2
    1290. 

  1290. 128900 ADD-FAIL-F3-15-4.                                                NC2024.2
    1291. 

  1291. 129000     MOVE FIELD3 OF ADD-16 TO COMPUTED-N                          NC2024.2
    1292. 

  1292. 129100     MOVE 555.5 TO CORRECT-N                                      NC2024.2
    1293. 

  1293. 129200     PERFORM FAIL.                                                NC2024.2
    1294. 

  1294. 129300 ADD-WRITE-F3-15-4.                                               NC2024.2
    1295. 

  1295. 129400             PERFORM PRINT-DETAIL.                                NC2024.2
    1296. 

  1296. 129500*                                                                 NC2024.2
    1297. 

  1297. 129600 ADD-INIT-F3-16.                                                  NC2024.2
    1298. 

  1298. 129700*    ===-->  NEW SIZE ERROR TESTS  <--===                         NC2024.2
    1299. 

  1299. 129800*    ===-->   NO SIZE ERROR        <--===                         NC2024.2
    1300. 

  1300. 129900     MOVE   "VI-73 6.6" TO ANSI-REFERENCE.                        NC2024.2
    1301. 

  1301. 130000     MOVE    1 TO REC-CT.                                         NC2024.2
    1302. 

  1302. 130100     MOVE    1      TO FIELD1 OF ADD-15.                          NC2024.2
    1303. 

  1303. 130200     MOVE    32.1   TO FIELD2 OF ADD-15.                          NC2024.2
    1304. 

  1304. 130300     MOVE    123.4  TO FIELD3 OF ADD-15.                          NC2024.2
    1305. 

  1305. 130400     MOVE    88888  TO FIELD1 OF ADD-16.                          NC2024.2
    1306. 

  1306. 130500     MOVE    745.67 TO FIELD2 OF ADD-16.                          NC2024.2
    1307. 

  1307. 130600     MOVE    432.1  TO FIELD3 OF ADD-16.                          NC2024.2
    1308. 

  1308. 130700 ADD-INIT-F3-16-1.                                                NC2024.2
    1309. 

  1309. 130800     MOVE   "ADD-TEST-F3-16-1" TO PAR-NAME.                       NC2024.2
    1310. 

  1310. 130900 ADD-TEST-F3-16-1.                                                NC2024.2
    1311. 

  1311. 131000     ADD     CORRESPONDING ADD-15 TO ADD-16                       NC2024.2
    1312. 

  1312. 131100         NOT ON SIZE ERROR                                        NC2024.2
    1313. 

  1313. 131200             PERFORM PASS                                         NC2024.2
    1314. 

  1314. 131300             GO TO ADD-WRITE-F3-16-1.                             NC2024.2
    1315. 

  1315. 131400     GO TO   ADD-FAIL-F3-16-1.                                    NC2024.2
    1316. 

  1316. 131500 ADD-DELETE-F3-16-1.                                              NC2024.2
    1317. 

  1317. 131600     PERFORM DE-LETE.                                             NC2024.2
    1318. 

  1318. 131700     GO TO ADD-WRITE-F3-16-1.                                     NC2024.2
    1319. 

  1319. 131800 ADD-FAIL-F3-16-1.                                                NC2024.2
    1320. 

  1320. 131900     MOVE   "NOT ON SIZE ERROR SHOULD BE EXECUTED" TO RE-MARK.    NC2024.2
    1321. 

  1321. 132000     PERFORM FAIL.                                                NC2024.2
    1322. 

  1322. 132100 ADD-WRITE-F3-16-1.                                               NC2024.2
    1323. 

  1323. 132200     PERFORM PRINT-DETAIL.                                        NC2024.2
    1324. 

  1324. 132300*                                                                 NC2024.2
    1325. 

  1325. 132400 ADD-INIT-F3-16-2.                                                NC2024.2
    1326. 

  1326. 132500     MOVE   "ADD-TEST-F3-16-2" TO PAR-NAME.                       NC2024.2
    1327. 

  1327. 132600     ADD     1 TO REC-CT.                                         NC2024.2
    1328. 

  1328. 132700 ADD-TEST-F3-16-2.                                                NC2024.2
    1329. 

  1329. 132800     IF      FIELD1 OF ADD-16 EQUAL TO 88889                      NC2024.2
    1330. 

  1330. 132900             PERFORM PASS                                         NC2024.2
    1331. 

  1331. 133000             GO TO ADD-WRITE-F3-16-2.                             NC2024.2
    1332. 

  1332. 133100     GO TO ADD-FAIL-F3-16-2.                                      NC2024.2
    1333. 

  1333. 133200 ADD-DELETE-F3-16-2.                                              NC2024.2
    1334. 

  1334. 133300     PERFORM DE-LETE.                                             NC2024.2
    1335. 

  1335. 133400     GO TO ADD-WRITE-F3-16-2.                                     NC2024.2
    1336. 

  1336. 133500 ADD-FAIL-F3-16-2.                                                NC2024.2
    1337. 

  1337. 133600     MOVE    FIELD1 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1338. 

  1338. 133700     MOVE    88889 TO CORRECT-N                                   NC2024.2
    1339. 

  1339. 133800     PERFORM FAIL.                                                NC2024.2
    1340. 

  1340. 133900 ADD-WRITE-F3-16-2.                                               NC2024.2
    1341. 

  1341. 134000             PERFORM PRINT-DETAIL.                                NC2024.2
    1342. 

  1342. 134100*                                                                 NC2024.2
    1343. 

  1343. 134200 ADD-INIT-F3-16-3.                                                NC2024.2
    1344. 

  1344. 134300     MOVE   "ADD-TEST-F3-16-3" TO PAR-NAME.                       NC2024.2
    1345. 

  1345. 134400     ADD     1 TO REC-CT.                                         NC2024.2
    1346. 

  1346. 134500 ADD-TEST-F3-16-3.                                                NC2024.2
    1347. 

  1347. 134600     IF      FIELD2 OF ADD-16 IS EQUAL TO 777.77                  NC2024.2
    1348. 

  1348. 134700             PERFORM PASS                                         NC2024.2
    1349. 

  1349. 134800             GO TO ADD-WRITE-F3-16-3.                             NC2024.2
    1350. 

  1350. 134900     GO TO ADD-FAIL-F3-16-3.                                      NC2024.2
    1351. 

  1351. 135000 ADD-DELETE-F3-16-3.                                              NC2024.2
    1352. 

  1352. 135100     PERFORM DE-LETE.                                             NC2024.2
    1353. 

  1353. 135200     GO TO ADD-WRITE-F3-16-3.                                     NC2024.2
    1354. 

  1354. 135300 ADD-FAIL-F3-16-3.                                                NC2024.2
    1355. 

  1355. 135400     MOVE    FIELD2 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1356. 

  1356. 135500     MOVE   "+777.77" TO CORRECT-A                                NC2024.2
    1357. 

  1357. 135600     PERFORM FAIL.                                                NC2024.2
    1358. 

  1358. 135700 ADD-WRITE-F3-16-3.                                               NC2024.2
    1359. 

  1359. 135800             PERFORM PRINT-DETAIL.                                NC2024.2
    1360. 

  1360. 135900*                                                                 NC2024.2
    1361. 

  1361. 136000 ADD-INIT-F3-16-4.                                                NC2024.2
    1362. 

  1362. 136100     MOVE   "ADD-TEST-F3-16-4" TO PAR-NAME.                       NC2024.2
    1363. 

  1363. 136200     ADD     1 TO REC-CT.                                         NC2024.2
    1364. 

  1364. 136300 ADD-TEST-F3-16-4.                                                NC2024.2
    1365. 

  1365. 136400     IF      FIELD3 OF ADD-16 IS EQUAL TO 555.5                   NC2024.2
    1366. 

  1366. 136500             PERFORM PASS                                         NC2024.2
    1367. 

  1367. 136600             GO TO ADD-WRITE-F3-16-4.                             NC2024.2
    1368. 

  1368. 136700     GO TO ADD-FAIL-F3-16-4.                                      NC2024.2
    1369. 

  1369. 136800 ADD-DELETE-F3-16-4.                                              NC2024.2
    1370. 

  1370. 136900     PERFORM DE-LETE.                                             NC2024.2
    1371. 

  1371. 137000     GO TO ADD-WRITE-F3-16-4.                                     NC2024.2
    1372. 

  1372. 137100 ADD-FAIL-F3-16-4.                                                NC2024.2
    1373. 

  1373. 137200     MOVE FIELD3 OF ADD-16 TO COMPUTED-N                          NC2024.2
    1374. 

  1374. 137300     MOVE 555.5 TO CORRECT-N                                      NC2024.2
    1375. 

  1375. 137400     PERFORM FAIL.                                                NC2024.2
    1376. 

  1376. 137500 ADD-WRITE-F3-16-4.                                               NC2024.2
    1377. 

  1377. 137600     PERFORM PRINT-DETAIL.                                        NC2024.2
    1378. 

  1378. 137700*                                                                 NC2024.2
    1379. 

  1379. 137800 ADD-INIT-F3-17.                                                  NC2024.2
    1380. 

  1380. 137900*    ===-->  NEW SIZE ERROR TESTS  <--===                         NC2024.2
    1381. 

  1381. 138000*    ===-->      SIZE ERROR        <--===                         NC2024.2
    1382. 

  1382. 138100     MOVE   "VI-73 6.6" TO ANSI-REFERENCE.                        NC2024.2
    1383. 

  1383. 138200     MOVE    1 TO REC-CT.                                         NC2024.2
    1384. 

  1384. 138300     MOVE    1      TO FIELD1 OF ADD-15.                          NC2024.2
    1385. 

  1385. 138400     MOVE    32.1   TO FIELD2 OF ADD-15.                          NC2024.2
    1386. 

  1386. 138500     MOVE    123.4  TO FIELD3 OF ADD-15.                          NC2024.2
    1387. 

  1387. 138600     MOVE    99999  TO FIELD1 OF ADD-16.                          NC2024.2
    1388. 

  1388. 138700     MOVE    745.67 TO FIELD2 OF ADD-16.                          NC2024.2
    1389. 

  1389. 138800     MOVE    432.1  TO FIELD3 OF ADD-16.                          NC2024.2
    1390. 

  1390. 138900 ADD-INIT-F3-17-1.                                                NC2024.2
    1391. 

  1391. 139000     MOVE   "ADD-TEST-F3-17-1" TO PAR-NAME.                       NC2024.2
    1392. 

  1392. 139100 ADD-TEST-F3-17-1.                                                NC2024.2
    1393. 

  1393. 139200     ADD     CORRESPONDING ADD-15 TO ADD-16                       NC2024.2
    1394. 

  1394. 139300             ON SIZE ERROR                                        NC2024.2
    1395. 

  1395. 139400             PERFORM PASS                                         NC2024.2
    1396. 

  1396. 139500             GO TO ADD-WRITE-F3-17-1                              NC2024.2
    1397. 

  1397. 139600         NOT ON SIZE ERROR                                        NC2024.2
    1398. 

  1398. 139700             GO TO ADD-FAIL-F3-17-1.                              NC2024.2
    1399. 

  1399. 139800 ADD-DELETE-F3-17.                                                NC2024.2
    1400. 

  1400. 139900     PERFORM DE-LETE.                                             NC2024.2
    1401. 

  1401. 140000     GO TO   ADD-WRITE-F3-17-1.                                   NC2024.2
    1402. 

  1402. 140100 ADD-FAIL-F3-17-1.                                                NC2024.2
    1403. 

  1403. 140200     MOVE   "ON SIZE ERROR SHOULD BE EXECUTED"                    NC2024.2
    1404. 

  1404. 140300          TO RE-MARK                                              NC2024.2
    1405. 

  1405. 140400     PERFORM FAIL.                                                NC2024.2
    1406. 

  1406. 140500 ADD-WRITE-F3-17-1.                                               NC2024.2
    1407. 

  1407. 140600     PERFORM PRINT-DETAIL.                                        NC2024.2
    1408. 

  1408. 140700*                                                                 NC2024.2
    1409. 

  1409. 140800 ADD-INIT-F3-17-2.                                                NC2024.2
    1410. 

  1410. 140900     MOVE   "ADD-TEST-F3-17-2" TO PAR-NAME.                       NC2024.2
    1411. 

  1411. 141000     ADD     1 TO REC-CT.                                         NC2024.2
    1412. 

  1412. 141100 ADD-TEST-F3-17-2.                                                NC2024.2
    1413. 

  1413. 141200     IF      FIELD1 OF ADD-16 EQUAL TO 99999                      NC2024.2
    1414. 

  1414. 141300             PERFORM PASS                                         NC2024.2
    1415. 

  1415. 141400             GO TO ADD-WRITE-F3-17-2.                             NC2024.2
    1416. 

  1416. 141500     GO TO ADD-FAIL-F3-17-2.                                      NC2024.2
    1417. 

  1417. 141600 ADD-DELETE-F3-17-2.                                              NC2024.2
    1418. 

  1418. 141700     PERFORM DE-LETE.                                             NC2024.2
    1419. 

  1419. 141800     GO TO ADD-WRITE-F3-17-2.                                     NC2024.2
    1420. 

  1420. 141900 ADD-FAIL-F3-17-2.                                                NC2024.2
    1421. 

  1421. 142000     MOVE    FIELD1 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1422. 

  1422. 142100     MOVE    99999 TO CORRECT-N                                   NC2024.2
    1423. 

  1423. 142200     PERFORM FAIL.                                                NC2024.2
    1424. 

  1424. 142300 ADD-WRITE-F3-17-2.                                               NC2024.2
    1425. 

  1425. 142400     PERFORM PRINT-DETAIL.                                        NC2024.2
    1426. 

  1426. 142500*                                                                 NC2024.2
    1427. 

  1427. 142600 ADD-INIT-F3-17-3.                                                NC2024.2
    1428. 

  1428. 142700     MOVE   "ADD-TEST-F3-17-3" TO PAR-NAME.                       NC2024.2
    1429. 

  1429. 142800     ADD     1 TO REC-CT.                                         NC2024.2
    1430. 

  1430. 142900 ADD-TEST-F3-17-3.                                                NC2024.2
    1431. 

  1431. 143000     IF      FIELD2 OF ADD-16 IS EQUAL TO 777.77                  NC2024.2
    1432. 

  1432. 143100             PERFORM PASS                                         NC2024.2
    1433. 

  1433. 143200             GO TO ADD-WRITE-F3-17-3.                             NC2024.2
    1434. 

  1434. 143300     GO TO ADD-FAIL-F3-17-3.                                      NC2024.2
    1435. 

  1435. 143400 ADD-DELETE-F3-17-3.                                              NC2024.2
    1436. 

  1436. 143500     PERFORM DE-LETE.                                             NC2024.2
    1437. 

  1437. 143600     GO TO ADD-WRITE-F3-17-3.                                     NC2024.2
    1438. 

  1438. 143700 ADD-FAIL-F3-17-3.                                                NC2024.2
    1439. 

  1439. 143800     MOVE    FIELD2 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1440. 

  1440. 143900     MOVE   "+777.77" TO CORRECT-A                                NC2024.2
    1441. 

  1441. 144000     PERFORM FAIL.                                                NC2024.2
    1442. 

  1442. 144100 ADD-WRITE-F3-17-3.                                               NC2024.2
    1443. 

  1443. 144200     PERFORM PRINT-DETAIL.                                        NC2024.2
    1444. 

  1444. 144300*                                                                 NC2024.2
    1445. 

  1445. 144400 ADD-INIT-F3-17-4.                                                NC2024.2
    1446. 

  1446. 144500     MOVE   "ADD-TEST-F3-17-4" TO PAR-NAME.                       NC2024.2
    1447. 

  1447. 144600     ADD     1 TO REC-CT.                                         NC2024.2
    1448. 

  1448. 144700 ADD-TEST-F3-17-4.                                                NC2024.2
    1449. 

  1449. 144800     IF      FIELD3 OF ADD-16 IS EQUAL TO 555.5                   NC2024.2
    1450. 

  1450. 144900             PERFORM PASS                                         NC2024.2
    1451. 

  1451. 145000             GO TO ADD-WRITE-F3-17-4.                             NC2024.2
    1452. 

  1452. 145100     GO TO ADD-FAIL-F3-17-4.                                      NC2024.2
    1453. 

  1453. 145200 ADD-DELETE-F3-17-4.                                              NC2024.2
    1454. 

  1454. 145300     PERFORM DE-LETE.                                             NC2024.2
    1455. 

  1455. 145400     GO TO ADD-WRITE-F3-17-4.                                     NC2024.2
    1456. 

  1456. 145500 ADD-FAIL-F3-17-4.                                                NC2024.2
    1457. 

  1457. 145600     MOVE FIELD3 OF ADD-16 TO COMPUTED-N                          NC2024.2
    1458. 

  1458. 145700     MOVE 555.5 TO CORRECT-N                                      NC2024.2
    1459. 

  1459. 145800     PERFORM FAIL.                                                NC2024.2
    1460. 

  1460. 145900 ADD-WRITE-F3-17-4.                                               NC2024.2
    1461. 

  1461. 146000     PERFORM PRINT-DETAIL.                                        NC2024.2
    1462. 

  1462. 146100*                                                                 NC2024.2
    1463. 

  1463. 146200 ADD-INIT-F3-18.                                                  NC2024.2
    1464. 

  1464. 146300*    ===-->  NEW SIZE ERROR TESTS  <--===                         NC2024.2
    1465. 

  1465. 146400*    ===-->   NO SIZE ERROR        <--===                         NC2024.2
    1466. 

  1466. 146500     MOVE   "VI-73 6.6" TO ANSI-REFERENCE.                        NC2024.2
    1467. 

  1467. 146600     MOVE    1 TO REC-CT.                                         NC2024.2
    1468. 

  1468. 146700     MOVE    1      TO FIELD1 OF ADD-15.                          NC2024.2
    1469. 

  1469. 146800     MOVE    32.1   TO FIELD2 OF ADD-15.                          NC2024.2
    1470. 

  1470. 146900     MOVE    123.4  TO FIELD3 OF ADD-15.                          NC2024.2
    1471. 

  1471. 147000     MOVE    88888  TO FIELD1 OF ADD-16.                          NC2024.2
    1472. 

  1472. 147100     MOVE    745.67 TO FIELD2 OF ADD-16.                          NC2024.2
    1473. 

  1473. 147200     MOVE    432.1  TO FIELD3 OF ADD-16.                          NC2024.2
    1474. 

  1474. 147300 ADD-INIT-F3-18-1.                                                NC2024.2
    1475. 

  1475. 147400     MOVE   "ADD-TEST-F3-18-1" TO PAR-NAME.                       NC2024.2
    1476. 

  1476. 147500 ADD-TEST-F3-18-1.                                                NC2024.2
    1477. 

  1477. 147600     ADD     CORRESPONDING ADD-15 TO ADD-16                       NC2024.2
    1478. 

  1478. 147700             ON SIZE ERROR                                        NC2024.2
    1479. 

  1479. 147800             GO TO ADD-FAIL-F3-18-1                               NC2024.2
    1480. 

  1480. 147900         NOT ON SIZE ERROR                                        NC2024.2
    1481. 

  1481. 148000             PERFORM PASS                                         NC2024.2
    1482. 

  1482. 148100             GO TO ADD-WRITE-F3-18-1.                             NC2024.2
    1483. 

  1483. 148200 ADD-DELETE-F3-18-1.                                              NC2024.2
    1484. 

  1484. 148300     PERFORM DE-LETE.                                             NC2024.2
    1485. 

  1485. 148400     GO TO ADD-WRITE-F3-18-1.                                     NC2024.2
    1486. 

  1486. 148500 ADD-FAIL-F3-18-1.                                                NC2024.2
    1487. 

  1487. 148600     MOVE   "ON SIZE ERROR SHOULD NOT BE EXECUTED"                NC2024.2
    1488. 

  1488. 148700         TO RE-MARK                                               NC2024.2
    1489. 

  1489. 148800     PERFORM FAIL.                                                NC2024.2
    1490. 

  1490. 148900 ADD-WRITE-F3-18-1.                                               NC2024.2
    1491. 

  1491. 149000             PERFORM PRINT-DETAIL.                                NC2024.2
    1492. 

  1492. 149100*                                                                 NC2024.2
    1493. 

  1493. 149200 ADD-INIT-F3-18-2.                                                NC2024.2
    1494. 

  1494. 149300     MOVE   "ADD-TEST-F3-18-2" TO PAR-NAME.                       NC2024.2
    1495. 

  1495. 149400     ADD     1 TO REC-CT.                                         NC2024.2
    1496. 

  1496. 149500 ADD-TEST-F3-18-2.                                                NC2024.2
    1497. 

  1497. 149600     IF      FIELD1 OF ADD-16 EQUAL TO 88889                      NC2024.2
    1498. 

  1498. 149700             PERFORM PASS                                         NC2024.2
    1499. 

  1499. 149800             GO TO ADD-WRITE-F3-18-2.                             NC2024.2
    1500. 

  1500. 149900     GO TO ADD-FAIL-F3-18-2.                                      NC2024.2
    1501. 

  1501. 150000 ADD-DELETE-F3-18-2.                                              NC2024.2
    1502. 

  1502. 150100     PERFORM DE-LETE                                              NC2024.2
    1503. 

  1503. 150200     GO TO ADD-WRITE-F3-18-2.                                     NC2024.2
    1504. 

  1504. 150300 ADD-FAIL-F3-18-2.                                                NC2024.2
    1505. 

  1505. 150400     MOVE    FIELD1 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1506. 

  1506. 150500     MOVE    88889 TO CORRECT-N                                   NC2024.2
    1507. 

  1507. 150600     PERFORM FAIL.                                                NC2024.2
    1508. 

  1508. 150700 ADD-WRITE-F3-18-2.                                               NC2024.2
    1509. 

  1509. 150800     PERFORM PRINT-DETAIL.                                        NC2024.2
    1510. 

  1510. 150900*                                                                 NC2024.2
    1511. 

  1511. 151000 ADD-INIT-F3-18-3.                                                NC2024.2
    1512. 

  1512. 151100     MOVE   "ADD-TEST-F3-18-3" TO PAR-NAME.                       NC2024.2
    1513. 

  1513. 151200     ADD     1 TO REC-CT.                                         NC2024.2
    1514. 

  1514. 151300 ADD-TEST-F3-18-3.                                                NC2024.2
    1515. 

  1515. 151400     IF      FIELD2 OF ADD-16 IS EQUAL TO 777.77                  NC2024.2
    1516. 

  1516. 151500             PERFORM PASS                                         NC2024.2
    1517. 

  1517. 151600             GO TO ADD-WRITE-F3-18-3.                             NC2024.2
    1518. 

  1518. 151700     GO TO ADD-FAIL-F3-18-3.                                      NC2024.2
    1519. 

  1519. 151800 ADD-DELETE-F3-18-3.                                              NC2024.2
    1520. 

  1520. 151900     PERFORM DE-LETE.                                             NC2024.2
    1521. 

  1521. 152000     GO TO ADD-WRITE-F3-18-3.                                     NC2024.2
    1522. 

  1522. 152100 ADD-FAIL-F3-18-3.                                                NC2024.2
    1523. 

  1523. 152200     MOVE    FIELD2 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1524. 

  1524. 152300     MOVE   "+777.77" TO CORRECT-A                                NC2024.2
    1525. 

  1525. 152400     PERFORM FAIL.                                                NC2024.2
    1526. 

  1526. 152500 ADD-WRITE-F3-18-3.                                               NC2024.2
    1527. 

  1527. 152600     PERFORM PRINT-DETAIL.                                        NC2024.2
    1528. 

  1528. 152700*                                                                 NC2024.2
    1529. 

  1529. 152800 ADD-INIT-F3-18-4.                                                NC2024.2
    1530. 

  1530. 152900     MOVE   "ADD-TEST-F3-18-4" TO PAR-NAME.                       NC2024.2
    1531. 

  1531. 153000     ADD     1 TO REC-CT.                                         NC2024.2
    1532. 

  1532. 153100 ADD-TEST-F3-18-4.                                                NC2024.2
    1533. 

  1533. 153200     IF      FIELD3 OF ADD-16 IS EQUAL TO 555.5                   NC2024.2
    1534. 

  1534. 153300             PERFORM PASS                                         NC2024.2
    1535. 

  1535. 153400             GO TO ADD-WRITE-F3-18-4.                             NC2024.2
    1536. 

  1536. 153500     GO TO ADD-FAIL-F3-18-4.                                      NC2024.2
    1537. 

  1537. 153600 ADD-DELETE-F3-18-4.                                              NC2024.2
    1538. 

  1538. 153700     PERFORM DE-LETE.                                             NC2024.2
    1539. 

  1539. 153800     GO TO ADD-WRITE-F3-18-4.                                     NC2024.2
    1540. 

  1540. 153900 ADD-FAIL-F3-18-4.                                                NC2024.2
    1541. 

  1541. 154000     MOVE FIELD3 OF ADD-16 TO COMPUTED-N                          NC2024.2
    1542. 

  1542. 154100     MOVE 555.5 TO CORRECT-N                                      NC2024.2
    1543. 

  1543. 154200     PERFORM FAIL.                                                NC2024.2
    1544. 

  1544. 154300 ADD-WRITE-F3-18-4.                                               NC2024.2
    1545. 

  1545. 154400     PERFORM PRINT-DETAIL.                                        NC2024.2
    1546. 

  1546. 154500*                                                                 NC2024.2
    1547. 

  1547. 154600 ADD-INIT-F3-19.                                                  NC2024.2
    1548. 

  1548. 154700*    ===-->  EXPLICIT SCOPE TERMINATOR<--===                      NC2024.2
    1549. 

  1549. 154800*    ===-->        SIZE ERROR         <--===                      NC2024.2
    1550. 

  1550. 154900     MOVE   "VI-73 6.6" TO ANSI-REFERENCE.                        NC2024.2
    1551. 

  1551. 155000     MOVE    SPACE  TO WRK-XN-00001.                              NC2024.2
    1552. 

  1552. 155100     MOVE    SPACE  TO WRK-AN-00001.                              NC2024.2
    1553. 

  1553. 155200     MOVE    0      TO REC-CT.                                    NC2024.2
    1554. 

  1554. 155300     MOVE    1      TO FIELD1 OF ADD-15.                          NC2024.2
    1555. 

  1555. 155400     MOVE    32.1   TO FIELD2 OF ADD-15.                          NC2024.2
    1556. 

  1556. 155500     MOVE    123.4  TO FIELD3 OF ADD-15.                          NC2024.2
    1557. 

  1557. 155600     MOVE    99999  TO FIELD1 OF ADD-16.                          NC2024.2
    1558. 

  1558. 155700     MOVE    745.67 TO FIELD2 OF ADD-16.                          NC2024.2
    1559. 

  1559. 155800     MOVE    432.1  TO FIELD3 OF ADD-16.                          NC2024.2
    1560. 

  1560. 155900     MOVE   "ADD-TEST-F3-19-0" TO PAR-NAME.                       NC2024.2
    1561. 

  1561. 156000 ADD-TEST-F3-19-0.                                                NC2024.2
    1562. 

  1562. 156100     ADD     CORRESPONDING ADD-15 TO ADD-16                       NC2024.2
    1563. 

  1563. 156200             ON SIZE ERROR                                        NC2024.2
    1564. 

  1564. 156300             MOVE   "A" TO WRK-AN-00001                           NC2024.2
    1565. 

  1565. 156400     END-ADD                                                      NC2024.2
    1566. 

  1566. 156500     MOVE   "B" TO WRK-XN-00001.                                  NC2024.2
    1567. 

  1567. 156600*                                                                 NC2024.2
    1568. 

  1568. 156700 ADD-INIT-F3-19-1.                                                NC2024.2
    1569. 

  1569. 156800     MOVE   "ADD-TEST-F3-19-1" TO PAR-NAME.                       NC2024.2
    1570. 

  1570. 156900     ADD     1 TO REC-CT.                                         NC2024.2
    1571. 

  1571. 157000 ADD-TEST-F3-19-1.                                                NC2024.2
    1572. 

  1572. 157100     IF      FIELD1 OF ADD-16 EQUAL TO 99999                      NC2024.2
    1573. 

  1573. 157200             PERFORM PASS                                         NC2024.2
    1574. 

  1574. 157300             GO TO ADD-WRITE-F3-19-1.                             NC2024.2
    1575. 

  1575. 157400     GO TO ADD-FAIL-F3-19-1.                                      NC2024.2
    1576. 

  1576. 157500 ADD-DELETE-F3-19-1.                                              NC2024.2
    1577. 

  1577. 157600     PERFORM DE-LETE.                                             NC2024.2
    1578. 

  1578. 157700     GO TO ADD-WRITE-F3-19-1.                                     NC2024.2
    1579. 

  1579. 157800 ADD-FAIL-F3-19-1.                                                NC2024.2
    1580. 

  1580. 157900     MOVE    FIELD1 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1581. 

  1581. 158000     MOVE    99999 TO CORRECT-N                                   NC2024.2
    1582. 

  1582. 158100     PERFORM FAIL.                                                NC2024.2
    1583. 

  1583. 158200 ADD-WRITE-F3-19-1.                                               NC2024.2
    1584. 

  1584. 158300     PERFORM PRINT-DETAIL.                                        NC2024.2
    1585. 

  1585. 158400*                                                                 NC2024.2
    1586. 

  1586. 158500 ADD-INIT-F3-19-2.                                                NC2024.2
    1587. 

  1587. 158600     MOVE   "ADD-TEST-F3-19-2" TO PAR-NAME.                       NC2024.2
    1588. 

  1588. 158700     ADD     1 TO REC-CT.                                         NC2024.2
    1589. 

  1589. 158800 ADD-TEST-F3-19-2.                                                NC2024.2
    1590. 

  1590. 158900     IF      FIELD2 OF ADD-16 IS EQUAL TO 777.77                  NC2024.2
    1591. 

  1591. 159000             PERFORM PASS                                         NC2024.2
    1592. 

  1592. 159100             GO TO ADD-WRITE-F3-19-2.                             NC2024.2
    1593. 

  1593. 159200     GO TO ADD-FAIL-F3-19-2.                                      NC2024.2
    1594. 

  1594. 159300 ADD-DELETE-F3-19-2.                                              NC2024.2
    1595. 

  1595. 159400     PERFORM DE-LETE.                                             NC2024.2
    1596. 

  1596. 159500     GO TO ADD-WRITE-F3-19-2.                                     NC2024.2
    1597. 

  1597. 159600 ADD-FAIL-F3-19-2.                                                NC2024.2
    1598. 

  1598. 159700     MOVE    FIELD2 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1599. 

  1599. 159800     MOVE   "+777.77" TO CORRECT-A                                NC2024.2
    1600. 

  1600. 159900     PERFORM FAIL.                                                NC2024.2
    1601. 

  1601. 160000 ADD-WRITE-F3-19-2.                                               NC2024.2
    1602. 

  1602. 160100     PERFORM PRINT-DETAIL.                                        NC2024.2
    1603. 

  1603. 160200*                                                                 NC2024.2
    1604. 

  1604. 160300 ADD-INIT-F3-19-3.                                                NC2024.2
    1605. 

  1605. 160400     MOVE   "ADD-TEST-F3-19-3" TO PAR-NAME.                       NC2024.2
    1606. 

  1606. 160500     ADD     1 TO REC-CT.                                         NC2024.2
    1607. 

  1607. 160600 ADD-TEST-F3-19-3.                                                NC2024.2
    1608. 

  1608. 160700     IF      FIELD3 OF ADD-16 IS EQUAL TO 555.5                   NC2024.2
    1609. 

  1609. 160800             PERFORM PASS                                         NC2024.2
    1610. 

  1610. 160900             GO TO ADD-WRITE-F3-19-3.                             NC2024.2
    1611. 

  1611. 161000     GO TO ADD-FAIL-F3-19-3.                                      NC2024.2
    1612. 

  1612. 161100 ADD-DELETE-F3-19-3.                                              NC2024.2
    1613. 

  1613. 161200     PERFORM DE-LETE.                                             NC2024.2
    1614. 

  1614. 161300     GO TO ADD-WRITE-F3-19-3.                                     NC2024.2
    1615. 

  1615. 161400 ADD-FAIL-F3-19-3.                                                NC2024.2
    1616. 

  1616. 161500     MOVE FIELD3 OF ADD-16 TO COMPUTED-N                          NC2024.2
    1617. 

  1617. 161600     MOVE 555.5 TO CORRECT-N                                      NC2024.2
    1618. 

  1618. 161700     PERFORM FAIL.                                                NC2024.2
    1619. 

  1619. 161800 ADD-WRITE-F3-19-3.                                               NC2024.2
    1620. 

  1620. 161900     PERFORM PRINT-DETAIL.                                        NC2024.2
    1621. 

  1621. 162000*                                                                 NC2024.2
    1622. 

  1622. 162100 ADD-INIT-F3-19-4.                                                NC2024.2
    1623. 

  1623. 162200     MOVE   "ADD-TEST-F3-19-4" TO PAR-NAME.                       NC2024.2
    1624. 

  1624. 162300     ADD     1 TO REC-CT.                                         NC2024.2
    1625. 

  1625. 162400 ADD-TEST-F3-19-4.                                                NC2024.2
    1626. 

  1626. 162500     IF      WRK-AN-00001 = SPACE                                 NC2024.2
    1627. 

  1627. 162600             GO TO ADD-FAIL-F3-19-4.                              NC2024.2
    1628. 

  1628. 162700     PERFORM PASS                                                 NC2024.2
    1629. 

  1629. 162800     GO TO ADD-WRITE-F3-19-4.                                     NC2024.2
    1630. 

  1630. 162900 ADD-DELETE-F3-19-4.                                              NC2024.2
    1631. 

  1631. 163000     PERFORM DE-LETE.                                             NC2024.2
    1632. 

  1632. 163100     GO TO ADD-WRITE-F3-19-4.                                     NC2024.2
    1633. 

  1633. 163200 ADD-FAIL-F3-19-4.                                                NC2024.2
    1634. 

  1634. 163300     MOVE   "ON SIZE ERROR SHOULD BE EXECUTED"                    NC2024.2
    1635. 

  1635. 163400          TO RE-MARK                                              NC2024.2
    1636. 

  1636. 163500     MOVE   "A"   TO COMPUTED-X                                   NC2024.2
    1637. 

  1637. 163600     MOVE    WRK-AN-00001 TO CORRECT-X                            NC2024.2
    1638. 

  1638. 163700     PERFORM FAIL.                                                NC2024.2
    1639. 

  1639. 163800 ADD-WRITE-F3-19-4.                                               NC2024.2
    1640. 

  1640. 163900     PERFORM PRINT-DETAIL.                                        NC2024.2
    1641. 

  1641. 164000*                                                                 NC2024.2
    1642. 

  1642. 164100 ADD-INIT-F3-19-5.                                                NC2024.2
    1643. 

  1643. 164200     MOVE   "ADD-TEST-F3-19-5" TO PAR-NAME.                       NC2024.2
    1644. 

  1644. 164300     ADD     1 TO REC-CT.                                         NC2024.2
    1645. 

  1645. 164400 ADD-TEST-F3-19-5.                                                NC2024.2
    1646. 

  1646. 164500     IF      WRK-XN-00001 = SPACE                                 NC2024.2
    1647. 

  1647. 164600             GO TO ADD-FAIL-F3-19-5.                              NC2024.2
    1648. 

  1648. 164700     PERFORM PASS                                                 NC2024.2
    1649. 

  1649. 164800     GO TO ADD-WRITE-F3-19-5.                                     NC2024.2
    1650. 

  1650. 164900 ADD-DELETE-F3-19-5.                                              NC2024.2
    1651. 

  1651. 165000     PERFORM DE-LETE.                                             NC2024.2
    1652. 

  1652. 165100     GO TO ADD-WRITE-F3-19-5.                                     NC2024.2
    1653. 

  1653. 165200 ADD-FAIL-F3-19-5.                                                NC2024.2
    1654. 

  1654. 165300     MOVE   "SCOPE TERMINATOR IGNORED" TO RE-MARK                 NC2024.2
    1655. 

  1655. 165400     MOVE   "B"   TO COMPUTED-X                                   NC2024.2
    1656. 

  1656. 165500     MOVE    WRK-AN-00001 TO CORRECT-X                            NC2024.2
    1657. 

  1657. 165600     PERFORM FAIL.                                                NC2024.2
    1658. 

  1658. 165700 ADD-WRITE-F3-19-5.                                               NC2024.2
    1659. 

  1659. 165800     PERFORM PRINT-DETAIL.                                        NC2024.2
    1660. 

  1660. 165900*                                                                 NC2024.2
    1661. 

  1661. 166000 ADD-INIT-F3-20.                                                  NC2024.2
    1662. 

  1662. 166100*    ===-->  EXPLICIT SCOPE TERMINATOR<--===                      NC2024.2
    1663. 

  1663. 166200*    ===-->     NO SIZE ERROR         <--===                      NC2024.2
    1664. 

  1664. 166300     MOVE   "VI-73 6.6" TO ANSI-REFERENCE.                        NC2024.2
    1665. 

  1665. 166400     MOVE   "ADD-TEST-F3-20-0" TO PAR-NAME.                       NC2024.2
    1666. 

  1666. 166500     MOVE    SPACE  TO WRK-XN-00001.                              NC2024.2
    1667. 

  1667. 166600     MOVE    SPACE  TO WRK-AN-00001.                              NC2024.2
    1668. 

  1668. 166700     MOVE    0      TO REC-CT.                                    NC2024.2
    1669. 

  1669. 166800     MOVE    1      TO FIELD1 OF ADD-15.                          NC2024.2
    1670. 

  1670. 166900     MOVE    32.1   TO FIELD2 OF ADD-15.                          NC2024.2
    1671. 

  1671. 167000     MOVE    123.4  TO FIELD3 OF ADD-15.                          NC2024.2
    1672. 

  1672. 167100     MOVE    88888  TO FIELD1 OF ADD-16.                          NC2024.2
    1673. 

  1673. 167200     MOVE    745.67 TO FIELD2 OF ADD-16.                          NC2024.2
    1674. 

  1674. 167300     MOVE    432.1  TO FIELD3 OF ADD-16.                          NC2024.2
    1675. 

  1675. 167400 ADD-TEST-F3-20-0.                                                NC2024.2
    1676. 

  1676. 167500     ADD     CORRESPONDING ADD-15 TO ADD-16                       NC2024.2
    1677. 

  1677. 167600             ON SIZE ERROR                                        NC2024.2
    1678. 

  1678. 167700             MOVE   "A" TO WRK-AN-00001                           NC2024.2
    1679. 

  1679. 167800     END-ADD                                                      NC2024.2
    1680. 

  1680. 167900     MOVE   "B" TO WRK-XN-00001.                                  NC2024.2
    1681. 

  1681. 168000*                                                                 NC2024.2
    1682. 

  1682. 168100 ADD-INIT-F3-20-1.                                                NC2024.2
    1683. 

  1683. 168200     MOVE   "ADD-TEST-F3-20-1" TO PAR-NAME.                       NC2024.2
    1684. 

  1684. 168300     ADD     1 TO REC-CT.                                         NC2024.2
    1685. 

  1685. 168400 ADD-TEST-F3-20-1.                                                NC2024.2
    1686. 

  1686. 168500     IF      FIELD1 OF ADD-16 EQUAL TO 88889                      NC2024.2
    1687. 

  1687. 168600             PERFORM PASS                                         NC2024.2
    1688. 

  1688. 168700             GO TO ADD-WRITE-F3-20-1.                             NC2024.2
    1689. 

  1689. 168800     GO TO ADD-FAIL-F3-20-1.                                      NC2024.2
    1690. 

  1690. 168900 ADD-DELETE-F3-20-1.                                              NC2024.2
    1691. 

  1691. 169000     PERFORM DE-LETE.                                             NC2024.2
    1692. 

  1692. 169100     GO TO ADD-WRITE-F3-20-1.                                     NC2024.2
    1693. 

  1693. 169200 ADD-FAIL-F3-20-1.                                                NC2024.2
    1694. 

  1694. 169300     MOVE    FIELD1 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1695. 

  1695. 169400     MOVE    88889 TO CORRECT-N                                   NC2024.2
    1696. 

  1696. 169500     PERFORM FAIL.                                                NC2024.2
    1697. 

  1697. 169600 ADD-WRITE-F3-20-1.                                               NC2024.2
    1698. 

  1698. 169700     PERFORM PRINT-DETAIL.                                        NC2024.2
    1699. 

  1699. 169800*                                                                 NC2024.2
    1700. 

  1700. 169900 ADD-INIT-F3-20-2.                                                NC2024.2
    1701. 

  1701. 170000     MOVE   "ADD-TEST-F3-20-2" TO PAR-NAME.                       NC2024.2
    1702. 

  1702. 170100     ADD     1 TO REC-CT.                                         NC2024.2
    1703. 

  1703. 170200 ADD-TEST-F3-20-2.                                                NC2024.2
    1704. 

  1704. 170300     IF      FIELD2 OF ADD-16 IS EQUAL TO 777.77                  NC2024.2
    1705. 

  1705. 170400             PERFORM PASS                                         NC2024.2
    1706. 

  1706. 170500             GO TO ADD-WRITE-F3-20-2.                             NC2024.2
    1707. 

  1707. 170600     GO TO ADD-FAIL-F3-20-2.                                      NC2024.2
    1708. 

  1708. 170700 ADD-DELETE-F3-20-2.                                              NC2024.2
    1709. 

  1709. 170800     PERFORM DE-LETE.                                             NC2024.2
    1710. 

  1710. 170900     GO TO ADD-WRITE-F3-20-2.                                     NC2024.2
    1711. 

  1711. 171000 ADD-FAIL-F3-20-2.                                                NC2024.2
    1712. 

  1712. 171100     MOVE    FIELD2 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1713. 

  1713. 171200     MOVE   "+777.77" TO CORRECT-A                                NC2024.2
    1714. 

  1714. 171300     PERFORM FAIL.                                                NC2024.2
    1715. 

  1715. 171400 ADD-WRITE-F3-20-2.                                               NC2024.2
    1716. 

  1716. 171500     PERFORM PRINT-DETAIL.                                        NC2024.2
    1717. 

  1717. 171600*                                                                 NC2024.2
    1718. 

  1718. 171700 ADD-INIT-F3-20-3.                                                NC2024.2
    1719. 

  1719. 171800     MOVE   "ADD-TEST-F3-20-3" TO PAR-NAME.                       NC2024.2
    1720. 

  1720. 171900     ADD     1 TO REC-CT.                                         NC2024.2
    1721. 

  1721. 172000 ADD-TEST-F3-20-3.                                                NC2024.2
    1722. 

  1722. 172100     IF      FIELD3 OF ADD-16 IS EQUAL TO 555.5                   NC2024.2
    1723. 

  1723. 172200             PERFORM PASS                                         NC2024.2
    1724. 

  1724. 172300             GO TO ADD-WRITE-F3-20-3.                             NC2024.2
    1725. 

  1725. 172400     GO TO ADD-FAIL-F3-20-3.                                      NC2024.2
    1726. 

  1726. 172500 ADD-DELETE-F3-20-3.                                              NC2024.2
    1727. 

  1727. 172600     PERFORM DE-LETE.                                             NC2024.2
    1728. 

  1728. 172700     GO TO ADD-WRITE-F3-20-3.                                     NC2024.2
    1729. 

  1729. 172800 ADD-FAIL-F3-20-3.                                                NC2024.2
    1730. 

  1730. 172900     MOVE FIELD3 OF ADD-16 TO COMPUTED-N                          NC2024.2
    1731. 

  1731. 173000     MOVE 555.5 TO CORRECT-N                                      NC2024.2
    1732. 

  1732. 173100     PERFORM FAIL.                                                NC2024.2
    1733. 

  1733. 173200 ADD-WRITE-F3-20-3.                                               NC2024.2
    1734. 

  1734. 173300     PERFORM PRINT-DETAIL.                                        NC2024.2
    1735. 

  1735. 173400*                                                                 NC2024.2
    1736. 

  1736. 173500 ADD-INIT-F3-20-4.                                                NC2024.2
    1737. 

  1737. 173600     MOVE   "ADD-TEST-F3-20-4" TO PAR-NAME.                       NC2024.2
    1738. 

  1738. 173700     ADD     1 TO REC-CT.                                         NC2024.2
    1739. 

  1739. 173800 ADD-TEST-F3-20-4.                                                NC2024.2
    1740. 

  1740. 173900     IF      WRK-AN-00001 = SPACE                                 NC2024.2
    1741. 

  1741. 174000             PERFORM PASS                                         NC2024.2
    1742. 

  1742. 174100             GO TO ADD-WRITE-F3-20-4.                             NC2024.2
    1743. 

  1743. 174200     GO TO ADD-FAIL-F3-20-4.                                      NC2024.2
    1744. 

  1744. 174300 ADD-DELETE-F3-20-4.                                              NC2024.2
    1745. 

  1745. 174400     PERFORM DE-LETE.                                             NC2024.2
    1746. 

  1746. 174500     GO TO ADD-WRITE-F3-20-4.                                     NC2024.2
    1747. 

  1747. 174600 ADD-FAIL-F3-20-4.                                                NC2024.2
    1748. 

  1748. 174700     MOVE   "ON SIZE ERROR SHOULD NOT BE EXECUTED"                NC2024.2
    1749. 

  1749. 174800          TO RE-MARK.                                             NC2024.2
    1750. 

  1750. 174900     MOVE    SPACE TO CORRECT-X.                                  NC2024.2
    1751. 

  1751. 175000     MOVE    WRK-AN-00001  TO COMPUTED-X.                         NC2024.2
    1752. 

  1752. 175100     PERFORM FAIL.                                                NC2024.2
    1753. 

  1753. 175200 ADD-WRITE-F3-20-4.                                               NC2024.2
    1754. 

  1754. 175300     PERFORM PRINT-DETAIL.                                        NC2024.2
    1755. 

  1755. 175400*                                                                 NC2024.2
    1756. 

  1756. 175500 ADD-INIT-F3-20-5.                                                NC2024.2
    1757. 

  1757. 175600     MOVE   "ADD-TEST-F3-20-5" TO PAR-NAME.                       NC2024.2
    1758. 

  1758. 175700     ADD     1 TO REC-CT.                                         NC2024.2
    1759. 

  1759. 175800 ADD-TEST-F3-20-5.                                                NC2024.2
    1760. 

  1760. 175900     IF      WRK-XN-00001 = SPACE                                 NC2024.2
    1761. 

  1761. 176000             GO TO ADD-FAIL-F3-20-5.                              NC2024.2
    1762. 

  1762. 176100     PERFORM PASS                                                 NC2024.2
    1763. 

  1763. 176200     GO TO ADD-WRITE-F3-20-5.                                     NC2024.2
    1764. 

  1764. 176300 ADD-DELETE-F3-20-5.                                              NC2024.2
    1765. 

  1765. 176400     PERFORM DE-LETE.                                             NC2024.2
    1766. 

  1766. 176500     GO TO ADD-WRITE-F3-20-5.                                     NC2024.2
    1767. 

  1767. 176600 ADD-FAIL-F3-20-5.                                                NC2024.2
    1768. 

  1768. 176700     MOVE   "SCOPE TERMINATOR IGNORED" TO RE-MARK                 NC2024.2
    1769. 

  1769. 176800     MOVE   "B"   TO COMPUTED-X                                   NC2024.2
    1770. 

  1770. 176900     MOVE    WRK-AN-00001 TO CORRECT-X                            NC2024.2
    1771. 

  1771. 177000     PERFORM FAIL.                                                NC2024.2
    1772. 

  1772. 177100 ADD-WRITE-F3-20-5.                                               NC2024.2
    1773. 

  1773. 177200     PERFORM PRINT-DETAIL.                                        NC2024.2
    1774. 

  1774. 177300*                                                                 NC2024.2
    1775. 

  1775. 177400 ADD-INIT-F3-21.                                                  NC2024.2
    1776. 

  1776. 177500*    ===-->  EXPLICIT SCOPE TERMINATOR<--===                      NC2024.2
    1777. 

  1777. 177600*    ===-->        SIZE ERROR         <--===                      NC2024.2
    1778. 

  1778. 177700     MOVE   "VI-73 6.6" TO ANSI-REFERENCE.                        NC2024.2
    1779. 

  1779. 177800     MOVE   "ADD-TEST-F3-21-0" TO PAR-NAME.                       NC2024.2
    1780. 

  1780. 177900     MOVE    SPACE  TO WRK-XN-00001.                              NC2024.2
    1781. 

  1781. 178000     MOVE    SPACE  TO WRK-AN-00001.                              NC2024.2
    1782. 

  1782. 178100     MOVE    1      TO REC-CT.                                    NC2024.2
    1783. 

  1783. 178200     MOVE    1      TO FIELD1 OF ADD-15.                          NC2024.2
    1784. 

  1784. 178300     MOVE    32.1   TO FIELD2 OF ADD-15.                          NC2024.2
    1785. 

  1785. 178400     MOVE    123.4  TO FIELD3 OF ADD-15.                          NC2024.2
    1786. 

  1786. 178500     MOVE    99999  TO FIELD1 OF ADD-16.                          NC2024.2
    1787. 

  1787. 178600     MOVE    745.67 TO FIELD2 OF ADD-16.                          NC2024.2
    1788. 

  1788. 178700     MOVE    432.1  TO FIELD3 OF ADD-16.                          NC2024.2
    1789. 

  1789. 178800 ADD-TEST-F3-21-0.                                                NC2024.2
    1790. 

  1790. 178900     ADD     CORRESPONDING ADD-15 TO ADD-16                       NC2024.2
    1791. 

  1791. 179000         NOT ON SIZE ERROR                                        NC2024.2
    1792. 

  1792. 179100             MOVE   "A" TO WRK-AN-00001                           NC2024.2
    1793. 

  1793. 179200     END-ADD                                                      NC2024.2
    1794. 

  1794. 179300     MOVE   "B" TO WRK-XN-00001.                                  NC2024.2
    1795. 

  1795. 179400*                                                                 NC2024.2
    1796. 

  1796. 179500 ADD-INIT-F3-21-1.                                                NC2024.2
    1797. 

  1797. 179600     MOVE   "ADD-TEST-F3-21-1" TO PAR-NAME.                       NC2024.2
    1798. 

  1798. 179700     ADD     1 TO REC-CT.                                         NC2024.2
    1799. 

  1799. 179800 ADD-TEST-F3-21-1.                                                NC2024.2
    1800. 

  1800. 179900     IF      FIELD1 OF ADD-16 EQUAL TO 99999                      NC2024.2
    1801. 

  1801. 180000             PERFORM PASS                                         NC2024.2
    1802. 

  1802. 180100             GO TO ADD-WRITE-F3-21-1.                             NC2024.2
    1803. 

  1803. 180200     GO TO ADD-FAIL-F3-21-1.                                      NC2024.2
    1804. 

  1804. 180300 ADD-DELETE-F3-21-1.                                              NC2024.2
    1805. 

  1805. 180400     PERFORM DE-LETE.                                             NC2024.2
    1806. 

  1806. 180500     GO TO ADD-WRITE-F3-21-1.                                     NC2024.2
    1807. 

  1807. 180600 ADD-FAIL-F3-21-1.                                                NC2024.2
    1808. 

  1808. 180700     MOVE    FIELD1 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1809. 

  1809. 180800     MOVE    99999 TO CORRECT-N                                   NC2024.2
    1810. 

  1810. 180900     PERFORM FAIL.                                                NC2024.2
    1811. 

  1811. 181000 ADD-WRITE-F3-21-1.                                               NC2024.2
    1812. 

  1812. 181100     PERFORM PRINT-DETAIL.                                        NC2024.2
    1813. 

  1813. 181200*                                                                 NC2024.2
    1814. 

  1814. 181300 ADD-INIT-F3-21-2.                                                NC2024.2
    1815. 

  1815. 181400     MOVE   "ADD-TEST-F3-21-2" TO PAR-NAME.                       NC2024.2
    1816. 

  1816. 181500     ADD     1 TO REC-CT.                                         NC2024.2
    1817. 

  1817. 181600 ADD-TEST-F3-21-2.                                                NC2024.2
    1818. 

  1818. 181700     IF      FIELD2 OF ADD-16 IS EQUAL TO 777.77                  NC2024.2
    1819. 

  1819. 181800             PERFORM PASS                                         NC2024.2
    1820. 

  1820. 181900             GO TO ADD-WRITE-F3-21-2.                             NC2024.2
    1821. 

  1821. 182000     GO TO ADD-FAIL-F3-21-2.                                      NC2024.2
    1822. 

  1822. 182100 ADD-DELETE-F3-21-2.                                              NC2024.2
    1823. 

  1823. 182200     PERFORM DE-LETE.                                             NC2024.2
    1824. 

  1824. 182300     GO TO ADD-WRITE-F3-21-2.                                     NC2024.2
    1825. 

  1825. 182400 ADD-FAIL-F3-21-2.                                                NC2024.2
    1826. 

  1826. 182500     MOVE    FIELD2 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1827. 

  1827. 182600     MOVE   "+777.77" TO CORRECT-A                                NC2024.2
    1828. 

  1828. 182700     PERFORM FAIL.                                                NC2024.2
    1829. 

  1829. 182800 ADD-WRITE-F3-21-2.                                               NC2024.2
    1830. 

  1830. 182900     PERFORM PRINT-DETAIL.                                        NC2024.2
    1831. 

  1831. 183000*                                                                 NC2024.2
    1832. 

  1832. 183100 ADD-INIT-F3-21-3.                                                NC2024.2
    1833. 

  1833. 183200     MOVE   "ADD-TEST-F3-21-3" TO PAR-NAME.                       NC2024.2
    1834. 

  1834. 183300     ADD     1 TO REC-CT.                                         NC2024.2
    1835. 

  1835. 183400 ADD-TEST-F3-21-3.                                                NC2024.2
    1836. 

  1836. 183500     IF      FIELD3 OF ADD-16 IS EQUAL TO 555.5                   NC2024.2
    1837. 

  1837. 183600             PERFORM PASS                                         NC2024.2
    1838. 

  1838. 183700             GO TO ADD-WRITE-F3-21-3.                             NC2024.2
    1839. 

  1839. 183800     GO TO ADD-FAIL-F3-21-3.                                      NC2024.2
    1840. 

  1840. 183900 ADD-DELETE-F3-21-3.                                              NC2024.2
    1841. 

  1841. 184000     PERFORM DE-LETE.                                             NC2024.2
    1842. 

  1842. 184100     GO TO ADD-WRITE-F3-21-3.                                     NC2024.2
    1843. 

  1843. 184200 ADD-FAIL-F3-21-3.                                                NC2024.2
    1844. 

  1844. 184300             MOVE FIELD3 OF ADD-16 TO COMPUTED-N                  NC2024.2
    1845. 

  1845. 184400             MOVE 555.5 TO CORRECT-N                              NC2024.2
    1846. 

  1846. 184500             PERFORM FAIL.                                        NC2024.2
    1847. 

  1847. 184600 ADD-WRITE-F3-21-3.                                               NC2024.2
    1848. 

  1848. 184700             PERFORM PRINT-DETAIL.                                NC2024.2
    1849. 

  1849. 184800*                                                                 NC2024.2
    1850. 

  1850. 184900 ADD-INIT-F3-21-4.                                                NC2024.2
    1851. 

  1851. 185000     MOVE   "ADD-TEST-F3-21-4" TO PAR-NAME.                       NC2024.2
    1852. 

  1852. 185100     ADD     1 TO REC-CT.                                         NC2024.2
    1853. 

  1853. 185200 ADD-TEST-F3-21-4.                                                NC2024.2
    1854. 

  1854. 185300     IF      WRK-AN-00001 = "A"                                   NC2024.2
    1855. 

  1855. 185400             GO TO ADD-FAIL-F3-21-4.                              NC2024.2
    1856. 

  1856. 185500     PERFORM PASS                                                 NC2024.2
    1857. 

  1857. 185600     GO TO ADD-WRITE-F3-21-4.                                     NC2024.2
    1858. 

  1858. 185700 ADD-DELETE-F3-21-4.                                              NC2024.2
    1859. 

  1859. 185800     PERFORM DE-LETE.                                             NC2024.2
    1860. 

  1860. 185900     GO TO ADD-WRITE-F3-21-4.                                     NC2024.2
    1861. 

  1861. 186000 ADD-FAIL-F3-21-4.                                                NC2024.2
    1862. 

  1862. 186100     MOVE   "NOT ON SIZE ERROR SHOULD NOT BE EXECUTED"            NC2024.2
    1863. 

  1863. 186200          TO RE-MARK                                              NC2024.2
    1864. 

  1864. 186300     MOVE    SPACE TO COMPUTED-X                                  NC2024.2
    1865. 

  1865. 186400     MOVE    WRK-AN-00001  TO CORRECT-X                           NC2024.2
    1866. 

  1866. 186500     PERFORM FAIL.                                                NC2024.2
    1867. 

  1867. 186600 ADD-WRITE-F3-21-4.                                               NC2024.2
    1868. 

  1868. 186700     PERFORM PRINT-DETAIL.                                        NC2024.2
    1869. 

  1869. 186800*                                                                 NC2024.2
    1870. 

  1870. 186900 ADD-INIT-F3-21-5.                                                NC2024.2
    1871. 

  1871. 187000     MOVE   "ADD-TEST-F3-21-5" TO PAR-NAME.                       NC2024.2
    1872. 

  1872. 187100     ADD     1 TO REC-CT.                                         NC2024.2
    1873. 

  1873. 187200 ADD-TEST-F3-21-5.                                                NC2024.2
    1874. 

  1874. 187300     IF      WRK-XN-00001 = SPACE                                 NC2024.2
    1875. 

  1875. 187400             GO TO ADD-FAIL-F3-21-5.                              NC2024.2
    1876. 

  1876. 187500     PERFORM PASS                                                 NC2024.2
    1877. 

  1877. 187600     GO TO ADD-WRITE-F3-21-5.                                     NC2024.2
    1878. 

  1878. 187700 ADD-DELETE-F3-21-5.                                              NC2024.2
    1879. 

  1879. 187800     PERFORM DE-LETE.                                             NC2024.2
    1880. 

  1880. 187900     GO TO ADD-WRITE-F3-21-5.                                     NC2024.2
    1881. 

  1881. 188000 ADD-FAIL-F3-21-5.                                                NC2024.2
    1882. 

  1882. 188100     MOVE   "SCOPE TERMINATOR IGNORED" TO RE-MARK                 NC2024.2
    1883. 

  1883. 188200     MOVE   "B"   TO COMPUTED-X                                   NC2024.2
    1884. 

  1884. 188300     MOVE    WRK-AN-00001 TO CORRECT-X                            NC2024.2
    1885. 

  1885. 188400     PERFORM FAIL.                                                NC2024.2
    1886. 

  1886. 188500 ADD-WRITE-F3-21-5.                                               NC2024.2
    1887. 

  1887. 188600     PERFORM PRINT-DETAIL.                                        NC2024.2
    1888. 

  1888. 188700*                                                                 NC2024.2
    1889. 

  1889. 188800 ADD-INIT-F3-22.                                                  NC2024.2
    1890. 

  1890. 188900*    ===-->  EXPLICIT SCOPE TERMINATOR<--===                      NC2024.2
    1891. 

  1891. 189000*    ===-->     NO SIZE ERROR         <--===                      NC2024.2
    1892. 

  1892. 189100     MOVE   "VI-73 6.6" TO ANSI-REFERENCE.                        NC2024.2
    1893. 

  1893. 189200     MOVE   "ADD-TEST-F3-22-0" TO PAR-NAME.                       NC2024.2
    1894. 

  1894. 189300     MOVE    SPACE  TO WRK-XN-00001.                              NC2024.2
    1895. 

  1895. 189400     MOVE    SPACE  TO WRK-AN-00001.                              NC2024.2
    1896. 

  1896. 189500     MOVE    0      TO REC-CT.                                    NC2024.2
    1897. 

  1897. 189600     MOVE    1      TO FIELD1 OF ADD-15.                          NC2024.2
    1898. 

  1898. 189700     MOVE    32.1   TO FIELD2 OF ADD-15.                          NC2024.2
    1899. 

  1899. 189800     MOVE    123.4  TO FIELD3 OF ADD-15.                          NC2024.2
    1900. 

  1900. 189900     MOVE    88888  TO FIELD1 OF ADD-16.                          NC2024.2
    1901. 

  1901. 190000     MOVE    745.67 TO FIELD2 OF ADD-16.                          NC2024.2
    1902. 

  1902. 190100     MOVE    432.1  TO FIELD3 OF ADD-16.                          NC2024.2
    1903. 

  1903. 190200 ADD-TEST-F3-22-0.                                                NC2024.2
    1904. 

  1904. 190300     ADD     CORRESPONDING ADD-15 TO ADD-16                       NC2024.2
    1905. 

  1905. 190400         NOT ON SIZE ERROR                                        NC2024.2
    1906. 

  1906. 190500             MOVE   "A" TO WRK-AN-00001                           NC2024.2
    1907. 

  1907. 190600             PERFORM PASS                                         NC2024.2
    1908. 

  1908. 190700             PERFORM PRINT-DETAIL                                 NC2024.2
    1909. 

  1909. 190800     END-ADD                                                      NC2024.2
    1910. 

  1910. 190900     MOVE   "B" TO WRK-XN-00001.                                  NC2024.2
    1911. 

  1911. 191000*                                                                 NC2024.2
    1912. 

  1912. 191100 ADD-INIT-F3-22-1.                                                NC2024.2
    1913. 

  1913. 191200     MOVE   "ADD-TEST-F3-22-1" TO PAR-NAME.                       NC2024.2
    1914. 

  1914. 191300     ADD     1 TO REC-CT.                                         NC2024.2
    1915. 

  1915. 191400 ADD-TEST-F3-22-1.                                                NC2024.2
    1916. 

  1916. 191500     IF      FIELD1 OF ADD-16 EQUAL TO 88889                      NC2024.2
    1917. 

  1917. 191600             PERFORM PASS                                         NC2024.2
    1918. 

  1918. 191700             GO TO ADD-WRITE-F3-22-1.                             NC2024.2
    1919. 

  1919. 191800     GO TO ADD-FAIL-F3-22-1.                                      NC2024.2
    1920. 

  1920. 191900 ADD-DELETE-F3-22-1.                                              NC2024.2
    1921. 

  1921. 192000     PERFORM DE-LETE.                                             NC2024.2
    1922. 

  1922. 192100     GO TO ADD-WRITE-F3-22-1.                                     NC2024.2
    1923. 

  1923. 192200 ADD-FAIL-F3-22-1.                                                NC2024.2
    1924. 

  1924. 192300     MOVE    FIELD1 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1925. 

  1925. 192400     MOVE    88889 TO CORRECT-N                                   NC2024.2
    1926. 

  1926. 192500     PERFORM FAIL.                                                NC2024.2
    1927. 

  1927. 192600 ADD-WRITE-F3-22-1.                                               NC2024.2
    1928. 

  1928. 192700     PERFORM PRINT-DETAIL.                                        NC2024.2
    1929. 

  1929. 192800*                                                                 NC2024.2
    1930. 

  1930. 192900 ADD-INIT-F3-22-2.                                                NC2024.2
    1931. 

  1931. 193000     MOVE   "ADD-TEST-F3-22-2" TO PAR-NAME.                       NC2024.2
    1932. 

  1932. 193100     ADD     1 TO REC-CT.                                         NC2024.2
    1933. 

  1933. 193200 ADD-TEST-F3-22-2.                                                NC2024.2
    1934. 

  1934. 193300     IF      FIELD2 OF ADD-16 IS EQUAL TO 777.77                  NC2024.2
    1935. 

  1935. 193400             PERFORM PASS                                         NC2024.2
    1936. 

  1936. 193500             GO TO ADD-WRITE-F3-22-2.                             NC2024.2
    1937. 

  1937. 193600     GO TO ADD-FAIL-F3-22-2.                                      NC2024.2
    1938. 

  1938. 193700 ADD-DELETE-F3-22-2.                                              NC2024.2
    1939. 

  1939. 193800     PERFORM DE-LETE.                                             NC2024.2
    1940. 

  1940. 193900     GO TO ADD-WRITE-F3-22-2.                                     NC2024.2
    1941. 

  1941. 194000 ADD-FAIL-F3-22-2.                                                NC2024.2
    1942. 

  1942. 194100     MOVE    FIELD2 OF ADD-16 TO COMPUTED-N                       NC2024.2
    1943. 

  1943. 194200     MOVE   "+777.77" TO CORRECT-A                                NC2024.2
    1944. 

  1944. 194300     PERFORM FAIL.                                                NC2024.2
    1945. 

  1945. 194400 ADD-WRITE-F3-22-2.                                               NC2024.2
    1946. 

  1946. 194500     PERFORM PRINT-DETAIL.                                        NC2024.2
    1947. 

  1947. 194600*                                                                 NC2024.2
    1948. 

  1948. 194700 ADD-INIT-F3-22-3.                                                NC2024.2
    1949. 

  1949. 194800     MOVE   "ADD-TEST-F3-22-3" TO PAR-NAME.                       NC2024.2
    1950. 

  1950. 194900     ADD     1 TO REC-CT.                                         NC2024.2
    1951. 

  1951. 195000 ADD-TEST-F3-22-3.                                                NC2024.2
    1952. 

  1952. 195100     IF      FIELD3 OF ADD-16 IS EQUAL TO 555.5                   NC2024.2
    1953. 

  1953. 195200             PERFORM PASS                                         NC2024.2
    1954. 

  1954. 195300             GO TO ADD-WRITE-F3-22-3.                             NC2024.2
    1955. 

  1955. 195400     GO TO ADD-FAIL-F3-22-3.                                      NC2024.2
    1956. 

  1956. 195500 ADD-DELETE-F3-22-3.                                              NC2024.2
    1957. 

  1957. 195600     PERFORM DE-LETE.                                             NC2024.2
    1958. 

  1958. 195700     GO TO ADD-WRITE-F3-22-3.                                     NC2024.2
    1959. 

  1959. 195800 ADD-FAIL-F3-22-3.                                                NC2024.2
    1960. 

  1960. 195900     MOVE FIELD3 OF ADD-16 TO COMPUTED-N                          NC2024.2
    1961. 

  1961. 196000     MOVE 555.5 TO CORRECT-N                                      NC2024.2
    1962. 

  1962. 196100     PERFORM FAIL.                                                NC2024.2
    1963. 

  1963. 196200 ADD-WRITE-F3-22-3.                                               NC2024.2
    1964. 

  1964. 196300     PERFORM PRINT-DETAIL.                                        NC2024.2
    1965. 

  1965. 196400*                                                                 NC2024.2
    1966. 

  1966. 196500 ADD-INIT-F3-22-4.                                                NC2024.2
    1967. 

  1967. 196600     MOVE   "ADD-TEST-F3-22-4" TO PAR-NAME.                       NC2024.2
    1968. 

  1968. 196700     ADD     1 TO REC-CT.                                         NC2024.2
    1969. 

  1969. 196800 ADD-TEST-F3-22-4.                                                NC2024.2
    1970. 

  1970. 196900     IF      WRK-XN-00001 = SPACE                                 NC2024.2
    1971. 

  1971. 197000             GO TO ADD-FAIL-F3-22-4.                              NC2024.2
    1972. 

  1972. 197100     PERFORM PASS                                                 NC2024.2
    1973. 

  1973. 197200     GO TO ADD-WRITE-F3-22-4.                                     NC2024.2
    1974. 

  1974. 197300 ADD-DELETE-F3-22-4.                                              NC2024.2
    1975. 

  1975. 197400     PERFORM DE-LETE.                                             NC2024.2
    1976. 

  1976. 197500     GO TO ADD-WRITE-F3-22-4.                                     NC2024.2
    1977. 

  1977. 197600 ADD-FAIL-F3-22-4.                                                NC2024.2
    1978. 

  1978. 197700     MOVE   "SCOPE TERMINATOR IGNORED" TO RE-MARK                 NC2024.2
    1979. 

  1979. 197800     MOVE   "B"   TO COMPUTED-X                                   NC2024.2
    1980. 

  1980. 197900     MOVE    WRK-AN-00001 TO CORRECT-X                            NC2024.2
    1981. 

  1981. 198000     PERFORM FAIL.                                                NC2024.2
    1982. 

  1982. 198100 ADD-WRITE-F3-22-4.                                               NC2024.2
    1983. 

  1983. 198200     PERFORM PRINT-DETAIL.                                        NC2024.2
    1984. 

  1984. 198300*                                                                 NC2024.2
    1985. 

  1985. 198400 ADD-INIT-F3-23.                                                  NC2024.2
    1986. 

  1986. 198500*    ===-->  EXPLICIT SCOPE TERMINATOR<--===                      NC2024.2
    1987. 

  1987. 198600*    ===-->        SIZE ERROR         <--===                      NC2024.2
    1988. 

  1988. 198700     MOVE   "VI-73 6.6" TO ANSI-REFERENCE.                        NC2024.2
    1989. 

  1989. 198800     MOVE   "ADD-TEST-F3-23-0" TO PAR-NAME.                       NC2024.2
    1990. 

  1990. 198900     MOVE    SPACE  TO WRK-XN-00001.                              NC2024.2
    1991. 

  1991. 199000     MOVE    SPACE  TO WRK-AN-00001.                              NC2024.2
    1992. 

  1992. 199100     MOVE    0      TO REC-CT.                                    NC2024.2
    1993. 

  1993. 199200     MOVE    1      TO FIELD1 OF ADD-15.                          NC2024.2
    1994. 

  1994. 199300     MOVE    32.1   TO FIELD2 OF ADD-15.                          NC2024.2
    1995. 

  1995. 199400     MOVE    123.4  TO FIELD3 OF ADD-15.                          NC2024.2
    1996. 

  1996. 199500     MOVE    99999  TO FIELD1 OF ADD-16.                          NC2024.2
    1997. 

  1997. 199600     MOVE    745.67 TO FIELD2 OF ADD-16.                          NC2024.2
    1998. 

  1998. 199700     MOVE    432.1  TO FIELD3 OF ADD-16.                          NC2024.2
    1999. 

  1999. 199800 ADD-TEST-F3-23-0.                                                NC2024.2
    2000. 

  2000. 199900     ADD     CORRESPONDING ADD-15 TO ADD-16                       NC2024.2
    2001. 

  2001. 200000             ON SIZE ERROR                                        NC2024.2
    2002. 

  2002. 200100             MOVE   "A" TO WRK-AN-00001                           NC2024.2
    2003. 

  2003. 200200         NOT ON SIZE ERROR                                        NC2024.2
    2004. 

  2004. 200300             MOVE   "B" TO WRK-AN-00001                           NC2024.2
    2005. 

  2005. 200400     END-ADD                                                      NC2024.2
    2006. 

  2006. 200500     MOVE   "B" TO WRK-XN-00001.                                  NC2024.2
    2007. 

  2007. 200600     GO TO   ADD-TEST-F3-23-1.                                    NC2024.2
    2008. 

  2008. 200700*                                                                 NC2024.2
    2009. 

  2009. 200800 ADD-INIT-F3-23-1.                                                NC2024.2
    2010. 

  2010. 200900     MOVE   "ADD-TEST-F3-23-1" TO PAR-NAME.                       NC2024.2
    2011. 

  2011. 201000     ADD     1 TO REC-CT.                                         NC2024.2
    2012. 

  2012. 201100 ADD-TEST-F3-23-1.                                                NC2024.2
    2013. 

  2013. 201200     IF      FIELD1 OF ADD-16 EQUAL TO 99999                      NC2024.2
    2014. 

  2014. 201300             PERFORM PASS                                         NC2024.2
    2015. 

  2015. 201400             GO TO ADD-WRITE-F3-23-1.                             NC2024.2
    2016. 

  2016. 201500     GO TO ADD-FAIL-F3-23-1.                                      NC2024.2
    2017. 

  2017. 201600 ADD-DELETE-F3-23-1.                                              NC2024.2
    2018. 

  2018. 201700     PERFORM DE-LETE                                              NC2024.2
    2019. 

  2019. 201800     GO TO ADD-WRITE-F3-23-1.                                     NC2024.2
    2020. 

  2020. 201900 ADD-FAIL-F3-23-1.                                                NC2024.2
    2021. 

  2021. 202000     MOVE    FIELD1 OF ADD-16 TO COMPUTED-N                       NC2024.2
    2022. 

  2022. 202100     MOVE    99999 TO CORRECT-N                                   NC2024.2
    2023. 

  2023. 202200     PERFORM FAIL.                                                NC2024.2
    2024. 

  2024. 202300 ADD-WRITE-F3-23-1.                                               NC2024.2
    2025. 

  2025. 202400     PERFORM PRINT-DETAIL.                                        NC2024.2
    2026. 

  2026. 202500*                                                                 NC2024.2
    2027. 

  2027. 202600 ADD-INIT-F3-23-2.                                                NC2024.2
    2028. 

  2028. 202700     MOVE   "ADD-TEST-F3-23-2" TO PAR-NAME.                       NC2024.2
    2029. 

  2029. 202800     ADD     1 TO REC-CT.                                         NC2024.2
    2030. 

  2030. 202900 ADD-TEST-F3-23-2.                                                NC2024.2
    2031. 

  2031. 203000     IF      FIELD2 OF ADD-16 IS EQUAL TO 777.77                  NC2024.2
    2032. 

  2032. 203100             PERFORM PASS                                         NC2024.2
    2033. 

  2033. 203200             GO TO ADD-WRITE-F3-23-2.                             NC2024.2
    2034. 

  2034. 203300     GO TO ADD-FAIL-F3-23-2.                                      NC2024.2
    2035. 

  2035. 203400 ADD-DELETE-F3-23-2.                                              NC2024.2
    2036. 

  2036. 203500     PERFORM DE-LETE.                                             NC2024.2
    2037. 

  2037. 203600     GO TO ADD-WRITE-F3-23-2.                                     NC2024.2
    2038. 

  2038. 203700 ADD-FAIL-F3-23-2.                                                NC2024.2
    2039. 

  2039. 203800     MOVE    FIELD2 OF ADD-16 TO COMPUTED-N                       NC2024.2
    2040. 

  2040. 203900     MOVE   "+777.77" TO CORRECT-A                                NC2024.2
    2041. 

  2041. 204000     PERFORM FAIL.                                                NC2024.2
    2042. 

  2042. 204100 ADD-WRITE-F3-23-2.                                               NC2024.2
    2043. 

  2043. 204200     PERFORM PRINT-DETAIL.                                        NC2024.2
    2044. 

  2044. 204300*                                                                 NC2024.2
    2045. 

  2045. 204400 ADD-INIT-F3-23-3.                                                NC2024.2
    2046. 

  2046. 204500     MOVE   "ADD-TEST-F3-23-3" TO PAR-NAME.                       NC2024.2
    2047. 

  2047. 204600     ADD     1 TO REC-CT.                                         NC2024.2
    2048. 

  2048. 204700 ADD-TEST-F3-23-3.                                                NC2024.2
    2049. 

  2049. 204800     IF      FIELD3 OF ADD-16 IS EQUAL TO 555.5                   NC2024.2
    2050. 

  2050. 204900             PERFORM PASS                                         NC2024.2
    2051. 

  2051. 205000             GO TO ADD-WRITE-F3-23-3.                             NC2024.2
    2052. 

  2052. 205100     GO TO ADD-FAIL-F3-23-3.                                      NC2024.2
    2053. 

  2053. 205200 ADD-DELETE-F3-23-3.                                              NC2024.2
    2054. 

  2054. 205300     PERFORM DE-LETE.                                             NC2024.2
    2055. 

  2055. 205400     GO TO ADD-WRITE-F3-23-3.                                     NC2024.2
    2056. 

  2056. 205500 ADD-FAIL-F3-23-3.                                                NC2024.2
    2057. 

  2057. 205600     MOVE FIELD3 OF ADD-16 TO COMPUTED-N                          NC2024.2
    2058. 

  2058. 205700     MOVE 555.5 TO CORRECT-N                                      NC2024.2
    2059. 

  2059. 205800     PERFORM FAIL.                                                NC2024.2
    2060. 

  2060. 205900 ADD-WRITE-F3-23-3.                                               NC2024.2
    2061. 

  2061. 206000     PERFORM PRINT-DETAIL.                                        NC2024.2
    2062. 

  2062. 206100*                                                                 NC2024.2
    2063. 

  2063. 206200 ADD-INIT-F3-23-4.                                                NC2024.2
    2064. 

  2064. 206300     MOVE   "ADD-TEST-F3-23-4" TO PAR-NAME.                       NC2024.2
    2065. 

  2065. 206400     ADD     1 TO REC-CT.                                         NC2024.2
    2066. 

  2066. 206500 ADD-TEST-F3-23-4.                                                NC2024.2
    2067. 

  2067. 206600     IF      WRK-AN-00001 = "B"                                   NC2024.2
    2068. 

  2068. 206700             GO TO ADD-FAIL-F3-23-4.                              NC2024.2
    2069. 

  2069. 206800     PERFORM PASS                                                 NC2024.2
    2070. 

  2070. 206900     GO TO ADD-WRITE-F3-23-4.                                     NC2024.2
    2071. 

  2071. 207000 ADD-DELETE-F3-23-4.                                              NC2024.2
    2072. 

  2072. 207100     PERFORM DE-LETE.                                             NC2024.2
    2073. 

  2073. 207200     GO TO ADD-WRITE-F3-23-4.                                     NC2024.2
    2074. 

  2074. 207300 ADD-FAIL-F3-23-4.                                                NC2024.2
    2075. 

  2075. 207400     MOVE   "NOT ON SIZE ERROR SHOULD NOT BE EXECUTED"            NC2024.2
    2076. 

  2076. 207500          TO RE-MARK                                              NC2024.2
    2077. 

  2077. 207600     MOVE   "B"    TO COMPUTED-X                                  NC2024.2
    2078. 

  2078. 207700     MOVE    WRK-AN-00001  TO CORRECT-X                           NC2024.2
    2079. 

  2079. 207800     PERFORM FAIL.                                                NC2024.2
    2080. 

  2080. 207900 ADD-WRITE-F3-23-4.                                               NC2024.2
    2081. 

  2081. 208000     PERFORM PRINT-DETAIL.                                        NC2024.2
    2082. 

  2082. 208100*                                                                 NC2024.2
    2083. 

  2083. 208200 ADD-INIT-F3-23-5.                                                NC2024.2
    2084. 

  2084. 208300     MOVE   "ADD-TEST-F3-23-5" TO PAR-NAME.                       NC2024.2
    2085. 

  2085. 208400     ADD     1 TO REC-CT.                                         NC2024.2
    2086. 

  2086. 208500 ADD-TEST-F3-23-5.                                                NC2024.2
    2087. 

  2087. 208600     IF      WRK-XN-00001 = SPACE                                 NC2024.2
    2088. 

  2088. 208700             GO TO ADD-FAIL-F3-23-5.                              NC2024.2
    2089. 

  2089. 208800     PERFORM PASS                                                 NC2024.2
    2090. 

  2090. 208900     GO TO ADD-WRITE-F3-23-5.                                     NC2024.2
    2091. 

  2091. 209000 ADD-DELETE-F3-23-5.                                              NC2024.2
    2092. 

  2092. 209100     PERFORM DE-LETE.                                             NC2024.2
    2093. 

  2093. 209200     GO TO ADD-WRITE-F3-23-5.                                     NC2024.2
    2094. 

  2094. 209300 ADD-FAIL-F3-23-5.                                                NC2024.2
    2095. 

  2095. 209400     MOVE   "SCOPE TERMINATOR IGNORED" TO RE-MARK                 NC2024.2
    2096. 

  2096. 209500     MOVE   "B"   TO COMPUTED-X                                   NC2024.2
    2097. 

  2097. 209600     MOVE    WRK-AN-00001 TO CORRECT-X                            NC2024.2
    2098. 

  2098. 209700     PERFORM FAIL.                                                NC2024.2
    2099. 

  2099. 209800 ADD-WRITE-F3-23-5.                                               NC2024.2
    2100. 

  2100. 209900     PERFORM PRINT-DETAIL.                                        NC2024.2
    2101. 

  2101. 210000*                                                                 NC2024.2
    2102. 

  2102. 210100 ADD-INIT-F3-24.                                                  NC2024.2
    2103. 

  2103. 210200*    ===-->  EXPLICIT SCOPE TERMINATOR<--===                      NC2024.2
    2104. 

  2104. 210300*    ===-->     NO SIZE ERROR         <--===                      NC2024.2
    2105. 

  2105. 210400     MOVE   "VI-73 6.6" TO ANSI-REFERENCE.                        NC2024.2
    2106. 

  2106. 210500     MOVE   "ADD-TEST-F3-24-0" TO PAR-NAME.                       NC2024.2
    2107. 

  2107. 210600     MOVE    SPACE  TO WRK-XN-00001.                              NC2024.2
    2108. 

  2108. 210700     MOVE    SPACE  TO WRK-AN-00001.                              NC2024.2
    2109. 

  2109. 210800     MOVE    0      TO REC-CT.                                    NC2024.2
    2110. 

  2110. 210900     MOVE    1      TO FIELD1 OF ADD-15.                          NC2024.2
    2111. 

  2111. 211000     MOVE    32.1   TO FIELD2 OF ADD-15.                          NC2024.2
    2112. 

  2112. 211100     MOVE    123.4  TO FIELD3 OF ADD-15.                          NC2024.2
    2113. 

  2113. 211200     MOVE    88888  TO FIELD1 OF ADD-16.                          NC2024.2
    2114. 

  2114. 211300     MOVE    745.67 TO FIELD2 OF ADD-16.                          NC2024.2
    2115. 

  2115. 211400     MOVE    432.1  TO FIELD3 OF ADD-16.                          NC2024.2
    2116. 

  2116. 211500 ADD-TEST-F3-24-0.                                                NC2024.2
    2117. 

  2117. 211600     ADD     CORRESPONDING ADD-15 TO ADD-16                       NC2024.2
    2118. 

  2118. 211700             ON SIZE ERROR                                        NC2024.2
    2119. 

  2119. 211800             MOVE   "A" TO WRK-AN-00001                           NC2024.2
    2120. 

  2120. 211900         NOT ON SIZE ERROR                                        NC2024.2
    2121. 

  2121. 212000             MOVE   "B" TO WRK-AN-00001                           NC2024.2
    2122. 

  2122. 212100     END-ADD                                                      NC2024.2
    2123. 

  2123. 212200     MOVE   "B" TO WRK-XN-00001.                                  NC2024.2
    2124. 

  2124. 212300*                                                                 NC2024.2
    2125. 

  2125. 212400 ADD-INIT-F3-24-1.                                                NC2024.2
    2126. 

  2126. 212500     MOVE   "ADD-TEST-F3-24-1" TO PAR-NAME.                       NC2024.2
    2127. 

  2127. 212600     ADD     1 TO REC-CT.                                         NC2024.2
    2128. 

  2128. 212700 ADD-TEST-F3-24-1.                                                NC2024.2
    2129. 

  2129. 212800     IF      FIELD1 OF ADD-16 EQUAL TO 88889                      NC2024.2
    2130. 

  2130. 212900             PERFORM PASS                                         NC2024.2
    2131. 

  2131. 213000             GO TO ADD-WRITE-F3-24-1.                             NC2024.2
    2132. 

  2132. 213100     GO TO ADD-FAIL-F3-24-1.                                      NC2024.2
    2133. 

  2133. 213200 ADD-DELETE-F3-24-1.                                              NC2024.2
    2134. 

  2134. 213300     PERFORM DE-LETE.                                             NC2024.2
    2135. 

  2135. 213400     GO TO ADD-WRITE-F3-24-1.                                     NC2024.2
    2136. 

  2136. 213500 ADD-FAIL-F3-24-1.                                                NC2024.2
    2137. 

  2137. 213600     MOVE    FIELD1 OF ADD-16 TO COMPUTED-N                       NC2024.2
    2138. 

  2138. 213700     MOVE    88889 TO CORRECT-N                                   NC2024.2
    2139. 

  2139. 213800     PERFORM FAIL.                                                NC2024.2
    2140. 

  2140. 213900 ADD-WRITE-F3-24-1.                                               NC2024.2
    2141. 

  2141. 214000     PERFORM PRINT-DETAIL.                                        NC2024.2
    2142. 

  2142. 214100*                                                                 NC2024.2
    2143. 

  2143. 214200 ADD-INIT-F3-24-2.                                                NC2024.2
    2144. 

  2144. 214300     MOVE   "ADD-TEST-F3-24-2" TO PAR-NAME.                       NC2024.2
    2145. 

  2145. 214400     ADD     1 TO REC-CT.                                         NC2024.2
    2146. 

  2146. 214500 ADD-TEST-F3-24-2.                                                NC2024.2
    2147. 

  2147. 214600     IF      FIELD2 OF ADD-16 IS EQUAL TO 777.77                  NC2024.2
    2148. 

  2148. 214700             PERFORM PASS                                         NC2024.2
    2149. 

  2149. 214800             GO TO ADD-WRITE-F3-24-2.                             NC2024.2
    2150. 

  2150. 214900     GO TO ADD-FAIL-F3-24-2.                                      NC2024.2
    2151. 

  2151. 215000 ADD-DELETE-F3-24-2.                                              NC2024.2
    2152. 

  2152. 215100     PERFORM DE-LETE.                                             NC2024.2
    2153. 

  2153. 215200     GO TO ADD-WRITE-F3-24-2.                                     NC2024.2
    2154. 

  2154. 215300 ADD-FAIL-F3-24-2.                                                NC2024.2
    2155. 

  2155. 215400     MOVE    FIELD2 OF ADD-16 TO COMPUTED-N                       NC2024.2
    2156. 

  2156. 215500     MOVE   "+777.77" TO CORRECT-A                                NC2024.2
    2157. 

  2157. 215600     PERFORM FAIL.                                                NC2024.2
    2158. 

  2158. 215700 ADD-WRITE-F3-24-2.                                               NC2024.2
    2159. 

  2159. 215800     PERFORM PRINT-DETAIL.                                        NC2024.2
    2160. 

  2160. 215900*                                                                 NC2024.2
    2161. 

  2161. 216000 ADD-INIT-F3-24-3.                                                NC2024.2
    2162. 

  2162. 216100     MOVE   "ADD-TEST-F3-24-3" TO PAR-NAME.                       NC2024.2
    2163. 

  2163. 216200     ADD     1 TO REC-CT.                                         NC2024.2
    2164. 

  2164. 216300 ADD-TEST-F3-24-3.                                                NC2024.2
    2165. 

  2165. 216400     IF      FIELD3 OF ADD-16 IS EQUAL TO 555.5                   NC2024.2
    2166. 

  2166. 216500             PERFORM PASS                                         NC2024.2
    2167. 

  2167. 216600             GO TO ADD-WRITE-F3-24-3.                             NC2024.2
    2168. 

  2168. 216700     GO TO ADD-FAIL-F3-24-3.                                      NC2024.2
    2169. 

  2169. 216800 ADD-DELETE-F3-24-3.                                              NC2024.2
    2170. 

  2170. 216900     PERFORM DE-LETE.                                             NC2024.2
    2171. 

  2171. 217000     GO TO ADD-WRITE-F3-24-3.                                     NC2024.2
    2172. 

  2172. 217100 ADD-FAIL-F3-24-3.                                                NC2024.2
    2173. 

  2173. 217200     MOVE FIELD3 OF ADD-16 TO COMPUTED-N                          NC2024.2
    2174. 

  2174. 217300     MOVE 555.5 TO CORRECT-N                                      NC2024.2
    2175. 

  2175. 217400     PERFORM FAIL.                                                NC2024.2
    2176. 

  2176. 217500 ADD-WRITE-F3-24-3.                                               NC2024.2
    2177. 

  2177. 217600     PERFORM PRINT-DETAIL.                                        NC2024.2
    2178. 

  2178. 217700*                                                                 NC2024.2
    2179. 

  2179. 217800 ADD-INIT-F3-24-4.                                                NC2024.2
    2180. 

  2180. 217900     MOVE   "ADD-TEST-F3-24-4" TO PAR-NAME.                       NC2024.2
    2181. 

  2181. 218000     ADD     1 TO REC-CT.                                         NC2024.2
    2182. 

  2182. 218100 ADD-TEST-F3-24-4.                                                NC2024.2
    2183. 

  2183. 218200     IF      WRK-AN-00001 = "B"                                   NC2024.2
    2184. 

  2184. 218300             PERFORM PASS                                         NC2024.2
    2185. 

  2185. 218400             GO TO ADD-WRITE-F3-24-4.                             NC2024.2
    2186. 

  2186. 218500     GO TO ADD-FAIL-F3-24-4.                                      NC2024.2
    2187. 

  2187. 218600 ADD-DELETE-F3-24-4.                                              NC2024.2
    2188. 

  2188. 218700     PERFORM DE-LETE.                                             NC2024.2
    2189. 

  2189. 218800     GO TO ADD-WRITE-F3-24-4.                                     NC2024.2
    2190. 

  2190. 218900 ADD-FAIL-F3-24-4.                                                NC2024.2
    2191. 

  2191. 219000     MOVE   "NOT ON SIZE ERROR SHOULD BE EXECUTED"                NC2024.2
    2192. 

  2192. 219100          TO RE-MARK                                              NC2024.2
    2193. 

  2193. 219200     MOVE   "B"    TO COMPUTED-X                                  NC2024.2
    2194. 

  2194. 219300     MOVE    WRK-AN-00001  TO CORRECT-X                           NC2024.2
    2195. 

  2195. 219400     PERFORM FAIL.                                                NC2024.2
    2196. 

  2196. 219500 ADD-WRITE-F3-24-4.                                               NC2024.2
    2197. 

  2197. 219600     PERFORM PRINT-DETAIL.                                        NC2024.2
    2198. 

  2198. 219700*                                                                 NC2024.2
    2199. 

  2199. 219800 ADD-INIT-F3-24-5.                                                NC2024.2
    2200. 

  2200. 219900     MOVE   "ADD-TEST-F3-24-5" TO PAR-NAME.                       NC2024.2
    2201. 

  2201. 220000     ADD     1 TO REC-CT.                                         NC2024.2
    2202. 

  2202. 220100 ADD-TEST-F3-24-5.                                                NC2024.2
    2203. 

  2203. 220200     IF      WRK-XN-00001 = SPACE                                 NC2024.2
    2204. 

  2204. 220300             GO TO ADD-FAIL-F3-24-5.                              NC2024.2
    2205. 

  2205. 220400     PERFORM PASS                                                 NC2024.2
    2206. 

  2206. 220500     GO TO ADD-WRITE-F3-24-5.                                     NC2024.2
    2207. 

  2207. 220600 ADD-DELETE-F3-24-5.                                              NC2024.2
    2208. 

  2208. 220700     PERFORM DE-LETE.                                             NC2024.2
    2209. 

  2209. 220800     GO TO ADD-WRITE-F3-24-5.                                     NC2024.2
    2210. 

  2210. 220900 ADD-FAIL-F3-24-5.                                                NC2024.2
    2211. 

  2211. 221000     MOVE   "SCOPE TERMINATOR IGNORED" TO RE-MARK                 NC2024.2
    2212. 

  2212. 221100     MOVE   "B"   TO COMPUTED-X                                   NC2024.2
    2213. 

  2213. 221200     MOVE    WRK-AN-00001 TO CORRECT-X                            NC2024.2
    2214. 

  2214. 221300     PERFORM FAIL.                                                NC2024.2
    2215. 

  2215. 221400 ADD-WRITE-F3-24-5.                                               NC2024.2
    2216. 

  2216. 221500     PERFORM PRINT-DETAIL.                                        NC2024.2
    2217. 

  2217. 221600*                                                                 NC2024.2
    2218. 

  2218. 221700 CCVS-EXIT SECTION.                                               NC2024.2
    2219. 

  2219. 221800 CCVS-999999.                                                     NC2024.2
    2220. 

  2220. 221900     GO TO CLOSE-FILES.                                           NC2024.2
    2221. 

  2221.       *END-OF,NC202A
    2222.