Quelle  rw302m.cob   Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         RW3024.2
000200 PROGRAM-ID.                                                      RW3024.2
000300     RW302M.                                                      RW3024.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
0                                             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
8CONFIGURATION.                                           .2
000900 SOURCE-COMPUTER.                                                 0Card01302
00     .                                                    .2
001100 OBJECT-COMPUTER.                                                 RW3024.2
020Card0131.2
0030INPUT-OUTPUT.                                            .2
001400 FILE-CONTROL.                                                    RW3024.2
050     SELECTTFIL.2
00160     C0001RW3024
001700         ORGANIZATION IS SEQUENTIAL                               RW3024.2
001800         ACCESS MODE IS SEQUENTIAL.                               RW3024.2
001900                                                                  RW3024.2
002000     SELECT 0150     SELECT ASSIGN                                           RW3024
002100     "01700ORGANIZATION ISSEQUENTIAL .2
00080ACCESSMODE  SEQUENTIALRW3024
002300     ACCESS MODE IS SEQUENTIAL.                                   RW3024                                                                  .2
040                                                                  .2
002500                                           bsp;                        RW3024.2
002400                                                                  RW3024.2
002500                                                                  
002600 I-O-CONTROL.                                                     RW3024DATA.                                                   2
7  TAPERW3024
002800*Message expected for above statement: OBSOLETE                   RW3024.2
002900                                                                  RW3024.2
0300RW3024.2
003100 DATA DIVISION.                                                   RW3024.2
0032003500java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
003300 FD TFIL                                                          RW3024004000*Message expected0                                                                  RW3024
00340      RECORDS                                       .2
003500*Message expected for above statement: OBSOLETE                   RW3024.2
060     VALUE                                                     .2
003700     Impl1                                                        004600* FD TFIL2                                                         RW3024.2
0380                                                                .2
003900     4711    .                                                    RW302400900 WORKING-STORAGE.                                         .2
004000*Message expected for above statement: OBSOLETE                   RW3024.2
040                                                                  .2
020                                                                  .2
0030 1FREC.2
004400     03 RKEY PIC 9(8).                                            RW3024.2
004500                        bsp;   RW3024.2
004700*        REPORT IS RFIL2.                                          RW3024.2
004800                                                                  RW3024.2
004900 WORKING-STORAGE SECTION.                                         RW302400     41                                                        RW3024
005000                                                                  RW3024.2
005100 01 VARIABLES.                                                    RW3024 0 .                                                         RW3024
0020     0  PIC8  ZERORW3024
005300                                                                  RW3024.2
005400* REPORT SECTION.                                                  RW3024.2
005500* RD  RFIL2.                                                       RW3024.2
005600 01  RREC.004800                                                                  RW3024
005700*             TYPE IS DETAIL.                                      RW3024.2
2
005900*             SOURCE IS RKEY                                       RW3024.2
006000*             LINE NUMBER IS PLUS 1                                RW3024.2
006100*             COLUMN NUMBER IS 1.                                  RW3024.2
00620                                                                  .2
006300 PROCEDURE DIVISION.                                              RW3024.2
00640000  (VALUE.2
006500 RW302M-CONTROL.                                                  RW3024                                                                  2
0660OPEN .                                             .2
006700     READ TFIL                                                    080     2  9()                                                 .2
006800         AT END                                                   RW302460      TFILRW3024
006900             GO0GO TO RW302M-END.                                    .2
7      OUTPUT.                                           .2
007100*     INITIATE RFIL2.                                              RW3024.2
007200*     GENERATE RREC.                                               RW3024.2
007300*     TERMINATE RFIL2.                                             RW3024.2
040RW302M-ENDRW3024
007500     CLOSE TFIL, TFIL20750      TFIL.                                           RW3024
007600     STOP RUN.                                                    RW3024.2
007700                                                                                                                                    RW3024
007800                                                                  RW3024.2
007900*TOTAL NUMBER OF FLAGS EXPECTED = 3.                              RW3024.2