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