Quellcode-Bibliothek 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                                                                  RW3024.2
002600 I-O-CONTROL.020      ISSEQUENTIALRW3024
002700     MULTIPLE3      MODE SEQUENTIALRW3024.
002400                                                                  RW3024.2
RW3024.2
003000                                                                  RW3024.2
003100  DIVISIONRW3024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
003200 FILE SECTION.                                                    RW3024.2
003300 FD TFIL                                                          00200     MULTIPLEFILETAPE CONTAINS TFIL.                            .2
003400     LABEL RECORDS000                                                                  2
003500*Message expected for above statement: OBSOLETE                   RW3024.2
003600     VALUE OF                                                     RW3024.2
003700     Impl1                                                        RW3024.2
003800     IS                                                           RW3024.2
003900     4711    .                                                    RW3024.2
004000*Message expected for above statement: OBSOLETE                   RW3024.2
00410                                                                  .2
004200                                                                  RW3024.2
004300 01 FREC.                                                         0LABEL STANDARDRW3024
0030     VALUE OFRW3024
004500                                                                  RW3024.2
004600* FD TFIL2                                                         RW3024.2
004700*        REPORT IS RFIL2.                                          RW3024.2
004800                                                                  RW302400ISRW3024
0  SECTIONRW3024
005000                                                                  RW3024.2
005100 01 VARIABLES.004000*Message expected for above010RW3024
005200     03 VKEY PIC 9(8) 040RW3024
005300                                                                  0300 .                                                         RW3024
005400* REPORT SECTION.                                                  RW3024.2
005500* RD  RFIL2.                                                       RW3024.2
005600 01  RREC.                                                         .2
005700*             TYPE IS DETAIL.                                      RW3024.2
005800     02  PIC 9(8).                                                 RW3024.2
005900*             SOURCE IS RKEY                                       RW3024.2
006000*             LINE NUMBER IS PLUS 1                                RW3024.2
006100*             COLUMN NUMBER IS 1.                                  RW3024.2
0020RW3024
006300 PROCEDURE DIVISION.                                              RW3024.2
006400                                                                  RW3024.2
006500 RW302M-CONTROL.                                                  RW302400 .                                                    RW3024
00660050                                                                  
00670005500* RD  RFIL2601  .                                                         .2
0                                                    .
006900             GO TO005900*             SOURCE IS RKEY                                       RW3024.2
007000     OPEN OUTPUT TFIL2.                                           RW3024.2
007100*     INITIATE RFIL2.                                              RW3024.2
007200*     GENERATE RREC.                                               RW3024.2
007300*     TERMINATE RFIL2.                                             RW3024.2
007400 RW302M-END.                                                      RW30240OPEN TFIL.2
007500     CLOSETFIL.                                           .2
0760      RUN.                                                    .2
07700                                                                  .2
07800                                                                  .2
007900*TOTAL NUMBER OF FLAGS EXPECTED = 3.                              RW3024.2