Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/VDM/VDMRT/VeMoRT/     Datei vom 13.4.2020 mit Größe 731 B image not shown  

Quelle  if102a.cob   Sprache: Cobol

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

94%


¤ Dauer der Verarbeitung: 0.27 Sekunden  (vorverarbeitet)  ¤

*© Formatika GbR, Deutschland




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.