sichere Verbindung rahmenlose Ansicht Druckansicht SSL unsichere Verbindung Verzeichnis aufwärts
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Roqc/test-suite/output/   (Columbo Version 0.7©)  Datei vom 15.8.2025 mit Größe 1009 B image not shown  

Untersuchungsergebnis nc131a.cob   Sprache: Cobol

 
000100 IDENTIFICATION DIVISION.                                         NC1314.2
000200 PROGRAM-ID.                                                      NC1314.2
000300     NC131A.                                                      NC1314.2
000400****************************************************************  NC1314.2
000500*                                                              *  NC1314.2
000600*    VALIDATION FOR:-                                          *  NC1314.2
000700*                                                              *  NC1314.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC1314.2
000900*                                                              *  NC1314.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC1314.2
001100*                                                              *  NC1314.2
001200****************************************************************  NC1314.2
001300*                                                              *  NC1314.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC1314.2
001500*                                                              *  NC1314.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  NC1314.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  NC1314.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  NC1314.2
001900*                                                              *  NC1314.2
002000****************************************************************  NC1314.2
002100*                                                                 NC1314.2
002200*    PROGRAM NC131A TESTS FORMAT 1 OF THE SET STATEMENT USING     NC1314.2
002300*    VARIOUS COMBINATIONS OF INDEX-NAMES, IDENTIFIERS & INTEGERS  NC1314.2
002400*                                                                 NC1314.2
002500 ENVIRONMENT DIVISION.                                            NC1314.2
002600 CONFIGURATION SECTION.                                           NC1314.2
002700 SOURCE-COMPUTER.                                                 NC1314.2
002800     Card0130.                                                    NC1314.2
002900 OBJECT-COMPUTER.                                                 NC1314.2
003000     Card0131.                                                    NC1314.2
003100 INPUT-OUTPUT SECTION.                                            NC1314.2
003200 FILE-CONTROL.                                                    NC1314.2
003300     SELECT PRINT-FILE ASSIGN TO                                  NC1314.2
003400     "C0085" .                                                    NC1314.2
003500 DATA DIVISION.                                                   NC1314.2
003600 FILE SECTION.                                                    NC1314.2
003700 FD  PRINT-FILE.                                                  NC1314.2
003800 01  PRINT-REC PICTURE X(120).                                    NC1314.2
003900 01  DUMMY-RECORD PICTURE X(120).                                 NC1314.2
004000 WORKING-STORAGE SECTION.                                         NC1314.2
004100 77  I-DATA-1  USAGE IS INDEX.                                    NC1314.2
004200 77  IDENT-1   PICTURE   9 VALUE IS 4.                            NC1314.2
004300 77  IDENT-2   PICTURE 9.                                         NC1314.2
004400 77  IDENT-3  PICTURE S99  USAGE COMPUTATIONAL.                   NC1314.2
004500 77  SGN-IDX          PICTURE  9(18).                             NC1314.2
004600 01   INDEX-VALUE  PIC 9999.                                      NC1314.2
004700 01  I-DATA-GROUP USAGE IS INDEX.                                 NC1314.2
004800     02  I-DATA-2 USAGE IS INDEX.                                 NC1314.2
004900     02  I-DATA-3 USAGE IS INDEX.                                 NC1314.2
005000 01  TABLE-1.                                                     NC1314.2
005100     02  TAB1-REC  PICTURE  99  OCCURS 100 TIMES                  NC1314.2
005200                   INDEXED BY INDEX1.                             NC1314.2
005300 01  TABLE-2.                                                     NC1314.2
005400     02  TAB2-REC  PICTURE 999 OCCURS 100 TIMES                   NC1314.2
005500                   INDEXED BY INDEX2.                             NC1314.2
005600 01  TEST-RESULTS.                                                NC1314.2
005700     02 FILLER                   PIC X      VALUE SPACE.          NC1314.2
005800     02 FEATURE                  PIC X(20)  VALUE SPACE.          NC1314.2
005900     02 FILLER                   PIC X      VALUE SPACE.          NC1314.2
006000     02 P-OR-F                   PIC X(5)   VALUE SPACE.          NC1314.2
006100     02 FILLER                   PIC X      VALUE SPACE.          NC1314.2
006200     02  PAR-NAME.                                                NC1314.2
006300       03 FILLER                 PIC X(19)  VALUE SPACE.          NC1314.2
006400       03  PARDOT-X              PIC X      VALUE SPACE.          NC1314.2
006500       03 DOTVALUE               PIC 99     VALUE ZERO.           NC1314.2
006600     02 FILLER                   PIC X(8)   VALUE SPACE.          NC1314.2
006700     02 RE-MARK                  PIC X(61).                       NC1314.2
006800 01  TEST-COMPUTED.                                               NC1314.2
006900     02 FILLER                   PIC X(30)  VALUE SPACE.          NC1314.2
007000     02 FILLER                   PIC X(17)  VALUE                 NC1314.2
007100            " COMPUTED=".                                   NC1314.2
007200     02 COMPUTED-X.                                               NC1314.2
007300     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          NC1314.2
007400     03 COMPUTED-N               REDEFINES COMPUTED-A             NC1314.2
007500                                 PIC -9(9).9(9).                  NC1314.2
007600     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         NC1314.2
007700     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     NC1314.2
007800     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     NC1314.2
007900     03       CM-18V0 REDEFINES COMPUTED-A.                       NC1314.2
008000         04 COMPUTED-18V0                    PIC -9(18).          NC1314.2
008100         04 FILLER                           PIC X.               NC1314.2
008200     03 FILLER PIC X(50) VALUE SPACE.                             NC1314.2
008300 01  TEST-CORRECT.                                                NC1314.2
008400     02 FILLER PIC X(30) VALUE SPACE.                             NC1314.2
008500     02 FILLER PIC X(17) VALUE " CORRECT =".                NC1314.2
008600     02 CORRECT-X.                                                NC1314.2
008700     03 CORRECT-A                  PIC X(20) VALUE SPACE.         NC1314.2
008800     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      NC1314.2
008900     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         NC1314.2
009000     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     NC1314.2
009100     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     NC1314.2
009200     03      CR-18V0 REDEFINES CORRECT-A.                         NC1314.2
009300         04 CORRECT-18V0                     PIC -9(18).          NC1314.2
009400         04 FILLER                           PIC X.               NC1314.2
009500     03 FILLER PIC X(2) VALUE SPACE.                              NC1314.2
009600     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     NC1314.2
009700 01  CCVS-C-1.                                                    NC1314.2
009800     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PANC1314.2
009900-    "SS PARAGRAPH-NAME NC1314.2
010000-    " REMARKS".                                            NC1314.2
010100     02 FILLER                     PIC X(20)    VALUE SPACE.      NC1314.2
010200 01  CCVS-C-2.                                                    NC1314.2
010300     02 FILLER                     PIC X        VALUE SPACE.      NC1314.2
010400     02 FILLER                     PIC X(6)     VALUE "TESTED".   NC1314.2
010500     02 FILLER                     PIC X(15)    VALUE SPACE.      NC1314.2
010600     02 FILLER                     PIC X(4)     VALUE "FAIL".     NC1314.2
010700     02 FILLER                     PIC X(94)    VALUE SPACE.      NC1314.2
010800 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       NC1314.2
010900 01  REC-CT                        PIC 99       VALUE ZERO.       NC1314.2
011000 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       NC1314.2
011100 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       NC1314.2
011200 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       NC1314.2
011300 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       NC1314.2
011400 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       NC1314.2
011500 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       NC1314.2
011600 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      NC1314.2
011700 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       NC1314.2
011800 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     NC1314.2
011900 01  CCVS-H-1.                                                    NC1314.2
012000     02  FILLER                    PIC X(39)    VALUE SPACES.     NC1314.2
012100     02  FILLER                    PIC X(42)    VALUE             NC1314.2
012200     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 NC1314.2
012300     02  FILLER                    PIC X(39)    VALUE SPACES.     NC1314.2
012400 01  CCVS-H-2A.                                                   NC1314.2
012500   02  FILLER                        PIC X(40)  VALUE SPACE.      NC1314.2
012600   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  NC1314.2
012700   02  FILLER                        PIC XXXX   VALUE             NC1314.2
012800     "4.2 ".                                                      NC1314.2
012900   02  FILLER                        PIC X(28)  VALUE             NC1314.2
013000            " COPY - NOT FOR DISTRIBUTION".                       NC1314.2
013100   02  FILLER                        PIC X(41)  VALUE SPACE.      NC1314.2
013200                                                                  NC1314.2
013300 01  CCVS-H-2B.                                                   NC1314.2
013400   02  FILLER                        PIC X(15)  VALUE             NC1314.2
013500            "TEST RESULT OF ".                                    NC1314.2
013600   02  TEST-ID                       PIC X(9).                    NC1314.2
013700   02  FILLER                        PIC X(4)   VALUE             NC1314.2
013800            " IN ".                                               NC1314.2
013900   02  FILLER                        PIC X(12)  VALUE             NC1314.2
014000     " HIGH ".                                              NC1314.2
014100   02  FILLER                        PIC X(22)  VALUE             NC1314.2
014200            " LEVEL VALIDATION FOR ".                             NC1314.2
014300   02  FILLER                        PIC X(58)  VALUE             NC1314.2
014400     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1314.2
014500 01  CCVS-H-3.                                                    NC1314.2
014600     02  FILLER                      PIC X(34)  VALUE             NC1314.2
014700            " FOR OFFICIAL USE ONLY ".                         NC1314.2
014800     02  FILLER                      PIC X(58)  VALUE             NC1314.2
014900     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1314.2
015000     02  FILLER                      PIC X(28)  VALUE             NC1314.2
015100            " COPYRIGHT 1985 ".                                NC1314.2
015200 01  CCVS-E-1.                                                    NC1314.2
015300     02 FILLER                       PIC X(52)  VALUE SPACE.      NC1314.2
015400     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              NC1314.2
015500     02 ID-AGAIN                     PIC X(9).                    NC1314.2
015600     02 FILLER                       PIC X(45)  VALUE SPACES.     NC1314.2
015700 01  CCVS-E-2.                                                    NC1314.2
015800     02  FILLER                      PIC X(31)  VALUE SPACE.      NC1314.2
015900     02  FILLER                      PIC X(21)  VALUE SPACE.      NC1314.2
016000     02 CCVS-E-2-2.                                               NC1314.2
016100         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      NC1314.2
016200         03 FILLER                   PIC X      VALUE SPACE.      NC1314.2
016300         03 ENDER-DESC               PIC X(44)  VALUE             NC1314.2
016400            "ERRORS ENCOUNTERED".                                 NC1314.2
016500 01  CCVS-E-3.                                                    NC1314.2
016600     02  FILLER                      PIC X(22)  VALUE             NC1314.2
016700            " FOR OFFICIAL USE ONLY".                             NC1314.2
016800     02  FILLER                      PIC X(12)  VALUE SPACE.      NC1314.2
016900     02  FILLER                      PIC X(58)  VALUE             NC1314.2
017000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1314.2
017100     02  FILLER                      PIC X(13)  VALUE SPACE.      NC1314.2
017200     02 FILLER                       PIC X(15)  VALUE             NC1314.2
017300             " COPYRIGHT 1985".                                   NC1314.2
017400 01  CCVS-E-4.                                                    NC1314.2
017500     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      NC1314.2
017600     02 FILLER                       PIC X(4)   VALUE " OF ".     NC1314.2
017700     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      NC1314.2
017800     02 FILLER                       PIC X(40)  VALUE             NC1314.2
017900      " TESTS WERE EXECUTED SUCCESSFULLY".                       NC1314.2
018000 01  XXINFO.                                                      NC1314.2
018100     02 FILLER                       PIC X(19)  VALUE             NC1314.2
018200            "*** INFORMATION ***".                                NC1314.2
018300     02 INFO-TEXT.                                                NC1314.2
018400       04 FILLER                     PIC X(8)   VALUE SPACE.      NC1314.2
018500       04 XXCOMPUTED                 PIC X(20).                   NC1314.2
018600       04 FILLER                     PIC X(5)   VALUE SPACE.      NC1314.2
018700       04 XXCORRECT                  PIC X(20).                   NC1314.2
018800     02 INF-ANSI-REFERENCE           PIC X(48).                   NC1314.2
018900 01  HYPHEN-LINE.                                                 NC1314.2
019000     02 FILLER  PIC IS X VALUE IS SPACE.                          NC1314.2
019100     02 FILLER  PIC IS X(65)    VALUE IS "************************NC1314.2
019200-    "*****************************************".                 NC1314.2
019300     02 FILLER  PIC IS X(54)    VALUE IS "************************NC1314.2
019400-    "******************************".                            NC1314.2
019500 01  CCVS-PGM-ID                     PIC X(9)   VALUE             NC1314.2
019600     "NC131A".                                                    NC1314.2
019700 PROCEDURE DIVISION.                                              NC1314.2
019800 CCVS1 SECTION.                                                   NC1314.2
019900 OPEN-FILES.                                                      NC1314.2
020000     OPEN     OUTPUT PRINT-FILE.                                  NC1314.2
020100     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   NC1314.2
020200     MOVE    SPACE TO TEST-RESULTS.                               NC1314.2
020300     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             NC1314.2
020400     GO TO CCVS1-EXIT.                                            NC1314.2
020500 CLOSE-FILES.                                                     NC1314.2
020600     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   NC1314.2
020700 TERMINATE-CCVS.                                                  NC1314.2
020800     EXIT PROGRAM.                                                NC1314.2
020900 TERMINATE-CALL.                                                  NC1314.2
021000     STOP     RUN.                                                NC1314.2
021100 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         NC1314.2
021200 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           NC1314.2
021300 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          NC1314.2
021400 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      NC1314.2
021500     MOVE "****TEST DELETED****" TO RE-MARK.                      NC1314.2
021600 PRINT-DETAIL.                                                    NC1314.2
021700     IF REC-CT NOT EQUAL TO ZERO                                  NC1314.2
021800             MOVE "." TO PARDOT-X                                 NC1314.2
021900             MOVE REC-CT TO DOTVALUE.                             NC1314.2
022000     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      NC1314.2
022100     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               NC1314.2
022200        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 NC1314.2
022300          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 NC1314.2
022400     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              NC1314.2
022500     MOVE SPACE TO CORRECT-X.                                     NC1314.2
022600     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         NC1314.2
022700     MOVE     SPACE TO RE-MARK.                                   NC1314.2
022800 HEAD-ROUTINE.                                                    NC1314.2
022900     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC1314.2
023000     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC1314.2
023100     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC1314.2
023200     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC1314.2
023300 COLUMN-NAMES-ROUTINE.                                            NC1314.2
023400     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1314.2
023500     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1314.2
023600     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        NC1314.2
023700 END-ROUTINE.                                                     NC1314.2
023800     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC1314.2
023900 END-RTN-EXIT.                                                    NC1314.2
024000     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1314.2
024100 END-ROUTINE-1.                                                   NC1314.2
024200      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      NC1314.2
024300      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               NC1314.2
024400      ADD PASS-COUNTER TO ERROR-HOLD.                             NC1314.2
024500*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC1314.2
024600      MOVE PASS-COUNTER TO CCVS-E-4-1.                            NC1314.2
024700      MOVE ERROR-HOLD TO CCVS-E-4-2.                              NC1314.2
024800      MOVE CCVS-E-4 TO CCVS-E-2-2.                                NC1314.2
024900      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           NC1314.2
025000  END-ROUTINE-12.                                                 NC1314.2
025100      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        NC1314.2
025200     IF       ERROR-COUNTER IS EQUAL TO ZERO                      NC1314.2
025300         MOVE "NO " TO ERROR-TOTAL                                NC1314.2
025400         ELSE                                                     NC1314.2
025500         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC1314.2
025600     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           NC1314.2
025700     PERFORM WRITE-LINE.                                          NC1314.2
025800 END-ROUTINE-13.                                                  NC1314.2
025900     IF DELETE-COUNTER IS EQUAL TO ZERO                           NC1314.2
026000         MOVE "NO " TO ERROR-TOTAL  ELSE                          NC1314.2
026100         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      NC1314.2
026200     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   NC1314.2
026300     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1314.2
026400      IF   INSPECT-COUNTER EQUAL TO ZERO                          NC1314.2
026500          MOVE "NO " TO ERROR-TOTAL                               NC1314.2
026600      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   NC1314.2
026700      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            NC1314.2
026800      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          NC1314.2
026900     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1314.2
027000 WRITE-LINE.                                                      NC1314.2
027100     ADD 1 TO RECORD-COUNT.                                       NC1314.2
027200     IF RECORD-COUNT GREATER 42                                   NC1314.2
027300         MOVE DUMMY-RECORD TO DUMMY-HOLD                          NC1314.2
027400         MOVE SPACE TO DUMMY-RECORD                               NC1314.2
027500         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  NC1314.2
027600         MOVE CCVS-H-1  TO DUMMY-RECORD  PERFORM WRT-LN 2 TIMES   NC1314.2
027700         MOVE CCVS-H-2A TO DUMMY-RECORD  PERFORM WRT-LN 2 TIMES   NC1314.2
027800         MOVE CCVS-H-2B TO DUMMY-RECORD  PERFORM WRT-LN 3 TIMES   NC1314.2
027900         MOVE CCVS-H-3  TO DUMMY-RECORD  PERFORM WRT-LN 3 TIMES   NC1314.2
028000         MOVE CCVS-C-1  TO DUMMY-RECORD  PERFORM WRT-LN           NC1314.2
028100         MOVE CCVS-C-2  TO DUMMY-RECORD  PERFORM WRT-LN           NC1314.2
028200         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          NC1314.2
028300         MOVE DUMMY-HOLD TO DUMMY-RECORD                          NC1314.2
028400         MOVE ZERO TO RECORD-COUNT.                               NC1314.2
028500     PERFORM WRT-LN.                                              NC1314.2
028600 WRT-LN.                                                          NC1314.2
028700     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               NC1314.2
028800     MOVE SPACE TO DUMMY-RECORD.                                  NC1314.2
028900 BLANK-LINE-PRINT.                                                NC1314.2
029000     PERFORM WRT-LN.                                              NC1314.2
029100 FAIL-ROUTINE.                                                    NC1314.2
029200     IF     COMPUTED-X NOT EQUAL TO SPACE                         NC1314.2
029300            GO TO FAIL-ROUTINE-WRITE.                             NC1314.2
029400     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC1314.2
029500     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC1314.2
029600     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   NC1314.2
029700     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1314.2
029800     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC1314.2
029900     GO TO  FAIL-ROUTINE-EX.                                      NC1314.2
030000 FAIL-ROUTINE-WRITE.                                              NC1314.2
030100     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         NC1314.2
030200     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 NC1314.2
030300     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC1314.2
030400     MOVE   SPACES TO COR-ANSI-REFERENCE.                         NC1314.2
030500 FAIL-ROUTINE-EX. EXIT.                                           NC1314.2
030600 BAIL-OUT.                                                        NC1314.2
030700     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   NC1314.2
030800     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           NC1314.2
030900 BAIL-OUT-WRITE.                                                  NC1314.2
031000     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  NC1314.2
031100     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC1314.2
031200     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1314.2
031300     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC1314.2
031400 BAIL-OUT-EX. EXIT.                                               NC1314.2
031500 CCVS1-EXIT.                                                      NC1314.2
031600     EXIT.                                                        NC1314.2
031700 SECT-NC131A-001 SECTION.                                         NC1314.2
031800 TEST-1.                                                          NC1314.2
031900     MOVE "VI-127 6.23.4" TO ANSI-REFERENCE.                      NC1314.2
032000     SET INDEX1 TO 5.                                             NC1314.2
032100     IF INDEX1 EQUAL TO 5 PERFORM PASS GO TO OK1.                 NC1314.2
032200     SET SGN-IDX TO INDEX1.                                       NC1314.2
032300     MOVE SGN-IDX TO COMPUTED-18V0.                               NC1314.2
032400     MOVE 5 TO CORRECT-18V0.                                      NC1314.2
032500     PERFORM FAIL.                                                NC1314.2
032600 OK1.                                                             NC1314.2
032700     MOVE "TEST-1" TO PAR-NAME.                                   NC1314.2
032800     MOVE  "SET OPT 1" TO FEATURE.                               NC1314.2
032900     PERFORM PRINT-DETAIL.                                        NC1314.2
033000 TEST-2.                                                          NC1314.2
033100     SET INDEX1 TO IDENT-1.                                       NC1314.2
033200     IF INDEX1 EQUAL TO 4 PERFORM PASS GO TO OK2.                 NC1314.2
033300     SET SGN-IDX TO INDEX1.                                       NC1314.2
033400     MOVE SGN-IDX TO COMPUTED-18V0.                               NC1314.2
033500     MOVE IDENT-1 TO CORRECT-18V0.                                NC1314.2
033600     PERFORM FAIL.                                                NC1314.2
033700 OK2.                                                             NC1314.2
033800     MOVE "TEST-2" TO PAR-NAME.                                   NC1314.2
033900     MOVE "SET OPT 2" TO FEATURE.                                NC1314.2
034000     PERFORM PRINT-DETAIL.                                        NC1314.2
034100 TEST-3.                                                          NC1314.2
034200     SET INDEX1 TO 4.                                             NC1314.2
034300     SET INDEX2 TO INDEX1.                                        NC1314.2
034400     IF INDEX2 EQUAL TO INDEX1 PERFORM PASS GO TO OK3.            NC1314.2
034500     SET SGN-IDX TO INDEX2.                                       NC1314.2
034600     MOVE SGN-IDX TO COMPUTED-18V0.                               NC1314.2
034700     MOVE 4 TO CORRECT-18V0.                                      NC1314.2
034800     PERFORM FAIL.                                                NC1314.2
034900 OK3.                                                             NC1314.2
035000     MOVE "TEST-3" TO PAR-NAME.                                   NC1314.2
035100     MOVE "SET OPT 3" TO FEATURE.                                NC1314.2
035200     PERFORM PRINT-DETAIL.                                        NC1314.2
035300 TEST-4.                                                          NC1314.2
035400     SET INDEX2 TO 4.                                             NC1314.2
035500     SET I-DATA-1  TO INDEX2.                                     NC1314.2
035600     IF I-DATA-1 EQUAL TO INDEX2 PERFORM PASS GO TO OK4.          NC1314.2
035700     SET      INDEX-VALUE TO INDEX2.                              NC1314.2
035800     MOVE     INDEX-VALUE TO COMPUTED-18V0.                       NC1314.2
035900     MOVE 4 TO CORRECT-18V0.                                      NC1314.2
036000     PERFORM FAIL.                                                NC1314.2
036100 OK4.                                                             NC1314.2
036200     MOVE "TEST-4" TO PAR-NAME.                                   NC1314.2
036300     MOVE  "SET OPT 4" TO FEATURE.                               NC1314.2
036400     PERFORM PRINT-DETAIL.                                        NC1314.2
036500 TEST-5.                                                          NC1314.2
036600     SET INDEX2 TO 4.                                             NC1314.2
036700     SET I-DATA-1 TO INDEX2.                                      NC1314.2
036800     SET I-DATA-2 TO I-DATA-1.                                    NC1314.2
036900     IF I-DATA-2 EQUAL TO I-DATA-1 PERFORM PASS GO TO OK5.        NC1314.2
037000     SET      INDEX-VALUE TO INDEX2.                              NC1314.2
037100     MOVE     INDEX-VALUE TO COMPUTED-18V0.                       NC1314.2
037200     MOVE 4 TO CORRECT-18V0.                                      NC1314.2
037300     PERFORM FAIL.                                                NC1314.2
037400 OK5.                                                             NC1314.2
037500     MOVE "TEST-5" TO PAR-NAME.                                   NC1314.2
037600     MOVE "SET OPT 5" TO FEATURE.                                NC1314.2
037700     PERFORM PRINT-DETAIL.                                        NC1314.2
037800 TEST-6.                                                          NC1314.2
037900     SET INDEX2 TO 6.                                             NC1314.2
038000     SET IDENT-2 TO  INDEX2.                                      NC1314.2
038100     IF IDENT-2 EQUAL TO INDEX2 PERFORM PASS GO TO OK6.           NC1314.2
038200     SET SGN-IDX TO INDEX2.                                       NC1314.2
038300     MOVE SGN-IDX TO COMPUTED-18V0.                               NC1314.2
038400     MOVE 6 TO CORRECT-18V0.                                      NC1314.2
038500     PERFORM FAIL.                                                NC1314.2
038600 OK6.                                                             NC1314.2
038700     MOVE "TEST-6" TO PAR-NAME.                                   NC1314.2
038800     MOVE "SET OPT 6" TO FEATURE.                                NC1314.2
038900     PERFORM PRINT-DETAIL.                                        NC1314.2
039000     MOVE SPACE TO FEATURE.                                       NC1314.2
039100 END-TEST.                                                        NC1314.2
039200     PERFORM BLANK-LINE-PRINT 2 TIMES.                            NC1314.2
039300      MOVE "ASCENDING NUMBER LIST" TO RE-MARK.                    NC1314.2
039400      PERFORM PRINT-DETAIL.                                       NC1314.2
039500     PERFORM BLANK-LINE-PRINT.                                    NC1314.2
039600     SET INDEX1 TO 1.                                             NC1314.2
039700     MOVE 1 TO IDENT-3.                                           NC1314.2
039800 L.  MOVE IDENT-3 TO TAB1-REC (INDEX1).                           NC1314.2
039900     IF   IDENT-3          EQUAL TO 99 GO TO P-LIST.              NC1314.2
040000     ADD 1 TO IDENT-3.                                            NC1314.2
040100     SET INDEX1 TO IDENT-3.                                       NC1314.2
040200     GO TO L.                                                     NC1314.2
040300 P-LIST.                                                          NC1314.2
040400     SET INDEX1 TO 1.                                             NC1314.2
040500     MOVE 1 TO IDENT-3.                                           NC1314.2
040600 M.                                                               NC1314.2
040700      MOVE TAB1-REC (INDEX1) TO RE-MARK.                          NC1314.2
040800      PERFORM PRINT-DETAIL.                                       NC1314.2
040900     IF IDENT-3 EQUAL TO 99 GO TO CL-OSE.                         NC1314.2
041000     ADD 1 TO  IDENT-3.                                           NC1314.2
041100     SET INDEX1 TO IDENT-3.                                       NC1314.2
041200     GO TO M.                                                     NC1314.2
041300 CL-OSE.                                                          NC1314.2
041400     PERFORM BLANK-LINE-PRINT.                                    NC1314.2
041500     MOVE "END OF TABLE LIST" TO RE-MARK.                         NC1314.2
041600     PERFORM PRINT-DETAIL.                                        NC1314.2
041700*                                                                 NC1314.2
041800 IDX-INIT-8.                                                      NC1314.2
041900     MOVE   "VI-127 6.23.4 GR3(c)" TO ANSI-REFERENCE.             NC1314.2
042000     SET     INDEX1 TO 4.                                         NC1314.2
042100 IDX-TEST-8-0.                                                    NC1314.2
042200     SET     INDEX2                                               NC1314.2
042300             IDENT-1 TO INDEX1.                                   NC1314.2
042400 IDX-TEST-8-1.                                                    NC1314.2
042500     IF      IDENT-1 EQUAL TO 4 PERFORM PASS GO TO OK8-1.         NC1314.2
042600     MOVE    IDENT-1 TO COMPUTED-18V0.                            NC1314.2
042700     MOVE    4 TO CORRECT-18V0.                                   NC1314.2
042800     PERFORM FAIL.                                                NC1314.2
042900 OK8-1.                                                           NC1314.2
043000     MOVE   "IDX-TEST-8-1" TO PAR-NAME.                           NC1314.2
043100     PERFORM PRINT-DETAIL.                                        NC1314.2
043200 IDX-TEST-8-2.                                                    NC1314.2
043300     IF      INDEX2  EQUAL TO INDEX1 PERFORM PASS GO TO OK8-2.    NC1314.2
043400     SET     INDEX-VALUE TO INDEX2.                               NC1314.2
043500     MOVE    INDEX-VALUE TO COMPUTED-18V0.                        NC1314.2
043600     MOVE    4 TO CORRECT-18V0.                                   NC1314.2
043700     PERFORM FAIL.                                                NC1314.2
043800 OK8-2.                                                           NC1314.2
043900     MOVE   "IDX-TEST-8-2" TO PAR-NAME.                           NC1314.2
044000     PERFORM PRINT-DETAIL.                                        NC1314.2
044100*                                                                 NC1314.2
044200 IDX-INIT-9.                                                      NC1314.2
044300     MOVE   "VI-127 6.23.4 GR3(c)" TO ANSI-REFERENCE.             NC1314.2
044400     SET     INDEX1 TO 4.                                         NC1314.2
044500 IDX-TEST-9-0.                                                    NC1314.2
044600     SET IDENT-1                                                  NC1314.2
044700         INDEX2  TO INDEX1.                                       NC1314.2
044800 IDX-TEST-9-1.                                                    NC1314.2
044900     IF      IDENT-1 EQUAL TO 4 PERFORM PASS GO TO OK9-1.         NC1314.2
045000     MOVE    IDENT-1 TO COMPUTED-18V0.                            NC1314.2
045100     MOVE    4 TO CORRECT-18V0.                                   NC1314.2
045200     PERFORM FAIL.                                                NC1314.2
045300 OK9-1.                                                           NC1314.2
045400     MOVE   "IDX-TEST-9-1" TO PAR-NAME.                           NC1314.2
045500     PERFORM PRINT-DETAIL.                                        NC1314.2
045600 IDX-TEST-9-2.                                                    NC1314.2
045700     IF      INDEX2  EQUAL TO INDEX1 PERFORM PASS GO TO OK9-2.    NC1314.2
045800     SET     INDEX-VALUE TO INDEX2.                               NC1314.2
045900     MOVE    INDEX-VALUE TO COMPUTED-18V0.                        NC1314.2
046000     MOVE    4 TO CORRECT-18V0.                                   NC1314.2
046100     PERFORM FAIL.                                                NC1314.2
046200 OK9-2.                                                           NC1314.2
046300     MOVE   "IDX-TEST-9-2" TO PAR-NAME.                           NC1314.2
046400     PERFORM PRINT-DETAIL.                                        NC1314.2
046500*                                                                 NC1314.2
046600 CCVS-EXIT SECTION.                                               NC1314.2
046700 CCVS-999999.                                                     NC1314.2
046800     GO TO CLOSE-FILES.                                           NC1314.2

93%


¤ 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.23Bemerkung:  ¤

*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.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.