Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/verschiedene-Autoren/AbsInt-Group/ (Columbo Version 0.7^©)

SSL nc112a.cob Sprache: Cobol

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

--> maximum size reached

--> --------------------

quality94%

¤ Dauer der Verarbeitung: 0.35 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.