|
000100 IDENTIFICATION DIVISION. RL1014.2
000200 PROGRAM-ID. RL1014.2
000300 RL101A. RL1014.2
000400**************************************************************** RL1014.2
000500* * RL1014.2
000600* VALIDATION FOR:- * RL1014.2
000700* * RL1014.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1014.2
000900* * RL1014.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL1014.2
001100* * RL1014.2
001200**************************************************************** RL1014.2
001300* * RL1014.2
001400* X-CARDS USED BY THIS PROGRAM ARE :- * RL1014.2
001500* * RL1014.2
001600* X-21 IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR * RL1014.2
001700* RELATIVE I-O DATA FILE * RL1014.2
001800* X-55 SYSTEM PRINTER * RL1014.2
001900* X-69 ADDITIONAL VALUE OF CLAUSES * RL1014.2
002000* X-74 VALUE OF IMPLEMENTOR-NAME * RL1014.2
002100* X-75 OBJECT OF VALUE OF CLAUSE * RL1014.2
002200* X-82 SOURCE-COMPUTER * RL1014.2
002300* X-83 OBJECT-COMPUTER. * RL1014.2
002400* * RL1014.2
002500**************************************************************** RL1014.2
002600* RL111A * RL1014.2
000500* * RL1014.2
000600* VALIDATION FOR:- * RL1014.2
000700* * RL1014.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1014.2
000900* * RL1014.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL1014.2
001100* * RL1014.2
001200**************************************************************** RL1014.2
001300* * RL1014.2
001400* X-CARDS USED BY THIS PROGRAM ARE :- * RL1014.2
001500* * RL1014.2
001600* X-21 IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR * RL1014.2
001700* RELATIVE I-O DATA FILE * RL1014.2
001800* X-55 SYSTEM PRINTER * RL1014.2
001900* X-69 ADDITIONAL VALUE OF CLAUSES * RL1014.2
002000* X-74 VALUE OF IMPLEMENTOR-NAME * RL1014.2
002100* X-75 OBJECT OF VALUE OF CLAUSE * RL1014.2
002200* X-82 SOURCE-COMPUTER * RL1014.2
002300* X-83 OBJECT-COMPUTER. * RL1014.2
002400* * RL1014.2
002500**************************************************************** RL1014.2
002600* RL111A * RL1014.2
002700**************************************************************** RL1014.2
002800* * RL1014.2
002900* THIS PROGRAM WILL TEST THE NEW SYNTACTICAL CONSTRUCTS * RL1014.2
003000* AND SEMENTIC ACTIONS ASSOCIATED WITH THE FOLLOWING * RL1014.2
003100* CLAUSES: * RL1014.2
003200* - ACCESS * RL1014.2
003300* - READ * RL1014.2
003400* - WRITE * RL1014.2
003500* - REWRITE * RL1014.2
003600* * RL1014.2
003700* 1) THE PROGRAM WILL CREATE A RELATIVE I-O FILE * RL1014.2
003800* 2) THEN IT WILL UPDATE SELECTIVE RECORDS OF THE FILE * RL1014.2
003900* 3) THE FILE STATUS CONTENTS ARE CAPTURED AND TESTED FOR * RL1014.2
004000* ACCURACY FOR EACH "OPEN", "CLOSE", "READ" AND * RL1014.2
004100* "REWRITE" STATEMENT USED. * RL1014.2
004200* 4) THE "READ", "WRITE" AND "REWRITE" STATEMENT WILL BE * RL1014.2
004300* USED WITH THE APPROPRIATE "AT END", "NOT AT END", * RL1014.2
004400* "INVALID KEY" AND "NOT INVALID KEY" PHRASES. * RL1014.2
004500* * RL1014.2
000500* * RL1014.2
000600* VALIDATION FOR:- * RL1014.2
000700* * RL1014.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1014.2
000900* * RL1014.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL1014.2
001100* * RL1014.2
001200**************************************************************** RL1014.2
001300* * RL1014.2
001400* X-CARDS USED BY THIS PROGRAM ARE :- * RL1014.2
001500* * RL1014.2
001600* X-21 IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR * RL1014.2
001700* RELATIVE I-O DATA FILE * RL1014.2
001800* X-55 SYSTEM PRINTER * RL1014.2
001900* X-69 ADDITIONAL VALUE OF CLAUSES * RL1014.2
002000* X-74 VALUE OF IMPLEMENTOR-NAME * RL1014.2
002100* X-75 OBJECT OF VALUE OF CLAUSE * RL1014.2
002200* X-82 SOURCE-COMPUTER * RL1014.2
002300* X-83 OBJECT-COMPUTER. * RL1014.2
002400* * RL1014.2
002500**************************************************************** RL1014.2
002600* RL111A * RL1014.2
002700**************************************************************** RL1014.2
002800* * RL1014.2
002900* THIS PROGRAM WILL TEST THE NEW SYNTACTICAL CONSTRUCTS * RL1014.2
003000* AND SEMENTIC ACTIONS ASSOCIATED WITH THE FOLLOWING * RL1014.2
003100* CLAUSES: * RL1014.2
003200* - ACCESS * RL1014.2
003300* - READ * RL1014.2
003400* - WRITE * RL1014.2
003500* - REWRITE * RL1014.2
003600* * RL1014.2
003700* 1) THE PROGRAM WILL CREATE A RELATIVE I-O FILE * RL1014.2
003800* 2) THEN IT WILL UPDATE SELECTIVE RECORDS OF THE FILE * RL1014.2
003900* 3) THE FILE STATUS CONTENTS ARE CAPTURED AND TESTED FOR * RL1014.2
004000* ACCURACY FOR EACH "OPEN", "CLOSE", "READ" AND * RL1014.2
004100* "REWRITE" STATEMENT USED. * RL1014.2
004200* 4) THE "READ", "WRITE" AND "REWRITE" STATEMENT WILL BE * RL1014.2
004300* USED WITH THE APPROPRIATE "AT END", "NOT AT END", * RL1014.2
004400* "INVALID KEY" AND "NOT INVALID KEY" PHRASES. * RL1014.2
004500* * RL1014.2
002700**************************************************************** RL1014.2
002800* * RL1014.2
002900* THIS PROGRAM WILL TEST THE NEW SYNTACTICAL CONSTRUCTS * RL1014.2
003000* AND SEMENTIC ACTIONS ASSOCIATED WITH THE FOLLOWING * RL1014.2
003100* CLAUSES: * RL1014.2
003200* - ACCESS * RL1014.2
003300* - READ * RL1014.2
003400* - WRITE * RL1014.2
003500* - REWRITE * RL1014.2
003600* * RL1014.2
003700* 1) THE PROGRAM WILL CREATE A RELATIVE I-O FILE * RL1014.2
003800* 2) THEN IT WILL UPDATE SELECTIVE RECORDS OF THE FILE * RL1014.2
003900* 3) THE FILE STATUS CONTENTS ARE CAPTURED AND TESTED FOR * RL1014.2
004000* ACCURACY FOR EACH "OPEN", "CLOSE", "READ" AND * RL1014.2
004100* "REWRITE" STATEMENT USED. * RL1014.2
004200* 4) THE "READ", "WRITE" AND "REWRITE" STATEMENT WILL BE * RL1014.2
004300* USED WITH THE APPROPRIATE "AT END", "NOT AT END", * RL1014.2
004400* "INVALID KEY" AND "NOT INVALID KEY" PHRASES. * RL1014.2
004500* * RL1014.2
000500* * RL1014.2
000600* VALIDATION FOR:- * RL1014.2
000700* * RL1014.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1014.2
000900* * RL1014.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL1014.2
001100* * RL1014.2
001200**************************************************************** RL1014.2
001300* * RL1014.2
001400* X-CARDS USED BY THIS PROGRAM ARE :- * RL1014.2
001500* * RL1014.2
001600* X-21 IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR * RL1014.2
001700* RELATIVE I-O DATA FILE * RL1014.2
001800* X-55 SYSTEM PRINTER * RL1014.2
001900* X-69 ADDITIONAL VALUE OF CLAUSES * RL1014.2
002000* X-74 VALUE OF IMPLEMENTOR-NAME * RL1014.2
002100* X-75 OBJECT OF VALUE OF CLAUSE * RL1014.2
002200* X-82 SOURCE-COMPUTER * RL1014.2
002300* X-83 OBJECT-COMPUTER. * RL1014.2
002400* * RL1014.2
002500**************************************************************** RL1014.2
002600* RL111A * RL1014.2
002700**************************************************************** RL1014.2
002800* * RL1014.2
002900* THIS PROGRAM WILL TEST THE NEW SYNTACTICAL CONSTRUCTS * RL1014.2
003000* AND SEMENTIC ACTIONS ASSOCIATED WITH THE FOLLOWING * RL1014.2
003100* CLAUSES: * RL1014.2
003200* - ACCESS * RL1014.2
003300* - READ * RL1014.2
003400* - WRITE * RL1014.2
003500* - REWRITE * RL1014.2
003600* * RL1014.2
003700* 1) THE PROGRAM WILL CREATE A RELATIVE I-O FILE * RL1014.2
003800* 2) THEN IT WILL UPDATE SELECTIVE RECORDS OF THE FILE * RL1014.2
003900* 3) THE FILE STATUS CONTENTS ARE CAPTURED AND TESTED FOR * RL1014.2
004000* ACCURACY FOR EACH "OPEN", "CLOSE", "READ" AND * RL1014.2
004100* "REWRITE" STATEMENT USED. * RL1014.2
004200* 4) THE "READ", "WRITE" AND "REWRITE" STATEMENT WILL BE * RL1014.2
004300* USED WITH THE APPROPRIATE "AT END", "NOT AT END", * RL1014.2
004400* "INVALID KEY" AND "NOT INVALID KEY" PHRASES. * RL1014.2
004500* * RL1014.2
000500* * RL1014.2
000600* VALIDATION FOR:- * RL1014.2
000700* * RL1014.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1014.2
000900* * RL1014.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL1014.2
001100* * RL1014.2
001200**************************************************************** RL1014.2
001300* * RL1014.2
001400* X-CARDS USED BY THIS PROGRAM ARE :- * RL1014.2
001500* * RL1014.2
001600* X-21 IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR * RL1014.2
001700* RELATIVE I-O DATA FILE * RL1014.2
001800* X-55 SYSTEM PRINTER * RL1014.2
001900* X-69 ADDITIONAL VALUE OF CLAUSES * RL1014.2
002000* X-74 VALUE OF IMPLEMENTOR-NAME * RL1014.2
002100* X-75 OBJECT OF VALUE OF CLAUSE * RL1014.2
002200* X-82 SOURCE-COMPUTER * RL1014.2
002300* X-83 OBJECT-COMPUTER. * RL1014.2
002400* * RL1014.2
002500**************************************************************** RL1014.2
002600* RL111A * RL1014.2
002700**************************************************************** RL1014.2
002800* * RL1014.2
002900* THIS PROGRAM WILL TEST THE NEW SYNTACTICAL CONSTRUCTS * RL1014.2
003000* AND SEMENTIC ACTIONS ASSOCIATED WITH THE FOLLOWING * RL1014.2
003100* CLAUSES: * RL1014.2
003200* - ACCESS * RL1014.2
003300* - READ * RL1014.2
003400* - WRITE * RL1014.2
003500* - REWRITE * RL1014.2
003600* * RL1014.2
003700* 1) THE PROGRAM WILL CREATE A RELATIVE I-O FILE * RL1014.2
003800* 2) THEN IT WILL UPDATE SELECTIVE RECORDS OF THE FILE * RL1014.2
003900* 3) THE FILE STATUS CONTENTS ARE CAPTURED AND TESTED FOR * RL1014.2
004000* ACCURACY FOR EACH "OPEN", "CLOSE", "READ" AND * RL1014.2
004100* "REWRITE" STATEMENT USED. * RL1014.2
004200* 4) THE "READ", "WRITE" AND "REWRITE" STATEMENT WILL BE * RL1014.2
004300* USED WITH THE APPROPRIATE "AT END", "NOT AT END", * RL1014.2
004400* "INVALID KEY" AND "NOT INVALID KEY" PHRASES. * RL1014.2
004500* * RL1014.2
000500* * RL1014.2
000600* VALIDATION FOR:- * RL1014.2
000700* * RL1014.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1014.2
000900* * RL1014.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL1014.2
001100* * RL1014.2
001200**************************************************************** RL1014.2
001300* * RL1014.2
001400* X-CARDS USED BY THIS PROGRAM ARE :- * RL1014.2
001500* * RL1014.2
001600* X-21 IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR * RL1014.2
001700* RELATIVE I-O DATA FILE * RL1014.2
001800* X-55 SYSTEM PRINTER * RL1014.2
001900* X-69 ADDITIONAL VALUE OF CLAUSES * RL1014.2
002000* X-74 VALUE OF IMPLEMENTOR-NAME * RL1014.2
002100* X-75 OBJECT OF VALUE OF CLAUSE * RL1014.2
002200* X-82 SOURCE-COMPUTER * RL1014.2
002300* X-83 OBJECT-COMPUTER. * RL1014.2
002400* * RL1014.2
002500**************************************************************** RL1014.2
002600* RL111A * RL1014.2
002700**************************************************************** RL1014.2
002800* * RL1014.2
002900* THIS PROGRAM WILL TEST THE NEW SYNTACTICAL CONSTRUCTS * RL1014.2
003000* AND SEMENTIC ACTIONS ASSOCIATED WITH THE FOLLOWING * RL1014.2
003100* CLAUSES: * RL1014.2
003200* - ACCESS * RL1014.2
003300* - READ * RL1014.2
003400* - WRITE * RL1014.2
003500* - REWRITE * RL1014.2
003600* * RL1014.2
003700* 1) THE PROGRAM WILL CREATE A RELATIVE I-O FILE * RL1014.2
003800* 2) THEN IT WILL UPDATE SELECTIVE RECORDS OF THE FILE * RL1014.2
003900* 3) THE FILE STATUS CONTENTS ARE CAPTURED AND TESTED FOR * RL1014.2
004000* ACCURACY FOR EACH "OPEN", "CLOSE", "READ" AND * RL1014.2
004100* "REWRITE" STATEMENT USED. * RL1014.2
004200* 4) THE "READ", "WRITE" AND "REWRITE" STATEMENT WILL BE * RL1014.2
004300* USED WITH THE APPROPRIATE "AT END", "NOT AT END", * RL1014.2
004400* "INVALID KEY" AND "NOT INVALID KEY" PHRASES. * RL1014.2
004500* * RL1014.2
000500* * RL1014.2
000600* VALIDATION FOR:- * RL1014.2
000700* * RL1014.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1014.2
000900* * RL1014.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL1014.2
001100* * RL1014.2
001200**************************************************************** RL1014.2
001300* * RL1014.2
001400* X-CARDS USED BY THIS PROGRAM ARE :- * RL1014.2
001500* * RL1014.2
001600* X-21 IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR * RL1014.2
001700* RELATIVE I-O DATA FILE * RL1014.2
001800* X-55 SYSTEM PRINTER * RL1014.2
001900* X-69 ADDITIONAL VALUE OF CLAUSES * RL1014.2
002000* X-74 VALUE OF IMPLEMENTOR-NAME * RL1014.2
002100* X-75 OBJECT OF VALUE OF CLAUSE * RL1014.2
002200* X-82 SOURCE-COMPUTER * RL1014.2
002300* X-83 OBJECT-COMPUTER. * RL1014.2
002400* * RL1014.2
002500**************************************************************** RL1014.2
002600* RL111A * RL1014.2
002700**************************************************************** RL1014.2
002800* * RL1014.2
002900* THIS PROGRAM WILL TEST THE NEW SYNTACTICAL CONSTRUCTS * RL1014.2
003000* AND SEMENTIC ACTIONS ASSOCIATED WITH THE FOLLOWING * RL1014.2
003100* CLAUSES: * RL1014.2
003200* - ACCESS * RL1014.2
003300* - READ * RL1014.2
003400* - WRITE * RL1014.2
003500* - REWRITE * RL1014.2
003600* * RL1014.2
003700* 1) THE PROGRAM WILL CREATE A RELATIVE I-O FILE * RL1014.2
003800* 2) THEN IT WILL UPDATE SELECTIVE RECORDS OF THE FILE * RL1014.2
003900* 3) THE FILE STATUS CONTENTS ARE CAPTURED AND TESTED FOR * RL1014.2
004000* ACCURACY FOR EACH "OPEN", "CLOSE", "READ" AND * RL1014.2
004100* "REWRITE" STATEMENT USED. * RL1014.2
004200* 4) THE "READ", "WRITE" AND "REWRITE" STATEMENT WILL BE * RL1014.2
004300* USED WITH THE APPROPRIATE "AT END", "NOT AT END", * RL1014.2
004400* "INVALID KEY" AND "NOT INVALID KEY" PHRASES. * RL1014.2
004500* * RL1014.2
004600**************************************************************** RL1014.2
004700 ENVIRONMENT DIVISION. RL1014.2
004800 CONFIGURATION SECTION. RL1014.2
004900 SOURCE-COMPUTER. RL1014.2
005000 Card0130. RL1014.2
005100 OBJECT-COMPUTER. RL1014.2
005200 Card0131. RL1014.2
005300 INPUT-OUTPUT SECTION. RL1014.2
005400 FILE-CONTROL. RL1014.2
005500 SELECT PRINT-FILE ASSIGN TO RL1014.2
005600 "C0085" . RL1014.2
005700 SELECT RL-FS2 ASSIGN TO RL1014.2
005800 XXXXP021 RL1014.2
005900 ORGANIZATION IS RELATIVE RL1014.2
006000 ACCESS IS SEQUENTIAL RL1014.2
006100 STATUS RL-FS2-STATUS. RL1014.2
006200 DATA DIVISION. RL1014.2
006300 FILE SECTION. RL1014.2
006400 FD PRINT-FILE. RL1014.2
006500 01 PRINT-REC PICTURE X(120). RL1014.2
006600 01 DUMMY-RECORD PICTURE X(120). RL1014.2
006700 FD RL-FS2 RL1014.2
006800 LABEL RECORDS STANDARD RL1014.2
006900 VALUE OF RL1014.2
007000 Impl1 RL1014.2
007100 IS RL1014.2
007200 4711 RL1014.2
007300 RL1014.2
007400 BLOCK CONTAINS 1 RECORDS RL1014.2
007500 RECORD CONTAINS 120 CHARACTERS. RL1014.2
007600 01 RL-FS2R1-F-G-120. RL1014.2
007700 02 FILLER PIC X(120). RL1014.2
007800 WORKING-STORAGE SECTION. RL1014.2
007900 01 RL-FS2-STATUS PIC XX. RL1014.2
008000 01 WRK-CS-09V00 PIC S9(9) USAGE COMP VALUE ZERO. RL1014.2
008100 01 FILE-RECORD-INFORMATION-REC. RL1014.2
008200 03 FILE-RECORD-INFO-SKELETON. RL1014.2
008300 05 FILLER PICTURE X(48) VALUE RL1014.2
008400 "FILE= ,RECORD= /0,RECNO=000000,UPDT=00". RL1014.2
008500 05 FILLER PICTURE X(46) VALUE RL1014.2
008600 ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000". RL1014.2
008700 05 FILLER PICTURE X(26) VALUE RL1014.2
008800 ",LFIL=000000,ORG= ,LBLR= ". RL1014.2
008900 05 FILLER PICTURE X(37) VALUE RL1014.2
009000 ",RECKEY= ". RL1014.2
009100 05 FILLER PICTURE X(38) VALUE RL1014.2
009200 ",ALTKEY1= ". RL1014.2
009300 05 FILLER PICTURE X(38) VALUE RL1014.2
009400 ",ALTKEY2= ". RL1014.2
009500 05 FILLER PICTURE X(7) VALUE SPACE.RL1014.2
009600 03 FILE-RECORD-INFO OCCURS 10 TIMES. RL1014.2
009700 05 FILE-RECORD-INFO-P1-120. RL1014.2
009800 07 FILLER PIC X(5). RL1014.2
009900 07 XFILE-NAME PIC X(6). RL1014.2
010000 07 FILLER PIC X(8). RL1014.2
010100 07 XRECORD-NAME PIC X(6). RL1014.2
010200 07 FILLER PIC X(1). RL1014.2
010300 07 REELUNIT-NUMBER PIC 9(1). RL1014.2
010400 07 FILLER PIC X(7). RL1014.2
010500 07 XRECORD-NUMBER PIC 9(6). RL1014.2
010600 07 FILLER PIC X(6). RL1014.2
010700 07 UPDATE-NUMBER PIC 9(2). RL1014.2
010800 07 FILLER PIC X(5). RL1014.2
010900 07 ODO-NUMBER PIC 9(4). RL1014.2
011000 07 FILLER PIC X(5). RL1014.2
011100 07 XPROGRAM-NAME PIC X(5). RL1014.2
011200 07 FILLER PIC X(7). RL1014.2
011300 07 XRECORD-LENGTH PIC 9(6). RL1014.2
011400 07 FILLER PIC X(7). RL1014.2
011500 07 CHARS-OR-RECORDS PIC X(2). RL1014.2
011600 07 FILLER PIC X(1). RL1014.2
011700 07 XBLOCK-SIZE PIC 9(4). RL1014.2
011800 07 FILLER PIC X(6). RL1014.2
011900 07 RECORDS-IN-FILE PIC 9(6). RL1014.2
012000 07 FILLER PIC X(5). RL1014.2
012100 07 XFILE-ORGANIZATION PIC X(2). RL1014.2
012200 07 FILLER PIC X(6). RL1014.2
012300 07 XLABEL-TYPE PIC X(1). RL1014.2
012400 05 FILE-RECORD-INFO-P121-240. RL1014.2
012500 07 FILLER PIC X(8). RL1014.2
012600 07 XRECORD-KEY PIC X(29). RL1014.2
012700 07 FILLER PIC X(9). RL1014.2
012800 07 ALTERNATE-KEY1 PIC X(29). RL1014.2
012900 07 FILLER PIC X(9). RL1014.2
013000 07 ALTERNATE-KEY2 PIC X(29). RL1014.2
013100 07 FILLER PIC X(7). RL1014.2
013200 01 TEST-RESULTS. RL1014.2
013300 02 FILLER PIC X VALUE SPACE. RL1014.2
013400 02 FEATURE PIC X(20) VALUE SPACE. RL1014.2
013500 02 FILLER PIC X VALUE SPACE. RL1014.2
013600 02 P-OR-F PIC X(5) VALUE SPACE. RL1014.2
013700 02 FILLER PIC X VALUE SPACE. RL1014.2
013800 02 PAR-NAME. RL1014.2
013900 03 FILLER PIC X(19) VALUE SPACE. RL1014.2
014000 03 PARDOT-X PIC X VALUE SPACE. RL1014.2
014100 03 DOTVALUE PIC 99 VALUE ZERO. RL1014.2
014200 02 FILLER PIC X(8) VALUE SPACE. RL1014.2
014300 02 RE-MARK PIC X(61). RL1014.2
014400 01 TEST-COMPUTED. RL1014.2
014500 02 FILLER PIC X(30) VALUE SPACE. RL1014.2
014600 02 FILLER PIC X(17) VALUE RL1014.2
014700 " COMPUTED=". RL1014.2
014800 02 COMPUTED-X. RL1014.2
014900 03 COMPUTED-A PIC X(20) VALUE SPACE. RL1014.2
015000 03 COMPUTED-N REDEFINES COMPUTED-A RL1014.2
015100 PIC -9(9).9(9). RL1014.2
015200 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). RL1014.2
015300 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). RL1014.2
015400 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). RL1014.2
015500 03 CM-18V0 REDEFINES COMPUTED-A. RL1014.2
015600 04 COMPUTED-18V0 PIC -9(18). RL1014.2
015700 04 FILLER PIC X. RL1014.2
015800 03 FILLER PIC X(50) VALUE SPACE. RL1014.2
015900 01 TEST-CORRECT. RL1014.2
016000 02 FILLER PIC X(30) VALUE SPACE. RL1014.2
016100 02 FILLER PIC X(17) VALUE " CORRECT =". RL1014.2
016200 02 CORRECT-X. RL1014.2
016300 03 CORRECT-A PIC X(20) VALUE SPACE. RL1014.2
016400 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). RL1014.2
016500 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). RL1014.2
016600 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). RL1014.2
016700 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). RL1014.2
016800 03 CR-18V0 REDEFINES CORRECT-A. RL1014.2
016900 04 CORRECT-18V0 PIC -9(18). RL1014.2
017000 04 FILLER PIC X. RL1014.2
017100 03 FILLER PIC X(2) VALUE SPACE. RL1014.2
017200 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. RL1014.2
017300 01 CCVS-C-1. RL1014.2
017400 02 FILLER PIC IS X(99) VALUE IS " FEATURE PARL1014.2
017500- "SS PARAGRAPH-NAME RL1014.2
017600- " REMARKS". RL1014.2
017700 02 FILLER PIC X(20) VALUE SPACE. RL1014.2
017800 01 CCVS-C-2. RL1014.2
017900 02 FILLER PIC X VALUE SPACE. RL1014.2
018000 02 FILLER PIC X(6) VALUE "TESTED". RL1014.2
018100 02 FILLER PIC X(15) VALUE SPACE. RL1014.2
018200 02 FILLER PIC X(4) VALUE "FAIL". RL1014.2
018300 02 FILLER PIC X(94) VALUE SPACE. RL1014.2
018400 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. RL1014.2
018500 01 REC-CT PIC 99 VALUE ZERO. RL1014.2
018600 01 DELETE-COUNTER PIC 999 VALUE ZERO. RL1014.2
018700 01 ERROR-COUNTER PIC 999 VALUE ZERO. RL1014.2
018800 01 INSPECT-COUNTER PIC 999 VALUE ZERO. RL1014.2
018900 01 PASS-COUNTER PIC 999 VALUE ZERO. RL1014.2
019000 01 TOTAL-ERROR PIC 999 VALUE ZERO. RL1014.2
019100 01 ERROR-HOLD PIC 999 VALUE ZERO. RL1014.2
019200 01 DUMMY-HOLD PIC X(120) VALUE SPACE. RL1014.2
019300 01 RECORD-COUNT PIC 9(5) VALUE ZERO. RL1014.2
019400 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. RL1014.2
019500 01 CCVS-H-1. RL1014.2
019600 02 FILLER PIC X(39) VALUE SPACES. RL1014.2
019700 02 FILLER PIC X(42) VALUE RL1014.2
019800 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". RL1014.2
019900 02 FILLER PIC X(39) VALUE SPACES. RL1014.2
020000 01 CCVS-H-2A. RL1014.2
020100 02 FILLER PIC X(40) VALUE SPACE. RL1014.2
020200 02 FILLER PIC X(7) VALUE "CCVS85 ". RL1014.2
020300 02 FILLER PIC XXXX VALUE RL1014.2
020400 "4.2 ". RL1014.2
020500 02 FILLER PIC X(28) VALUE RL1014.2
020600 " COPY - NOT FOR DISTRIBUTION". RL1014.2
020700 02 FILLER PIC X(41) VALUE SPACE. RL1014.2
020800 RL1014.2
020900 01 CCVS-H-2B. RL1014.2
021000 02 FILLER PIC X(15) VALUE RL1014.2
021100 "TEST RESULT OF ". RL1014.2
021200 02 TEST-ID PIC X(9). RL1014.2
021300 02 FILLER PIC X(4) VALUE RL1014.2
021400 " IN ". RL1014.2
021500 02 FILLER PIC X(12) VALUE RL1014.2
021600 " HIGH ". RL1014.2
021700 02 FILLER PIC X(22) VALUE RL1014.2
021800 " LEVEL VALIDATION FOR ". RL1014.2
021900 02 FILLER PIC X(58) VALUE RL1014.2
022000 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1014.2
022100 01 CCVS-H-3. RL1014.2
022200 02 FILLER PIC X(34) VALUE RL1014.2
022300 " FOR OFFICIAL USE ONLY ". RL1014.2
022400 02 FILLER PIC X(58) VALUE RL1014.2
022500 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL1014.2
022600 02 FILLER PIC X(28) VALUE RL1014.2
022700 " COPYRIGHT 1985 ". RL1014.2
022800 01 CCVS-E-1. RL1014.2
022900 02 FILLER PIC X(52) VALUE SPACE. RL1014.2
023000 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". RL1014.2
023100 02 ID-AGAIN PIC X(9). RL1014.2
023200 02 FILLER PIC X(45) VALUE SPACES. RL1014.2
023300 01 CCVS-E-2. RL1014.2
023400 02 FILLER PIC X(31) VALUE SPACE. RL1014.2
023500 02 FILLER PIC X(21) VALUE SPACE. RL1014.2
023600 02 CCVS-E-2-2. RL1014.2
023700 03 ERROR-TOTAL PIC XXX VALUE SPACE. RL1014.2
023800 03 FILLER PIC X VALUE SPACE. RL1014.2
023900 03 ENDER-DESC PIC X(44) VALUE RL1014.2
024000 "ERRORS ENCOUNTERED". RL1014.2
024100 01 CCVS-E-3. RL1014.2
024200 02 FILLER PIC X(22) VALUE RL1014.2
024300 " FOR OFFICIAL USE ONLY". RL1014.2
024400 02 FILLER PIC X(12) VALUE SPACE. RL1014.2
024500 02 FILLER PIC X(58) VALUE RL1014.2
024600 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1014.2
024700 02 FILLER PIC X(13) VALUE SPACE. RL1014.2
024800 02 FILLER PIC X(15) VALUE RL1014.2
024900 " COPYRIGHT 1985". RL1014.2
025000 01 CCVS-E-4. RL1014.2
025100 02 CCVS-E-4-1 PIC XXX VALUE SPACE. RL1014.2
025200 02 FILLER PIC X(4) VALUE " OF ". RL1014.2
025300 02 CCVS-E-4-2 PIC XXX VALUE SPACE. RL1014.2
025400 02 FILLER PIC X(40) VALUE RL1014.2
025500 " TESTS WERE EXECUTED SUCCESSFULLY". RL1014.2
025600 01 XXINFO. RL1014.2
025700 02 FILLER PIC X(19) VALUE RL1014.2
025800 "*** INFORMATION ***". RL1014.2
025900 02 INFO-TEXT. RL1014.2
026000 04 FILLER PIC X(8) VALUE SPACE. RL1014.2
026100 04 XXCOMPUTED PIC X(20). RL1014.2
026200 04 FILLER PIC X(5) VALUE SPACE. RL1014.2
026300 04 XXCORRECT PIC X(20). RL1014.2
026400 02 INF-ANSI-REFERENCE PIC X(48). RL1014.2
026500 01 HYPHEN-LINE. RL1014.2
026600 02 FILLER PIC IS X VALUE IS SPACE. RL1014.2
026700 02 FILLER PIC IS X(65) VALUE IS "************************RL1014.2
026800- "*****************************************". RL1014.2
026900 02 FILLER PIC IS X(54) VALUE IS "************************RL1014.2
027000- "******************************". RL1014.2
027100 01 CCVS-PGM-ID PIC X(9) VALUE RL1014.2
027200 "RL101A". RL1014.2
027300 PROCEDURE DIVISION. RL1014.2
027400 CCVS1 SECTION. RL1014.2
027500 OPEN-FILES. RL1014.2
027600 OPEN OUTPUT PRINT-FILE. RL1014.2
027700 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. RL1014.2
027800 MOVE SPACES TO TEST-RESULTS. RL1014.2
027900 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. RL1014.2
028000 MOVE ZERO TO REC-SKL-SUB. RL1014.2
028100 PERFORM CCVS-INIT-FILE 9 TIMES. RL1014.2
028200 CCVS-INIT-FILE. RL1014.2
028300 ADD 1 TO REC-SKL-SUB. RL1014.2
028400 MOVE FILE-RECORD-INFO-SKELETON RL1014.2
028500 TO FILE-RECORD-INFO (REC-SKL-SUB). RL1014.2
028600 CCVS-INIT-EXIT. RL1014.2
028700 GO TO CCVS1-EXIT. RL1014.2
028800 CLOSE-FILES. RL1014.2
028900 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. RL1014.2
029000 TERMINATE-CCVS. RL1014.2
029100 EXIT PROGRAM. RL1014.2
029200 TERMINATE-CALL. RL1014.2
029300 STOP RUN. RL1014.2
029400 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. RL1014.2
029500 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. RL1014.2
029600 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. RL1014.2
029700 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. RL1014.2
029800 MOVE "****TEST DELETED****" TO RE-MARK. RL1014.2
029900 PRINT-DETAIL. RL1014.2
030000 IF REC-CT NOT EQUAL TO ZERO RL1014.2
030100 MOVE "." TO PARDOT-X RL1014.2
030200 MOVE REC-CT TO DOTVALUE. RL1014.2
030300 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. RL1014.2
030400 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE RL1014.2
030500 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX RL1014.2
030600 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. RL1014.2
030700 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. RL1014.2
030800 MOVE SPACE TO CORRECT-X. RL1014.2
030900 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. RL1014.2
031000 MOVE SPACE TO RE-MARK. RL1014.2
031100 HEAD-ROUTINE. RL1014.2
031200 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1014.2
031300 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1014.2
031400 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. RL1014.2
031500 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. RL1014.2
031600 COLUMN-NAMES-ROUTINE. RL1014.2
031700 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL1014.2
031800 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1014.2
031900 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. RL1014.2
032000 END-ROUTINE. RL1014.2
032100 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.RL1014.2
032200 END-RTN-EXIT. RL1014.2
032300 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1014.2
032400 END-ROUTINE-1. RL1014.2
032500 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO RL1014.2
032600 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. RL1014.2
032700 ADD PASS-COUNTER TO ERROR-HOLD. RL1014.2
032800* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. RL1014.2
032900 MOVE PASS-COUNTER TO CCVS-E-4-1. RL1014.2
033000 MOVE ERROR-HOLD TO CCVS-E-4-2. RL1014.2
033100 MOVE CCVS-E-4 TO CCVS-E-2-2. RL1014.2
033200 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. RL1014.2
033300 END-ROUTINE-12. RL1014.2
033400 MOVE "TEST(S) FAILED" TO ENDER-DESC. RL1014.2
033500 IF ERROR-COUNTER IS EQUAL TO ZERO RL1014.2
033600 MOVE "NO " TO ERROR-TOTAL RL1014.2
033700 ELSE RL1014.2
033800 MOVE ERROR-COUNTER TO ERROR-TOTAL. RL1014.2
033900 MOVE CCVS-E-2 TO DUMMY-RECORD. RL1014.2
034000 PERFORM WRITE-LINE. RL1014.2
034100 END-ROUTINE-13. RL1014.2
034200 IF DELETE-COUNTER IS EQUAL TO ZERO RL1014.2
034300 MOVE "NO " TO ERROR-TOTAL ELSE RL1014.2
034400 MOVE DELETE-COUNTER TO ERROR-TOTAL. RL1014.2
034500 MOVE "TEST(S) DELETED " TO ENDER-DESC. RL1014.2
034600 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL1014.2
034700 IF INSPECT-COUNTER EQUAL TO ZERO RL1014.2
034800 MOVE "NO " TO ERROR-TOTAL RL1014.2
034900 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. RL1014.2
035000 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. RL1014.2
035100 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL1014.2
035200 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL1014.2
035300 WRITE-LINE. RL1014.2
035400 ADD 1 TO RECORD-COUNT. RL1014.2
035500 IF RECORD-COUNT GREATER 50 RL1014.2
035600 MOVE DUMMY-RECORD TO DUMMY-HOLD RL1014.2
035700 MOVE SPACE TO DUMMY-RECORD RL1014.2
035800 WRITE DUMMY-RECORD AFTER ADVANCING PAGE RL1014.2
035900 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN RL1014.2
036000 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES RL1014.2
036100 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN RL1014.2
036200 MOVE DUMMY-HOLD TO DUMMY-RECORD RL1014.2
036300 MOVE ZERO TO RECORD-COUNT. RL1014.2
036400 PERFORM WRT-LN. RL1014.2
036500 WRT-LN. RL1014.2
036600 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. RL1014.2
036700 MOVE SPACE TO DUMMY-RECORD. RL1014.2
036800 BLANK-LINE-PRINT. RL1014.2
036900 PERFORM WRT-LN. RL1014.2
037000 FAIL-ROUTINE. RL1014.2
037100 IF COMPUTED-X NOT EQUAL TO SPACE RL1014.2
037200 GO TO FAIL-ROUTINE-WRITE. RL1014.2
037300 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.RL1014.2
037400 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. RL1014.2
037500 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. RL1014.2
037600 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1014.2
037700 MOVE SPACES TO INF-ANSI-REFERENCE. RL1014.2
037800 GO TO FAIL-ROUTINE-EX. RL1014.2
037900 FAIL-ROUTINE-WRITE. RL1014.2
038000 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE RL1014.2
038100 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. RL1014.2
038200 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. RL1014.2
038300 MOVE SPACES TO COR-ANSI-REFERENCE. RL1014.2
038400 FAIL-ROUTINE-EX. EXIT. RL1014.2
038500 BAIL-OUT. RL1014.2
038600 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. RL1014.2
038700 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. RL1014.2
038800 BAIL-OUT-WRITE. RL1014.2
038900 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. RL1014.2
039000 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. RL1014.2
039100 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1014.2
039200 MOVE SPACES TO INF-ANSI-REFERENCE. RL1014.2
039300 BAIL-OUT-EX. EXIT. RL1014.2
039400 CCVS1-EXIT. RL1014.2
039500 EXIT. RL1014.2
039600 SECT-RL101-001 SECTION. RL1014.2
039700 REL-INIT-001. RL1014.2
039800 MOVE "FILE CREATE RL-FS2" TO FEATURE. RL1014.2
039900 OPEN OUTPUT RL-FS2. RL1014.2
040000 MOVE "RL-FS2" TO XFILE-NAME (1). RL1014.2
040100 MOVE "R1-F-G" TO XRECORD-NAME (1). RL1014.2
040200 MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). RL1014.2
040300 MOVE 000120 TO XRECORD-LENGTH (1). RL1014.2
040400 MOVE "RC" TO CHARS-OR-RECORDS (1). RL1014.2
040500 MOVE 0001 TO XBLOCK-SIZE (1). RL1014.2
040600 MOVE 000500 TO RECORDS-IN-FILE (1). RL1014.2
040700 MOVE "RL" TO XFILE-ORGANIZATION (1). RL1014.2
040800 MOVE "S" TO XLABEL-TYPE (1). RL1014.2
040900 MOVE 000001 TO XRECORD-NUMBER (1). RL1014.2
041000 REL-TEST-001. RL1014.2
041100 MOVE FILE-RECORD-INFO-P1-120 (1) TO RL-FS2R1-F-G-120. RL1014.2
041200 WRITE RL-FS2R1-F-G-120 RL1014.2
041300 INVALID KEY GO TO REL-FAIL-001. RL1014.2
041400 IF XRECORD-NUMBER (1) EQUAL TO 500 RL1014.2
041500 GO TO REL-WRITE-001. RL1014.2
041600 ADD 000001 TO XRECORD-NUMBER (1). RL1014.2
041700 GO TO REL-TEST-001. RL1014.2
041800 REL-DELETE-001. RL1014.2
041900 PERFORM DE-LETE. RL1014.2
042000 GO TO REL-WRITE-001. RL1014.2
042100 REL-FAIL-001. RL1014.2
042200 PERFORM FAIL. RL1014.2
042300 MOVE "BOUNDARY VIOLATION" TO RE-MARK. RL1014.2
042400 REL-WRITE-001. RL1014.2
042500 MOVE "REL-TEST-001" TO PAR-NAME RL1014.2
042600 MOVE "FILE CREATED, LFILE " TO COMPUTED-A. RL1014.2
042700 MOVE XRECORD-NUMBER (1) TO CORRECT-18V0. RL1014.2
042800 PERFORM PRINT-DETAIL. RL1014.2
042900 CLOSE RL-FS2. RL1014.2
043000 REL-INIT-002. RL1014.2
043100 OPEN INPUT RL-FS2. RL1014.2
043200 MOVE ZERO TO WRK-CS-09V00. RL1014.2
043300 REL-TEST-002. RL1014.2
043400 READ RL-FS2 RL1014.2
043500 AT END GO TO REL-TEST-002-1. RL1014.2
043600 MOVE RL-FS2R1-F-G-120 TO FILE-RECORD-INFO-P1-120 (1). RL1014.2
043700 ADD 1 TO WRK-CS-09V00. RL1014.2
043800 IF WRK-CS-09V00 GREATER 500 RL1014.2
043900 MOVE "MORE THAN 500 RECORDS" TO RE-MARK RL1014.2
044000 GO TO REL-TEST-002-1. RL1014.2
044100 GO TO REL-TEST-002. RL1014.2
044200 REL-DELETE-002. RL1014.2
044300 REL-TEST-002-1. RL1014.2
044400 IF XRECORD-NUMBER (1) NOT EQUAL TO 500 RL1014.2
044500 PERFORM FAIL RL1014.2
044600 ELSE RL1014.2
044700 PERFORM PASS. RL1014.2
044800 GO TO REL-WRITE-002. RL1014.2
044900 REL-WRITE-002. RL1014.2
045000 MOVE "REL-TEST-002" TO PAR-NAME. RL1014.2
045100 MOVE "FILE VERIFIED, LFILE" TO COMPUTED-A. RL1014.2
045200 MOVE XRECORD-NUMBER (1) TO CORRECT-18V0. RL1014.2
045300 PERFORM PRINT-DETAIL. RL1014.2
045400 CLOSE RL-FS2. RL1014.2
045500 CCVS-EXIT SECTION. RL1014.2
045600 CCVS-999999. RL1014.2
045700 GO TO CLOSE-FILES. RL1014.2
¤ Dauer der Verarbeitung: 0.68 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.
|
