Quelle nc248a.cob Sprache: Cobol

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

quality91%

¤ Dauer der Verarbeitung: 0.23 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.