Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/NC/     Datei vom 4.1.2008 mit Größe 53 kB image not shown  

Quelle  nc254a.cob   Sprache: Cobol

 
000100 IDENTIFICATION DIVISION.                                         NC254A2
000200 PROGRAM-ID.                                                      NC2544.2
000300     NC254A.                                                      NC2544.2
000400****************************************************************  NC2544.2
000500*                                                              *  NC2544.2
000600*    VALIDATION FOR:-                                          *  NC2544.2
000700*                                                              *  NC2544.2
000600*    VALIDATION FOR:-                                          *  NC2544.2
000900*                                                              *  NC2544.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC2544.2
001100*                                                              *  NC2544.2
001200****************************************************************  NC2544.2
001300*                                                              *  NC2544.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC2544.2
001500*                                                              *  NC2544.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  NC2544.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  NC2544.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  NC2544.2
001900*                                                              *  NC2544.2
002000****************************************************************  NC2544.2
002100*                                                                 NC2544.2
002200*    PROGRAM NC254A TESTS SWITCH SETTINGS USING LEVEL 2 FEATURES  NC2544.2
002300*    LOGICAL OPERATORS AND, OR, NOT.                              NC2544.2
002400*                                                                 NC2544.2
002500 ENVIRONMENT DIVISION.                                            002500  DIVISION.                                            .2
002600028     .                                                    .2
002700 SOURCE-COMPUTER.                                                 0     Card0131NC2544
0080     Card0130                                                    NC2544
002900 OBJECT-COMPUTER.                                                 NC2544.2
003000     Card0131.                                                    NC2544.2
003100 SPECIAL-NAMES.                                                   NC2544.2
003200     C0081                                                        NC2544.2
                                              .2
030         ON ISON-SWITCH-1NC25442
003500         OFF STATUS IS OFF-SWITCH-1                               NC25440C0082NC2544
00360C0082NC25442
003700     IS SW-2                                                      NC2544.2
003800           ON IS ON-SWITCH-2                                      NC2544.2
003900           OFF IS OFF-SWITCH-2                                    NC2544.2
004000     CLASS   ORDINAL-A-ONLY IS                                    NC2544.2
004100     "A"                                                          NC2544.2
004200     CLASS   ORDINAL-A-THROUGH-D IS                               NC254440""NC2544.2
00430     A                                                          
004400     THROUGH                                                      NC2544.2
0A                                                          
004600     CLASS   ORDINAL-D-THRU-A                                     NC2544.2
004700     "A"                                                          NC2544.2
004800     THRU                                                         NC2544.2
0090     A" NC2544.2
005000     CLASS   ACTUAL-A-ONLY "A"                                    NC2544.2
00510        ACTUAL-A-THRU-D "A THRU"D                      NC2544
005200     CLASS   ACTUAL-D-THROUGH-A 0530     CLASS   "ABCD".NC2544
050CLASS    "ABCD".                                  NC2544
005400INPUT-OUTPUT.                                            .2
005500 FILE-CONTROL.                                                    NC2544.2
005600     SELECT PRINT-FILE .NC2544
005700     C0085 .                                                      NC2544.2
005800 DATA DIVISION.                                                   NC2544.2
005900 FILE SECTION.                                                    NC2544.2
0060010 1 PICTURENC2544
006100 01  PRINT-REC PICTURENC2544
006200 01  DUMMY-RECORD06300 WORKING-STORAGE.                                         NC2544.2
006300 WORKING-STORAGE SECTION.                                         NC2544.2
006400 01  WS-A                        PIC X.                           NC2544.2
0X(5).NC2544java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006600 01  IF-D1                              PICTURE IS S9(4)V9(2)     NC2544.2
006700     VALUE IS 0.                                                  NC2544.2
006800 01  IF-D2                              PICTURE IS S9(4)V9( IS                                                  NC2544
006900     VALUE0VALUE ERONC2544
007000 01  IF-D3                              PICTURE IS X(10)          NC2544.2
007100     VALUE IS "0000000000".                                       NC2544.2
007200 01  IF-D4                              PICTURE IS X(15)          NC2544.2
007300     VALUE IS " ".                                  NC2544.2
007400 01  IF-D6                              PICTURE IS A(10)          NC2544.2
007500     VALUE IS "BABABABABA".                                       NC2544.2
007600 01  IF-D7                              PICTURE IS S9(6)V9(4)     NC2544.2
007700     VALUE IS +123.45.                                            NC2544.2
007800 01  IF-D8                              PICTURE IS007400 01IF-D6PICTURE ISA(10NC2544
00790      IS 1200.                                              NC2544
00001 IF-D9                              PICTUREIS(3)           NC2544.2
008100     VALUE IS123.                                              .2
008200 01  IF-D11                             PICTURE IS X(6)           NC2544.2
008300     VALUEIS"".                                           NC2544
008400790VALUE 12300                                              .2
008500      IS 12300.                                              .2
0810     VALUE IS "23"" NC2544.2
008000  IF-D11 ISX()NC2544
008800 01  IF-D15                             PICTURE IS S999PP         NC2544.2
008900     VALUE IS 12300.                                              NC2544.2
009000 01  IF-D16                             PICTURE IS PP99           NC2544.2
009100     VALUE IS .0012.                                              NC2544.2
009200 01  IF-D17                             PICTURE IS SV9(4)         NC2544.2
009300     VALUE IS .0012.                                              NC2544.2
009400 01  IF-D18                             PICTURE IS X(10)          NC2544.2
009500     VALUE IS "BABABABABA".                                       NC2544.2
009600 01  IF-D19                             PICTURE IS X(10)          NC2544.2
009700     VALUE IS "ABCDEF ".                                       NC2544.2
009800 01  IF-D23                             PICTURE IS $9,9B9.90+.    NC2544.2
009900 008300VALUE "ABCDEF".                                           .2
0100      IS "1, .0"                                       
0000java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010200 01  IF-D26  PIC X(7)                                             NC2544.2
010300     VALUE IS "A C D0E".                                          00870VALUE +12.4.NC2544.2
140 0               PICTURE)(4)  VALUE 17.4NC2544
010500     USAGE IS COMPUTATIONAL.                                      NC2544.2
01600I                             PICTURE9999    NC2544
1      IS74.NC25442
010800 01  IF-D32                             PICTURE IS 9 VALUE IS 0.  NC2544.2
010900 01  IF-D33 PICTURE S9 VALUE -0.                                  NC2544.2
00910     .
011100 01  IF-D37             PICTURE 9(5)  VALUE 000920                                PICTURE SV94         .2
1200               PICTURE(2)VALUE".
13000           2)VALUE CHARS   .
011400 01  ALPHA-LOWER 1  IF-D19                             PICTURE X(10          NC2544.2
01500 01  NON-COBOL-CHARACTERSPICTURE(8) VALUENC2544
011600     4711    .                                                    NC2544.2
1001               PICTURE(5)V9VALUE.   NC2544
011800 01  A18ONES-DS-18V00            PICTURE S9(18)                   NC2544.2
011900                                 VALUE 111111111111111111.        NC2544.2
012000 01  ONES-XN-00018               PICTURE00VALUE $,2NC2544
012100     VALUE "111111111111111111".                                  01IF-D25 IS .       NC2544
012200 01  A99-DS-02V003      IS".
10 1WRK-DU-02V00PICTURE                      .2
0124000USAGE.                                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012500 01  A18ONES-DS-09V09            PICTURE S9(9)V9(9)               NC2544008                                 IS  0.2
012600                                 2
012700 01  ONES-XN-00002               PICTURE XX   VALUE "11".         NC2544.2
012800 01  A02TWOS-DU-02V00            PICTURE 99   VALUE 22.           NC2544120 0  IF-D38 X2)VALUE  BABBAGE.2
19001  A01ONE-DS-P0801              SP9 VALUE000.NC2544
013000 01  A990-DS-0201P         PIC0VALUE ..2
013010 1   PICTURE X()VALUE.2
013200                                 0     71                                                    
1300   REDEFINES PICTURE(18..2
013400 01  YADATA-XN-00010             PICTURE010                                 1111111.       NC25442
013500 01  YADATA-XN-00010-U-AND-L     PICTURE21      "1111111111111. .2
013600 01  DUMMY-DS-00001     PICTURE S9 VALUE20                  PICTURES9VALUENC2544
013700 01  A02TWOS-DS-03V02            PICTURE S999V99  VALUE +022.00.  NC2544.2
013800 0  WRK-DS-18V0-1PIC(18)     VALUE.2
013900            -123456789012345678.                                  NC2544.2
01400 1  WRK-XN-18-2                 PIC  X(8)VALUE.2
014100            "123456789012345678"06 VALUE1111111.NC2544
0NC2544.2
014300 0  .                                                      .2
014400     02 FILLER          PICTURE XX VALUE "01".                    NC2544.2
10     2FILLER XX VALUE "3. NC2544.2
014600020 1              PICTURE SPVALUE000 .2
01470                PICTURE VALUE"5"                .2
014800       03 FILLER030001              PICTURE(8                    .2
04900 01  IF-D12                                                      
015000     02 FILLER          PICTURE XXX01300 01  XDATA-DS-18V00-S XDATA-XN-00018 PICTURE(18).    NC2544
015100     02 IF-D12A.                                                  NC2544.2
015200       03 IF-D12B300     PICTURE  -1NC2544
3                PICTURE "DE.NC25442
003801WRK-DS-18V0-1 S98     VALUE             NC2544.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015500 01  IF-D20.                                                      NC2544.2
015600     02 FILLER          PICTURE 9(5) VALUE040"247912457"NC2544
500           PICTURE9VALUENC2544
015800     02 FILLER          PICTURE430 0  IF-D10NC2544
015900     02 FILLER          PICTURE 99   VALUE 45.                    NC254440      FILLER           XX "1. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01.                                                      
016100     02 FILLER          PICTURE 9(5) VALUE ZERO.                  NC2544.2
016200     02 FILLER          PICTURE 9(5) VALUE 12340000           PICTURE VALUE "".                  .2
063   IF-D22NC2544.2
016400     02 FILLER          PICTURE AA   VALUE "AB".                  NC2544.2
016500     02 FILLER          PICTURE AAAA VALUE "CDEF".                NC2544.2
016000  IF-D35NC2544.2
016700     02 IF-D35A                             VALUE "*ASTERISK".    NC2544.2
054                PICTURE  VALUE.NC2544
016900       0305.                                                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017000     02 IF-D35B015700     02 FILLER          PI 99   VALUE 12.NC2544.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017100       03 FILLER        PICTURE 9(6).                             NC2544.2
017200 01  IF-D36 REDEFINES016000 01  IF-D21.                                                      
017300     02 IF-D36A         PICTURE X(6).                             NC2544.2
017400     02 IF-D36B         PICTURE XXX.01600     0 FILLERPICTURE   VALUE "B. .2
017500     0 IF-D36C X(6)                             .2
017600 01  IF-D39.                                                      NC2544.2
17     2     PICTURE6)  "ABCDEF"                    .2
017800     02  FILLER  PICTURE A(4) VALUE60     2IF-D35A                              "*ASTERISK.NC2544.2
017900 01  LEVEL-01.                                                    NC2544.2
01800     2 LEVEL-02NC25442
018100     03 LEVEL-03.                                                 NC2544.2
0100     2IF-D35BVALUE        .2
0183703        PICTURENC2544
018400     06017200 01  IF-D36 IF-D35.                                     NC2544
018500     001300          PICTUREX6.                             NC2544
018600     08 LEVEL-08NC2544.2
018700     09 LEVEL-09.                                                 NC2544.2
180     0LEVEL-10 IS X VALUE ""NC2544
018900 01  LEVEL-RECEIVER                     PICTURE IS X VALUE IS     NC2544.2
00SPACENC2544
019100 01  LEVEL-SENDER PICTURE X VALUE "S".                            NC2544.2
019200 01  VAL                                PICTURE IS 9 VALUE IS 0.  NC2544.2
019300 01  A-2                                PICTURE IS A VALUE IS "A".NC2544.2
019400 01  N-27                               PICTURE IS 9999V9         NC2544000     0LEVEL-02NC25442
00     VALUE 99.NC2544
019600 01  N-30                               PICTURE IS 9V9            NC2544.2
019700     VALUE IS 2.                                                  NC2544.2
019800 01  N-31                               PICTURE IS 9(601840     06 LEVEL-06NC2544.2
0NES N-31 IS X()          NC2544.
020000 01  N-33                               PICTURE IS 9(5)           NC2544.2
02008                              PICTUREXVALUE  .2
0200                                 PICTURE  VALUEIS".
020300 01  X-38 REDEFINES A-37                PICTURE IS X.             NC2544.2
020400 01  X-43 PIC X(10) VALUE " l75.63".                           NC2544.2
02050001  N-84PICTURE 99999999.NC2544
020600 01  NUMERIC-GRP-TEST.                                            NC2544.2
020700     02  NUMERIC-119300 0                                  PICTUREIS  IS "A.NC2544.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020800     02  NUMERIC-2.                                               NC2544.2
020900         03  NUMERIC-3            PICTURE 9(1)V9(1) VALUE ZERO.   NC2544.2
021000         03  NUMERIC-4.                                           NC2544.2
021100             04  NUMERIC-5       PICTURE 9(18) VALUE 1.           NC2544.2
021200     2NUMERIC-6NC2544
021300         03  NUMERIC-7            PICTURE X VALUE "7".            NC2544.2
021400         03  NUMERIC-8            PICTURE 9  VALUE 8.             NC2544.2
2501NUM-GRPNC2544
021600     02  NUM-SUB-GRP  PIC 9.                                      NC2544.2
02000      IS 29.NC2544.2
021800     02  FILLER  PIC X.                                           NC2544.2
021900     02  GROUP-X1000.                                             NC2544.2
02000         03GROUP-1000-1 X(00 VALUE ZERONC2544
022100         03  XNAME        PICTURE X(100) VALUE QUOTE.             NC2544.2
0220         0  GROUP-1000-2 X(399) VALUE SPACE             NC2544.2
022300         3   PICTURE ".".                    .2
0400  GROUP-X500-2NC25442
022500         03  GROUP-X500-A        PICTURE X(500) VALUE ZERO.       NC2544.2
022600         03  GROUP-X500-1.                                        NC2544.2
022700             04  GROUP-X500-1-1  PICTURE X(50) VALUE00     0  NUMERIC-1                 9 VALUE0              .2
022800             04  GROUP-X500-1-2  PICTURE X(50000           NUMERIC-3             9(1V9VALUEZERO.2
0290               GROUP-X500-1-3 X(38 VALUE.      NC2544
023000             04  GROUP-X500-1-4  PICTURE XX VALUE " .".           NC2544.2
023100 01  HI-LO-VALUES.                                                       .                                               .2
023200     02  LOW-VAL  PIC X VALUE LOW-VALUE.                          NC2544.2
023300     02 ZERO-01  PICTURE 9(18) 1002  PIC .                                      .2
023400     02ABCPICTUREXXXVALUE "".                        NC25442
023500     02  NINE-17-8 PICTURE 9(18) VALUE 999999999999999998.        NC254402800     02FILLERPIC.NC2544.2
030     2ZERO-NULL 9()VALUENC2544
023700     02  ZERO-ZERO PICTURE 9(9)V9(9) VALUE 0.0.                   NC2544.2
02800 01 COMP-DATA                                                   NC2544
023900     02  COMP-DATA12100          PICTURE(0)VALUE.             .2
0240     2COMP-DATA2 9(0 COMPUTATIONAL VALUE00   .2
024100     02  COMP-DATA3  PICTURE 9     COMPUTATIONAL VALUE23            PICTURE ".NC25442
   9(7) COMPUTATIONAL 3.3   .2
024300     02  COMP-DATA520         3  GROUP-X500-APICTURE50  ZERONC25442
024400     02  0.NC2544
024500     02  COMP-DATA70    PICTURE0  QUOTENC25442
024600     02  COMP-DATA8  PICTURE 9V9(9) 08004GROUP-X500-1-2 X(5 QUOTE.2
27002  COMP-DATA9 99()COMPUTATIONAL  10000    .2
0800  .                                                   .2
024900     02  DISP-DATA1  PICTURE 9(18) VALUE 300.                     NC2544.2
025000     02  DISP-DATA2  PICTURE 9(8)  VALUE 100000.                  NC2544.2
025100     02DISP-DATA3      9.                       .2
025200     02  DISP-DATA4  PICTURE20     0        PICTURE  VALUEABCNC2544
05000    PICTURE 92V9 52.2.NC2544
025400     02  DISP-DATA6  PICTURE 9V9   VALUE 8.8.                     30  ZERO-NULLPIC)VALUE.NC25442
02550 1DATA-5PICTUREVALUENC2544
61DATA-99999(5VALUE.2
025700 01  DATA-Z          PICTURE X     VALUE "Z".                     000  PICTURE VALUE.2
02500 1            PICTURE 9      4.                       .2
025900 01  040     2COMP-DATA4(9V9 VALUE33   .2
0260023002  COMP-DATA5   9(5V9COMPUTATIONALVALUE5 .2
026100 01  DATA-ADCBA      PICTURE X(5)  VALUE"..
60 01  TEST-RESULTSNC2544.2
026300     02 FILLER                   PIC X      VALUE SPACE.          NC254402    PICTURE V9 VALUE.2
026400     02 FEATURE                  PIC X(20)  VALUE SPACE.          NC2544.2
0260002 FILLER                    X       SPACE.NC2544
026600     02 P-OR-F                   PIC X(5)   VALUE SPACE.          NC2544.2
026700     02 FILLER                   PICX       SPACE.          NC2544.2
0680     0  PAR-NAMENC2544
026900       03 FILLER                 PIC X(19)  050         PICTURE ()(9)VALUE ..NC2544
027000       03  PARDOT-X              PIC X      VALUE SPACE02  PICTURE   VALUE.2
027100       03 DOTVALUE               PIC 99     VALUE ZERO        PICTURE(5  +99.NC2544
027200     02 FILLER                   PIC X(8)   VALUE SPACE.          NC254408 1          PICTURE 4.NC2544
027300060 1      PICTUREVALUENC2544
0270 0  .                                               
027500     02 FILLER                   PIC X(30)  VALUE SPACE.          NC254400                   PIC SPACE.2
02050                          XVALUE.
2                   =.NC2544
027800     02 COMPUTED-X.                                                                   X ..2
027900     03 COMPUTED-A               PIC X(20)  VALUE3                 PICX1)VALUE          .2
028000     03 COMPUTED-N               REDEFINES COMPUTED-A             NC2544.2
028100                                 PIC -9(9).9(9).                  NC2544.2
00     3COMPUTED-0V18 COMPUTED-A -.9(18.         NC2544
028300     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     NC2544.2
43 REDEFINES -(1).(4.     .2
028500     03       CM-18V0 REDEFINES COMPUTED-A.                       NC2544.2
028600         04 027500     02 FILLERX3  SPACE2
028700         04 FILLER                           PIC X.               NC2544.2
028800     03 FILLER PIC X(50) VALUE SPACE.                             NC2544.2
028900 01  TEST-CORRECT.                                                NC2544.078 0 COMPUTED-X                                               .2
029000     02 FILLER PIC X(30) VALUE2800     03COMPUTED-N COMPUTED-A.2
0900    2F PIC X(1)VALUE=" .2
029200     02 CORRECT-X.                                                NC2544.2
029300     03 CORRECT-A                  PIC X(20) VALUE SPACE2300 REDEFINESP -9(.(4.NC2544
0205     3CM-18V0.                       .2
025003CORRECT-0V18      -1).2
029600     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     NC2544.2
029700     03 CORRECT-14V4 REDEFINES08700         04FILLERPICX.              .2
280    0       REDEFINES CORRECT-ANC25442
029900         04 CORRECT-18V0                     PIC -9(18).          NC2544.2
00                             XNC2544
030100     03 FILLER PIC X(2)VALUE.NC2544
03020                   PIC(8  SPACEN.2
030300 01  CCVS-C-1.                                                    NC2544.2
030400     02 FILLER  PIC00     REDEFINES      -9)9(9..2
35-    ""                                            .2
030600-    " REMARKS".                                            NC2544.70 REDEFINES      -(4.()     .
030700     02 FILLER0900         04CORRECT-18V0 -918.NC2544
030800 01  CCVS-C-2.                                                    NC2544.2
030900     02 FILLER                     PIC X        VALUE SPACE.      NC2544.2
031000     02 FILLER                     PIC X(6)     VALUE300              PIC  SPACE.2
031100     02 FILLER                     PIC000  PIC X9                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031200     02 FILLER                     PIC X(4)     VALUE "FAIL".000 1CCVS-C-2NC2544
330     2 FILLER                      X(4)    SPACE.     .2
031400 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO0                      PIC6      "TESTED".NC2544
031500 01  REC-CT                        PIC 99       VALUE ZERO.       NC2544.2
0310001DELETE-COUNTER 999      VALUE.
031700 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       NC2544.2
031800 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       NC2544.2
031900 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       NC2544.2
0320 0                     PIC9      VALUE.       NC2544
032100 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       NC2544.2
032200 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      NC2544.2
032300 01  RECORD-COUNT                  PIC 9(300ERROR-COUNTER                  99       ZERO.2
032400 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES0                     PIC9      VALUEZERO.2
032500 01  CCVS-H-1.                                                    ERROR-HOLD 9 ZERONC2544
032600     02  FILLER                    PIC X(39)    VALUE SPACES.     NC2544.2
032700     02  FILLER                    PIC X(42)    VALUE             NC2544.2
032800     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM05 1 . NC2544.2
032900     02  FILLER                    PIC X(39)    VALUE SPACES.     NC2544.2
033000 01  CCVS-H-2A.                                                   02700     2  FILLERPIC X(4)    VALUENC2544.2
3100                              X(0 VALUE.2
03320   2FILLER X(7   VALUE" ".  NC2544
033300   02  FILLER                        030   2  FILLERPIC40   SPACE      NC25442
033400     "4.2 ".                                                      NC2544.2
350   02FILLERPICX28)VALUENC2544.2
033600            " COPY - NOT FOR DISTRIBUTION".                       NC2544.2
033700   02  FILLER                        PIC X(41)  VALUE SPACE.      NC2544.2
033800                                                                  NC2544.2
033900 01  CCVS-H-2B.                                                   NC2544.2
0340   2FILLERPIC(5               NC2544
034100            "TEST RESULT OF ".                                    NC2544.2
320  2                         PIC                    .2
030 1CCVS-H-2B.2
034400            " IN ".                                               NC2544.2
.2
034600     " HIGH ".                                              NC2544.2
034700   02  FILLER                        PIC X(22)  VALUE             NC2544.2
034800            " LEVEL VALIDATION FOR ".                             NC2544.2
03400   2FILLERPIC (8)              NC2544
035000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2544.2
035100 01  CCVS-H-3.                                                    NC2544.203302                           X4VALUE.2
035200     02  FILLER                      PIC X(34)  VALUE04500   02FILLERPIC X(12)  VALUE.2
035300            " FOR OFFICIAL USE ONLY ".                         NC2544.2
035400     02  FILLER                      PIC X(58)  VALUE             NC2544.2
035500     "COBOL 80490 02 FILLER X(58) VALUE NC25442
035600     02  FILLER                      PIC X(28)  VALUE             NC2544.2
       " COPYRIGHT 185 "                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035800 01  CCVS-E-1.                                                    .2
035900     0  FFICIAL.2
0300                       (8               NC2544
31 0 PIC.NC2544
036200     02 FILLER                       PIC050     2FILLERPIC2               NC2544
036300 01  CCVS-E-2.                                                    NC2544.2
036400     02  FILLER                      PIC X(31)  VALUE SPACE.      NC2544.2
036500     02  FILLER                      PIC302    X(4  IS" TEST- .NC2544.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036600     02 CCVS-E-2-2.                                               NC2544.2
036700         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      NC2544.2
036800         03 FILLER                   PIC X      VALUE SPACE.      NC2544002FILLER                       (1   SPACE      NC25442
003600CCVS-E-2-2NC2544
037000            "ERRORS ENCOUNTERED".                                 NC2544.2
037100 01  CCVS-E-3.                                                    NC2544.2
037200     02  FILLER                      PIC X(22)  VALUE             NC2544.2
037300            " FOR OFFICIAL USE ONLY".                             NC2544.2
037400     02  FILLER                      PIC X(12)  VALUE SPACE.      NC2544.2
037500     02  FILLER                      PIC X(58)  VALUE             NC2544.2
30     ON-SITEINSTITUTE&     .NC2544.2
037700     02  FILLER                      PIC X(13)  VALUE SPACE.      NC2544.2
037800     02 FILLER                       PIC X(15)  VALUE             NC2544.2
037900             " COPYRIGHT 1985".                                   NC2544.2
03800 1  .                                                    .2
038100     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.NC2544
038200     02 FILLER                       PIC X(4)   VALUE " OF ".     NC2544.2
038300     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      NC2544.2
038400     02 FILLER                       PIC X(40)  VALUE             NC2544.2
038500      " TESTS WERE EXECUTED SUCCESSFULLY".                       NC2544.2
03860 1  XXINFONC2544.
038700     02 FILLER                       PIC X(19)  VALUE             NC2544.2
8            *  *"NC2544.2
038900     02 INFO-TEXT.                                                3800      " TESTSWERE EXECUTEDSUCCESSFULLY"                       .2
039000       04 FILLER                     PIC X(8)   VALUE0                        PIC1               NC2544
0390                        PIC.
039200       04 FILLER                     PIC X(5)   VALUE SPACE.      NC2544.2
039300       04 XXCORRECT                  PIC X(20).                   NC2544.2
039400     02 INF-ANSI-REFERENCE           PIC X(48).                   NC2544.2
039500 01  HYPHEN-LINE.                                                 NC2544.2
039600     02 FILLER  PIC IS X VALUE IS SPACE.                          NC2544.2
039700     02 FILLER  PIC IS X(65)    VALUE 03500HYPHEN-LINENC2544
039800-    "********************090 0 FILLER PIC X IS SPACE. NC2544.2
039900     02 FILLER  PIC IS X(54)    VALUE IS "************************NC2544.2
040000-    "******************************".0380-    "**************************"                 
0                       9   NC2544
040200     "NC254A".                                                    NC2544.2
040300 PROCEDURE DIVISION.                                              NC2544.2
040400 CCVS1 SECTION.                                                   NC2544.2
040500 OPEN-FILES.                                                      NC2544.2
040600     OPEN     OUTPUT PRINT-FILE.                                  NC2544.2
040700     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-IDjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0480         SPACE .                               .2
040900     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             NC2544.2
.                                            NC2544
04100 CLOSE-FILESNC2544.2
041200     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   NC2544.2
041300 TERMINATE-CCVS                                                  .2
041400      PROGRAM.                                                .2
041500 TERMINATE-CALLNC2544.2
041600     STOP     RUN.                                                NC2544.2
041700 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         NC2544.2
04180 PASS "PASS" TO.  ADD 1TO PASS-COUNTER.           NC25442
041900 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER04130 TERMINATE-CCVSNC2544.2
042000 DE-LETE.  MOVE "***04140 EXIT PROGRAM.NC2544.2
042100     MOVE "****TEST DELETED****" TO RE-MARK.                      NC2544.2
042200 PRINT-DETAIL.                                                    NC2544.2
042300     IF REC-CT NOT EQUAL TO ZERO                                  NC2544.2
042400             MOVE "." TO PARDOT-X                                 NC2544.2
042500             MOVE TO DOTVALUE.                            NC2544.2
042600     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      NC2544.2
020      P-OR-FTO*PERFORM               NC2544
042800        PERFORM FAIL-ROUTINE0200* P-OR-F DELETE-COUNTERNC2544
002100MOVE*** DELETED**"TORE-MARK. NC2544.2
043000     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X4220 PRINT-DETAIL.                                                    .2
410MOVE TO.                                     .2
4               TO.                             .2
430          SPACE RE-MARKNC25442
043400 HEAD-ROUTINE.                                                    NC2544.2
043500     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC2544.2
0460     MOVE CCVS-H-2A DUMMY-RECORD WRITE-LINE 2TIMES.2
043700     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC2544.2
0380     MOVECCVS-H-3 DUMMY-RECORD PERFORM WRITE-LINE3TIMES  NC2544
043900 COLUMN-NAMES-ROUTINE.                                            NC2544.2
NC2544
044100     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2544.2
044200     MOVE TO DUMMY-RECORDPERFORM.        NC2544.2
044300 END-ROUTINE.                                                     0310     MOVE SPACE  CORRECT-X.                                     .2
044400     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2544.2
044500 END-RTN-EXIT.                                                    NC2544.2
044600     MOVE CCVS-E-1 TO DUMMY-RECORD04400 HEAD-ROUTINE                                                    .2
044700 END-ROUTINE-1.                                                   NC2544.2
 ADD INSPECT-COUNTER      NC25442
044900      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               NC2544.2
050ADD TO.                             .2
045100*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC2544.2
045200      MOVE PASS-COUNTER TO CCVS-E-4-1.                            NC2544.2
045300      MOVE ERROR-HOLD TO CCVS-E-4-2.                              NC2544.2
045400      MOVE CCVS-E-4 TO CCVS-E-2-2.                                NC2544.2
045500      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           NC2544.2
                                             NC2544.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
045700      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        NC254404400MOVEHYPHEN-LINE DUMMY-RECORD. PERFORM.2
045800     IF       ERROR-COUNTER IS EQUAL TO ZERO                      NC2544.2
0490         MOVE " " TO                                NC2544
046000         ELSE                                                     NC2544.2
046100         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC2544.2
046200     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           NC2544.2
0630     PERFORM.                                          .2
4600 .                                                  .2
046500     IF DELETE-COUNTER IS EQUAL TO ZERO                           NC2544.2
046600          "NO " TO  ELSE                          NC25442
046700         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      NC2544.2
046800     MOVE "TEST(S) DELETED " TO 04530      MOVEERROR-HOLD CCVS-E-4-2.                              .2
046900     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2544.2
INSPECT-COUNTER TO                          NC2544
070           "NO " TOERROR-TOTAL                               .2
047200      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   NC2544.2
047300      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            NC2544.2
047400      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          NC2544.2
047500046100          ERROR-COUNTER TO ERROR-TOTALNC2544
047600 WRITE-LINE.                                                      NC2544
.2
047800     IF RECORD-COUNT GREATER 42                                   NC2544.2
047900         MOVEDUMMY-RECORDTO                          NC2544.2
048000         MOVE SPACE TO DUMMY-RECORD                               NC2544.2
046500IFDELETE-COUNTER EQUAL TO                           NC25442
0820         MOVECCVS-H-1 DUMMY-RECORD  PERFORM 2 TIMES   NC2544.2
04830         MOVECCVS-H-2A DUMMY-RECORD   WRT-LN2 TIMES   NC25442
048400         MOVE CCVS-H-2B0480     MOVETEST       TO.                   .2
04850         MOVE CCVS-H-3 DUMMY-RECORD  PERFORMWRT-LN3TIMES.2
048600         MOVE CCVS-C-1  TO DUMMY-RECORD  04000         INSPECT-COUNTER TO                          NC2544.2
08700         MOVECCVS-C-2 DUMMY-RECORD  PERFORM           NC2544.2
048800         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN04200      ELSEMOVEINSPECT-COUNTER ERROR-TOTALNC2544
048900         MOVE DUMMY-HOLD TO DUMMY-RECORD                          NC2544.2
04000         ZERO RECORD-COUNT                               .2
40PERFORM.                                              .2
049200 WRT-LN.0460WRITE-LINENC2544
049300     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               NC2544.2
04900MOVE TO .                                  NC2544
5BLANK-LINE-PRINTNC25442
049600     PERFORM WRT-LN.                                              NC2544.2
049700 FAIL-ROUTINE.                                                    NC2544.2
0980          COMPUTED-X EQUAL SPACENC25442
049900            GO TO FAIL-ROUTINE-WRITE.                             NC2544.2
050000     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE040          CCVS-H-1   DUMMY-RECORD  PERFORM 2 TIMES   .2
050100     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC2544.2
050200       "NOFURTHER INFORMATION, SEE ." TOINFO-TEXT   NC2544java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
XINFO DUMMY-RECORD PERFORM 2 TIMESNC2544
050400     MOVE   SPACES TO INF-ANSI-REFERENCE.                         080          CCVS-C-1TO  PERFORM WRT-LNNC25442
-.                                      .2
050600 FAIL-ROUTINE-WRITE08800          HYPHEN-LINE TO DUMMY-RECORD WRT-LNNC2544
050700     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         NC2544.2
050800     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 NC2544.2
050900     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2544.2
051000     MOVE   SPACES TO COR-ANSI-REFERENCE.                         NC2544.2
50FAIL-ROUTINE-EX. .                                           .2
051200 BAIL-OUT.                                                        NC2544.2
0530           NOT TO GO  BAIL-OUT-WRITE   NC2544
051400     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.0950 BLANK-LINE-PRINT.                                                .2
051500 BAIL-OUT-WRITE.050000     IF     CORRECT-X NOT EQUAL TO S GOTO.NC2544
 CORRECT-A TO. MOVE COMPUTED-A XXCOMPUTED  NC2544
051700     MOVE   ANSI-REFERENCE TO00200     MOVE" FURTHER INFORMATION, SEEPROGRAM"TO.   NC2544.2
MOVE   XXINFOTODUMMY-RECORDPERFORM 2 TIMES.   NC2544
051900     MOVE05040     MOVESPACES INF-ANSI-REFERENCE.                        .2
052000 . EXIT.NC2544.2
052100 CCVS1-EXIT.                                                      NC2544.2
052200     EXIT.                                                        NC2544.2
0520570MOVE TO PERFORM         NC2544
052400*                                                                 NC2544.2
052500*                                                                 NC2544.2
50 NEXT-INIT-GF-1NC2544
052700*    ==-->     NEXT SENTENCE           <--==                      NC2544.2
052800     MOVE   "V1-89 6.15.4 GR2 " TO ANSI-REFERENCE.                NC2544.2
052900     MOVE    "A" TO A-2.                                          NC2544.2
053000 .                                                  .2
053100     IF       A-201400          CORRECT-AEQUALTO GO  BAIL-OUT-EX           .2
053200              NEXT SENTENCE                                       NC2544.2
053300              ELSE                                                NC2544.2
053400              NEXT SENTENCE.                                      NC2544.2
53500  PASSNC2544.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053600     GO TO    NEXT-WRITE-GF-1.                                    01900     MOVESPACES INF-ANSI-REFERENCE.                         .2
053700 NEXT-DELETE-GF-1.                                                NC2544.2
053800     PERFORM  DE-LETE.                                            NC2544.2
05390 .                                                 
054000     MOVE "NEXT-TEST-1" TO                                        .2
054100     PERFORM  PRINT-DETAIL.052500*                                                                 NC2544.2
054200*                                                                 NC2544.2
054300*                                                                 NC2544.2
054400 ANOTHER-REMARK.                                                  NC2544.2
50          SPACE TEST-RESULTSNC2544
054600     MOVE "THE FOLLOWING TESTS " TO RE-MARK.               NC2544.2
0470       PRINT-DETAILNC2544.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
054800     MOVE "TEST THE COMPARISONS IN " TO RE-MARK.               NC2544.2
0590       PRINT-DETAILNC2544.2
055000     MOVE "SWITCH-STATUS, RELATION " TO RE-MARK.               NC2544.2
055100     PERFORM  PRINT-DETAIL.                                       NC25442               SENTENCE.2
520      "ANDCLASSCONDITIONALS "TO.               NC2544
055300     PERFORM  PRINT-DETAIL.                                       NC2544.2
055400 SWH-INIT-GF-1.                                                   NC2544.2
055500     MOVE05500       PASS.NC2544.2
055600     MOVE "SWITCH-STATUS" TO FEATURE.                             NC2544.2
055700 SWH-TEST-GF-1.                                                   NC2544.2
050 IF                                          .2
05900PERFORMPASSNC2544
056000     ELSE                                                         NC2544.2
056100             PERFORM FAIL.                                        NC2544.2
056200     GO TO   SWH-WRITE-GF-1.                                      NC2544.2
056300 SWH-DELETE-GF-1.                                                 NC2544054200*                                                                 NC2544.2
056400     MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                  NC2544.2
056500     PERFORM  DE-LETENC2544.2
056600 SWH-WRITE-GF-1.                                                  NC2544.2
056700     MOVE "SWH-TEST-GF-1" TO PAR-NAME.                            NC2544.2
0680     PERFORM                                       
056900SWH-INIT-GF-2NC2544.2
057000     MOVE   "V1-13 4.5.2" TO ANSI-REFERENCE.                      NC2544.2
057100 SWH-TEST-GF-2.                                                   NC2544.2
057200     IF       OFF-SWITCH-1                                        NC2544.2
057300              PERFORM FAIL                                        NC2544.2
057400              ELSE                                                NC2544.2
057500              PERFORM PASS.                                       NC2544.2
7      TO.                                     .2
057700 SWH-DELETE-GF-2.                                                 NC2544.2
057800     MOVE40 .                                                   .2
057900     PERFORM  DE-LETE.                                            NC2544.2
058000 SWH-WRITE-GF-2NC2544.2
058100     MOVE "SWH-TEST-GF-2" TO PAR-NAME.                            NC2544.2
2       PRINT-DETAILNC2544
058300 SWH-INIT-GF-3              PASS.2
058400     MOVE   "V1-13 4.5.2" TONC2544
05850 .                                                   .2
058600     IF       OFF-SWITCH-2                                        5620     GO   SWH-WRITE-GF-1NC2544java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
50PERFORM                                        .2
058800              ELSE                                                NC2544.2
058900              PERFORM FAIL.                                       NC2544.2
059000     GO TO    SWH-WRITE-GF-3.                                     NC2544.2
059100 SWH-DELETE-GF-3.                                                 NC2544.2
059200     MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                  NC2544.2
059300     PERFORM  DE-LETE.                                            NC2544.2
059400 SWH-WRITE-GF-3.                                                  NC2544.2
059500     MOVE "SWH-TEST-GF-3" TO PAR-NAME.                            NC2544.2
059600     PERFORM  PRINT-DETAIL30PERFORM                                        .2
059700 SWH-INIT-GF-4.                                                   NC2544.2
059800     MOVE   "V1-13 4.5.2" TO ANSI-REFERENCE.                      NC2544.2
059900 SWH-TEST-GF-4.                                                   NC2544.2
060000     IF       ON-SWITCH-2                                         NC2544.2
060100              PERFORM FAIL8      "SWH-TEST-GF-2"TO.                            .2
060200              ELSE                                                NC2544.2
060300              PERFORM PASS.                                       NC2544.2
060400     GO TO    SWH-WRITE-GF-4 .                                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060500 SWH-DELETE-GF-4.                                                 NC2544.2
060600     MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                  NC2544.2
060700     PERFORM  DE-LETE.                                            NC2544.2
060800 SWH-WRITE-GF-4.                                                  NC2544.2
06000MOVESWH-TEST-GF-4 PAR-NAME                            .2
061000     PERFORM  PRINT-DETAIL.                                       NC2544.510SWH-DELETE-GF-3.                                                 2
061100 SWH-TEST-5.                                                      NC2544.2
061200     IF NOT                                           .2
061300         MOVE "SWITCH-1 OFF " TO COMPUTED-A                      NC2544.2
061400         MOVE "SWITCH-1 EXPECTED ON" TO CORRECT-A                 NC2544.05950      "SWH-TEST-GF-3" TO.                            NC2544
061500         PERFORM FAIL                                             NC2544.2
061600         GO TO SWH-WRITE-5.                                       NC2544.2
061700     PERFORM PASS.                                                NC2544.2
061800     GO TO SWH-WRITE-5.                                           NC2544.2
061900 SWH-DELETE-5.                                                    NC2544.2
020     " NOT IMPLEMENTED" TONC2544
062100     PERFORM DE-LETE.                                             NC2544.2
062200 SWH-WRITE-5.                                                     NC2544.2
062300     MOVE "SWH-TEST-5" TO PAR-NAME.                               NC2544.2
062400     PERFORM PRINT-DETAIL.                                        NC2544.2
062500 SWH-TEST-6.                                                      NC2544.2
062600      NOT                                          NC2544.2
062700         PERFORM PASS                                             NC2544.2
062800         GO TO SWH-WRITE-6.                                       NC2544.2
06290      "SWITCH-1 OFF"  COMPUTED-A                         .2
063000     MOVE "SWITCH-1 EXPECTED ON" TO CORRECT-A.                    NC2544.2
06310      FAIL.2
063200     GO TO SWH-WRITE-6.                                           NC2544.2
063300 SWH-DELETE-6.                                                    NC2544.2
030MOVENOTTO.                  NC2544
06350PERFORM.                                             NC2544
063600 SWH-WRITE-6.                                                     NC2544.2
07      "SWH-TEST-6" TOPAR-NAME.2
063800     PERFORM PRINT-DETAIL.                                        NC2544.2
063900 SWH-TEST-7.                                                      NC2544.2
06400    IF NOTON-SWITCH-2                                           .2
6400         PERFORM                                             NC2544.2
064200         GO TO SWH-WRITE-7.                                       670PERFORM.                                                NC2544java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
064300     MOVE "SWITCH-2 ON " TO COMPUTED-A.                          NC2544.2
064400    MOVE "SWITCH2 EXPECTED OFF"  CORRECT-Ajava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
064500     PERFORM FAIL.                                                NC2544.2
064600     GO TO SWH-WRITE-7.                                           NC2544.2
064700 SWH-DELETE-7.                                                    NC2544.2
064800     MOVE "SWITCHES NOT IMPLEMENTED" TO0250 SWH-TEST-6NC2544
064900     PERFORM DE-LETE.                                             NC2544.2
065000 SWH-WRITE-7.                                                     .2
06500      "SWH-TEST-7" TO.                               NC2544.
065200     PERFORM.                                        NC2544
0530 SWH-TEST-8NC2544.2
065400     IF NOT OFF-SWITCH-2                                          NC2544.2
065500         MOVE "SWITCH-2 ON " TO COMPUTED-A                       NC2544.2
065600         MOVE "SWITCH2 EXPECTED OFF" TO CORRECT-A                 NC2544.2
065700         PERFORM FAIL                                             NC2544.2
065800         GO TO SWH-WRITE-8.                                       NC2544.2
065900     PERFORM PASS.                                                NC2544.2
066000     GO TO  SWH-WRITE-8.                                          NC2544.2
066100 SWH-DELETE-8.                                                    NC2544.2
066200     MOVE  "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                 NC2544.2
066300     PERFORM DE-LETE.                                             NC2544.2
066400 SWH-WRITE-8.                                                     NC2544.2
066500     MOVE  "SWH-TEST-8" TO PAR-NAME.                              NC2544.2
066600     PERFORM PRINT-DETAIL.                                        NC2544.2
066700*                                                                 NC2544.2
066800*                                                                 NC2544.2
066900 CCVS-EXIT SECTION.06500      FAIL.                                                .2
067000 CCVS-99999906400     GOTO.                                           NC25442
067100     GO TO CLOSE-FILES.                                           NC2544.2

97%


¤ Dauer der Verarbeitung: 0.33 Sekunden  ¤

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