/src/test/resources/gov/nist/NC126A.CBL
https://github.com/uwol/proleap-cobol-parser · COBOL · 2638 lines · 2636 code · 0 blank · 2 comment · 0 complexity · 9f01f2bb5dee876d0f9c74e14c0ebcb2 MD5 · raw file
Large files are truncated click here to view the full file
- *HEADER,COBOL,NC126A
- 000100 IDENTIFICATION DIVISION. NC1264.2
- 000200 PROGRAM-ID. NC1264.2
- 000300 NC126A. NC1264.2
- 000400**************************************************************** NC1264.2
- 000500* * NC1264.2
- 000600* VALIDATION FOR:- * NC1264.2
- 000700* * NC1264.2
- 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1264.2
- 000900* * NC1264.2
- 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1264.2
- 001100* * NC1264.2
- 001200**************************************************************** NC1264.2
- 001300* * NC1264.2
- 001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC1264.2
- 001500* * NC1264.2
- 001600* X-55 - SYSTEM PRINTER NAME. * NC1264.2
- 001700* X-82 - SOURCE COMPUTER NAME. * NC1264.2
- 001800* X-83 - OBJECT COMPUTER NAME. * NC1264.2
- 001900* * NC1264.2
- 002000**************************************************************** NC1264.2
- 002100* NC1264.2
- 002200* PROGRAM NC126A TESTS THE USE OF LEVEL NUMBERS 01 THROUGH 49 NC1264.2
- 002300* INCLUSIVE WITH A VARIETY OF PICTURE CLAUSES AND GROUP AND NC1264.2
- 002400* ELEMENTARY COMPARISONS. NC1264.2
- 002500* NC1264.2
- 002600 ENVIRONMENT DIVISION. NC1264.2
- 002700 CONFIGURATION SECTION. NC1264.2
- 002800 SOURCE-COMPUTER. NC1264.2
- 002900 XXXXX082. NC1264.2
- 003000 OBJECT-COMPUTER. NC1264.2
- 003100 XXXXX083. NC1264.2
- 003200 INPUT-OUTPUT SECTION. NC1264.2
- 003300 FILE-CONTROL. NC1264.2
- 003400 SELECT PRINT-FILE ASSIGN TO NC1264.2
- 003500 XXXXX055. NC1264.2
- 003600 DATA DIVISION. NC1264.2
- 003700 FILE SECTION. NC1264.2
- 003800 FD PRINT-FILE. NC1264.2
- 003900 01 PRINT-REC PICTURE X(120). NC1264.2
- 004000 01 DUMMY-RECORD PICTURE X(120). NC1264.2
- 004100 WORKING-STORAGE SECTION. NC1264.2
- 004200 01 TEST-GROUP-1. NC1264.2
- 004300 02 GP-1 PICTURE ZZZ999. NC1264.2
- 004400 02 GPLEVEL-1. NC1264.2
- 004500 03 GP-2 PICTURE 9(9).99. NC1264.2
- 004600 03 GPLEVEL-2. NC1264.2
- 004700 04 GP-3 PICTURE 0009(9). NC1264.2
- 004800 04 GPLEVEL-3. NC1264.2
- 004900 05 GP-4 PICTURE ZBZBZ9. NC1264.2
- 005000 05 GPLEVEL-4. NC1264.2
- 005100 06 GP-5 PICTURE $$$,$99.99. NC1264.2
- 005200 06 GPLEVEL-5. NC1264.2
- 005300 07 GP-6 PICTURE ******99. NC1264.2
- 005400 07 GPLEVEL-6. NC1264.2
- 005500 08 GP-7 PICTURE +999,999. NC1264.2
- 005600 08 GPLEVEL-7. NC1264.2
- 005700 09 GP-8 PICTURE X(14). NC1264.2
- 005800 09 GPLEVEL-8. NC1264.2
- 005900 10 GP-9 PICTURE XBXBXBX. NC1264.2
- 006000 10 GPLEVEL-9. NC1264.2
- 006100 11 GP-10 PICTURE 9090900. NC1264.2
- 006200 11 GPLEVEL-10. NC1264.2
- 006300 12 GP-11 PICTURE $999,999.00. NC1264.2
- 006400 12 GPLEVEL-11. NC1264.2
- 006500 13 GP-12 PICTURE ZZZ.9. NC1264.2
- 006600 13 GPLEVEL-12. NC1264.2
- 006700 14 GP-13 PICTURE ZZ9B900. NC1264.2
- 006800 14 GPLEVEL-13. NC1264.2
- 006900 15 GP-14 PICTURE XXXX. NC1264.2
- 007000 15 GPLEVEL-14. NC1264.2
- 007100 16 GP-15 PICTURE 9(10). NC1264.2
- 007200 16 GPLEVEL-15. NC1264.2
- 007300 17 GP-16 PICTURE Z(11). NC1264.2
- 007400 17 GPLEVEL-16. NC1264.2
- 007500 18 GP-17 PICTURE 99BB909. NC1264.2
- 007600 18 GPLEVEL-17. NC1264.2
- 007700 19 GP-18 PICTURE -*B*99. NC1264.2
- 007800 19 GPLEVEL-18. NC1264.2
- 007900 20 GP-19 PICTURE 0009999. NC1264.2
- 008000 20 GPLEVEL-19. NC1264.2
- 008100 21 GP-20 PICTURE 999DB. NC1264.2
- 008200 21 GPLEVEL-20. NC1264.2
- 008300 22 GP-21 PICTURE ABABABA. NC1264.2
- 008400 22 GPLEVEL-21. NC1264.2
- 008500 23 GP-22 PICTURE *999999. NC1264.2
- 008600 23 GPLEVEL-22. NC1264.2
- 008700 24 GP-23 PICTURE XXXXXA. NC1264.2
- 008800 24 GPLEVEL-23. NC1264.2
- 008900 25 GP-24 PICTURE $$$,$$$.99. NC1264.2
- 009000 25 GPLEVEL-24. NC1264.2
- 009100 26 GP-25 PICTURE 9BB9BBB9BBB. NC1264.2
- 009200 26 GPLEVEL-25. NC1264.2
- 009300 27 GP-26 PICTURE 9990009. NC1264.2
- 009400 27 GPLEVEL-26. NC1264.2
- 009500 28 GP-27 PICTURE 9,999,999. NC1264.2
- 009600 28 GPLEVEL-27. NC1264.2
- 009700 29 GP-28 PICTURE 9(7),9. NC1264.2
- 009800 29 GPLEVEL-28. NC1264.2
- 009900 30 GP-29 PICTURE $***.99. NC1264.2
- 010000 30 GPLEVEL-29. NC1264.2
- 010100 31 GP-30 PICTURE X(15). NC1264.2
- 010200 31 GPLEVEL-30. NC1264.2
- 010300 32 GP-31 PICTURE 9(10). NC1264.2
- 010400 32 GPLEVEL-31. NC1264.2
- 010500 33 GP-32 PICTURE *99. NC1264.2
- 010600 33 GPLEVEL-32. NC1264.2
- 010700 34 GP-33 PICTURE ZZZ9. NC1264.2
- 010800 34 GPLEVEL-33. NC1264.2
- 010900 35 GP-34 PICTURE BB9BB9. NC1264.2
- 011000 35 GPLEVEL-34. NC1264.2
- 011100 36 GP-35 PICTURE $99,999.99. NC1264.2
- 011200 36 GPLEVEL-35. NC1264.2
- 011300 37 GP-36 PICTURE 090909. NC1264.2
- 011400 37 GPLEVEL-36. NC1264.2
- 011500 38 GP-37 PICTURE ZZZZ. NC1264.2
- 011600 38 GPLEVEL-37. NC1264.2
- 011700 39 GP-38 PICTURE +99. NC1264.2
- 011800 39 GPLEVEL-38. NC1264.2
- 011900 40 GP-39 PICTURE -99. NC1264.2
- 012000 40 GPLEVEL-39. NC1264.2
- 012100 41 GP-40 PICTURE 99CR. NC1264.2
- 012200 41 GPLEVEL-40. NC1264.2
- 012300 42 GP-41 PICTURE 99DB. NC1264.2
- 012400 42 GPLEVEL-41. NC1264.2
- 012500 43 GP-42 PICTURE ****. NC1264.2
- 012600 43 GPLEVEL-42. NC1264.2
- 012700 44 GP-43 PICTURE AAA. NC1264.2
- 012800 44 GPLEVEL-43. NC1264.2
- 012900 45 GP-44 PICTURE XXX. NC1264.2
- 013000 45 GPLEVEL-44. NC1264.2
- 013100 46 GP-45 PICTURE *9999. NC1264.2
- 013200 46 GPLEVEL-45. NC1264.2
- 013300 47 GP-46 PICTURE 9(10).99. NC1264.2
- 013400 47 GPLEVEL-46. NC1264.2
- 013500 48 GP-47 OCCURS 2 TIMES PICTURE 9. NC1264.2
- 013600 48 GPLEVEL-47. NC1264.2
- 013700 49 GP-48 OCCURS 2 TIMES PICTURE X. NC1264.2
- 013800 01 TABLE-GROUP. NC1264.2
- 013900 02 TB-1 PICTURE XX. NC1264.2
- 014000 02 TBGRP-1. NC1264.2
- 014100 03 TB-2 PICTURE XX. NC1264.2
- 014200 03 TBGRP-2. NC1264.2
- 014300 04 TB-3 PICTURE XX. NC1264.2
- 014400 04 TBGRP-3. NC1264.2
- 014500 05 TB-4 PICTURE XX. NC1264.2
- 014600 05 TBGRP-4. NC1264.2
- 014700 06 TB-5 PICTURE XX. NC1264.2
- 014800 06 TBGRP-5. NC1264.2
- 014900 07 TB-6 PICTURE XX. NC1264.2
- 015000 07 TBGRP-6. NC1264.2
- 015100 08 TB-7 PICTURE XX. NC1264.2
- 015200 08 TBGRP-7. NC1264.2
- 015300 09 TB-8 PICTURE XX. NC1264.2
- 015400 09 TBGRP-8. NC1264.2
- 015500 10 TB-9 PICTURE XX. NC1264.2
- 015600 10 TBGRP-9. NC1264.2
- 015700 11 TB-10 PICTURE XX. NC1264.2
- 015800 11 TBGRP-10. NC1264.2
- 015900 12 TB-11 PICTURE XX. NC1264.2
- 016000 12 TBGRP-11. NC1264.2
- 016100 13 TB-12 PICTURE XX. NC1264.2
- 016200 13 TBGRP-12. NC1264.2
- 016300 14 TB-13 PICTURE XX. NC1264.2
- 016400 14 TBGRP-13. NC1264.2
- 016500 15 TB-14 PICTURE XX. NC1264.2
- 016600 15 TBGRP-14. NC1264.2
- 016700 16 TB-15 PICTURE XX. NC1264.2
- 016800 16 TBGRP-15. NC1264.2
- 016900 17 TB-16 PICTURE XX. NC1264.2
- 017000 17 TBGRP-16. NC1264.2
- 017100 18 TB-17 PICTURE XX. NC1264.2
- 017200 18 TBGRP-17. NC1264.2
- 017300 19 TB-18 PICTURE XX. NC1264.2
- 017400 19 TBGRP-18. NC1264.2
- 017500 20 TB-19 PICTURE XX. NC1264.2
- 017600 20 TBGRP-19. NC1264.2
- 017700 21 TB-20 PICTURE XX. NC1264.2
- 017800 21 TBGRP-20. NC1264.2
- 017900 22 TB-21 PICTURE XX. NC1264.2
- 018000 22 TBGRP-21. NC1264.2
- 018100 23 TB-22 PICTURE XX. NC1264.2
- 018200 23 TBGRP-22. NC1264.2
- 018300 24 TB-23 PICTURE XX. NC1264.2
- 018400 24 TBGRP-23. NC1264.2
- 018500 25 TB-24 PICTURE XX. NC1264.2
- 018600 25 TBGRP-24. NC1264.2
- 018700 26 TB-25 PICTURE XX. NC1264.2
- 018800 26 TBGRP-25. NC1264.2
- 018900 27 TB-26 PICTURE XX. NC1264.2
- 019000 27 TBGRP-26. NC1264.2
- 019100 28 TB-27 PICTURE XX. NC1264.2
- 019200 28 TBGRP-27. NC1264.2
- 019300 29 TB-28 PICTURE XX. NC1264.2
- 019400 29 TBGRP-28. NC1264.2
- 019500 30 TB-29 PICTURE XX. NC1264.2
- 019600 30 TBGRP-29. NC1264.2
- 019700 31 TB-30 PICTURE XX. NC1264.2
- 019800 31 TBGRP-30. NC1264.2
- 019900 32 TB-31 PICTURE XX. NC1264.2
- 020000 32 TBGRP-31. NC1264.2
- 020100 33 TB-32 PICTURE XX. NC1264.2
- 020200 33 TBGRP-32. NC1264.2
- 020300 34 TB-33 PICTURE XX. NC1264.2
- 020400 34 TBGRP-33. NC1264.2
- 020500 35 TB-34 PICTURE XX. NC1264.2
- 020600 35 TBGRP-34. NC1264.2
- 020700 36 TB-35 PICTURE XX. NC1264.2
- 020800 36 TBGRP-35. NC1264.2
- 020900 37 TB-36 PICTURE XX. NC1264.2
- 021000 37 TBGRP-36. NC1264.2
- 021100 38 TB-37 PICTURE XX. NC1264.2
- 021200 38 TBGRP-37. NC1264.2
- 021300 39 TB-38 PICTURE XX. NC1264.2
- 021400 39 TBGRP-38. NC1264.2
- 021500 40 TB-39 PICTURE XX. NC1264.2
- 021600 40 TBGRP-39. NC1264.2
- 021700 41 TB-40 PICTURE XX. NC1264.2
- 021800 41 TBGRP-40. NC1264.2
- 021900 42 TB-41 PICTURE XX. NC1264.2
- 022000 42 TBGRP-41. NC1264.2
- 022100 43 TB-42 PICTURE XX. NC1264.2
- 022200 43 TBGRP-42. NC1264.2
- 022300 44 TB-43 PICTURE XX. NC1264.2
- 022400 44 TBGRP-43. NC1264.2
- 022500 45 TB-44 PICTURE XX. NC1264.2
- 022600 45 TBGRP-44. NC1264.2
- 022700 46 TB-45 PICTURE XX. NC1264.2
- 022800 46 TBGRP-45. NC1264.2
- 022900 47 TB-46 PICTURE XX. NC1264.2
- 023000 47 TBGRP-46. NC1264.2
- 023100 48 TB-47 PICTURE XX. NC1264.2
- 023200 48 TBGRP-47. NC1264.2
- 023300 49 TB-48 PICTURE XX. NC1264.2
- 023400 01 LITERAL-98. NC1264.2
- 023500 02 A-PART-98 PICTURE X(20) VALUE "ABCDEFGHIJKLMNOPQRST". NC1264.2
- 023600 02 B-PART-98 PICTURE X(20) VALUE "01234567899876543210". NC1264.2
- 023700 02 C-PART-98 PICTURE X(20) VALUE "SUPERCALIFRAGILISTIC". NC1264.2
- 023800 02 D-PART-98 PICTURE X(20) VALUE "THAT LITERAL WAS BAD". NC1264.2
- 023900 02 E-PART-98 PICTURE X(16) VALUE "UP ON THE ROOFS". NC1264.2
- 024000 01 BREAKDOWN-RECORD. NC1264.2
- 024100 02 LENGTH-COUNTER PICTURE 999 VALUE ZERO. NC1264.2
- 024200 02 COMPUTED-BREAKDOWN. NC1264.2
- 024300 03 CM-20 PICTURE X(20). NC1264.2
- 024400 03 CM-40 PICTURE X(20). NC1264.2
- 024500 03 CM-60 PICTURE X(20). NC1264.2
- 024600 03 CM-80 PICTURE X(20). NC1264.2
- 024700 03 CM-100 PICTURE X(20). NC1264.2
- 024800 03 CM-120 PICTURE X(20). NC1264.2
- 024900 03 CM-140 PICTURE X(20). NC1264.2
- 025000 03 CM-160 PICTURE X(20). NC1264.2
- 025100 03 CM-180 PICTURE X(20). NC1264.2
- 025200 03 CM-200 PICTURE X(20). NC1264.2
- 025300 02 CORRECT-BREAKDOWN. NC1264.2
- 025400 03 CR-20 PICTURE X(20). NC1264.2
- 025500 03 CR-40 PICTURE X(20). NC1264.2
- 025600 03 CR-60 PICTURE X(20). NC1264.2
- 025700 03 CR-80 PICTURE X(20). NC1264.2
- 025800 03 CR-100 PICTURE X(20). NC1264.2
- 025900 03 CR-120 PICTURE X(20). NC1264.2
- 026000 03 CR-140 PICTURE X(20). NC1264.2
- 026100 03 CR-160 PICTURE X(20). NC1264.2
- 026200 03 CR-180 PICTURE X(20). NC1264.2
- 026300 03 CR-200 PICTURE X(20). NC1264.2
- 026400 01 TEST-RESULTS. NC1264.2
- 026500 02 FILLER PIC X VALUE SPACE. NC1264.2
- 026600 02 FEATURE PIC X(20) VALUE SPACE. NC1264.2
- 026700 02 FILLER PIC X VALUE SPACE. NC1264.2
- 026800 02 P-OR-F PIC X(5) VALUE SPACE. NC1264.2
- 026900 02 FILLER PIC X VALUE SPACE. NC1264.2
- 027000 02 PAR-NAME. NC1264.2
- 027100 03 FILLER PIC X(19) VALUE SPACE. NC1264.2
- 027200 03 PARDOT-X PIC X VALUE SPACE. NC1264.2
- 027300 03 DOTVALUE PIC 99 VALUE ZERO. NC1264.2
- 027400 02 FILLER PIC X(8) VALUE SPACE. NC1264.2
- 027500 02 RE-MARK PIC X(61). NC1264.2
- 027600 01 TEST-COMPUTED. NC1264.2
- 027700 02 FILLER PIC X(30) VALUE SPACE. NC1264.2
- 027800 02 FILLER PIC X(17) VALUE NC1264.2
- 027900 " COMPUTED=". NC1264.2
- 028000 02 COMPUTED-X. NC1264.2
- 028100 03 COMPUTED-A PIC X(20) VALUE SPACE. NC1264.2
- 028200 03 COMPUTED-N REDEFINES COMPUTED-A NC1264.2
- 028300 PIC -9(9).9(9). NC1264.2
- 028400 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC1264.2
- 028500 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). NC1264.2
- 028600 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC1264.2
- 028700 03 CM-18V0 REDEFINES COMPUTED-A. NC1264.2
- 028800 04 COMPUTED-18V0 PIC -9(18). NC1264.2
- 028900 04 FILLER PIC X. NC1264.2
- 029000 03 FILLER PIC X(50) VALUE SPACE. NC1264.2
- 029100 01 TEST-CORRECT. NC1264.2
- 029200 02 FILLER PIC X(30) VALUE SPACE. NC1264.2
- 029300 02 FILLER PIC X(17) VALUE " CORRECT =". NC1264.2
- 029400 02 CORRECT-X. NC1264.2
- 029500 03 CORRECT-A PIC X(20) VALUE SPACE. NC1264.2
- 029600 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). NC1264.2
- 029700 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). NC1264.2
- 029800 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC1264.2
- 029900 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). NC1264.2
- 030000 03 CR-18V0 REDEFINES CORRECT-A. NC1264.2
- 030100 04 CORRECT-18V0 PIC -9(18). NC1264.2
- 030200 04 FILLER PIC X. NC1264.2
- 030300 03 FILLER PIC X(2) VALUE SPACE. NC1264.2
- 030400 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC1264.2
- 030500 01 CCVS-C-1. NC1264.2
- 030600 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC1264.2
- 030700- "SS PARAGRAPH-NAME NC1264.2
- 030800- " REMARKS". NC1264.2
- 030900 02 FILLER PIC X(20) VALUE SPACE. NC1264.2
- 031000 01 CCVS-C-2. NC1264.2
- 031100 02 FILLER PIC X VALUE SPACE. NC1264.2
- 031200 02 FILLER PIC X(6) VALUE "TESTED". NC1264.2
- 031300 02 FILLER PIC X(15) VALUE SPACE. NC1264.2
- 031400 02 FILLER PIC X(4) VALUE "FAIL". NC1264.2
- 031500 02 FILLER PIC X(94) VALUE SPACE. NC1264.2
- 031600 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC1264.2
- 031700 01 REC-CT PIC 99 VALUE ZERO. NC1264.2
- 031800 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC1264.2
- 031900 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC1264.2
- 032000 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC1264.2
- 032100 01 PASS-COUNTER PIC 999 VALUE ZERO. NC1264.2
- 032200 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC1264.2
- 032300 01 ERROR-HOLD PIC 999 VALUE ZERO. NC1264.2
- 032400 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC1264.2
- 032500 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC1264.2
- 032600 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC1264.2
- 032700 01 CCVS-H-1. NC1264.2
- 032800 02 FILLER PIC X(39) VALUE SPACES. NC1264.2
- 032900 02 FILLER PIC X(42) VALUE NC1264.2
- 033000 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC1264.2
- 033100 02 FILLER PIC X(39) VALUE SPACES. NC1264.2
- 033200 01 CCVS-H-2A. NC1264.2
- 033300 02 FILLER PIC X(40) VALUE SPACE. NC1264.2
- 033400 02 FILLER PIC X(7) VALUE "CCVS85 ". NC1264.2
- 033500 02 FILLER PIC XXXX VALUE NC1264.2
- 033600 "4.2 ". NC1264.2
- 033700 02 FILLER PIC X(28) VALUE NC1264.2
- 033800 " COPY - NOT FOR DISTRIBUTION". NC1264.2
- 033900 02 FILLER PIC X(41) VALUE SPACE. NC1264.2
- 034000 NC1264.2
- 034100 01 CCVS-H-2B. NC1264.2
- 034200 02 FILLER PIC X(15) VALUE NC1264.2
- 034300 "TEST RESULT OF ". NC1264.2
- 034400 02 TEST-ID PIC X(9). NC1264.2
- 034500 02 FILLER PIC X(4) VALUE NC1264.2
- 034600 " IN ". NC1264.2
- 034700 02 FILLER PIC X(12) VALUE NC1264.2
- 034800 " HIGH ". NC1264.2
- 034900 02 FILLER PIC X(22) VALUE NC1264.2
- 035000 " LEVEL VALIDATION FOR ". NC1264.2
- 035100 02 FILLER PIC X(58) VALUE NC1264.2
- 035200 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1264.2
- 035300 01 CCVS-H-3. NC1264.2
- 035400 02 FILLER PIC X(34) VALUE NC1264.2
- 035500 " FOR OFFICIAL USE ONLY ". NC1264.2
- 035600 02 FILLER PIC X(58) VALUE NC1264.2
- 035700 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1264.2
- 035800 02 FILLER PIC X(28) VALUE NC1264.2
- 035900 " COPYRIGHT 1985 ". NC1264.2
- 036000 01 CCVS-E-1. NC1264.2
- 036100 02 FILLER PIC X(52) VALUE SPACE. NC1264.2
- 036200 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC1264.2
- 036300 02 ID-AGAIN PIC X(9). NC1264.2
- 036400 02 FILLER PIC X(45) VALUE SPACES. NC1264.2
- 036500 01 CCVS-E-2. NC1264.2
- 036600 02 FILLER PIC X(31) VALUE SPACE. NC1264.2
- 036700 02 FILLER PIC X(21) VALUE SPACE. NC1264.2
- 036800 02 CCVS-E-2-2. NC1264.2
- 036900 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC1264.2
- 037000 03 FILLER PIC X VALUE SPACE. NC1264.2
- 037100 03 ENDER-DESC PIC X(44) VALUE NC1264.2
- 037200 "ERRORS ENCOUNTERED". NC1264.2
- 037300 01 CCVS-E-3. NC1264.2
- 037400 02 FILLER PIC X(22) VALUE NC1264.2
- 037500 " FOR OFFICIAL USE ONLY". NC1264.2
- 037600 02 FILLER PIC X(12) VALUE SPACE. NC1264.2
- 037700 02 FILLER PIC X(58) VALUE NC1264.2
- 037800 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1264.2
- 037900 02 FILLER PIC X(13) VALUE SPACE. NC1264.2
- 038000 02 FILLER PIC X(15) VALUE NC1264.2
- 038100 " COPYRIGHT 1985". NC1264.2
- 038200 01 CCVS-E-4. NC1264.2
- 038300 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC1264.2
- 038400 02 FILLER PIC X(4) VALUE " OF ". NC1264.2
- 038500 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC1264.2
- 038600 02 FILLER PIC X(40) VALUE NC1264.2
- 038700 " TESTS WERE EXECUTED SUCCESSFULLY". NC1264.2
- 038800 01 XXINFO. NC1264.2
- 038900 02 FILLER PIC X(19) VALUE NC1264.2
- 039000 "*** INFORMATION ***". NC1264.2
- 039100 02 INFO-TEXT. NC1264.2
- 039200 04 FILLER PIC X(8) VALUE SPACE. NC1264.2
- 039300 04 XXCOMPUTED PIC X(20). NC1264.2
- 039400 04 FILLER PIC X(5) VALUE SPACE. NC1264.2
- 039500 04 XXCORRECT PIC X(20). NC1264.2
- 039600 02 INF-ANSI-REFERENCE PIC X(48). NC1264.2
- 039700 01 HYPHEN-LINE. NC1264.2
- 039800 02 FILLER PIC IS X VALUE IS SPACE. NC1264.2
- 039900 02 FILLER PIC IS X(65) VALUE IS "************************NC1264.2
- 040000- "*****************************************". NC1264.2
- 040100 02 FILLER PIC IS X(54) VALUE IS "************************NC1264.2
- 040200- "******************************". NC1264.2
- 040300 01 CCVS-PGM-ID PIC X(9) VALUE NC1264.2
- 040400 "NC126A". NC1264.2
- 040500 PROCEDURE DIVISION. NC1264.2
- 040600 CCVS1 SECTION. NC1264.2
- 040700 OPEN-FILES. NC1264.2
- 040800 OPEN OUTPUT PRINT-FILE. NC1264.2
- 040900 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC1264.2
- 041000 MOVE SPACE TO TEST-RESULTS. NC1264.2
- 041100 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC1264.2
- 041200 GO TO CCVS1-EXIT. NC1264.2
- 041300 CLOSE-FILES. NC1264.2
- 041400 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC1264.2
- 041500 TERMINATE-CCVS. NC1264.2
- 041600* EXIT PROGRAM. NC1264.2
- 041700*TERMINATE-CALL. NC1264.2
- 041800 STOP RUN. NC1264.2
- 041900 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC1264.2
- 042000 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC1264.2
- 042100 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC1264.2
- 042200 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC1264.2
- 042300 MOVE "****TEST DELETED****" TO RE-MARK. NC1264.2
- 042400 PRINT-DETAIL. NC1264.2
- 042500 IF REC-CT NOT EQUAL TO ZERO NC1264.2
- 042600 MOVE "." TO PARDOT-X NC1264.2
- 042700 MOVE REC-CT TO DOTVALUE. NC1264.2
- 042800 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC1264.2
- 042900 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC1264.2
- 043000 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC1264.2
- 043100 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC1264.2
- 043200 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC1264.2
- 043300 MOVE SPACE TO CORRECT-X. NC1264.2
- 043400 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC1264.2
- 043500 MOVE SPACE TO RE-MARK. NC1264.2
- 043600 HEAD-ROUTINE. NC1264.2
- 043700 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1264.2
- 043800 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1264.2
- 043900 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1264.2
- 044000 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1264.2
- 044100 COLUMN-NAMES-ROUTINE. NC1264.2
- 044200 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1264.2
- 044300 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1264.2
- 044400 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1264.2
- 044500 END-ROUTINE. NC1264.2
- 044600 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC1264.2
- 044700 END-RTN-EXIT. NC1264.2
- 044800 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1264.2
- 044900 END-ROUTINE-1. NC1264.2
- 045000 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC1264.2
- 045100 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC1264.2
- 045200 ADD PASS-COUNTER TO ERROR-HOLD. NC1264.2
- 045300* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC1264.2
- 045400 MOVE PASS-COUNTER TO CCVS-E-4-1. NC1264.2
- 045500 MOVE ERROR-HOLD TO CCVS-E-4-2. NC1264.2
- 045600 MOVE CCVS-E-4 TO CCVS-E-2-2. NC1264.2
- 045700 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC1264.2
- 045800 END-ROUTINE-12. NC1264.2
- 045900 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC1264.2
- 046000 IF ERROR-COUNTER IS EQUAL TO ZERO NC1264.2
- 046100 MOVE "NO " TO ERROR-TOTAL NC1264.2
- 046200 ELSE NC1264.2
- 046300 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC1264.2
- 046400 MOVE CCVS-E-2 TO DUMMY-RECORD. NC1264.2
- 046500 PERFORM WRITE-LINE. NC1264.2
- 046600 END-ROUTINE-13. NC1264.2
- 046700 IF DELETE-COUNTER IS EQUAL TO ZERO NC1264.2
- 046800 MOVE "NO " TO ERROR-TOTAL ELSE NC1264.2
- 046900 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC1264.2
- 047000 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC1264.2
- 047100 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1264.2
- 047200 IF INSPECT-COUNTER EQUAL TO ZERO NC1264.2
- 047300 MOVE "NO " TO ERROR-TOTAL NC1264.2
- 047400 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC1264.2
- 047500 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC1264.2
- 047600 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1264.2
- 047700 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1264.2
- 047800 WRITE-LINE. NC1264.2
- 047900 ADD 1 TO RECORD-COUNT. NC1264.2
- 048000* IF RECORD-COUNT GREATER 42 NC1264.2
- 048100* MOVE DUMMY-RECORD TO DUMMY-HOLD NC1264.2
- 048200* MOVE SPACE TO DUMMY-RECORD NC1264.2
- 048300* WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC1264.2
- 048400* MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1264.2
- 048500* MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1264.2
- 048600* MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1264.2
- 048700* MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1264.2
- 048800* MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC1264.2
- 048900* MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN NC1264.2
- 049000* MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC1264.2
- 049100* MOVE DUMMY-HOLD TO DUMMY-RECORD NC1264.2
- 049200* MOVE ZERO TO RECORD-COUNT. NC1264.2
- 049300 PERFORM WRT-LN. NC1264.2
- 049400 WRT-LN. NC1264.2
- 049500 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC1264.2
- 049600 MOVE SPACE TO DUMMY-RECORD. NC1264.2
- 049700 BLANK-LINE-PRINT. NC1264.2
- 049800 PERFORM WRT-LN. NC1264.2
- 049900 FAIL-ROUTINE. NC1264.2
- 050000 IF COMPUTED-X NOT EQUAL TO SPACE NC1264.2
- 050100 GO TO FAIL-ROUTINE-WRITE. NC1264.2
- 050200 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC1264.2
- 050300 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1264.2
- 050400 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC1264.2
- 050500 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1264.2
- 050600 MOVE SPACES TO INF-ANSI-REFERENCE. NC1264.2
- 050700 GO TO FAIL-ROUTINE-EX. NC1264.2
- 050800 FAIL-ROUTINE-WRITE. NC1264.2
- 050900 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC1264.2
- 051000 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC1264.2
- 051100 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC1264.2
- 051200 MOVE SPACES TO COR-ANSI-REFERENCE. NC1264.2
- 051300 FAIL-ROUTINE-EX. EXIT. NC1264.2
- 051400 BAIL-OUT. NC1264.2
- 051500 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC1264.2
- 051600 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC1264.2
- 051700 BAIL-OUT-WRITE. NC1264.2
- 051800 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC1264.2
- 051900 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1264.2
- 052000 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1264.2
- 052100 MOVE SPACES TO INF-ANSI-REFERENCE. NC1264.2
- 052200 BAIL-OUT-EX. EXIT. NC1264.2
- 052300 CCVS1-EXIT. NC1264.2
- 052400 EXIT. NC1264.2
- 052500 SECT-NC126A-001 SECTION. NC1264.2
- 052600 LEV-INIT-GF-1-1. NC1264.2
- 052700 MOVE "VI-21 5.3.3 SR1" TO ANSI-REFERENCE. NC1264.2
- 052800 MOVE "SPACE MOVED TO GRP" TO FEATURE. NC1264.2
- 052900 PERFORM PRINT-DETAIL. NC1264.2
- 053000 MOVE "GROUP ITEM CHECK " TO FEATURE. NC1264.2
- 053100 LEV-TEST-GF-1-0. NC1264.2
- 053200 MOVE SPACE TO TABLE-GROUP. NC1264.2
- 053300 LEV-TEST-GF-1-1. NC1264.2
- 053400 IF TBGRP-1 EQUAL TO SPACE NC1264.2
- 053500 PERFORM PASS NC1264.2
- 053600 GO TO LEV-WRITE-GF-1-1. NC1264.2
- 053700 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
- 053800 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
- 053900 MOVE 94 TO LENGTH-COUNTER. NC1264.2
- 054000 GO TO LEV-WRITE-GF-1-1. NC1264.2
- 054100 LEV-DELETE-GF-1-1. NC1264.2
- 054200 PERFORM DE-LETE. NC1264.2
- 054300 LEV-WRITE-GF-1-1. NC1264.2
- 054400 MOVE "LEV-TEST-GF-1-1" TO PAR-NAME. NC1264.2
- 054500 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
- 054600 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
- 054700 PERFORM PRINT-DETAIL. NC1264.2
- 054800 LEV-TEST-GF-1-2. NC1264.2
- 054900 IF TBGRP-2 EQUAL TO SPACE NC1264.2
- 055000 PERFORM PASS NC1264.2
- 055100 GO TO LEV-WRITE-GF-1-2. NC1264.2
- 055200 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
- 055300 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
- 055400 MOVE 92 TO LENGTH-COUNTER. NC1264.2
- 055500 GO TO LEV-WRITE-GF-1-2. NC1264.2
- 055600 LEV-DELETE-GF-1-2. NC1264.2
- 055700 PERFORM DE-LETE. NC1264.2
- 055800 LEV-WRITE-GF-1-2. NC1264.2
- 055900 MOVE "LEV-TEST-GF-1-2" TO PAR-NAME. NC1264.2
- 056000 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
- 056100 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
- 056200 PERFORM PRINT-DETAIL. NC1264.2
- 056300 LEV-TEST-GF-1-3. NC1264.2
- 056400 IF TBGRP-3 EQUAL TO SPACE NC1264.2
- 056500 PERFORM PASS NC1264.2
- 056600 GO TO LEV-WRITE-GF-1-3. NC1264.2
- 056700 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
- 056800 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
- 056900 MOVE 90 TO LENGTH-COUNTER. NC1264.2
- 057000 GO TO LEV-WRITE-GF-1-3. NC1264.2
- 057100 LEV-DELETE-GF-1-3. NC1264.2
- 057200 PERFORM DE-LETE. NC1264.2
- 057300 LEV-WRITE-GF-1-3. NC1264.2
- 057400 MOVE "LEV-TEST-GF-1-3" TO PAR-NAME. NC1264.2
- 057500 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
- 057600 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
- 057700 PERFORM PRINT-DETAIL. NC1264.2
- 057800 LEV-TEST-GF-1-4. NC1264.2
- 057900 IF TBGRP-4 EQUAL TO SPACE NC1264.2
- 058000 PERFORM PASS NC1264.2
- 058100 GO TO LEV-WRITE-GF-1-4. NC1264.2
- 058200 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
- 058300 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
- 058400 MOVE 88 TO LENGTH-COUNTER. NC1264.2
- 058500 GO TO LEV-WRITE-GF-1-4. NC1264.2
- 058600 LEV-DELETE-GF-1-4. NC1264.2
- 058700 PERFORM DE-LETE. NC1264.2
- 058800 LEV-WRITE-GF-1-4. NC1264.2
- 058900 MOVE "LEV-TEST-GF-1-4" TO PAR-NAME. NC1264.2
- 059000 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
- 059100 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
- 059200 PERFORM PRINT-DETAIL. NC1264.2
- 059300 LEV-TEST-GF-1-5. NC1264.2
- 059400 IF TBGRP-5 EQUAL TO SPACE NC1264.2
- 059500 PERFORM PASS NC1264.2
- 059600 GO TO LEV-WRITE-GF-1-5. NC1264.2
- 059700 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
- 059800 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
- 059900 MOVE 86 TO LENGTH-COUNTER. NC1264.2
- 060000 GO TO LEV-WRITE-GF-1-5. NC1264.2
- 060100 LEV-DELETE-GF-1-5. NC1264.2
- 060200 PERFORM DE-LETE. NC1264.2
- 060300 LEV-WRITE-GF-1-5. NC1264.2
- 060400 MOVE "LEV-TEST-GF-1-5" TO PAR-NAME. NC1264.2
- 060500 IF LENGTH-COUNTER GREATER THAN ZERO NC1264.2
- 060600 PERFORM BREAKDOWN-PARA THRU BREAKDOWN-EXIT. NC1264.2
- 060700 PERFORM PRINT-DETAIL. NC1264.2
- 060800 LEV-TEST-GF-1-6. NC1264.2
- 060900 IF TBGRP-6 EQUAL TO SPACE NC1264.2
- 061000 PERFORM PASS NC1264.2
- 061100 GO TO LEV-WRITE-GF-1-6. NC1264.2
- 061200 MOVE TABLE-GROUP TO COMPUTED-BREAKDOWN. NC1264.2
- 061300 MOVE SPACE TO CORRECT-BREAKDOWN. NC1264.2
- 061400 MOVE 84 TO LENGTH-COUNTER. NC1264.2
- 061500 GO TO LEV-WRITE-GF-1-6. NC1264.2
- 061600 LEV-DELETE-GF-1-6. NC1264.2
- 061700 PERFORM DE-L…