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

https://github.com/uwol/proleap-cobol-parser · COBOL · 949 lines · 947 code · 0 blank · 2 comment · 0 complexity · e3e6410e9ef8cdf57cb97947a74e983f MD5 · raw file

Large files are truncated click here to view the full file

    

  1. *HEADER,COBOL,ST140A                                                    TES00010
    2. 

  2. 000100 IDENTIFICATION DIVISION.                                         ST1404.2
    3. 

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

  4. 000300     ST140A.                                                      ST1404.2
    5. 

  5. 000400****************************************************************  ST1404.2
    6. 

  6. 000500*                                                              *  ST1404.2
    7. 

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

  8. 000700*                                                              *  ST1404.2
    9. 

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

  10. 000900*                                                              *  ST1404.2
    11. 

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

  12. 001100*                                                              *  ST1404.2
    13. 

  13. 001200****************************************************************  ST1404.2
    14. 

  14. 001300*                                                                 ST1404.2
    15. 

  15. 001400*    OBJECTIVE -                                                  ST1404.2
    16. 

  16. 001500*        ROUTINE ST210  IS A TEST OF THE MERGE STATEMENT USING    ST1404.2
    17. 

  17. 001600*    THE ASCII COLLATING SEQUENCE AND MULTIPLE FILE TAPE.         ST1404.2
    18. 

  18. 001700*    THIS ROUTINE IS A TEST OF THE COMPILERS ABILITY TO MERGE     ST1404.2
    19. 

  19. 001800*    THE SECOND FILE OF A MULTI-FILE REEL WITH A MASS-STORAGE     ST1404.2
    20. 

  20. 001900*    FILE TO PRODUCE A MASS-STORAGE FILE.                         ST1404.2
    21. 

  21. 002000*                                                                 ST1404.2
    22. 

  22. 002100*                                                                 ST1404.2
    23. 

  23. 002200*    FEATURES TESTED -                                            ST1404.2
    24. 

  24. 002300*    *   ALPHABET-NAME IS STANDARD-1 (THE ASCII COLLATING SEQ.)   ST1404.2
    25. 

  25. 002400*    *   COLLATING SEQUENCE IS ALPHABET-NAME                      ST1404.2
    26. 

  26. 002500*    *   MULTIPLE FILE TAPE                                       ST1404.2
    27. 

  27. 002600*    *   FIXED LENGTH RECORDS                                     ST1404.2
    28. 

  28. 002700*    *   SAME SORT AREA IN THE I-O-CONTROL PARAGRAPH              ST1404.2
    29. 

  29. 002800*    *   QUALIFIED ALPHANUMERIC AND NUMERIC SORT KEYS             ST1404.2
    30. 

  30. 002900*    *   USING FILE-NAME SERIES                                   ST1404.2
    31. 

  31. 003000*    *   OUTPUT PROCEDURE IS SECTION-NAME                         ST1404.2
    32. 

  32. 003100*    *   RETURN RECORD INTO     PART OF THE OUTPUT PROCEDURE      ST1404.2
    33. 

  33. 003200*                                                                 ST1404.2
    34. 

  34. 003300*    *   MERGE MERGE-FILE-NAME                                    ST1404.2
    35. 

  35. 003400*        ON DESCENDING KEY KEY-1 OF DATA-NAME-1                   ST1404.2
    36. 

  36. 003500*        ASCENDING KEY-2 OF DATA-NAME-2                           ST1404.2
    37. 

  37. 003600*        COLLATING SEQUENCE IS ALPHABET-NAME                      ST1404.2
    38. 

  38. 003700*        OUTPUT PROCEDURE IS SECTION-NAME.                        ST1404.2
    39. 

  39. 003800*                                                                 ST1404.2
    40. 

  40. 003900*                                                                 ST1404.2
    41. 

  41. 004000*                                                                 ST1404.2
    42. 

  42. 004100*                                                                 ST1404.2
    43. 

  43. 004200*    FILES USED -                                                 ST1404.2
    44. 

  44. 004300*    *   FILES SQ-FS1 AND SQ-FS3 ARE WRITTEN ONTO A MULTIPLE      ST1404.2
    45. 

  45. 004400*    FILE TAPE.  FILE SQ-FS2 IS WRITTEN ONTO MASS-STORAGE.        ST1404.2
    46. 

  46. 004500*    THEN THE MERGE STATEMENT USES SQ-FS3 AND SQ-FS2 TO CREATE  A ST1404.2
    47. 

  47. 004600*    NEW MASS-STORAGE FILE SQ-FS4.  ALL FILES HAVE FIXED LENGTH   ST1404.2
    48. 

  48. 004700*    RECORDS AND 132 CHARACTERS PER RECORD.                       ST1404.2
    49. 

  49. 004800*                                                                 ST1404.2
    50. 

  50. 004900*        SQ-FS1                                                   ST1404.2
    51. 

  51. 005000*    51 RECORDS                                                   ST1404.2
    52. 

  52. 005100*    FIXED LENGTH RECORDS 132 CHARACTERS                          ST1404.2
    53. 

  53. 005200*    BLOCKED 1                                                    ST1404.2
    54. 

  54. 005300*    RESERVE 2 AREAS                                              ST1404.2
    55. 

  55. 005400*                                                                 ST1404.2
    56. 

  56. 005500*        SQ-FS2                                                   ST1404.2
    57. 

  57. 005600*    51 RECORDS                                                   ST1404.2
    58. 

  58. 005700*    FIXED LENGTH RECORDS 132 CHARACTERS                          ST1404.2
    59. 

  59. 005800*    BLOCKED 2                                                    ST1404.2
    60. 

  60. 005900*    RESERVE 4 AREAS                                              ST1404.2
    61. 

  61. 006000*                                                                 ST1404.2
    62. 

  62. 006100*        SQ-FS3                                                   ST1404.2
    63. 

  63. 006200*    51 RECORDS                                                   ST1404.2
    64. 

  64. 006300*    FIXED LENGTH RECORDS 132 CHARACTERS                          ST1404.2
    65. 

  65. 006400*    BLOCKED 1                                                    ST1404.2
    66. 

  66. 006500*    RESERVE 6 AREAS                                              ST1404.2
    67. 

  67. 006600*                                                                 ST1404.2
    68. 

  68. 006700*        NOTE THAT FILE SQ-FS3 IS THE SECOND POSITION             ST1404.2
    69. 

  69. 006800*    ON A MULTIPLE FILE TAPE.  BOTH FILES SQ-FS1 AND SQ-FS3 ARE   ST1404.2
    70. 

  70. 006900*    ON THE SAME MULTIPLE FILE TAPE.                              ST1404.2
    71. 

  71. 007000*                                                                 ST1404.2
    72. 

  72. 007100*        SQ-FS4                                                   ST1404.2
    73. 

  73. 007200*    FINAL TOTAL OF 102 RECORDS AS A RESULT OF THE MERGE          ST1404.2
    74. 

  74. 007300*    FIXED LENGTH RECORDS 132 CHARACTERS                          ST1404.2
    75. 

  75. 007400*    BLOCKED 3                                                    ST1404.2
    76. 

  76. 007500*    RESERVE 4 AREAS                                              ST1404.2
    77. 

  77. 007600*                                                                 ST1404.2
    78. 

  78. 007700*                                                                 ST1404.2
    79. 

  79. 007800*    X-CARDS USED  -                                              ST1404.2
    80. 

  80. 007900*    X-XXX008     SQ-FS1                                          ST1404.2
    81. 

  81. 008000*    X-XXX014     SQ-FS2                                          ST1404.2
    82. 

  82. 008100*    X-XXX009     SQ-FS3                                          ST1404.2
    83. 

  83. 008200*    X-XXX015     SQ-FS4                                          ST1404.2
    84. 

  84. 008300*    X-XXX027     MERGE FILE ST-FS1                               ST1404.2
    85. 

  85. 008400*    X-55         SYSTEM PRINTER NAME.                            ST1404.2
    86. 

  86. 008500*    X-82         SOURCE COMPUTER NAME.                           ST1404.2
    87. 

  87. 008600*    X-83         OBJECT COMPUTER NAME.                           ST1404.2
    88. 

  88. 008700*                                                                 ST1404.2
    89. 

  89. 008800*                                                                 ST1404.2
    90. 

  90. 008900*    OPTIONS RECOMMENDED -                                        ST1404.2
    91. 

  91. 009000*    *   *OPT8  X  TO BE USED IF NECESSARY TO DUMP THE            ST1404.2
    92. 

  92. 009100*                  FILES AS THEY ARE CREATED AND READ DURING      ST1404.2
    93. 

  93. 009200*                  MRG-TESTS 3 THRU 8.                            ST1404.2
    94. 

  94. 009300*                                                                 ST1404.2
    95. 

  95. 009400*                                                                 ST1404.2
    96. 

  96. 009500*    TEST DESCRIPTIONS -                                          ST1404.2
    97. 

  97. 009600*    BLD-TEST-001     CHECKS THE CREATION OF SQ-FS1               ST1404.2
    98. 

  98. 009700*    BLD-TEST-002     CHECKS THE CREATION OF SQ-FS2               ST1404.2
    99. 

  99. 009800*    BLD-TEST-003     CHECKS THE CREATION OF SQ-FS3               ST1404.2
    100. 

  100. 009900*    MRG-TEST-003     TESTS RECORDS 1-20 ON MERGE RESULT SQ-FS4   ST1404.2
    101. 

  101. 010000*    MRG-TEST-004     TESTS RECORDS 21-40 ON MERGE RESULT SQ-FS4  ST1404.2
    102. 

  102. 010100*    MRG-TEST-005     TESTS RECORDS 41-60 ON MERGE RESULT SQ-FS4  ST1404.2
    103. 

  103. 010200*    MRG-TEST-006     TESTS RECORDS 61-80 ON MERGE RESULT SQ-FS4  ST1404.2
    104. 

  104. 010300*    MRG-TEST-007     TESTS RECORDS 81-100 ON MERGE RESULT SQ-FS4 ST1404.2
    105. 

  105. 010400*    MRG-TEST-008     TESTS RECORDS 101-102 ON MERGE RESULT SQ-FS4ST1404.2
    106. 

  106. 010500*    MRG-TEST-009     AN EOF CHECK ON SQ-FS4                      ST1404.2
    107. 

  107. 010600*    MRG-TEST-010     CHECK THAT THE NUMERIC KEY ON THE LAST      ST1404.2
    108. 

  108. 010700*                     RECORD ON SQ-FS4 EQUALS 102                 ST1404.2
    109. 

  109. 010800*                                                                 ST1404.2
    110. 

  110. 010900*                                                                 ST1404.2
    111. 

  111. 011000*    ************************************************************ ST1404.2
    112. 

  112. 011100 ENVIRONMENT DIVISION.                                            ST1404.2
    113. 

  113. 011200 CONFIGURATION SECTION.                                           ST1404.2
    114. 

  114. 011300 SOURCE-COMPUTER.                                                 ST1404.2
    115. 

  115. 011400     XXXXX082.                                                    ST1404.2
    116. 

  116. 011500 OBJECT-COMPUTER.                                                 ST1404.2
    117. 

  117. 011600     XXXXX083.                                                    ST1404.2
    118. 

  118. 011700 SPECIAL-NAMES.                                                   ST1404.2
    119. 

  119. 011800     ALPHABET MY-FAVORITE-ALPHABET IS STANDARD-1.                 ST1404.2
    120. 

  120. 011900 INPUT-OUTPUT SECTION.                                            ST1404.2
    121. 

  121. 012000 FILE-CONTROL.                                                    ST1404.2
    122. 

  122. 012100     SELECT PRINT-FILE ASSIGN TO                                  ST1404.2
    123. 

  123. 012200     XXXXX055.                                                    ST1404.2
    124. 

  124. 012300     SELECT SQ-FS1 ASSIGN                                         ST1404.2
    125. 

  125. 012400     XXXXX008                                                     ST1404.2
    126. 

  126. 012500     ; ORGANIZATION IS SEQUENTIAL                                 ST1404.2
    127. 

  127. 012600     ACCESS MODE SEQUENTIAL                                       ST1404.2
    128. 

  128. 012700     RESERVE 2 AREAS.                                             ST1404.2
    129. 

  129. 012800     SELECT SQ-FS2 ASSIGN TO                                      ST1404.2
    130. 

  130. 012900     XXXXX014                                                     ST1404.2
    131. 

  131. 013000     ORGANIZATION IS SEQUENTIAL                                   ST1404.2
    132. 

  132. 013100     ACCESS MODE IS SEQUENTIAL                                    ST1404.2
    133. 

  133. 013200     RESERVE 4 AREAS.                                             ST1404.2
    134. 

  134. 013300     SELECT SQ-FS3 ASSIGN TO                                      ST1404.2
    135. 

  135. 013400     XXXXX009                                                     ST1404.2
    136. 

  136. 013500     ORGANIZATION SEQUENTIAL                                      ST1404.2
    137. 

  137. 013600     ; ACCESS MODE IS SEQUENTIAL                                  ST1404.2
    138. 

  138. 013700     RESERVE 6 AREAS.                                             ST1404.2
    139. 

  139. 013800     SELECT SQ-FS4 ASSIGN TO                                      ST1404.2
    140. 

  140. 013900     XXXXX015                                                     ST1404.2
    141. 

  141. 014000     ORGANIZATION IS SEQUENTIAL                                   ST1404.2
    142. 

  142. 014100     ; ACCESS MODE IS SEQUENTIAL                                  ST1404.2
    143. 

  143. 014200     RESERVE 4 AREAS.                                             ST1404.2
    144. 

  144. 014300     SELECT ST-FS1 ASSIGN TO                                      ST1404.2
    145. 

  145. 014400     XXXXX027.                                                    ST1404.2
    146. 

  146. 014500 I-O-CONTROL.                                                     ST1404.2
    147. 

  147. 014600     SAME SORT AREA FOR SQ-FS1 ST-FS1,                            ST1404.2
    148. 

  148. 014700     MULTIPLE FILE TAPE CONTAINS SQ-FS1 POSITION 1                ST1404.2
    149. 

  149. 014800     SQ-FS3 POSITION 2.                                           ST1404.2
    150. 

  150. 014900 DATA DIVISION.                                                   ST1404.2
    151. 

  151. 015000 FILE SECTION.                                                    ST1404.2
    152. 

  152. 015100 FD  PRINT-FILE.                                                  ST1404.2
    153. 

  153. 015200 01  PRINT-REC PICTURE X(120).                                    ST1404.2
    154. 

  154. 015300 01  DUMMY-RECORD PICTURE X(120).                                 ST1404.2
    155. 

  155. 015400 FD  SQ-FS1                                                       ST1404.2
    156. 

  156. 015500     LABEL RECORDS STANDARD                                       ST1404.2
    157. 

  157. 015600C    VALUE OF                                                     ST1404.2
    158. 

  158. 015700C    XXXXX074                                                     ST1404.2
    159. 

  159. 015800C    IS                                                           ST1404.2
    160. 

  160. 015900C    XXXXX075                                                     ST1404.2
    161. 

  161. 016000*    XXXXX069                                                     ST1404.2
    162. 

  162. 016100     BLOCK CONTAINS 1 RECORDS                                     ST1404.2
    163. 

  163. 016200     RECORD CONTAINS 132 CHARACTERS                               ST1404.2
    164. 

  164. 016300     DATA RECORDS SQ-FS1R1-F-G-132, SQ-FS1R2-F-G-132.             ST1404.2
    165. 

  165. 016400 01  SQ-FS1R1-F-G-132.                                            ST1404.2
    166. 

  166. 016500     10 REC-PREAMBLE PIC X(120).                                  ST1404.2
    167. 

  167. 016600     10 REST-OF-1.                                                ST1404.2
    168. 

  168. 016700     20 KEY-1.                                                    ST1404.2
    169. 

  169. 016800         30 ALPHAN-KEY PIC X.                                     ST1404.2
    170. 

  170. 016900         30 NUM-KEY PIC 999.                                      ST1404.2
    171. 

  171. 017000     20 KEY-2.                                                    ST1404.2
    172. 

  172. 017100         30 ALPHAN-KEY PIC X.                                     ST1404.2
    173. 

  173. 017200         30 NUM-KEY PIC 999.                                      ST1404.2
    174. 

  174. 017300     20 KEY-3.                                                    ST1404.2
    175. 

  175. 017400         30 ALPHAN-KEY PIC X.                                     ST1404.2
    176. 

  176. 017500         30 NUM-KEY PIC 999.                                      ST1404.2
    177. 

  177. 017600 01  SQ-FS1R2-F-G-132.                                            ST1404.2
    178. 

  178. 017700     02 FILLER PIC X(120).                                        ST1404.2
    179. 

  179. 017800     02 GARBAGE PIC X(12).                                        ST1404.2
    180. 

  180. 017900 FD  SQ-FS2                                                       ST1404.2
    181. 

  181. 018000     LABEL RECORD STANDARD                                        ST1404.2
    182. 

  182. 018100C    VALUE OF                                                     ST1404.2
    183. 

  183. 018200C    XXXXX074                                                     ST1404.2
    184. 

  184. 018300C    IS                                                           ST1404.2
    185. 

  185. 018400C    XXXXX076                                                     ST1404.2
    186. 

  186. 018500*    XXXXX069                                                     ST1404.2
    187. 

  187. 018600     BLOCK CONTAINS 2 RECORDS                                     ST1404.2
    188. 

  188. 018700     RECORD CONTAINS 132 CHARACTERS                               ST1404.2
    189. 

  189. 018800     DATA RECORD SQ-FS2R1-F-G-132.                                ST1404.2
    190. 

  190. 018900 01  SQ-FS2R1-F-G-132.                                            ST1404.2
    191. 

  191. 019000     10 REC-PRE-2 PIC X(120).                                     ST1404.2
    192. 

  192. 019100     10 REST-OF-2.                                                ST1404.2
    193. 

  193. 019200     20 KEY-4.                                                    ST1404.2
    194. 

  194. 019300         30 ALPHAN-KEY PIC X.                                     ST1404.2
    195. 

  195. 019400         30 NUM-KEY PIC 999.                                      ST1404.2
    196. 

  196. 019500     20 KEY-5.                                                    ST1404.2
    197. 

  197. 019600         30 ALPHAN-KEY PIC X.                                     ST1404.2
    198. 

  198. 019700         30 NUM-KEY PIC 999.                                      ST1404.2
    199. 

  199. 019800     20 KEY-6.                                                    ST1404.2
    200. 

  200. 019900         30 ALPHAN-KEY PIC X.                                     ST1404.2
    201. 

  201. 020000         30 NUM-KEY PIC 999.                                      ST1404.2
    202. 

  202. 020100 FD  SQ-FS3                                                       ST1404.2
    203. 

  203. 020200     LABEL RECORDS STANDARD                                       ST1404.2
    204. 

  204. 020300C    VALUE OF                                                     ST1404.2
    205. 

  205. 020400C    XXXXX074                                                     ST1404.2
    206. 

  206. 020500C    IS                                                           ST1404.2
    207. 

  207. 020600C    XXXXX077                                                     ST1404.2
    208. 

  208. 020700*    XXXXX069                                                     ST1404.2
    209. 

  209. 020800     BLOCK CONTAINS 1 RECORDS                                     ST1404.2
    210. 

  210. 020900     RECORD CONTAINS 132 CHARACTERS                               ST1404.2
    211. 

  211. 021000     DATA RECORD SQ-FS3R1-F-G-132.                                ST1404.2
    212. 

  212. 021100 01  SQ-FS3R1-F-G-132.                                            ST1404.2
    213. 

  213. 021200     10 REC-PRE-3 PIC X(120).                                     ST1404.2
    214. 

  214. 021300     10 REST-OF-3.                                                ST1404.2
    215. 

  215. 021400     20 KEY-7.                                                    ST1404.2
    216. 

  216. 021500         30 ALPHAN-KEY PIC X.                                     ST1404.2
    217. 

  217. 021600         30 NUM-KEY PIC 999.                                      ST1404.2
    218. 

  218. 021700     20 KEY-8.                                                    ST1404.2
    219. 

  219. 021800         30 ALPHAN-KEY PIC X.                                     ST1404.2
    220. 

  220. 021900         30 NUM-KEY PIC 999.                                      ST1404.2
    221. 

  221. 022000     20 KEY-9.                                                    ST1404.2
    222. 

  222. 022100         30 ALPHAN-KEY PIC X.                                     ST1404.2
    223. 

  223. 022200         30 NUM-KEY PIC 999.                                      ST1404.2
    224. 

  224. 022300 FD  SQ-FS4                                                       ST1404.2
    225. 

  225. 022400     LABEL RECORD IS STANDARD                                     ST1404.2
    226. 

  226. 022500C    ; VALUE OF                                                   ST1404.2
    227. 

  227. 022600C    XXXXX074                                                     ST1404.2
    228. 

  228. 022700C    IS                                                           ST1404.2
    229. 

  229. 022800C    XXXXX078                                                     ST1404.2
    230. 

  230. 022900*    XXXXX069                                                     ST1404.2
    231. 

  231. 023000     ; BLOCK CONTAINS 3 RECORDS                                   ST1404.2
    232. 

  232. 023100     RECORD CONTAINS 132 CHARACTERS                               ST1404.2
    233. 

  233. 023200     DATA RECORD SQ-FS4R1-F-G-132.                                ST1404.2
    234. 

  234. 023300 01  SQ-FS4R1-F-G-132.                                            ST1404.2
    235. 

  235. 023400     10  REC-PRE-4 PIC X(120).                                    ST1404.2
    236. 

  236. 023500     10  REST-OF-4.                                               ST1404.2
    237. 

  237. 023600     20  KEY-10.                                                  ST1404.2
    238. 

  238. 023700          30  ALPHAN-KEY PIC X.                                   ST1404.2
    239. 

  239. 023800          30  NUM-KEY PIC 999.                                    ST1404.2
    240. 

  240. 023900     20  KEY-11.                                                  ST1404.2
    241. 

  241. 024000          30  ALPHAN-KEY PIC X.                                   ST1404.2
    242. 

  242. 024100          30  NUM-KEY PIC 999.                                    ST1404.2
    243. 

  243. 024200     20  KEY-12.                                                  ST1404.2
    244. 

  244. 024300          30  ALPHAN-KEY PIC X.                                   ST1404.2
    245. 

  245. 024400          30  NUM-KEY PIC 999.                                    ST1404.2
    246. 

  246. 024500 SD  ST-FS1                                                       ST1404.2
    247. 

  247. 024600     RECORD CONTAINS 132 CHARACTERS                               ST1404.2
    248. 

  248. 024700     DATA RECORD IS ST-FS1R1-F-G-132.                             ST1404.2
    249. 

  249. 024800 01  ST-FS1R1-F-G-132.                                            ST1404.2
    250. 

  250. 024900     02 FILLER PIC X(120).                                        ST1404.2
    251. 

  251. 025000     02 NON-KEY-1.                                                ST1404.2
    252. 

  252. 025100         03 A-KEY PIC X.                                          ST1404.2
    253. 

  253. 025200         03 N-KEY PIC 999.                                        ST1404.2
    254. 

  254. 025300     02 SORT-KEY.                                                 ST1404.2
    255. 

  255. 025400         03 A-KEY PIC X.                                          ST1404.2
    256. 

  256. 025500         03 N-KEY PIC 999.                                        ST1404.2
    257. 

  257. 025600     02 NON-KEY-2.                                                ST1404.2
    258. 

  258. 025700         03 A-KEY PIC X.                                          ST1404.2
    259. 

  259. 025800         03 N-KEY PIC 999.                                        ST1404.2
    260. 

  260. 025900 WORKING-STORAGE SECTION.                                         ST1404.2
    261. 

  261. 026000 77  WRK-DU-9-0001 PIC 9 VALUE 0.                                 ST1404.2
    262. 

  262. 026100 77  WRK-DU-999-0001 PIC 999.                                     ST1404.2
    263. 

  263. 026200 77  WRK-DU-999-2 PIC 999 VALUE 001.                              ST1404.2
    264. 

  264. 026300 77  LAST-REC-NUM  PIC 999 VALUE ZERO.                            ST1404.2
    265. 

  265. 026400 01  WRK-XN-0001 PIC X(51) VALUE                                  ST1404.2
    266. 

  266. 026500     "ZYXWVUTSRQPONMLKJIHGFEDCBA>=<;9876543210/.-,+*)($$ ".       ST1404.2
    267. 

  267. 026600 01  WRK-XN-O051F-X-0001 REDEFINES WRK-XN-0001.                   ST1404.2
    268. 

  268. 026700     02 CHAR PIC X OCCURS 51 TIMES.                               ST1404.2
    269. 

  269. 026800 01  WRK-XN-2    PIC X(51) VALUE                                  ST1404.2
    270. 

  270. 026900     "ZYXWVUTSRQPONMLKJIHGFEDCBA>=<;9876543210/.-,+*)($$ ".       ST1404.2
    271. 

  271. 027000 01  WRK-XN-0051F-X-0002 REDEFINES WRK-XN-2.                      ST1404.2
    272. 

  272. 027100     02 ASCIIS PIC X OCCURS 51 TIMES.                             ST1404.2
    273. 

  273. 027200 01  WRK-XN-O020F-0001.                                           ST1404.2
    274. 

  274. 027300     02 COMPU PIC X OCCURS 20 TIMES.                              ST1404.2
    275. 

  275. 027400 01  WRK-XN-X-0001 REDEFINES WRK-XN-O020F-0001.                   ST1404.2
    276. 

  276. 027500     02 FILLER PIC X(20).                                         ST1404.2
    277. 

  277. 027600 01  WRK-XN-O120F-1.                                              ST1404.2
    278. 

  278. 027700     02 COLLS PIC X OCCURS 120 TIMES.                             ST1404.2
    279. 

  279. 027800 01  WRK-XN-X-2 REDEFINES WRK-XN-O120F-1.                         ST1404.2
    280. 

  280. 027900     02 WRK-XN-0002 PIC X(20).                                    ST1404.2
    281. 

  281. 028000     02 WRK-XN-0003 PIC X(20).                                    ST1404.2
    282. 

  282. 028100     02 WRK-XN-0004 PIC X(20).                                    ST1404.2
    283. 

  283. 028200     02 WRK-XN-0005 PIC X(20).                                    ST1404.2
    284. 

  284. 028300     02 WRK-XN-0006 PIC X(20).                                    ST1404.2
    285. 

  285. 028400     02 WRK-XN-0007 PIC X(20).                                    ST1404.2
    286. 

  286. 028500 01  FILE-RECORD-INFORMATION-REC.                                 ST1404.2
    287. 

  287. 028600     03 FILE-RECORD-INFO-SKELETON.                                ST1404.2
    288. 

  288. 028700        05 FILLER                 PICTURE X(48)       VALUE       ST1404.2
    289. 

  289. 028800             "FILE=      ,RECORD=      /0,RECNO=000000,UPDT=00".  ST1404.2
    290. 

  290. 028900        05 FILLER                 PICTURE X(46)       VALUE       ST1404.2
    291. 

  291. 029000             ",ODO=0000,PGM=     ,LRECL=000000,BLKSIZ  =0000".    ST1404.2
    292. 

  292. 029100        05 FILLER                 PICTURE X(26)       VALUE       ST1404.2
    293. 

  293. 029200             ",LFIL=000000,ORG=  ,LBLR= ".                        ST1404.2
    294. 

  294. 029300        05 FILLER                 PICTURE X(37)       VALUE       ST1404.2
    295. 

  295. 029400             ",RECKEY=                             ".             ST1404.2
    296. 

  296. 029500        05 FILLER                 PICTURE X(38)       VALUE       ST1404.2
    297. 

  297. 029600             ",ALTKEY1=                             ".            ST1404.2
    298. 

  298. 029700        05 FILLER                 PICTURE X(38)       VALUE       ST1404.2
    299. 

  299. 029800             ",ALTKEY2=                             ".            ST1404.2
    300. 

  300. 029900        05 FILLER                 PICTURE X(7)        VALUE SPACE.ST1404.2
    301. 

  301. 030000     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              ST1404.2
    302. 

  302. 030100        05 FILE-RECORD-INFO-P1-120.                               ST1404.2
    303. 

  303. 030200           07 FILLER              PIC X(5).                       ST1404.2
    304. 

  304. 030300           07 XFILE-NAME           PIC X(6).                      ST1404.2
    305. 

  305. 030400           07 FILLER              PIC X(8).                       ST1404.2
    306. 

  306. 030500           07 XRECORD-NAME         PIC X(6).                      ST1404.2
    307. 

  307. 030600           07 FILLER              PIC X(1).                       ST1404.2
    308. 

  308. 030700           07 REELUNIT-NUMBER     PIC 9(1).                       ST1404.2
    309. 

  309. 030800           07 FILLER              PIC X(7).                       ST1404.2
    310. 

  310. 030900           07 XRECORD-NUMBER       PIC 9(6).                      ST1404.2
    311. 

  311. 031000           07 FILLER              PIC X(6).                       ST1404.2
    312. 

  312. 031100           07 UPDATE-NUMBER       PIC 9(2).                       ST1404.2
    313. 

  313. 031200           07 FILLER              PIC X(5).                       ST1404.2
    314. 

  314. 031300           07 ODO-NUMBER          PIC 9(4).                       ST1404.2
    315. 

  315. 031400           07 FILLER              PIC X(5).                       ST1404.2
    316. 

  316. 031500           07 XPROGRAM-NAME        PIC X(5).                      ST1404.2
    317. 

  317. 031600           07 FILLER              PIC X(7).                       ST1404.2
    318. 

  318. 031700           07 XRECORD-LENGTH       PIC 9(6).                      ST1404.2
    319. 

  319. 031800           07 FILLER              PIC X(7).                       ST1404.2
    320. 

  320. 031900           07 CHARS-OR-RECORDS    PIC X(2).                       ST1404.2
    321. 

  321. 032000           07 FILLER              PIC X(1).                       ST1404.2
    322. 

  322. 032100           07 XBLOCK-SIZE          PIC 9(4).                      ST1404.2
    323. 

  323. 032200           07 FILLER              PIC X(6).                       ST1404.2
    324. 

  324. 032300           07 RECORDS-IN-FILE     PIC 9(6).                       ST1404.2
    325. 

  325. 032400           07 FILLER              PIC X(5).                       ST1404.2
    326. 

  326. 032500           07 XFILE-ORGANIZATION   PIC X(2).                      ST1404.2
    327. 

  327. 032600           07 FILLER              PIC X(6).                       ST1404.2
    328. 

  328. 032700           07 XLABEL-TYPE          PIC X(1).                      ST1404.2
    329. 

  329. 032800        05 FILE-RECORD-INFO-P121-240.                             ST1404.2
    330. 

  330. 032900           07 FILLER              PIC X(8).                       ST1404.2
    331. 

  331. 033000           07 XRECORD-KEY          PIC X(29).                     ST1404.2
    332. 

  332. 033100           07 FILLER              PIC X(9).                       ST1404.2
    333. 

  333. 033200           07 ALTERNATE-KEY1      PIC X(29).                      ST1404.2
    334. 

  334. 033300           07 FILLER              PIC X(9).                       ST1404.2
    335. 

  335. 033400           07 ALTERNATE-KEY2      PIC X(29).                      ST1404.2
    336. 

  336. 033500           07 FILLER              PIC X(7).                       ST1404.2
    337. 

  337. 033600 01  TEST-RESULTS.                                                ST1404.2
    338. 

  338. 033700     02 FILLER                   PIC X      VALUE SPACE.          ST1404.2
    339. 

  339. 033800     02 FEATURE                  PIC X(20)  VALUE SPACE.          ST1404.2
    340. 

  340. 033900     02 FILLER                   PIC X      VALUE SPACE.          ST1404.2
    341. 

  341. 034000     02 P-OR-F                   PIC X(5)   VALUE SPACE.          ST1404.2
    342. 

  342. 034100     02 FILLER                   PIC X      VALUE SPACE.          ST1404.2
    343. 

  343. 034200     02  PAR-NAME.                                                ST1404.2
    344. 

  344. 034300       03 FILLER                 PIC X(19)  VALUE SPACE.          ST1404.2
    345. 

  345. 034400       03  PARDOT-X              PIC X      VALUE SPACE.          ST1404.2
    346. 

  346. 034500       03 DOTVALUE               PIC 99     VALUE ZERO.           ST1404.2
    347. 

  347. 034600     02 FILLER                   PIC X(8)   VALUE SPACE.          ST1404.2
    348. 

  348. 034700     02 RE-MARK                  PIC X(61).                       ST1404.2
    349. 

  349. 034800 01  TEST-COMPUTED.                                               ST1404.2
    350. 

  350. 034900     02 FILLER                   PIC X(30)  VALUE SPACE.          ST1404.2
    351. 

  351. 035000     02 FILLER                   PIC X(17)  VALUE                 ST1404.2
    352. 

  352. 035100            "       COMPUTED=".                                   ST1404.2
    353. 

  353. 035200     02 COMPUTED-X.                                               ST1404.2
    354. 

  354. 035300     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          ST1404.2
    355. 

  355. 035400     03 COMPUTED-N               REDEFINES COMPUTED-A             ST1404.2
    356. 

  356. 035500                                 PIC -9(9).9(9).                  ST1404.2
    357. 

  357. 035600     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         ST1404.2
    358. 

  358. 035700     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     ST1404.2
    359. 

  359. 035800     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     ST1404.2
    360. 

  360. 035900     03       CM-18V0 REDEFINES COMPUTED-A.                       ST1404.2
    361. 

  361. 036000         04 COMPUTED-18V0                    PIC -9(18).          ST1404.2
    362. 

  362. 036100         04 FILLER                           PIC X.               ST1404.2
    363. 

  363. 036200     03 FILLER PIC X(50) VALUE SPACE.                             ST1404.2
    364. 

  364. 036300 01  TEST-CORRECT.                                                ST1404.2
    365. 

  365. 036400     02 FILLER PIC X(30) VALUE SPACE.                             ST1404.2
    366. 

  366. 036500     02 FILLER PIC X(17) VALUE "       CORRECT =".                ST1404.2
    367. 

  367. 036600     02 CORRECT-X.                                                ST1404.2
    368. 

  368. 036700     03 CORRECT-A                  PIC X(20) VALUE SPACE.         ST1404.2
    369. 

  369. 036800     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      ST1404.2
    370. 

  370. 036900     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         ST1404.2
    371. 

  371. 037000     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     ST1404.2
    372. 

  372. 037100     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     ST1404.2
    373. 

  373. 037200     03      CR-18V0 REDEFINES CORRECT-A.                         ST1404.2
    374. 

  374. 037300         04 CORRECT-18V0                     PIC -9(18).          ST1404.2
    375. 

  375. 037400         04 FILLER                           PIC X.               ST1404.2
    376. 

  376. 037500     03 FILLER PIC X(2) VALUE SPACE.                              ST1404.2
    377. 

  377. 037600     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     ST1404.2
    378. 

  378. 037700 01  CCVS-C-1.                                                    ST1404.2
    379. 

  379. 037800     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE              PAST1404.2
    380. 

  380. 037900-    "SS  PARAGRAPH-NAME                                          ST1404.2
    381. 

  381. 038000-    "       REMARKS".                                            ST1404.2
    382. 

  382. 038100     02 FILLER                     PIC X(20)    VALUE SPACE.      ST1404.2
    383. 

  383. 038200 01  CCVS-C-2.                                                    ST1404.2
    384. 

  384. 038300     02 FILLER                     PIC X        VALUE SPACE.      ST1404.2
    385. 

  385. 038400     02 FILLER                     PIC X(6)     VALUE "TESTED".   ST1404.2
    386. 

  386. 038500     02 FILLER                     PIC X(15)    VALUE SPACE.      ST1404.2
    387. 

  387. 038600     02 FILLER                     PIC X(4)     VALUE "FAIL".     ST1404.2
    388. 

  388. 038700     02 FILLER                     PIC X(94)    VALUE SPACE.      ST1404.2
    389. 

  389. 038800 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       ST1404.2
    390. 

  390. 038900 01  REC-CT                        PIC 99       VALUE ZERO.       ST1404.2
    391. 

  391. 039000 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       ST1404.2
    392. 

  392. 039100 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       ST1404.2
    393. 

  393. 039200 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       ST1404.2
    394. 

  394. 039300 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       ST1404.2
    395. 

  395. 039400 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       ST1404.2
    396. 

  396. 039500 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       ST1404.2
    397. 

  397. 039600 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      ST1404.2
    398. 

  398. 039700 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       ST1404.2
    399. 

  399. 039800 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     ST1404.2
    400. 

  400. 039900 01  CCVS-H-1.                                                    ST1404.2
    401. 

  401. 040000     02  FILLER                    PIC X(39)    VALUE SPACES.     ST1404.2
    402. 

  402. 040100     02  FILLER                    PIC X(42)    VALUE             ST1404.2
    403. 

  403. 040200     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 ST1404.2
    404. 

  404. 040300     02  FILLER                    PIC X(39)    VALUE SPACES.     ST1404.2
    405. 

  405. 040400 01  CCVS-H-2A.                                                   ST1404.2
    406. 

  406. 040500   02  FILLER                        PIC X(40)  VALUE SPACE.      ST1404.2
    407. 

  407. 040600   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  ST1404.2
    408. 

  408. 040700   02  FILLER                        PIC XXXX   VALUE             ST1404.2
    409. 

  409. 040800     "4.2 ".                                                      ST1404.2
    410. 

  410. 040900   02  FILLER                        PIC X(28)  VALUE             ST1404.2
    411. 

  411. 041000            " COPY - NOT FOR DISTRIBUTION".                       ST1404.2
    412. 

  412. 041100   02  FILLER                        PIC X(41)  VALUE SPACE.      ST1404.2
    413. 

  413. 041200                                                                  ST1404.2
    414. 

  414. 041300 01  CCVS-H-2B.                                                   ST1404.2
    415. 

  415. 041400   02  FILLER                        PIC X(15)  VALUE             ST1404.2
    416. 

  416. 041500            "TEST RESULT OF ".                                    ST1404.2
    417. 

  417. 041600   02  TEST-ID                       PIC X(9).                    ST1404.2
    418. 

  418. 041700   02  FILLER                        PIC X(4)   VALUE             ST1404.2
    419. 

  419. 041800            " IN ".                                               ST1404.2
    420. 

  420. 041900   02  FILLER                        PIC X(12)  VALUE             ST1404.2
    421. 

  421. 042000     " HIGH       ".                                              ST1404.2
    422. 

  422. 042100   02  FILLER                        PIC X(22)  VALUE             ST1404.2
    423. 

  423. 042200            " LEVEL VALIDATION FOR ".                             ST1404.2
    424. 

  424. 042300   02  FILLER                        PIC X(58)  VALUE             ST1404.2
    425. 

  425. 042400     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".ST1404.2
    426. 

  426. 042500 01  CCVS-H-3.                                                    ST1404.2
    427. 

  427. 042600     02  FILLER                      PIC X(34)  VALUE             ST1404.2
    428. 

  428. 042700            " FOR OFFICIAL USE ONLY    ".                         ST1404.2
    429. 

  429. 042800     02  FILLER                      PIC X(58)  VALUE             ST1404.2
    430. 

  430. 042900     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".ST1404.2
    431. 

  431. 043000     02  FILLER                      PIC X(28)  VALUE             ST1404.2
    432. 

  432. 043100            "  COPYRIGHT   1985 ".                                ST1404.2
    433. 

  433. 043200 01  CCVS-E-1.                                                    ST1404.2
    434. 

  434. 043300     02 FILLER                       PIC X(52)  VALUE SPACE.      ST1404.2
    435. 

  435. 043400     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  ".              ST1404.2
    436. 

  436. 043500     02 ID-AGAIN                     PIC X(9).                    ST1404.2
    437. 

  437. 043600     02 FILLER                       PIC X(45)  VALUE SPACES.     ST1404.2
    438. 

  438. 043700 01  CCVS-E-2.                                                    ST1404.2
    439. 

  439. 043800     02  FILLER                      PIC X(31)  VALUE SPACE.      ST1404.2
    440. 

  440. 043900     02  FILLER                      PIC X(21)  VALUE SPACE.      ST1404.2
    441. 

  441. 044000     02 CCVS-E-2-2.                                               ST1404.2
    442. 

  442. 044100         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      ST1404.2
    443. 

  443. 044200         03 FILLER                   PIC X      VALUE SPACE.      ST1404.2
    444. 

  444. 044300         03 ENDER-DESC               PIC X(44)  VALUE             ST1404.2
    445. 

  445. 044400            "ERRORS ENCOUNTERED".                                 ST1404.2
    446. 

  446. 044500 01  CCVS-E-3.                                                    ST1404.2
    447. 

  447. 044600     02  FILLER                      PIC X(22)  VALUE             ST1404.2
    448. 

  448. 044700            " FOR OFFICIAL USE ONLY".                             ST1404.2
    449. 

  449. 044800     02  FILLER                      PIC X(12)  VALUE SPACE.      ST1404.2
    450. 

  450. 044900     02  FILLER                      PIC X(58)  VALUE             ST1404.2
    451. 

  451. 045000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".ST1404.2
    452. 

  452. 045100     02  FILLER                      PIC X(13)  VALUE SPACE.      ST1404.2
    453. 

  453. 045200     02 FILLER                       PIC X(15)  VALUE             ST1404.2
    454. 

  454. 045300             " COPYRIGHT 1985".                                   ST1404.2
    455. 

  455. 045400 01  CCVS-E-4.                                                    ST1404.2
    456. 

  456. 045500     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      ST1404.2
    457. 

  457. 045600     02 FILLER                       PIC X(4)   VALUE " OF ".     ST1404.2
    458. 

  458. 045700     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      ST1404.2
    459. 

  459. 045800     02 FILLER                       PIC X(40)  VALUE             ST1404.2
    460. 

  460. 045900      "  TESTS WERE EXECUTED SUCCESSFULLY".                       ST1404.2
    461. 

  461. 046000 01  XXINFO.                                                      ST1404.2
    462. 

  462. 046100     02 FILLER                       PIC X(19)  VALUE             ST1404.2
    463. 

  463. 046200            "*** INFORMATION ***".                                ST1404.2
    464. 

  464. 046300     02 INFO-TEXT.                                                ST1404.2
    465. 

  465. 046400       04 FILLER                     PIC X(8)   VALUE SPACE.      ST1404.2
    466. 

  466. 046500       04 XXCOMPUTED                 PIC X(20).                   ST1404.2
    467. 

  467. 046600       04 FILLER                     PIC X(5)   VALUE SPACE.      ST1404.2
    468. 

  468. 046700       04 XXCORRECT                  PIC X(20).                   ST1404.2
    469. 

  469. 046800     02 INF-ANSI-REFERENCE           PIC X(48).                   ST1404.2
    470. 

  470. 046900 01  HYPHEN-LINE.                                                 ST1404.2
    471. 

  471. 047000     02 FILLER  PIC IS X VALUE IS SPACE.                          ST1404.2
    472. 

  472. 047100     02 FILLER  PIC IS X(65)    VALUE IS "************************ST1404.2
    473. 

  473. 047200-    "*****************************************".                 ST1404.2
    474. 

  474. 047300     02 FILLER  PIC IS X(54)    VALUE IS "************************ST1404.2
    475. 

  475. 047400-    "******************************".                            ST1404.2
    476. 

  476. 047500 01  CCVS-PGM-ID                     PIC X(9)   VALUE             ST1404.2
    477. 

  477. 047600     "ST140A".                                                    ST1404.2
    478. 

  478. 047700 PROCEDURE DIVISION.                                              ST1404.2
    479. 

  479. 047800 DECLARATIVES.                                                    ST1404.2
    480. 

  480. 047900 SECT-ST210-DEC SECTION.                                          ST1404.2
    481. 

  481. 048000     USE AFTER STANDARD EXCEPTION PROCEDURE ON INPUT.             ST1404.2
    482. 

  482. 048100 SRT-WRITE-DEC.                                                   ST1404.2
    483. 

  483. 048200     MOVE "ERROR ON OUTPUT DECL." TO FEATURE.                     ST1404.2
    484. 

  484. 048300     MOVE "SRT-TEST-DEC" TO PAR-NAME.                             ST1404.2
    485. 

  485. 048400     WRITE   PRINT-REC FROM TEST-RESULTS AFTER ADVANCING 2 LINES. ST1404.2
    486. 

  486. 048500     STOP RUN.                                                    ST1404.2
    487. 

  487. 048600 END DECLARATIVES.                                                ST1404.2
    488. 

  488. 048700 CCVS1 SECTION.                                                   ST1404.2
    489. 

  489. 048800 OPEN-FILES.                                                      ST1404.2
    490. 

  490. 048900     OPEN    OUTPUT PRINT-FILE.                                   ST1404.2
    491. 

  491. 049000     MOVE  CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.  ST1404.2
    492. 

  492. 049100     MOVE    SPACE TO TEST-RESULTS.                               ST1404.2
    493. 

  493. 049200     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              ST1404.2
    494. 

  494. 049300     MOVE    ZERO TO REC-SKL-SUB.                                 ST1404.2
    495. 

  495. 049400     PERFORM CCVS-INIT-FILE 9 TIMES.                              ST1404.2
    496. 

  496. 049500 CCVS-INIT-FILE.                                                  ST1404.2
    497. 

  497. 049600     ADD     1 TO REC-SKL-SUB.                                    ST1404.2
    498. 

  498. 049700     MOVE    FILE-RECORD-INFO-SKELETON                            ST1404.2
    499. 

  499. 049800          TO FILE-RECORD-INFO (REC-SKL-SUB).                      ST1404.2
    500. 

  500. 049900 CCVS-INIT-EXIT.                                                  ST1404.2
    501. 

  501. 050000     GO TO CCVS1-EXIT.                                            ST1404.2
    502. 

  502. 050100 CLOSE-FILES.                                                     ST1404.2
    503. 

  503. 050200     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   ST1404.2
    504. 

  504. 050300 TERMINATE-CCVS.                                                  ST1404.2
    505. 

  505. 050400*    EXIT PROGRAM.                                                ST1404.2
    506. 

  506. 050500*TERMINATE-CALL.                                                  ST1404.2
    507. 

  507. 050600     STOP     RUN.                                                ST1404.2
    508. 

  508. 050700 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         ST1404.2
    509. 

  509. 050800 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           ST1404.2
    510. 

  510. 050900 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          ST1404.2
    511. 

  511. 051000 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      ST1404.2
    512. 

  512. 051100     MOVE "****TEST DELETED****" TO RE-MARK.                      ST1404.2
    513. 

  513. 051200 PRINT-DETAIL.                                                    ST1404.2
    514. 

  514. 051300     IF REC-CT NOT EQUAL TO ZERO                                  ST1404.2
    515. 

  515. 051400             MOVE "." TO PARDOT-X                                 ST1404.2
    516. 

  516. 051500             MOVE REC-CT TO DOTVALUE.                             ST1404.2
    517. 

  517. 051600     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      ST1404.2
    518. 

  518. 051700     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               ST1404.2
    519. 

  519. 051800        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 ST1404.2
    520. 

  520. 051900          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 ST1404.2
    521. 

  521. 052000     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              ST1404.2
    522. 

  522. 052100     MOVE SPACE TO CORRECT-X.                                     ST1404.2
    523. 

  523. 052200     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         ST1404.2
    524. 

  524. 052300     MOVE     SPACE TO RE-MARK.                                   ST1404.2
    525. 

  525. 052400 HEAD-ROUTINE.                                                    ST1404.2
    526. 

  526. 052500     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  ST1404.2
    527. 

  527. 052600     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  ST1404.2
    528. 

  528. 052700     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  ST1404.2
    529. 

  529. 052800     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  ST1404.2
    530. 

  530. 052900 COLUMN-NAMES-ROUTINE.                                            ST1404.2
    531. 

  531. 053000     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           ST1404.2
    532. 

  532. 053100     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1404.2
    533. 

  533. 053200     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        ST1404.2
    534. 

  534. 053300 END-ROUTINE.                                                     ST1404.2
    535. 

  535. 053400     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.ST1404.2
    536. 

  536. 053500 END-RTN-EXIT.                                                    ST1404.2
    537. 

  537. 053600     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1404.2
    538. 

  538. 053700 END-ROUTINE-1.                                                   ST1404.2
    539. 

  539. 053800      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      ST1404.2
    540. 

  540. 053900      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               ST1404.2
    541. 

  541. 054000      ADD PASS-COUNTER TO ERROR-HOLD.                             ST1404.2
    542. 

  542. 054100*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   ST1404.2
    543. 

  543. 054200      MOVE PASS-COUNTER TO CCVS-E-4-1.                            ST1404.2
    544. 

  544. 054300      MOVE ERROR-HOLD TO CCVS-E-4-2.                              ST1404.2
    545. 

  545. 054400      MOVE CCVS-E-4 TO CCVS-E-2-2.                                ST1404.2
    546. 

  546. 054500      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           ST1404.2
    547. 

  547. 054600  END-ROUTINE-12.                                                 ST1404.2
    548. 

  548. 054700      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        ST1404.2
    549. 

  549. 054800     IF       ERROR-COUNTER IS EQUAL TO ZERO                      ST1404.2
    550. 

  550. 054900         MOVE "NO " TO ERROR-TOTAL                                ST1404.2
    551. 

  551. 055000         ELSE                                                     ST1404.2
    552. 

  552. 055100         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       ST1404.2
    553. 

  553. 055200     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           ST1404.2
    554. 

  554. 055300     PERFORM WRITE-LINE.                                          ST1404.2
    555. 

  555. 055400 END-ROUTINE-13.                                                  ST1404.2
    556. 

  556. 055500     IF DELETE-COUNTER IS EQUAL TO ZERO                           ST1404.2
    557. 

  557. 055600         MOVE "NO " TO ERROR-TOTAL  ELSE                          ST1404.2
    558. 

  558. 055700         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      ST1404.2
    559. 

  559. 055800     MOVE "TEST(S) DELETED     " TO ENDER-DESC.                   ST1404.2
    560. 

  560. 055900     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           ST1404.2
    561. 

  561. 056000      IF   INSPECT-COUNTER EQUAL TO ZERO                          ST1404.2
    562. 

  562. 056100          MOVE "NO " TO ERROR-TOTAL                               ST1404.2
    563. 

  563. 056200      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   ST1404.2
    564. 

  564. 056300      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            ST1404.2
    565. 

  565. 056400      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          ST1404.2
    566. 

  566. 056500     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           ST1404.2
    567. 

  567. 056600 WRITE-LINE.                                                      ST1404.2
    568. 

  568. 056700     ADD 1 TO RECORD-COUNT.                                       ST1404.2
    569. 

  569. 056800*    IF RECORD-COUNT GREATER 42                                   ST1404.2
    570. 

  570. 056900*        MOVE DUMMY-RECORD TO DUMMY-HOLD                          ST1404.2
    571. 

  571. 057000*        MOVE SPACE TO DUMMY-RECORD                               ST1404.2
    572. 

  572. 057100*        WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  ST1404.2
    573. 

  573. 057200*        MOVE CCVS-H-1  TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    ST1404.2
    574. 

  574. 057300*        MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    ST1404.2
    575. 

  575. 057400*        MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    ST1404.2
    576. 

  576. 057500*        MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    ST1404.2
    577. 

  577. 057600*        MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM WRT-LN            ST1404.2
    578. 

  578. 057700*        MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM WRT-LN            ST1404.2
    579. 

  579. 057800*        MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          ST1404.2
    580. 

  580. 057900*        MOVE DUMMY-HOLD TO DUMMY-RECORD                          ST1404.2
    581. 

  581. 058000*        MOVE ZERO TO RECORD-COUNT.                               ST1404.2
    582. 

  582. 058100     PERFORM WRT-LN.                                              ST1404.2
    583. 

  583. 058200 WRT-LN.                                                          ST1404.2
    584. 

  584. 058300     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               ST1404.2
    585. 

  585. 058400     MOVE SPACE TO DUMMY-RECORD.                                  ST1404.2
    586. 

  586. 058500 BLANK-LINE-PRINT.                                                ST1404.2
    587. 

  587. 058600     PERFORM WRT-LN.                                              ST1404.2
    588. 

  588. 058700 FAIL-ROUTINE.                                                    ST1404.2
    589. 

  589. 058800     IF     COMPUTED-X NOT EQUAL TO SPACE                         ST1404.2
    590. 

  590. 058900            GO TO   FAIL-ROUTINE-WRITE.                           ST1404.2
    591. 

  591. 059000     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.ST1404.2
    592. 

  592. 059100     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 ST1404.2
    593. 

  593. 059200     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   ST1404.2
    594. 

  594. 059300     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1404.2
    595. 

  595. 059400     MOVE   SPACES TO INF-ANSI-REFERENCE.                         ST1404.2
    596. 

  596. 059500     GO TO  FAIL-ROUTINE-EX.                                      ST1404.2
    597. 

  597. 059600 FAIL-ROUTINE-WRITE.                                              ST1404.2
    598. 

  598. 059700     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         ST1404.2
    599. 

  599. 059800     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 ST1404.2
    600. 

  600. 059900     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. ST1404.2
    601. 

  601. 060000     MOVE   SPACES TO COR-ANSI-REFERENCE.                         ST1404.2
    602. 

  602. 060100 FAIL-ROUTINE-EX. EXIT.                                           ST1404.2
    603. 

  603. 060200 BAIL-OUT.                                                        ST1404.2
    604. 

  604. 060300     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   ST1404.2
    605. 

  605. 060400     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           ST1404.2
    606. 

  606. 060500 BAIL-OUT-WRITE.                                                  ST1404.2
    607. 

  607. 060600     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  ST1404.2
    608. 

  608. 060700     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 ST1404.2
    609. 

  609. 060800     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1404.2
    610. 

  610. 060900     MOVE   SPACES TO INF-ANSI-REFERENCE.                         ST1404.2
    611. 

  611. 061000 BAIL-OUT-EX. EXIT.                                               ST1404.2
    612. 

  612. 061100 CCVS1-EXIT.                                                      ST1404.2
    613. 

  613. 061200     EXIT.                                                        ST1404.2
    614. 

  614. 061300 SECT-ST210-0001 SECTION.                                         ST1404.2
    615. 

  615. 061400 BLD-INIT-001.                                                    ST1404.2
    616. 

  616. 061500     MOVE "CREATE FILE SQ-FS1" TO FEATURE.                        ST1404.2
    617. 

  617. 061600     OPEN OUTPUT SQ-FS1.                                          ST1404.2
    618. 

  618. 061700     MOVE "SQ-FS1…
    619.