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

https://github.com/uwol/proleap-cobol-parser · COBOL · 1980 lines · 1978 code · 0 blank · 2 comment · 0 complexity · 3b8bf5e8db886a5e747a2e7137c9173c MD5 · raw file 

    

  1. *HEADER,COBOL,NC253A                                                            
    2. 

  2. 000100 IDENTIFICATION DIVISION.                                         NC2534.2
    3. 

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

  4. 000300     NC253A.                                                      NC2534.2
    5. 

  5. 000400****************************************************************  NC2534.2
    6. 

  6. 000500*                                                              *  NC2534.2
    7. 

  7. 000600*    VALIDATION FOR:-                                          *  NC2534.2
    8. 

  8. 000700*                                                              *  NC2534.2
    9. 

  9. 000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC2534.2
    10. 

  10. 000900*                                                              *  NC2534.2
    11. 

  11. 001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC2534.2
    12. 

  12. 001100*                                                              *  NC2534.2
    13. 

  13. 001200****************************************************************  NC2534.2
    14. 

  14. 001300*                                                              *  NC2534.2
    15. 

  15. 001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC2534.2
    16. 

  16. 001500*                                                              *  NC2534.2
    17. 

  17. 001600*        X-55  - SYSTEM PRINTER NAME.                          *  NC2534.2
    18. 

  18. 001700*        X-82  - SOURCE COMPUTER NAME.                         *  NC2534.2
    19. 

  19. 001800*        X-83  - OBJECT COMPUTER NAME.                         *  NC2534.2
    20. 

  20. 001900*                                                              *  NC2534.2
    21. 

  21. 002000****************************************************************  NC2534.2
    22. 

  22. 002100                                                                  NC2534.2
    23. 

  23. 002200*                                                                 NC2534.2
    24. 

  24. 002300*    PROGRAM NC202A TESTS FORMAT3 OF THE SUBTRACT STATEMENT.      NC2534.2
    25. 

  25. 002400*                                                                 NC2534.2
    26. 

  26. 002500*                                                                 NC2534.2
    27. 

  27. 002600 ENVIRONMENT DIVISION.                                            NC2534.2
    28. 

  28. 002700 CONFIGURATION SECTION.                                           NC2534.2
    29. 

  29. 002800 SOURCE-COMPUTER.                                                 NC2534.2
    30. 

  30. 002900     XXXXX082.                                                    NC2534.2
    31. 

  31. 003000 OBJECT-COMPUTER.                                                 NC2534.2
    32. 

  32. 003100     XXXXX083.                                                    NC2534.2
    33. 

  33. 003200 INPUT-OUTPUT SECTION.                                            NC2534.2
    34. 

  34. 003300 FILE-CONTROL.                                                    NC2534.2
    35. 

  35. 003400     SELECT PRINT-FILE ASSIGN TO                                  NC2534.2
    36. 

  36. 003500     XXXXX055.                                                    NC2534.2
    37. 

  37. 003600 DATA DIVISION.                                                   NC2534.2
    38. 

  38. 003700 FILE SECTION.                                                    NC2534.2
    39. 

  39. 003800 FD  PRINT-FILE.                                                  NC2534.2
    40. 

  40. 003900 01  PRINT-REC PICTURE X(120).                                    NC2534.2
    41. 

  41. 004000 01  DUMMY-RECORD PICTURE X(120).                                 NC2534.2
    42. 

  42. 004100 WORKING-STORAGE SECTION.                                         NC2534.2
    43. 

  43. 004200 01  TABLE1.                                                      NC2534.2
    44. 

  44. 004300     02  RECORD1                 PICTURE 99.                      NC2534.2
    45. 

  45. 004400     02  RECORD2                 PICTURE 99                       NC2534.2
    46. 

  46. 004500                                 OCCURS 2 TIMES                   NC2534.2
    47. 

  47. 004600                                 INDEXED BY INDEX1.               NC2534.2
    48. 

  48. 004700     02  RECORD3                 PICTURE 99.                      NC2534.2
    49. 

  49. 004800 01  TABLE2.                                                      NC2534.2
    50. 

  50. 004900     02  RECORD1                 PICTURE 99.                      NC2534.2
    51. 

  51. 005000     02  RECORD2                 PICTURE 99                       NC2534.2
    52. 

  52. 005100                                 OCCURS 2 TIMES                   NC2534.2
    53. 

  53. 005200                                 INDEXED BY INDEX2.               NC2534.2
    54. 

  54. 005300     02  RECORD3                 PICTURE 99.                      NC2534.2
    55. 

  55. 005400 77  WRK-AN-00001                PICTURE A.                       NC2534.2
    56. 

  56. 005500 77  WRK-XN-00001                PICTURE X.                       NC2534.2
    57. 

  57. 005600 77  WRK-DS-01V00                PICTURE S9.                      NC2534.2
    58. 

  58. 005700 77  WRK-DS-02V00                PICTURE S99.                     NC2534.2
    59. 

  59. 005800 77  WRK-DS-06V06                PICTURE S9(6)V9(6).              NC2534.2
    60. 

  60. 005900 77  WRK-DS-05V00                PICTURE S9(5).                   NC2534.2
    61. 

  61. 006000 77  AZERO-DS-05V05              PICTURE S9(5)V9(5) VALUE ZERO.   NC2534.2
    62. 

  62. 006100 77  WRK-DS-09V09                PICTURE S9(9)V9(9).              NC2534.2
    63. 

  63. 006200 77  WRK-DS-18V00-S REDEFINES WRK-DS-09V09 PICTURE S9(18).        NC2534.2
    64. 

  64. 006300 77  A18ONES-DS-09V09            PICTURE S9(9)V9(9)               NC2534.2
    65. 

  65. 006400                                 VALUE 111111111.111111111.       NC2534.2
    66. 

  66. 006500 77  WRK-DS-18V00       PICTURE S9(18) VALUE 111111111111111111.  NC2534.2
    67. 

  67. 006600 77  A05ONES-DS-05V00            PICTURE S9(5) VALUE 11111.       NC2534.2
    68. 

  68. 006700 77  A99-DS-02V00                PICTURE S99   VALUE 99.          NC2534.2
    69. 

  69. 006800 77  WRK-DS-03V00                PICTURE S999.                    NC2534.2
    70. 

  70. 006900 77  WRK-DS-06V00                PICTURE S9(6).                   NC2534.2
    71. 

  71. 007000 77  WRK-DS-0201P                PICTURE S99P.                    NC2534.2
    72. 

  72. 007100 77  WRK-DS-03V10                PICTURE S9(3)V9(10).             NC2534.2
    73. 

  73. 007200 77  ADD-1                   PICTURE S9(8)V99  VALUE 1.           NC2534.2
    74. 

  74. 007300 77  ADD-2                   PICTURE S9(6)V9(4) VALUE 1.          NC2534.2
    75. 

  75. 007400 77  ADD-3                   PICTURE S9(5)     VALUE -1.          NC2534.2
    76. 

  76. 007500 77  ADD-4                   PICTURE 9         VALUE 9.           NC2534.2
    77. 

  77. 007600 77  ADD-5                   PICTURE 9         VALUE 9.           NC2534.2
    78. 

  78. 007700 77  ADD-6                   PICTURE 9(5)      VALUE 99999.       NC2534.2
    79. 

  79. 007800 77  ADD-7                   PICTURE 9         VALUE 1.           NC2534.2
    80. 

  80. 007900 77  ADD-8                   PICTURE 9.                           NC2534.2
    81. 

  81. 008000 77  ADD-9                   PICTURE S9(8)V99  VALUE 5.9.         NC2534.2
    82. 

  82. 008100 77  ADD-10                  PICTURE 9(5)      VALUE 52800.       NC2534.2
    83. 

  83. 008200 77  ADD-11                  PICTURE 99999.                       NC2534.2
    84. 

  84. 008300 77  ADD-12                  PICTURE PP9       VALUE .001.        NC2534.2
    85. 

  85. 008400 77  ADD-13                  PICTURE 9PP       VALUE 100.         NC2534.2
    86. 

  86. 008500 77  ADD-14                  PICTURE 999V999.                     NC2534.2
    87. 

  87. 008600 77  W-1                     PICTURE IS 9.                        NC2534.2
    88. 

  88. 008700 77  W-2                     PICTURE IS 99.                       NC2534.2
    89. 

  89. 008800 77  W-3                     PICTURE IS 999.                      NC2534.2
    90. 

  90. 008900 77  W-4                PICTURE 9  VALUE 0.                       NC2534.2
    91. 

  91. 009000 77  W-6                     PICTURE IS 999    VALUE IS ZERO.     NC2534.2
    92. 

  92. 009100 77  W-9                     PICTURE 999.                         NC2534.2
    93. 

  93. 009200 77  D-5                PICTURE S999  VALUE -1.                   NC2534.2
    94. 

  94. 009300 77  D-9                PICTURE 9(4)V9(4)  VALUE 111.1189.        NC2534.2
    95. 

  95. 009400 77  ONE                PICTURE 9  VALUE 1.                       NC2534.2
    96. 

  96. 009500 77  TWO                PICTURE S9  VALUE 2.                      NC2534.2
    97. 

  97. 009600 77  THREE              PICTURE S9  VALUE 3.                      NC2534.2
    98. 

  98. 009700 77  FOUR               PICTURE S9  VALUE 4.                      NC2534.2
    99. 

  99. 009800 77  FIVE               PICTURE S9  VALUE 5.                      NC2534.2
    100. 

  100. 009900 77  SIX                PICTURE S9  VALUE 6.                      NC2534.2
    101. 

  101. 010000 77  SEVEN              PICTURE S9  VALUE 7.                      NC2534.2
    102. 

  102. 010100 77  EIGHT              PICTURE 9  VALUE 8.                       NC2534.2
    103. 

  103. 010200 77  NINE               PICTURE S9  VALUE 9.                      NC2534.2
    104. 

  104. 010300 77  TEN                PICTURE S99  VALUE 10.                    NC2534.2
    105. 

  105. 010400 77  FIFTEEN            PICTURE S99  VALUE 15.                    NC2534.2
    106. 

  106. 010500 77  TWENTY             PICTURE S99  VALUE 20.                    NC2534.2
    107. 

  107. 010600 77  TWENTY-5           PICTURE S99  VALUE 25.                    NC2534.2
    108. 

  108. 010700 01  WRK-DS-09V00                 PICTURE S9(9)  VALUE ZERO.      NC2534.2
    109. 

  109. 010800 01  GRP-FOR-ADD-CORR-1.                                          NC2534.2
    110. 

  110. 010900     02  GRP-SUBTRACT-CORR-1.                                     NC2534.2
    111. 

  111. 011000     03  FILLER                  PICTURE S99  VALUE 91.           NC2534.2
    112. 

  112. 011100     03  ADD-CORR-2              PICTURE S99  VALUE 22.           NC2534.2
    113. 

  113. 011200     03  ADD-CORR-1              PICTURE S99 VALUE 11.            NC2534.2
    114. 

  114. 011300     03  ADD-CORR-A              PICTURE S99 VALUE 93.            NC2534.2
    115. 

  115. 011400     03  ADD-CORR-4              PICTURE S99 VALUE 44.            NC2534.2
    116. 

  116. 011500     03  ADD-CORR-3              PICTURE S99 VALUE 33.            NC2534.2
    117. 

  117. 011600     03  ADD-CORR-6              PICTURE S99 VALUE 66.            NC2534.2
    118. 

  118. 011700     03  ADD-CORR-5              PICTURE S99 VALUE 55.            NC2534.2
    119. 

  119. 011800     03  ADD-CORR-8              PICTURE S99 VALUE 88.            NC2534.2
    120. 

  120. 011900     03  ADD-CORR-7              PICTURE S99 VALUE 77.            NC2534.2
    121. 

  121. 012000     03  ADD-CORR-9              PICTURE S99 VALUE 99.            NC2534.2
    122. 

  122. 012100 01  GRP-FOR-ADD-CORR-R.                                          NC2534.2
    123. 

  123. 012200     02  GRP-SUBTRACT-CORR-1.                                     NC2534.2
    124. 

  124. 012300     05  ADD-CORR-1              PICTURE 99.                      NC2534.2
    125. 

  125. 012400     05  ADD-CORR-2              PICTURE 99.                      NC2534.2
    126. 

  126. 012500     05  ADD-CORR-3              PICTURE 99.                      NC2534.2
    127. 

  127. 012600     05  ADD-CORR-4              PICTURE 99.                      NC2534.2
    128. 

  128. 012700     05  ADD-CORR-5              PICTURE 9P.                      NC2534.2
    129. 

  129. 012800     05  ADD-CORR-6              PICTURE 999.                     NC2534.2
    130. 

  130. 012900     05  ADD-CORR-7              PICTURE 99.                      NC2534.2
    131. 

  131. 013000     05  ADD-CORR-8              PICTURE 99.                      NC2534.2
    132. 

  132. 013100     05  ADD-CORR-9              PICTURE 99.                      NC2534.2
    133. 

  133. 013200     05  FILLER                  PICTURE 99.                      NC2534.2
    134. 

  134. 013300 01  GRP-FOR-ADD-CORR-2.                                          NC2534.2
    135. 

  135. 013400     02  GRP-ADD-SUB-CORR.                                        NC2534.2
    136. 

  136. 013500     03  GRP-SUBTRACT-CORR-1.                                     NC2534.2
    137. 

  137. 013600     04  ADD-CORR-1              PICTURE S99  VALUE 11.           NC2534.2
    138. 

  138. 013700     04  ADD-CORR-2              PICTURE S99  VALUE 22.           NC2534.2
    139. 

  139. 013800     04  ADD-CORR-5              PICTURE S99  VALUE 55.           NC2534.2
    140. 

  140. 013900     04  ADD-CORR-4              PICTURE S99  VALUE 44.           NC2534.2
    141. 

  141. 014000     04  ADD-CORR-3              PICTURE S99  VALUE 33.           NC2534.2
    142. 

  142. 014100     04  ADD-CORR-6              PICTURE S99  VALUE 66.           NC2534.2
    143. 

  143. 014200     04  ADD-CORR-7              PICTURE S99  VALUE 77.           NC2534.2
    144. 

  144. 014300     04  ADD-CORR-8              PICTURE S99  VALUE 88.           NC2534.2
    145. 

  145. 014400     04  ADD-CORR-9              PICTURE S99  VALUE 99.           NC2534.2
    146. 

  146. 014500     04  ADD-CORR-B              PICTURE S99  VALUE 92.           NC2534.2
    147. 

  147. 014600     04  ADD-CORR-0              PICTURE S99  VALUE 00.           NC2534.2
    148. 

  148. 014700 01  GRP-FOR-ADD-CORR-A.                                          NC2534.2
    149. 

  149. 014800     02  GRP-SUBTRACT-CORR-3.                                     NC2534.2
    150. 

  150. 014900         03  GRP-SUBTRACT-CORR-1.                                 NC2534.2
    151. 

  151. 015000             05  ADD-CORR-4      PICTURE S999   VALUE 044.        NC2534.2
    152. 

  152. 015100             05  ADD-CORR-3      PICTURE S999   VALUE 033.        NC2534.2
    153. 

  153. 015200             05  ADD-CORR-2      PICTURE S999   VALUE 022.        NC2534.2
    154. 

  154. 015300             05  ADD-CORR-1      PICTURE S999   VALUE 111.        NC2534.2
    155. 

  155. 015400 01  ADD-15.                                                      NC2534.2
    156. 

  156. 015500     02 FIELD1               PICTURE 99999     VALUE 1.           NC2534.2
    157. 

  157. 015600     02 FIELD2               PICTURE 999V99    VALUE 32.1.        NC2534.2
    158. 

  158. 015700     02 FIELD3               PICTURE 999V9     VALUE 123.4.       NC2534.2
    159. 

  159. 015800 01  ADD-16.                                                      NC2534.2
    160. 

  160. 015900     02 FIELD1               PICTURE 99999     VALUE 99999.       NC2534.2
    161. 

  161. 016000     02 FIELD2               PICTURE 999V99    VALUE 745.67.      NC2534.2
    162. 

  162. 016100     02 FIELD3               PICTURE 999V9     VALUE 432.1.       NC2534.2
    163. 

  163. 016200 01  SUBTRACT-DATA.                                               NC2534.2
    164. 

  164. 016300     02 SUBTR-1              PICTURE 9         VALUE 1.           NC2534.2
    165. 

  165. 016400     02 SUBTR-2              PICTURE S99       VALUE 99.          NC2534.2
    166. 

  166. 016500     02 SUBTR-3              PICTURE S9V99     VALUE -1.          NC2534.2
    167. 

  167. 016600     02 SUBTR-4              PICTURE SPP9      VALUE .001.        NC2534.2
    168. 

  168. 016700     02 SUBTR-5              PICTURE S9PP      VALUE 100.         NC2534.2
    169. 

  169. 016800     02  SUBTR-6                  PICTURE 9 VALUE 1.              NC2534.2
    170. 

  170. 016900     02  SUBTR-7                  PICTURE S99  VALUE 99.          NC2534.2
    171. 

  171. 017000     02  SUBTR-8                  PICTURE S9V99  VALUE -9.99.     NC2534.2
    172. 

  172. 017100     02 SUBTR-9              PICTURE SV999.                       NC2534.2
    173. 

  173. 017200     02  SUBTR-10                 PICTURE S999  VALUE 100.        NC2534.2
    174. 

  174. 017300     02 SUBTR-11             PICTURE S999V999.                    NC2534.2
    175. 

  175. 017400     02 SUBTR-12.                                                 NC2534.2
    176. 

  176. 017500     03 SUBTR-13             PICTURE 9         VALUE 1.           NC2534.2
    177. 

  177. 017600     03 SUBTR-14             PICTURE S9V999    VALUE -1.725.      NC2534.2
    178. 

  178. 017700     03 SUBTR-15             PICTURE S99V99    VALUE 76.76.       NC2534.2
    179. 

  179. 017800     02 SUBTR-16.                                                 NC2534.2
    180. 

  180. 017900     03 SUBTR-13             PICTURE 9         VALUE 2.           NC2534.2
    181. 

  181. 018000     03 SUBTR-14             PICTURE S9V99     VALUE .23.         NC2534.2
    182. 

  182. 018100     03 SUBTR-15             PICTURE S9V99     VALUE 1.           NC2534.2
    183. 

  183. 018200 01  CORR-DATA-1.                                                 NC2534.2
    184. 

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

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

  186. 018500     03 XYZ-3                PICTURE IS 99     VALUE IS ZERO.     NC2534.2
    187. 

  187. 018600     03 XYZ-4                PICTURE IS 99     VALUE IS ZERO.     NC2534.2
    188. 

  188. 018700     03 XYZ-5                PICTURE IS 99     VALUE IS ZERO.     NC2534.2
    189. 

  189. 018800     03 XYZ-6                PICTURE IS 99     VALUE IS ZERO.     NC2534.2
    190. 

  190. 018900 01  CORR-DATA-2.                                                 NC2534.2
    191. 

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

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

  193. 019200     03 XYZ-3                PICTURE IS 99     VALUE IS ZERO.     NC2534.2
    194. 

  194. 019300     03 XYZ-4                PICTURE IS 99     VALUE IS ZERO.     NC2534.2
    195. 

  195. 019400     03 XYZ-5                PICTURE IS 99     VALUE IS ZERO.     NC2534.2
    196. 

  196. 019500     03 XYZ-6                PICTURE IS 99     VALUE IS ZERO.     NC2534.2
    197. 

  197. 019600 01  CORR-DATA-3.                                                 NC2534.2
    198. 

  198. 019700     03 XYZ-4                PICTURE IS 99     VALUE IS ZERO.     NC2534.2
    199. 

  199. 019800     03 XYZ-3                PICTURE IS 99     VALUE IS ZERO.     NC2534.2
    200. 

  200. 019900     03 XYZ-6                PICTURE IS 99     VALUE IS ZERO.     NC2534.2
    201. 

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

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

  203. 020200     03 XYZ-1                PICTURE IS 99     VALUE IS ZERO.     NC2534.2
    204. 

  204. 020300 01  CORR-DATA-4.                                                 NC2534.2
    205. 

  205. 020400     03 XYZ-11               PICTURE IS 99.                       NC2534.2
    206. 

  206. 020500     03 XYZ-12               PICTURE IS 99.                       NC2534.2
    207. 

  207. 020600     03 XYZ-13               PICTURE IS 99.                       NC2534.2
    208. 

  208. 020700     03 XYZ-14               PICTURE IS 99.                       NC2534.2
    209. 

  209. 020800     03 XYZ-15               PICTURE IS 99.                       NC2534.2
    210. 

  210. 020900     03 XYZ-16               PICTURE IS 99.                       NC2534.2
    211. 

  211. 021000 01  CORR-DATA-5.                                                 NC2534.2
    212. 

  212. 021100     03 XYZ-1                PICTURE 99.                          NC2534.2
    213. 

  213. 021200     03 XYZ-2                PICTURE 99.                          NC2534.2
    214. 

  214. 021300     03 XYZ-13               PICTURE IS 99.                       NC2534.2
    215. 

  215. 021400     03 XYZ-14               PICTURE IS 99.                       NC2534.2
    216. 

  216. 021500     03 FILLER               PICTURE IS 99.                       NC2534.2
    217. 

  217. 021600     03 XYZ-11               PICTURE IS 99.                       NC2534.2
    218. 

  218. 021700     03 XYZ-12               PICTURE IS 99.                       NC2534.2
    219. 

  219. 021800 01  CORR-DATA-6.                                                 NC2534.2
    220. 

  220. 021900     03 XYZ-11               PICTURE IS 99.                       NC2534.2
    221. 

  221. 022000     03 XYZ-12               PICTURE IS 99.                       NC2534.2
    222. 

  222. 022100     03 FILLER               PICTURE IS 99.                       NC2534.2
    223. 

  223. 022200     03 XYZ-1                PICTURE IS 99.                       NC2534.2
    224. 

  224. 022300     03 XYZ-2                PICTURE IS 9(2).                     NC2534.2
    225. 

  225. 022400     03 FILLER               PICTURE IS 99.                       NC2534.2
    226. 

  226. 022500 01  CORR-DATA-7.                                                 NC2534.2
    227. 

  227. 022600     02 XYZ-1                PICTURE 99V99     VALUE 10.45.       NC2534.2
    228. 

  228. 022700     02 XYZ-6                PICTURE 999V9     VALUE 100.5.       NC2534.2
    229. 

  229. 022800     02 XYZ-11               PICTURE 99V9      VALUE ZERO.        NC2534.2
    230. 

  230. 022900     02 XYZ-2                PICTURE 99V9      VALUE 0.9.         NC2534.2
    231. 

  231. 023000 01  42-DATANAMES.                                                NC2534.2
    232. 

  232. 023100     02  DNAME1   PICTURE 9      VALUE 1        COMPUTATIONAL.    NC2534.2
    233. 

  233. 023200     02  DNAME2   PICTURE 99      VALUE 1  COMPUTATIONAL.         NC2534.2
    234. 

  234. 023300     02  DNAME3   PICTURE 999     VALUE 1  COMPUTATIONAL.         NC2534.2
    235. 

  235. 023400     02  DNAME4   PICTURE 9(4)    VALUE 1  COMPUTATIONAL.         NC2534.2
    236. 

  236. 023500     02  DNAME5   PICTURE 9(5)    VALUE 1  COMPUTATIONAL.         NC2534.2
    237. 

  237. 023600     02  DNAME6   PICTURE 9(6)    VALUE 1  COMPUTATIONAL.         NC2534.2
    238. 

  238. 023700     02  DNAME7   PICTURE 9(7)    VALUE 1  COMPUTATIONAL.         NC2534.2
    239. 

  239. 023800     02  DNAME8   PICTURE 9(8)    VALUE 1  COMPUTATIONAL.         NC2534.2
    240. 

  240. 023900     02  DNAME9   PICTURE 9(9)    VALUE 1  COMPUTATIONAL.         NC2534.2
    241. 

  241. 024000     02  DNAME10  PICTURE 9(10)   VALUE 1.                        NC2534.2
    242. 

  242. 024100     02  DNAME11  PICTURE 9(11)   VALUE 1.                        NC2534.2
    243. 

  243. 024200     02  DNAME12  PICTURE 9(12)   VALUE 1.                        NC2534.2
    244. 

  244. 024300     02  DNAME13  PICTURE 9(13)   VALUE 1.                        NC2534.2
    245. 

  245. 024400     02  DNAME14  PICTURE 9(14)   VALUE 1.                        NC2534.2
    246. 

  246. 024500     02  DNAME15  PICTURE 9(15)   VALUE 1.                        NC2534.2
    247. 

  247. 024600     02  DNAME16  PICTURE 9(16)   VALUE 1.                        NC2534.2
    248. 

  248. 024700     02  DNAME17  PICTURE 9(17)   VALUE 1.                        NC2534.2
    249. 

  249. 024800     02  DNAME18  PICTURE 9(18)   VALUE 1.                        NC2534.2
    250. 

  250. 024900     02  DNAME19  PICTURE 9       VALUE 1.                        NC2534.2
    251. 

  251. 025000     02  DNAME20  PICTURE 99      VALUE 1.                        NC2534.2
    252. 

  252. 025100     02  DNAME21  PICTURE 999     VALUE 1.                        NC2534.2
    253. 

  253. 025200     02  DNAME22  PICTURE 9(18)  VALUE ZERO.                      NC2534.2
    254. 

  254. 025300     02  DNAME23  PICTURE 9(18)  VALUE ZERO.                      NC2534.2
    255. 

  255. 025400     02  DNAME24  PICTURE 9(18)  VALUE ZERO.                      NC2534.2
    256. 

  256. 025500     02  DNAME25  PICTURE 9(18)  VALUE ZERO.                      NC2534.2
    257. 

  257. 025600     02  DNAME26  PICTURE 9(18)  VALUE ZERO.                      NC2534.2
    258. 

  258. 025700     02  DNAME27  PICTURE 9(18)  VALUE ZERO.                      NC2534.2
    259. 

  259. 025800     02  DNAME28  PICTURE 9(18)  VALUE ZERO.                      NC2534.2
    260. 

  260. 025900     02  DNAME29  PICTURE 9(18)  VALUE ZERO.                      NC2534.2
    261. 

  261. 026000     02  DNAME30   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2534.2
    262. 

  262. 026100     02  DNAME31   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2534.2
    263. 

  263. 026200     02  DNAME32   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2534.2
    264. 

  264. 026300     02  DNAME33   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2534.2
    265. 

  265. 026400     02  DNAME34   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2534.2
    266. 

  266. 026500     02  DNAME35   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2534.2
    267. 

  267. 026600     02  DNAME36   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2534.2
    268. 

  268. 026700     02  DNAME37   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2534.2
    269. 

  269. 026800     02  DNAME38   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2534.2
    270. 

  270. 026900     02  DNAME39   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2534.2
    271. 

  271. 027000     02  DNAME40   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2534.2
    272. 

  272. 027100     02  DNAME41   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2534.2
    273. 

  273. 027200     02  DNAME42   PICTURE 9(18)  VALUE ZERO COMPUTATIONAL.       NC2534.2
    274. 

  274. 027300 01  TEST-RESULTS.                                                NC2534.2
    275. 

  275. 027400     02 FILLER                   PIC X      VALUE SPACE.          NC2534.2
    276. 

  276. 027500     02 FEATURE                  PIC X(20)  VALUE SPACE.          NC2534.2
    277. 

  277. 027600     02 FILLER                   PIC X      VALUE SPACE.          NC2534.2
    278. 

  278. 027700     02 P-OR-F                   PIC X(5)   VALUE SPACE.          NC2534.2
    279. 

  279. 027800     02 FILLER                   PIC X      VALUE SPACE.          NC2534.2
    280. 

  280. 027900     02  PAR-NAME.                                                NC2534.2
    281. 

  281. 028000       03 FILLER                 PIC X(19)  VALUE SPACE.          NC2534.2
    282. 

  282. 028100       03  PARDOT-X              PIC X      VALUE SPACE.          NC2534.2
    283. 

  283. 028200       03 DOTVALUE               PIC 99     VALUE ZERO.           NC2534.2
    284. 

  284. 028300     02 FILLER                   PIC X(8)   VALUE SPACE.          NC2534.2
    285. 

  285. 028400     02 RE-MARK                  PIC X(61).                       NC2534.2
    286. 

  286. 028500 01  TEST-COMPUTED.                                               NC2534.2
    287. 

  287. 028600     02 FILLER                   PIC X(30)  VALUE SPACE.          NC2534.2
    288. 

  288. 028700     02 FILLER                   PIC X(17)  VALUE                 NC2534.2
    289. 

  289. 028800            "       COMPUTED=".                                   NC2534.2
    290. 

  290. 028900     02 COMPUTED-X.                                               NC2534.2
    291. 

  291. 029000     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          NC2534.2
    292. 

  292. 029100     03 COMPUTED-N               REDEFINES COMPUTED-A             NC2534.2
    293. 

  293. 029200                                 PIC -9(9).9(9).                  NC2534.2
    294. 

  294. 029300     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         NC2534.2
    295. 

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

  296. 029500     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     NC2534.2
    297. 

  297. 029600     03       CM-18V0 REDEFINES COMPUTED-A.                       NC2534.2
    298. 

  298. 029700         04 COMPUTED-18V0                    PIC -9(18).          NC2534.2
    299. 

  299. 029800         04 FILLER                           PIC X.               NC2534.2
    300. 

  300. 029900     03 FILLER PIC X(50) VALUE SPACE.                             NC2534.2
    301. 

  301. 030000 01  TEST-CORRECT.                                                NC2534.2
    302. 

  302. 030100     02 FILLER PIC X(30) VALUE SPACE.                             NC2534.2
    303. 

  303. 030200     02 FILLER PIC X(17) VALUE "       CORRECT =".                NC2534.2
    304. 

  304. 030300     02 CORRECT-X.                                                NC2534.2
    305. 

  305. 030400     03 CORRECT-A                  PIC X(20) VALUE SPACE.         NC2534.2
    306. 

  306. 030500     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      NC2534.2
    307. 

  307. 030600     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         NC2534.2
    308. 

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

  309. 030800     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     NC2534.2
    310. 

  310. 030900     03      CR-18V0 REDEFINES CORRECT-A.                         NC2534.2
    311. 

  311. 031000         04 CORRECT-18V0                     PIC -9(18).          NC2534.2
    312. 

  312. 031100         04 FILLER                           PIC X.               NC2534.2
    313. 

  313. 031200     03 FILLER PIC X(2) VALUE SPACE.                              NC2534.2
    314. 

  314. 031300     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     NC2534.2
    315. 

  315. 031400 01  CCVS-C-1.                                                    NC2534.2
    316. 

  316. 031500     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE              PANC2534.2
    317. 

  317. 031600-    "SS  PARAGRAPH-NAME                                          NC2534.2
    318. 

  318. 031700-    "       REMARKS".                                            NC2534.2
    319. 

  319. 031800     02 FILLER                     PIC X(20)    VALUE SPACE.      NC2534.2
    320. 

  320. 031900 01  CCVS-C-2.                                                    NC2534.2
    321. 

  321. 032000     02 FILLER                     PIC X        VALUE SPACE.      NC2534.2
    322. 

  322. 032100     02 FILLER                     PIC X(6)     VALUE "TESTED".   NC2534.2
    323. 

  323. 032200     02 FILLER                     PIC X(15)    VALUE SPACE.      NC2534.2
    324. 

  324. 032300     02 FILLER                     PIC X(4)     VALUE "FAIL".     NC2534.2
    325. 

  325. 032400     02 FILLER                     PIC X(94)    VALUE SPACE.      NC2534.2
    326. 

  326. 032500 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       NC2534.2
    327. 

  327. 032600 01  REC-CT                        PIC 99       VALUE ZERO.       NC2534.2
    328. 

  328. 032700 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       NC2534.2
    329. 

  329. 032800 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       NC2534.2
    330. 

  330. 032900 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       NC2534.2
    331. 

  331. 033000 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       NC2534.2
    332. 

  332. 033100 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       NC2534.2
    333. 

  333. 033200 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       NC2534.2
    334. 

  334. 033300 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      NC2534.2
    335. 

  335. 033400 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       NC2534.2
    336. 

  336. 033500 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     NC2534.2
    337. 

  337. 033600 01  CCVS-H-1.                                                    NC2534.2
    338. 

  338. 033700     02  FILLER                    PIC X(39)    VALUE SPACES.     NC2534.2
    339. 

  339. 033800     02  FILLER                    PIC X(42)    VALUE             NC2534.2
    340. 

  340. 033900     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 NC2534.2
    341. 

  341. 034000     02  FILLER                    PIC X(39)    VALUE SPACES.     NC2534.2
    342. 

  342. 034100 01  CCVS-H-2A.                                                   NC2534.2
    343. 

  343. 034200   02  FILLER                        PIC X(40)  VALUE SPACE.      NC2534.2
    344. 

  344. 034300   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  NC2534.2
    345. 

  345. 034400   02  FILLER                        PIC XXXX   VALUE             NC2534.2
    346. 

  346. 034500     "4.2 ".                                                      NC2534.2
    347. 

  347. 034600   02  FILLER                        PIC X(28)  VALUE             NC2534.2
    348. 

  348. 034700            " COPY - NOT FOR DISTRIBUTION".                       NC2534.2
    349. 

  349. 034800   02  FILLER                        PIC X(41)  VALUE SPACE.      NC2534.2
    350. 

  350. 034900                                                                  NC2534.2
    351. 

  351. 035000 01  CCVS-H-2B.                                                   NC2534.2
    352. 

  352. 035100   02  FILLER                        PIC X(15)  VALUE             NC2534.2
    353. 

  353. 035200            "TEST RESULT OF ".                                    NC2534.2
    354. 

  354. 035300   02  TEST-ID                       PIC X(9).                    NC2534.2
    355. 

  355. 035400   02  FILLER                        PIC X(4)   VALUE             NC2534.2
    356. 

  356. 035500            " IN ".                                               NC2534.2
    357. 

  357. 035600   02  FILLER                        PIC X(12)  VALUE             NC2534.2
    358. 

  358. 035700     " HIGH       ".                                              NC2534.2
    359. 

  359. 035800   02  FILLER                        PIC X(22)  VALUE             NC2534.2
    360. 

  360. 035900            " LEVEL VALIDATION FOR ".                             NC2534.2
    361. 

  361. 036000   02  FILLER                        PIC X(58)  VALUE             NC2534.2
    362. 

  362. 036100     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC2534.2
    363. 

  363. 036200 01  CCVS-H-3.                                                    NC2534.2
    364. 

  364. 036300     02  FILLER                      PIC X(34)  VALUE             NC2534.2
    365. 

  365. 036400            " FOR OFFICIAL USE ONLY    ".                         NC2534.2
    366. 

  366. 036500     02  FILLER                      PIC X(58)  VALUE             NC2534.2
    367. 

  367. 036600     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC2534.2
    368. 

  368. 036700     02  FILLER                      PIC X(28)  VALUE             NC2534.2
    369. 

  369. 036800            "  COPYRIGHT   1985 ".                                NC2534.2
    370. 

  370. 036900 01  CCVS-E-1.                                                    NC2534.2
    371. 

  371. 037000     02 FILLER                       PIC X(52)  VALUE SPACE.      NC2534.2
    372. 

  372. 037100     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  ".              NC2534.2
    373. 

  373. 037200     02 ID-AGAIN                     PIC X(9).                    NC2534.2
    374. 

  374. 037300     02 FILLER                       PIC X(45)  VALUE SPACES.     NC2534.2
    375. 

  375. 037400 01  CCVS-E-2.                                                    NC2534.2
    376. 

  376. 037500     02  FILLER                      PIC X(31)  VALUE SPACE.      NC2534.2
    377. 

  377. 037600     02  FILLER                      PIC X(21)  VALUE SPACE.      NC2534.2
    378. 

  378. 037700     02 CCVS-E-2-2.                                               NC2534.2
    379. 

  379. 037800         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      NC2534.2
    380. 

  380. 037900         03 FILLER                   PIC X      VALUE SPACE.      NC2534.2
    381. 

  381. 038000         03 ENDER-DESC               PIC X(44)  VALUE             NC2534.2
    382. 

  382. 038100            "ERRORS ENCOUNTERED".                                 NC2534.2
    383. 

  383. 038200 01  CCVS-E-3.                                                    NC2534.2
    384. 

  384. 038300     02  FILLER                      PIC X(22)  VALUE             NC2534.2
    385. 

  385. 038400            " FOR OFFICIAL USE ONLY".                             NC2534.2
    386. 

  386. 038500     02  FILLER                      PIC X(12)  VALUE SPACE.      NC2534.2
    387. 

  387. 038600     02  FILLER                      PIC X(58)  VALUE             NC2534.2
    388. 

  388. 038700     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC2534.2
    389. 

  389. 038800     02  FILLER                      PIC X(13)  VALUE SPACE.      NC2534.2
    390. 

  390. 038900     02 FILLER                       PIC X(15)  VALUE             NC2534.2
    391. 

  391. 039000             " COPYRIGHT 1985".                                   NC2534.2
    392. 

  392. 039100 01  CCVS-E-4.                                                    NC2534.2
    393. 

  393. 039200     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      NC2534.2
    394. 

  394. 039300     02 FILLER                       PIC X(4)   VALUE " OF ".     NC2534.2
    395. 

  395. 039400     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      NC2534.2
    396. 

  396. 039500     02 FILLER                       PIC X(40)  VALUE             NC2534.2
    397. 

  397. 039600      "  TESTS WERE EXECUTED SUCCESSFULLY".                       NC2534.2
    398. 

  398. 039700 01  XXINFO.                                                      NC2534.2
    399. 

  399. 039800     02 FILLER                       PIC X(19)  VALUE             NC2534.2
    400. 

  400. 039900            "*** INFORMATION ***".                                NC2534.2
    401. 

  401. 040000     02 INFO-TEXT.                                                NC2534.2
    402. 

  402. 040100       04 FILLER                     PIC X(8)   VALUE SPACE.      NC2534.2
    403. 

  403. 040200       04 XXCOMPUTED                 PIC X(20).                   NC2534.2
    404. 

  404. 040300       04 FILLER                     PIC X(5)   VALUE SPACE.      NC2534.2
    405. 

  405. 040400       04 XXCORRECT                  PIC X(20).                   NC2534.2
    406. 

  406. 040500     02 INF-ANSI-REFERENCE           PIC X(48).                   NC2534.2
    407. 

  407. 040600 01  HYPHEN-LINE.                                                 NC2534.2
    408. 

  408. 040700     02 FILLER  PIC IS X VALUE IS SPACE.                          NC2534.2
    409. 

  409. 040800     02 FILLER  PIC IS X(65)    VALUE IS "************************NC2534.2
    410. 

  410. 040900-    "*****************************************".                 NC2534.2
    411. 

  411. 041000     02 FILLER  PIC IS X(54)    VALUE IS "************************NC2534.2
    412. 

  412. 041100-    "******************************".                            NC2534.2
    413. 

  413. 041200 01  CCVS-PGM-ID                     PIC X(9)   VALUE             NC2534.2
    414. 

  414. 041300     "NC253A".                                                    NC2534.2
    415. 

  415. 041400 PROCEDURE DIVISION.                                              NC2534.2
    416. 

  416. 041500 CCVS1 SECTION.                                                   NC2534.2
    417. 

  417. 041600 OPEN-FILES.                                                      NC2534.2
    418. 

  418. 041700     OPEN     OUTPUT PRINT-FILE.                                  NC2534.2
    419. 

  419. 041800     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   NC2534.2
    420. 

  420. 041900     MOVE    SPACE TO TEST-RESULTS.                               NC2534.2
    421. 

  421. 042000     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             NC2534.2
    422. 

  422. 042100     GO TO CCVS1-EXIT.                                            NC2534.2
    423. 

  423. 042200 CLOSE-FILES.                                                     NC2534.2
    424. 

  424. 042300     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   NC2534.2
    425. 

  425. 042400 TERMINATE-CCVS.                                                  NC2534.2
    426. 

  426. 042500*    EXIT PROGRAM.                                                NC2534.2
    427. 

  427. 042600*TERMINATE-CALL.                                                  NC2534.2
    428. 

  428. 042700     STOP     RUN.                                                NC2534.2
    429. 

  429. 042800 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         NC2534.2
    430. 

  430. 042900 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           NC2534.2
    431. 

  431. 043000 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          NC2534.2
    432. 

  432. 043100 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      NC2534.2
    433. 

  433. 043200     MOVE "****TEST DELETED****" TO RE-MARK.                      NC2534.2
    434. 

  434. 043300 PRINT-DETAIL.                                                    NC2534.2
    435. 

  435. 043400     IF REC-CT NOT EQUAL TO ZERO                                  NC2534.2
    436. 

  436. 043500             MOVE "." TO PARDOT-X                                 NC2534.2
    437. 

  437. 043600             MOVE REC-CT TO DOTVALUE.                             NC2534.2
    438. 

  438. 043700     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      NC2534.2
    439. 

  439. 043800     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               NC2534.2
    440. 

  440. 043900        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 NC2534.2
    441. 

  441. 044000          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 NC2534.2
    442. 

  442. 044100     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              NC2534.2
    443. 

  443. 044200     MOVE SPACE TO CORRECT-X.                                     NC2534.2
    444. 

  444. 044300     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         NC2534.2
    445. 

  445. 044400     MOVE     SPACE TO RE-MARK.                                   NC2534.2
    446. 

  446. 044500 HEAD-ROUTINE.                                                    NC2534.2
    447. 

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

  448. 044700     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC2534.2
    449. 

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

  450. 044900     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC2534.2
    451. 

  451. 045000 COLUMN-NAMES-ROUTINE.                                            NC2534.2
    452. 

  452. 045100     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2534.2
    453. 

  453. 045200     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2534.2
    454. 

  454. 045300     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        NC2534.2
    455. 

  455. 045400 END-ROUTINE.                                                     NC2534.2
    456. 

  456. 045500     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2534.2
    457. 

  457. 045600 END-RTN-EXIT.                                                    NC2534.2
    458. 

  458. 045700     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2534.2
    459. 

  459. 045800 END-ROUTINE-1.                                                   NC2534.2
    460. 

  460. 045900      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      NC2534.2
    461. 

  461. 046000      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               NC2534.2
    462. 

  462. 046100      ADD PASS-COUNTER TO ERROR-HOLD.                             NC2534.2
    463. 

  463. 046200*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC2534.2
    464. 

  464. 046300      MOVE PASS-COUNTER TO CCVS-E-4-1.                            NC2534.2
    465. 

  465. 046400      MOVE ERROR-HOLD TO CCVS-E-4-2.                              NC2534.2
    466. 

  466. 046500      MOVE CCVS-E-4 TO CCVS-E-2-2.                                NC2534.2
    467. 

  467. 046600      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           NC2534.2
    468. 

  468. 046700  END-ROUTINE-12.                                                 NC2534.2
    469. 

  469. 046800      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        NC2534.2
    470. 

  470. 046900     IF       ERROR-COUNTER IS EQUAL TO ZERO                      NC2534.2
    471. 

  471. 047000         MOVE "NO " TO ERROR-TOTAL                                NC2534.2
    472. 

  472. 047100         ELSE                                                     NC2534.2
    473. 

  473. 047200         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC2534.2
    474. 

  474. 047300     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           NC2534.2
    475. 

  475. 047400     PERFORM WRITE-LINE.                                          NC2534.2
    476. 

  476. 047500 END-ROUTINE-13.                                                  NC2534.2
    477. 

  477. 047600     IF DELETE-COUNTER IS EQUAL TO ZERO                           NC2534.2
    478. 

  478. 047700         MOVE "NO " TO ERROR-TOTAL  ELSE                          NC2534.2
    479. 

  479. 047800         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      NC2534.2
    480. 

  480. 047900     MOVE "TEST(S) DELETED     " TO ENDER-DESC.                   NC2534.2
    481. 

  481. 048000     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2534.2
    482. 

  482. 048100      IF   INSPECT-COUNTER EQUAL TO ZERO                          NC2534.2
    483. 

  483. 048200          MOVE "NO " TO ERROR-TOTAL                               NC2534.2
    484. 

  484. 048300      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   NC2534.2
    485. 

  485. 048400      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            NC2534.2
    486. 

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

  487. 048600     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2534.2
    488. 

  488. 048700 WRITE-LINE.                                                      NC2534.2
    489. 

  489. 048800     ADD 1 TO RECORD-COUNT.                                       NC2534.2
    490. 

  490. 048900*    IF RECORD-COUNT GREATER 50                                   NC2534.2
    491. 

  491. 049000*        MOVE DUMMY-RECORD TO DUMMY-HOLD                          NC2534.2
    492. 

  492. 049100*        MOVE SPACE TO DUMMY-RECORD                               NC2534.2
    493. 

  493. 049200*        WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  NC2534.2
    494. 

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

  495. 049400*        MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     NC2534.2
    496. 

  496. 049500*        MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          NC2534.2
    497. 

  497. 049600*        MOVE DUMMY-HOLD TO DUMMY-RECORD                          NC2534.2
    498. 

  498. 049700*        MOVE ZERO TO RECORD-COUNT.                               NC2534.2
    499. 

  499. 049800     PERFORM WRT-LN.                                              NC2534.2
    500. 

  500. 049900 WRT-LN.                                                          NC2534.2
    501. 

  501. 050000     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               NC2534.2
    502. 

  502. 050100     MOVE SPACE TO DUMMY-RECORD.                                  NC2534.2
    503. 

  503. 050200 BLANK-LINE-PRINT.                                                NC2534.2
    504. 

  504. 050300     PERFORM WRT-LN.                                              NC2534.2
    505. 

  505. 050400 FAIL-ROUTINE.                                                    NC2534.2
    506. 

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

  507. 050600     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2534.2
    508. 

  508. 050700     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC2534.2
    509. 

  509. 050800     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   NC2534.2
    510. 

  510. 050900     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2534.2
    511. 

  511. 051000     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC2534.2
    512. 

  512. 051100     GO TO  FAIL-ROUTINE-EX.                                      NC2534.2
    513. 

  513. 051200 FAIL-ROUTINE-WRITE.                                              NC2534.2
    514. 

  514. 051300     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         NC2534.2
    515. 

  515. 051400     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 NC2534.2
    516. 

  516. 051500     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2534.2
    517. 

  517. 051600     MOVE   SPACES TO COR-ANSI-REFERENCE.                         NC2534.2
    518. 

  518. 051700 FAIL-ROUTINE-EX. EXIT.                                           NC2534.2
    519. 

  519. 051800 BAIL-OUT.                                                        NC2534.2
    520. 

  520. 051900     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   NC2534.2
    521. 

  521. 052000     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           NC2534.2
    522. 

  522. 052100 BAIL-OUT-WRITE.                                                  NC2534.2
    523. 

  523. 052200     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  NC2534.2
    524. 

  524. 052300     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC2534.2
    525. 

  525. 052400     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2534.2
    526. 

  526. 052500     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC2534.2
    527. 

  527. 052600 BAIL-OUT-EX. EXIT.                                               NC2534.2
    528. 

  528. 052700 CCVS1-EXIT.                                                      NC2534.2
    529. 

  529. 052800     EXIT.                                                        NC2534.2
    530. 

  530. 052900*                                                                 NC2534.2
    531. 

  531. 053000 SECT-NC253A-001 SECTION.                                         NC2534.2
    532. 

  532. 053100 BUILD-TABLE1.                                                    NC2534.2
    533. 

  533. 053200     MOVE 06 TO RECORD1 OF TABLE1.                                NC2534.2
    534. 

  534. 053300     MOVE 01 TO RECORD2 OF TABLE1 (1).                            NC2534.2
    535. 

  535. 053400     MOVE 02 TO RECORD2 OF TABLE1 (2).                            NC2534.2
    536. 

  536. 053500     MOVE 07 TO RECORD3 OF TABLE1.                                NC2534.2
    537. 

  537. 053600 BUILD-TABLE2.                                                    NC2534.2
    538. 

  538. 053700     MOVE 08 TO RECORD1 OF TABLE2.                                NC2534.2
    539. 

  539. 053800     MOVE 03 TO RECORD2 OF TABLE2 (1).                            NC2534.2
    540. 

  540. 053900     MOVE 04 TO RECORD2 OF TABLE2 (2).                            NC2534.2
    541. 

  541. 054000     MOVE 09 TO RECORD3 OF TABLE2.                                NC2534.2
    542. 

  542. 054100*                                                                 NC2534.2
    543. 

  543. 054200 SUB-INIT-F3-1.                                                   NC2534.2
    544. 

  544. 054300     PERFORM END-ROUTINE.                                         NC2534.2
    545. 

  545. 054400     MOVE "SUB-TEST-F3-1" TO PAR-NAME.                            NC2534.2
    546. 

  546. 054500     MOVE   "VI-134 6.25.4 GR3" TO ANSI-REFERENCE.                NC2534.2
    547. 

  547. 054600     MOVE   "SUBTRACT SERIES " TO FEATURE.                        NC2534.2
    548. 

  548. 054700     MOVE ZERO TO GRP-FOR-ADD-CORR-R.                             NC2534.2
    549. 

  549. 054800     MOVE   11  TO  ADD-CORR-1 OF GRP-FOR-ADD-CORR-1.             NC2534.2
    550. 

  550. 054900     MOVE   22  TO  ADD-CORR-2 OF GRP-FOR-ADD-CORR-1.             NC2534.2
    551. 

  551. 055000     MOVE   33  TO  ADD-CORR-3 OF GRP-FOR-ADD-CORR-1.             NC2534.2
    552. 

  552. 055100     MOVE   44  TO  ADD-CORR-4 OF GRP-FOR-ADD-CORR-1.             NC2534.2
    553. 

  553. 055200     MOVE   55  TO  ADD-CORR-5 OF GRP-FOR-ADD-CORR-1.             NC2534.2
    554. 

  554. 055300     MOVE   66  TO  ADD-CORR-6 OF GRP-FOR-ADD-CORR-1.             NC2534.2
    555. 

  555. 055400     MOVE   77  TO  ADD-CORR-7 OF GRP-FOR-ADD-CORR-1.             NC2534.2
    556. 

  556. 055500     MOVE   88  TO  ADD-CORR-8 OF GRP-FOR-ADD-CORR-1.             NC2534.2
    557. 

  557. 055600     MOVE   99  TO  ADD-CORR-9 OF GRP-FOR-ADD-CORR-1.             NC2534.2
    558. 

  558. 055700 SUB-TEST-F3-1.                                                   NC2534.2
    559. 

  559. 055800     SUBTRACT CORRESPONDING GRP-FOR-ADD-CORR-1 FROM               NC2534.2
    560. 

  560. 055900         GRP-FOR-ADD-CORR-R.                                      NC2534.2
    561. 

  561. 056000     IF GRP-FOR-ADD-CORR-R EQUAL TO "11223344506677889900"        NC2534.2
    562. 

  562. 056100         PERFORM PASS                                             NC2534.2
    563. 

  563. 056200         GO TO SUB-WRITE-F3-1.                                    NC2534.2
    564. 

  564. 056300     GO TO SUB-FAIL-F3-1.                                         NC2534.2
    565. 

  565. 056400 SUB-DELETE-F3-1.                                                 NC2534.2
    566. 

  566. 056500     PERFORM DE-LETE.                                             NC2534.2
    567. 

  567. 056600     GO TO SUB-WRITE-F3-1.                                        NC2534.2
    568. 

  568. 056700 SUB-FAIL-F3-1.                                                   NC2534.2
    569. 

  569. 056800     MOVE GRP-FOR-ADD-CORR-R TO COMPUTED-A.                       NC2534.2
    570. 

  570. 056900     MOVE "11223344506677889900" TO CORRECT-A.                    NC2534.2
    571. 

  571. 057000     PERFORM FAIL.                                                NC2534.2
    572. 

  572. 057100 SUB-WRITE-F3-1.                                                  NC2534.2
    573. 

  573. 057200     PERFORM PRINT-DETAIL.                                        NC2534.2
    574. 

  574. 057300*                                                                 NC2534.2
    575. 

  575. 057400 SUB-INIT-F3-2.                                                   NC2534.2
    576. 

  576. 057500     MOVE "SUB-TEST-F3-2" TO PAR-NAME.                            NC2534.2
    577. 

  577. 057600     MOVE ZERO TO GRP-FOR-ADD-CORR-R.                             NC2534.2
    578. 

  578. 057700 SUB-TEST-F3-2.                                                   NC2534.2
    579. 

  579. 057800     SUBTRACT CORRESPONDING GRP-ADD-SUB-CORR FROM                 NC2534.2
    580. 

  580. 057900         GRP-FOR-ADD-CORR-R ROUNDED.                              NC2534.2
    581. 

  581. 058000     IF GRP-FOR-ADD-CORR-R EQUAL TO "11223344606677889900"        NC2534.2
    582. 

  582. 058100         PERFORM PASS                                             NC2534.2
    583. 

  583. 058200         GO TO SUB-WRITE-F3-2.                                    NC2534.2
    584. 

  584. 058300     GO TO SUB-FAIL-F3-2.                                         NC2534.2
    585. 

  585. 058400 SUB-DELETE-F3-2.                                                 NC2534.2
    586. 

  586. 058500     PERFORM DE-LETE.                                             NC2534.2
    587. 

  587. 058600     GO TO SUB-WRITE-F3-2.                                        NC2534.2
    588. 

  588. 058700 SUB-FAIL-F3-2.                                                   NC2534.2
    589. 

  589. 058800     MOVE GRP-FOR-ADD-CORR-R TO COMPUTED-A.                       NC2534.2
    590. 

  590. 058900     MOVE "11223344606677889900" TO CORRECT-A.                    NC2534.2
    591. 

  591. 059000     PERFORM FAIL.                                                NC2534.2
    592. 

  592. 059100 SUB-WRITE-F3-2.                                                  NC2534.2
    593. 

  593. 059200     PERFORM PRINT-DETAIL.                                        NC2534.2
    594. 

  594. 059300*                                                                 NC2534.2
    595. 

  595. 059400 SUB-INIT-F3-3.                                                   NC2534.2
    596. 

  596. 059500     MOVE  1      TO SUBTR-13 OF SUBTR-12.                        NC2534.2
    597. 

  597. 059600     MOVE -1.725  TO SUBTR-14 OF SUBTR-12.                        NC2534.2
    598. 

  598. 059700     MOVE 76.76   TO SUBTR-15 OF SUBTR-12.                        NC2534.2
    599. 

  599. 059800     MOVE  2      TO SUBTR-13 OF SUBTR-16.                        NC2534.2
    600. 

  600. 059900     MOVE  0.23   TO SUBTR-14 OF SUBTR-16.                        NC2534.2
    601. 

  601. 060000     MOVE  1      TO SUBTR-15 OF SUBTR-16.                        NC2534.2
    602. 

  602. 060100 SUB-INIT-F3-3-1.                                                 NC2534.2
    603. 

  603. 060200     MOVE "SUB-TEST-F3-3-1" TO PAR-NAME.                          NC2534.2
    604. 

  604. 060300     MOVE SPACE TO WRK-AN-00001.                                  NC2534.2
    605. 

  605. 060400 SUB-TEST-F3-3-1.                                                 NC2534.2
    606. 

  606. 060500     SUBTRACT CORRESPONDING SUBTR-12 FROM SUBTR-16 ROUNDED ON     NC2534.2
    607. 

  607. 060600     SIZE ERROR                                                   NC2534.2
    608. 

  608. 060700           MOVE "G" TO WRK-AN-00001.                              NC2534.2
    609. 

  609. 060800     IF WRK-AN-00001 EQUAL TO "G"                                 NC2534.2
    610. 

  610. 060900           PERFORM PASS                                           NC2534.2
    611. 

  611. 061000           GO TO SUB-WRITE-F3-3-1.                                NC2534.2
    612. 

  612. 061100     GO TO SUB-FAIL-F3-3-1.                                       NC2534.2
    613. 

  613. 061200 SUB-DELETE-F3-3-1.                                               NC2534.2
    614. 

  614. 061300     PERFORM DE-LETE.                                             NC2534.2
    615. 

  615. 061400     GO TO SUB-WRITE-F3-3-1.                                      NC2534.2
    616. 

  616. 061500 SUB-FAIL-F3-3-1.                                                 NC2534.2
    617. 

  617. 061600     PERFORM FAIL.                                                NC2534.2
    618. 

  618. 061700     MOVE "ON SIZE ERROR SHOULD BE EXECUTED" TO RE-MARK.          NC2534.2
    619. 

  619. 061800 SUB-WRITE-F3-3-1.                                                NC2534.2
    620. 

  620. 061900     PERFORM PRINT-DETAIL.                                        NC2534.2
    621. 

  621. 062000*                                                                 NC2534.2
    622. 

  622. 062100 SUB-INIT-F3-3-2.                                                 NC2534.2
    623. 

  623. 062200     MOVE "SUB-TEST-F3-3-2" TO PAR-NAME.                          NC2534.2
    624. 

  624. 062300 SUB-TEST-F3-3-2.                                                 NC2534.2
    625. 

  625. 062400     IF SUBTR-13 OF SUBTR-16 NOT EQUAL TO 1                       NC2534.2
    626. 

  626. 062500             GO TO SUB-FAIL-F3-3-2.                               NC2534.2
    627. 

  627. 062600     PERFORM PASS.                                                NC2534.2
    628. 

  628. 062700     GO TO SUB-WRITE-F3-3-2.                                      NC2534.2
    629. 

  629. 062800 SUB-DELETE-F3-3-2.                                               NC2534.2
    630. 

  630. 062900     PERFORM DE-LETE.                                             NC2534.2
    631. 

  631. 063000     GO TO SUB-WRITE-F3-3-2.                                      NC2534.2
    632. 

  632. 063100 SUB-FAIL-F3-3-2.                                                 NC2534.2
    633. 

  633. 063200     PERFORM FAIL.                                                NC2534.2
    634. 

  634. 063300     MOVE SUBTR-13 OF SUBTR-16 TO COMPUTED-N.                     NC2534.2
    635. 

  635. 063400     MOVE "+1" TO CORRECT-A.                                      NC2534.2
    636. 

  636. 063500     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    637. 

  637. 063600        TO RE-MARK.                                               NC2534.2
    638. 

  638. 063700 SUB-WRITE-F3-3-2.                                                NC2534.2
    639. 

  639. 063800     PERFORM PRINT-DETAIL.                                        NC2534.2
    640. 

  640. 063900*                                                                 NC2534.2
    641. 

  641. 064000 SUB-INIT-F3-3-3.                                                 NC2534.2
    642. 

  642. 064100     MOVE "SUB-TEST-F3-3-3" TO PAR-NAME.                          NC2534.2
    643. 

  643. 064200 SUB-TEST-F3-3-3.                                                 NC2534.2
    644. 

  644. 064300     IF SUBTR-14 OF SUBTR-16 IS NOT EQUAL TO 1.96                 NC2534.2
    645. 

  645. 064400             GO TO SUB-FAIL-F3-3-3.                               NC2534.2
    646. 

  646. 064500     PERFORM PASS.                                                NC2534.2
    647. 

  647. 064600     GO TO SUB-WRITE-F3-3-3.                                      NC2534.2
    648. 

  648. 064700 SUB-DELETE-F3-3-3.                                               NC2534.2
    649. 

  649. 064800     PERFORM DE-LETE.                                             NC2534.2
    650. 

  650. 064900     GO TO SUB-WRITE-F3-3-3.                                      NC2534.2
    651. 

  651. 065000 SUB-FAIL-F3-3-3.                                                 NC2534.2
    652. 

  652. 065100     PERFORM FAIL.                                                NC2534.2
    653. 

  653. 065200     MOVE SUBTR-14 OF SUBTR-16 TO COMPUTED-N.                     NC2534.2
    654. 

  654. 065300     MOVE "+1.96" TO CORRECT-A.                                   NC2534.2
    655. 

  655. 065400     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    656. 

  656. 065500        TO RE-MARK.                                               NC2534.2
    657. 

  657. 065600 SUB-WRITE-F3-3-3.                                                NC2534.2
    658. 

  658. 065700     PERFORM PRINT-DETAIL.                                        NC2534.2
    659. 

  659. 065800*                                                                 NC2534.2
    660. 

  660. 065900 SUB-INIT-3-3-4.                                                  NC2534.2
    661. 

  661. 066000     MOVE "SUB-TEST-3-3-4" TO PAR-NAME.                           NC2534.2
    662. 

  662. 066100 SUB-TEST-3-3-4.                                                  NC2534.2
    663. 

  663. 066200     IF SUBTR-15 OF SUBTR-16 NOT EQUAL TO 1                       NC2534.2
    664. 

  664. 066300            GO TO SUB-FAIL-3-3-4.                                 NC2534.2
    665. 

  665. 066400     PERFORM PASS                                                 NC2534.2
    666. 

  666. 066500     GO TO SUB-WRITE-3-3-4.                                       NC2534.2
    667. 

  667. 066600 SUB-DELETE-3-3-4.                                                NC2534.2
    668. 

  668. 066700     PERFORM DE-LETE.                                             NC2534.2
    669. 

  669. 066800     GO TO SUB-WRITE-3-3-4.                                       NC2534.2
    670. 

  670. 066900 SUB-FAIL-3-3-4.                                                  NC2534.2
    671. 

  671. 067000     PERFORM FAIL.                                                NC2534.2
    672. 

  672. 067100     MOVE SUBTR-15 OF SUBTR-16 TO COMPUTED-N.                     NC2534.2
    673. 

  673. 067200     MOVE "+1" TO CORRECT-A.                                      NC2534.2
    674. 

  674. 067300     MOVE "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK.            NC2534.2
    675. 

  675. 067400 SUB-WRITE-3-3-4.                                                 NC2534.2
    676. 

  676. 067500     PERFORM PRINT-DETAIL.                                        NC2534.2
    677. 

  677. 067600*                                                                 NC2534.2
    678. 

  678. 067700 SUB-INIT-F3-4.                                                   NC2534.2
    679. 

  679. 067800     MOVE "SUB-TEST-F3-4" TO PAR-NAME.                            NC2534.2
    680. 

  680. 067900     MOVE "050506060000" TO CORR-DATA-2.                          NC2534.2
    681. 

  681. 068000     MOVE "999999999999" TO CORR-DATA-3.                          NC2534.2
    682. 

  682. 068100 SUB-TEST-F3-4.                                                   NC2534.2
    683. 

  683. 068200     SUBTRACT CORRESPONDING CORR-DATA-2 FROM CORR-DATA-3.         NC2534.2
    684. 

  684. 068300     IF CORR-DATA-3 EQUAL TO "939399999494"                       NC2534.2
    685. 

  685. 068400         PERFORM PASS                                             NC2534.2
    686. 

  686. 068500         GO TO SUB-WRITE-F3-4.                                    NC2534.2
    687. 

  687. 068600     GO TO SUB-FAIL-F3-4.                                         NC2534.2
    688. 

  688. 068700 SUB-DELETE-F3-4.                                                 NC2534.2
    689. 

  689. 068800     PERFORM DE-LETE.                                             NC2534.2
    690. 

  690. 068900     GO TO SUB-WRITE-F3-4.                                        NC2534.2
    691. 

  691. 069000 SUB-FAIL-F3-4.                                                   NC2534.2
    692. 

  692. 069100     MOVE 939399999494 TO CORRECT-A.                              NC2534.2
    693. 

  693. 069200     MOVE CORR-DATA-3 TO COMPUTED-A.                              NC2534.2
    694. 

  694. 069300     PERFORM FAIL.                                                NC2534.2
    695. 

  695. 069400 SUB-WRITE-F3-4.                                                  NC2534.2
    696. 

  696. 069500     PERFORM PRINT-DETAIL.                                        NC2534.2
    697. 

  697. 069600*                                                                 NC2534.2
    698. 

  698. 069700 SUB-INIT-F3-5.                                                   NC2534.2
    699. 

  699. 069800     MOVE "SUB-TEST-F3-5" TO PAR-NAME.                            NC2534.2
    700. 

  700. 069900     MOVE 999955995511 TO CORR-DATA-1.                            NC2534.2
    701. 

  701. 070000     MOVE 123456107890 TO CORR-DATA-6.                            NC2534.2
    702. 

  702. 070100 SUB-TEST-F3-5.                                                   NC2534.2
    703. 

  703. 070200     SUBTRACT CORRESPONDING CORR-DATA-6 FROM CORR-DATA-1.         NC2534.2
    704. 

  704. 070300     IF CORR-DATA-1 EQUAL TO "892155995511"                       NC2534.2
    705. 

  705. 070400         PERFORM PASS                                             NC2534.2
    706. 

  706. 070500         GO TO SUB-WRITE-F3-5.                                    NC2534.2
    707. 

  707. 070600     GO TO SUB-FAIL-F3-5.                                         NC2534.2
    708. 

  708. 070700 SUB-DELETE-F3-5.                                                 NC2534.2
    709. 

  709. 070800     PERFORM DE-LETE.                                             NC2534.2
    710. 

  710. 070900     GO TO SUB-WRITE-F3-5.                                        NC2534.2
    711. 

  711. 071000 SUB-FAIL-F3-5.                                                   NC2534.2
    712. 

  712. 071100     MOVE 892155995511 TO CORRECT-A.                              NC2534.2
    713. 

  713. 071200     MOVE CORR-DATA-1 TO COMPUTED-A.                              NC2534.2
    714. 

  714. 071300     PERFORM FAIL.                                                NC2534.2
    715. 

  715. 071400 SUB-WRITE-F3-5.                                                  NC2534.2
    716. 

  716. 071500     PERFORM PRINT-DETAIL.                                        NC2534.2
    717. 

  717. 071600*                                                                 NC2534.2
    718. 

  718. 071700 SUB-INIT-F3-6.                                                   NC2534.2
    719. 

  719. 071800     MOVE "555555000055" TO CORR-DATA-6.                          NC2534.2
    720. 

  720. 071900     MOVE "SUB-TEST-F3-6" TO PAR-NAME.                            NC2534.2
    721. 

  721. 072000 SUB-TEST-F3-6.                                                   NC2534.2
    722. 

  722. 072100     SUBTRACT CORRESPONDING CORR-DATA-6 FROM CORR-DATA-1          NC2534.2
    723. 

  723. 072200     IF CORR-DATA-1 EQUAL TO 892155995511                         NC2534.2
    724. 

  724. 072300         PERFORM PASS                                             NC2534.2
    725. 

  725. 072400         GO TO SUB-WRITE-F3-6.                                    NC2534.2
    726. 

  726. 072500     GO TO SUB-FAIL-F3-6.                                         NC2534.2
    727. 

  727. 072600 SUB-DELETE-F3-6.                                                 NC2534.2
    728. 

  728. 072700     PERFORM DE-LETE.                                             NC2534.2
    729. 

  729. 072800     GO TO SUB-WRITE-F3-6.                                        NC2534.2
    730. 

  730. 072900 SUB-FAIL-F3-6.                                                   NC2534.2
    731. 

  731. 073000     MOVE 892155995511 TO CORRECT-A.                              NC2534.2
    732. 

  732. 073100     MOVE CORR-DATA-1 TO COMPUTED-A.                              NC2534.2
    733. 

  733. 073200     PERFORM FAIL.                                                NC2534.2
    734. 

  734. 073300 SUB-WRITE-F3-6.                                                  NC2534.2
    735. 

  735. 073400     PERFORM PRINT-DETAIL.                                        NC2534.2
    736. 

  736. 073500*                                                                 NC2534.2
    737. 

  737. 073600 SUB-INIT-F3-7.                                                   NC2534.2
    738. 

  738. 073700     MOVE "SUB-TEST-F3-7" TO PAR-NAME.                            NC2534.2
    739. 

  739. 073800     MOVE 99999999999999 TO CORR-DATA-5.                          NC2534.2
    740. 

  740. 073900     MOVE 111111111111 TO CORR-DATA-1.                            NC2534.2
    741. 

  741. 074000 SUB-TEST-F3-7.                                                   NC2534.2
    742. 

  742. 074100     SUBTRACT CORRESPONDING CORR-DATA-1 FROM CORR-DATA-5.         NC2534.2
    743. 

  743. 074200     IF CORR-DATA-5 EQUAL TO "88889999999999"                     NC2534.2
    744. 

  744. 074300         PERFORM PASS                                             NC2534.2
    745. 

  745. 074400         GO TO SUB-WRITE-F3-7.                                    NC2534.2
    746. 

  746. 074500     GO TO SUB-FAIL-F3-7.                                         NC2534.2
    747. 

  747. 074600 SUB-DELETE-F3-7.                                                 NC2534.2
    748. 

  748. 074700     PERFORM DE-LETE.                                             NC2534.2
    749. 

  749. 074800     GO TO SUB-WRITE-F3-7.                                        NC2534.2
    750. 

  750. 074900 SUB-FAIL-F3-7.                                                   NC2534.2
    751. 

  751. 075000     PERFORM FAIL.                                                NC2534.2
    752. 

  752. 075100     MOVE CORR-DATA-5 TO COMPUTED-A.                              NC2534.2
    753. 

  753. 075200     MOVE "88889999999999" TO CORRECT-A.                          NC2534.2
    754. 

  754. 075300 SUB-WRITE-F3-7.                                                  NC2534.2
    755. 

  755. 075400     PERFORM PRINT-DETAIL.                                        NC2534.2
    756. 

  756. 075500*                                                                 NC2534.2
    757. 

  757. 075600 SUB-INIT-F3-8.                                                   NC2534.2
    758. 

  758. 075700     MOVE   "SUB-TEST-F3-8" TO PAR-NAME.                          NC2534.2
    759. 

  759. 075800     MOVE   "VI-134 6.25.4 GR3" TO ANSI-REFERENCE.                NC2534.2
    760. 

  760. 075900     PERFORM BUILD-TABLE1.                                        NC2534.2
    761. 

  761. 076000     PERFORM BUILD-TABLE2.                                        NC2534.2
    762. 

  762. 076100 SUB-TEST-F3-8-0.                                                 NC2534.2
    763. 

  763. 076200     SUBTRACT CORRESPONDING TABLE1 FROM TABLE2.                   NC2534.2
    764. 

  764. 076300 SUB-TEST-F3-8-1.                                                 NC2534.2
    765. 

  765. 076400     IF      RECORD1 OF TABLE2 = 02                               NC2534.2
    766. 

  766. 076500         AND RECORD2 OF TABLE2 (1) = 03                           NC2534.2
    767. 

  767. 076600         AND RECORD2 OF TABLE2 (2) = 04                           NC2534.2
    768. 

  768. 076700         AND RECORD3 OF TABLE2 = 02                               NC2534.2
    769. 

  769. 076800             PERFORM PASS                                         NC2534.2
    770. 

  770. 076900             GO TO  SUB-WRITE-F3-8.                               NC2534.2
    771. 

  771. 077000     GO TO   SUB-FAIL-F3-8.                                       NC2534.2
    772. 

  772. 077100 SUB-DELETE-F3-8.                                                 NC2534.2
    773. 

  773. 077200     PERFORM DE-LETE.                                             NC2534.2
    774. 

  774. 077300     GO TO   SUB-WRITE-F3-8.                                      NC2534.2
    775. 

  775. 077400 SUB-FAIL-F3-8.                                                   NC2534.2
    776. 

  776. 077500     PERFORM FAIL.                                                NC2534.2
    777. 

  777. 077600     MOVE    TABLE2 TO COMPUTED-A.                                NC2534.2
    778. 

  778. 077700     MOVE  "02030402" TO CORRECT-A.                               NC2534.2
    779. 

  779. 077800 SUB-WRITE-F3-8.                                                  NC2534.2
    780. 

  780. 077900     PERFORM PRINT-DETAIL.                                        NC2534.2
    781. 

  781. 078000*                                                                 NC2534.2
    782. 

  782. 078100 SUB-INIT-F3-9.                                                   NC2534.2
    783. 

  783. 078200*    ===-->  NO SIZE ERROR  <--===                                NC2534.2
    784. 

  784. 078300     MOVE   "VI-133 6.25" TO ANSI-REFERENCE.                      NC2534.2
    785. 

  785. 078400     MOVE    SPACE  TO WRK-AN-00001.                              NC2534.2
    786. 

  786. 078500     MOVE    0      TO REC-CT.                                    NC2534.2
    787. 

  787. 078600     MOVE    1      TO SUBTR-13 OF SUBTR-12.                      NC2534.2
    788. 

  788. 078700     MOVE   -1.725  TO SUBTR-14 OF SUBTR-12.                      NC2534.2
    789. 

  789. 078800     MOVE    6.76   TO SUBTR-15 OF SUBTR-12.                      NC2534.2
    790. 

  790. 078900     MOVE    2      TO SUBTR-13 OF SUBTR-16.                      NC2534.2
    791. 

  791. 079000     MOVE     .23   TO SUBTR-14 OF SUBTR-16.                      NC2534.2
    792. 

  792. 079100     MOVE    1      TO SUBTR-15 OF SUBTR-16.                      NC2534.2
    793. 

  793. 079200 SUB-TEST-F3-9-0.                                                 NC2534.2
    794. 

  794. 079300     SUBTRACT CORRESPONDING SUBTR-12 FROM SUBTR-16 ROUNDED        NC2534.2
    795. 

  795. 079400             ON SIZE ERROR                                        NC2534.2
    796. 

  796. 079500             MOVE   "G" TO WRK-AN-00001.                          NC2534.2
    797. 

  797. 079600*                                                                 NC2534.2
    798. 

  798. 079700 SUB-INIT-F3-9-1.                                                 NC2534.2
    799. 

  799. 079800     MOVE   "SUB-TEST-F3-9-1" TO PAR-NAME.                        NC2534.2
    800. 

  800. 079900     ADD     1 TO REC-CT.                                         NC2534.2
    801. 

  801. 080000 SUB-TEST-F3-9-1.                                                 NC2534.2
    802. 

  802. 080100     IF      WRK-AN-00001    NOT = SPACE                          NC2534.2
    803. 

  803. 080200             GO TO SUB-FAIL-F3-9-1.                               NC2534.2
    804. 

  804. 080300     PERFORM PASS                                                 NC2534.2
    805. 

  805. 080400     GO TO SUB-WRITE-F3-9-1.                                      NC2534.2
    806. 

  806. 080500 SUB-DELETE-F3-9-1.                                               NC2534.2
    807. 

  807. 080600     PERFORM DE-LETE.                                             NC2534.2
    808. 

  808. 080700     GO TO SUB-WRITE-F3-9-1.                                      NC2534.2
    809. 

  809. 080800 SUB-FAIL-F3-9-1.                                                 NC2534.2
    810. 

  810. 080900     MOVE   "SUBTRACT CORRESPONDING FAILED"                       NC2534.2
    811. 

  811. 081000          TO RE-MARK                                              NC2534.2
    812. 

  812. 081100     MOVE    WRK-AN-00001  TO COMPUTED-X                          NC2534.2
    813. 

  813. 081200     MOVE    SPACE TO CORRECT-X                                   NC2534.2
    814. 

  814. 081300     PERFORM FAIL.                                                NC2534.2
    815. 

  815. 081400 SUB-WRITE-F3-9-1.                                                NC2534.2
    816. 

  816. 081500     PERFORM PRINT-DETAIL.                                        NC2534.2
    817. 

  817. 081600*                                                                 NC2534.2
    818. 

  818. 081700 SUB-INIT-F3-9-2.                                                 NC2534.2
    819. 

  819. 081800     MOVE  "SUB-TEST-F3-9-2" TO PAR-NAME.                         NC2534.2
    820. 

  820. 081900     ADD    1 TO REC-CT.                                          NC2534.2
    821. 

  821. 082000 SUB-TEST-F3-9-2.                                                 NC2534.2
    822. 

  822. 082100     IF     SUBTR-13 OF SUBTR-16 NOT EQUAL TO 1                   NC2534.2
    823. 

  823. 082200            GO TO SUB-FAIL-F3-9-2.                                NC2534.2
    824. 

  824. 082300     PERFORM PASS                                                 NC2534.2
    825. 

  825. 082400     GO TO SUB-WRITE-F3-9-2.                                      NC2534.2
    826. 

  826. 082500 SUB-DELETE-F3-9-2.                                               NC2534.2
    827. 

  827. 082600     PERFORM DE-LETE.                                             NC2534.2
    828. 

  828. 082700     GO TO SUB-WRITE-F3-9-2.                                      NC2534.2
    829. 

  829. 082800 SUB-FAIL-F3-9-2.                                                 NC2534.2
    830. 

  830. 082900     MOVE    SUBTR-13 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    831. 

  831. 083000     MOVE   "+1" TO CORRECT-A                                     NC2534.2
    832. 

  832. 083100     MOVE "SUBTRACT CORRESPONDING FAILED"                         NC2534.2
    833. 

  833. 083200           TO RE-MARK                                             NC2534.2
    834. 

  834. 083300     PERFORM FAIL.                                                NC2534.2
    835. 

  835. 083400 SUB-WRITE-F3-9-2.                                                NC2534.2
    836. 

  836. 083500     PERFORM PRINT-DETAIL.                                        NC2534.2
    837. 

  837. 083600*                                                                 NC2534.2
    838. 

  838. 083700 SUB-INIT-F3-9-3.                                                 NC2534.2
    839. 

  839. 083800     MOVE  "SUB-TEST-F3-9-3" TO PAR-NAME.                         NC2534.2
    840. 

  840. 083900     ADD    1 TO REC-CT.                                          NC2534.2
    841. 

  841. 084000 SUB-TEST-F3-9-3.                                                 NC2534.2
    842. 

  842. 084100     IF     SUBTR-14 OF SUBTR-16 IS NOT EQUAL TO 1.96             NC2534.2
    843. 

  843. 084200            GO TO SUB-FAIL-F3-9-3.                                NC2534.2
    844. 

  844. 084300     PERFORM PASS                                                 NC2534.2
    845. 

  845. 084400     GO TO SUB-WRITE-F3-9-3.                                      NC2534.2
    846. 

  846. 084500 SUB-DELETE-F3-9-3.                                               NC2534.2
    847. 

  847. 084600     PERFORM DE-LETE.                                             NC2534.2
    848. 

  848. 084700     GO TO SUB-WRITE-F3-9-3.                                      NC2534.2
    849. 

  849. 084800 SUB-FAIL-F3-9-3.                                                 NC2534.2
    850. 

  850. 084900     MOVE   SUBTR-14 OF SUBTR-16 TO COMPUTED-N                    NC2534.2
    851. 

  851. 085000     MOVE   "+1.96" TO CORRECT-A                                  NC2534.2
    852. 

  852. 085100     MOVE "SUBTRACT CORRESPONDING FAILED"                         NC2534.2
    853. 

  853. 085200          TO RE-MARK                                              NC2534.2
    854. 

  854. 085300     PERFORM FAIL.                                                NC2534.2
    855. 

  855. 085400 SUB-WRITE-F3-9-3.                                                NC2534.2
    856. 

  856. 085500     PERFORM PRINT-DETAIL.                                        NC2534.2
    857. 

  857. 085600*                                                                 NC2534.2
    858. 

  858. 085700 SUB-INIT-F3-9-4.                                                 NC2534.2
    859. 

  859. 085800     MOVE  "SUB-TEST-F3-9-4" TO PAR-NAME.                         NC2534.2
    860. 

  860. 085900     ADD    1 TO REC-CT.                                          NC2534.2
    861. 

  861. 086000 SUB-TEST-F3-9-4.                                                 NC2534.2
    862. 

  862. 086100     IF     SUBTR-15 OF SUBTR-16 NOT EQUAL TO -5.76               NC2534.2
    863. 

  863. 086200            GO TO SUB-FAIL-F3-9-4.                                NC2534.2
    864. 

  864. 086300     PERFORM PASS                                                 NC2534.2
    865. 

  865. 086400     GO TO SUB-WRITE-F3-9-4.                                      NC2534.2
    866. 

  866. 086500 SUB-DELETE-F3-9-4.                                               NC2534.2
    867. 

  867. 086600     PERFORM DE-LETE.                                             NC2534.2
    868. 

  868. 086700     GO TO SUB-WRITE-F3-9-4.                                      NC2534.2
    869. 

  869. 086800 SUB-FAIL-F3-9-4.                                                 NC2534.2
    870. 

  870. 086900     MOVE    SUBTR-15 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    871. 

  871. 087000     MOVE   "-5.76" TO CORRECT-A                                  NC2534.2
    872. 

  872. 087100     MOVE "SUBRACT CORRESPONDING FAILED"                          NC2534.2
    873. 

  873. 087200          TO RE-MARK                                              NC2534.2
    874. 

  874. 087300     PERFORM FAIL.                                                NC2534.2
    875. 

  875. 087400 SUB-WRITE-F3-9-4.                                                NC2534.2
    876. 

  876. 087500     PERFORM PRINT-DETAIL.                                        NC2534.2
    877. 

  877. 087600*                                                                 NC2534.2
    878. 

  878. 087700 SUB-INIT-F3-10.                                                  NC2534.2
    879. 

  879. 087800*    ===-->  NEW SIZE ERROR TESTS  <--===                         NC2534.2
    880. 

  880. 087900*    ===-->      SIZE ERROR        <--===                         NC2534.2
    881. 

  881. 088000     MOVE   "VI-133 6.25" TO ANSI-REFERENCE.                      NC2534.2
    882. 

  882. 088100     MOVE    SPACE  TO WRK-AN-00001.                              NC2534.2
    883. 

  883. 088200     MOVE    0      TO REC-CT.                                    NC2534.2
    884. 

  884. 088300     MOVE    1      TO SUBTR-13 OF SUBTR-12.                      NC2534.2
    885. 

  885. 088400     MOVE   -1.725  TO SUBTR-14 OF SUBTR-12.                      NC2534.2
    886. 

  886. 088500     MOVE   76.76   TO SUBTR-15 OF SUBTR-12.                      NC2534.2
    887. 

  887. 088600     MOVE    2      TO SUBTR-13 OF SUBTR-16.                      NC2534.2
    888. 

  888. 088700     MOVE     .23   TO SUBTR-14 OF SUBTR-16.                      NC2534.2
    889. 

  889. 088800     MOVE    1      TO SUBTR-15 OF SUBTR-16.                      NC2534.2
    890. 

  890. 088900 SUB-TEST-F3-10-0.                                                NC2534.2
    891. 

  891. 089000     SUBTRACT CORRESPONDING SUBTR-12 FROM SUBTR-16 ROUNDED        NC2534.2
    892. 

  892. 089100         NOT ON SIZE ERROR                                        NC2534.2
    893. 

  893. 089200             MOVE   "G" TO WRK-AN-00001.                          NC2534.2
    894. 

  894. 089300*                                                                 NC2534.2
    895. 

  895. 089400 SUB-INIT-F3-10-1.                                                NC2534.2
    896. 

  896. 089500     MOVE   "SUB-TEST-F3-10-1" TO PAR-NAME.                       NC2534.2
    897. 

  897. 089600     ADD     1 TO REC-CT.                                         NC2534.2
    898. 

  898. 089700 SUB-TEST-F3-10-1.                                                NC2534.2
    899. 

  899. 089800     IF      WRK-AN-00001 EQUAL TO "G"                            NC2534.2
    900. 

  900. 089900             GO TO SUB-FAIL-F3-10-1.                              NC2534.2
    901. 

  901. 090000     PERFORM PASS                                                 NC2534.2
    902. 

  902. 090100     GO TO SUB-WRITE-F3-10-1.                                     NC2534.2
    903. 

  903. 090200 SUB-DELETE-F3-10-1.                                              NC2534.2
    904. 

  904. 090300     PERFORM DE-LETE.                                             NC2534.2
    905. 

  905. 090400     GO TO SUB-WRITE-F3-10-1.                                     NC2534.2
    906. 

  906. 090500 SUB-FAIL-F3-10-1.                                                NC2534.2
    907. 

  907. 090600     MOVE   "NOT ON SIZE ERROR SHOULD NOT BE EXECUTED"            NC2534.2
    908. 

  908. 090700          TO RE-MARK                                              NC2534.2
    909. 

  909. 090800     MOVE    WRK-AN-00001  TO COMPUTED-X                          NC2534.2
    910. 

  910. 090900     MOVE    SPACE TO CORRECT-X                                   NC2534.2
    911. 

  911. 091000     PERFORM FAIL.                                                NC2534.2
    912. 

  912. 091100 SUB-WRITE-F3-10-1.                                               NC2534.2
    913. 

  913. 091200     PERFORM PRINT-DETAIL.                                        NC2534.2
    914. 

  914. 091300*                                                                 NC2534.2
    915. 

  915. 091400 SUB-INIT-F3-10-2.                                                NC2534.2
    916. 

  916. 091500     MOVE  "SUB-TEST-F3-10-2" TO PAR-NAME.                        NC2534.2
    917. 

  917. 091600     ADD    1 TO REC-CT.                                          NC2534.2
    918. 

  918. 091700 SUB-TEST-F3-10-2.                                                NC2534.2
    919. 

  919. 091800     IF     SUBTR-13 OF SUBTR-16 NOT EQUAL TO 1                   NC2534.2
    920. 

  920. 091900            GO TO SUB-FAIL-F3-10-2.                               NC2534.2
    921. 

  921. 092000     PERFORM PASS                                                 NC2534.2
    922. 

  922. 092100     GO TO SUB-WRITE-F3-10-2.                                     NC2534.2
    923. 

  923. 092200 SUB-DELETE-F3-10-2.                                              NC2534.2
    924. 

  924. 092300     PERFORM DE-LETE.                                             NC2534.2
    925. 

  925. 092400     GO TO SUB-WRITE-F3-10-2.                                     NC2534.2
    926. 

  926. 092500 SUB-FAIL-F3-10-2.                                                NC2534.2
    927. 

  927. 092600     MOVE    SUBTR-13 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    928. 

  928. 092700     MOVE   "+1" TO CORRECT-A                                     NC2534.2
    929. 

  929. 092800     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    930. 

  930. 092900          TO RE-MARK                                              NC2534.2
    931. 

  931. 093000     PERFORM FAIL.                                                NC2534.2
    932. 

  932. 093100 SUB-WRITE-F3-10-2.                                               NC2534.2
    933. 

  933. 093200     PERFORM PRINT-DETAIL.                                        NC2534.2
    934. 

  934. 093300*                                                                 NC2534.2
    935. 

  935. 093400 SUB-INIT-F3-10-3.                                                NC2534.2
    936. 

  936. 093500     MOVE  "SUB-TEST-F3-10-3" TO PAR-NAME.                        NC2534.2
    937. 

  937. 093600     ADD    1 TO REC-CT.                                          NC2534.2
    938. 

  938. 093700 SUB-TEST-F3-10-3.                                                NC2534.2
    939. 

  939. 093800     IF     SUBTR-14 OF SUBTR-16 IS NOT EQUAL TO 1.96             NC2534.2
    940. 

  940. 093900            GO TO SUB-FAIL-F3-10-3.                               NC2534.2
    941. 

  941. 094000     PERFORM PASS                                                 NC2534.2
    942. 

  942. 094100     GO TO SUB-WRITE-F3-10-3.                                     NC2534.2
    943. 

  943. 094200 SUB-DELETE-F3-10-3.                                              NC2534.2
    944. 

  944. 094300     PERFORM DE-LETE.                                             NC2534.2
    945. 

  945. 094400     GO TO SUB-WRITE-F3-10-3.                                     NC2534.2
    946. 

  946. 094500 SUB-FAIL-F3-10-3.                                                NC2534.2
    947. 

  947. 094600     MOVE   SUBTR-14 OF SUBTR-16 TO COMPUTED-N                    NC2534.2
    948. 

  948. 094700     MOVE   "+1.96" TO CORRECT-A                                  NC2534.2
    949. 

  949. 094800     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    950. 

  950. 094900          TO RE-MARK                                              NC2534.2
    951. 

  951. 095000     PERFORM FAIL.                                                NC2534.2
    952. 

  952. 095100 SUB-WRITE-F3-10-3.                                               NC2534.2
    953. 

  953. 095200     PERFORM PRINT-DETAIL.                                        NC2534.2
    954. 

  954. 095300*                                                                 NC2534.2
    955. 

  955. 095400 SUB-INIT-F3-10-4.                                                NC2534.2
    956. 

  956. 095500     MOVE  "SUB-TEST-F3-10-4" TO PAR-NAME.                        NC2534.2
    957. 

  957. 095600     ADD    1 TO REC-CT.                                          NC2534.2
    958. 

  958. 095700 SUB-TEST-F3-10-4.                                                NC2534.2
    959. 

  959. 095800     IF     SUBTR-15 OF SUBTR-16 NOT EQUAL TO 1                   NC2534.2
    960. 

  960. 095900            GO TO SUB-FAIL-F3-10-4.                               NC2534.2
    961. 

  961. 096000     PERFORM PASS                                                 NC2534.2
    962. 

  962. 096100     GO TO SUB-WRITE-F3-10-4.                                     NC2534.2
    963. 

  963. 096200 SUB-DELETE-F3-10-4.                                              NC2534.2
    964. 

  964. 096300     PERFORM DE-LETE.                                             NC2534.2
    965. 

  965. 096400     GO TO SUB-WRITE-F3-10-4.                                     NC2534.2
    966. 

  966. 096500 SUB-FAIL-F3-10-4.                                                NC2534.2
    967. 

  967. 096600     MOVE    SUBTR-15 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    968. 

  968. 096700     MOVE   "+1" TO CORRECT-A                                     NC2534.2
    969. 

  969. 096800     MOVE "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK             NC2534.2
    970. 

  970. 096900     PERFORM FAIL.                                                NC2534.2
    971. 

  971. 097000 SUB-WRITE-F3-10-4.                                               NC2534.2
    972. 

  972. 097100     PERFORM PRINT-DETAIL.                                        NC2534.2
    973. 

  973. 097200*                                                                 NC2534.2
    974. 

  974. 097300 SUB-INIT-F3-11.                                                  NC2534.2
    975. 

  975. 097400*    ===-->  NEW SIZE ERROR TESTS  <--===                         NC2534.2
    976. 

  976. 097500*    ===-->   NO SIZE ERROR        <--===                         NC2534.2
    977. 

  977. 097600     MOVE   "VI-133 6.25" TO ANSI-REFERENCE.                      NC2534.2
    978. 

  978. 097700     MOVE    SPACE  TO WRK-AN-00001.                              NC2534.2
    979. 

  979. 097800     MOVE    0      TO REC-CT.                                    NC2534.2
    980. 

  980. 097900     MOVE    1      TO SUBTR-13 OF SUBTR-12.                      NC2534.2
    981. 

  981. 098000     MOVE   -1.725  TO SUBTR-14 OF SUBTR-12.                      NC2534.2
    982. 

  982. 098100     MOVE    6.76   TO SUBTR-15 OF SUBTR-12.                      NC2534.2
    983. 

  983. 098200     MOVE    2      TO SUBTR-13 OF SUBTR-16.                      NC2534.2
    984. 

  984. 098300     MOVE     .23   TO SUBTR-14 OF SUBTR-16.                      NC2534.2
    985. 

  985. 098400     MOVE    1      TO SUBTR-15 OF SUBTR-16.                      NC2534.2
    986. 

  986. 098500 SUB-TEST-F3-11-0.                                                NC2534.2
    987. 

  987. 098600     SUBTRACT CORRESPONDING SUBTR-12 FROM SUBTR-16 ROUNDED        NC2534.2
    988. 

  988. 098700         NOT ON SIZE ERROR                                        NC2534.2
    989. 

  989. 098800             MOVE   "G" TO WRK-AN-00001.                          NC2534.2
    990. 

  990. 098900*                                                                 NC2534.2
    991. 

  991. 099000 SUB-INIT-F3-11-1.                                                NC2534.2
    992. 

  992. 099100     MOVE   "SUB-TEST-F3-11-1" TO PAR-NAME.                       NC2534.2
    993. 

  993. 099200     ADD     1 TO REC-CT.                                         NC2534.2
    994. 

  994. 099300 SUB-TEST-F3-11-1.                                                NC2534.2
    995. 

  995. 099400     IF      WRK-AN-00001 EQUAL TO SPACE                          NC2534.2
    996. 

  996. 099500             GO TO SUB-FAIL-F3-11-1.                              NC2534.2
    997. 

  997. 099600     PERFORM PASS                                                 NC2534.2
    998. 

  998. 099700     GO TO SUB-WRITE-F3-11-1.                                     NC2534.2
    999. 

  999. 099800 SUB-DELETE-F3-11-1.                                              NC2534.2
    1000. 

  1000. 099900     PERFORM DE-LETE.                                             NC2534.2
    1001. 

  1001. 100000     GO TO SUB-WRITE-F3-11-1.                                     NC2534.2
    1002. 

  1002. 100100 SUB-FAIL-F3-11-1.                                                NC2534.2
    1003. 

  1003. 100200     MOVE   "NOT ON SIZE ERROR SHOULD BE EXECUTED"                NC2534.2
    1004. 

  1004. 100300           TO RE-MARK                                             NC2534.2
    1005. 

  1005. 100400     MOVE    WRK-AN-00001  TO COMPUTED-X                          NC2534.2
    1006. 

  1006. 100500     MOVE   "G"    TO CORRECT-X                                   NC2534.2
    1007. 

  1007. 100600     PERFORM FAIL.                                                NC2534.2
    1008. 

  1008. 100700 SUB-WRITE-F3-11-1.                                               NC2534.2
    1009. 

  1009. 100800     PERFORM PRINT-DETAIL.                                        NC2534.2
    1010. 

  1010. 100900*                                                                 NC2534.2
    1011. 

  1011. 101000 SUB-INIT-F3-11-2.                                                NC2534.2
    1012. 

  1012. 101100     MOVE  "SUB-TEST-F3-11-1" TO PAR-NAME.                        NC2534.2
    1013. 

  1013. 101200     ADD    1 TO REC-CT.                                          NC2534.2
    1014. 

  1014. 101300 SUB-TEST-F3-11-2.                                                NC2534.2
    1015. 

  1015. 101400     IF     SUBTR-13 OF SUBTR-16 NOT EQUAL TO 1                   NC2534.2
    1016. 

  1016. 101500            GO TO SUB-FAIL-F3-11-2.                               NC2534.2
    1017. 

  1017. 101600     PERFORM PASS                                                 NC2534.2
    1018. 

  1018. 101700     GO TO SUB-WRITE-F3-11-2.                                     NC2534.2
    1019. 

  1019. 101800 SUB-DELETE-F3-11-2.                                              NC2534.2
    1020. 

  1020. 101900     PERFORM DE-LETE.                                             NC2534.2
    1021. 

  1021. 102000     GO TO SUB-WRITE-F3-11-2.                                     NC2534.2
    1022. 

  1022. 102100 SUB-FAIL-F3-11-2.                                                NC2534.2
    1023. 

  1023. 102200     MOVE    SUBTR-13 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    1024. 

  1024. 102300     MOVE   "+1" TO CORRECT-A                                     NC2534.2
    1025. 

  1025. 102400     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1026. 

  1026. 102500          TO RE-MARK                                              NC2534.2
    1027. 

  1027. 102600     PERFORM FAIL.                                                NC2534.2
    1028. 

  1028. 102700 SUB-WRITE-F3-11-2.                                               NC2534.2
    1029. 

  1029. 102800     PERFORM PRINT-DETAIL.                                        NC2534.2
    1030. 

  1030. 102900*                                                                 NC2534.2
    1031. 

  1031. 103000 SUB-INIT-F3-11-3.                                                NC2534.2
    1032. 

  1032. 103100     MOVE  "SUB-TEST-F3-11-3" TO PAR-NAME.                        NC2534.2
    1033. 

  1033. 103200     ADD    1 TO REC-CT.                                          NC2534.2
    1034. 

  1034. 103300 SUB-TEST-F3-11-3.                                                NC2534.2
    1035. 

  1035. 103400     IF     SUBTR-14 OF SUBTR-16 IS NOT EQUAL TO 1.96             NC2534.2
    1036. 

  1036. 103500            GO TO SUB-FAIL-F3-11-3.                               NC2534.2
    1037. 

  1037. 103600     PERFORM PASS                                                 NC2534.2
    1038. 

  1038. 103700     GO TO SUB-WRITE-F3-11-3.                                     NC2534.2
    1039. 

  1039. 103800 SUB-DELETE-F3-11-3.                                              NC2534.2
    1040. 

  1040. 103900     PERFORM DE-LETE.                                             NC2534.2
    1041. 

  1041. 104000     GO TO SUB-WRITE-F3-11-3.                                     NC2534.2
    1042. 

  1042. 104100 SUB-FAIL-F3-11-3.                                                NC2534.2
    1043. 

  1043. 104200     MOVE   SUBTR-14 OF SUBTR-16 TO COMPUTED-N                    NC2534.2
    1044. 

  1044. 104300     MOVE   "+1.96" TO CORRECT-A                                  NC2534.2
    1045. 

  1045. 104400     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1046. 

  1046. 104500          TO RE-MARK                                              NC2534.2
    1047. 

  1047. 104600     PERFORM FAIL.                                                NC2534.2
    1048. 

  1048. 104700 SUB-WRITE-F3-11-3.                                               NC2534.2
    1049. 

  1049. 104800     PERFORM PRINT-DETAIL.                                        NC2534.2
    1050. 

  1050. 104900*                                                                 NC2534.2
    1051. 

  1051. 105000 SUB-INIT-F3-11-4.                                                NC2534.2
    1052. 

  1052. 105100     MOVE  "SUB-TEST-F3-11-4" TO PAR-NAME.                        NC2534.2
    1053. 

  1053. 105200     ADD    1 TO REC-CT.                                          NC2534.2
    1054. 

  1054. 105300 SUB-TEST-F3-11-4.                                                NC2534.2
    1055. 

  1055. 105400     IF     SUBTR-15 OF SUBTR-16 NOT EQUAL TO -5.76               NC2534.2
    1056. 

  1056. 105500            GO TO SUB-FAIL-F3-11-4.                               NC2534.2
    1057. 

  1057. 105600     PERFORM PASS                                                 NC2534.2
    1058. 

  1058. 105700     GO TO SUB-WRITE-F3-11-4.                                     NC2534.2
    1059. 

  1059. 105800 SUB-DELETE-F3-11-4.                                              NC2534.2
    1060. 

  1060. 105900     PERFORM DE-LETE.                                             NC2534.2
    1061. 

  1061. 106000     GO TO SUB-WRITE-F3-11-4.                                     NC2534.2
    1062. 

  1062. 106100 SUB-FAIL-F3-11-4.                                                NC2534.2
    1063. 

  1063. 106200     MOVE    SUBTR-15 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    1064. 

  1064. 106300     MOVE   "-5.76" TO CORRECT-A                                  NC2534.2
    1065. 

  1065. 106400     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1066. 

  1066. 106500          TO RE-MARK                                              NC2534.2
    1067. 

  1067. 106600     PERFORM FAIL.                                                NC2534.2
    1068. 

  1068. 106700 SUB-WRITE-F3-11-4.                                               NC2534.2
    1069. 

  1069. 106800     PERFORM PRINT-DETAIL.                                        NC2534.2
    1070. 

  1070. 106900*                                                                 NC2534.2
    1071. 

  1071. 107000 SUB-INIT-F3-12.                                                  NC2534.2
    1072. 

  1072. 107100*    ===-->  NEW SIZE ERROR TESTS  <--===                         NC2534.2
    1073. 

  1073. 107200*    ===-->      SIZE ERROR        <--===                         NC2534.2
    1074. 

  1074. 107300     MOVE   "VI-133 6.25" TO ANSI-REFERENCE.                      NC2534.2
    1075. 

  1075. 107400     MOVE    SPACE  TO WRK-AN-00001.                              NC2534.2
    1076. 

  1076. 107500     MOVE    0      TO REC-CT.                                    NC2534.2
    1077. 

  1077. 107600     MOVE    1      TO SUBTR-13 OF SUBTR-12.                      NC2534.2
    1078. 

  1078. 107700     MOVE   -1.725  TO SUBTR-14 OF SUBTR-12.                      NC2534.2
    1079. 

  1079. 107800     MOVE   76.76   TO SUBTR-15 OF SUBTR-12.                      NC2534.2
    1080. 

  1080. 107900     MOVE    2      TO SUBTR-13 OF SUBTR-16.                      NC2534.2
    1081. 

  1081. 108000     MOVE     .23   TO SUBTR-14 OF SUBTR-16.                      NC2534.2
    1082. 

  1082. 108100     MOVE    1      TO SUBTR-15 OF SUBTR-16.                      NC2534.2
    1083. 

  1083. 108200 SUB-TEST-F3-12-0.                                                NC2534.2
    1084. 

  1084. 108300     SUBTRACT CORRESPONDING SUBTR-12 FROM SUBTR-16 ROUNDED        NC2534.2
    1085. 

  1085. 108400             ON SIZE ERROR                                        NC2534.2
    1086. 

  1086. 108500             MOVE   "A" TO WRK-AN-00001                           NC2534.2
    1087. 

  1087. 108600         NOT ON SIZE ERROR                                        NC2534.2
    1088. 

  1088. 108700             MOVE   "B" TO WRK-AN-00001.                          NC2534.2
    1089. 

  1089. 108800*                                                                 NC2534.2
    1090. 

  1090. 108900 SUB-INIT-F3-12-1.                                                NC2534.2
    1091. 

  1091. 109000     MOVE   "SUB-TEST-F3-12-1" TO PAR-NAME.                       NC2534.2
    1092. 

  1092. 109100     ADD     1 TO REC-CT.                                         NC2534.2
    1093. 

  1093. 109200 SUB-TEST-F3-12-1.                                                NC2534.2
    1094. 

  1094. 109300     IF      WRK-AN-00001    NOT = "A"                            NC2534.2
    1095. 

  1095. 109400             GO TO SUB-FAIL-F3-12-1.                              NC2534.2
    1096. 

  1096. 109500     PERFORM PASS                                                 NC2534.2
    1097. 

  1097. 109600     GO TO SUB-WRITE-F3-12-1.                                     NC2534.2
    1098. 

  1098. 109700 SUB-DELETE-F3-12-1.                                              NC2534.2
    1099. 

  1099. 109800     PERFORM DE-LETE.                                             NC2534.2
    1100. 

  1100. 109900     GO TO SUB-WRITE-F3-12-1.                                     NC2534.2
    1101. 

  1101. 110000 SUB-FAIL-F3-12-1.                                                NC2534.2
    1102. 

  1102. 110100     MOVE   "ON SIZE ERROR SHOULD BE EXECUTED"                    NC2534.2
    1103. 

  1103. 110200          TO RE-MARK                                              NC2534.2
    1104. 

  1104. 110300     MOVE    WRK-AN-00001  TO COMPUTED-X                          NC2534.2
    1105. 

  1105. 110400     MOVE   "A"    TO CORRECT-X                                   NC2534.2
    1106. 

  1106. 110500     PERFORM FAIL.                                                NC2534.2
    1107. 

  1107. 110600 SUB-WRITE-F3-12-1.                                               NC2534.2
    1108. 

  1108. 110700     PERFORM PRINT-DETAIL.                                        NC2534.2
    1109. 

  1109. 110800*                                                                 NC2534.2
    1110. 

  1110. 110900 SUB-INIT-F3-12-2.                                                NC2534.2
    1111. 

  1111. 111000     MOVE  "SUB-TEST-F3-12-2" TO PAR-NAME.                        NC2534.2
    1112. 

  1112. 111100     ADD    1 TO REC-CT.                                          NC2534.2
    1113. 

  1113. 111200 SUB-TEST-F3-12-2.                                                NC2534.2
    1114. 

  1114. 111300     IF     SUBTR-13 OF SUBTR-16 NOT EQUAL TO 1                   NC2534.2
    1115. 

  1115. 111400            GO TO SUB-FAIL-F3-12-2.                               NC2534.2
    1116. 

  1116. 111500     PERFORM PASS                                                 NC2534.2
    1117. 

  1117. 111600     GO TO SUB-WRITE-F3-12-2.                                     NC2534.2
    1118. 

  1118. 111700 SUB-DELETE-F3-12-2.                                              NC2534.2
    1119. 

  1119. 111800     PERFORM DE-LETE.                                             NC2534.2
    1120. 

  1120. 111900     GO TO SUB-WRITE-F3-12-2.                                     NC2534.2
    1121. 

  1121. 112000 SUB-FAIL-F3-12-2.                                                NC2534.2
    1122. 

  1122. 112100     MOVE    SUBTR-13 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    1123. 

  1123. 112200     MOVE   "+1" TO CORRECT-A                                     NC2534.2
    1124. 

  1124. 112300     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1125. 

  1125. 112400          TO RE-MARK                                              NC2534.2
    1126. 

  1126. 112500     PERFORM FAIL.                                                NC2534.2
    1127. 

  1127. 112600 SUB-WRITE-F3-12-2.                                               NC2534.2
    1128. 

  1128. 112700     PERFORM PRINT-DETAIL.                                        NC2534.2
    1129. 

  1129. 112800*                                                                 NC2534.2
    1130. 

  1130. 112900 SUB-INIT-F3-12-3.                                                NC2534.2
    1131. 

  1131. 113000     MOVE  "SUB-TEST-F3-12-3" TO PAR-NAME.                        NC2534.2
    1132. 

  1132. 113100     ADD    1 TO REC-CT.                                          NC2534.2
    1133. 

  1133. 113200 SUB-TEST-F3-12-3.                                                NC2534.2
    1134. 

  1134. 113300     IF     SUBTR-14 OF SUBTR-16 IS NOT EQUAL TO 1.96             NC2534.2
    1135. 

  1135. 113400            GO TO SUB-FAIL-F3-12-3.                               NC2534.2
    1136. 

  1136. 113500     PERFORM PASS                                                 NC2534.2
    1137. 

  1137. 113600     GO TO SUB-WRITE-F3-12-3.                                     NC2534.2
    1138. 

  1138. 113700 SUB-DELETE-F3-12-3.                                              NC2534.2
    1139. 

  1139. 113800     PERFORM DE-LETE.                                             NC2534.2
    1140. 

  1140. 113900     GO TO SUB-WRITE-F3-12-3.                                     NC2534.2
    1141. 

  1141. 114000 SUB-FAIL-F3-12-3.                                                NC2534.2
    1142. 

  1142. 114100     MOVE   SUBTR-14 OF SUBTR-16 TO COMPUTED-N                    NC2534.2
    1143. 

  1143. 114200     MOVE   "+1.96" TO CORRECT-A                                  NC2534.2
    1144. 

  1144. 114300     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1145. 

  1145. 114400          TO RE-MARK                                              NC2534.2
    1146. 

  1146. 114500     PERFORM FAIL.                                                NC2534.2
    1147. 

  1147. 114600 SUB-WRITE-F3-12-3.                                               NC2534.2
    1148. 

  1148. 114700     PERFORM PRINT-DETAIL.                                        NC2534.2
    1149. 

  1149. 114800*                                                                 NC2534.2
    1150. 

  1150. 114900 SUB-INIT-F3-12-4.                                                NC2534.2
    1151. 

  1151. 115000     MOVE  "SUB-TEST-F3-12-4" TO PAR-NAME.                        NC2534.2
    1152. 

  1152. 115100     ADD    1 TO REC-CT.                                          NC2534.2
    1153. 

  1153. 115200 SUB-TEST-F3-12-4.                                                NC2534.2
    1154. 

  1154. 115300     IF     SUBTR-15 OF SUBTR-16 NOT EQUAL TO 1                   NC2534.2
    1155. 

  1155. 115400            GO TO SUB-FAIL-F3-12-4.                               NC2534.2
    1156. 

  1156. 115500     PERFORM PASS                                                 NC2534.2
    1157. 

  1157. 115600     GO TO SUB-WRITE-F3-12-4.                                     NC2534.2
    1158. 

  1158. 115700 SUB-DELETE-F3-12-4.                                              NC2534.2
    1159. 

  1159. 115800     PERFORM DE-LETE.                                             NC2534.2
    1160. 

  1160. 115900     GO TO SUB-WRITE-F3-12-4.                                     NC2534.2
    1161. 

  1161. 116000 SUB-FAIL-F3-12-4.                                                NC2534.2
    1162. 

  1162. 116100     MOVE    SUBTR-15 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    1163. 

  1163. 116200     MOVE   "+1" TO CORRECT-A                                     NC2534.2
    1164. 

  1164. 116300     MOVE "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK             NC2534.2
    1165. 

  1165. 116400     PERFORM FAIL.                                                NC2534.2
    1166. 

  1166. 116500 SUB-WRITE-F3-12-4.                                               NC2534.2
    1167. 

  1167. 116600     PERFORM PRINT-DETAIL.                                        NC2534.2
    1168. 

  1168. 116700*                                                                 NC2534.2
    1169. 

  1169. 116800 SUB-INIT-F3-13.                                                  NC2534.2
    1170. 

  1170. 116900*    ===-->  NEW SIZE ERROR TESTS  <--===                         NC2534.2
    1171. 

  1171. 117000*    ===-->   NO SIZE ERROR        <--===                         NC2534.2
    1172. 

  1172. 117100     MOVE   "VI-133 6.25" TO ANSI-REFERENCE.                      NC2534.2
    1173. 

  1173. 117200     MOVE    SPACE  TO WRK-AN-00001.                              NC2534.2
    1174. 

  1174. 117300     MOVE    0      TO REC-CT.                                    NC2534.2
    1175. 

  1175. 117400     MOVE    1      TO SUBTR-13 OF SUBTR-12.                      NC2534.2
    1176. 

  1176. 117500     MOVE   -1.725  TO SUBTR-14 OF SUBTR-12.                      NC2534.2
    1177. 

  1177. 117600     MOVE    6.76   TO SUBTR-15 OF SUBTR-12.                      NC2534.2
    1178. 

  1178. 117700     MOVE    2      TO SUBTR-13 OF SUBTR-16.                      NC2534.2
    1179. 

  1179. 117800     MOVE     .23   TO SUBTR-14 OF SUBTR-16.                      NC2534.2
    1180. 

  1180. 117900     MOVE    1      TO SUBTR-15 OF SUBTR-16.                      NC2534.2
    1181. 

  1181. 118000 SUB-TEST-F3-13-0.                                                NC2534.2
    1182. 

  1182. 118100     SUBTRACT CORRESPONDING SUBTR-12 FROM SUBTR-16 ROUNDED        NC2534.2
    1183. 

  1183. 118200             ON SIZE ERROR                                        NC2534.2
    1184. 

  1184. 118300             MOVE   "A" TO WRK-AN-00001                           NC2534.2
    1185. 

  1185. 118400         NOT ON SIZE ERROR                                        NC2534.2
    1186. 

  1186. 118500             MOVE   "B" TO WRK-AN-00001.                          NC2534.2
    1187. 

  1187. 118600*                                                                 NC2534.2
    1188. 

  1188. 118700 SUB-INIT-F3-13-1.                                                NC2534.2
    1189. 

  1189. 118800     MOVE   "SUB-TEST-F3-13-1" TO PAR-NAME.                       NC2534.2
    1190. 

  1190. 118900     ADD     1 TO REC-CT.                                         NC2534.2
    1191. 

  1191. 119000 SUB-TEST-F3-13-1.                                                NC2534.2
    1192. 

  1192. 119100     IF      WRK-AN-00001    NOT = "B"                            NC2534.2
    1193. 

  1193. 119200             GO TO SUB-FAIL-F3-13-1.                              NC2534.2
    1194. 

  1194. 119300     PERFORM PASS                                                 NC2534.2
    1195. 

  1195. 119400     GO TO SUB-WRITE-F3-13-1.                                     NC2534.2
    1196. 

  1196. 119500 SUB-DELETE-F3-13-1.                                              NC2534.2
    1197. 

  1197. 119600     PERFORM DE-LETE.                                             NC2534.2
    1198. 

  1198. 119700     GO TO SUB-WRITE-F3-13-1.                                     NC2534.2
    1199. 

  1199. 119800 SUB-FAIL-F3-13-1.                                                NC2534.2
    1200. 

  1200. 119900     MOVE   "NOT ON SIZE ERROR SHOULD BE EXECUTED"                NC2534.2
    1201. 

  1201. 120000           TO RE-MARK                                             NC2534.2
    1202. 

  1202. 120100     MOVE    WRK-AN-00001  TO COMPUTED-X                          NC2534.2
    1203. 

  1203. 120200     MOVE   "B"    TO CORRECT-X                                   NC2534.2
    1204. 

  1204. 120300     PERFORM FAIL.                                                NC2534.2
    1205. 

  1205. 120400 SUB-WRITE-F3-13-1.                                               NC2534.2
    1206. 

  1206. 120500     PERFORM PRINT-DETAIL.                                        NC2534.2
    1207. 

  1207. 120600*                                                                 NC2534.2
    1208. 

  1208. 120700 SUB-INIT-F3-13-2.                                                NC2534.2
    1209. 

  1209. 120800     MOVE  "SUB-TEST-F3-13-2" TO PAR-NAME.                        NC2534.2
    1210. 

  1210. 120900     ADD    1 TO REC-CT.                                          NC2534.2
    1211. 

  1211. 121000 SUB-TEST-F3-13-2.                                                NC2534.2
    1212. 

  1212. 121100     IF     SUBTR-13 OF SUBTR-16 NOT EQUAL TO 1                   NC2534.2
    1213. 

  1213. 121200            GO TO SUB-FAIL-F3-13-2.                               NC2534.2
    1214. 

  1214. 121300     PERFORM PASS                                                 NC2534.2
    1215. 

  1215. 121400     GO TO SUB-WRITE-F3-13-2.                                     NC2534.2
    1216. 

  1216. 121500 SUB-DELETE-F3-13-2.                                              NC2534.2
    1217. 

  1217. 121600     PERFORM DE-LETE.                                             NC2534.2
    1218. 

  1218. 121700     GO TO SUB-WRITE-F3-13-2.                                     NC2534.2
    1219. 

  1219. 121800 SUB-FAIL-F3-13-2.                                                NC2534.2
    1220. 

  1220. 121900            MOVE    SUBTR-13 OF SUBTR-16 TO COMPUTED-N            NC2534.2
    1221. 

  1221. 122000            MOVE   "+1" TO CORRECT-A                              NC2534.2
    1222. 

  1222. 122100            MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"NC2534.2
    1223. 

  1223. 122200                 TO RE-MARK                                       NC2534.2
    1224. 

  1224. 122300            PERFORM FAIL.                                         NC2534.2
    1225. 

  1225. 122400 SUB-WRITE-F3-13-2.                                               NC2534.2
    1226. 

  1226. 122500            PERFORM PRINT-DETAIL.                                 NC2534.2
    1227. 

  1227. 122600*                                                                 NC2534.2
    1228. 

  1228. 122700 SUB-INIT-F3-13-3.                                                NC2534.2
    1229. 

  1229. 122800     MOVE  "SUB-TEST-F3-13-3" TO PAR-NAME.                        NC2534.2
    1230. 

  1230. 122900     ADD    1 TO REC-CT.                                          NC2534.2
    1231. 

  1231. 123000 SUB-TEST-F3-13-3.                                                NC2534.2
    1232. 

  1232. 123100     IF     SUBTR-14 OF SUBTR-16 IS NOT EQUAL TO 1.96             NC2534.2
    1233. 

  1233. 123200            GO TO SUB-FAIL-F3-13-3.                               NC2534.2
    1234. 

  1234. 123300     PERFORM PASS                                                 NC2534.2
    1235. 

  1235. 123400     GO TO SUB-WRITE-F3-13-3.                                     NC2534.2
    1236. 

  1236. 123500 SUB-DELETE-F3-13-3.                                              NC2534.2
    1237. 

  1237. 123600     PERFORM DE-LETE.                                             NC2534.2
    1238. 

  1238. 123700     GO TO SUB-WRITE-F3-13-3.                                     NC2534.2
    1239. 

  1239. 123800 SUB-FAIL-F3-13-3.                                                NC2534.2
    1240. 

  1240. 123900     MOVE   SUBTR-14 OF SUBTR-16 TO COMPUTED-N                    NC2534.2
    1241. 

  1241. 124000     MOVE   "+1.96" TO CORRECT-A                                  NC2534.2
    1242. 

  1242. 124100     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1243. 

  1243. 124200          TO RE-MARK                                              NC2534.2
    1244. 

  1244. 124300     PERFORM FAIL.                                                NC2534.2
    1245. 

  1245. 124400 SUB-WRITE-F3-13-3.                                               NC2534.2
    1246. 

  1246. 124500     PERFORM PRINT-DETAIL.                                        NC2534.2
    1247. 

  1247. 124600*                                                                 NC2534.2
    1248. 

  1248. 124700 SUB-INIT-F3-13-4.                                                NC2534.2
    1249. 

  1249. 124800     MOVE  "SUB-TEST-F3-13-4" TO PAR-NAME.                        NC2534.2
    1250. 

  1250. 124900     ADD    1 TO REC-CT.                                          NC2534.2
    1251. 

  1251. 125000 SUB-TEST-F3-13-4.                                                NC2534.2
    1252. 

  1252. 125100     IF     SUBTR-15 OF SUBTR-16 NOT EQUAL TO -5.76               NC2534.2
    1253. 

  1253. 125200            GO TO SUB-FAIL-F3-13-4.                               NC2534.2
    1254. 

  1254. 125300     PERFORM PASS                                                 NC2534.2
    1255. 

  1255. 125400     GO TO SUB-WRITE-F3-13-4.                                     NC2534.2
    1256. 

  1256. 125500 SUB-FAIL-F3-13-4.                                                NC2534.2
    1257. 

  1257. 125600     MOVE    SUBTR-15 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    1258. 

  1258. 125700     MOVE   "-5.76" TO CORRECT-A                                  NC2534.2
    1259. 

  1259. 125800     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1260. 

  1260. 125900        TO RE-MARK                                                NC2534.2
    1261. 

  1261. 126000     PERFORM FAIL.                                                NC2534.2
    1262. 

  1262. 126100 SUB-WRITE-F3-13-4.                                               NC2534.2
    1263. 

  1263. 126200     PERFORM PRINT-DETAIL.                                        NC2534.2
    1264. 

  1264. 126300*                                                                 NC2534.2
    1265. 

  1265. 126400 SUB-INIT-F3-14.                                                  NC2534.2
    1266. 

  1266. 126500*    ===-->  NEW SIZE ERROR TESTS  <--===                         NC2534.2
    1267. 

  1267. 126600*    ===-->      SIZE ERROR        <--===                         NC2534.2
    1268. 

  1268. 126700     MOVE   "VI-133 6.25" TO ANSI-REFERENCE.                      NC2534.2
    1269. 

  1269. 126800     MOVE    SPACE  TO WRK-AN-00001.                              NC2534.2
    1270. 

  1270. 126900     MOVE    SPACE  TO WRK-XN-00001.                              NC2534.2
    1271. 

  1271. 127000     MOVE    0      TO REC-CT.                                    NC2534.2
    1272. 

  1272. 127100     MOVE    1      TO SUBTR-13 OF SUBTR-12.                      NC2534.2
    1273. 

  1273. 127200     MOVE   -1.725  TO SUBTR-14 OF SUBTR-12.                      NC2534.2
    1274. 

  1274. 127300     MOVE   76.76   TO SUBTR-15 OF SUBTR-12.                      NC2534.2
    1275. 

  1275. 127400     MOVE    2      TO SUBTR-13 OF SUBTR-16.                      NC2534.2
    1276. 

  1276. 127500     MOVE     .23   TO SUBTR-14 OF SUBTR-16.                      NC2534.2
    1277. 

  1277. 127600     MOVE    1      TO SUBTR-15 OF SUBTR-16.                      NC2534.2
    1278. 

  1278. 127700 SUB-TEST-F3-14-0.                                                NC2534.2
    1279. 

  1279. 127800     SUBTRACT CORRESPONDING SUBTR-12 FROM SUBTR-16 ROUNDED        NC2534.2
    1280. 

  1280. 127900             ON SIZE ERROR                                        NC2534.2
    1281. 

  1281. 128000             MOVE   "A" TO WRK-AN-00001                           NC2534.2
    1282. 

  1282. 128100     END-SUBTRACT                                                 NC2534.2
    1283. 

  1283. 128200     MOVE   "Z"  TO WRK-XN-00001.                                 NC2534.2
    1284. 

  1284. 128300*                                                                 NC2534.2
    1285. 

  1285. 128400 SUB-INIT-F3-14-1.                                                NC2534.2
    1286. 

  1286. 128500     MOVE   "SUB-TEST-F3-14-1" TO PAR-NAME.                       NC2534.2
    1287. 

  1287. 128600     ADD     1 TO REC-CT.                                         NC2534.2
    1288. 

  1288. 128700 SUB-TEST-F3-14-1.                                                NC2534.2
    1289. 

  1289. 128800     IF      WRK-AN-00001    NOT = "A"                            NC2534.2
    1290. 

  1290. 128900             GO TO SUB-FAIL-F3-14-1.                              NC2534.2
    1291. 

  1291. 129000     PERFORM PASS                                                 NC2534.2
    1292. 

  1292. 129100     GO TO SUB-WRITE-F3-14-1.                                     NC2534.2
    1293. 

  1293. 129200 SUB-DELETE-F3-14-1.                                              NC2534.2
    1294. 

  1294. 129300     PERFORM DE-LETE.                                             NC2534.2
    1295. 

  1295. 129400     GO TO SUB-WRITE-F3-14-1.                                     NC2534.2
    1296. 

  1296. 129500 SUB-FAIL-F3-14-1.                                                NC2534.2
    1297. 

  1297. 129600     MOVE   "ON SIZE ERROR SHOULD BE EXECUTED"                    NC2534.2
    1298. 

  1298. 129700          TO RE-MARK                                              NC2534.2
    1299. 

  1299. 129800     MOVE    WRK-AN-00001  TO COMPUTED-X                          NC2534.2
    1300. 

  1300. 129900     MOVE   "A"    TO CORRECT-X                                   NC2534.2
    1301. 

  1301. 130000     PERFORM FAIL.                                                NC2534.2
    1302. 

  1302. 130100 SUB-WRITE-F3-14-1.                                               NC2534.2
    1303. 

  1303. 130200     PERFORM PRINT-DETAIL.                                        NC2534.2
    1304. 

  1304. 130300*                                                                 NC2534.2
    1305. 

  1305. 130400 SUB-INIT-F3-14-2.                                                NC2534.2
    1306. 

  1306. 130500     MOVE  "SUB-TEST-F3-14-2" TO PAR-NAME.                        NC2534.2
    1307. 

  1307. 130600     ADD    1 TO REC-CT.                                          NC2534.2
    1308. 

  1308. 130700 SUB-TEST-F3-14-2.                                                NC2534.2
    1309. 

  1309. 130800     IF     SUBTR-13 OF SUBTR-16 NOT EQUAL TO 1                   NC2534.2
    1310. 

  1310. 130900            GO TO SUB-FAIL-F3-14-2.                               NC2534.2
    1311. 

  1311. 131000     PERFORM PASS                                                 NC2534.2
    1312. 

  1312. 131100     GO TO SUB-WRITE-F3-14-2.                                     NC2534.2
    1313. 

  1313. 131200 SUB-DELETE-F3-14-2.                                              NC2534.2
    1314. 

  1314. 131300     PERFORM DE-LETE.                                             NC2534.2
    1315. 

  1315. 131400     GO TO SUB-WRITE-F3-14-2.                                     NC2534.2
    1316. 

  1316. 131500 SUB-FAIL-F3-14-2.                                                NC2534.2
    1317. 

  1317. 131600     MOVE    SUBTR-13 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    1318. 

  1318. 131700     MOVE   "+1" TO CORRECT-A                                     NC2534.2
    1319. 

  1319. 131800     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1320. 

  1320. 131900          TO RE-MARK                                              NC2534.2
    1321. 

  1321. 132000     PERFORM FAIL.                                                NC2534.2
    1322. 

  1322. 132100 SUB-WRITE-F3-14-2.                                               NC2534.2
    1323. 

  1323. 132200     PERFORM PRINT-DETAIL.                                        NC2534.2
    1324. 

  1324. 132300*                                                                 NC2534.2
    1325. 

  1325. 132400 SUB-INIT-F3-14-3.                                                NC2534.2
    1326. 

  1326. 132500     MOVE  "SUB-TEST-F3-14-3" TO PAR-NAME.                        NC2534.2
    1327. 

  1327. 132600     ADD    1 TO REC-CT.                                          NC2534.2
    1328. 

  1328. 132700 SUB-TEST-F3-14-3.                                                NC2534.2
    1329. 

  1329. 132800     IF     SUBTR-14 OF SUBTR-16 IS NOT EQUAL TO 1.96             NC2534.2
    1330. 

  1330. 132900            GO TO SUB-FAIL-F3-14-3.                               NC2534.2
    1331. 

  1331. 133000     PERFORM PASS                                                 NC2534.2
    1332. 

  1332. 133100     GO TO SUB-WRITE-F3-14-3.                                     NC2534.2
    1333. 

  1333. 133200 SUB-DELETE-F3-14-3.                                              NC2534.2
    1334. 

  1334. 133300     PERFORM DE-LETE.                                             NC2534.2
    1335. 

  1335. 133400     GO TO SUB-WRITE-F3-14-3.                                     NC2534.2
    1336. 

  1336. 133500 SUB-FAIL-F3-14-3.                                                NC2534.2
    1337. 

  1337. 133600     MOVE   SUBTR-14 OF SUBTR-16 TO COMPUTED-N                    NC2534.2
    1338. 

  1338. 133700     MOVE   "+1.96" TO CORRECT-A                                  NC2534.2
    1339. 

  1339. 133800     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1340. 

  1340. 133900          TO RE-MARK                                              NC2534.2
    1341. 

  1341. 134000     PERFORM FAIL.                                                NC2534.2
    1342. 

  1342. 134100 SUB-WRITE-F3-14-3.                                               NC2534.2
    1343. 

  1343. 134200     PERFORM PRINT-DETAIL.                                        NC2534.2
    1344. 

  1344. 134300*                                                                 NC2534.2
    1345. 

  1345. 134400 SUB-INIT-F3-14-4.                                                NC2534.2
    1346. 

  1346. 134500     MOVE  "SUB-TEST-F3-14-4" TO PAR-NAME.                        NC2534.2
    1347. 

  1347. 134600     ADD     1 TO REC-CT.                                         NC2534.2
    1348. 

  1348. 134700 SUB-TEST-F3-14-4.                                                NC2534.2
    1349. 

  1349. 134800     IF     SUBTR-15 OF SUBTR-16 NOT EQUAL TO 1                   NC2534.2
    1350. 

  1350. 134900            GO TO SUB-FAIL-F3-14-4.                               NC2534.2
    1351. 

  1351. 135000     PERFORM PASS                                                 NC2534.2
    1352. 

  1352. 135100     GO TO SUB-WRITE-F3-14-4.                                     NC2534.2
    1353. 

  1353. 135200 SUB-DELETE-F3-14-4.                                              NC2534.2
    1354. 

  1354. 135300     PERFORM DE-LETE.                                             NC2534.2
    1355. 

  1355. 135400     GO TO SUB-WRITE-F3-14-4.                                     NC2534.2
    1356. 

  1356. 135500 SUB-FAIL-F3-14-4.                                                NC2534.2
    1357. 

  1357. 135600     MOVE    SUBTR-15 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    1358. 

  1358. 135700     MOVE   "+1" TO CORRECT-A                                     NC2534.2
    1359. 

  1359. 135800     MOVE   "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK           NC2534.2
    1360. 

  1360. 135900     PERFORM FAIL.                                                NC2534.2
    1361. 

  1361. 136000 SUB-WRITE-F3-14-4.                                               NC2534.2
    1362. 

  1362. 136100     PERFORM PRINT-DETAIL.                                        NC2534.2
    1363. 

  1363. 136200*                                                                 NC2534.2
    1364. 

  1364. 136300 SUB-INIT-F3-14-5.                                                NC2534.2
    1365. 

  1365. 136400     MOVE   "SUB-TEST-F3-14-5" TO PAR-NAME.                       NC2534.2
    1366. 

  1366. 136500     ADD     1 TO REC-CT.                                         NC2534.2
    1367. 

  1367. 136600 SUB-TEST-F3-14-5.                                                NC2534.2
    1368. 

  1368. 136700     IF      WRK-XN-00001 NOT = "Z"                               NC2534.2
    1369. 

  1369. 136800             GO TO SUB-FAIL-F3-14-5.                              NC2534.2
    1370. 

  1370. 136900     PERFORM PASS                                                 NC2534.2
    1371. 

  1371. 137000     GO TO SUB-WRITE-F3-14-5.                                     NC2534.2
    1372. 

  1372. 137100 SUB-DELETE-F3-14-5.                                              NC2534.2
    1373. 

  1373. 137200     PERFORM DE-LETE.                                             NC2534.2
    1374. 

  1374. 137300     GO TO SUB-WRITE-F3-14-5.                                     NC2534.2
    1375. 

  1375. 137400 SUB-FAIL-F3-14-5.                                                NC2534.2
    1376. 

  1376. 137500     MOVE   "SCOPE TERMINATOR IGNORED" TO RE-MARK                 NC2534.2
    1377. 

  1377. 137600     MOVE   "Z"   TO COMPUTED-X                                   NC2534.2
    1378. 

  1378. 137700     MOVE    WRK-AN-00001 TO CORRECT-X                            NC2534.2
    1379. 

  1379. 137800     PERFORM FAIL.                                                NC2534.2
    1380. 

  1380. 137900 SUB-WRITE-F3-14-5.                                               NC2534.2
    1381. 

  1381. 138000     PERFORM PRINT-DETAIL.                                        NC2534.2
    1382. 

  1382. 138100*                                                                 NC2534.2
    1383. 

  1383. 138200 SUB-INIT-F3-15.                                                  NC2534.2
    1384. 

  1384. 138300*    ===-->  NEW SIZE ERROR TESTS  <--===                         NC2534.2
    1385. 

  1385. 138400*    ===-->   NO SIZE ERROR        <--===                         NC2534.2
    1386. 

  1386. 138500     MOVE   "VI-133 6.25" TO ANSI-REFERENCE.                      NC2534.2
    1387. 

  1387. 138600     MOVE    SPACE  TO WRK-AN-00001.                              NC2534.2
    1388. 

  1388. 138700     MOVE    SPACE  TO WRK-XN-00001.                              NC2534.2
    1389. 

  1389. 138800     MOVE    0      TO REC-CT.                                    NC2534.2
    1390. 

  1390. 138900     MOVE    1      TO SUBTR-13 OF SUBTR-12.                      NC2534.2
    1391. 

  1391. 139000     MOVE   -1.725  TO SUBTR-14 OF SUBTR-12.                      NC2534.2
    1392. 

  1392. 139100     MOVE    6.76   TO SUBTR-15 OF SUBTR-12.                      NC2534.2
    1393. 

  1393. 139200     MOVE    2      TO SUBTR-13 OF SUBTR-16.                      NC2534.2
    1394. 

  1394. 139300     MOVE     .23   TO SUBTR-14 OF SUBTR-16.                      NC2534.2
    1395. 

  1395. 139400     MOVE    1      TO SUBTR-15 OF SUBTR-16.                      NC2534.2
    1396. 

  1396. 139500 SUB-TEST-F3-15-0.                                                NC2534.2
    1397. 

  1397. 139600     SUBTRACT CORRESPONDING SUBTR-12 FROM SUBTR-16 ROUNDED        NC2534.2
    1398. 

  1398. 139700             ON SIZE ERROR                                        NC2534.2
    1399. 

  1399. 139800             MOVE   "A" TO WRK-AN-00001                           NC2534.2
    1400. 

  1400. 139900     END-SUBTRACT                                                 NC2534.2
    1401. 

  1401. 140000     MOVE   "Z"  TO WRK-XN-00001.                                 NC2534.2
    1402. 

  1402. 140100*                                                                 NC2534.2
    1403. 

  1403. 140200 SUB-INIT-F3-15-1.                                                NC2534.2
    1404. 

  1404. 140300     MOVE   "SUB-TEST-F3-15-1" TO PAR-NAME.                       NC2534.2
    1405. 

  1405. 140400     ADD     1 TO REC-CT.                                         NC2534.2
    1406. 

  1406. 140500 SUB-TEST-F3-15-1.                                                NC2534.2
    1407. 

  1407. 140600     IF      WRK-AN-00001    = "A"                                NC2534.2
    1408. 

  1408. 140700             GO TO SUB-FAIL-F3-15-1.                              NC2534.2
    1409. 

  1409. 140800     PERFORM PASS                                                 NC2534.2
    1410. 

  1410. 140900     GO TO SUB-WRITE-F3-15-1.                                     NC2534.2
    1411. 

  1411. 141000 SUB-FAIL-F3-15-1.                                                NC2534.2
    1412. 

  1412. 141100     MOVE   "ON SIZE ERROR SHOULD NOT BE EXECUTED"                NC2534.2
    1413. 

  1413. 141200          TO RE-MARK                                              NC2534.2
    1414. 

  1414. 141300     MOVE    WRK-AN-00001  TO COMPUTED-X                          NC2534.2
    1415. 

  1415. 141400     MOVE    SPACE TO CORRECT-X                                   NC2534.2
    1416. 

  1416. 141500     PERFORM FAIL.                                                NC2534.2
    1417. 

  1417. 141600 SUB-WRITE-F3-15-1.                                               NC2534.2
    1418. 

  1418. 141700     PERFORM PRINT-DETAIL.                                        NC2534.2
    1419. 

  1419. 141800*                                                                 NC2534.2
    1420. 

  1420. 141900 SUB-INIT-F3-15-2.                                                NC2534.2
    1421. 

  1421. 142000     MOVE  "SUB-TEST-F3-15-2" TO PAR-NAME.                        NC2534.2
    1422. 

  1422. 142100     ADD    1 TO REC-CT.                                          NC2534.2
    1423. 

  1423. 142200 SUB-TEST-F3-15-2.                                                NC2534.2
    1424. 

  1424. 142300     IF     SUBTR-13 OF SUBTR-16 NOT EQUAL TO 1                   NC2534.2
    1425. 

  1425. 142400            GO TO SUB-FAIL-F3-15-2.                               NC2534.2
    1426. 

  1426. 142500     PERFORM PASS                                                 NC2534.2
    1427. 

  1427. 142600     GO TO SUB-WRITE-F3-15-2.                                     NC2534.2
    1428. 

  1428. 142700 SUB-DELETE-F3-15-2.                                              NC2534.2
    1429. 

  1429. 142800     PERFORM DE-LETE.                                             NC2534.2
    1430. 

  1430. 142900     GO TO SUB-WRITE-F3-15-2.                                     NC2534.2
    1431. 

  1431. 143000 SUB-FAIL-F3-15-2.                                                NC2534.2
    1432. 

  1432. 143100     MOVE    SUBTR-13 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    1433. 

  1433. 143200     MOVE   "+1" TO CORRECT-A                                     NC2534.2
    1434. 

  1434. 143300     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1435. 

  1435. 143400          TO RE-MARK                                              NC2534.2
    1436. 

  1436. 143500     PERFORM FAIL.                                                NC2534.2
    1437. 

  1437. 143600 SUB-WRITE-F3-15-2.                                               NC2534.2
    1438. 

  1438. 143700     PERFORM PRINT-DETAIL.                                        NC2534.2
    1439. 

  1439. 143800*                                                                 NC2534.2
    1440. 

  1440. 143900 SUB-INIT-F3-15-3.                                                NC2534.2
    1441. 

  1441. 144000     MOVE  "SUB-TEST-F3-15-3" TO PAR-NAME.                        NC2534.2
    1442. 

  1442. 144100     ADD    1 TO REC-CT.                                          NC2534.2
    1443. 

  1443. 144200 SUB-TEST-F3-15-3.                                                NC2534.2
    1444. 

  1444. 144300     IF     SUBTR-14 OF SUBTR-16 IS NOT EQUAL TO 1.96             NC2534.2
    1445. 

  1445. 144400            GO TO SUB-FAIL-F3-15-3.                               NC2534.2
    1446. 

  1446. 144500     PERFORM PASS                                                 NC2534.2
    1447. 

  1447. 144600     GO TO SUB-WRITE-F3-15-3.                                     NC2534.2
    1448. 

  1448. 144700 SUB-DELETE-F3-15-3.                                              NC2534.2
    1449. 

  1449. 144800     PERFORM DE-LETE.                                             NC2534.2
    1450. 

  1450. 144900     GO TO SUB-WRITE-F3-15-3.                                     NC2534.2
    1451. 

  1451. 145000 SUB-FAIL-F3-15-3.                                                NC2534.2
    1452. 

  1452. 145100     MOVE   SUBTR-14 OF SUBTR-16 TO COMPUTED-N                    NC2534.2
    1453. 

  1453. 145200     MOVE   "+1.96" TO CORRECT-A                                  NC2534.2
    1454. 

  1454. 145300     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1455. 

  1455. 145400          TO RE-MARK                                              NC2534.2
    1456. 

  1456. 145500     PERFORM FAIL.                                                NC2534.2
    1457. 

  1457. 145600 SUB-WRITE-F3-15-3.                                               NC2534.2
    1458. 

  1458. 145700     PERFORM PRINT-DETAIL.                                        NC2534.2
    1459. 

  1459. 145800*                                                                 NC2534.2
    1460. 

  1460. 145900 SUB-INIT-F3-15-4.                                                NC2534.2
    1461. 

  1461. 146000     MOVE  "SUB-TEST-F3-15-4" TO PAR-NAME.                        NC2534.2
    1462. 

  1462. 146100     ADD     1 TO REC-CT.                                         NC2534.2
    1463. 

  1463. 146200 SUB-TEST-F3-15-4.                                                NC2534.2
    1464. 

  1464. 146300     IF     SUBTR-15 OF SUBTR-16 NOT EQUAL TO -5.76               NC2534.2
    1465. 

  1465. 146400            GO TO SUB-FAIL-F3-15-4.                               NC2534.2
    1466. 

  1466. 146500     PERFORM PASS                                                 NC2534.2
    1467. 

  1467. 146600     GO TO SUB-WRITE-F3-15-4.                                     NC2534.2
    1468. 

  1468. 146700 SUB-DELETE-F3-15-4.                                              NC2534.2
    1469. 

  1469. 146800     PERFORM DE-LETE.                                             NC2534.2
    1470. 

  1470. 146900     GO TO SUB-WRITE-F3-15-4.                                     NC2534.2
    1471. 

  1471. 147000 SUB-FAIL-F3-15-4.                                                NC2534.2
    1472. 

  1472. 147100     MOVE    SUBTR-15 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    1473. 

  1473. 147200     MOVE   "-5.76" TO CORRECT-A                                  NC2534.2
    1474. 

  1474. 147300     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1475. 

  1475. 147400          TO RE-MARK                                              NC2534.2
    1476. 

  1476. 147500     PERFORM FAIL.                                                NC2534.2
    1477. 

  1477. 147600 SUB-WRITE-F3-15-4.                                               NC2534.2
    1478. 

  1478. 147700     PERFORM PRINT-DETAIL.                                        NC2534.2
    1479. 

  1479. 147800*                                                                 NC2534.2
    1480. 

  1480. 147900 SUB-INIT-F3-15-5.                                                NC2534.2
    1481. 

  1481. 148000     MOVE   "SUB-TEST-F3-15-5" TO PAR-NAME.                       NC2534.2
    1482. 

  1482. 148100     ADD     1 TO REC-CT.                                         NC2534.2
    1483. 

  1483. 148200 SUB-TEST-F3-15-5.                                                NC2534.2
    1484. 

  1484. 148300     IF      WRK-XN-00001 NOT = "Z"                               NC2534.2
    1485. 

  1485. 148400             GO TO SUB-FAIL-F3-15-5.                              NC2534.2
    1486. 

  1486. 148500     PERFORM PASS                                                 NC2534.2
    1487. 

  1487. 148600     GO TO SUB-WRITE-F3-15-5.                                     NC2534.2
    1488. 

  1488. 148700 SUB-DELETE-F3-15-5.                                              NC2534.2
    1489. 

  1489. 148800     PERFORM DE-LETE.                                             NC2534.2
    1490. 

  1490. 148900     GO TO SUB-WRITE-F3-15-5.                                     NC2534.2
    1491. 

  1491. 149000 SUB-FAIL-F3-15-5.                                                NC2534.2
    1492. 

  1492. 149100     MOVE   "SCOPE TERMINATOR IGNORED" TO RE-MARK                 NC2534.2
    1493. 

  1493. 149200     MOVE   "Z"   TO COMPUTED-X                                   NC2534.2
    1494. 

  1494. 149300     MOVE    WRK-AN-00001 TO CORRECT-X                            NC2534.2
    1495. 

  1495. 149400     PERFORM FAIL.                                                NC2534.2
    1496. 

  1496. 149500 SUB-WRITE-F3-15-5.                                               NC2534.2
    1497. 

  1497. 149600     PERFORM PRINT-DETAIL.                                        NC2534.2
    1498. 

  1498. 149700*                                                                 NC2534.2
    1499. 

  1499. 149800 SUB-INIT-F3-16.                                                  NC2534.2
    1500. 

  1500. 149900*    ===-->  NEW SIZE ERROR TESTS  <--===                         NC2534.2
    1501. 

  1501. 150000*    ===-->      SIZE ERROR        <--===                         NC2534.2
    1502. 

  1502. 150100     MOVE   "VI-133 6.25" TO ANSI-REFERENCE.                      NC2534.2
    1503. 

  1503. 150200     MOVE    SPACE  TO WRK-AN-00001.                              NC2534.2
    1504. 

  1504. 150300     MOVE    SPACE  TO WRK-XN-00001.                              NC2534.2
    1505. 

  1505. 150400     MOVE    0      TO REC-CT.                                    NC2534.2
    1506. 

  1506. 150500     MOVE    1      TO SUBTR-13 OF SUBTR-12.                      NC2534.2
    1507. 

  1507. 150600     MOVE   -1.725  TO SUBTR-14 OF SUBTR-12.                      NC2534.2
    1508. 

  1508. 150700     MOVE   76.76   TO SUBTR-15 OF SUBTR-12.                      NC2534.2
    1509. 

  1509. 150800     MOVE    2      TO SUBTR-13 OF SUBTR-16.                      NC2534.2
    1510. 

  1510. 150900     MOVE     .23   TO SUBTR-14 OF SUBTR-16.                      NC2534.2
    1511. 

  1511. 151000     MOVE    1      TO SUBTR-15 OF SUBTR-16.                      NC2534.2
    1512. 

  1512. 151100 SUB-TEST-F3-16-0.                                                NC2534.2
    1513. 

  1513. 151200     SUBTRACT CORRESPONDING SUBTR-12 FROM SUBTR-16 ROUNDED        NC2534.2
    1514. 

  1514. 151300             ON SIZE ERROR                                        NC2534.2
    1515. 

  1515. 151400             MOVE   "A" TO WRK-AN-00001                           NC2534.2
    1516. 

  1516. 151500         NOT ON SIZE ERROR                                        NC2534.2
    1517. 

  1517. 151600             MOVE   "B" TO WRK-AN-00001                           NC2534.2
    1518. 

  1518. 151700     END-SUBTRACT                                                 NC2534.2
    1519. 

  1519. 151800     MOVE   "Z" TO WRK-XN-00001.                                  NC2534.2
    1520. 

  1520. 151900*                                                                 NC2534.2
    1521. 

  1521. 152000 SUB-INIT-F3-16-1.                                                NC2534.2
    1522. 

  1522. 152100     MOVE   "SUB-TEST-F3-16-1" TO PAR-NAME.                       NC2534.2
    1523. 

  1523. 152200     ADD     1 TO REC-CT.                                         NC2534.2
    1524. 

  1524. 152300 SUB-TEST-F3-16-1.                                                NC2534.2
    1525. 

  1525. 152400     IF      WRK-AN-00001    NOT = "A"                            NC2534.2
    1526. 

  1526. 152500             GO TO SUB-FAIL-F3-16-1.                              NC2534.2
    1527. 

  1527. 152600     PERFORM PASS                                                 NC2534.2
    1528. 

  1528. 152700     GO TO SUB-WRITE-F3-16-1.                                     NC2534.2
    1529. 

  1529. 152800 SUB-DELETE-F3-16-1.                                              NC2534.2
    1530. 

  1530. 152900     PERFORM DE-LETE.                                             NC2534.2
    1531. 

  1531. 153000     GO TO SUB-WRITE-F3-16-1.                                     NC2534.2
    1532. 

  1532. 153100 SUB-FAIL-F3-16-1.                                                NC2534.2
    1533. 

  1533. 153200     MOVE   "ON SIZE ERROR SHOULD BE EXECUTED"                    NC2534.2
    1534. 

  1534. 153300          TO RE-MARK                                              NC2534.2
    1535. 

  1535. 153400     MOVE    WRK-AN-00001  TO COMPUTED-X                          NC2534.2
    1536. 

  1536. 153500     MOVE   "A"    TO CORRECT-X                                   NC2534.2
    1537. 

  1537. 153600     PERFORM FAIL.                                                NC2534.2
    1538. 

  1538. 153700 SUB-WRITE-F3-16-1.                                               NC2534.2
    1539. 

  1539. 153800     PERFORM PRINT-DETAIL.                                        NC2534.2
    1540. 

  1540. 153900*                                                                 NC2534.2
    1541. 

  1541. 154000 SUB-INIT-F3-16-2.                                                NC2534.2
    1542. 

  1542. 154100     MOVE  "SUB-TEST-F3-16-2" TO PAR-NAME.                        NC2534.2
    1543. 

  1543. 154200     ADD    1 TO REC-CT.                                          NC2534.2
    1544. 

  1544. 154300 SUB-TEST-F3-16-2.                                                NC2534.2
    1545. 

  1545. 154400     IF     SUBTR-13 OF SUBTR-16 NOT EQUAL TO 1                   NC2534.2
    1546. 

  1546. 154500            GO TO SUB-FAIL-F3-16-2.                               NC2534.2
    1547. 

  1547. 154600     PERFORM PASS                                                 NC2534.2
    1548. 

  1548. 154700     GO TO SUB-WRITE-F3-16-2.                                     NC2534.2
    1549. 

  1549. 154800 SUB-DELETE-F3-16-2.                                              NC2534.2
    1550. 

  1550. 154900     PERFORM DE-LETE.                                             NC2534.2
    1551. 

  1551. 155000     GO TO SUB-WRITE-F3-16-2.                                     NC2534.2
    1552. 

  1552. 155100 SUB-FAIL-F3-16-2.                                                NC2534.2
    1553. 

  1553. 155200     MOVE    SUBTR-13 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    1554. 

  1554. 155300     MOVE   "+1" TO CORRECT-A                                     NC2534.2
    1555. 

  1555. 155400     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1556. 

  1556. 155500          TO RE-MARK                                              NC2534.2
    1557. 

  1557. 155600     PERFORM FAIL.                                                NC2534.2
    1558. 

  1558. 155700 SUB-WRITE-F3-16-2.                                               NC2534.2
    1559. 

  1559. 155800     PERFORM PRINT-DETAIL.                                        NC2534.2
    1560. 

  1560. 155900*                                                                 NC2534.2
    1561. 

  1561. 156000 SUB-INIT-F3-16-3.                                                NC2534.2
    1562. 

  1562. 156100     MOVE  "SUB-TEST-F3-16-3" TO PAR-NAME.                        NC2534.2
    1563. 

  1563. 156200     ADD    1 TO REC-CT.                                          NC2534.2
    1564. 

  1564. 156300 SUB-TEST-F3-16-3.                                                NC2534.2
    1565. 

  1565. 156400     IF     SUBTR-14 OF SUBTR-16 IS NOT EQUAL TO 1.96             NC2534.2
    1566. 

  1566. 156500            GO TO SUB-FAIL-F3-16-3.                               NC2534.2
    1567. 

  1567. 156600     PERFORM PASS                                                 NC2534.2
    1568. 

  1568. 156700     GO TO SUB-WRITE-F3-16-3.                                     NC2534.2
    1569. 

  1569. 156800 SUB-DELETE-F3-16-3.                                              NC2534.2
    1570. 

  1570. 156900     PERFORM DE-LETE.                                             NC2534.2
    1571. 

  1571. 157000     GO TO SUB-WRITE-F3-16-3.                                     NC2534.2
    1572. 

  1572. 157100 SUB-FAIL-F3-16-3.                                                NC2534.2
    1573. 

  1573. 157200     MOVE   SUBTR-14 OF SUBTR-16 TO COMPUTED-N                    NC2534.2
    1574. 

  1574. 157300     MOVE   "+1.96" TO CORRECT-A                                  NC2534.2
    1575. 

  1575. 157400     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1576. 

  1576. 157500          TO RE-MARK                                              NC2534.2
    1577. 

  1577. 157600     PERFORM FAIL.                                                NC2534.2
    1578. 

  1578. 157700 SUB-WRITE-F3-16-3.                                               NC2534.2
    1579. 

  1579. 157800     PERFORM PRINT-DETAIL.                                        NC2534.2
    1580. 

  1580. 157900*                                                                 NC2534.2
    1581. 

  1581. 158000 SUB-INIT-F3-16-4.                                                NC2534.2
    1582. 

  1582. 158100     MOVE  "SUB-TEST-F3-16-4" TO PAR-NAME.                        NC2534.2
    1583. 

  1583. 158200     ADD     1 TO REC-CT.                                         NC2534.2
    1584. 

  1584. 158300 SUB-TEST-F3-16-4.                                                NC2534.2
    1585. 

  1585. 158400     IF     SUBTR-15 OF SUBTR-16 NOT EQUAL TO 1                   NC2534.2
    1586. 

  1586. 158500            GO TO SUB-FAIL-F3-16-4.                               NC2534.2
    1587. 

  1587. 158600     PERFORM PASS                                                 NC2534.2
    1588. 

  1588. 158700     GO TO SUB-WRITE-F3-16-4.                                     NC2534.2
    1589. 

  1589. 158800 SUB-DELETE-F3-16-4.                                              NC2534.2
    1590. 

  1590. 158900     PERFORM DE-LETE.                                             NC2534.2
    1591. 

  1591. 159000     GO TO SUB-WRITE-F3-16-4.                                     NC2534.2
    1592. 

  1592. 159100 SUB-FAIL-F3-16-4.                                                NC2534.2
    1593. 

  1593. 159200     MOVE    SUBTR-15 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    1594. 

  1594. 159300     MOVE   "+1" TO CORRECT-A                                     NC2534.2
    1595. 

  1595. 159400     MOVE   "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK           NC2534.2
    1596. 

  1596. 159500     PERFORM FAIL.                                                NC2534.2
    1597. 

  1597. 159600 SUB-WRITE-F3-16-4.                                               NC2534.2
    1598. 

  1598. 159700     PERFORM PRINT-DETAIL.                                        NC2534.2
    1599. 

  1599. 159800*                                                                 NC2534.2
    1600. 

  1600. 159900 SUB-INIT-F3-16-5.                                                NC2534.2
    1601. 

  1601. 160000     MOVE   "SUB-TEST-F3-16-5" TO PAR-NAME.                       NC2534.2
    1602. 

  1602. 160100     ADD     1 TO REC-CT.                                         NC2534.2
    1603. 

  1603. 160200 SUB-TEST-F3-16-5.                                                NC2534.2
    1604. 

  1604. 160300     IF      WRK-XN-00001 NOT = "Z"                               NC2534.2
    1605. 

  1605. 160400             GO TO SUB-FAIL-F3-16-5.                              NC2534.2
    1606. 

  1606. 160500     PERFORM PASS                                                 NC2534.2
    1607. 

  1607. 160600     GO TO SUB-WRITE-F3-16-5.                                     NC2534.2
    1608. 

  1608. 160700 SUB-DELETE-F3-16-5.                                              NC2534.2
    1609. 

  1609. 160800     PERFORM DE-LETE.                                             NC2534.2
    1610. 

  1610. 160900     GO TO SUB-WRITE-F3-16-5.                                     NC2534.2
    1611. 

  1611. 161000 SUB-FAIL-F3-16-5.                                                NC2534.2
    1612. 

  1612. 161100     MOVE   "SCOPE TERMINATOR IGNORED" TO RE-MARK                 NC2534.2
    1613. 

  1613. 161200     MOVE   "Z"   TO COMPUTED-X                                   NC2534.2
    1614. 

  1614. 161300     MOVE    WRK-AN-00001 TO CORRECT-X                            NC2534.2
    1615. 

  1615. 161400     PERFORM FAIL.                                                NC2534.2
    1616. 

  1616. 161500 SUB-WRITE-F3-16-5.                                               NC2534.2
    1617. 

  1617. 161600     PERFORM PRINT-DETAIL.                                        NC2534.2
    1618. 

  1618. 161700*                                                                 NC2534.2
    1619. 

  1619. 161800 SUB-INIT-F3-17.                                                  NC2534.2
    1620. 

  1620. 161900*    ===-->  NEW SIZE ERROR TESTS  <--===                         NC2534.2
    1621. 

  1621. 162000*    ===-->   NO SIZE ERROR        <--===                         NC2534.2
    1622. 

  1622. 162100     MOVE   "VI-133 6.25" TO ANSI-REFERENCE.                      NC2534.2
    1623. 

  1623. 162200     MOVE    SPACE  TO WRK-AN-00001.                              NC2534.2
    1624. 

  1624. 162300     MOVE    SPACE  TO WRK-XN-00001.                              NC2534.2
    1625. 

  1625. 162400     MOVE    0      TO REC-CT.                                    NC2534.2
    1626. 

  1626. 162500     MOVE    1      TO SUBTR-13 OF SUBTR-12.                      NC2534.2
    1627. 

  1627. 162600     MOVE   -1.725  TO SUBTR-14 OF SUBTR-12.                      NC2534.2
    1628. 

  1628. 162700     MOVE    6.76   TO SUBTR-15 OF SUBTR-12.                      NC2534.2
    1629. 

  1629. 162800     MOVE    2      TO SUBTR-13 OF SUBTR-16.                      NC2534.2
    1630. 

  1630. 162900     MOVE     .23   TO SUBTR-14 OF SUBTR-16.                      NC2534.2
    1631. 

  1631. 163000     MOVE    1      TO SUBTR-15 OF SUBTR-16.                      NC2534.2
    1632. 

  1632. 163100 SUB-TEST-F3-17-0.                                                NC2534.2
    1633. 

  1633. 163200     SUBTRACT CORRESPONDING SUBTR-12 FROM SUBTR-16 ROUNDED        NC2534.2
    1634. 

  1634. 163300             ON SIZE ERROR                                        NC2534.2
    1635. 

  1635. 163400             MOVE   "A" TO WRK-AN-00001                           NC2534.2
    1636. 

  1636. 163500         NOT ON SIZE ERROR                                        NC2534.2
    1637. 

  1637. 163600             MOVE   "B" TO WRK-AN-00001                           NC2534.2
    1638. 

  1638. 163700     END-SUBTRACT                                                 NC2534.2
    1639. 

  1639. 163800     MOVE   "Z" TO WRK-XN-00001.                                  NC2534.2
    1640. 

  1640. 163900*                                                                 NC2534.2
    1641. 

  1641. 164000 SUB-INIT-F3-17-1.                                                NC2534.2
    1642. 

  1642. 164100     MOVE   "SUB-TEST-F3-17-1" TO PAR-NAME.                       NC2534.2
    1643. 

  1643. 164200     ADD     1 TO REC-CT.                                         NC2534.2
    1644. 

  1644. 164300 SUB-TEST-F3-17-1.                                                NC2534.2
    1645. 

  1645. 164400     IF      WRK-AN-00001    NOT = "B"                            NC2534.2
    1646. 

  1646. 164500             GO TO SUB-FAIL-F3-17-1.                              NC2534.2
    1647. 

  1647. 164600     PERFORM PASS                                                 NC2534.2
    1648. 

  1648. 164700     GO TO SUB-WRITE-F3-17-1.                                     NC2534.2
    1649. 

  1649. 164800 SUB-DELETE-F3-17-1.                                              NC2534.2
    1650. 

  1650. 164900     PERFORM DE-LETE.                                             NC2534.2
    1651. 

  1651. 165000     GO TO SUB-WRITE-F3-17-1.                                     NC2534.2
    1652. 

  1652. 165100 SUB-FAIL-F3-17-1.                                                NC2534.2
    1653. 

  1653. 165200     MOVE   "NOT ON SIZE ERROR SHOULD BE EXECUTED"                NC2534.2
    1654. 

  1654. 165300           TO RE-MARK                                             NC2534.2
    1655. 

  1655. 165400     MOVE    WRK-AN-00001  TO COMPUTED-X                          NC2534.2
    1656. 

  1656. 165500     MOVE   "B"    TO CORRECT-X                                   NC2534.2
    1657. 

  1657. 165600     PERFORM FAIL.                                                NC2534.2
    1658. 

  1658. 165700 SUB-WRITE-F3-17-1.                                               NC2534.2
    1659. 

  1659. 165800     PERFORM PRINT-DETAIL.                                        NC2534.2
    1660. 

  1660. 165900*                                                                 NC2534.2
    1661. 

  1661. 166000 SUB-INIT-F3-17-2.                                                NC2534.2
    1662. 

  1662. 166100     MOVE  "SUB-TEST-F3-17-2" TO PAR-NAME.                        NC2534.2
    1663. 

  1663. 166200     ADD    1 TO REC-CT.                                          NC2534.2
    1664. 

  1664. 166300 SUB-TEST-F3-17-2.                                                NC2534.2
    1665. 

  1665. 166400     IF     SUBTR-13 OF SUBTR-16 NOT EQUAL TO 1                   NC2534.2
    1666. 

  1666. 166500            GO TO SUB-FAIL-F3-17-2.                               NC2534.2
    1667. 

  1667. 166600     PERFORM PASS                                                 NC2534.2
    1668. 

  1668. 166700     GO TO SUB-WRITE-F3-17-2.                                     NC2534.2
    1669. 

  1669. 166800 SUB-DELETE-F3-17-2.                                              NC2534.2
    1670. 

  1670. 166900     PERFORM DE-LETE.                                             NC2534.2
    1671. 

  1671. 167000     GO TO SUB-WRITE-F3-17-2.                                     NC2534.2
    1672. 

  1672. 167100 SUB-FAIL-F3-17-2.                                                NC2534.2
    1673. 

  1673. 167200     MOVE    SUBTR-13 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    1674. 

  1674. 167300     MOVE   "+1" TO CORRECT-A                                     NC2534.2
    1675. 

  1675. 167400     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1676. 

  1676. 167500          TO RE-MARK                                              NC2534.2
    1677. 

  1677. 167600     PERFORM FAIL.                                                NC2534.2
    1678. 

  1678. 167700 SUB-WRITE-F3-17-2.                                               NC2534.2
    1679. 

  1679. 167800     PERFORM PRINT-DETAIL.                                        NC2534.2
    1680. 

  1680. 167900*                                                                 NC2534.2
    1681. 

  1681. 168000 SUB-INIT-F3-17-3.                                                NC2534.2
    1682. 

  1682. 168100     MOVE  "SUB-TEST-F3-17-3" TO PAR-NAME.                        NC2534.2
    1683. 

  1683. 168200     ADD    1 TO REC-CT.                                          NC2534.2
    1684. 

  1684. 168300 SUB-TEST-F3-17-3.                                                NC2534.2
    1685. 

  1685. 168400     IF     SUBTR-14 OF SUBTR-16 IS NOT EQUAL TO 1.96             NC2534.2
    1686. 

  1686. 168500            GO TO SUB-FAIL-F3-17-3.                               NC2534.2
    1687. 

  1687. 168600     PERFORM PASS                                                 NC2534.2
    1688. 

  1688. 168700     GO TO SUB-WRITE-F3-17-3.                                     NC2534.2
    1689. 

  1689. 168800 SUB-DELETE-F3-17-3.                                              NC2534.2
    1690. 

  1690. 168900     PERFORM DE-LETE.                                             NC2534.2
    1691. 

  1691. 169000     GO TO SUB-WRITE-F3-17-3.                                     NC2534.2
    1692. 

  1692. 169100 SUB-FAIL-F3-17-3.                                                NC2534.2
    1693. 

  1693. 169200     MOVE   SUBTR-14 OF SUBTR-16 TO COMPUTED-N                    NC2534.2
    1694. 

  1694. 169300     MOVE   "+1.96" TO CORRECT-A                                  NC2534.2
    1695. 

  1695. 169400     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1696. 

  1696. 169500          TO RE-MARK                                              NC2534.2
    1697. 

  1697. 169600     PERFORM FAIL.                                                NC2534.2
    1698. 

  1698. 169700 SUB-WRITE-F3-17-3.                                               NC2534.2
    1699. 

  1699. 169800     PERFORM PRINT-DETAIL.                                        NC2534.2
    1700. 

  1700. 169900*                                                                 NC2534.2
    1701. 

  1701. 170000 SUB-INIT-F3-17-4.                                                NC2534.2
    1702. 

  1702. 170100     MOVE  "SUB-TEST-F3-17-4" TO PAR-NAME.                        NC2534.2
    1703. 

  1703. 170200     ADD     1 TO REC-CT.                                         NC2534.2
    1704. 

  1704. 170300 SUB-TEST-F3-17-4.                                                NC2534.2
    1705. 

  1705. 170400     IF     SUBTR-15 OF SUBTR-16 NOT EQUAL TO -5.76               NC2534.2
    1706. 

  1706. 170500            GO TO SUB-FAIL-F3-17-4.                               NC2534.2
    1707. 

  1707. 170600     PERFORM PASS                                                 NC2534.2
    1708. 

  1708. 170700     GO TO SUB-WRITE-F3-17-4.                                     NC2534.2
    1709. 

  1709. 170800 SUB-DELETE-F3-17-4.                                              NC2534.2
    1710. 

  1710. 170900     PERFORM DE-LETE.                                             NC2534.2
    1711. 

  1711. 171000     GO TO SUB-WRITE-F3-17-4.                                     NC2534.2
    1712. 

  1712. 171100 SUB-FAIL-F3-17-4.                                                NC2534.2
    1713. 

  1713. 171200     MOVE    SUBTR-15 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    1714. 

  1714. 171300     MOVE   "-5.76" TO CORRECT-A                                  NC2534.2
    1715. 

  1715. 171400     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1716. 

  1716. 171500          TO RE-MARK                                              NC2534.2
    1717. 

  1717. 171600     PERFORM FAIL.                                                NC2534.2
    1718. 

  1718. 171700 SUB-WRITE-F3-17-4.                                               NC2534.2
    1719. 

  1719. 171800     PERFORM PRINT-DETAIL.                                        NC2534.2
    1720. 

  1720. 171900*                                                                 NC2534.2
    1721. 

  1721. 172000 SUB-INIT-F3-17-5.                                                NC2534.2
    1722. 

  1722. 172100     MOVE   "SUB-TEST-F3-17-5" TO PAR-NAME.                       NC2534.2
    1723. 

  1723. 172200     ADD     1 TO REC-CT.                                         NC2534.2
    1724. 

  1724. 172300 SUB-TEST-F3-17-5.                                                NC2534.2
    1725. 

  1725. 172400     IF      WRK-XN-00001 NOT = "Z"                               NC2534.2
    1726. 

  1726. 172500             GO TO SUB-FAIL-F3-17-5.                              NC2534.2
    1727. 

  1727. 172600     PERFORM PASS                                                 NC2534.2
    1728. 

  1728. 172700     GO TO SUB-WRITE-F3-17-5.                                     NC2534.2
    1729. 

  1729. 172800 SUB-DELETE-F3-17-5.                                              NC2534.2
    1730. 

  1730. 172900     PERFORM DE-LETE.                                             NC2534.2
    1731. 

  1731. 173000     GO TO SUB-WRITE-F3-17-5.                                     NC2534.2
    1732. 

  1732. 173100 SUB-FAIL-F3-17-5.                                                NC2534.2
    1733. 

  1733. 173200     MOVE   "SCOPE TERMINATOR IGNORED" TO RE-MARK                 NC2534.2
    1734. 

  1734. 173300     MOVE   "Z"   TO COMPUTED-X                                   NC2534.2
    1735. 

  1735. 173400     MOVE    WRK-AN-00001 TO CORRECT-X                            NC2534.2
    1736. 

  1736. 173500     PERFORM FAIL.                                                NC2534.2
    1737. 

  1737. 173600 SUB-WRITE-F3-17-5.                                               NC2534.2
    1738. 

  1738. 173700     PERFORM PRINT-DETAIL.                                        NC2534.2
    1739. 

  1739. 173800*                                                                 NC2534.2
    1740. 

  1740. 173900 SUB-INIT-F3-18.                                                  NC2534.2
    1741. 

  1741. 174000*    ===-->  NEW SIZE ERROR TESTS  <--===                         NC2534.2
    1742. 

  1742. 174100*    ===-->      SIZE ERROR        <--===                         NC2534.2
    1743. 

  1743. 174200     MOVE   "VI-133 6.25" TO ANSI-REFERENCE.                      NC2534.2
    1744. 

  1744. 174300     MOVE    SPACE  TO WRK-AN-00001.                              NC2534.2
    1745. 

  1745. 174400     MOVE    SPACE  TO WRK-XN-00001.                              NC2534.2
    1746. 

  1746. 174500     MOVE    0      TO REC-CT.                                    NC2534.2
    1747. 

  1747. 174600     MOVE    1      TO SUBTR-13 OF SUBTR-12.                      NC2534.2
    1748. 

  1748. 174700     MOVE   -1.725  TO SUBTR-14 OF SUBTR-12.                      NC2534.2
    1749. 

  1749. 174800     MOVE   76.76   TO SUBTR-15 OF SUBTR-12.                      NC2534.2
    1750. 

  1750. 174900     MOVE    2      TO SUBTR-13 OF SUBTR-16.                      NC2534.2
    1751. 

  1751. 175000     MOVE     .23   TO SUBTR-14 OF SUBTR-16.                      NC2534.2
    1752. 

  1752. 175100     MOVE    1      TO SUBTR-15 OF SUBTR-16.                      NC2534.2
    1753. 

  1753. 175200 SUB-TEST-F3-18-0.                                                NC2534.2
    1754. 

  1754. 175300     SUBTRACT CORRESPONDING SUBTR-12 FROM SUBTR-16 ROUNDED        NC2534.2
    1755. 

  1755. 175400             ON SIZE ERROR                                        NC2534.2
    1756. 

  1756. 175500             MOVE   "A" TO WRK-AN-00001                           NC2534.2
    1757. 

  1757. 175600         NOT ON SIZE ERROR                                        NC2534.2
    1758. 

  1758. 175700             MOVE   "B" TO WRK-AN-00001                           NC2534.2
    1759. 

  1759. 175800     END-SUBTRACT                                                 NC2534.2
    1760. 

  1760. 175900     MOVE   "Z" TO WRK-XN-00001.                                  NC2534.2
    1761. 

  1761. 176000*                                                                 NC2534.2
    1762. 

  1762. 176100 SUB-INIT-F3-18-1.                                                NC2534.2
    1763. 

  1763. 176200     MOVE   "SUB-TEST-F3-18-1" TO PAR-NAME.                       NC2534.2
    1764. 

  1764. 176300     ADD     1 TO REC-CT.                                         NC2534.2
    1765. 

  1765. 176400 SUB-TEST-F3-18-1.                                                NC2534.2
    1766. 

  1766. 176500     IF      WRK-AN-00001    NOT = "A"                            NC2534.2
    1767. 

  1767. 176600             GO TO SUB-FAIL-F3-18-1.                              NC2534.2
    1768. 

  1768. 176700     PERFORM PASS                                                 NC2534.2
    1769. 

  1769. 176800     GO TO SUB-WRITE-F3-18-1.                                     NC2534.2
    1770. 

  1770. 176900 SUB-DELETE-F3-18-1.                                              NC2534.2
    1771. 

  1771. 177000     PERFORM DE-LETE.                                             NC2534.2
    1772. 

  1772. 177100     GO TO SUB-WRITE-F3-18-1.                                     NC2534.2
    1773. 

  1773. 177200 SUB-FAIL-F3-18-1.                                                NC2534.2
    1774. 

  1774. 177300     MOVE   "ON SIZE ERROR SHOULD BE EXECUTED"                    NC2534.2
    1775. 

  1775. 177400          TO RE-MARK                                              NC2534.2
    1776. 

  1776. 177500     MOVE    WRK-AN-00001  TO COMPUTED-X                          NC2534.2
    1777. 

  1777. 177600     MOVE   "A"    TO CORRECT-X                                   NC2534.2
    1778. 

  1778. 177700     PERFORM FAIL.                                                NC2534.2
    1779. 

  1779. 177800 SUB-WRITE-F3-18-1.                                               NC2534.2
    1780. 

  1780. 177900     PERFORM PRINT-DETAIL.                                        NC2534.2
    1781. 

  1781. 178000*                                                                 NC2534.2
    1782. 

  1782. 178100 SUB-INIT-F3-18-2.                                                NC2534.2
    1783. 

  1783. 178200     MOVE  "SUB-TEST-F3-18-2" TO PAR-NAME.                        NC2534.2
    1784. 

  1784. 178300     ADD    1 TO REC-CT.                                          NC2534.2
    1785. 

  1785. 178400 SUB-TEST-F3-18-2.                                                NC2534.2
    1786. 

  1786. 178500     IF     SUBTR-13 OF SUBTR-16 NOT EQUAL TO 1                   NC2534.2
    1787. 

  1787. 178600            GO TO SUB-FAIL-F3-18-2.                               NC2534.2
    1788. 

  1788. 178700     PERFORM PASS                                                 NC2534.2
    1789. 

  1789. 178800     GO TO SUB-WRITE-F3-18-2.                                     NC2534.2
    1790. 

  1790. 178900 SUB-FAIL-F3-18-2.                                                NC2534.2
    1791. 

  1791. 179000     MOVE    SUBTR-13 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    1792. 

  1792. 179100     MOVE   "+1" TO CORRECT-A                                     NC2534.2
    1793. 

  1793. 179200     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1794. 

  1794. 179300          TO RE-MARK                                              NC2534.2
    1795. 

  1795. 179400     PERFORM FAIL.                                                NC2534.2
    1796. 

  1796. 179500 SUB-WRITE-F3-18-2.                                               NC2534.2
    1797. 

  1797. 179600     PERFORM PRINT-DETAIL.                                        NC2534.2
    1798. 

  1798. 179700*                                                                 NC2534.2
    1799. 

  1799. 179800 SUB-INIT-F3-18-3.                                                NC2534.2
    1800. 

  1800. 179900     MOVE  "SUB-TEST-F3-18-3" TO PAR-NAME.                        NC2534.2
    1801. 

  1801. 180000     ADD    1 TO REC-CT.                                          NC2534.2
    1802. 

  1802. 180100 SUB-TEST-F3-18-3.                                                NC2534.2
    1803. 

  1803. 180200     IF     SUBTR-14 OF SUBTR-16 IS NOT EQUAL TO 1.96             NC2534.2
    1804. 

  1804. 180300            GO TO SUB-FAIL-F3-18-3.                               NC2534.2
    1805. 

  1805. 180400     PERFORM PASS                                                 NC2534.2
    1806. 

  1806. 180500     GO TO SUB-WRITE-F3-18-3.                                     NC2534.2
    1807. 

  1807. 180600 SUB-DELETE-F3-18-3.                                              NC2534.2
    1808. 

  1808. 180700     PERFORM DE-LETE.                                             NC2534.2
    1809. 

  1809. 180800     GO TO SUB-WRITE-F3-18-3.                                     NC2534.2
    1810. 

  1810. 180900 SUB-FAIL-F3-18-3.                                                NC2534.2
    1811. 

  1811. 181000     MOVE   SUBTR-14 OF SUBTR-16 TO COMPUTED-N                    NC2534.2
    1812. 

  1812. 181100     MOVE   "+1.96" TO CORRECT-A                                  NC2534.2
    1813. 

  1813. 181200     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1814. 

  1814. 181300          TO RE-MARK                                              NC2534.2
    1815. 

  1815. 181400     PERFORM FAIL.                                                NC2534.2
    1816. 

  1816. 181500 SUB-WRITE-F3-18-3.                                               NC2534.2
    1817. 

  1817. 181600     PERFORM PRINT-DETAIL.                                        NC2534.2
    1818. 

  1818. 181700*                                                                 NC2534.2
    1819. 

  1819. 181800 SUB-INIT-F3-18-4.                                                NC2534.2
    1820. 

  1820. 181900     MOVE  "SUB-TEST-F3-18-4" TO PAR-NAME.                        NC2534.2
    1821. 

  1821. 182000     ADD     1 TO REC-CT.                                         NC2534.2
    1822. 

  1822. 182100 SUB-TEST-F3-18-4.                                                NC2534.2
    1823. 

  1823. 182200     IF     SUBTR-15 OF SUBTR-16 NOT EQUAL TO 1                   NC2534.2
    1824. 

  1824. 182300            GO TO SUB-FAIL-F3-18-4.                               NC2534.2
    1825. 

  1825. 182400     PERFORM PASS                                                 NC2534.2
    1826. 

  1826. 182500     GO TO SUB-WRITE-F3-18-4.                                     NC2534.2
    1827. 

  1827. 182600 SUB-DELETE-F3-18-4.                                              NC2534.2
    1828. 

  1828. 182700     PERFORM DE-LETE.                                             NC2534.2
    1829. 

  1829. 182800     GO TO SUB-WRITE-F3-18-4.                                     NC2534.2
    1830. 

  1830. 182900 SUB-FAIL-F3-18-4.                                                NC2534.2
    1831. 

  1831. 183000     MOVE    SUBTR-15 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    1832. 

  1832. 183100     MOVE   "+1" TO CORRECT-A                                     NC2534.2
    1833. 

  1833. 183200     MOVE "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK             NC2534.2
    1834. 

  1834. 183300     PERFORM FAIL.                                                NC2534.2
    1835. 

  1835. 183400 SUB-WRITE-F3-18-4.                                               NC2534.2
    1836. 

  1836. 183500     PERFORM PRINT-DETAIL.                                        NC2534.2
    1837. 

  1837. 183600*                                                                 NC2534.2
    1838. 

  1838. 183700 SUB-INIT-F3-18-5.                                                NC2534.2
    1839. 

  1839. 183800     MOVE   "SUB-TEST-F3-18-5" TO PAR-NAME.                       NC2534.2
    1840. 

  1840. 183900     ADD     1 TO REC-CT.                                         NC2534.2
    1841. 

  1841. 184000 SUB-TEST-F3-18-5.                                                NC2534.2
    1842. 

  1842. 184100     IF      WRK-XN-00001 NOT = "Z"                               NC2534.2
    1843. 

  1843. 184200             GO TO SUB-FAIL-F3-18-5.                              NC2534.2
    1844. 

  1844. 184300     PERFORM PASS                                                 NC2534.2
    1845. 

  1845. 184400     GO TO SUB-WRITE-F3-18-5.                                     NC2534.2
    1846. 

  1846. 184500 SUB-DELETE-F3-18-5.                                              NC2534.2
    1847. 

  1847. 184600     PERFORM DE-LETE.                                             NC2534.2
    1848. 

  1848. 184700     GO TO SUB-WRITE-F3-18-5.                                     NC2534.2
    1849. 

  1849. 184800 SUB-FAIL-F3-18-5.                                                NC2534.2
    1850. 

  1850. 184900     MOVE   "SCOPE TERMINATOR IGNORED" TO RE-MARK                 NC2534.2
    1851. 

  1851. 185000     MOVE   "Z"   TO COMPUTED-X                                   NC2534.2
    1852. 

  1852. 185100     MOVE    WRK-AN-00001 TO CORRECT-X                            NC2534.2
    1853. 

  1853. 185200     PERFORM FAIL.                                                NC2534.2
    1854. 

  1854. 185300 SUB-WRITE-F3-18-5.                                               NC2534.2
    1855. 

  1855. 185400     PERFORM PRINT-DETAIL.                                        NC2534.2
    1856. 

  1856. 185500*                                                                 NC2534.2
    1857. 

  1857. 185600 SUB-INIT-F3-19.                                                  NC2534.2
    1858. 

  1858. 185700*    ===-->  NEW SIZE ERROR TESTS  <--===                         NC2534.2
    1859. 

  1859. 185800*    ===-->   NO SIZE ERROR        <--===                         NC2534.2
    1860. 

  1860. 185900     MOVE   "VI-133 6.25" TO ANSI-REFERENCE.                      NC2534.2
    1861. 

  1861. 186000     MOVE    SPACE  TO WRK-AN-00001.                              NC2534.2
    1862. 

  1862. 186100     MOVE    0      TO REC-CT.                                    NC2534.2
    1863. 

  1863. 186200     MOVE    1      TO SUBTR-13 OF SUBTR-12.                      NC2534.2
    1864. 

  1864. 186300     MOVE   -1.725  TO SUBTR-14 OF SUBTR-12.                      NC2534.2
    1865. 

  1865. 186400     MOVE    6.76   TO SUBTR-15 OF SUBTR-12.                      NC2534.2
    1866. 

  1866. 186500     MOVE    2      TO SUBTR-13 OF SUBTR-16.                      NC2534.2
    1867. 

  1867. 186600     MOVE     .23   TO SUBTR-14 OF SUBTR-16.                      NC2534.2
    1868. 

  1868. 186700     MOVE    1      TO SUBTR-15 OF SUBTR-16.                      NC2534.2
    1869. 

  1869. 186800 SUB-TEST-F3-19-0.                                                NC2534.2
    1870. 

  1870. 186900     SUBTRACT CORRESPONDING SUBTR-12 FROM SUBTR-16 ROUNDED        NC2534.2
    1871. 

  1871. 187000             ON SIZE ERROR                                        NC2534.2
    1872. 

  1872. 187100             MOVE   "A" TO WRK-AN-00001                           NC2534.2
    1873. 

  1873. 187200         NOT ON SIZE ERROR                                        NC2534.2
    1874. 

  1874. 187300             MOVE   "B" TO WRK-AN-00001                           NC2534.2
    1875. 

  1875. 187400     END-SUBTRACT                                                 NC2534.2
    1876. 

  1876. 187500     MOVE   "Z" TO WRK-XN-00001.                                  NC2534.2
    1877. 

  1877. 187600*                                                                 NC2534.2
    1878. 

  1878. 187700 SUB-INIT-F3-19-1.                                                NC2534.2
    1879. 

  1879. 187800     MOVE   "SUB-TEST-F3-19-1" TO PAR-NAME.                       NC2534.2
    1880. 

  1880. 187900     ADD     1 TO REC-CT.                                         NC2534.2
    1881. 

  1881. 188000 SUB-TEST-F3-19-1.                                                NC2534.2
    1882. 

  1882. 188100     IF      WRK-AN-00001    NOT = "B"                            NC2534.2
    1883. 

  1883. 188200             GO TO SUB-FAIL-F3-19-1.                              NC2534.2
    1884. 

  1884. 188300     PERFORM PASS                                                 NC2534.2
    1885. 

  1885. 188400     GO TO SUB-WRITE-F3-19-1.                                     NC2534.2
    1886. 

  1886. 188500 SUB-DELETE-F3-19-1.                                              NC2534.2
    1887. 

  1887. 188600     PERFORM DE-LETE.                                             NC2534.2
    1888. 

  1888. 188700     GO TO SUB-WRITE-F3-19-1.                                     NC2534.2
    1889. 

  1889. 188800 SUB-FAIL-F3-19-1.                                                NC2534.2
    1890. 

  1890. 188900     MOVE   "NOT ON SIZE ERROR SHOULD BE EXECUTED"                NC2534.2
    1891. 

  1891. 189000                TO RE-MARK                                        NC2534.2
    1892. 

  1892. 189100     MOVE    WRK-AN-00001  TO COMPUTED-X                          NC2534.2
    1893. 

  1893. 189200     MOVE   "B"    TO CORRECT-X                                   NC2534.2
    1894. 

  1894. 189300     PERFORM FAIL.                                                NC2534.2
    1895. 

  1895. 189400 SUB-WRITE-F3-19-1.                                               NC2534.2
    1896. 

  1896. 189500     PERFORM PRINT-DETAIL.                                        NC2534.2
    1897. 

  1897. 189600*                                                                 NC2534.2
    1898. 

  1898. 189700 SUB-INIT-F3-19-2.                                                NC2534.2
    1899. 

  1899. 189800     MOVE  "SUB-TEST-F3-19-2" TO PAR-NAME.                        NC2534.2
    1900. 

  1900. 189900     ADD    1 TO REC-CT.                                          NC2534.2
    1901. 

  1901. 190000 SUB-TEST-F3-19-2.                                                NC2534.2
    1902. 

  1902. 190100     IF     SUBTR-13 OF SUBTR-16 NOT EQUAL TO 1                   NC2534.2
    1903. 

  1903. 190200            GO TO SUB-FAIL-F3-19-2.                               NC2534.2
    1904. 

  1904. 190300     PERFORM PASS                                                 NC2534.2
    1905. 

  1905. 190400     GO TO SUB-WRITE-F3-19-2.                                     NC2534.2
    1906. 

  1906. 190500 SUB-DELETE-F3-19-2.                                              NC2534.2
    1907. 

  1907. 190600     PERFORM DE-LETE.                                             NC2534.2
    1908. 

  1908. 190700     GO TO SUB-WRITE-F3-19-2.                                     NC2534.2
    1909. 

  1909. 190800 SUB-FAIL-F3-19-2.                                                NC2534.2
    1910. 

  1910. 190900     MOVE    SUBTR-13 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    1911. 

  1911. 191000     MOVE   "+1" TO CORRECT-A                                     NC2534.2
    1912. 

  1912. 191100     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1913. 

  1913. 191200          TO RE-MARK                                              NC2534.2
    1914. 

  1914. 191300     PERFORM FAIL.                                                NC2534.2
    1915. 

  1915. 191400 SUB-WRITE-F3-19-2.                                               NC2534.2
    1916. 

  1916. 191500     PERFORM PRINT-DETAIL.                                        NC2534.2
    1917. 

  1917. 191600*                                                                 NC2534.2
    1918. 

  1918. 191700 SUB-INIT-F3-19-3.                                                NC2534.2
    1919. 

  1919. 191800     MOVE  "SUB-TEST-F3-19-3" TO PAR-NAME.                        NC2534.2
    1920. 

  1920. 191900     ADD    1 TO REC-CT.                                          NC2534.2
    1921. 

  1921. 192000 SUB-TEST-F3-19-3.                                                NC2534.2
    1922. 

  1922. 192100     IF     SUBTR-14 OF SUBTR-16 IS NOT EQUAL TO 1.96             NC2534.2
    1923. 

  1923. 192200            GO TO SUB-FAIL-F3-19-3.                               NC2534.2
    1924. 

  1924. 192300     PERFORM PASS                                                 NC2534.2
    1925. 

  1925. 192400     GO TO SUB-WRITE-F3-19-3.                                     NC2534.2
    1926. 

  1926. 192500 SUB-DELETE-F3-19-3.                                              NC2534.2
    1927. 

  1927. 192600     PERFORM DE-LETE.                                             NC2534.2
    1928. 

  1928. 192700     GO TO SUB-WRITE-F3-19-3.                                     NC2534.2
    1929. 

  1929. 192800 SUB-FAIL-F3-19-3.                                                NC2534.2
    1930. 

  1930. 192900     MOVE   SUBTR-14 OF SUBTR-16 TO COMPUTED-N                    NC2534.2
    1931. 

  1931. 193000     MOVE   "+1.96" TO CORRECT-A                                  NC2534.2
    1932. 

  1932. 193100     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1933. 

  1933. 193200          TO RE-MARK                                              NC2534.2
    1934. 

  1934. 193300     PERFORM FAIL.                                                NC2534.2
    1935. 

  1935. 193400 SUB-WRITE-F3-19-3.                                               NC2534.2
    1936. 

  1936. 193500     PERFORM PRINT-DETAIL.                                        NC2534.2
    1937. 

  1937. 193600*                                                                 NC2534.2
    1938. 

  1938. 193700 SUB-INIT-F3-19-4.                                                NC2534.2
    1939. 

  1939. 193800     MOVE  "SUB-TEST-F3-19-4" TO PAR-NAME.                        NC2534.2
    1940. 

  1940. 193900     ADD     1 TO REC-CT.                                         NC2534.2
    1941. 

  1941. 194000 SUB-TEST-F3-19-4.                                                NC2534.2
    1942. 

  1942. 194100     IF     SUBTR-15 OF SUBTR-16 NOT EQUAL TO -5.76               NC2534.2
    1943. 

  1943. 194200            GO TO SUB-FAIL-F3-19-4.                               NC2534.2
    1944. 

  1944. 194300     PERFORM PASS                                                 NC2534.2
    1945. 

  1945. 194400     GO TO SUB-WRITE-F3-19-4.                                     NC2534.2
    1946. 

  1946. 194500 SUB-DELETE-F3-19-4.                                              NC2534.2
    1947. 

  1947. 194600     PERFORM DE-LETE.                                             NC2534.2
    1948. 

  1948. 194700     GO TO SUB-WRITE-F3-19-4.                                     NC2534.2
    1949. 

  1949. 194800 SUB-FAIL-F3-19-4.                                                NC2534.2
    1950. 

  1950. 194900     MOVE    SUBTR-15 OF SUBTR-16 TO COMPUTED-N                   NC2534.2
    1951. 

  1951. 195000     MOVE   "-5.76" TO CORRECT-A                                  NC2534.2
    1952. 

  1952. 195100     MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND"       NC2534.2
    1953. 

  1953. 195200          TO RE-MARK                                              NC2534.2
    1954. 

  1954. 195300     PERFORM FAIL.                                                NC2534.2
    1955. 

  1955. 195400 SUB-WRITE-F3-19-4.                                               NC2534.2
    1956. 

  1956. 195500     PERFORM PRINT-DETAIL.                                        NC2534.2
    1957. 

  1957. 195600*                                                                 NC2534.2
    1958. 

  1958. 195700 SUB-INIT-F3-19-5.                                                NC2534.2
    1959. 

  1959. 195800     MOVE   "SUB-TEST-F3-19-5" TO PAR-NAME.                       NC2534.2
    1960. 

  1960. 195900     ADD     1 TO REC-CT.                                         NC2534.2
    1961. 

  1961. 196000 SUB-TEST-F3-19-5.                                                NC2534.2
    1962. 

  1962. 196100     IF      WRK-XN-00001 NOT = "Z"                               NC2534.2
    1963. 

  1963. 196200             GO TO SUB-FAIL-F3-19-5.                              NC2534.2
    1964. 

  1964. 196300     PERFORM PASS                                                 NC2534.2
    1965. 

  1965. 196400     GO TO SUB-WRITE-F3-19-5.                                     NC2534.2
    1966. 

  1966. 196500 SUB-DELETE-F3-19-5.                                              NC2534.2
    1967. 

  1967. 196600     PERFORM DE-LETE.                                             NC2534.2
    1968. 

  1968. 196700     GO TO SUB-WRITE-F3-19-5.                                     NC2534.2
    1969. 

  1969. 196800 SUB-FAIL-F3-19-5.                                                NC2534.2
    1970. 

  1970. 196900     MOVE   "SCOPE TERMINATOR IGNORED" TO RE-MARK                 NC2534.2
    1971. 

  1971. 197000     MOVE   "Z"   TO COMPUTED-X                                   NC2534.2
    1972. 

  1972. 197100     MOVE    WRK-AN-00001 TO CORRECT-X                            NC2534.2
    1973. 

  1973. 197200     PERFORM FAIL.                                                NC2534.2
    1974. 

  1974. 197300 SUB-WRITE-F3-19-5.                                               NC2534.2
    1975. 

  1975. 197400     PERFORM PRINT-DETAIL.                                        NC2534.2
    1976. 

  1976. 197500*                                                                 NC2534.2
    1977. 

  1977. 197600 CCVS-EXIT SECTION.                                               NC2534.2
    1978. 

  1978. 197700 CCVS-999999.                                                     NC2534.2
    1979. 

  1979. 197800     GO TO CLOSE-FILES.                                           NC2534.2
    1980. 

  1980.       *END-OF,NC253A
    1981.