Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/SQL P/dml100-186/   (Beweissystem der NASA Version 6.0.9©)  Datei vom 4.1.2008 mit Größe 44 kB image not shown  

SSL nc238a.cob   Sprache: Cobol

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

93%


¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.29Angebot  Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können  ¤

*Eine klare Vorstellung vom Zielzustand




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.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.