Impressum rw302m.cob   Sprache: Cobol

 .                                           .2
00.                                                      .2
030RW302M.2
000400*THE FOLLOWING PROGRAM TESTS THE FLAGGING OF                      RW3024.2
000500*OBSOLETE FEATURES THAT ARE USED IN REPORT                        RW3024.2
000600*WRITING.                                                         RW3024.2
000700 ENVIRONMENT DIVISION.                                            RW3024.2
000800 CONFIGURATION SECTION.                                           RW3024.2
000900 SOURCE-COMPUTER.                                                 RW3024.2
001000     Card013000120     Card0131RW3024.2
001100 OBJECT-COMPUTER.                                                 RW3024.2
0010     .                                                    RW3024
001300INPUT-OUTPUT.                                            .2
001400 FILE-CONTROL.                                                    SELECT ASSIGNRW3024
001500     SELECT ASSIGN                                           .2
001600     "C0001"                                                      0          IS                               .2
001700         ORGANIZATION0190                                                                  .2
001800         ACCESS MODE IS SEQUENTIAL.                               RW3024.010""                                                      .2
0019                                                                  
002000     SELECTRW3024
002100     "C0002"                                                      .
                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
002300     030  .                                                    .2
002400                                                                  RW3024.2
002500                                                                  RW3024.2
002600 I-O-CONTROL      OFRW3024
002700     MULTIPLE30Impl1RW3024.2
002800*Message expected for above statement: OBSOLETE                   RW3024.2
002900                                                                  RW3024.2
003000                                                                  .2
003100 DATA DIVISION004000*Message expectedRW3024
003200 FILE                                                             2
003300 FD TFIL                                                          RW3024.2
003400     LABEL RECORDS STANDARD                                       RW3024.2
003500*Message expected for above statement: OBSOLETE                   RW3024.2
0300     OF                                                     .2
003700     Impl100  PIC ()                                            .2
003800     IS                                                           RW3024004600* FD TFIL2                                                         RW3024.2
003900     41.                                                    .2
004000*Message expected for above statement: OBSOLETE                   RW3024.2
004100                                                                  RW3024.2
004200                                                                  RW3024.2
004300 1FREC.2
004400     03 RKEY PIC 9(8).                                            RW3024.2
004500                                                                  RW3024500 VKEY 9()VALUE.                                 .2
004600* FD TFIL2                                                         RW3024.2
004700*        REPORT IS RFIL2.                                          RW3024.2
004800                                                                  .2
004900 WORKING-STORAGE SECTION005700*             TYPE IS DETAIL.                                      RW3024.java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 81
005000                                                                  60                                                                  RW3024
005100 01 VARIABLES.                                                    RW3024.2
005200     03 VKEYPIC9() VALUE ZERO.                                 RW3024
005300RW3024.2
005400* REPORT SECTION.                                                  RW3024.2
005500* RD  RFIL2.                                                       RW3024.2
005600 060      INPUTTFILRW3024
005700*             TYPE IS DETAIL.                                      RW3024.2
058000 PIC8.RW3024
005900*             SOURCE IS RKEY                                       RW3024.2
006000*             LINE NUMBER IS PLUS 1                                RW3024.2
006100*             COLUMN NUMBER IS 1.                                  RW3024.2
006200                                                                  RW3024.2
006300 PROCEDURE DIVISION.                                              RW3024.2
006400                                                                  RW3024.2
006500 RW302M-CONTROL.                                                  RW3024.2
006600     OPEN INPUT TFIL.                                             RW3024.2
0070READ                                                    .2
006800         AT END                                                   RW3024.2
00690             RW3024
007000     OPEN OUTPUT00700     OPEN TFIL2RW3024
007100*     INITIATE RFIL2.                                              RW3024.2
007200*     GENERATE RREC.                                               RW3024.2
007300*     TERMINATE RFIL2.                                             RW3024.2
070 .                                                      .2
0750CLOSE, TFIL2.2
007600     STOP RUN.                                                    RW3024.2
007700                                                                  RW3024.2
007800                                                                  .2
007900*TOTAL NUMBER OF FLAGS EXPECTED = 3.                              RW3024.2