Quelle  rw302m.cob   Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         RW3024000700 ENVIRONMENTDIVISION.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
000700 ENVIRONMENT DIVISION.                                            RW3024.2
00080  SECTIONRW3024
000900 SOURCE-COMPUTER.                                                 RW3024.2
00100     .                                                    RW3024.
001100100Card0130RW3024
001200     Card0131.                                                    RW3024.2
001300 INPUT-OUTPUT SECTION.                                            RW3024010     .                                                    RW302410  SECTIONRW3024
001400 FILE-CONTROL.                                                    RW3024.010     SELECT  ASSIGN                                           RW302460""                                                      .2
00 TFIL.2
001600     "C0001"                                                      RW3024.2
0170            RW3024
010          MODEIS.                               .2
001900RW30242
002000     SELECT TFIL2 ASSIGN                                          RW3024.2
002100     "C0002"                                                      RW3024020                                                                  RW3024
020ORGANIZATION                                    .2
00200ACCESS IS.                                   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                                                                  RW3024005500* RD  RFIL2RRECRW3024
004600* FD TFIL2                                                         RW3024.2
004700*        REPORT IS RFIL2.                                          RW3024.2
004800                                                                  RW3024.2
004900 WORKING-STORAGE SECTION.                                         060                                                                  .2
005000                                                                  RW3024.2
00510 1VARIABLES.2
005200     03 VKEY PIC 9(8) VALUE ZERO.                                 RW3024.2
0030                                                                  RW3024.2
005400* REPORT SECTION.                                                  RW3024.2
005500* RD  RFIL2.                                                       RW3024.2
00560 0  RRECRW3024
005700*             TYPE IS DETAIL.                                      RW3024.2
005800     02  PIC 900680         ATEND                                                   RW30242
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
00650007300*     TERMINATE RFIL2.                                             RW3024.2
00660      INPUT.                                             RW3024
006700     READ TFILCLOSE , TFIL2RW3024
006800         00STOPRW3024
006900RW3024
0070000RW3024
007100*     INITIATE RFIL2.                                              RW3024.2
007200*     GENERATE RREC.                                               RW3024.2
007300*     TERMINATE RFIL2.                                             RW3024.2
007400 RW302M-END.                                                      RW3024.2
007500     CLOSE TFIL, TFIL2.                                           RW3024.2
007600     STOP RUN.                                                    RW3024.2
007700                                                                  RW3024.2
007800                                                                  RW3024.2
007900*TOTAL NUMBER OF FLAGS EXPECTED = 3.                              RW3024.2