|
000100 IDENTIFICATION DIVISION. IX2024.2
000200 PROGRAM-ID. IX2024.2
000300 IX202A. IX2024.2
000400**************************************************************** IX2024.2
000500* * IX2024.2
000600* VALIDATION FOR:- * IX2024.2
000700* * IX2024.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX2024.2
000900* * IX2024.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX2024.2
001100* * IX2024.2
001200**************************************************************** IX2024.2
001300* THE FUNCTION OF THIS PROGRAM IS TO PROCESS AN INDEXED FILE IX2024.2
001400* RANDOMLY USING THE ACCESS MODE IS DYNAMIC CLAUSE. THE FILE IX2024.2
001500* USED AS INPUT IS THAT CREATED BY IX201A. IX2024.2
001600* IX2024.2
001700* FIRST THE FILE IS VERIFIED AS TO THE EXISTANCE AND ACCURACY IX2024.2
001800* OF THE 500 RECORDS CREATED IN THE FIRST RUN UNIT. SECONDLY, IX2024.2
001900* RECORDS OF THE FILE ARE SELECTIVELY UPDATED; AND THIRDLY, THEIX2024.2
002000* ACCURACY OF EACH RECORD IN THE FILE IS AGAIN VERIFIED. IX2024.2
002100* IX2024.2
002200* IX2024.2
002300* X-CARDS WHICH MUST BE REPLACED FOR THIS PROGRAM ARE IX2024.2
002400* IX2024.2
002500* X-24 INDEXED FILE IMPLEMENTOR-NAME IN ASSGN TO IX2024.2
002600* CLAUSE FOR DATA FILE IX-FS1 IX2024.2
002700* X-44 INDEXED FILE IMPLEMENTOR-NAME IN ASSGN TO IX2024.2
002800* CLAUSE FOR INDEX FILE IX-FS1 IX2024.2
002900* X-55 IMPLEMENTOR-NAME FOR SYSTEM PRINTER IX2024.2
003000* X-62 FOR RAW-DATA IX2024.2
003100* X-82 IMPLEMENTOR-NAME FOR SOURCE-COMPUTER IX2024.2
003200* X-83 IMPLEMENTOR-NAME FOR OBJECT-COMPUTER IX2024.2
003300* IX2024.2
003400* NOTE: X-CARDS 44 AND 62 ARE OPTIONAL IX2024.2
003500* AND NEED ONLY TO BE PRESENT IF THE COMPILER RE- IX2024.2
003600* QUIRES THIS CODE BE AVAILABLE FOR PROPER PROGRAM IX2024.2
003700* COMPILATION AND EXECUTION. IF THE VP-ROUTINE IS IX2024.2
003800* USED THE X-CARDS MAY BE AUTOMATICALLY SELECTED IX2024.2
003900* FOR INCLUSION IN THE PROGRAM BY SPECIFYING THE IX2024.2
004000* APPROPRIATE LETTER IN THE "*OPT" VP-ROUTINE IX2024.2
004100* CONTROL CARD. THE LETTER CORRESPONDS TO A IX2024.2
004200* CHARACTER IN POSITION 7 OF THE SOURCE LINE AND IX2024.2
004300* THEY ARE AS FOLLOWS IX2024.2
004400* IX2024.2
004500* P SELECTS X-CARDS 62 IX2024.2
004600* J SELECTS X-CARD 44 IX2024.2
004700* IX2024.2
004800****************************************************** IX2024.2
004900 ENVIRONMENT DIVISION. IX2024.2
005000 CONFIGURATION SECTION. IX2024.2
005100 SOURCE-COMPUTER. IX2024.2
005200 Card0130. IX2024.2
005300 OBJECT-COMPUTER. IX2024.2
005400 Card0131. IX2024.2
005500 INPUT-OUTPUT SECTION. IX2024.2
005600 FILE-CONTROL. IX2024.2
005700 SELECT RAW-DATA ASSIGN TO IX2024.2
005800 "C0098" IX2024.2
005900 ORGANIZATION IS INDEXED IX2024.2
006000 ACCESS MODE IS RANDOM IX2024.2
006100 RECORD KEY IS RAW-DATA-KEY. IX2024.2
006200 SELECT PRINT-FILE ASSIGN TO IX2024.2
006300 "C0085" . IX2024.2
006400 SELECT IX-FD1 ASSIGN IX2024.2
006500 XXXXP024 IX2024.2
006600 XXXXP044 IX2024.2
006700 ACCESS MODE IS DYNAMIC IX2024.2
006800 ; ORGANIZATION INDEXED IX2024.2
006900 RECORD KEY IX-FD1-KEY. IX2024.2
007000 DATA DIVISION. IX2024.2
007100 FILE SECTION. IX2024.2
007200 IX2024.2
007300 FD RAW-DATA. IX2024.2
007400 IX2024.2
007500 01 RAW-DATA-SATZ. IX2024.2
007600 05 RAW-DATA-KEY PIC X(6). IX2024.2
007700 05 C-DATE PIC 9(6). IX2024.2
007800 05 C-TIME PIC 9(8). IX2024.2
007900 05 C-NO-OF-TESTS PIC 99. IX2024.2
008000 05 C-OK PIC 999. IX2024.2
008100 05 C-ALL PIC 999. IX2024.2
008200 05 C-FAIL PIC 999. IX2024.2
008300 05 C-DELETED PIC 999. IX2024.2
008400 05 C-INSPECT PIC 999. IX2024.2
008500 05 C-NOTE PIC X(13). IX2024.2
008600 05 C-INDENT PIC X. IX2024.2
008700 05 C-ABORT PIC X(8). IX2024.2
008800 FD PRINT-FILE. IX2024.2
008900 01 PRINT-REC PICTURE X(120). IX2024.2
009000 01 DUMMY-RECORD PICTURE X(120). IX2024.2
009100 FD IX-FD1 IX2024.2
009200 LABEL RECORDS STANDARD IX2024.2
009300 DATA RECORD IX-FS1R1-F-G-240 IX2024.2
009400 BLOCK 1 RECORDS IX2024.2
009500 RECORD 240 CHARACTERS. IX2024.2
009600 01 IX-FS1R1-F-G-240. IX2024.2
009700 05 IX-FD1-REC-120 PIC X(120). IX2024.2
009800 05 IX-FD1-REC-120-240. IX2024.2
009900 10 FILLER PIC X(8). IX2024.2
010000 10 IX-FD1-KEY PIC X(29). IX2024.2
010100 10 FILLER PIC X(83). IX2024.2
010200 WORKING-STORAGE SECTION. IX2024.2
010300 01 WRK-CS-09V00 PIC S9(09) USAGE COMP VALUE ZERO. IX2024.2
010400 01 WRK-DS-09V00-002 PIC S9(9) VALUE ZERO. IX2024.2
010500 01 WRK-CS-09V00-002 PIC S9(09) USAGE COMP VALUE ZERO. IX2024.2
010600 01 I-O-ERROR-IX-FD1 PIC X(3) VALUE "NO ". IX2024.2
010700 01 WRK-CS-09V00-001 PIC S9(09) USAGE COMP VALUE ZERO. IX2024.2
010800 01 WRK-CS-09V00-004 PIC S9(09) USAGE COMP VALUE ZERO. IX2024.2
010900 01 WRK-CS-09V00-005 PIC S9(09) USAGE COMP VALUE ZERO. IX2024.2
011000 01 IX-WRK-KEY. IX2024.2
011100 02 FILLER PIC X(10) VALUE "ABCDLKJXYZ". IX2024.2
011200 02 WRK-DU-09V00-001 PIC 9(9) VALUE ZERO. IX2024.2
011300 02 FILLER PIC X(10) VALUE "ZIF,.$-+CD". IX2024.2
011400 01 DUMMY-WRK-REC. IX2024.2
011500 02 DUMMY-WRK1 PIC X(120). IX2024.2
011600 02 DUMMY-WRK2 REDEFINES DUMMY-WRK1. IX2024.2
011700 03 FILLER PIC X(5). IX2024.2
011800 03 DUMMY-WRK-INDENT-5 PIC X(115). IX2024.2
011900 01 FILE-RECORD-INFORMATION-REC. IX2024.2
012000 03 FILE-RECORD-INFO-SKELETON. IX2024.2
012100 05 FILLER PICTURE X(48) VALUE IX2024.2
012200 "FILE= ,RECORD= /0,RECNO=000000,UPDT=00". IX2024.2
012300 05 FILLER PICTURE X(46) VALUE IX2024.2
012400 ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000". IX2024.2
012500 05 FILLER PICTURE X(26) VALUE IX2024.2
012600 ",LFIL=000000,ORG= ,LBLR= ". IX2024.2
012700 05 FILLER PICTURE X(37) VALUE IX2024.2
012800 ",RECKEY= ". IX2024.2
012900 05 FILLER PICTURE X(38) VALUE IX2024.2
013000 ",ALTKEY1= ". IX2024.2
013100 05 FILLER PICTURE X(38) VALUE IX2024.2
013200 ",ALTKEY2= ". IX2024.2
013300 05 FILLER PICTURE X(7) VALUE SPACE.IX2024.2
013400 03 FILE-RECORD-INFO OCCURS 10 TIMES. IX2024.2
013500 05 FILE-RECORD-INFO-P1-120. IX2024.2
013600 07 FILLER PIC X(5). IX2024.2
013700 07 XFILE-NAME PIC X(6). IX2024.2
013800 07 FILLER PIC X(8). IX2024.2
013900 07 XRECORD-NAME PIC X(6). IX2024.2
014000 07 FILLER PIC X(1). IX2024.2
014100 07 REELUNIT-NUMBER PIC 9(1). IX2024.2
014200 07 FILLER PIC X(7). IX2024.2
014300 07 XRECORD-NUMBER PIC 9(6). IX2024.2
014400 07 FILLER PIC X(6). IX2024.2
014500 07 UPDATE-NUMBER PIC 9(2). IX2024.2
014600 07 FILLER PIC X(5). IX2024.2
014700 07 ODO-NUMBER PIC 9(4). IX2024.2
014800 07 FILLER PIC X(5). IX2024.2
014900 07 XPROGRAM-NAME PIC X(5). IX2024.2
015000 07 FILLER PIC X(7). IX2024.2
015100 07 XRECORD-LENGTH PIC 9(6). IX2024.2
015200 07 FILLER PIC X(7). IX2024.2
015300 07 CHARS-OR-RECORDS PIC X(2). IX2024.2
015400 07 FILLER PIC X(1). IX2024.2
015500 07 XBLOCK-SIZE PIC 9(4). IX2024.2
015600 07 FILLER PIC X(6). IX2024.2
015700 07 RECORDS-IN-FILE PIC 9(6). IX2024.2
015800 07 FILLER PIC X(5). IX2024.2
015900 07 XFILE-ORGANIZATION PIC X(2). IX2024.2
016000 07 FILLER PIC X(6). IX2024.2
016100 07 XLABEL-TYPE PIC X(1). IX2024.2
016200 05 FILE-RECORD-INFO-P121-240. IX2024.2
016300 07 FILLER PIC X(8). IX2024.2
016400 07 XRECORD-KEY PIC X(29). IX2024.2
016500 07 FILLER PIC X(9). IX2024.2
016600 07 ALTERNATE-KEY1 PIC X(29). IX2024.2
016700 07 FILLER PIC X(9). IX2024.2
016800 07 ALTERNATE-KEY2 PIC X(29). IX2024.2
016900 07 FILLER PIC X(7). IX2024.2
017000 01 TEST-RESULTS. IX2024.2
017100 02 FILLER PIC X VALUE SPACE. IX2024.2
017200 02 FEATURE PIC X(20) VALUE SPACE. IX2024.2
017300 02 FILLER PIC X VALUE SPACE. IX2024.2
017400 02 P-OR-F PIC X(5) VALUE SPACE. IX2024.2
017500 02 FILLER PIC X VALUE SPACE. IX2024.2
017600 02 PAR-NAME. IX2024.2
017700 03 FILLER PIC X(19) VALUE SPACE. IX2024.2
017800 03 PARDOT-X PIC X VALUE SPACE. IX2024.2
017900 03 DOTVALUE PIC 99 VALUE ZERO. IX2024.2
018000 02 FILLER PIC X(8) VALUE SPACE. IX2024.2
018100 02 RE-MARK PIC X(61). IX2024.2
018200 01 TEST-COMPUTED. IX2024.2
018300 02 FILLER PIC X(30) VALUE SPACE. IX2024.2
018400 02 FILLER PIC X(17) VALUE IX2024.2
018500 " COMPUTED=". IX2024.2
018600 02 COMPUTED-X. IX2024.2
018700 03 COMPUTED-A PIC X(20) VALUE SPACE. IX2024.2
018800 03 COMPUTED-N REDEFINES COMPUTED-A IX2024.2
018900 PIC -9(9).9(9). IX2024.2
019000 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). IX2024.2
019100 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). IX2024.2
019200 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). IX2024.2
019300 03 CM-18V0 REDEFINES COMPUTED-A. IX2024.2
019400 04 COMPUTED-18V0 PIC -9(18). IX2024.2
019500 04 FILLER PIC X. IX2024.2
019600 03 FILLER PIC X(50) VALUE SPACE. IX2024.2
019700 01 TEST-CORRECT. IX2024.2
019800 02 FILLER PIC X(30) VALUE SPACE. IX2024.2
019900 02 FILLER PIC X(17) VALUE " CORRECT =". IX2024.2
020000 02 CORRECT-X. IX2024.2
020100 03 CORRECT-A PIC X(20) VALUE SPACE. IX2024.2
020200 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). IX2024.2
020300 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). IX2024.2
020400 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). IX2024.2
020500 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). IX2024.2
020600 03 CR-18V0 REDEFINES CORRECT-A. IX2024.2
020700 04 CORRECT-18V0 PIC -9(18). IX2024.2
020800 04 FILLER PIC X. IX2024.2
020900 03 FILLER PIC X(2) VALUE SPACE. IX2024.2
021000 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. IX2024.2
021100 01 CCVS-C-1. IX2024.2
021200 02 FILLER PIC IS X(99) VALUE IS " FEATURE PAIX2024.2
021300- "SS PARAGRAPH-NAME IX2024.2
021400- " REMARKS". IX2024.2
021500 02 FILLER PIC X(20) VALUE SPACE. IX2024.2
021600 01 CCVS-C-2. IX2024.2
021700 02 FILLER PIC X VALUE SPACE. IX2024.2
021800 02 FILLER PIC X(6) VALUE "TESTED". IX2024.2
021900 02 FILLER PIC X(15) VALUE SPACE. IX2024.2
022000 02 FILLER PIC X(4) VALUE "FAIL". IX2024.2
022100 02 FILLER PIC X(94) VALUE SPACE. IX2024.2
022200 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. IX2024.2
022300 01 REC-CT PIC 99 VALUE ZERO. IX2024.2
022400 01 DELETE-COUNTER PIC 999 VALUE ZERO. IX2024.2
022500 01 ERROR-COUNTER PIC 999 VALUE ZERO. IX2024.2
022600 01 INSPECT-COUNTER PIC 999 VALUE ZERO. IX2024.2
022700 01 PASS-COUNTER PIC 999 VALUE ZERO. IX2024.2
022800 01 TOTAL-ERROR PIC 999 VALUE ZERO. IX2024.2
022900 01 ERROR-HOLD PIC 999 VALUE ZERO. IX2024.2
023000 01 DUMMY-HOLD PIC X(120) VALUE SPACE. IX2024.2
023100 01 RECORD-COUNT PIC 9(5) VALUE ZERO. IX2024.2
023200 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. IX2024.2
023300 01 CCVS-H-1. IX2024.2
023400 02 FILLER PIC X(39) VALUE SPACES. IX2024.2
023500 02 FILLER PIC X(42) VALUE IX2024.2
023600 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". IX2024.2
023700 02 FILLER PIC X(39) VALUE SPACES. IX2024.2
023800 01 CCVS-H-2A. IX2024.2
023900 02 FILLER PIC X(40) VALUE SPACE. IX2024.2
024000 02 FILLER PIC X(7) VALUE "CCVS85 ". IX2024.2
024100 02 FILLER PIC XXXX VALUE IX2024.2
024200 "4.2 ". IX2024.2
024300 02 FILLER PIC X(28) VALUE IX2024.2
024400 " COPY - NOT FOR DISTRIBUTION". IX2024.2
024500 02 FILLER PIC X(41) VALUE SPACE. IX2024.2
024600 IX2024.2
024700 01 CCVS-H-2B. IX2024.2
024800 02 FILLER PIC X(15) VALUE IX2024.2
024900 "TEST RESULT OF ". IX2024.2
025000 02 TEST-ID PIC X(9). IX2024.2
025100 02 FILLER PIC X(4) VALUE IX2024.2
025200 " IN ". IX2024.2
025300 02 FILLER PIC X(12) VALUE IX2024.2
025400 " HIGH ". IX2024.2
025500 02 FILLER PIC X(22) VALUE IX2024.2
025600 " LEVEL VALIDATION FOR ". IX2024.2
025700 02 FILLER PIC X(58) VALUE IX2024.2
025800 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX2024.2
025900 01 CCVS-H-3. IX2024.2
026000 02 FILLER PIC X(34) VALUE IX2024.2
026100 " FOR OFFICIAL USE ONLY ". IX2024.2
026200 02 FILLER PIC X(58) VALUE IX2024.2
026300 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX2024.2
026400 02 FILLER PIC X(28) VALUE IX2024.2
026500 " COPYRIGHT 1985 ". IX2024.2
026600 01 CCVS-E-1. IX2024.2
026700 02 FILLER PIC X(52) VALUE SPACE. IX2024.2
026800 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". IX2024.2
026900 02 ID-AGAIN PIC X(9). IX2024.2
027000 02 FILLER PIC X(45) VALUE SPACES. IX2024.2
027100 01 CCVS-E-2. IX2024.2
027200 02 FILLER PIC X(31) VALUE SPACE. IX2024.2
027300 02 FILLER PIC X(21) VALUE SPACE. IX2024.2
027400 02 CCVS-E-2-2. IX2024.2
027500 03 ERROR-TOTAL PIC XXX VALUE SPACE. IX2024.2
027600 03 FILLER PIC X VALUE SPACE. IX2024.2
027700 03 ENDER-DESC PIC X(44) VALUE IX2024.2
027800 "ERRORS ENCOUNTERED". IX2024.2
027900 01 CCVS-E-3. IX2024.2
028000 02 FILLER PIC X(22) VALUE IX2024.2
028100 " FOR OFFICIAL USE ONLY". IX2024.2
028200 02 FILLER PIC X(12) VALUE SPACE. IX2024.2
028300 02 FILLER PIC X(58) VALUE IX2024.2
028400 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX2024.2
028500 02 FILLER PIC X(13) VALUE SPACE. IX2024.2
028600 02 FILLER PIC X(15) VALUE IX2024.2
028700 " COPYRIGHT 1985". IX2024.2
028800 01 CCVS-E-4. IX2024.2
028900 02 CCVS-E-4-1 PIC XXX VALUE SPACE. IX2024.2
029000 02 FILLER PIC X(4) VALUE " OF ". IX2024.2
029100 02 CCVS-E-4-2 PIC XXX VALUE SPACE. IX2024.2
029200 02 FILLER PIC X(40) VALUE IX2024.2
029300 " TESTS WERE EXECUTED SUCCESSFULLY". IX2024.2
029400 01 XXINFO. IX2024.2
029500 02 FILLER PIC X(19) VALUE IX2024.2
029600 "*** INFORMATION ***". IX2024.2
029700 02 INFO-TEXT. IX2024.2
029800 04 FILLER PIC X(8) VALUE SPACE. IX2024.2
029900 04 XXCOMPUTED PIC X(20). IX2024.2
030000 04 FILLER PIC X(5) VALUE SPACE. IX2024.2
030100 04 XXCORRECT PIC X(20). IX2024.2
030200 02 INF-ANSI-REFERENCE PIC X(48). IX2024.2
030300 01 HYPHEN-LINE. IX2024.2
030400 02 FILLER PIC IS X VALUE IS SPACE. IX2024.2
030500 02 FILLER PIC IS X(65) VALUE IS "************************IX2024.2
030600- "*****************************************". IX2024.2
030700 02 FILLER PIC IS X(54) VALUE IS "************************IX2024.2
030800- "******************************". IX2024.2
030900 01 CCVS-PGM-ID PIC X(9) VALUE IX2024.2
031000 "IX202A". IX2024.2
031100 PROCEDURE DIVISION. IX2024.2
031200 CCVS1 SECTION. IX2024.2
031300 OPEN-FILES. IX2024.2
031400 OPEN I-O RAW-DATA. IX2024.2
031500 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. IX2024.2
031600 READ RAW-DATA INVALID KEY GO TO END-E-1. IX2024.2
031700 MOVE "ABORTED " TO C-ABORT. IX2024.2
031800 ADD 1 TO C-NO-OF-TESTS. IX2024.2
031900 ACCEPT C-DATE FROM DATE. IX2024.2
032000 ACCEPT C-TIME FROM TIME. IX2024.2
032100 REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1. IX2024.2
032200 END-E-1. IX2024.2
032300 CLOSE RAW-DATA. IX2024.2
032400 OPEN OUTPUT PRINT-FILE. IX2024.2
032500 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. IX2024.2
032600 MOVE SPACE TO TEST-RESULTS. IX2024.2
032700 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. IX2024.2
032800 MOVE ZERO TO REC-SKL-SUB. IX2024.2
032900 PERFORM CCVS-INIT-FILE 9 TIMES. IX2024.2
033000 CCVS-INIT-FILE. IX2024.2
033100 ADD 1 TO REC-SKL-SUB. IX2024.2
033200 MOVE FILE-RECORD-INFO-SKELETON IX2024.2
033300 TO FILE-RECORD-INFO (REC-SKL-SUB). IX2024.2
033400 CCVS-INIT-EXIT. IX2024.2
033500 GO TO CCVS1-EXIT. IX2024.2
033600 CLOSE-FILES. IX2024.2
033700 OPEN I-O RAW-DATA. IX2024.2
033800 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. IX2024.2
033900 READ RAW-DATA INVALID KEY GO TO END-E-2. IX2024.2
034000 MOVE "OK. " TO C-ABORT. IX2024.2
034100 MOVE PASS-COUNTER TO C-OK. IX2024.2
034200 MOVE ERROR-HOLD TO C-ALL. IX2024.2
034300 MOVE ERROR-COUNTER TO C-FAIL. IX2024.2
034400 MOVE DELETE-COUNTER TO C-DELETED. IX2024.2
034500 MOVE INSPECT-COUNTER TO C-INSPECT. IX2024.2
034600 REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2. IX2024.2
034700 END-E-2. IX2024.2
034800 CLOSE RAW-DATA. IX2024.2
034900 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. IX2024.2
035000 TERMINATE-CCVS. IX2024.2
035100 EXIT PROGRAM. IX2024.2
035200 TERMINATE-CALL. IX2024.2
035300 STOP RUN. IX2024.2
035400 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. IX2024.2
035500 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. IX2024.2
035600 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. IX2024.2
035700 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. IX2024.2
035800 MOVE "****TEST DELETED****" TO RE-MARK. IX2024.2
035900 PRINT-DETAIL. IX2024.2
036000 IF REC-CT NOT EQUAL TO ZERO IX2024.2
036100 MOVE "." TO PARDOT-X IX2024.2
036200 MOVE REC-CT TO DOTVALUE. IX2024.2
036300 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. IX2024.2
036400 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE IX2024.2
036500 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX IX2024.2
036600 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. IX2024.2
036700 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. IX2024.2
036800 MOVE SPACE TO CORRECT-X. IX2024.2
036900 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. IX2024.2
037000 MOVE SPACE TO RE-MARK. IX2024.2
037100 HEAD-ROUTINE. IX2024.2
037200 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2024.2
037300 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2024.2
037400 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. IX2024.2
037500 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. IX2024.2
037600 COLUMN-NAMES-ROUTINE. IX2024.2
037700 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2024.2
037800 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2024.2
037900 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2024.2
038000 END-ROUTINE. IX2024.2
038100 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IX2024.2
038200 END-RTN-EXIT. IX2024.2
038300 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2024.2
038400 END-ROUTINE-1. IX2024.2
038500 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO IX2024.2
038600 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. IX2024.2
038700 ADD PASS-COUNTER TO ERROR-HOLD. IX2024.2
038800* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. IX2024.2
038900 MOVE PASS-COUNTER TO CCVS-E-4-1. IX2024.2
039000 MOVE ERROR-HOLD TO CCVS-E-4-2. IX2024.2
039100 MOVE CCVS-E-4 TO CCVS-E-2-2. IX2024.2
039200 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. IX2024.2
039300 END-ROUTINE-12. IX2024.2
039400 MOVE "TEST(S) FAILED" TO ENDER-DESC. IX2024.2
039500 IF ERROR-COUNTER IS EQUAL TO ZERO IX2024.2
039600 MOVE "NO " TO ERROR-TOTAL IX2024.2
039700 ELSE IX2024.2
039800 MOVE ERROR-COUNTER TO ERROR-TOTAL. IX2024.2
039900 MOVE CCVS-E-2 TO DUMMY-RECORD. IX2024.2
040000 PERFORM WRITE-LINE. IX2024.2
040100 END-ROUTINE-13. IX2024.2
040200 IF DELETE-COUNTER IS EQUAL TO ZERO IX2024.2
040300 MOVE "NO " TO ERROR-TOTAL ELSE IX2024.2
040400 MOVE DELETE-COUNTER TO ERROR-TOTAL. IX2024.2
040500 MOVE "TEST(S) DELETED " TO ENDER-DESC. IX2024.2
040600 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2024.2
040700 IF INSPECT-COUNTER EQUAL TO ZERO IX2024.2
040800 MOVE "NO " TO ERROR-TOTAL IX2024.2
040900 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. IX2024.2
041000 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. IX2024.2
041100 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2024.2
041200 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2024.2
041300 WRITE-LINE. IX2024.2
041400 ADD 1 TO RECORD-COUNT. IX2024.2
041500 IF RECORD-COUNT GREATER 42 IX2024.2
041600 MOVE DUMMY-RECORD TO DUMMY-HOLD IX2024.2
041700 MOVE SPACE TO DUMMY-RECORD IX2024.2
041800 WRITE DUMMY-RECORD AFTER ADVANCING PAGE IX2024.2
041900 MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES IX2024.2
042000 MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES IX2024.2
042100 MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES IX2024.2
042200 MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES IX2024.2
042300 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN IX2024.2
042400 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN IX2024.2
042500 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN IX2024.2
042600 MOVE DUMMY-HOLD TO DUMMY-RECORD IX2024.2
042700 MOVE ZERO TO RECORD-COUNT. IX2024.2
042800 PERFORM WRT-LN. IX2024.2
042900 WRT-LN. IX2024.2
043000 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. IX2024.2
043100 MOVE SPACE TO DUMMY-RECORD. IX2024.2
043200 BLANK-LINE-PRINT. IX2024.2
043300 PERFORM WRT-LN. IX2024.2
043400 FAIL-ROUTINE. IX2024.2
043500 IF COMPUTED-X NOT EQUAL TO SPACE IX2024.2
043600 GO TO FAIL-ROUTINE-WRITE. IX2024.2
043700 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX2024.2
043800 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. IX2024.2
043900 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. IX2024.2
044000 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2024.2
044100 MOVE SPACES TO INF-ANSI-REFERENCE. IX2024.2
044200 GO TO FAIL-ROUTINE-EX. IX2024.2
044300 FAIL-ROUTINE-WRITE. IX2024.2
044400 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE IX2024.2
044500 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. IX2024.2
044600 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IX2024.2
044700 MOVE SPACES TO COR-ANSI-REFERENCE. IX2024.2
044800 FAIL-ROUTINE-EX. EXIT. IX2024.2
044900 BAIL-OUT. IX2024.2
045000 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. IX2024.2
045100 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. IX2024.2
045200 BAIL-OUT-WRITE. IX2024.2
045300 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. IX2024.2
045400 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. IX2024.2
045500 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2024.2
045600 MOVE SPACES TO INF-ANSI-REFERENCE. IX2024.2
045700 BAIL-OUT-EX. EXIT. IX2024.2
045800 CCVS1-EXIT. IX2024.2
045900 EXIT. IX2024.2
046000 SECT-IX-02-001 SECTION. IX2024.2
046100 READ-INIT-F2-01. IX2024.2
046200 OPEN INPUT IX-FD1. IX2024.2
046300 MOVE "READ-TEST-F2-01" TO PAR-NAME. IX2024.2
046400 MOVE ZERO TO WRK-DU-09V00-001. IX2024.2
046500 MOVE IX-WRK-KEY TO IX-FD1-KEY. IX2024.2
046600 MOVE ZERO TO WRK-CS-09V00-002 IX2024.2
046700 MOVE ZERO TO WRK-DU-09V00-001 IX2024.2
046800 MOVE "READ RANDOM " TO FEATURE. IX2024.2
046900 READ-TEST-F2-01-R. IX2024.2
047000 ADD 1 TO WRK-DU-09V00-001 IX2024.2
047100 MOVE IX-WRK-KEY TO IX-FD1-KEY. IX2024.2
047200 IF WRK-DU-09V00-001 GREATER 501 IX2024.2
047300 MOVE "IX-28; FORMAT 2 " TO RE-MARK IX2024.2
047400 MOVE "INVALID KEY NOT TAKEN" TO COMPUTED-A IX2024.2
047500 MOVE WRK-DU-09V00-001 TO CORRECT-18V0 IX2024.2
047600 PERFORM FAIL IX2024.2
047700 PERFORM PRINT-DETAIL IX2024.2
047800 GO TO READ-WRITE-F2-01. IX2024.2
047900 READ IX-FD1 IX2024.2
048000 INVALID KEY GO TO READ-WRITE-F2-01. IX2024.2
048100 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2024.2
048200 IF XRECORD-NUMBER (1) EQUAL TO WRK-DU-09V00-001 IX2024.2
048300 GO TO READ-TEST-F2-01-R. IX2024.2
048400 MOVE "YES" TO I-O-ERROR-IX-FD1. IX2024.2
048500 ADD 1 TO WRK-CS-09V00-002 IX2024.2
048600 GO TO READ-TEST-F2-01-R. IX2024.2
048700 READ-WRITE-F2-01. IX2024.2
048800 IF WRK-DU-09V00-001 NOT EQUAL TO 501 IX2024.2
048900 MOVE "IX-28; FORMAT 2 " TO RE-MARK IX2024.2
049000 MOVE "WRONG KEY/NOT 500" TO CORRECT-A IX2024.2
049100 MOVE WRK-DU-09V00-001 TO COMPUTED-18V0 IX2024.2
049200 PERFORM FAIL IX2024.2
049300 ELSE IX2024.2
049400 PERFORM PASS. IX2024.2
049500 PERFORM PRINT-DETAIL. IX2024.2
049600 READ-TEST-F2-01-1. IX2024.2
049700 MOVE "READ-TEST-F2-01-1" TO PAR-NAME. IX2024.2
049800 MOVE "READ TOO LESS RECORDS" TO RE-MARK. IX2024.2
049900 IF XRECORD-NUMBER (1) NOT EQUAL TO 500 IX2024.2
050000 MOVE "IX-28; FORMAT 2 " TO RE-MARK IX2024.2
050100 MOVE "WRONG RECORD/NOT 500" TO CORRECT-A IX2024.2
050200 MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0 IX2024.2
050300 PERFORM FAIL IX2024.2
050400 ELSE IX2024.2
050500 PERFORM PASS. IX2024.2
050600 PERFORM PRINT-DETAIL. IX2024.2
050700 READ-TEST-F2-01-2. IX2024.2
050800 MOVE "READ-TEST-F2-01-2" TO PAR-NAME. IX2024.2
050900 MOVE "READ TOO MUCH RECORDS" TO RE-MARK. IX2024.2
051000 IF WRK-DU-09V00-001 NOT EQUAL TO 501 IX2024.2
051100 MOVE "IX-28; FORMAT 2 " TO RE-MARK IX2024.2
051200 MOVE "INCORRECT RECORD COUNT" TO RE-MARK IX2024.2
051300 MOVE WRK-DU-09V00-001 TO COMPUTED-18V0 IX2024.2
051400 MOVE 501 TO CORRECT-18V0 IX2024.2
051500 PERFORM FAIL IX2024.2
051600 ELSE IX2024.2
051700 PERFORM PASS. IX2024.2
051800 PERFORM PRINT-DETAIL. IX2024.2
051900 READ-TEST-F2-01-3. IX2024.2
052000 MOVE "READ-TEST-F2-01-3" TO PAR-NAME. IX2024.2
052100 MOVE "READ WRONG RECORDS" TO RE-MARK. IX2024.2
052200 IF I-O-ERROR-IX-FD1 EQUAL TO "YES" IX2024.2
052300 MOVE "IX-28; FORMAT 2 " TO RE-MARK IX2024.2
052400 MOVE WRK-CS-09V00-002 TO COMPUTED-18V0 IX2024.2
052500 MOVE "RECORDS DID NOT COMPARE" TO RE-MARK IX2024.2
052600 PERFORM FAIL IX2024.2
052700 ELSE IX2024.2
052800 PERFORM PASS. IX2024.2
052900 PERFORM PRINT-DETAIL. IX2024.2
053000 CLOSE IX-FD1. IX2024.2
053100* IX2024.2
053200* U P D A T E READ & REWRITE IX2024.2
053300* IX2024.2
053400 RWRT-INIT-GF-01-R . IX2024.2
053500 MOVE "RWRT-TEST-GF-01" TO PAR-NAME. IX2024.2
053600 MOVE "REWRITE " TO FEATURE. IX2024.2
053700 OPEN I-O IX-FD1. IX2024.2
053800 MOVE ZERO TO IX-FD1-KEY. IX2024.2
053900 MOVE ZERO TO WRK-CS-09V00-002. IX2024.2
054000 MOVE ZERO TO WRK-DU-09V00-001. IX2024.2
054100 MOVE SPACE TO FILE-RECORD-INFO (1). IX2024.2
054200 RWRT-TEST-GF-01-R. IX2024.2
054300 ADD 5 TO WRK-DU-09V00-001. IX2024.2
054400 MOVE IX-WRK-KEY TO IX-FD1-KEY. IX2024.2
054500 IF WRK-DU-09V00-001 GREATER 505 IX2024.2
054600 MOVE "INVALID KEY/NOT TAKEN" TO COMPUTED-A IX2024.2
054700 MOVE WRK-DU-09V00-001 TO CORRECT-18V0 IX2024.2
054800 PERFORM FAIL IX2024.2
054900 PERFORM PRINT-DETAIL IX2024.2
055000 GO TO RWRT-TEST-GF-01-3. IX2024.2
055100 READ IX-FD1 IX2024.2
055200 INVALID KEY GO TO RWRT-TEST-GF-01-1. IX2024.2
055300 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1) IX2024.2
055400 ADD 01 TO UPDATE-NUMBER (1). IX2024.2
055500 MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). IX2024.2
055600 MOVE FILE-RECORD-INFO (1) TO IX-FS1R1-F-G-240. IX2024.2
055700 REWRITE IX-FS1R1-F-G-240 IX2024.2
055800 INVALID KEY GO TO RWRT-TEST-GF-01-2. IX2024.2
055900 GO TO RWRT-TEST-GF-01-R. IX2024.2
056000 RWRT-TEST-GF-01-1. IX2024.2
056100 MOVE "RWRT-TEST-GF-01-1" TO PAR-NAME. IX2024.2
056200 MOVE "READ INVALID" TO FEATURE. IX2024.2
056300 IF WRK-DU-09V00-001 LESS THAN 501 IX2024.2
056400 ADD 1 TO WRK-CS-09V00-001 IX2024.2
056500 GO TO RWRT-TEST-GF-01-R. IX2024.2
056600 PERFORM PASS. IX2024.2
056700 PERFORM PRINT-DETAIL. IX2024.2
056800 GO TO RWRT-TEST-GF-01-3. IX2024.2
056900 RWRT-TEST-GF-01-2. IX2024.2
057000 ADD 1 TO WRK-CS-09V00-005. IX2024.2
057100 IF WRK-DU-09V00-001 LESS THAN 501 IX2024.2
057200 GO TO RWRT-TEST-GF-01-R. IX2024.2
057300 RWRT-TEST-GF-01-3. IX2024.2
057400 MOVE "RWRT-TEST-GF-03-1" TO PAR-NAME. IX2024.2
057500 MOVE "READ INVALID" TO FEATURE. IX2024.2
057600 IF WRK-CS-09V00-004 NOT EQUAL TO ZERO IX2024.2
057700 MOVE "IX-28; FORMAT 2 " TO RE-MARK IX2024.2
057800 MOVE "INVALID KEY ON READ" TO COMPUTED-A IX2024.2
057900 MOVE WRK-CS-09V00-004 TO CORRECT-18V0 IX2024.2
058000 PERFORM FAIL IX2024.2
058100 ELSE IX2024.2
058200 PERFORM PASS. IX2024.2
058300 PERFORM PRINT-DETAIL. IX2024.2
058400 RWRT-TEST-GF-02-1. IX2024.2
058500 MOVE "RWRT-TEST-GF-02-1" TO PAR-NAME. IX2024.2
058600 MOVE "REWRITE " TO FEATURE. IX2024.2
058700 IF WRK-CS-09V00-005 NOT EQUAL TO ZERO IX2024.2
058800 MOVE "IX-33; 4.6.2 " TO RE-MARK IX2024.2
058900 MOVE "INVALID KEY ON REWRITE" TO COMPUTED-A IX2024.2
059000 MOVE WRK-CS-09V00-005 TO CORRECT-18V0 IX2024.2
059100 PERFORM FAIL IX2024.2
059200 ELSE IX2024.2
059300 PERFORM PASS. IX2024.2
059400 PERFORM PRINT-DETAIL. IX2024.2
059500 CLOSE IX-FD1. IX2024.2
059600 READ-INIT-F2-02. IX2024.2
059700 MOVE "READ-TEST-F2-02" TO PAR-NAME. IX2024.2
059800 MOVE "READ " TO FEATURE. IX2024.2
059900 OPEN INPUT IX-FD1. IX2024.2
060000 MOVE 501 TO WRK-DU-09V00-001. IX2024.2
060100 MOVE ZERO TO WRK-CS-09V00-004. IX2024.2
060200 MOVE ZERO TO WRK-CS-09V00-005. IX2024.2
060300 MOVE ZERO TO WRK-CS-09V00-002. IX2024.2
060400 MOVE SPACE TO FILE-RECORD-INFO (1). IX2024.2
060500 READ-TEST-F2-02-R. IX2024.2
060600 IF WRK-DU-09V00-001 EQUAL TO ZERO IX2024.2
060700 MOVE "INVALID KEY/NOT TAKEN" TO COMPUTED-A IX2024.2
060800 MOVE WRK-DU-09V00-001 TO COMPUTED-18V0 IX2024.2
060900 MOVE ZERO TO CORRECT-18V0 IX2024.2
061000 PERFORM FAIL IX2024.2
061100 PERFORM PRINT-DETAIL IX2024.2
061200 GO TO READ-TEST-F2-02-1-0. IX2024.2
061300 SUBTRACT 1 FROM WRK-DU-09V00-001. IX2024.2
061400 MOVE IX-WRK-KEY TO IX-FD1-KEY. IX2024.2
061500 READ IX-FD1 IX2024.2
061600 INVALID KEY GO TO READ-TEST-F2-02-1. IX2024.2
061700 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2024.2
061800 IF UPDATE-NUMBER (1) EQUAL TO 00 IX2024.2
061900 ADD 1 TO WRK-CS-09V00-004. IX2024.2
062000 IF UPDATE-NUMBER (1) EQUAL TO 01 IX2024.2
062100 ADD 1 TO WRK-CS-09V00-005. IX2024.2
062200 GO TO READ-TEST-F2-02-R. IX2024.2
062300 READ-TEST-F2-02-1. IX2024.2
062400 IF WRK-DU-09V00-001 GREATER ZERO IX2024.2
062500 ADD 1 TO WRK-CS-09V00-002 IX2024.2
062600 GO TO READ-TEST-F2-02-R. IX2024.2
062700 PERFORM PASS. IX2024.2
062800 PERFORM PRINT-DETAIL. IX2024.2
062900 READ-TEST-F2-02-1-0. IX2024.2
063000 MOVE "READ-TEST-F2-02-1 " TO PAR-NAME. IX2024.2
063100 MOVE "READ " TO FEATURE. IX2024.2
063200 IF WRK-CS-09V00-004 NOT EQUAL TO 400 IX2024.2
063300 MOVE "NON-UPDATED RECORDS" TO COMPUTED-A IX2024.2
063400 MOVE WRK-CS-09V00-004 TO CORRECT-18V0 IX2024.2
063500 MOVE "SHOULD BE 400" TO RE-MARK IX2024.2
063600 PERFORM FAIL IX2024.2
063700 ELSE IX2024.2
063800 PERFORM PASS. IX2024.2
063900 PERFORM PRINT-DETAIL. IX2024.2
064000 READ-TEST-F2-02-2. IX2024.2
064100 MOVE "READ-TEST-F2-02-2" TO PAR-NAME. IX2024.2
064200 MOVE "READ " TO FEATURE. IX2024.2
064300 IF WRK-CS-09V00-005 NOT EQUAL TO 100 IX2024.2
064400 MOVE "UPDATED RECORDS" TO COMPUTED-A IX2024.2
064500 MOVE WRK-CS-09V00-005 TO CORRECT-18V0 IX2024.2
064600 MOVE "SHOULD BE 100" TO RE-MARK IX2024.2
064700 PERFORM FAIL IX2024.2
064800 ELSE IX2024.2
064900 PERFORM PASS. IX2024.2
065000 PERFORM PRINT-DETAIL. IX2024.2
065100 READ-TEST-F2-02-3. IX2024.2
065200 MOVE "READ-TEST-F2-02-3" TO PAR-NAME. IX2024.2
065300 MOVE "READ " TO FEATURE. IX2024.2
065400 IF WRK-CS-09V00-002 GREATER 1 IX2024.2
065500 MOVE WRK-CS-09V00-002 TO COMPUTED-N IX2024.2
065600 MOVE "INVALID KEY/READS" TO CORRECT-A IX2024.2
065700 PERFORM FAIL IX2024.2
065800 ELSE IX2024.2
065900 PERFORM PASS. IX2024.2
066000 PERFORM PRINT-DETAIL. IX2024.2
066100 CLOSE IX-FD1. IX2024.2
066200 CCVS-EXIT SECTION. IX2024.2
066300 CCVS-999999. IX2024.2
066400 GO TO CLOSE-FILES. IX2024.2
¤ Dauer der Verarbeitung: 0.22 Sekunden
(vorverarbeitet)
¤
|
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.
|
