|
000100 IDENTIFICATION DIVISION. NC2074.2
000200 PROGRAM-ID. NC2074.2
000300 NC207A. NC2074.2
000400**************************************************************** NC2074.2
000500* * NC2074.2
000600* VALIDATION FOR:- * NC2074.2
000700* * NC2074.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2074.2
000900* * NC2074.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2074.2
001100* * NC2074.2
001200**************************************************************** NC2074.2
001300* * NC2074.2
001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC2074.2
001500* * NC2074.2
001600* X-55 - SYSTEM PRINTER NAME. * NC2074.2
001700* X-82 - SOURCE COMPUTER NAME. * NC2074.2
001800* X-83 - OBJECT COMPUTER NAME. * NC2074.2
001900* * NC2074.2
002000**************************************************************** NC2074.2
002100* * NC2074.2
002200* PROGRAM NC207A TESTS THE USE OF FORMAT 1 QUALIFICATION * NC2074.2
002300* USING FORMATS 1, 2 AND 3 OF THE "ADD" STATEMENT, FORMATS * NC2074.2
002400* 2 AND 3 OF THE "SUBTRACT" STATEMENT, FORMAT 2 OF THE * NC2074.2
002500* "MULTIPLY" STATEMENT AND FORMAT 3 OF THE "DIVIDE"* NC2074.2
002600* STATEMENT. * NC2074.2
002700* THE MAJORITY OF TESTST USE UP TO FIVE LEVELS OF * NC2074.2
002800* QUALIFICATION BUT THE MINIMUM REQUIREMENT OF 49 LEVELS IN * NC2074.2
002900* THE NUCLEUS IS ALSO TESTED. * NC2074.2
003000* * NC2074.2
003100**************************************************************** NC2074.2
003200 ENVIRONMENT DIVISION. NC2074.2
003300 CONFIGURATION SECTION. NC2074.2
003400 SOURCE-COMPUTER. NC2074.2
003500 Card0130. NC2074.2
003600 OBJECT-COMPUTER. NC2074.2
003700 Card0131. NC2074.2
003800 INPUT-OUTPUT SECTION. NC2074.2
003900 FILE-CONTROL. NC2074.2
004000 SELECT PRINT-FILE ASSIGN TO NC2074.2
004100 "C0085" . NC2074.2
004200 DATA DIVISION. NC2074.2
004300 FILE SECTION. NC2074.2
004400 FD PRINT-FILE. NC2074.2
004500 01 PRINT-REC PICTURE X(120). NC2074.2
004600 01 DUMMY-RECORD PICTURE X(120). NC2074.2
004700 WORKING-STORAGE SECTION. NC2074.2
004800 77 ACCUMULATOR1 PIC 9(18) VALUE ZERO. NC2074.2
004900 77 ACCUMULATOR2 PIC 9(18) VALUE ZERO. NC2074.2
005000 01 TABLE-LEVEL-5A. NC2074.2
005100 02 TABLE-LEVEL-4A. NC2074.2
005200 03 TABLE-LEVEL-3A. NC2074.2
005300 04 TABLE-LEVEL-2A. NC2074.2
005400 05 TABLE-LEVEL-1A. NC2074.2
005500 06 TBL-ITEM-1 PIC 9 VALUE 1. NC2074.2
005600 05 TABLE-LEVEL-1B. NC2074.2
005700 06 TBL-ITEM-1 PIC 9(2) VALUE 2. NC2074.2
005800 04 TABLE-LEVEL-2B. NC2074.2
005900 05 TABLE-LEVEL-1A. NC2074.2
006000 06 TBL-ITEM-1 PIC 9(3) VALUE 3. NC2074.2
006100 05 TABLE-LEVEL-1B. NC2074.2
006200 06 TBL-ITEM-1 PIC 9(4) VALUE 4. NC2074.2
006300 03 TABLE-LEVEL-3B. NC2074.2
006400 04 TABLE-LEVEL-2A. NC2074.2
006500 05 TABLE-LEVEL-1A. NC2074.2
006600 06 TBL-ITEM-1 PIC 9(5) VALUE 5. NC2074.2
006700 05 TABLE-LEVEL-1B. NC2074.2
006800 06 TBL-ITEM-1 PIC 9(6) VALUE 6. NC2074.2
006900 04 TABLE-LEVEL-2B. NC2074.2
007000 05 TABLE-LEVEL-1A. NC2074.2
007100 06 TBL-ITEM-1 PIC 9(7) VALUE 7. NC2074.2
007200 05 TABLE-LEVEL-1B. NC2074.2
007300 06 TBL-ITEM-1 PIC 9(8) VALUE 8. NC2074.2
007400 02 TABLE-LEVEL-4B. NC2074.2
007500 03 TABLE-LEVEL-3A. NC2074.2
007600 04 TABLE-LEVEL-2A. NC2074.2
007700 05 TABLE-LEVEL-1A. NC2074.2
007800 06 TBL-ITEM-1 PIC 9(9) VALUE 9. NC2074.2
007900 05 TABLE-LEVEL-1B. NC2074.2
008000 06 TBL-ITEM-1 PIC 9(10) VALUE 10. NC2074.2
008100 04 TABLE-LEVEL-2B. NC2074.2
008200 05 TABLE-LEVEL-1A. NC2074.2
008300 06 TBL-ITEM-1 PIC 9(11) VALUE 11. NC2074.2
008400 05 TABLE-LEVEL-1B. NC2074.2
008500 06 TBL-ITEM-1 PIC 9(12) VALUE 12. NC2074.2
008600 03 TABLE-LEVEL-3B. NC2074.2
008700 04 TABLE-LEVEL-2A. NC2074.2
008800 05 TABLE-LEVEL-1A. NC2074.2
008900 06 TBL-ITEM-1 PIC 9(13) VALUE 13. NC2074.2
009000 05 TABLE-LEVEL-1B. NC2074.2
009100 06 TBL-ITEM-1 PIC 9(14) VALUE 14. NC2074.2
009200 04 TABLE-LEVEL-2B. NC2074.2
009300 05 TABLE-LEVEL-1A. NC2074.2
009400 06 TBL-ITEM-1 PIC 9(15) VALUE 15. NC2074.2
009500 05 TABLE-LEVEL-1B. NC2074.2
009600 06 TBL-ITEM-1 PIC 9(16) VALUE 16. NC2074.2
009700 01 TABLE-LEVEL-5B. NC2074.2
009800 02 TABLE-LEVEL-4A. NC2074.2
009900 03 TABLE-LEVEL-3A. NC2074.2
010000 04 TABLE-LEVEL-2A. NC2074.2
010100 05 TABLE-LEVEL-1A. NC2074.2
010200 06 TBL-ITEM-1 PIC 9(16) VALUE 16. NC2074.2
010300 05 TABLE-LEVEL-1B. NC2074.2
010400 06 TBL-ITEM-1 PIC 9(15) VALUE 15. NC2074.2
010500 04 TABLE-LEVEL-2B. NC2074.2
010600 05 TABLE-LEVEL-1A. NC2074.2
010700 06 TBL-ITEM-1 PIC 9(14) VALUE 14. NC2074.2
010800 05 TABLE-LEVEL-1B. NC2074.2
010900 06 TBL-ITEM-1 PIC 9(13) VALUE 13. NC2074.2
011000 03 TABLE-LEVEL-3B. NC2074.2
011100 04 TABLE-LEVEL-2A. NC2074.2
011200 05 TABLE-LEVEL-1A. NC2074.2
011300 06 TBL-ITEM-1 PIC 9(12) VALUE 12. NC2074.2
011400 05 TABLE-LEVEL-1B. NC2074.2
011500 06 TBL-ITEM-1 PIC 9(11) VALUE 11. NC2074.2
011600 04 TABLE-LEVEL-2B. NC2074.2
011700 05 TABLE-LEVEL-1A. NC2074.2
011800 06 TBL-ITEM-1 PIC 9(10) VALUE 10. NC2074.2
011900 05 TABLE-LEVEL-1B. NC2074.2
012000 06 TBL-ITEM-1 PIC 9(9) VALUE 9. NC2074.2
012100 02 TABLE-LEVEL-4B. NC2074.2
012200 03 TABLE-LEVEL-3A. NC2074.2
012300 04 TABLE-LEVEL-2A. NC2074.2
012400 05 TABLE-LEVEL-1A. NC2074.2
012500 06 TBL-ITEM-1 PIC 9(8) VALUE 8. NC2074.2
012600 05 TABLE-LEVEL-1B. NC2074.2
012700 06 TBL-ITEM-1 PIC 9(7) VALUE 7. NC2074.2
012800 04 TABLE-LEVEL-2B. NC2074.2
012900 05 TABLE-LEVEL-1A. NC2074.2
013000 06 TBL-ITEM-1 PIC 9(6) VALUE 6. NC2074.2
013100 05 TABLE-LEVEL-1B. NC2074.2
013200 06 TBL-ITEM-1 PIC 9(5) VALUE 5. NC2074.2
013300 03 TABLE-LEVEL-3B. NC2074.2
013400 04 TABLE-LEVEL-2A. NC2074.2
013500 05 TABLE-LEVEL-1A. NC2074.2
013600 06 TBL-ITEM-1 PIC 9(4) VALUE 4. NC2074.2
013700 05 TABLE-LEVEL-1B. NC2074.2
013800 06 TBL-ITEM-1 PIC 9(3) VALUE 3. NC2074.2
013900 04 TABLE-LEVEL-2B. NC2074.2
014000 05 TABLE-LEVEL-1A. NC2074.2
014100 06 TBL-ITEM-1 PIC 9(2) VALUE 2. NC2074.2
014200 05 TABLE-LEVEL-1B. NC2074.2
014300 06 TBL-ITEM-1 PIC 99 VALUE 1. NC2074.2
014400 NC2074.2
014500 01 TABLE-LEVEL-5C. NC2074.2
014600 02 TABLE-LEVEL-4A. NC2074.2
014700 03 TABLE-LEVEL-3A. NC2074.2
014800 04 TABLE-LEVEL-2A. NC2074.2
014900 05 TABLE-LEVEL-1A. NC2074.2
015000 06 TBL-ITEM-1 PIC 9 VALUE 1. NC2074.2
015100 05 TABLE-LEVEL-1B. NC2074.2
015200 06 TBL-ITEM-1 PIC 9(2) VALUE 2. NC2074.2
015300 04 TABLE-LEVEL-2B. NC2074.2
015400 05 TABLE-LEVEL-1A. NC2074.2
015500 06 TBL-ITEM-1 PIC 9(3) VALUE 3. NC2074.2
015600 05 TABLE-LEVEL-1B. NC2074.2
015700 06 TBL-ITEM-1 PIC 9(4) VALUE 4. NC2074.2
015800 03 TABLE-LEVEL-3B. NC2074.2
015900 04 TABLE-LEVEL-2A. NC2074.2
016000 05 TABLE-LEVEL-1A. NC2074.2
016100 06 TBL-ITEM-1 PIC 9(5) VALUE 5. NC2074.2
016200 05 TABLE-LEVEL-1B. NC2074.2
016300 06 TBL-ITEM-1 PIC 9(6) VALUE 6. NC2074.2
016400 04 TABLE-LEVEL-2B. NC2074.2
016500 05 TABLE-LEVEL-1A. NC2074.2
016600 06 TBL-ITEM-1 PIC 9(7) VALUE 7. NC2074.2
016700 05 TABLE-LEVEL-1B. NC2074.2
016800 06 TBL-ITEM-1 PIC 9(8) VALUE 8. NC2074.2
016900 02 TABLE-LEVEL-4B. NC2074.2
017000 03 TABLE-LEVEL-3A. NC2074.2
017100 04 TABLE-LEVEL-2A. NC2074.2
017200 05 TABLE-LEVEL-1A. NC2074.2
017300 06 TBL-ITEM-1 PIC 9(9) VALUE 9. NC2074.2
017400 05 TABLE-LEVEL-1B. NC2074.2
017500 06 TBL-ITEM-1 PIC 9(10) VALUE 10. NC2074.2
017600 04 TABLE-LEVEL-2B. NC2074.2
017700 05 TABLE-LEVEL-1A. NC2074.2
017800 06 TBL-ITEM-1 PIC 9(11) VALUE 11. NC2074.2
017900 05 TABLE-LEVEL-1B. NC2074.2
018000 06 TBL-ITEM-1 PIC 9(12) VALUE 12. NC2074.2
018100 03 TABLE-LEVEL-3B. NC2074.2
018200 04 TABLE-LEVEL-2A. NC2074.2
018300 05 TABLE-LEVEL-1A. NC2074.2
018400 06 TBL-ITEM-1 PIC 9(13) VALUE 13. NC2074.2
018500 05 TABLE-LEVEL-1B. NC2074.2
018600 06 TBL-ITEM-1 PIC 9(14) VALUE 14. NC2074.2
018700 04 TABLE-LEVEL-2B. NC2074.2
018800 05 TABLE-LEVEL-1A. NC2074.2
018900 06 TBL-ITEM-1 PIC 9(15) VALUE 15. NC2074.2
019000 05 TABLE-LEVEL-1B. NC2074.2
019100 06 TBL-ITEM-1 PIC 9(16) VALUE 16. NC2074.2
019200 01 TABLE-5B-INIT. NC2074.2
019300 02 FILLER PIC 9(16) VALUE 16. NC2074.2
019400 02 FILLER PIC 9(15) VALUE 15. NC2074.2
019500 02 FILLER PIC 9(14) VALUE 14. NC2074.2
019600 02 FILLER PIC 9(13) VALUE 13. NC2074.2
019700 02 FILLER PIC 9(12) VALUE 12. NC2074.2
019800 02 FILLER PIC 9(11) VALUE 11. NC2074.2
019900 02 FILLER PIC 9(10) VALUE 10. NC2074.2
020000 02 FILLER PIC 9(9) VALUE 9. NC2074.2
020100 02 FILLER PIC 9(8) VALUE 8. NC2074.2
020200 02 FILLER PIC 9(7) VALUE 7. NC2074.2
020300 02 FILLER PIC 9(6) VALUE 6. NC2074.2
020400 02 FILLER PIC 9(5) VALUE 5. NC2074.2
020500 02 FILLER PIC 9(4) VALUE 4. NC2074.2
020600 02 FILLER PIC 9(3) VALUE 3. NC2074.2
020700 02 FILLER PIC 9(2) VALUE 2. NC2074.2
020800 02 FILLER PIC 9(2) VALUE 1. NC2074.2
020900 01 FIRST-GROUP. NC2074.2
021000 02 GROUP-02. NC2074.2
021100 03 GROUP-03. NC2074.2
021200 04 GROUP-04. NC2074.2
021300 05 GROUP-05. NC2074.2
021400 06 GROUP-06. NC2074.2
021500 07 GROUP-07. NC2074.2
021600 08 GROUP-08. NC2074.2
021700 09 GROUP-09. NC2074.2
021800 10 GROUP-10. NC2074.2
021900 11 GROUP-11. NC2074.2
022000 12 GROUP-12. NC2074.2
022100 13 GROUP-13. NC2074.2
022200 14 GROUP-14. NC2074.2
022300 15 GROUP-15. NC2074.2
022400 16 GROUP-16. NC2074.2
022500 17 GROUP-17. NC2074.2
022600 18 GROUP-18. NC2074.2
022700 19 GROUP-19. NC2074.2
022800 20 GROUP-20. NC2074.2
022900 21 GROUP-21. NC2074.2
023000 22 GROUP-22. NC2074.2
023100 23 GROUP-23. NC2074.2
023200 24 GROUP-24. NC2074.2
023300 25 GROUP-25. NC2074.2
023400 26 GROUP-26. NC2074.2
023500 27 GROUP-27. NC2074.2
023600 28 GROUP-28. NC2074.2
023700 29 GROUP-29. NC2074.2
023800 30 GROUP-30. NC2074.2
023900 31 GROUP-31. NC2074.2
024000 32 GROUP-32. NC2074.2
024100 33 GROUP-33. NC2074.2
024200 34 GROUP-34. NC2074.2
024300 35 GROUP-35. NC2074.2
024400 36 GROUP-36. NC2074.2
024500 37 GROUP-37. NC2074.2
024600 38 GROUP-38. NC2074.2
024700 39 GROUP-39. NC2074.2
024800 40 GROUP-40. NC2074.2
024900 41 GROUP-41. NC2074.2
025000 42 GROUP-42. NC2074.2
025100 43 GROUP-43. NC2074.2
025200 44 GROUP-44. NC2074.2
025300 45 GROUP-45. NC2074.2
025400 46 GROUP-46. NC2074.2
025500 47 GROUP-47. NC2074.2
025600 48 GROUP-48. NC2074.2
025700 49 GROUP-49-1 PIC 9(4) VALUE 1. NC2074.2
025800 49 GROUP-49-2 PIC S9(3) COMP VALUE 2. NC2074.2
025900 49 GROUP-49-3 PIC S9(15) COMP VALUE 3. NC2074.2
026000 49 GROUP-49-4 PIC S9(8) COMP VALUE 4. NC2074.2
026100 49 GROUP-49-5 PIC 9(8) VALUE 5. NC2074.2
026200 01 SECOND-GROUP. NC2074.2
026300 02 GROUP-02. NC2074.2
026400 03 GROUP-03. NC2074.2
026500 04 GROUP-04. NC2074.2
026600 05 GROUP-05. NC2074.2
026700 06 GROUP-06. NC2074.2
026800 07 GROUP-07. NC2074.2
026900 08 GROUP-08. NC2074.2
027000 09 GROUP-09. NC2074.2
027100 10 GROUP-10. NC2074.2
027200 11 GROUP-11. NC2074.2
027300 12 GROUP-12. NC2074.2
027400 13 GROUP-13. NC2074.2
027500 14 GROUP-14. NC2074.2
027600 15 GROUP-15. NC2074.2
027700 16 GROUP-16. NC2074.2
027800 17 GROUP-17. NC2074.2
027900 18 GROUP-18. NC2074.2
028000 19 GROUP-19. NC2074.2
028100 20 GROUP-20. NC2074.2
028200 21 GROUP-21. NC2074.2
028300 22 GROUP-22. NC2074.2
028400 23 GROUP-23. NC2074.2
028500 24 GROUP-24. NC2074.2
028600 25 GROUP-25. NC2074.2
028700 26 GROUP-26. NC2074.2
028800 27 GROUP-27. NC2074.2
028900 28 GROUP-28. NC2074.2
029000 29 GROUP-29. NC2074.2
029100 30 GROUP-30. NC2074.2
029200 31 GROUP-31. NC2074.2
029300 32 GROUP-32. NC2074.2
029400 33 GROUP-33. NC2074.2
029500 34 GROUP-34. NC2074.2
029600 35 GROUP-35. NC2074.2
029700 36 GROUP-36. NC2074.2
029800 37 GROUP-37. NC2074.2
029900 38 GROUP-38. NC2074.2
030000 39 GROUP-39. NC2074.2
030100 40 GROUP-40. NC2074.2
030200 41 GROUP-41. NC2074.2
030300 42 GROUP-42. NC2074.2
030400 43 GROUP-43. NC2074.2
030500 44 GROUP-44. NC2074.2
030600 45 GROUP-45. NC2074.2
030700 46 GROUP-46. NC2074.2
030800 47 GROUP-47. NC2074.2
030900 48 GROUP-48. NC2074.2
031000 49 GROUP-49-1 PIC 9(4) VALUE 100. NC2074.2
031100 49 GROUP-49-2 PIC S9(3) COMP VALUE 200. NC2074.2
031200 49 GROUP-49-3 PIC S9(15) COMP VALUE 300. NC2074.2
031300 49 GROUP-49-4 PIC S9(8) COMP VALUE 400. NC2074.2
031400 49 GROUP-49-5 PIC 9(8) VALUE 500. NC2074.2
031500 88 LEVEL-49-OK VALUE 500. NC2074.2
031600 01 TEST-RESULTS. NC2074.2
031700 02 FILLER PIC X VALUE SPACE. NC2074.2
031800 02 FEATURE PIC X(20) VALUE SPACE. NC2074.2
031900 02 FILLER PIC X VALUE SPACE. NC2074.2
032000 02 P-OR-F PIC X(5) VALUE SPACE. NC2074.2
032100 02 FILLER PIC X VALUE SPACE. NC2074.2
032200 02 PAR-NAME. NC2074.2
032300 03 FILLER PIC X(19) VALUE SPACE. NC2074.2
032400 03 PARDOT-X PIC X VALUE SPACE. NC2074.2
032500 03 DOTVALUE PIC 99 VALUE ZERO. NC2074.2
032600 02 FILLER PIC X(8) VALUE SPACE. NC2074.2
032700 02 RE-MARK PIC X(61). NC2074.2
032800 01 TEST-COMPUTED. NC2074.2
032900 02 FILLER PIC X(30) VALUE SPACE. NC2074.2
033000 02 FILLER PIC X(17) VALUE NC2074.2
033100 " COMPUTED=". NC2074.2
033200 02 COMPUTED-X. NC2074.2
033300 03 COMPUTED-A PIC X(20) VALUE SPACE. NC2074.2
033400 03 COMPUTED-N REDEFINES COMPUTED-A NC2074.2
033500 PIC -9(9).9(9). NC2074.2
033600 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC2074.2
033700 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). NC2074.2
033800 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC2074.2
033900 03 CM-18V0 REDEFINES COMPUTED-A. NC2074.2
034000 04 COMPUTED-18V0 PIC -9(18). NC2074.2
034100 04 FILLER PIC X. NC2074.2
034200 03 FILLER PIC X(50) VALUE SPACE. NC2074.2
034300 01 TEST-CORRECT. NC2074.2
034400 02 FILLER PIC X(30) VALUE SPACE. NC2074.2
034500 02 FILLER PIC X(17) VALUE " CORRECT =". NC2074.2
034600 02 CORRECT-X. NC2074.2
034700 03 CORRECT-A PIC X(20) VALUE SPACE. NC2074.2
034800 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). NC2074.2
034900 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). NC2074.2
035000 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC2074.2
035100 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). NC2074.2
035200 03 CR-18V0 REDEFINES CORRECT-A. NC2074.2
035300 04 CORRECT-18V0 PIC -9(18). NC2074.2
035400 04 FILLER PIC X. NC2074.2
035500 03 FILLER PIC X(2) VALUE SPACE. NC2074.2
035600 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC2074.2
035700 01 CCVS-C-1. NC2074.2
035800 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC2074.2
035900- "SS PARAGRAPH-NAME NC2074.2
036000- " REMARKS". NC2074.2
036100 02 FILLER PIC X(20) VALUE SPACE. NC2074.2
036200 01 CCVS-C-2. NC2074.2
036300 02 FILLER PIC X VALUE SPACE. NC2074.2
036400 02 FILLER PIC X(6) VALUE "TESTED". NC2074.2
036500 02 FILLER PIC X(15) VALUE SPACE. NC2074.2
036600 02 FILLER PIC X(4) VALUE "FAIL". NC2074.2
036700 02 FILLER PIC X(94) VALUE SPACE. NC2074.2
036800 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC2074.2
036900 01 REC-CT PIC 99 VALUE ZERO. NC2074.2
037000 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC2074.2
037100 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC2074.2
037200 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC2074.2
037300 01 PASS-COUNTER PIC 999 VALUE ZERO. NC2074.2
037400 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC2074.2
037500 01 ERROR-HOLD PIC 999 VALUE ZERO. NC2074.2
037600 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC2074.2
037700 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC2074.2
037800 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC2074.2
037900 01 CCVS-H-1. NC2074.2
038000 02 FILLER PIC X(39) VALUE SPACES. NC2074.2
038100 02 FILLER PIC X(42) VALUE NC2074.2
038200 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2074.2
038300 02 FILLER PIC X(39) VALUE SPACES. NC2074.2
038400 01 CCVS-H-2A. NC2074.2
038500 02 FILLER PIC X(40) VALUE SPACE. NC2074.2
038600 02 FILLER PIC X(7) VALUE "CCVS85 ". NC2074.2
038700 02 FILLER PIC XXXX VALUE NC2074.2
038800 "4.2 ". NC2074.2
038900 02 FILLER PIC X(28) VALUE NC2074.2
039000 " COPY - NOT FOR DISTRIBUTION". NC2074.2
039100 02 FILLER PIC X(41) VALUE SPACE. NC2074.2
039200 NC2074.2
039300 01 CCVS-H-2B. NC2074.2
039400 02 FILLER PIC X(15) VALUE NC2074.2
039500 "TEST RESULT OF ". NC2074.2
039600 02 TEST-ID PIC X(9). NC2074.2
039700 02 FILLER PIC X(4) VALUE NC2074.2
039800 " IN ". NC2074.2
039900 02 FILLER PIC X(12) VALUE NC2074.2
040000 " HIGH ". NC2074.2
040100 02 FILLER PIC X(22) VALUE NC2074.2
040200 " LEVEL VALIDATION FOR ". NC2074.2
040300 02 FILLER PIC X(58) VALUE NC2074.2
040400 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2074.2
040500 01 CCVS-H-3. NC2074.2
040600 02 FILLER PIC X(34) VALUE NC2074.2
040700 " FOR OFFICIAL USE ONLY ". NC2074.2
040800 02 FILLER PIC X(58) VALUE NC2074.2
040900 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2074.2
041000 02 FILLER PIC X(28) VALUE NC2074.2
041100 " COPYRIGHT 1985 ". NC2074.2
041200 01 CCVS-E-1. NC2074.2
041300 02 FILLER PIC X(52) VALUE SPACE. NC2074.2
041400 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC2074.2
041500 02 ID-AGAIN PIC X(9). NC2074.2
041600 02 FILLER PIC X(45) VALUE SPACES. NC2074.2
041700 01 CCVS-E-2. NC2074.2
041800 02 FILLER PIC X(31) VALUE SPACE. NC2074.2
041900 02 FILLER PIC X(21) VALUE SPACE. NC2074.2
042000 02 CCVS-E-2-2. NC2074.2
042100 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC2074.2
042200 03 FILLER PIC X VALUE SPACE. NC2074.2
042300 03 ENDER-DESC PIC X(44) VALUE NC2074.2
042400 "ERRORS ENCOUNTERED". NC2074.2
042500 01 CCVS-E-3. NC2074.2
042600 02 FILLER PIC X(22) VALUE NC2074.2
042700 " FOR OFFICIAL USE ONLY". NC2074.2
042800 02 FILLER PIC X(12) VALUE SPACE. NC2074.2
042900 02 FILLER PIC X(58) VALUE NC2074.2
043000 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2074.2
043100 02 FILLER PIC X(13) VALUE SPACE. NC2074.2
043200 02 FILLER PIC X(15) VALUE NC2074.2
043300 " COPYRIGHT 1985". NC2074.2
043400 01 CCVS-E-4. NC2074.2
043500 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC2074.2
043600 02 FILLER PIC X(4) VALUE " OF ". NC2074.2
043700 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC2074.2
043800 02 FILLER PIC X(40) VALUE NC2074.2
043900 " TESTS WERE EXECUTED SUCCESSFULLY". NC2074.2
044000 01 XXINFO. NC2074.2
044100 02 FILLER PIC X(19) VALUE NC2074.2
044200 "*** INFORMATION ***". NC2074.2
044300 02 INFO-TEXT. NC2074.2
044400 04 FILLER PIC X(8) VALUE SPACE. NC2074.2
044500 04 XXCOMPUTED PIC X(20). NC2074.2
044600 04 FILLER PIC X(5) VALUE SPACE. NC2074.2
044700 04 XXCORRECT PIC X(20). NC2074.2
044800 02 INF-ANSI-REFERENCE PIC X(48). NC2074.2
044900 01 HYPHEN-LINE. NC2074.2
045000 02 FILLER PIC IS X VALUE IS SPACE. NC2074.2
045100 02 FILLER PIC IS X(65) VALUE IS "************************NC2074.2
045200- "*****************************************". NC2074.2
045300 02 FILLER PIC IS X(54) VALUE IS "************************NC2074.2
045400- "******************************". NC2074.2
045500 01 CCVS-PGM-ID PIC X(9) VALUE NC2074.2
045600 "NC207". NC2074.2
045700 PROCEDURE DIVISION. NC2074.2
045800 CCVS1 SECTION. NC2074.2
045900 OPEN-FILES. NC2074.2
046000 OPEN OUTPUT PRINT-FILE. NC2074.2
046100 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC2074.2
046200 MOVE SPACE TO TEST-RESULTS. NC2074.2
046300 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC2074.2
046400 GO TO CCVS1-EXIT. NC2074.2
046500 CLOSE-FILES. NC2074.2
046600 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC2074.2
046700 TERMINATE-CCVS. NC2074.2
046800 EXIT PROGRAM. NC2074.2
046900 TERMINATE-CALL. NC2074.2
047000 STOP RUN. NC2074.2
047100 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC2074.2
047200 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC2074.2
047300 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC2074.2
047400 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC2074.2
047500 MOVE "****TEST DELETED****" TO RE-MARK. NC2074.2
047600 PRINT-DETAIL. NC2074.2
047700 IF REC-CT NOT EQUAL TO ZERO NC2074.2
047800 MOVE "." TO PARDOT-X NC2074.2
047900 MOVE REC-CT TO DOTVALUE. NC2074.2
048000 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC2074.2
048100 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC2074.2
048200 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC2074.2
048300 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC2074.2
048400 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC2074.2
048500 MOVE SPACE TO CORRECT-X. NC2074.2
048600 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC2074.2
048700 MOVE SPACE TO RE-MARK. NC2074.2
048800 HEAD-ROUTINE. NC2074.2
048900 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2074.2
049000 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2074.2
049100 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2074.2
049200 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2074.2
049300 COLUMN-NAMES-ROUTINE. NC2074.2
049400 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2074.2
049500 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2074.2
049600 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2074.2
049700 END-ROUTINE. NC2074.2
049800 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2074.2
049900 END-RTN-EXIT. NC2074.2
050000 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2074.2
050100 END-ROUTINE-1. NC2074.2
050200 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC2074.2
050300 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC2074.2
050400 ADD PASS-COUNTER TO ERROR-HOLD. NC2074.2
050500* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC2074.2
050600 MOVE PASS-COUNTER TO CCVS-E-4-1. NC2074.2
050700 MOVE ERROR-HOLD TO CCVS-E-4-2. NC2074.2
050800 MOVE CCVS-E-4 TO CCVS-E-2-2. NC2074.2
050900 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC2074.2
051000 END-ROUTINE-12. NC2074.2
051100 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC2074.2
051200 IF ERROR-COUNTER IS EQUAL TO ZERO NC2074.2
051300 MOVE "NO " TO ERROR-TOTAL NC2074.2
051400 ELSE NC2074.2
051500 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC2074.2
051600 MOVE CCVS-E-2 TO DUMMY-RECORD. NC2074.2
051700 PERFORM WRITE-LINE. NC2074.2
051800 END-ROUTINE-13. NC2074.2
051900 IF DELETE-COUNTER IS EQUAL TO ZERO NC2074.2
052000 MOVE "NO " TO ERROR-TOTAL ELSE NC2074.2
052100 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC2074.2
052200 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC2074.2
052300 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2074.2
052400 IF INSPECT-COUNTER EQUAL TO ZERO NC2074.2
052500 MOVE "NO " TO ERROR-TOTAL NC2074.2
052600 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC2074.2
052700 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC2074.2
052800 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2074.2
052900 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2074.2
053000 WRITE-LINE. NC2074.2
053100 ADD 1 TO RECORD-COUNT. NC2074.2
053200 IF RECORD-COUNT GREATER 50 NC2074.2
053300 MOVE DUMMY-RECORD TO DUMMY-HOLD NC2074.2
053400 MOVE SPACE TO DUMMY-RECORD NC2074.2
053500 WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC2074.2
053600 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC2074.2
053700 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC2074.2
053800 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC2074.2
053900 MOVE DUMMY-HOLD TO DUMMY-RECORD NC2074.2
054000 MOVE ZERO TO RECORD-COUNT. NC2074.2
054100 PERFORM WRT-LN. NC2074.2
054200 WRT-LN. NC2074.2
054300 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC2074.2
054400 MOVE SPACE TO DUMMY-RECORD. NC2074.2
054500 BLANK-LINE-PRINT. NC2074.2
054600 PERFORM WRT-LN. NC2074.2
054700 FAIL-ROUTINE. NC2074.2
054800 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2074.2
054900 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2074.2
055000 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2074.2
055100 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC2074.2
055200 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2074.2
055300 MOVE SPACES TO INF-ANSI-REFERENCE. NC2074.2
055400 GO TO FAIL-ROUTINE-EX. NC2074.2
055500 FAIL-ROUTINE-WRITE. NC2074.2
055600 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC2074.2
055700 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC2074.2
055800 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2074.2
055900 MOVE SPACES TO COR-ANSI-REFERENCE. NC2074.2
056000 FAIL-ROUTINE-EX. EXIT. NC2074.2
056100 BAIL-OUT. NC2074.2
056200 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC2074.2
056300 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC2074.2
056400 BAIL-OUT-WRITE. NC2074.2
056500 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC2074.2
056600 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2074.2
056700 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2074.2
056800 MOVE SPACES TO INF-ANSI-REFERENCE. NC2074.2
056900 BAIL-OUT-EX. EXIT. NC2074.2
057000 CCVS1-EXIT. NC2074.2
057100 EXIT. NC2074.2
057200 SECT-NC207A-001 SECTION. NC2074.2
057300 ADD-INIT-F1-1. NC2074.2
057400 MOVE "ADD-TEST-F1-1 " TO PAR-NAME. NC2074.2
057500 MOVE "QUALIFIED ADDITION" TO FEATURE. NC2074.2
057600 MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE. NC2074.2
057700 MOVE ZERO TO ACCUMULATOR1. NC2074.2
057800 ADD-TEST-F1-1. NC2074.2
057900 ADD TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF NC2074.2
058000 TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A NC2074.2
058100 TO ACCUMULATOR1. NC2074.2
058200 IF ACCUMULATOR1 EQUAL TO 1 NC2074.2
058300 PERFORM PASS NC2074.2
058400 GO TO ADD-WRITE-F1-1. NC2074.2
058500 GO TO ADD-FAIL-F1-1. NC2074.2
058600 ADD-DELETE-F1-1. NC2074.2
058700 PERFORM DE-LETE. NC2074.2
058800 GO TO ADD-WRITE-F1-1. NC2074.2
058900 ADD-FAIL-F1-1. NC2074.2
059000 MOVE 1 TO CORRECT-N. NC2074.2
059100 MOVE TBL-ITEM-1 OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF NC2074.2
059200 TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A NC2074.2
059300 TO COMPUTED-N. NC2074.2
059400 PERFORM FAIL. NC2074.2
059500 ADD-WRITE-F1-1. NC2074.2
059600 PERFORM PRINT-DETAIL. NC2074.2
059700* NC2074.2
059800 ADD-INIT-F1-2. NC2074.2
059900 MOVE "ADD-TEST-F1-2 " TO PAR-NAME. NC2074.2
060000 MOVE "QUALIFIED ADDITION" TO FEATURE. NC2074.2
060100 MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE. NC2074.2
060200 MOVE ZERO TO ACCUMULATOR1. NC2074.2
060300 ADD-TEST-F1-2. NC2074.2
060400 ADD TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A OF NC2074.2
060500 TABLE-LEVEL-3A OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO NC2074.2
060600 ACCUMULATOR1. NC2074.2
060700 IF ACCUMULATOR1 EQUAL TO 2 NC2074.2
060800 PERFORM PASS NC2074.2
060900 GO TO ADD-WRITE-F1-2. NC2074.2
061000 GO TO ADD-FAIL-F1-2. NC2074.2
061100 ADD-DELETE-F1-2. NC2074.2
061200 PERFORM DE-LETE. NC2074.2
061300 GO TO ADD-WRITE-F1-2. NC2074.2
061400 ADD-FAIL-F1-2. NC2074.2
061500 MOVE 2 TO CORRECT-N. NC2074.2
061600 MOVE TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A OF NC2074.2
061700 TABLE-LEVEL-3A OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO NC2074.2
061800 COMPUTED-N. NC2074.2
061900 PERFORM FAIL. NC2074.2
062000 ADD-WRITE-F1-2. NC2074.2
062100 PERFORM PRINT-DETAIL. NC2074.2
062200* NC2074.2
062300 ADD-INIT-F1-3. NC2074.2
062400 MOVE "ADD-TEST-F1-3 " TO PAR-NAME. NC2074.2
062500 MOVE "QUALIFIED ADDITION" TO FEATURE. NC2074.2
062600 MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE. NC2074.2
062700 MOVE ZERO TO ACCUMULATOR1. NC2074.2
062800 ADD-TEST-F1-3. NC2074.2
062900 ADD TBL-ITEM-1 IN TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN NC2074.2
063000 TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO NC2074.2
063100 ACCUMULATOR1. NC2074.2
063200 IF ACCUMULATOR1 EQUAL TO 3 NC2074.2
063300 PERFORM PASS NC2074.2
063400 GO TO ADD-WRITE-F1-3. NC2074.2
063500 GO TO ADD-FAIL-F1-3. NC2074.2
063600 ADD-DELETE-F1-3. NC2074.2
063700 PERFORM DE-LETE. NC2074.2
063800 GO TO ADD-WRITE-F1-3. NC2074.2
063900 ADD-FAIL-F1-3. NC2074.2
064000 MOVE TBL-ITEM-1 IN TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN NC2074.2
064100 TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO NC2074.2
064200 COMPUTED-N. NC2074.2
064300 MOVE 3 TO CORRECT-N. NC2074.2
064400 PERFORM FAIL. NC2074.2
064500 ADD-WRITE-F1-3. NC2074.2
064600 PERFORM PRINT-DETAIL. NC2074.2
064700* NC2074.2
064800 ADD-INIT-F1-4. NC2074.2
064900 MOVE "ADD-TEST-F1-4 " TO PAR-NAME. NC2074.2
065000 MOVE "QUALIFIED ADDITION" TO FEATURE. NC2074.2
065100 MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE. NC2074.2
065200 MOVE ZERO TO ACCUMULATOR1. NC2074.2
065300 ADD-TEST-F1-4. NC2074.2
065400 ADD TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF NC2074.2
065500 TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO NC2074.2
065600 ACCUMULATOR1. NC2074.2
065700 IF ACCUMULATOR1 EQUAL TO 4 NC2074.2
065800 PERFORM PASS NC2074.2
065900 GO TO ADD-WRITE-F1-4. NC2074.2
066000 GO TO ADD-FAIL-F1-4. NC2074.2
066100 ADD-DELETE-F1-4. NC2074.2
066200 PERFORM DE-LETE. NC2074.2
066300 GO TO ADD-WRITE-F1-4. NC2074.2
066400 ADD-FAIL-F1-4. NC2074.2
066500 MOVE 4 TO CORRECT-N. NC2074.2
066600 MOVE TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF NC2074.2
066700 TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO NC2074.2
066800 COMPUTED-N. NC2074.2
066900 PERFORM FAIL. NC2074.2
067000 ADD-WRITE-F1-4. NC2074.2
067100 PERFORM PRINT-DETAIL. NC2074.2
067200* NC2074.2
067300 ADD-INIT-F1-5. NC2074.2
067400 MOVE "ADD-TEST-F1-5 " TO PAR-NAME. NC2074.2
067500 MOVE "QUALIFIED ADDITION" TO FEATURE. NC2074.2
067600 MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE. NC2074.2
067700 MOVE ZERO TO ACCUMULATOR1. NC2074.2
067800 ADD-TEST-F1-5. NC2074.2
067900 ADD TBL-ITEM-1 OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF NC2074.2
068000 TABLE-LEVEL-3B OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO NC2074.2
068100 ACCUMULATOR1. NC2074.2
068200 IF ACCUMULATOR1 EQUAL TO 5 NC2074.2
068300 PERFORM PASS NC2074.2
068400 GO TO ADD-WRITE-F1-5. NC2074.2
068500 GO TO ADD-FAIL-F1-5. NC2074.2
068600 ADD-DELETE-F1-5. NC2074.2
068700 PERFORM DE-LETE. NC2074.2
068800 GO TO ADD-WRITE-F1-5. NC2074.2
068900 ADD-FAIL-F1-5. NC2074.2
069000 MOVE 5 TO CORRECT-N. NC2074.2
069100 MOVE TBL-ITEM-1 OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF NC2074.2
069200 TABLE-LEVEL-3B OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO NC2074.2
069300 COMPUTED-N. NC2074.2
069400 PERFORM FAIL. NC2074.2
069500 ADD-WRITE-F1-5. NC2074.2
069600 PERFORM PRINT-DETAIL. NC2074.2
069700* NC2074.2
069800 ADD-INIT-F1-6. NC2074.2
069900 MOVE "ADD-TEST-F1-6 " TO PAR-NAME. NC2074.2
070000 MOVE "QUALIFIED ADDITION" TO FEATURE. NC2074.2
070100 MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE. NC2074.2
070200 MOVE ZERO TO ACCUMULATOR1. NC2074.2
070300 ADD-TEST-F1-6. NC2074.2
070400 ADD TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN NC2074.2
070500 TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO NC2074.2
070600 ACCUMULATOR1. NC2074.2
070700 IF ACCUMULATOR1 EQUAL TO 6 NC2074.2
070800 PERFORM PASS NC2074.2
070900 GO TO ADD-WRITE-F1-6. NC2074.2
071000 GO TO ADD-FAIL-F1-6. NC2074.2
071100 ADD-DELETE-F1-6. NC2074.2
071200 PERFORM DE-LETE. NC2074.2
071300 GO TO ADD-WRITE-F1-6. NC2074.2
071400 ADD-FAIL-F1-6. NC2074.2
071500 MOVE 6 TO CORRECT-N. NC2074.2
071600 MOVE TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN NC2074.2
071700 TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO NC2074.2
071800 COMPUTED-N. NC2074.2
071900 PERFORM FAIL. NC2074.2
072000 ADD-WRITE-F1-6. NC2074.2
072100 PERFORM PRINT-DETAIL. NC2074.2
072200* NC2074.2
072300 ADD-INIT-F1-7. NC2074.2
072400 MOVE "ADD-TEST-F1-7" TO PAR-NAME. NC2074.2
072500 MOVE "QUALIFIED ADDITION" TO FEATURE. NC2074.2
072600 MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE. NC2074.2
072700 MOVE ZERO TO ACCUMULATOR1. NC2074.2
072800 ADD-TEST-F1-7. NC2074.2
072900 ADD TBL-ITEM-1 IN TABLE-LEVEL-1A OF TABLE-LEVEL-2B OF NC2074.2
073000 TABLE-LEVEL-3B OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO NC2074.2
073100 ACCUMULATOR1. NC2074.2
073200 IF ACCUMULATOR1 EQUAL TO 7 NC2074.2
073300 PERFORM PASS NC2074.2
073400 GO TO ADD-WRITE-F1-7. NC2074.2
073500 GO TO ADD-FAIL-F1-7. NC2074.2
073600 ADD-DELETE-F1-7. NC2074.2
073700 PERFORM DE-LETE. NC2074.2
073800 GO TO ADD-WRITE-F1-7. NC2074.2
073900 ADD-FAIL-F1-7. NC2074.2
074000 MOVE TBL-ITEM-1 IN TABLE-LEVEL-1A OF TABLE-LEVEL-2B OF NC2074.2
074100 TABLE-LEVEL-3B OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO NC2074.2
074200 COMPUTED-N. NC2074.2
074300 MOVE 7 TO CORRECT-N. NC2074.2
074400 PERFORM FAIL. NC2074.2
074500 ADD-WRITE-F1-7. NC2074.2
074600 PERFORM PRINT-DETAIL. NC2074.2
074700* NC2074.2
074800 ADD-INIT-F1-8. NC2074.2
074900 MOVE "ADD-TEST-F1-8 " TO PAR-NAME. NC2074.2
075000 MOVE "QUALIFIED ADDITION" TO FEATURE. NC2074.2
075100 MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE. NC2074.2
075200 MOVE ZERO TO ACCUMULATOR1. NC2074.2
075300 ADD-TEST-F1-8. NC2074.2
075400 ADD TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B IN NC2074.2
075500 TABLE-LEVEL-3B IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO NC2074.2
075600 ACCUMULATOR1. NC2074.2
075700 IF ACCUMULATOR1 EQUAL TO 8 NC2074.2
075800 PERFORM PASS NC2074.2
075900 GO TO ADD-WRITE-F1-8. NC2074.2
076000 GO TO ADD-FAIL-F1-8. NC2074.2
076100 ADD-DELETE-F1-8. NC2074.2
076200 PERFORM DE-LETE. NC2074.2
076300 GO TO ADD-WRITE-F1-8. NC2074.2
076400 ADD-FAIL-F1-8. NC2074.2
076500 MOVE TBL-ITEM-1 OF TABLE-LEVEL-1B IN TABLE-LEVEL-2B IN NC2074.2
076600 TABLE-LEVEL-3B IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO NC2074.2
076700 COMPUTED-N. NC2074.2
076800 MOVE 8 TO CORRECT-N. NC2074.2
076900 PERFORM FAIL. NC2074.2
077000 ADD-WRITE-F1-8. NC2074.2
077100 PERFORM PRINT-DETAIL. NC2074.2
077200* NC2074.2
077300 ADD-INIT-F2-9. NC2074.2
077400 MOVE "ADD-TEST-F2-9 " TO PAR-NAME. NC2074.2
077500 MOVE "QUALIFIED ADDITION" TO FEATURE. NC2074.2
077600 MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE. NC2074.2
077700 MOVE ZERO TO ACCUMULATOR2. NC2074.2
077800 ADD-TEST-F2-9. NC2074.2
077900 ADD TBL-ITEM-1 OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF NC2074.2
078000 TABLE-LEVEL-3A IN TABLE-LEVEL-4B IN TABLE-LEVEL-5A NC2074.2
078100 TBL-ITEM-1 OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF NC2074.2
078200 TABLE-LEVEL-3A IN TABLE-LEVEL-4B IN TABLE-LEVEL-5A NC2074.2
078300 GIVING ACCUMULATOR2. NC2074.2
078400 IF ACCUMULATOR2 EQUAL TO 18 NC2074.2
078500 PERFORM PASS NC2074.2
078600 GO TO ADD-WRITE-F2-9. NC2074.2
078700 GO TO ADD-FAIL-F2-9. NC2074.2
078800 ADD-DELETE-F2-9. NC2074.2
078900 PERFORM DE-LETE. NC2074.2
079000 GO TO ADD-WRITE-F2-9. NC2074.2
079100 ADD-FAIL-F2-9. NC2074.2
079200 MOVE ACCUMULATOR2 TO COMPUTED-N. NC2074.2
079300 MOVE 18 TO CORRECT-N. NC2074.2
079400 PERFORM FAIL. NC2074.2
079500 ADD-WRITE-F2-9. NC2074.2
079600 PERFORM PRINT-DETAIL. NC2074.2
079700* NC2074.2
079800 ADD-INIT-F2-10. NC2074.2
079900 MOVE "ADD-TEST-F2-10 " TO PAR-NAME. NC2074.2
080000 MOVE "QUALIFIED ADDITION" TO FEATURE. NC2074.2
080100 MOVE "IV-18 4.3.8.1" TO ANSI-REFERENCE. NC2074.2
080200 MOVE ZERO TO ACCUMULATOR2. NC2074.2
080300 ADD-TEST-F2-10. NC2074.2
080400 ADD TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN NC2074.2
080500 TABLE-LEVEL-3A IN TABLE-LEVEL-4B IN TABLE-LEVEL-5A NC2074.2
080600 TBL-ITEM-1 OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN NC2074.2
080700 TABLE-LEVEL-3A IN TABLE-LEVEL-4B IN TABLE-LEVEL-5A NC2074.2
080800 GIVING ACCUMULATOR2. NC2074.2
080900 IF ACCUMULATOR2 EQUAL TO 20 NC2074.2
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.79 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.
|
