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


Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/SQL P/sdl/ (Beweissystem der NASA Version 6.0.9^©) Datei vom 4.1.2008 mit Größe 5 kB

Quelle nc241a.cob Sprache: Cobol

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

quality90%

¤ 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.0.28Bemerkung: (vorverarbeitet) ¤

*Bot Zugriff

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.