/src/test/resources/gov/nist/NC246A.CBL
https://github.com/uwol/proleap-cobol-parser · COBOL · 1322 lines · 1320 code · 0 blank · 2 comment · 0 complexity · f7e53a52cfacb83e58ec53918135edb4 MD5 · raw file
Large files are truncated click here to view the full file
- *HEADER,COBOL,NC246A
- 000100 IDENTIFICATION DIVISION. NC2464.2
- 000200 PROGRAM-ID. NC2464.2
- 000300 NC246A. NC2464.2
- 000400**************************************************************** NC2464.2
- 000500* * NC2464.2
- 000600* VALIDATION FOR:- * NC2464.2
- 000700* * NC2464.2
- 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2464.2
- 000900* * NC2464.2
- 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2464.2
- 001100* * NC2464.2
- 001200**************************************************************** NC2464.2
- 001300* * NC2464.2
- 001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC2464.2
- 001500* * NC2464.2
- 001600* X-55 - SYSTEM PRINTER NAME. * NC2464.2
- 001700* X-82 - SOURCE COMPUTER NAME. * NC2464.2
- 001800* X-83 - OBJECT COMPUTER NAME. * NC2464.2
- 001900* * NC2464.2
- 002000**************************************************************** NC2464.2
- 002100* * NC2464.2
- 002200* PROGRAM NC246A TESTS THE USE OF QUALIFIED DATA NAMES AND * NC2464.2
- 002300* SUBSCRIPTS WHEN ACCESSING A SEVEN-DIMENSIONAL TABLE. * NC2464.2
- 002400* QUALIFIED CONDITION-NAMES AND RELATIVE INDEXING ARE ALSO * NC2464.2
- 002500* USED IN ACCESSING THREE-DIMENSIONAL TABLES. * NC2464.2
- 002600* * NC2464.2
- 002700**************************************************************** NC2464.2
- 002800* * NC2464.2
- 002900* DATA-NAMES MAY BE QUALIFIED AND THE NUMBER OF QUALIFIERS* NC2464.2
- 003000* PERMITTED MUST BE AT LEAST FIVE. WHEN A SUBSCRIPT IS * NC2464.2
- 003100* REPRESENTED BY A DATA-NAME, THE DATA-NAME MAY BE QUALIFIED* NC2464.2
- 003200* BUT NOT SUBSCRIPTED. * NC2464.2
- 003300* * NC2464.2
- 003400**************************************************************** NC2464.2
- 003500* * NC2464.2
- 003600* STATEMENT DELETION INSTRUCTIONS * NC2464.2
- 003700* * NC2464.2
- 003800* IF THE COMPILER REJECTS ANY OF THE TABLE REFERENCES IN * NC2464.2
- 003900* THIS ROUTINE, DELETE THAT LINE OF CODE BY PLACING AN * IN * NC2464.2
- 004000* COLUMN 7. LEAVE THE PERFORM STATEMENT. THE TEST ELEMENT * NC2464.2
- 004100* DELETED APPEARS AS A FAILURE ON THE OUTPUT REPORT AND THE * NC2464.2
- 004200* COMPUTED RESULTS ARE SPACES. * NC2464.2
- 004300* * NC2464.2
- 004400**************************************************************** NC2464.2
- 004500 ENVIRONMENT DIVISION. NC2464.2
- 004600 CONFIGURATION SECTION. NC2464.2
- 004700 SOURCE-COMPUTER. NC2464.2
- 004800 XXXXX082. NC2464.2
- 004900 OBJECT-COMPUTER. NC2464.2
- 005000 XXXXX083. NC2464.2
- 005100 INPUT-OUTPUT SECTION. NC2464.2
- 005200 FILE-CONTROL. NC2464.2
- 005300 SELECT PRINT-FILE ASSIGN TO NC2464.2
- 005400 XXXXX055. NC2464.2
- 005500 DATA DIVISION. NC2464.2
- 005600 FILE SECTION. NC2464.2
- 005700 FD PRINT-FILE. NC2464.2
- 005800 01 PRINT-REC PICTURE X(120). NC2464.2
- 005900 01 DUMMY-RECORD PICTURE X(120). NC2464.2
- 006000 WORKING-STORAGE SECTION. NC2464.2
- 006100 01 TABLE-A. NC2464.2
- 006200 02 L2 OCCURS 2. NC2464.2
- 006300 03 L3 OCCURS 2. NC2464.2
- 006400 04 L4 OCCURS 2. NC2464.2
- 006500 05 L5 OCCURS 2. NC2464.2
- 006600 06 L6 OCCURS 2. NC2464.2
- 006700 07 L7 OCCURS 2. NC2464.2
- 006800 08 L8 OCCURS 2. NC2464.2
- 006900 09 ELEM1 PIC 99. NC2464.2
- 007000 09 ELEM2 PIC 99. NC2464.2
- 007100 01 TABLE-B. NC2464.2
- 007200 02 L2 OCCURS 2. NC2464.2
- 007300 03 L3 OCCURS 2. NC2464.2
- 007400 04 L4 OCCURS 2. NC2464.2
- 007500 05 L5 OCCURS 2. NC2464.2
- 007600 06 L6 OCCURS 2. NC2464.2
- 007700 07 L7 OCCURS 2. NC2464.2
- 007800 08 L8 OCCURS 2. NC2464.2
- 007900 09 ELEM1 PIC 99. NC2464.2
- 008000 09 ELEM2 PIC 99. NC2464.2
- 008100 01 SUBSCRIPTS-GROUP-1. NC2464.2
- 008200 02 SO2. NC2464.2
- 008300 03 SO3. NC2464.2
- 008400 04 SO4. NC2464.2
- 008500 05 SO5. NC2464.2
- 008600 06 SO6. NC2464.2
- 008700 07 SO7. NC2464.2
- 008800 08 SO8. NC2464.2
- 008900 09 SO9. NC2464.2
- 009000 10 S10. NC2464.2
- 009100 11 S11. NC2464.2
- 009200 12 S12. NC2464.2
- 009300 13 S13. NC2464.2
- 009400 14 S14. NC2464.2
- 009500 15 S15. NC2464.2
- 009600 16 S16. NC2464.2
- 009700 17 S17. NC2464.2
- 009800 18 S18. NC2464.2
- 009900 19 S19. NC2464.2
- 010000 20 S20. NC2464.2
- 010100 21 S21. NC2464.2
- 010200 22 S22. NC2464.2
- 010300 23 S23. NC2464.2
- 010400 24 S24. NC2464.2
- 010500 25 S25. NC2464.2
- 010600 26 S26. NC2464.2
- 010700 27 S27. NC2464.2
- 010800 28 S28. NC2464.2
- 010900 29 S29. NC2464.2
- 011000 30 S30. NC2464.2
- 011100 31 S31. NC2464.2
- 011200 32 S32. NC2464.2
- 011300 33 S33. NC2464.2
- 011400 34 S34. NC2464.2
- 011500 35 S35. NC2464.2
- 011600 36 S36. NC2464.2
- 011700 37 S37. NC2464.2
- 011800 38 S38. NC2464.2
- 011900 39 S39. NC2464.2
- 012000 40 S40. NC2464.2
- 012100 41 S41. NC2464.2
- 012200 42 S42. NC2464.2
- 012300 43 S43. NC2464.2
- 012400 44 S44. NC2464.2
- 012500 45 S45. NC2464.2
- 012600 46 S46. NC2464.2
- 012700 47 S47. NC2464.2
- 012800 48 S48. NC2464.2
- 012900 49 SUB1 PIC 9 NC2464.2
- 013000 VALUE 1. NC2464.2
- 013100 49 SUB2 PIC 9 NC2464.2
- 013200 VALUE 1. NC2464.2
- 013300 49 SUB3 PIC 9 NC2464.2
- 013400 VALUE 1. NC2464.2
- 013500 49 SUB4 PIC 9 NC2464.2
- 013600 VALUE 1. NC2464.2
- 013700 49 SUB5 PIC 9 NC2464.2
- 013800 VALUE 1. NC2464.2
- 013900 49 SUB6 PIC 9 NC2464.2
- 014000 VALUE 1. NC2464.2
- 014100 49 SUB7 PIC 9 NC2464.2
- 014200 VALUE 1. NC2464.2
- 014300 01 SUBSCRIPTS-GROUP-2. NC2464.2
- 014400 02 SO2. NC2464.2
- 014500 03 SO3. NC2464.2
- 014600 04 SO4. NC2464.2
- 014700 05 SO5. NC2464.2
- 014800 06 SO6. NC2464.2
- 014900 07 SO7. NC2464.2
- 015000 08 SO8. NC2464.2
- 015100 09 SO9. NC2464.2
- 015200 10 S10. NC2464.2
- 015300 11 S11. NC2464.2
- 015400 12 S12. NC2464.2
- 015500 13 S13. NC2464.2
- 015600 14 S14. NC2464.2
- 015700 15 S15. NC2464.2
- 015800 16 S16. NC2464.2
- 015900 17 S17. NC2464.2
- 016000 18 S18. NC2464.2
- 016100 19 S19. NC2464.2
- 016200 20 S20. NC2464.2
- 016300 21 S21. NC2464.2
- 016400 22 S22. NC2464.2
- 016500 23 S23. NC2464.2
- 016600 24 S24. NC2464.2
- 016700 25 S25. NC2464.2
- 016800 26 S26. NC2464.2
- 016900 27 S27. NC2464.2
- 017000 28 S28. NC2464.2
- 017100 29 S29. NC2464.2
- 017200 30 S30. NC2464.2
- 017300 31 S31. NC2464.2
- 017400 32 S32. NC2464.2
- 017500 33 S33. NC2464.2
- 017600 34 S34. NC2464.2
- 017700 35 S35. NC2464.2
- 017800 36 S36. NC2464.2
- 017900 37 S37. NC2464.2
- 018000 38 S38. NC2464.2
- 018100 39 S39. NC2464.2
- 018200 40 S40. NC2464.2
- 018300 41 S41. NC2464.2
- 018400 42 S42. NC2464.2
- 018500 43 S43. NC2464.2
- 018600 44 S44. NC2464.2
- 018700 45 S45. NC2464.2
- 018800 46 S46. NC2464.2
- 018900 47 S47. NC2464.2
- 019000 48 S48. NC2464.2
- 019100 49 SUB1 PIC 9 NC2464.2
- 019200 VALUE 2. NC2464.2
- 019300 49 SUB2 PIC 9 NC2464.2
- 019400 VALUE 2. NC2464.2
- 019500 49 SUB3 PIC 9 NC2464.2
- 019600 VALUE 2. NC2464.2
- 019700 49 SUB4 PIC 9 NC2464.2
- 019800 VALUE 2. NC2464.2
- 019900 49 SUB5 PIC 9 NC2464.2
- 020000 VALUE 2. NC2464.2
- 020100 49 SUB6 PIC 9 NC2464.2
- 020200 VALUE 2. NC2464.2
- 020300 49 SUB7 PIC 9 NC2464.2
- 020400 VALUE 2. NC2464.2
- 020500 01 COMPARISON-VALUES. NC2464.2
- 020600 02 EXPECTED-VALUE PICTURE X(6). NC2464.2
- 020700 02 TEMP-VALUE PICTURE X(6). NC2464.2
- 020800 01 GROUP-1-TABLE. NC2464.2
- 020900 02 TABLE-LEVEL-2. NC2464.2
- 021000 03 FILLER PIC X(13) VALUE "GROUP-1-TABLE". NC2464.2
- 021100 03 TABLE-LEVEL-3. NC2464.2
- 021200 04 FILLER PIC X VALUE SPACE. NC2464.2
- 021300 04 TABLE-LEVEL-4. NC2464.2
- 021400 05 FILLER PIC X VALUE "=". NC2464.2
- 021500 05 TABLE-LEVEL-5. NC2464.2
- 021600 06 FILLER PIC X VALUE SPACE. NC2464.2
- 021700 06 TABLE-ITEM PICTURE X NC2464.2
- 021800 OCCURS 15 TIMES NC2464.2
- 021900 INDEXED BY IN1. NC2464.2
- 022000 88 EQUALS-A VALUE "A". NC2464.2
- 022100 88 EQUALS-C VALUE "C". NC2464.2
- 022200 88 EQUALS-M VALUE "M". NC2464.2
- 022300 05 GROUP-1-ENTRY REDEFINES TABLE-LEVEL-5. NC2464.2
- 022400 06 FILLER PIC X(16). NC2464.2
- 022500 01 GROUP-2-TABLE. NC2464.2
- 022600 02 TABLE-LEVEL-2. NC2464.2
- 022700 03 FILLER PIC X(13) VALUE "GROUP-2-TABLE". NC2464.2
- 022800 03 TABLE-LEVEL-3. NC2464.2
- 022900 04 FILLER PIC X VALUE SPACE. NC2464.2
- 023000 04 TABLE-LEVEL-4. NC2464.2
- 023100 05 FILLER PIC X VALUE "=". NC2464.2
- 023200 05 TABLE-LEVEL-5. NC2464.2
- 023300 06 FILLER PIC X VALUE SPACE. NC2464.2
- 023400 06 TABLE-ITEM PICTURE X NC2464.2
- 023500 OCCURS 12 TIMES NC2464.2
- 023600 INDEXED BY IN2. NC2464.2
- 023700 88 EQUALS-A VALUE "A". NC2464.2
- 023800 88 EQUALS-C VALUE "C". NC2464.2
- 023900 88 EQUALS-M VALUE "M". NC2464.2
- 024000 05 GROUP-2-ENTRY REDEFINES TABLE-LEVEL-5. NC2464.2
- 024100 06 FILLER PIC X(13). NC2464.2
- 024200 01 GROUP-3-TABLE. NC2464.2
- 024300 02 TABLE-LEVEL-2. NC2464.2
- 024400 03 FILLER PIC X(15) VALUE "GROUP-3-TABLE =". NC2464.2
- 024500 03 TABLE-LEVEL-3. NC2464.2
- 024600 04 TABLE-LEVEL-4 NC2464.2
- 024700 OCCURS 2 TIMES NC2464.2
- 024800 INDEXED BY IN3. NC2464.2
- 024900 05 TABLE-LEVEL-5 NC2464.2
- 025000 OCCURS 2 TIMES NC2464.2
- 025100 INDEXED BY IN4. NC2464.2
- 025200 06 TABLE-ITEM PICTURE X NC2464.2
- 025300 OCCURS 4 TIMES NC2464.2
- 025400 INDEXED BY IN5. NC2464.2
- 025500 88 EQUALS-A VALUE "A". NC2464.2
- 025600 88 EQUALS-C VALUE "C". NC2464.2
- 025700 88 EQUALS-M VALUE "M". NC2464.2
- 025800 03 GROUP-3-ENTRY REDEFINES TABLE-LEVEL-3. NC2464.2
- 025900 06 FILLER PIC X(16). NC2464.2
- 026000 01 GROUP-4-TABLE. NC2464.2
- 026100 02 UNQUAL-TABLE-2. NC2464.2
- 026200 03 UNQUAL-TABLE-3. NC2464.2
- 026300 04 UNQUAL-TABLE-4. NC2464.2
- 026400 05 FILLER PIC X(15) VALUE "GROUP-4-TABLE =". NC2464.2
- 026500 05 UNQUAL-TABLE-5. NC2464.2
- 026600 06 UNQUAL-ITEM PIC X NC2464.2
- 026700 OCCURS 15 TIMES. NC2464.2
- 026800 01 GROUP-5-TABLE. NC2464.2
- 026900 02 TABLE5-LEVEL-2. NC2464.2
- 027000 03 FILLER PIC X(15) VALUE "GROUP-5-TABLE =". NC2464.2
- 027100 03 TABLE5-LEVEL-3. NC2464.2
- 027200 04 TABLE5-LEVEL-4 OCCURS 2 TIMES. NC2464.2
- 027300 05 TABLE5-LEVEL-5 OCCURS 2 TIMES. NC2464.2
- 027400 06 TABLE5-ITEM-UNQUAL PIC X NC2464.2
- 027500 OCCURS 4 TIMES. NC2464.2
- 027600 01 FIRST-SUB PIC 99 VALUE 1. NC2464.2
- 027700 01 FOURTH-SUB PIC 99 VALUE 4. NC2464.2
- 027800 01 UNQUAL-SUB PIC 99. NC2464.2
- 027900 01 SUBSCRIPTS-PART1. NC2464.2
- 028000 02 SUBSCRIPTS. NC2464.2
- 028100 03 SUB1 PIC 9 VALUE 5. NC2464.2
- 028200 03 SUB2 PIC 99 VALUE 12. NC2464.2
- 028300 03 SUB3 PIC 999 USAGE COMP VALUE 1. NC2464.2
- 028400 02 SOME-MORE-SUBSCRIPTS. NC2464.2
- 028500 03 SUB1 PIC 9 USAGE COMP VALUE 3. NC2464.2
- 028600 03 SUB2 PIC 99 USAGE COMP VALUE 7. NC2464.2
- 028700 03 SUB3 PIC 999 VALUE 15. NC2464.2
- 028800 01 SUBSCRIPTS-PART2. NC2464.2
- 028900 02 SUB-PART2-LEVEL2. NC2464.2
- 029000 03 SUB-PART2-LEVEL3. NC2464.2
- 029100 04 SUB-PART2-LEVEL4. NC2464.2
- 029200 05 SUBSCRIPTS. NC2464.2
- 029300 06 SUB1 PIC 999 VALUE 5. NC2464.2
- 029400 06 SUB2 PIC 99 VALUE 12. NC2464.2
- 029500 06 SUB3 PIC 99 USAGE COMP VALUE 1. NC2464.2
- 029600 03 SOME-MORE-SUBSCRIPTS. NC2464.2
- 029700 04 SUB1 PIC 999 USAGE COMP VALUE 3. NC2464.2
- 029800 04 SUB2 PIC 99 VALUE 7. NC2464.2
- 029900 04 SUB3 PIC 99 USAGE COMP VALUE 15. NC2464.2
- 030000 01 TEST-RESULTS. NC2464.2
- 030100 02 FILLER PIC X VALUE SPACE. NC2464.2
- 030200 02 FEATURE PIC X(20) VALUE SPACE. NC2464.2
- 030300 02 FILLER PIC X VALUE SPACE. NC2464.2
- 030400 02 P-OR-F PIC X(5) VALUE SPACE. NC2464.2
- 030500 02 FILLER PIC X VALUE SPACE. NC2464.2
- 030600 02 PAR-NAME. NC2464.2
- 030700 03 FILLER PIC X(19) VALUE SPACE. NC2464.2
- 030800 03 PARDOT-X PIC X VALUE SPACE. NC2464.2
- 030900 03 DOTVALUE PIC 99 VALUE ZERO. NC2464.2
- 031000 02 FILLER PIC X(8) VALUE SPACE. NC2464.2
- 031100 02 RE-MARK PIC X(61). NC2464.2
- 031200 01 TEST-COMPUTED. NC2464.2
- 031300 02 FILLER PIC X(30) VALUE SPACE. NC2464.2
- 031400 02 FILLER PIC X(17) VALUE NC2464.2
- 031500 " COMPUTED=". NC2464.2
- 031600 02 COMPUTED-X. NC2464.2
- 031700 03 COMPUTED-A PIC X(20) VALUE SPACE. NC2464.2
- 031800 03 COMPUTED-N REDEFINES COMPUTED-A NC2464.2
- 031900 PIC -9(9).9(9). NC2464.2
- 032000 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC2464.2
- 032100 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). NC2464.2
- 032200 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC2464.2
- 032300 03 CM-18V0 REDEFINES COMPUTED-A. NC2464.2
- 032400 04 COMPUTED-18V0 PIC -9(18). NC2464.2
- 032500 04 FILLER PIC X. NC2464.2
- 032600 03 FILLER PIC X(50) VALUE SPACE. NC2464.2
- 032700 01 TEST-CORRECT. NC2464.2
- 032800 02 FILLER PIC X(30) VALUE SPACE. NC2464.2
- 032900 02 FILLER PIC X(17) VALUE " CORRECT =". NC2464.2
- 033000 02 CORRECT-X. NC2464.2
- 033100 03 CORRECT-A PIC X(20) VALUE SPACE. NC2464.2
- 033200 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). NC2464.2
- 033300 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). NC2464.2
- 033400 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC2464.2
- 033500 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). NC2464.2
- 033600 03 CR-18V0 REDEFINES CORRECT-A. NC2464.2
- 033700 04 CORRECT-18V0 PIC -9(18). NC2464.2
- 033800 04 FILLER PIC X. NC2464.2
- 033900 03 FILLER PIC X(2) VALUE SPACE. NC2464.2
- 034000 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC2464.2
- 034100 01 CCVS-C-1. NC2464.2
- 034200 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC2464.2
- 034300- "SS PARAGRAPH-NAME NC2464.2
- 034400- " REMARKS". NC2464.2
- 034500 02 FILLER PIC X(20) VALUE SPACE. NC2464.2
- 034600 01 CCVS-C-2. NC2464.2
- 034700 02 FILLER PIC X VALUE SPACE. NC2464.2
- 034800 02 FILLER PIC X(6) VALUE "TESTED". NC2464.2
- 034900 02 FILLER PIC X(15) VALUE SPACE. NC2464.2
- 035000 02 FILLER PIC X(4) VALUE "FAIL". NC2464.2
- 035100 02 FILLER PIC X(94) VALUE SPACE. NC2464.2
- 035200 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC2464.2
- 035300 01 REC-CT PIC 99 VALUE ZERO. NC2464.2
- 035400 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC2464.2
- 035500 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC2464.2
- 035600 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC2464.2
- 035700 01 PASS-COUNTER PIC 999 VALUE ZERO. NC2464.2
- 035800 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC2464.2
- 035900 01 ERROR-HOLD PIC 999 VALUE ZERO. NC2464.2
- 036000 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC2464.2
- 036100 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC2464.2
- 036200 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC2464.2
- 036300 01 CCVS-H-1. NC2464.2
- 036400 02 FILLER PIC X(39) VALUE SPACES. NC2464.2
- 036500 02 FILLER PIC X(42) VALUE NC2464.2
- 036600 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2464.2
- 036700 02 FILLER PIC X(39) VALUE SPACES. NC2464.2
- 036800 01 CCVS-H-2A. NC2464.2
- 036900 02 FILLER PIC X(40) VALUE SPACE. NC2464.2
- 037000 02 FILLER PIC X(7) VALUE "CCVS85 ". NC2464.2
- 037100 02 FILLER PIC XXXX VALUE NC2464.2
- 037200 "4.2 ". NC2464.2
- 037300 02 FILLER PIC X(28) VALUE NC2464.2
- 037400 " COPY - NOT FOR DISTRIBUTION". NC2464.2
- 037500 02 FILLER PIC X(41) VALUE SPACE. NC2464.2
- 037600 NC2464.2
- 037700 01 CCVS-H-2B. NC2464.2
- 037800 02 FILLER PIC X(15) VALUE NC2464.2
- 037900 "TEST RESULT OF ". NC2464.2
- 038000 02 TEST-ID PIC X(9). NC2464.2
- 038100 02 FILLER PIC X(4) VALUE NC2464.2
- 038200 " IN ". NC2464.2
- 038300 02 FILLER PIC X(12) VALUE NC2464.2
- 038400 " HIGH ". NC2464.2
- 038500 02 FILLER PIC X(22) VALUE NC2464.2
- 038600 " LEVEL VALIDATION FOR ". NC2464.2
- 038700 02 FILLER PIC X(58) VALUE NC2464.2
- 038800 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2464.2
- 038900 01 CCVS-H-3. NC2464.2
- 039000 02 FILLER PIC X(34) VALUE NC2464.2
- 039100 " FOR OFFICIAL USE ONLY ". NC2464.2
- 039200 02 FILLER PIC X(58) VALUE NC2464.2
- 039300 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2464.2
- 039400 02 FILLER PIC X(28) VALUE NC2464.2
- 039500 " COPYRIGHT 1985 ". NC2464.2
- 039600 01 CCVS-E-1. NC2464.2
- 039700 02 FILLER PIC X(52) VALUE SPACE. NC2464.2
- 039800 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC2464.2
- 039900 02 ID-AGAIN PIC X(9). NC2464.2
- 040000 02 FILLER PIC X(45) VALUE SPACES. NC2464.2
- 040100 01 CCVS-E-2. NC2464.2
- 040200 02 FILLER PIC X(31) VALUE SPACE. NC2464.2
- 040300 02 FILLER PIC X(21) VALUE SPACE. NC2464.2
- 040400 02 CCVS-E-2-2. NC2464.2
- 040500 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC2464.2
- 040600 03 FILLER PIC X VALUE SPACE. NC2464.2
- 040700 03 ENDER-DESC PIC X(44) VALUE NC2464.2
- 040800 "ERRORS ENCOUNTERED". NC2464.2
- 040900 01 CCVS-E-3. NC2464.2
- 041000 02 FILLER PIC X(22) VALUE NC2464.2
- 041100 " FOR OFFICIAL USE ONLY". NC2464.2
- 041200 02 FILLER PIC X(12) VALUE SPACE. NC2464.2
- 041300 02 FILLER PIC X(58) VALUE NC2464.2
- 041400 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2464.2
- 041500 02 FILLER PIC X(13) VALUE SPACE. NC2464.2
- 041600 02 FILLER PIC X(15) VALUE NC2464.2
- 041700 " COPYRIGHT 1985". NC2464.2
- 041800 01 CCVS-E-4. NC2464.2
- 041900 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC2464.2
- 042000 02 FILLER PIC X(4) VALUE " OF ". NC2464.2
- 042100 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC2464.2
- 042200 02 FILLER PIC X(40) VALUE NC2464.2
- 042300 " TESTS WERE EXECUTED SUCCESSFULLY". NC2464.2
- 042400 01 XXINFO. NC2464.2
- 042500 02 FILLER PIC X(19) VALUE NC2464.2
- 042600 "*** INFORMATION ***". NC2464.2
- 042700 02 INFO-TEXT. NC2464.2
- 042800 04 FILLER PIC X(8) VALUE SPACE. NC2464.2
- 042900 04 XXCOMPUTED PIC X(20). NC2464.2
- 043000 04 FILLER PIC X(5) VALUE SPACE. NC2464.2
- 043100 04 XXCORRECT PIC X(20). NC2464.2
- 043200 02 INF-ANSI-REFERENCE PIC X(48). NC2464.2
- 043300 01 HYPHEN-LINE. NC2464.2
- 043400 02 FILLER PIC IS X VALUE IS SPACE. NC2464.2
- 043500 02 FILLER PIC IS X(65) VALUE IS "************************NC2464.2
- 043600- "*****************************************". NC2464.2
- 043700 02 FILLER PIC IS X(54) VALUE IS "************************NC2464.2
- 043800- "******************************". NC2464.2
- 043900 01 CCVS-PGM-ID PIC X(9) VALUE NC2464.2
- 044000 "NC246A". NC2464.2
- 044100 PROCEDURE DIVISION. NC2464.2
- 044200 CCVS1 SECTION. NC2464.2
- 044300 OPEN-FILES. NC2464.2
- 044400 OPEN OUTPUT PRINT-FILE. NC2464.2
- 044500 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC2464.2
- 044600 MOVE SPACE TO TEST-RESULTS. NC2464.2
- 044700 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC2464.2
- 044800 GO TO CCVS1-EXIT. NC2464.2
- 044900 CLOSE-FILES. NC2464.2
- 045000 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC2464.2
- 045100 TERMINATE-CCVS. NC2464.2
- 045200* EXIT PROGRAM. NC2464.2
- 045300*TERMINATE-CALL. NC2464.2
- 045400 STOP RUN. NC2464.2
- 045500 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC2464.2
- 045600 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC2464.2
- 045700 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC2464.2
- 045800 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC2464.2
- 045900 MOVE "****TEST DELETED****" TO RE-MARK. NC2464.2
- 046000 PRINT-DETAIL. NC2464.2
- 046100 IF REC-CT NOT EQUAL TO ZERO NC2464.2
- 046200 MOVE "." TO PARDOT-X NC2464.2
- 046300 MOVE REC-CT TO DOTVALUE. NC2464.2
- 046400 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC2464.2
- 046500 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC2464.2
- 046600 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC2464.2
- 046700 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC2464.2
- 046800 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC2464.2
- 046900 MOVE SPACE TO CORRECT-X. NC2464.2
- 047000 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC2464.2
- 047100 MOVE SPACE TO RE-MARK. NC2464.2
- 047200 HEAD-ROUTINE. NC2464.2
- 047300 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2464.2
- 047400 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2464.2
- 047500 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2464.2
- 047600 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2464.2
- 047700 COLUMN-NAMES-ROUTINE. NC2464.2
- 047800 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2464.2
- 047900 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2464.2
- 048000 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2464.2
- 048100 END-ROUTINE. NC2464.2
- 048200 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2464.2
- 048300 END-RTN-EXIT. NC2464.2
- 048400 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2464.2
- 048500 END-ROUTINE-1. NC2464.2
- 048600 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC2464.2
- 048700 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC2464.2
- 048800 ADD PASS-COUNTER TO ERROR-HOLD. NC2464.2
- 048900* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC2464.2
- 049000 MOVE PASS-COUNTER TO CCVS-E-4-1. NC2464.2
- 049100 MOVE ERROR-HOLD TO CCVS-E-4-2. NC2464.2
- 049200 MOVE CCVS-E-4 TO CCVS-E-2-2. NC2464.2
- 049300 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC2464.2
- 049400 END-ROUTINE-12. NC2464.2
- 049500 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC2464.2
- 049600 IF ERROR-COUNTER IS EQUAL TO ZERO NC2464.2
- 049700 MOVE "NO " TO ERROR-TOTAL NC2464.2
- 049800 ELSE NC2464.2
- 049900 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC2464.2
- 050000 MOVE CCVS-E-2 TO DUMMY-RECORD. NC2464.2
- 050100 PERFORM WRITE-LINE. NC2464.2
- 050200 END-ROUTINE-13. NC2464.2
- 050300 IF DELETE-COUNTER IS EQUAL TO ZERO NC2464.2
- 050400 MOVE "NO " TO ERROR-TOTAL ELSE NC2464.2
- 050500 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC2464.2
- 050600 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC2464.2
- 050700 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2464.2
- 050800 IF INSPECT-COUNTER EQUAL TO ZERO NC2464.2
- 050900 MOVE "NO " TO ERROR-TOTAL NC2464.2
- 051000 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC2464.2
- 051100 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC2464.2
- 051200 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2464.2
- 051300 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2464.2
- 051400 WRITE-LINE. NC2464.2
- 051500 ADD 1 TO RECORD-COUNT. NC2464.2
- 051600* IF RECORD-COUNT GREATER 50 NC2464.2
- 051700* MOVE DUMMY-RECORD TO DUMMY-HOLD NC2464.2
- 051800* MOVE SPACE TO DUMMY-RECORD NC2464.2
- 051900* WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC2464.2
- 052000* MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC2464.2
- 052100* MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC2464.2
- 052200* MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC2464.2
- 052300* MOVE DUMMY-HOLD TO DUMMY-RECORD NC2464.2
- 052400* MOVE ZERO TO RECORD-COUNT. NC2464.2
- 052500 PERFORM WRT-LN. NC2464.2
- 052600 WRT-LN. NC2464.2
- 052700 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC2464.2
- 052800 MOVE SPACE TO DUMMY-RECORD. NC2464.2
- 052900 BLANK-LINE-PRINT. NC2464.2
- 053000 PERFORM WRT-LN. NC2464.2
- 053100 FAIL-ROUTINE. NC2464.2
- 053200 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2464.2
- 053300 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2464.2
- 053400 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2464.2
- 053500 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC2464.2
- 053600 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2464.2
- 053700 MOVE SPACES TO INF-ANSI-REFERENCE. NC2464.2
- 053800 GO TO FAIL-ROUTINE-EX. NC2464.2
- 053900 FAIL-ROUTINE-WRITE. NC2464.2
- 054000 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC2464.2
- 054100 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC2464.2
- 054200 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2464.2
- 054300 MOVE SPACES TO COR-ANSI-REFERENCE. NC2464.2
- 054400 FAIL-ROUTINE-EX. EXIT. NC2464.2
- 054500 BAIL-OUT. NC2464.2
- 054600 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC2464.2
- 054700 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC2464.2
- 054800 BAIL-OUT-WRITE. NC2464.2
- 054900 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC2464.2
- 055000 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2464.2
- 055100 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2464.2
- 055200 MOVE SPACES TO INF-ANSI-REFERENCE. NC2464.2
- 055300 BAIL-OUT-EX. EXIT. NC2464.2
- 055400 CCVS1-EXIT. NC2464.2
- 055500 EXIT. NC2464.2
- 055600 SECT-NC246A-001 SECTION. NC2464.2
- 055700* NC2464.2
- 055800 TABLE-INIT. NC2464.2
- 055900 MOVE "INIT-TABLE" TO PAR-NAME. NC2464.2
- 056000 MOVE "STORE TABLE VALUES" TO FEATURE. NC2464.2
- 056100* NC2464.2
- 056200* THIS SECTION STORES THE LETTERS OF THE ALPHABET IN THE NC2464.2
- 056300* THREE TABLES WHOSE ITEMS ARE REFERENCED IN THE QUALIFICATION NC2464.2
- 056400* TESTS IN THIS ROUTINE. THE TABLE CONTENTS ARE AS FOLLOWS NC2464.2
- 056500* GROUP-1-TABLE A,B,...,O. NC2464.2
- 056600* GROUP-2-TABLE L,K,J,...,B,A. NC2464.2
- 056700* GROUP-3-TABLE A,B,...,O,P. NC2464.2
- 056800* GROUP-4-TABLE A,B,...,O. NC2464.2
- 056900* GROUP-5-TABLE P,O,N,...,B,A. NC2464.2
- 057000* THE TABLES ARE ALSO PRINTED ON THE OUTPUT REPORT. NC2464.2
- 057100* NC2464.2
- 057200 MOVE " ABCDEFGHIJKLMNO" TO GROUP-1-ENTRY. NC2464.2
- 057300 MOVE " LKJIHGFEDCBA" TO GROUP-2-ENTRY. NC2464.2
- 057400 MOVE "ABCDEFGHIJKLMNOP" TO GROUP-3-ENTRY. NC2464.2
- 057500 MOVE "ABCDEFGHIJKLMNO" TO UNQUAL-TABLE-5. NC2464.2
- 057600 MOVE "PONMLKJIHGFEDCBA" TO TABLE5-LEVEL-3. NC2464.2
- 057700* NC2464.2
- 057800 TABLE-PRINT. NC2464.2
- 057900 MOVE GROUP-1-TABLE TO RE-MARK. NC2464.2
- 058000 MOVE "SEE REMARKS" TO COMPUTED-A. NC2464.2
- 058100 MOVE "ABCDEFGHIJKLMNO" TO CORRECT-A. NC2464.2
- 058200 MOVE 1 TO REC-CT. NC2464.2
- 058300 PERFORM PRINT-DETAIL. NC2464.2
- 058400 MOVE GROUP-2-TABLE TO RE-MARK. NC2464.2
- 058500 MOVE "LKJIHGFEDCBA" TO CORRECT-A. NC2464.2
- 058600 MOVE "SEE REMARKS" TO COMPUTED-A. NC2464.2
- 058700 MOVE 2 TO REC-CT. NC2464.2
- 058800 PERFORM PRINT-DETAIL. NC2464.2
- 058900 MOVE GROUP-3-TABLE TO RE-MARK. NC2464.2
- 059000 MOVE "ABCDEFGHIJKLMNOP" TO CORRECT-A. NC2464.2
- 059100 MOVE 3 TO REC-CT. NC2464.2
- 059200 MOVE "SEE REMARKS" TO COMPUTED-A. NC2464.2
- 059300 PERFORM PRINT-DETAIL. NC2464.2
- 059400 MOVE GROUP-4-TABLE TO RE-MARK. NC2464.2
- 059500 MOVE "ABCDEFGHIJKLMNO" TO CORRECT-A. NC2464.2
- 059600 MOVE "SEE REMARKS" TO COMPUTED-A. NC2464.2
- 059700 MOVE 4 TO REC-CT. NC2464.2
- 059800 PERFORM PRINT-DETAIL. NC2464.2
- 059900 MOVE GROUP-5-TABLE TO RE-MARK. NC2464.2
- 060000 MOVE "PONMLKJIHGFEDCBA" TO CORRECT-A. NC2464.2
- 060100 MOVE "SEE REMARKS" TO COMPUTED-A. NC2464.2
- 060200 MOVE 5 TO REC-CT. NC2464.2
- 060300 PERFORM PRINT-DETAIL. NC2464.2
- 060400* NC2464.2
- 060500 QUAL-TEST-01. NC2464.2
- 060600 MOVE ZERO TO REC-CT. NC2464.2
- 060700 MOVE SPACE TO TEMP-VALUE. NC2464.2
- 060800 MOVE "QUAL-TEST-01" TO PAR-NAME. NC2464.2
- 060900 MOVE "QUALIFIED TABLE ITEM" TO FEATURE. NC2464.2
- 061000 MOVE "ONE DIMENSIONAL TABLE" TO RE-MARK. NC2464.2
- 061100 MOVE "A" TO EXPECTED-VALUE. NC2464.2
- 061200* NC2464.2
- 061300* THIS TEST CONTAINS QUALIFIED DATA NAMES IN MOVE NC2464.2
- 061400* STATEMENTS. THE DATA NAMES REFER TO SINGLE DIMENSIONAL NC2464.2
- 061500* TABLE ITEMS. THE SUBSCRIPTS IN THIS TEST ARE CONSTANTS, NC2464.2
- 061600* UNQUALIFIED DATA NAMES AND INDEXES. BOTH DIRECT AND RELATIVENC2464.2
- 061700* INDEXING ARE…