000100 IDENTIFICATION DIVISION . RL1084.2PROGRAM-ID . RL1084.2000400**************************************************************** RL1084.2 000500* * RL1084.2 000600* VALIDATION FOR:- * RL1084.2 000700* * RL1084.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1084.2 000900* * RL1084.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL1084.2 001100* * RL1084.2 001200**************************************************************** RL1084.2 001300* * RL1084.2 001400* X-CARDS USED BY THIS PROGRAM ARE :- * RL1084.2 001500* * RL1084.2 001600* X-55 - SYSTEM PRINTER NAME. * RL1084.2 001700* X-61 - "LITERAL" IN "ASSIGN TO" CLAUSE FOR * RL1084.2 001800* RELATIVE I-O DATA FILE. * RL1084.2 001900* X-69 - ADDITIONAL "VALUE OF" CLAUSE. * RL1084.2 002000* X-74 - VALUE OF IMPLEMENTOR-NAME. * RL1084.2 002100* X-75 - OBJECT OF "VALUE" CLAUSE. * RL1084.2 002200* X-82 - SOURCE COMPUTER NAME. * RL1084.2 002300* X-83 - OBJECT COMPUTER NAME. * RL1084.2 002400* * RL1084.2 002500**************************************************************** RL1084.2 002600*RL108A * RL1084.2 002700*************************************************** RL1084.2 002800*GENERAL: THIS RUN UNIT IS THE FIRST OF A SERIES WHICH RL1084.2 002900* PROCESSES A RELATIVE I-O FILE. THE FUNCTION OF THIS RL1084.2 003000* PROGRAM IS TO CREATE A RELATIVE FILE SEQUENTIALLY RL1084.2 003100* (ACCESS MODE SEQUENTIAL) AND VERIFY THAT IT WAS RL1084.2 003200* CREATED CORRECTLY. THE FILE IS IDENTIFED AS "RL-FS1"RL1084.2 003300* AND IS PASSED TO SUBSEQUENT RUN UNITS FOR PROCESSING.RL1084.2 003400* RL1084.2 003500* THIS PROGRAM TESTS THE NEW SYNTACTICAL CONSTRUCTS AND RL1084.2 003600* SEMANTIC ACTIONS OF THE FOLLOWING ELEMENTS: RL1084.2 003700* - ASSIGN RL1084.2 003800* - ORGANIZATION RL1084.2 003900* - ACCESS RL1084.2 004000* - READ RL1084.2 004100* - WRITE RL1084.2 004200**************************************************************** RL1084.2 ENVIRONMENT DIVISION . RL1084.2CONFIGURATION SECTION . RL1084.2SOURCE-COMPUTER . RL1084.2OBJECT-COMPUTER . RL1084.2INPUT-OUTPUT SECTION . RL1084.2FILE-CONTROL . RL1084.2SELECT PRINT-FILE ASSIGN TO RL1084.2"C0085" . RL1084.2SELECT RL-FS1 ASSIGN TO RL1084.2"C0097" RL1084.2ORGANIZATION RELATIVE RL1084.2ACCESS SEQUENTIAL . RL1084.2005700* RL1084.2 DATA DIVISION . RL1084.2FILE SECTION . RL1084.2FD PRINT-FILE. RL1084.2PICTURE X(120). RL1084.2PICTURE X(120). RL1084.2FD RL-FS1 RL1084.2LABEL RECORDS STANDARD RL1084.2VALUE OF RL1084.2IS RL1084.2BLOCK CONTAINS 1 RECORDS RL1084.2RECORD CONTAINS 120 CHARACTERS. RL1084.2FILLER PIC X(120). RL1084.2WORKING-STORAGE SECTION . RL1084.2PIC S9(9) USAGE COMP VALUE ZERO . RL1084.2FILLER PICTURE X(48) VALUE RL1084.2"FILE= ,RECORD= /0,RECNO=000000,UPDT=00" . RL1084.2FILLER PICTURE X(46) VALUE RL1084.2",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000" . RL1084.2FILLER PICTURE X(26) VALUE RL1084.2",LFIL=000000,ORG= ,LBLR= " . RL1084.2FILLER PICTURE X(37) VALUE RL1084.2",RECKEY= " . RL1084.2FILLER PICTURE X(38) VALUE RL1084.2",ALTKEY1= " . RL1084.2FILLER PICTURE X(38) VALUE RL1084.2",ALTKEY2= " . RL1084.2FILLER PICTURE X(7) VALUE SPACE .RL1084.2OCCURS 10 TIMES. RL1084.2FILLER PIC X(5). RL1084.2PIC X(6). RL1084.2FILLER PIC X(8). RL1084.2PIC X(6). RL1084.2FILLER PIC X(1). RL1084.2PIC 9(1). RL1084.2FILLER PIC X(7). RL1084.2PIC 9(6). RL1084.2FILLER PIC X(6). RL1084.2PIC 9(2). RL1084.2FILLER PIC X(5). RL1084.2PIC 9(4). RL1084.2FILLER PIC X(5). RL1084.2PIC X(5). RL1084.2FILLER PIC X(7). RL1084.2PIC 9(6). RL1084.2FILLER PIC X(7). RL1084.2PIC X(2). RL1084.2FILLER PIC X(1). RL1084.2PIC 9(4). RL1084.2FILLER PIC X(6). RL1084.2PIC 9(6). RL1084.2FILLER PIC X(5). RL1084.2PIC X(2). RL1084.2FILLER PIC X(6). RL1084.2PIC X(1). RL1084.2FILLER PIC X(8). RL1084.2PIC X(29). RL1084.2FILLER PIC X(9). RL1084.2PIC X(29). RL1084.2FILLER PIC X(9). RL1084.2PIC X(29). RL1084.2FILLER PIC X(7). RL1084.2FILLER PIC X VALUE SPACE . RL1084.2PIC X(20) VALUE SPACE . RL1084.2FILLER PIC X VALUE SPACE . RL1084.2PIC X(5) VALUE SPACE . RL1084.2FILLER PIC X VALUE SPACE . RL1084.2FILLER PIC X(19) VALUE SPACE . RL1084.2PIC X VALUE SPACE . RL1084.2PIC 99 VALUE ZERO . RL1084.2FILLER PIC X(8) VALUE SPACE . RL1084.2PIC X(61). RL1084.2FILLER PIC X(30) VALUE SPACE . RL1084.2FILLER PIC X(17) VALUE RL1084.2" COMPUTED=" . RL1084.2PIC X(20) VALUE SPACE . RL1084.2REDEFINES COMPUTED-A RL1084.2PIC -9(9).9(9). RL1084.2REDEFINES COMPUTED-A PIC -.9(18). RL1084.2REDEFINES COMPUTED-A PIC -9(4).9(14). RL1084.2REDEFINES COMPUTED-A PIC -9(14).9(4). RL1084.2REDEFINES COMPUTED-A. RL1084.2PIC -9(18). RL1084.2FILLER PIC X. RL1084.2FILLER PIC X(50) VALUE SPACE . RL1084.2FILLER PIC X(30) VALUE SPACE . RL1084.2FILLER PIC X(17) VALUE " CORRECT =" . RL1084.2PIC X(20) VALUE SPACE . RL1084.2REDEFINES CORRECT-A PIC -9(9).9(9). RL1084.2REDEFINES CORRECT-A PIC -.9(18). RL1084.2REDEFINES CORRECT-A PIC -9(4).9(14). RL1084.2REDEFINES CORRECT-A PIC -9(14).9(4). RL1084.2REDEFINES CORRECT-A. RL1084.2PIC -9(18). RL1084.2FILLER PIC X. RL1084.2FILLER PIC X(2) VALUE SPACE . RL1084.2PIC X(48) VALUE SPACE . RL1084.2FILLER PIC IS X(99) VALUE IS " FEATURE PARL1084.2 "SS PARAGRAPH-NAME RL1084.2 " REMARKS" . RL1084.2FILLER PIC X(20) VALUE SPACE . RL1084.2FILLER PIC X VALUE SPACE . RL1084.2FILLER PIC X(6) VALUE "TESTED" . RL1084.2FILLER PIC X(15) VALUE SPACE . RL1084.2FILLER PIC X(4) VALUE "FAIL" . RL1084.2FILLER PIC X(94) VALUE SPACE . RL1084.2PIC 9(2) VALUE ZERO . RL1084.2PIC 99 VALUE ZERO . RL1084.2PIC 999 VALUE ZERO . RL1084.2PIC 999 VALUE ZERO . RL1084.2PIC 999 VALUE ZERO . RL1084.2PIC 999 VALUE ZERO . RL1084.2PIC 999 VALUE ZERO . RL1084.2PIC 999 VALUE ZERO . RL1084.2PIC X(120) VALUE SPACE . RL1084.2PIC 9(5) VALUE ZERO . RL1084.2PIC X(48) VALUE SPACES . RL1084.2FILLER PIC X(39) VALUE SPACES . RL1084.2FILLER PIC X(42) VALUE RL1084.2"OFFICIAL COBOL COMPILER VALIDATION SYSTEM" . RL1084.2FILLER PIC X(39) VALUE SPACES . RL1084.2FILLER PIC X(40) VALUE SPACE . RL1084.2FILLER PIC X(7) VALUE "CCVS85 " . RL1084.2FILLER PIC XXXX VALUE RL1084.2"4.2 " . RL1084.2FILLER PIC X(28) VALUE RL1084.2" COPY - NOT FOR DISTRIBUTION" . RL1084.2FILLER PIC X(41) VALUE SPACE . RL1084.2FILLER PIC X(15) VALUE RL1084.2"TEST RESULT OF " . RL1084.2PIC X(9). RL1084.2FILLER PIC X(4) VALUE RL1084.2" IN " . RL1084.2FILLER PIC X(12) VALUE RL1084.2" HIGH " . RL1084.2FILLER PIC X(22) VALUE RL1084.2" LEVEL VALIDATION FOR " . RL1084.2FILLER PIC X(58) VALUE RL1084.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .RL1084.2FILLER PIC X(34) VALUE RL1084.2" FOR OFFICIAL USE ONLY " . RL1084.2FILLER PIC X(58) VALUE RL1084.2"COBOL 85 VERSION 4.2, Apr 1993 SSVG " .RL1084.2FILLER PIC X(28) VALUE RL1084.2" COPYRIGHT 1985 " . RL1084.2FILLER PIC X(52) VALUE SPACE . RL1084.2FILLER PIC X(14) VALUE IS "END OF TEST- " . RL1084.2PIC X(9). RL1084.2FILLER PIC X(45) VALUE SPACES . RL1084.2FILLER PIC X(31) VALUE SPACE . RL1084.2FILLER PIC X(21) VALUE SPACE . RL1084.2PIC XXX VALUE SPACE . RL1084.2FILLER PIC X VALUE SPACE . RL1084.2PIC X(44) VALUE RL1084.2"ERRORS ENCOUNTERED" . RL1084.2FILLER PIC X(22) VALUE RL1084.2" FOR OFFICIAL USE ONLY" . RL1084.2FILLER PIC X(12) VALUE SPACE . RL1084.2FILLER PIC X(58) VALUE RL1084.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .RL1084.2FILLER PIC X(13) VALUE SPACE . RL1084.2FILLER PIC X(15) VALUE RL1084.2" COPYRIGHT 1985" . RL1084.2PIC XXX VALUE SPACE . RL1084.2FILLER PIC X(4) VALUE " OF " . RL1084.2PIC XXX VALUE SPACE . RL1084.2FILLER PIC X(40) VALUE RL1084.2" TESTS WERE EXECUTED SUCCESSFULLY" . RL1084.2FILLER PIC X(19) VALUE RL1084.2"*** INFORMATION ***" . RL1084.2FILLER PIC X(8) VALUE SPACE . RL1084.2PIC X(20). RL1084.2FILLER PIC X(5) VALUE SPACE . RL1084.2PIC X(20). RL1084.2PIC X(48). RL1084.2FILLER PIC IS X VALUE IS SPACE . RL1084.2FILLER PIC IS X(65) VALUE IS "************************RL1084.2 "*****************************************" . RL1084.2FILLER PIC IS X(54) VALUE IS "************************RL1084.2 "******************************" . RL1084.2PIC X(9) VALUE RL1084.2"RL108A" . RL1084.2PROCEDURE DIVISION . RL1084.2SECTION . RL1084.2OPEN OUTPUT PRINT-FILE. RL1084.2MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. RL1084.2MOVE SPACE TO TEST-RESULTS. RL1084.2PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. RL1084.2MOVE ZERO TO REC-SKL-SUB. RL1084.2PERFORM CCVS-INIT-FILE 9 TIMES. RL1084.2ADD 1 TO REC-SKL-SUB. RL1084.2MOVE FILE-RECORD-INFO-SKELETON RL1084.2TO FILE-RECORD-INFO (REC-SKL-SUB). RL1084.2GO TO CCVS1-EXIT. RL1084.2PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. RL1084.2EXIT PROGRAM . RL1084.2STOP RUN . RL1084.2MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. RL1084.2MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. RL1084.2MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. RL1084.2MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. RL1084.2MOVE "****TEST DELETED****" TO RE-MARK. RL1084.2IF REC-CT NOT EQUAL TO ZERO RL1084.2MOVE "." TO PARDOT-X RL1084.2MOVE REC-CT TO DOTVALUE. RL1084.2MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. RL1084.2IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE RL1084.2PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX RL1084.2ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. RL1084.2MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. RL1084.2MOVE SPACE TO CORRECT-X. RL1084.2IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. RL1084.2MOVE SPACE TO RE-MARK. RL1084.2MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1084.2MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1084.2MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. RL1084.2MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. RL1084.2MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL1084.2MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1084.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. RL1084.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.RL1084.2MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1084.2ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO RL1084.2ADD DELETE-COUNTER TO ERROR-HOLD. RL1084.2ADD PASS-COUNTER TO ERROR-HOLD. RL1084.2032300* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. RL1084.2 MOVE PASS-COUNTER TO CCVS-E-4-1. RL1084.2MOVE ERROR-HOLD TO CCVS-E-4-2. RL1084.2MOVE CCVS-E-4 TO CCVS-E-2-2. RL1084.2MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. RL1084.2MOVE "TEST(S) FAILED" TO ENDER-DESC. RL1084.2IF ERROR-COUNTER IS EQUAL TO ZERO RL1084.2MOVE "NO " TO ERROR-TOTAL RL1084.2ELSE RL1084.2MOVE ERROR-COUNTER TO ERROR-TOTAL. RL1084.2MOVE CCVS-E-2 TO DUMMY-RECORD. RL1084.2PERFORM WRITE-LINE. RL1084.2IF DELETE-COUNTER IS EQUAL TO ZERO RL1084.2MOVE "NO " TO ERROR-TOTAL ELSE RL1084.2MOVE DELETE-COUNTER TO ERROR-TOTAL. RL1084.2MOVE "TEST(S) DELETED " TO ENDER-DESC. RL1084.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL1084.2IF INSPECT-COUNTER EQUAL TO ZERO RL1084.2MOVE "NO " TO ERROR-TOTAL RL1084.2ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. RL1084.2MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. RL1084.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL1084.2MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL1084.2ADD 1 TO RECORD-COUNT. RL1084.2IF RECORD-COUNT GREATER 50 RL1084.2MOVE DUMMY-RECORD TO DUMMY-HOLD RL1084.2MOVE SPACE TO DUMMY-RECORD RL1084.2WRITE DUMMY-RECORD AFTER ADVANCING PAGE RL1084.2MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN RL1084.2MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES RL1084.2MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN RL1084.2MOVE DUMMY-HOLD TO DUMMY-RECORD RL1084.2MOVE ZERO TO RECORD-COUNT. RL1084.2PERFORM WRT-LN. RL1084.2WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. RL1084.2MOVE SPACE TO DUMMY-RECORD. RL1084.2PERFORM WRT-LN. RL1084.2IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. RL1084.2IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.RL1084.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. RL1084.2MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. RL1084.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1084.2MOVE SPACES TO INF-ANSI-REFERENCE. RL1084.2GO TO FAIL-ROUTINE-EX. RL1084.2MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE RL1084.2MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. RL1084.2MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. RL1084.2MOVE SPACES TO COR-ANSI-REFERENCE. RL1084.2EXIT . RL1084.2IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. RL1084.2IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. RL1084.2MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. RL1084.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. RL1084.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1084.2MOVE SPACES TO INF-ANSI-REFERENCE. RL1084.2EXIT . RL1084.2EXIT . RL1084.2SECTION . RL1084.2MOVE "FILE CREATE RL-FS1" TO FEATURE. RL1084.2OPEN OUTPUT RL-FS1. RL1084.2MOVE "RL-FS1" TO XFILE-NAME (1). RL1084.2MOVE "R1-F-G" TO XRECORD-NAME (1). RL1084.2MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). RL1084.2MOVE 000120 TO XRECORD-LENGTH (1). RL1084.2MOVE "RC" TO CHARS-OR-RECORDS (1). RL1084.2MOVE 0001 TO XBLOCK-SIZE (1). RL1084.2MOVE 000500 TO RECORDS-IN-FILE (1). RL1084.2MOVE "RL" TO XFILE-ORGANIZATION (1). RL1084.2MOVE "S" TO XLABEL-TYPE (1). RL1084.2MOVE 000001 TO XRECORD-NUMBER (1). RL1084.2MOVE FILE-RECORD-INFO-P1-120 (1) TO RL-FS1R1-F-G-120. RL1084.2WRITE RL-FS1R1-F-G-120 RL1084.2INVALID KEY GO TO REL-FAIL-001 RL1084.2NOT INVALID KEY GO TO REL-TEST-001-A RL1084.2END-WRITE . RL1084.2IF XRECORD-NUMBER (1) EQUAL TO 500 RL1084.2GO TO REL-WRITE-001. RL1084.2ADD 000001 TO XRECORD-NUMBER (1). RL1084.2GO TO REL-TEST-001. RL1084.2PERFORM DE-LETE. RL1084.2GO TO REL-WRITE-001. RL1084.2PERFORM FAIL. RL1084.2MOVE "BOUNDARY VIOLATION" TO RE-MARK. RL1084.2MOVE "VIII-37 4.9.4(A)" TO ANSI-REFERENCE. RL1084.2MOVE "REL-TEST-001" TO PAR-NAME RL1084.2MOVE "FILE CREATED, LFILE " TO COMPUTED-A. RL1084.2MOVE XRECORD-NUMBER (1) TO CORRECT-18V0. RL1084.2PERFORM PRINT-DETAIL. RL1084.2CLOSE RL-FS1. RL1084.2OPEN INPUT RL-FS1. RL1084.2MOVE ZERO TO WRK-CS-09V00. RL1084.2READ RL-FS1 RL1084.2AT END GO TO REL-TEST-002-1 RL1084.2NOT AT END GO TO REL-TEST-002-A RL1084.2END-READ . RL1084.2MOVE RL-FS1R1-F-G-120 TO FILE-RECORD-INFO-P1-120 (1). RL1084.2ADD 1 TO WRK-CS-09V00. RL1084.2IF WRK-CS-09V00 GREATER 500 RL1084.2MOVE "MORE THAN 500 RECORDS" TO RE-MARK RL1084.2GO TO REL-TEST-002-1. RL1084.2GO TO REL-TEST-002. RL1084.2PERFORM DE-LETE. RL1084.2PERFORM PRINT-DETAIL. RL1084.2GO TO CCVS-EXIT. RL1084.2IF XRECORD-NUMBER (1) NOT EQUAL TO 500 RL1084.2PERFORM FAIL RL1084.2ELSE RL1084.2PERFORM PASS. RL1084.2GO TO REL-WRITE-002. RL1084.2MOVE "VIII-26 4.5.4" TO ANSI-REFERENCE. RL1084.2MOVE "REL-TEST-002" TO PAR-NAME. RL1084.2MOVE "FILE VERIFIED, LFILE" TO COMPUTED-A. RL1084.2MOVE XRECORD-NUMBER (1) TO CORRECT-18V0. RL1084.2PERFORM PRINT-DETAIL. RL1084.2CLOSE RL-FS1. RL1084.2SECTION . RL1084.2GO TO CLOSE-FILES. RL1084.2quality 96%
¤ Dauer der Verarbeitung: 0.28 Sekunden
(vorverarbeitet)
¤ *© Formatika GbR, Deutschland
