/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
- *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 USED. NC2464.2
- 061800* NC2464.2
- 061900 QUAL-TEST-01-01. NC2464.2
- 062000 MOVE TABLE-ITEM OF TABLE-LEVEL-5 OF TABLE-LEVEL-4 NC2464.2
- 062100 OF TABLE-LEVEL-3 OF TABLE-LEVEL-2 NC2464.2
- 062200 OF GROUP-1-TABLE (1) TO TEMP-VALUE. NC2464.2
- 062300 PERFORM SECT-TH220-0003. NC2464.2
- 062400* NC2464.2
- 062500 QUAL-TEST-01-02. NC2464.2
- 062600 MOVE TABLE-ITEM OF TABLE-LEVEL-5 OF TABLE-LEVEL-4 NC2464.2
- 062700 OF TABLE-LEVEL-3 OF TABLE-LEVEL-2 NC2464.2
- 062800 OF GROUP-1-TABLE (FIRST-SUB) TO TEMP-VALUE. NC2464.2
- 062900 PERFORM SECT-TH220-0003. NC2464.2
- 063000* NC2464.2
- 063100 QUAL-TEST-01-03. NC2464.2
- 063200 SET IN1 TO 1. NC2464.2
- 063300 MOVE TABLE-ITEM OF TABLE-LEVEL-5 OF TABLE-LEVEL-4 NC2464.2
- 063400 OF TABLE-LEVEL-3 OF TABLE-LEVEL-2 NC2464.2
- 063500 OF GROUP-1-TABLE (IN1) TO TEMP-VALUE. NC2464.2
- 063600 PERFORM SECT-TH220-0003. NC2464.2
- 063700* NC2464.2
- 063800 QUAL-TEST-01-04. NC2464.2
- 063900 MOVE TABLE-ITEM OF TABLE-LEVEL-5 OF TABLE-LEVEL-4 NC2464.2
- 064000 OF TABLE-LEVEL-3 OF TABLE-LEVEL-2 NC2464.2
- 064100 OF GROUP-2-TABLE (12) TO TEMP-VALUE. NC2464.2
- 064200 PERFORM SECT-TH220-0003. NC2464.2
- 064300* NC2464.2
- 064400 QUAL-TEST-01-05. NC2464.2
- 064500 SET IN1 TO 1. NC2464.2
- 064600 MOVE "D" TO EXPECTED-VALUE. NC2464.2
- 064700 MOVE TABLE-ITEM OF TABLE-LEVEL-5 OF TABLE-LEVEL-4 NC2464.2
- 064800 OF TABLE-LEVEL-3 OF TABLE-LEVEL-2 NC2464.2
- 064900 OF GROUP-1-TABLE (IN1 + 3) TO TEMP-VALUE. NC2464.2
- 065000 PERFORM SECT-TH220-0003. NC2464.2
- 065100* NC2464.2
- 065200 QUAL-TEST-01-06. NC2464.2
- 065300 SET IN1 TO 6. NC2464.2
- 065400 MOVE TABLE-ITEM OF TABLE-LEVEL-5 OF TABLE-LEVEL-4 NC2464.2
- 065500 OF TABLE-LEVEL-3 OF TABLE-LEVEL-2 NC2464.2
- 065600 OF GROUP-1-TABLE (IN1 - 2) TO TEMP-VALUE. NC2464.2
- 065700 PERFORM SECT-TH220-0003. NC2464.2
- 065800* NC2464.2
- 065900 QUAL-TEST-01-07. NC2464.2
- 066000 MOVE 9 TO UNQUAL-SUB. NC2464.2
- 066100 MOVE TABLE-ITEM OF TABLE-LEVEL-5 OF TABLE-LEVEL-4 NC2464.2
- 066200 OF TABLE-LEVEL-3 OF TABLE-LEVEL-2 NC2464.2
- 066300 OF GROUP-2-TABLE (UNQUAL-SUB) TO TEMP-VALUE. NC2464.2
- 066400 PERFORM SECT-TH220-0003. NC2464.2
- 066500 GO TO QUAL-TEST-02. NC2464.2
- 066600* NC2464.2
- 066700 QUAL-DELETE-001. NC2464.2
- 066800 PERFORM DE-LETE. NC2464.2
- 066900 PERFORM PRINT-DETAIL. NC2464.2
- 067000* NC2464.2
- 067100 QUAL-TEST-02. NC2464.2
- 067200 MOVE ZERO TO REC-CT. NC2464.2
- 067300 MOVE "QUAL-TEST-02" TO PAR-NAME. NC2464.2
- 067400 MOVE "TRUE" TO EXPECTED-VALUE. NC2464.2
- 067500* NC2464.2
- 067600* THIS TEST CONTAINS TWO QUALIFIED DATA NAMES IN IF NC2464.2
- 067700* STATEMENTS. THE DATA NAMES REFER TO SINGLE DIMENSIONAL NC2464.2
- 067800* TABLE ITEMS. THE SUBSCRIPTS IN THIS TEST ARE CONSTANTS, NC2464.2
- 067900* UNQUALIFIED DATA NAMES AND INDEXES. BOTH DIRECT AND RELATIVENC2464.2
- 068000* INDEXING ARE USED. NC2464.2
- 068100* NC2464.2
- 068200 QUAL-TEST-02-01. NC2464.2
- 068300 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 068400 IF TABLE-ITEM IN TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 068500 IN TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 068600 IN GROUP-1-TABLE (1) IS EQUAL TO NC2464.2
- 068700 TABLE-ITEM IN TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 068800 IN TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 068900 IN GROUP-2-TABLE (12) NC2464.2
- 069000 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 069100 PERFORM SECT-TH220-0003. NC2464.2
- 069200* NC2464.2
- 069300 QUAL-TEST-02-02. NC2464.2
- 069400 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 069500 IF TABLE-ITEM IN TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 069600 IN TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 069700 IN GROUP-1-TABLE (FIRST-SUB) IS NOT EQUAL TO NC2464.2
- 069800 TABLE-ITEM IN TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 069900 IN TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 070000 IN GROUP-2-TABLE (FIRST-SUB) NC2464.2
- 070100 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 070200 PERFORM SECT-TH220-0003. NC2464.2
- 070300* NC2464.2
- 070400 QUAL-TEST-02-03. NC2464.2
- 070500 SET IN1 TO 4. NC2464.2
- 070600 SET IN2 TO 9. NC2464.2
- 070700 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 070800 IF TABLE-ITEM IN TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 070900 IN TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 071000 IN GROUP-1-TABLE (IN1) IS EQUAL TO NC2464.2
- 071100 TABLE-ITEM IN TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 071200 IN TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 071300 IN GROUP-2-TABLE (IN2) NC2464.2
- 071400 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 071500 PERFORM SECT-TH220-0003. NC2464.2
- 071600* NC2464.2
- 071700 QUAL-TEST-02-04. NC2464.2
- 071800 SET IN1 IN2 TO 5. NC2464.2
- 071900 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 072000 IF TABLE-ITEM IN TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 072100 IN TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 072200 IN GROUP-1-TABLE (IN1 - 1) EQUAL TO NC2464.2
- 072300 TABLE-ITEM IN TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 072400 IN TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 072500 IN GROUP-2-TABLE (IN2 + 4) NC2464.2
- 072600 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 072700 PERFORM SECT-TH220-0003. NC2464.2
- 072800* NC2464.2
- 072900 QUAL-TEST-02-05. NC2464.2
- 073000 SET IN1 TO 5. NC2464.2
- 073100 MOVE 8 TO UNQUAL-SUB. NC2464.2
- 073200 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 073300 IF TABLE-ITEM IN TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 073400 IN TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 073500 IN GROUP-1-TABLE (IN1) EQUAL TO NC2464.2
- 073600 TABLE-ITEM IN TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 073700 IN TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 073800 IN GROUP-2-TABLE (UNQUAL-SUB) NC2464.2
- 073900 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 074000 PERFORM SECT-TH220-0003. NC2464.2
- 074100 GO TO QUAL-INIT-03. NC2464.2
- 074200* NC2464.2
- 074300 QUAL-DELETE-002. NC2464.2
- 074400 PERFORM DE-LETE. NC2464.2
- 074500 PERFORM PRINT-DETAIL. NC2464.2
- 074600* NC2464.2
- 074700 QUAL-INIT-03. NC2464.2
- 074800 MOVE ZERO TO REC-CT. NC2464.2
- 074900 MOVE "QUAL-TEST-03" TO PAR-NAME. NC2464.2
- 075000 MOVE "THREE DIMENSIONAL TABLE" TO RE-MARK. NC2464.2
- 075100 MOVE SPACE TO TEMP-VALUE. NC2464.2
- 075200 MOVE "D" TO EXPECTED-VALUE. NC2464.2
- 075300* NC2464.2
- 075400* THIS TEST CONTAINS QUALIFIED DATA NAMES IN MOVE NC2464.2
- 075500* STATEMENTS. THE DATA NAMES REFER TO THREE DIMENSIONAL NC2464.2
- 075600* TABLE ITEMS. THE SUBSCRIPTS IN THIS TEST ARE CONSTANTS, NC2464.2
- 075700* UNQUALIFIED DATA NAMES AND INDEXES. BOTH DIRECT AND RELATIVENC2464.2
- 075800* INDEXING ARE USED. NC2464.2
- 075900* NC2464.2
- 076000* NC2464.2
- 076100 QUAL-TEST-03-01. NC2464.2
- 076200 MOVE TABLE-ITEM OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 076300 OF TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 076400 OF GROUP-3-TABLE (1, 1, 4) TO TEMP-VALUE. NC2464.2
- 076500 PERFORM SECT-TH220-0003. NC2464.2
- 076600* NC2464.2
- 076700 QUAL-TEST-03-02. NC2464.2
- 076800 MOVE TABLE-ITEM OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 076900 OF TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 077000 OF GROUP-3-TABLE (FIRST-SUB, FIRST-SUB, FOURTH-SUB) NC2464.2
- 077100 TO TEMP-VALUE. NC2464.2
- 077200 PERFORM SECT-TH220-0003. NC2464.2
- 077300* NC2464.2
- 077400 QUAL-TEST-03-03. NC2464.2
- 077500 SET IN5 TO 4. NC2464.2
- 077600 MOVE TABLE-ITEM OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 077700 OF TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 077800 OF GROUP-3-TABLE (1, 1, IN5) TO TEMP-VALUE. NC2464.2
- 077900 PERFORM SECT-TH220-0003. NC2464.2
- 078000* NC2464.2
- 078100 QUAL-TEST-03-04. NC2464.2
- 078200 SET IN3, IN4 TO 1. NC2464.2
- 078300 SET IN5 TO 4. NC2464.2
- 078400 MOVE TABLE-ITEM OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 078500 OF TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 078600 OF GROUP-3-TABLE (IN3, IN4, IN5) TO TEMP-VALUE. NC2464.2
- 078700 PERFORM SECT-TH220-0003. NC2464.2
- 078800* NC2464.2
- 078900 QUAL-TEST-03-05. NC2464.2
- 079000 SET IN3, IN4 TO 2. NC2464.2
- 079100 SET IN5 TO 1. NC2464.2
- 079200 MOVE TABLE-ITEM OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 079300 OF TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 079400 IN GROUP-3-TABLE (IN3 - 1, IN4 - 1, IN5 + 3) NC2464.2
- 079500 TO TEMP-VALUE. NC2464.2
- 079600 PERFORM SECT-TH220-0003. NC2464.2
- 079700 GO TO QUAL-INIT-04. NC2464.2
- 079800* NC2464.2
- 079900 QUAL-DELETE-003. NC2464.2
- 080000 PERFORM DE-LETE. NC2464.2
- 080100 PERFORM PRINT-DETAIL. NC2464.2
- 080200* NC2464.2
- 080300 QUAL-INIT-04. NC2464.2
- 080400 MOVE "QUAL-TEST-04" TO PAR-NAME. NC2464.2
- 080500 MOVE ZERO TO REC-CT. NC2464.2
- 080600 MOVE "QUALIFIED SUBSCRIPT" TO FEATURE. NC2464.2
- 080700 MOVE "ONE DIMENSIONAL TABLE" TO RE-MARK. NC2464.2
- 080800 MOVE SPACE TO TEMP-VALUE. NC2464.2
- 080900* NC2464.2
- 081000* THIS TEST CONTAINS UNQUALIFIED DATA NAMES WITH NC2464.2
- 081100* QUALIFIED SUBSCRIPTS IN MOVE STATEMENTS. THE DATA NAMES NC2464.2
- 081200* REFER TO SINGLE DIMENSIONAL TABLE ITEMS. NC2464.2
- 081300* NC2464.2
- 081400 MOVE "E" TO EXPECTED-VALUE. NC2464.2
- 081500* NC2464.2
- 081600 QUAL-TEST-04-01. NC2464.2
- 081700 MOVE UNQUAL-ITEM (SUB1 OF SUBSCRIPTS OF SUBSCRIPTS-PART1) NC2464.2
- 081800 TO TEMP-VALUE. NC2464.2
- 081900 PERFORM SECT-TH220-0003. NC2464.2
- 082000* NC2464.2
- 082100 QUAL-TEST-04-02. NC2464.2
- 082200 MOVE UNQUAL-ITEM (SUB1 OF SUBSCRIPTS OF SUB-PART2-LEVEL4) NC2464.2
- 082300 TO TEMP-VALUE. NC2464.2
- 082400 PERFORM SECT-TH220-0003. NC2464.2
- 082500* NC2464.2
- 082600 QUAL-TEST-04-03. NC2464.2
- 082700 MOVE UNQUAL-ITEM (SUB1 OF SUBSCRIPTS OF SUB-PART2-LEVEL4 NC2464.2
- 082800 OF SUB-PART2-LEVEL3 IN SUB-PART2-LEVEL2 NC2464.2
- 082900 IN SUBSCRIPTS-PART2) NC2464.2
- 083000 TO TEMP-VALUE. NC2464.2
- 083100 PERFORM SECT-TH220-0003. NC2464.2
- 083200* NC2464.2
- 083300 QUAL-TEST-04-04. NC2464.2
- 083400 MOVE "C" TO EXPECTED-VALUE. NC2464.2
- 083500 MOVE UNQUAL-ITEM (SUB1 OF SOME-MORE-SUBSCRIPTS OF NC2464.2
- 083600 SUBSCRIPTS-PART1) NC2464.2
- 083700 TO TEMP-VALUE. NC2464.2
- 083800 PERFORM SECT-TH220-0003. NC2464.2
- 083900* NC2464.2
- 084000 QUAL-TEST-04-05. NC2464.2
- 084100 MOVE "G" TO EXPECTED-VALUE. NC2464.2
- 084200 MOVE UNQUAL-ITEM (SUB2 OF SOME-MORE-SUBSCRIPTS OF NC2464.2
- 084300 SUB-PART2-LEVEL2) NC2464.2
- 084400 TO TEMP-VALUE. NC2464.2
- 084500 PERFORM SECT-TH220-0003. NC2464.2
- 084600 GO TO QUAL-INIT-05. NC2464.2
- 084700* NC2464.2
- 084800 QUAL-DELETE-004. NC2464.2
- 084900 PERFORM DE-LETE. NC2464.2
- 085000 PERFORM PRINT-DETAIL. NC2464.2
- 085100* NC2464.2
- 085200 QUAL-INIT-05. NC2464.2
- 085300 MOVE "QUAL-TEST-05" TO PAR-NAME. NC2464.2
- 085400 MOVE ZERO TO REC-CT. NC2464.2
- 085500 MOVE "THREE DIMENSIONAL TABLE" TO RE-MARK. NC2464.2
- 085600* NC2464.2
- 085700* THIS TEST CONTAINS UNQUALIFIED DATA NAMES WITH NC2464.2
- 085800* QUALIFIED SUBSCRIPTS IN MOVE STATEMENTS. THE DATA NAMES NC2464.2
- 085900* REFER TO THREE DIMENSIONAL TABLE ITEMS. NC2464.2
- 086000* NC2464.2
- 086100 MOVE SPACE TO TEMP-VALUE. NC2464.2
- 086200 MOVE "N" TO EXPECTED-VALUE. NC2464.2
- 086300* NC2464.2
- 086400 QUAL-TEST-05-01. NC2464.2
- 086500 MOVE TABLE5-ITEM-UNQUAL (FIRST-SUB FIRST-SUB NC2464.2
- 086600 SUB1 OF SOME-MORE-SUBSCRIPTS OF SUB-PART2-LEVEL2 NC2464.2
- 086700 IN SUBSCRIPTS-PART2) NC2464.2
- 086800 TO TEMP-VALUE. NC2464.2
- 086900 PERFORM SECT-TH220-0003. NC2464.2
- 087000* NC2464.2
- 087100 QUAL-TEST-05-02. NC2464.2
- 087200 MOVE TABLE5-ITEM-UNQUAL (SUB3 OF SUBSCRIPTS OF NC2464.2
- 087300 SUBSCRIPTS-PART1 SUB3 OF SUBSCRIPTS OF NC2464.2
- 087400 SUB-PART2-LEVEL4 IN SUB-PART2-LEVEL3 IN NC2464.2
- 087500 SUB-PART2-LEVEL2 IN SUBSCRIPTS-PART2 NC2464.2
- 087600 SUB1 OF SOME-MORE-SUBSCRIPTS OF SUB-PART2-LEVEL2 NC2464.2
- 087700 IN SUBSCRIPTS-PART2) NC2464.2
- 087800 TO TEMP-VALUE. NC2464.2
- 087900 PERFORM SECT-TH220-0003. NC2464.2
- 088000 GO TO QUAL-INIT-06. NC2464.2
- 088100* NC2464.2
- 088200 QUAL-DELETE-005. NC2464.2
- 088300 PERFORM DE-LETE. NC2464.2
- 088400 PERFORM PRINT-DETAIL. NC2464.2
- 088500* NC2464.2
- 088600 QUAL-INIT-06. NC2464.2
- 088700 MOVE "QUAL-TEST-06" TO PAR-NAME. NC2464.2
- 088800 MOVE "ONE DIMENSIONAL TABLE" TO RE-MARK. NC2464.2
- 088900 MOVE ZERO TO REC-CT. NC2464.2
- 089000* NC2464.2
- 089100* THIS TEST CONTAINS QUALIFIED DATA NAMES WITH NC2464.2
- 089200* QUALIFIED SUBSCRIPTS IN IF STATEMENTS. THE DATA NAMES NC2464.2
- 089300* REFER TO SINGLE DIMENSIONAL TABLE ITEMS. NC2464.2
- 089400* NC2464.2
- 089500 MOVE "TRUE" TO EXPECTED-VALUE. NC2464.2
- 089600* NC2464.2
- 089700 QUAL-TEST-06-01. NC2464.2
- 089800 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 089900 IF TABLE-ITEM OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 090000 OF TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 090100 OF GROUP-1-TABLE (SUB3 IN SOME-MORE-SUBSCRIPTS NC2464.2
- 090200 IN SUB-PART2-LEVEL2 IN SUBSCRIPTS-PART2) NC2464.2
- 090300 IS EQUAL TO "O" NC2464.2
- 090400 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 090500 PERFORM SECT-TH220-0003. NC2464.2
- 090600* NC2464.2
- 090700 QUAL-TEST-06-02. NC2464.2
- 090800 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 090900 IF TABLE-ITEM OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 091000 OF TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 091100 OF GROUP-1-TABLE (SUB2 OF SUBSCRIPTS OF NC2464.2
- 091200 SUB-PART2-LEVEL4 IN SUB-PART2-LEVEL3 IN NC2464.2
- 091300 SUB-PART2-LEVEL2 IN SUBSCRIPTS-PART2) NC2464.2
- 091400 IS EQUAL TO TABLE-ITEM OF TABLE-LEVEL-5 NC2464.2
- 091500 IN TABLE-LEVEL-4 OF TABLE-LEVEL-3 IN NC2464.2
- 091600 TABLE-LEVEL-2 OF GROUP-2-TABLE (SUB3 IN SUBSCRIPTS NC2464.2
- 091700 OF SUBSCRIPTS-PART1) NC2464.2
- 091800 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 091900 PERFORM SECT-TH220-0003. NC2464.2
- 092000 GO TO QUAL-INIT-07. NC2464.2
- 092100* NC2464.2
- 092200 QUAL-DELETE-006. NC2464.2
- 092300 PERFORM DE-LETE. NC2464.2
- 092400 PERFORM PRINT-DETAIL. NC2464.2
- 092500* NC2464.2
- 092600 QUAL-INIT-07. NC2464.2
- 092700 MOVE "QUAL-TEST-07" TO PAR-NAME. NC2464.2
- 092800 MOVE "THREE DIMENSIONAL TABLE" TO RE-MARK. NC2464.2
- 092900 MOVE ZERO TO REC-CT. NC2464.2
- 093000* NC2464.2
- 093100* THIS TEST CONTAINS QUALIFIED DATA NAMES WITH NC2464.2
- 093200* QUALIFIED SUBSCRIPTS IN IF STATEMENTS. THE DATA NAMES NC2464.2
- 093300* REFER TO THREE DIMENSIONAL TABLE ITEMS. NC2464.2
- 093400* NC2464.2
- 093500 MOVE "TRUE" TO EXPECTED-VALUE. NC2464.2
- 093600* NC2464.2
- 093700 QUAL-TEST-07-01. NC2464.2
- 093800 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 093900 IF TABLE-ITEM OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 094000 IN TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 094100 IN GROUP-3-TABLE (SUB3 IN SUBSCRIPTS IN NC2464.2
- 094200 SUBSCRIPTS-PART1 SUB3 OF SUBSCRIPTS OF NC2464.2
- 094300 SUBSCRIPTS-PART1 SUB1 OF SOME-MORE-SUBSCRIPTS OF NC2464.2
- 094400 SUBSCRIPTS-PART1) IS EQUAL TO "C" NC2464.2
- 094500 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 094600 PERFORM SECT-TH220-0003. NC2464.2
- 094700* NC2464.2
- 094800 QUAL-TEST-07-02. NC2464.2
- 094900 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 095000 IF TABLE-ITEM OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 095100 IN TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 095200 OF GROUP-3-TABLE (SUB3 IN SUBSCRIPTS IN NC2464.2
- 095300 SUB-PART2-LEVEL4 OF SUB-PART2-LEVEL3 OF NC2464.2
- 095400 SUB-PART2-LEVEL2 OF SUBSCRIPTS-PART2 SUB3 IN NC2464.2
- 095500 SUBSCRIPTS IN SUB-PART2-LEVEL4 OF SUB-PART2-LEVEL3 NC2464.2
- 095600 IN SUB-PART2-LEVEL2 OF SUBSCRIPTS-PART2 SUB1 OF NC2464.2
- 095700 SOME-MORE-SUBSCRIPTS OF SUB-PART2-LEVEL2 NC2464.2
- 095800 IN SUBSCRIPTS-PART2) NC2464.2
- 095900 IS EQUAL TO TABLE-ITEM OF TABLE-LEVEL-5 IN NC2464.2
- 096000 TABLE-LEVEL-4 IN TABLE-LEVEL-3 OF TABLE-LEVEL-2 NC2464.2
- 096100 IN GROUP-3-TABLE (SUB3 OF SUBSCRIPTS IN NC2464.2
- 096200 SUBSCRIPTS-PART1 SUB3 OF SUBSCRIPTS IN NC2464.2
- 096300 SUB-PART2-LEVEL4 OF SUB-PART2-LEVEL3 NC2464.2
- 096400 OF SUB-PART2-LEVEL2 OF SUBSCRIPTS-PART2 SUB1 NC2464.2
- 096500 OF SOME-MORE-SUBSCRIPTS OF SUBSCRIPTS-PART1) NC2464.2
- 096600 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 096700 PERFORM SECT-TH220-0003. NC2464.2
- 096800 GO TO QUAL-INIT-08. NC2464.2
- 096900* NC2464.2
- 097000 QUAL-DELETE-007. NC2464.2
- 097100 PERFORM DE-LETE. NC2464.2
- 097200 PERFORM PRINT-DETAIL. NC2464.2
- 097300* NC2464.2
- 097400 QUAL-INIT-08. NC2464.2
- 097500 MOVE "QUAL-TEST-08" TO PAR-NAME. NC2464.2
- 097600 MOVE "QUAL. CONDITION NAME" TO FEATURE. NC2464.2
- 097700 MOVE ZERO TO REC-CT. NC2464.2
- 097800 MOVE "ONE DIMENSIONAL TABLE" TO RE-MARK. NC2464.2
- 097900* NC2464.2
- 098000* THIS TEST CONTAINS QUALIFIED CONDITION NAMES IN IF NC2464.2
- 098100* STATEMENTS. THE CONDITION NAMES REFER TO SINGLE DIMENSIONAL NC2464.2
- 098200* CONDITIONAL VARIABLES. THE SUBSCRIPTS IN THIS TEST ARE NC2464.2
- 098300* CONSTANTS, UNQUALIFIED DATA NAMES AND INDEXES. BOTH DIRECT NC2464.2
- 098400* AND RELATIVE INDEXING ARE USED. NC2464.2
- 098500* NC2464.2
- 098600 MOVE "TRUE" TO EXPECTED-VALUE. NC2464.2
- 098700* NC2464.2
- 098800 QUAL-TEST-08-01. NC2464.2
- 098900 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 099000 IF EQUALS-M OF TABLE-LEVEL-5 OF TABLE-LEVEL-4 NC2464.2
- 099100 IN TABLE-LEVEL-3 OF TABLE-LEVEL-2 NC2464.2
- 099200 OF GROUP-1-TABLE (13) NC2464.2
- 099300 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 099400 PERFORM SECT-TH220-0003. NC2464.2
- 099500* NC2464.2
- 099600 QUAL-TEST-08-02. NC2464.2
- 099700 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 099800 IF EQUALS-A OF TABLE-LEVEL-5 OF TABLE-LEVEL-4 NC2464.2
- 099900 IN TABLE-LEVEL-3 OF TABLE-LEVEL-2 NC2464.2
- 100000 OF GROUP-1-TABLE (FIRST-SUB) NC2464.2
- 100100 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 100200 PERFORM SECT-TH220-0003. NC2464.2
- 100300* NC2464.2
- 100400 QUAL-TEST-08-03. NC2464.2
- 100500 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 100600 SET IN1 TO 3. NC2464.2
- 100700 IF EQUALS-C OF TABLE-LEVEL-5 OF TABLE-LEVEL-4 NC2464.2
- 100800 IN TABLE-LEVEL-3 OF TABLE-LEVEL-2 NC2464.2
- 100900 OF GROUP-1-TABLE (IN1) NC2464.2
- 101000 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 101100 PERFORM SECT-TH220-0003. NC2464.2
- 101200* NC2464.2
- 101300 QUAL-TEST-08-04. NC2464.2
- 101400 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 101500 SET IN1 TO 6. NC2464.2
- 101600 IF EQUALS-A OF TABLE-LEVEL-5 OF TABLE-LEVEL-4 NC2464.2
- 101700 IN TABLE-LEVEL-3 OF TABLE-LEVEL-2 NC2464.2
- 101800 OF GROUP-1-TABLE (IN1 - 5) NC2464.2
- 101900 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 102000 PERFORM SECT-TH220-0003. NC2464.2
- 102100* NC2464.2
- 102200 QUAL-TEST-08-05. NC2464.2
- 102300 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 102400 SET IN1 TO 1. NC2464.2
- 102500 IF EQUALS-C OF TABLE-LEVEL-5 OF TABLE-LEVEL-4 NC2464.2
- 102600 IN TABLE-LEVEL-3 OF TABLE-LEVEL-2 NC2464.2
- 102700 OF GROUP-1-TABLE (IN1 + 2) NC2464.2
- 102800 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 102900 PERFORM SECT-TH220-0003. NC2464.2
- 103000 GO TO QUAL-INIT-09. NC2464.2
- 103100* NC2464.2
- 103200 QUAL-DELETE-008. NC2464.2
- 103300 PERFORM DE-LETE. NC2464.2
- 103400 PERFORM PRINT-DETAIL. NC2464.2
- 103500* NC2464.2
- 103600 QUAL-INIT-09. NC2464.2
- 103700 MOVE "QUAL-TEST-09" TO PAR-NAME. NC2464.2
- 103800 MOVE ZERO TO REC-CT. NC2464.2
- 103900 MOVE "THREE DIMENSIONAL TABLE" TO RE-MARK. NC2464.2
- 104000* NC2464.2
- 104100* THIS TEST CONTAINS QUALIFIED CONDITION NAMES IN IF NC2464.2
- 104200* STATEMENTS. THE CONDITION NAMES REFER TO THREE DIMENSIONAL NC2464.2
- 104300* CONDITIONAL VARIABLES. THE SUBSCRIPTS IN THIS TEST ARE NC2464.2
- 104400* CONSTANTS, UNQUALIFIED DATA NAMES AND INDEXES. BOTH DIRECT NC2464.2
- 104500* AND RELATIVE INDEXING ARE USED. NC2464.2
- 104600* NC2464.2
- 104700 MOVE "TRUE" TO EXPECTED-VALUE. NC2464.2
- 104800* NC2464.2
- 104900 QUAL-TEST-09-01. NC2464.2
- 105000 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 105100 IF EQUALS-M OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 105200 IN TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 105300 OF GROUP-3-TABLE (2, 2, 1) NC2464.2
- 105400 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 105500 PERFORM SECT-TH220-0003. NC2464.2
- 105600* NC2464.2
- 105700 QUAL-TEST-09-02. NC2464.2
- 105800 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 105900 IF EQUALS-A OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 106000 IN TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 106100 OF GROUP-3-TABLE (FIRST-SUB, FIRST-SUB, FIRST-SUB) NC2464.2
- 106200 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 106300 PERFORM SECT-TH220-0003. NC2464.2
- 106400* NC2464.2
- 106500 QUAL-TEST-09-03. NC2464.2
- 106600 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 106700 SET IN5 TO 3. NC2464.2
- 106800 IF EQUALS-C OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 106900 IN TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 107000 OF GROUP-3-TABLE (1, 1, IN5) NC2464.2
- 107100 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 107200 PERFORM SECT-TH220-0003. NC2464.2
- 107300* NC2464.2
- 107400 QUAL-TEST-09-04. NC2464.2
- 107500 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 107600 SET IN3, IN4 TO 1. NC2464.2
- 107700 SET IN5 TO 3. NC2464.2
- 107800 IF EQUALS-C OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 107900 IN TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 108000 OF GROUP-3-TABLE (IN3, IN4, IN5) NC2464.2
- 108100 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 108200 PERFORM SECT-TH220-0003. NC2464.2
- 108300* NC2464.2
- 108400 QUAL-TEST-09-05. NC2464.2
- 108500 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 108600 SET IN5 TO 1. NC2464.2
- 108700 SET IN3, IN4 TO 2. NC2464.2
- 108800 IF EQUALS-C OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 108900 IN TABLE-LEVEL-3 IN TABLE-LEVEL-2 NC2464.2
- 109000 OF GROUP-3-TABLE (IN3 - 1, IN4 - 1, IN5 + 2) NC2464.2
- 109100 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 109200 PERFORM SECT-TH220-0003. NC2464.2
- 109300 GO TO QUAL-INIT-10. NC2464.2
- 109400* NC2464.2
- 109500 QUAL-DELETE-009. NC2464.2
- 109600 PERFORM DE-LETE. NC2464.2
- 109700 PERFORM PRINT-DETAIL. NC2464.2
- 109800* NC2464.2
- 109900 QUAL-INIT-10. NC2464.2
- 110000 MOVE "QUAL-TEST-10" TO PAR-NAME. NC2464.2
- 110100 MOVE "QUALIFIED SUBSCRIPTS" TO RE-MARK. NC2464.2
- 110200 MOVE ZERO TO REC-CT. NC2464.2
- 110300* NC2464.2
- 110400* THIS TEST CONTAINS QUALIFIED CONDITION NAMES WITH NC2464.2
- 110500* QUALIFIED SUBSCRIPTS. NC2464.2
- 110600* NC2464.2
- 110700 MOVE "TRUE" TO EXPECTED-VALUE. NC2464.2
- 110800* NC2464.2
- 110900 QUAL-TEST-10-01. NC2464.2
- 111000 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 111100 IF EQUALS-C OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 111200 IN TABLE-LEVEL-3 OF TABLE-LEVEL-2 NC2464.2
- 111300 IN GROUP-1-TABLE (SUB1 OF SOME-MORE-SUBSCRIPTS NC2464.2
- 111400 IN SUBSCRIPTS-PART1) NC2464.2
- 111500 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 111600 PERFORM SECT-TH220-0003. NC2464.2
- 111700* NC2464.2
- 111800 QUAL-TEST-10-02. NC2464.2
- 111900 IF NOT EQUALS-M OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 112000 IN TABLE-LEVEL-3 OF TABLE-LEVEL-2 NC2464.2
- 112100 IN GROUP-2-TABLE (SUB2 OF SUBSCRIPTS NC2464.2
- 112200 OF SUB-PART2-LEVEL4 OF SUB-PART2-LEVEL3 NC2464.2
- 112300 OF SUB-PART2-LEVEL2 OF SUBSCRIPTS-PART2) NC2464.2
- 112400 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 112500 PERFORM SECT-TH220-0003. NC2464.2
- 112600* NC2464.2
- 112700 QUAL-TEST-10-03. NC2464.2
- 112800 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 112900 IF EQUALS-C OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 113000 IN TABLE-LEVEL-3 OF TABLE-LEVEL-2 NC2464.2
- 113100 IN GROUP-3-TABLE (SUB3 OF SUBSCRIPTS OF NC2464.2
- 113200 SUB-PART2-LEVEL4 IN SUB-PART2-LEVEL3 IN NC2464.2
- 113300 SUB-PART2-LEVEL2 IN SUBSCRIPTS-PART2, NC2464.2
- 113400 SUB3 IN SUBSCRIPTS IN SUBSCRIPTS-PART1, NC2464.2
- 113500 SUB1 IN SOME-MORE-SUBSCRIPTS IN SUB-PART2-LEVEL2 NC2464.2
- 113600 IN SUBSCRIPTS-PART2) NC2464.2
- 113700 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 113800 PERFORM SECT-TH220-0003. NC2464.2
- 113900* NC2464.2
- 114000 QUAL-TEST-10-04. NC2464.2
- 114100 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 114200 IF NOT EQUALS-A OF TABLE-LEVEL-5 IN TABLE-LEVEL-4 NC2464.2
- 114300 IN TABLE-LEVEL-3 OF TABLE-LEVEL-2 NC2464.2
- 114400 IN GROUP-3-TABLE (SUB3 OF SUBSCRIPTS OF NC2464.2
- 114500 SUB-PART2-LEVEL4 IN SUB-PART2-LEVEL3 IN NC2464.2
- 114600 SUB-PART2-LEVEL2 IN SUBSCRIPTS-PART2, NC2464.2
- 114700 SUB3 IN SUBSCRIPTS OF SUB-PART2-LEVEL4 OF NC2464.2
- 114800 SUB-PART2-LEVEL3 IN SUB-PART2-LEVEL2 IN NC2464.2
- 114900 SUBSCRIPTS-PART2, SUB1 OF SOME-MORE-SUBSCRIPTS NC2464.2
- 115000 OF SUB-PART2-LEVEL2 IN SUBSCRIPTS-PART2) NC2464.2
- 115100 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 115200 PERFORM SECT-TH220-0003. NC2464.2
- 115300 GO TO QUAL-INIT-11. NC2464.2
- 115400* NC2464.2
- 115500 QUAL-DELETE-010. NC2464.2
- 115600 PERFORM DE-LETE. NC2464.2
- 115700 PERFORM PRINT-DETAIL. NC2464.2
- 115800* NC2464.2
- 115900 QUAL-INIT-11. NC2464.2
- 116000 MOVE "QUAL-TEST-11" TO PAR-NAME. NC2464.2
- 116100 MOVE "QUALIFICATION" TO FEATURE. NC2464.2
- 116200 MOVE "INTERMEDIATE LEVELS SKIPPED" TO RE-MARK. NC2464.2
- 116300 MOVE SPACE TO TEMP-VALUE. NC2464.2
- 116400 MOVE ZERO TO REC-CT. NC2464.2
- 116500* NC2464.2
- 116600* THIS TEST USES QUALIFIED DATA NAMES WITHOUT ALL OF THE NC2464.2
- 116700* INTERMEDIATE LEVELS SPECIFIED. THERE ARE QUALIFIED TABLE NC2464.2
- 116800* ITEMS AND QUALIFIED SUBSCRIPTS INCLUDED IN THE TEST NC2464.2
- 116900* STATEMENTS. NC2464.2
- 117000* NC2464.2
- 117100 MOVE "G" TO EXPECTED-VALUE. NC2464.2
- 117200* NC2464.2
- 117300 QUAL-TEST-11-01. NC2464.2
- 117400 MOVE TABLE-ITEM OF TABLE-LEVEL-5 OF GROUP-1-TABLE (7) NC2464.2
- 117500 TO TEMP-VALUE. NC2464.2
- 117600 PERFORM SECT-TH220-0003. NC2464.2
- 117700* NC2464.2
- 117800 QUAL-TEST-11-02. NC2464.2
- 117900 MOVE UNQUAL-ITEM (SUB2 OF SOME-MORE-SUBSCRIPTS OF NC2464.2
- 118000 SUBSCRIPTS-PART2) TO TEMP-VALUE. NC2464.2
- 118100 PERFORM SECT-TH220-0003. NC2464.2
- 118200* NC2464.2
- 118300 QUAL-TEST-11-03. NC2464.2
- 118400 MOVE TABLE-ITEM OF GROUP-1-TABLE (SUB2 OF NC2464.2
- 118500 SOME-MORE-SUBSCRIPTS OF SUB-PART2-LEVEL2) TO TEMP-VALUE. NC2464.2
- 118600 PERFORM SECT-TH220-0003. NC2464.2
- 118700* NC2464.2
- 118800 QUAL-TEST-11-04. NC2464.2
- 118900 MOVE "A" TO EXPECTED-VALUE. NC2464.2
- 119000 MOVE TABLE-ITEM OF GROUP-3-TABLE (FIRST-SUB, SUB3 OF NC2464.2
- 119100 SUBSCRIPTS OF SUBSCRIPTS-PART1, SUB3 OF NC2464.2
- 119200 SUB-PART2-LEVEL4) TO TEMP-VALUE. NC2464.2
- 119300 PERFORM SECT-TH220-0003. NC2464.2
- 119400* NC2464.2
- 119500 QUAL-TEST-11-05. NC2464.2
- 119600 MOVE "TRUE" TO EXPECTED-VALUE. NC2464.2
- 119700 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 119800 SET IN1 TO 3. NC2464.2
- 119900 IF EQUALS-C OF TABLE-ITEM OF GROUP-1-TABLE (IN1) NC2464.2
- 120000 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 120100 PERFORM SECT-TH220-0003. NC2464.2
- 120200* NC2464.2
- 120300 QUAL-TEST-11-06. NC2464.2
- 120400 MOVE "FALSE" TO TEMP-VALUE. NC2464.2
- 120500 IF EQUALS-C OF TABLE-ITEM OF GROUP-3-TABLE NC2464.2
- 120600 (FIRST-SUB, SUB3 OF SUB-PART2-LEVEL3, SUB1 OF NC2464.2
- 120700 SOME-MORE-SUBSCRIPTS OF SUBSCRIPTS-PART2) NC2464.2
- 120800 MOVE "TRUE" TO TEMP-VALUE. NC2464.2
- 120900 PERFORM SECT-TH220-0003. NC2464.2
- 121000 GO TO QUAL-INIT-12. NC2464.2
- 121100 QUAL-DELETE-011. NC2464.2
- 121200 PERFORM DE-LETE. NC2464.2
- 121300 PERFORM PRINT-DETAIL. NC2464.2
- 121400* NC2464.2
- 121500 QUAL-INIT-12. NC2464.2
- 121600 MOVE "IV-21 4.3.8.2.3 SR5 AND VI-2 1.3.2/4" NC2464.2
- 121700 TO ANSI-REFERENCE. NC2464.2
- 121800 MOVE "QUAL-TEST-12" TO PAR-NAME. NC2464.2
- 121900 MOVE "SEVEN DIMENSIONAL TABLE" TO RE-MARK. NC2464.2
- 122000 MOVE ZEROES TO TABLE-A NC2464.2
- 122100 TABLE-B. NC2464.2
- 122200 MOVE 27 TO ELEM1 OF L8 IN L7 IN L6 IN L5 IN L4 IN L3 NC2464.2
- 122300 IN L2 OF TABLE-A (1, 2, 1, 2, 1, 1, 2). NC2464.2
- 122400 GO TO QUAL-TEST-12. NC2464.2
- 122500 QUAL-DELETE-12. NC2464.2
- 122600 PERFORM DE-LETE. NC2464.2
- 122700 PERFORM PRINT-DETAIL. NC2464.2
- 122800 GO TO CCVS-EXIT. NC2464.2
- 122900 QUAL-TEST-12. NC2464.2
- 123000 IF ELEM1 OF L8 IN L7 OF L6 OF L5 IN L4 IN L3 OF L2 NC2464.2
- 123100 IN TABLE-A NC2464.2
- 123200 (SUB1 OF S48 IN S47 OF S46 IN S45 OF S44 IN S43 NC2464.2
- 123300 OF S42 IN S41 OF S40 IN S39 OF S38 IN S37 NC2464.2
- 123400 OF S36 IN S35 OF S34 IN S33 OF S32 IN S31 NC2464.2
- 123500 OF S30 IN S29 OF S28 IN S27 OF S26 IN S25 NC2464.2
- 123600 OF S24 IN S23 OF S22 IN S21 OF S20 IN S19 NC2464.2
- 123700 OF S18 IN S17 OF S16 IN S15 OF S14 IN S13 NC2464.2
- 123800 OF S12 IN S11 OF S10 IN SO9 OF SO8 IN SO7 NC2464.2
- 123900 OF SO6 IN SO5 OF SO4 IN SO3 OF SO2 NC2464.2
- 124000 IN SUBSCRIPTS-GROUP-1, NC2464.2
- 124100 SUB2 OF S48 IN S47 OF S46 IN S45 OF S44 IN S43 NC2464.2
- 124200 OF S42 IN S41 OF S40 IN S39 OF S38 IN S37 NC2464.2
- 124300 OF S36 IN S35 OF S34 IN S33 OF S32 IN S31 NC2464.2
- 124400 OF S30 IN S29 OF S28 IN S27 OF S26 IN S25 NC2464.2
- 124500 OF S24 IN S23 OF S22 IN S21 OF S20 IN S19 NC2464.2
- 124600 OF S18 IN S17 OF S16 IN S15 OF S14 IN S13 NC2464.2
- 124700 OF S12 IN S11 OF S10 IN SO9 OF SO8 IN SO7 NC2464.2
- 124800 OF SO6 IN SO5 OF SO4 IN SO3 OF SO2 NC2464.2
- 124900 OF SUBSCRIPTS-GROUP-2, NC2464.2
- 125000 SUB3 OF S48 IN S47 OF S46 IN S45 OF S44 IN S43 NC2464.2
- 125100 OF S42 IN S41 OF S40 IN S39 OF S38 IN S37 NC2464.2
- 125200 OF S36 IN S35 OF S34 IN S33 OF S32 IN S31 NC2464.2
- 125300 OF S30 IN S29 OF S28 IN S27 OF S26 IN S25 NC2464.2
- 125400 OF S24 IN S23 OF S22 IN S21 OF S20 IN S19 NC2464.2
- 125500 OF S18 IN S17 OF S16 IN S15 OF S14 IN S13 NC2464.2
- 125600 OF S12 IN S11 OF S10 IN SO9 OF SO8 IN SO7 NC2464.2
- 125700 OF SO6 IN SO5 OF SO4 IN SO3 OF SO2 NC2464.2
- 125800 IN SUBSCRIPTS-GROUP-1, NC2464.2
- 125900 SUB4 OF S48 IN S47 OF S46 IN S45 OF S44 IN S43 NC2464.2
- 126000 OF S42 IN S41 OF S40 IN S39 OF S38 IN S37 NC2464.2
- 126100 OF S36 IN S35 OF S34 IN S33 OF S32 IN S31 NC2464.2
- 126200 OF S30 IN S29 OF S28 IN S27 OF S26 IN S25 NC2464.2
- 126300 OF S24 IN S23 OF S22 IN S21 OF S20 IN S19 NC2464.2
- 126400 OF S18 IN S17 OF S16 IN S15 OF S14 IN S13 NC2464.2
- 126500 OF S12 IN S11 OF S10 IN SO9 OF SO8 IN SO7 NC2464.2
- 126600 OF SO6 IN SO5 OF SO4 IN SO3 OF SO2 NC2464.2
- 126700 OF SUBSCRIPTS-GROUP-2, NC2464.2
- 126800 SUB5 OF S48 IN S47 OF S46 IN S45 OF S44 IN S43 NC2464.2
- 126900 OF S42 IN S41 OF S40 IN S39 OF S38 IN S37 NC2464.2
- 127000 OF S36 IN S35 OF S34 IN S33 OF S32 IN S31 NC2464.2
- 127100 OF S30 IN S29 OF S28 IN S27 OF S26 IN S25 NC2464.2
- 127200 OF S24 IN S23 OF S22 IN S21 OF S20 IN S19 NC2464.2
- 127300 OF S18 IN S17 OF S16 IN S15 OF S14 IN S13 NC2464.2
- 127400 OF S12 IN S11 OF S10 IN SO9 OF SO8 IN SO7 NC2464.2
- 127500 OF SO6 IN SO5 OF SO4 IN SO3 OF SO2 NC2464.2
- 127600 IN SUBSCRIPTS-GROUP-1, NC2464.2
- 127700 SUB6 OF S48 IN S47 OF S46 IN S45 OF S44 IN S43 NC2464.2
- 127800 OF S42 IN S41 OF S40 IN S39 OF S38 IN S37 NC2464.2
- 127900 OF S36 IN S35 OF S34 IN S33 OF S32 IN S31 NC2464.2
- 128000 OF S30 IN S29 OF S28 IN S27 OF S26 IN S25 NC2464.2
- 128100 OF S24 IN S23 OF S22 IN S21 OF S20 IN S19 NC2464.2
- 128200 OF S18 IN S17 OF S16 IN S15 OF S14 IN S13 NC2464.2
- 128300 OF S12 IN S11 OF S10 IN SO9 OF SO8 IN SO7 NC2464.2
- 128400 OF SO6 IN SO5 OF SO4 IN SO3 OF SO2 NC2464.2
- 128500 IN SUBSCRIPTS-GROUP-1, NC2464.2
- 128600 SUB7 OF S48 IN S47 OF S46 IN S45 OF S44 IN S43 NC2464.2
- 128700 OF S42 IN S41 OF S40 IN S39 OF S38 IN S37 NC2464.2
- 128800 OF S36 IN S35 OF S34 IN S33 OF S32 IN S31 NC2464.2
- 128900 OF S30 IN S29 OF S28 IN S27 OF S26 IN S25 NC2464.2
- 129000 OF S24 IN S23 OF S22 IN S21 OF S20 IN S19 NC2464.2
- 129100 OF S18 IN S17 OF S16 IN S15 OF S14 IN S13 NC2464.2
- 129200 OF S12 IN S11 OF S10 IN SO9 OF SO8 IN SO7 NC2464.2
- 129300 OF SO6 IN SO5 OF SO4 IN SO3 OF SO2 NC2464.2
- 129400 OF SUBSCRIPTS-GROUP-2) NC2464.2
- 129500 = 27 NC2464.2
- 129600 PERFORM PASS NC2464.2
- 129700 PERFORM PRINT-DETAIL NC2464.2
- 129800 ELSE NC2464.2
- 129900 MOVE "QUALIFICATION FAILED" TO RE-MARK NC2464.2
- 130000 PERFORM FAIL NC2464.2
- 130100 PERFORM PRINT-DETAIL. NC2464.2
- 130200* NC2464.2
- 130300 GO TO CCVS-EXIT. NC2464.2
- 130400* NC2464.2
- 130500 SECT-TH220-0003 SECTION. NC2464.2
- 130600 SYNTAX-CHECK. NC2464.2
- 130700 ADD 1 TO REC-CT. NC2464.2
- 130800 IF TEMP-VALUE IS EQUAL TO EXPECTED-VALUE NC2464.2
- 130900 PERFORM PASS NC2464.2
- 131000 GO TO SYNTAX-CHECK-WRITE. NC2464.2
- 131100 SYNTAX-FAIL. NC2464.2
- 131200 MOVE TEMP-VALUE TO COMPUTED-A. NC2464.2
- 131300 MOVE EXPECTED-VALUE TO CORRECT-A. NC2464.2
- 131400 PERFORM FAIL. NC2464.2
- 131500 SYNTAX-CHECK-WRITE. NC2464.2
- 131600 PERFORM PRINT-DETAIL. NC2464.2
- 131700 MOVE SPACE TO TEMP-VALUE. NC2464.2
- 131800 CCVS-EXIT SECTION. NC2464.2
- 131900 CCVS-999999. NC2464.2
- 132000 GO TO CLOSE-FILES. NC2464.2
- *END-OF,NC246A