|
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 Card0130. NC2464.2
004900 OBJECT-COMPUTER. NC2464.2
005000 Card0131. NC2464.2
005100 INPUT-OUTPUT SECTION. NC2464.2
005200 FILE-CONTROL. NC2464.2
005300 SELECT PRINT-FILE ASSIGN TO NC2464.2
005400 "C0085" . 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
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.161 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
