Quelle obnc2m.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         OBNC24.2
000200 PROGRAM-ID.                                                      OBNC24.2
000300     OBNC2M.                                                      OBNC24.2
000400                                                                  OBNC24.2
000500****************************************************************  OBNC24.2
000600*                                                              *  OBNC24.2
000700*    VALIDATION FOR:-                                          *  OBNC24.2
000800*                                                              *  OBNC24.2
000900*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".OBNC24.2
001000*                                                              *  OBNC24.2
001100*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".OBNC24.2
001200*                                                              *  OBNC24.2
001300****************************************************************  OBNC24.2
001400*                                                              *  OBNC24.2
001500*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  OBNC24.2
001600*                                                              *  OBNC24.2
001700*        X-55  - SYSTEM PRINTER NAME.                          *  OBNC24.2
001800*        X-82  - SOURCE COMPUTER NAME.                         *  OBNC24.2
001900*        X-83  - OBJECT COMPUTER NAME.                         *  OBNC24.2
002000*                                                              *  OBNC24.2
002100****************************************************************  OBNC24.2
002200*    PROGRAM OBNC2M CONTAINS CCVS74 TESTS OF LANGUAGE ELEMENTS *  OBNC24.2
002300*    DEFINED AS OBSOLETE IN THE 198X STANDARDS.                *  OBNC24.2
002400****************************************************************  OBNC24.2
002500 DATE-COMPILED.                                                   OBNC24.2
002600*    THIS COMMENT LINE SHOULD NOT BE REPLACED                     OBNC24.2
002700*    THIS COMMENT ENTRY SHOULD APPEAR AS THE LAST LINE BEFORE     OBNC24.2
002800*    THE ENVIRONMENT DIVISION.                                    OBNC24.2
002900 ENVIRONMENT DIVISION.                                            OBNC24.2
003000 CONFIGURATION SECTION.                                           OBNC24.2
003100 SOURCE-COMPUTER.                                                 OBNC24.2
003200     Card0130.                                                    OBNC24.2
003300 OBJECT-COMPUTER.                                                 OBNC24.2
003400     Card0131.                                                    OBNC24.2
003500 INPUT-OUTPUT SECTION.                                            OBNC24.2
003600 FILE-CONTROL.                                                    OBNC24.2
003700     SELECT PRINT-FILE ASSIGN TO                                  OBNC24.2
003800     "C0085" .                                                    OBNC24.2
003900 DATA DIVISION.                                                   OBNC24.2
004000 FILE SECTION.                                                    OBNC24.2
004100 FD  PRINT-FILE.                                                  OBNC24.2
004200 01  PRINT-REC PICTURE X(120).                                    OBNC24.2
004300 01  DUMMY-RECORD PICTURE X(120).                                 OBNC24.2
004400 WORKING-STORAGE SECTION.                                         OBNC24.2
004500 77  SMALL-VALU   PICTURE 99 VALUE 7.                             OBNC24.2
004600 77  SMALLER-VALU PICTURE 99 VALUE 6.                             OBNC24.2
004700 77  SMALLEST-VALU   PICTURE 99 VALUE 5.                          OBNC24.2
004800 77  EVEN-SMALLER PICTURE 99 VALUE 1.                             OBNC24.2
004900 77  WRK-DS-02V00                 PICTURE S99.                    OBNC24.2
005000     88 TEST-2NUC-COND-99         VALUE 99.                       OBNC24.2
005100 77  WRK-DS-06V06     PICTURE S9(6)V9(6).                         OBNC24.2
005200 77  WRK-DS-12V00-S REDEFINES WRK-DS-06V06                        OBNC24.2
005300                                  PICTURE S9(12).                 OBNC24.2
005400 77  A02TWOS-DS-02V00             PICTURE S99    VALUE 22.        OBNC24.2
005500 77  WRK-DS-01V00                 PICTURE S9.                     OBNC24.2
005600 77  A02TWOS-DS-03V02             PICTURE S999V99 VALUE +022.00.  OBNC24.2
005700 77  A990-DS-0201P                PICTURE S99P   VALUE 990.       OBNC24.2
005800 77  A02ONES-DS-02V00             PICTURE S99    VALUE 11.        OBNC24.2
005900 77  A01ONE-DS-P0801              PICTURE SP(8)9 VALUE .000000001.OBNC24.2
006000 77  ATWO-DS-01V00                PICTURE S9     VALUE 2.         OBNC24.2
006100 77  WRK-XN-00001                 PICTURE X.                      OBNC24.2
006200 77  WRK-XN-00005                 PICTURE X(5).                   OBNC24.2
006300 77  TWO  PICTURE 9 VALUE 2.                                      OBNC24.2
006400 77  THREE PICTURE 9 VALUE 3.                                     OBNC24.2
006500 77  SEVEN PICTURE 9 VALUE 7.                                     OBNC24.2
006600 77  NINE  PICTURE 9 VALUE 9.                                     OBNC24.2
006700 77  TEN  PICTURE 99 VALUE 10.                                    OBNC24.2
006800 77  ALTERCOUNT PICTURE 999 VALUE ZERO.                           OBNC24.2
006900 77  QT5    PIC X(4) VALUE SPACE.                                 OBNC24.2
007000 77  XRAY PICTURE IS X.                                           OBNC24.2
007100 77  IF-D1 PICTURE S9(4)V9(2) VALUE 0.                            OBNC24.2
007200 77  IF-D2 PICTURE S9(4)V9(2) VALUE ZERO.                         OBNC24.2
007300 77  IF-D3 PICTURE X(10) VALUE "0000000000".                      OBNC24.2
007400 77  IF-D4 PICTURE X(15) VALUE " ".                 OBNC24.2
007500 77  IF-D5 PICTURE X(10) VALUE ALL QUOTE.                         OBNC24.2
007600 77  IF-D6 PICTURE A(10) VALUE "BABABABABA".                      OBNC24.2
007700 77  IF-D7 PICTURE S9(6)V9(4) VALUE +123.45.                      OBNC24.2
007800 77  IF-D8 PICTURE 9(6)V9(4) VALUE 12300.                         OBNC24.2
007900 77  IF-D9 PICTURE X(3) VALUE "123".                              OBNC24.2
008000 77  IF-D11 PICTURE X(6) VALUE "ABCDEF".                          OBNC24.2
008100 77  IF-D13 PICTURE 9(6)V9(4) VALUE 12300.                        OBNC24.2
008200 77  IF-D14 PICTURE S9(4)V9(2) VALUE +123.45.                     OBNC24.2
008300 77  IF-D15 PICTURE S999PP VALUE 12300.                           OBNC24.2
008400 77  IF-D16 PICTURE PP99 VALUE .0012.                             OBNC24.2
008500 77  IF-D17 PICTURE SV9(4) VALUE .0012.                           OBNC24.2
008600 77  IF-D18 PICTURE X(10) VALUE "BABABABABA".                     OBNC24.2
008700 77  IF-D19 PICTURE X(10) VALUE "ABCDEF ".                     OBNC24.2
008800 77  IF-D23 PICTURE $9,9B9.90+.                                   OBNC24.2
008900 77  IF-D24 PICTURE X(10) VALUE "$1,2 3.40+".                     OBNC24.2
009000 77  IF-D25 PICTURE ABABX0A.                                      OBNC24.2
009100 77  IF-D26 PICTURE X(8) VALUE "A C D0E".                         OBNC24.2
009200 77  IF-D27 PICTURE IS 9(6)V9(4) VALUE IS 2137.45                 OBNC24.2
009300     USAGE IS COMPUTATIONAL.                                      OBNC24.2
009400 77  IF-D28 PICTURE IS 999999V9999 VALUE IS 2137.45.              OBNC24.2
009500 77  IF-D31 PICTURE S9(6) VALUE -123.                             OBNC24.2
009600 77  IF-D32 PICTURE S9(4)V99.                                     OBNC24.2
009700     88  A  VALUE 1.                                              OBNC24.2
009800     88  B VALUES ARE 2 THRU 4.                                   OBNC24.2
009900     88  C VALUE IS ZERO.                                         OBNC24.2
010000     88  D VALUE IS +12.34.                                       OBNC24.2
010100     88  E  VALUE IS .01, .11, .21 .81.                           OBNC24.2
010200     88  F  VALUE IS 100 THRU 128 1000 THRU 1280 -9 THRU -2.      OBNC24.2
010300     88  G  VALUE IS 8765.43 1234 THRU 5678 5 -9999 THRU 10.      OBNC24.2
010400 77  IF-D33 PICTURE X(4).                                         OBNC24.2
010500     88  B   VALUE QUOTE.                                         OBNC24.2
010600     88  C   VALUE SPACE.                                         OBNC24.2
010700     88 D VALUE ALL "BAC".                                        OBNC24.2
010800 77  IF-D34 PICTURE A(4).                                         OBNC24.2
010900     88  B VALUE "A A ".                                          OBNC24.2
011000 77  IF-D37 PICTURE 9(5) VALUE 12345.                             OBNC24.2
011100 77  IF-D38 PICTURE X(9) VALUE "12345 ".                       OBNC24.2
011200 77  CCON-1 PICTURE 99 VALUE 11.                                  OBNC24.2
011300 77  CCON-2 PICTURE 99 VALUE 12.                                  OBNC24.2
011400 77  CCON-3 PICTURE 99 VALUE 13.                                  OBNC24.2
011500 77  COMP-SGN1  PICTURE S9(1) VALUE +9 COMPUTATIONAL.             OBNC24.2
011600 77  COMP-SGN2  PICTURE S9(18) VALUE +3 COMPUTATIONAL.            OBNC24.2
011700 77  COMP-SGN3  PICTURE S9(1) VALUE -5 COMPUTATIONAL.             OBNC24.2
011800 77  COMP-SGN4  PICTURE S9(18) VALUE -3167598765431 COMPUTATIONAL.OBNC24.2
011900 77  START-POINT        PICTURE 9(6) COMPUTATIONAL.               OBNC24.2
012000 77  INC-VALUE          PICTURE 9(6) COMPUTATIONAL.               OBNC24.2
012100 77  SWITCH-PFM-1 PICTURE 9 VALUE ZERO.                           OBNC24.2
012200 77  SWITCH-PFM-2 PICTURE 9 VALUE ZERO.                           OBNC24.2
012300 77  PFM-11-COUNTER PICTURE 999 VALUE ZERO.                       OBNC24.2
012400 77  PFM-12-COUNTER  PICTURE 999 VALUE 100.                       OBNC24.2
012500 77  PFM-12-ANS1  PICTURE 999 VALUE ZERO.                         OBNC24.2
012600 77  PFM-12-ANS2  PICTURE 999 VALUE ZERO.                         OBNC24.2
012700 01  SUBSCRIPT-6 PICTURE 99999 VALUE ZERO.                        OBNC24.2
012800 01  IF-TABLE.                                                    OBNC24.2
012900     02 IF-ELEM PICTURE X OCCURS 12 TIMES.                        OBNC24.2
013000 01  QUOTE-DATA.                                                  OBNC24.2
013100     02 QU-1 PICTURE X(3) VALUE "123".                            OBNC24.2
013200     02 QU-2 PICTURE X VALUE QUOTE.                               OBNC24.2
013300     02 QU-3 PICTURE X(6) VALUE "ABC456".                         OBNC24.2
013400 01  IF-D10.                                                      OBNC24.2
013500     02  D1 PICTURE X(2) VALUE "01".                              OBNC24.2
013600     02  D2 PICTURE X(2) VALUE "23".                              OBNC24.2
013700     02  D3.                                                      OBNC24.2
013800     03  D4 PICTURE X(4) VALUE "4567".                            OBNC24.2
013900     03 D5 PICTURE X(4) VALUE "8912".                             OBNC24.2
014000 01  IF-D12.                                                      OBNC24.2
014100     02  D1 PICTURE X(3) VALUE "ABC".                             OBNC24.2
014200     02  D2.                                                      OBNC24.2
014300     03  D3.                                                      OBNC24.2
014400     04  D4      PICTURE XX     VALUE "DE".                       OBNC24.2
014500     04  D5 PICTURE X VALUE "F".                                  OBNC24.2
014600 01  IF-D20.                                                      OBNC24.2
014700     02  FILLER    PICTURE 9(5)   VALUE ZERO.                     OBNC24.2
014800     02  D1 PICTURE 9(2) VALUE 12.                                OBNC24.2
014900     02  D2 PICTURE 9 VALUE 3.                                    OBNC24.2
015000     02  D3 PICTURE 9(2) VALUE 45.                                OBNC24.2
015100 01  IF-D21.                                                      OBNC24.2
015200     02  D1 PICTURE 9(5) VALUE ZEROS.                             OBNC24.2
015300     02  D2 PICTURE 9(5) VALUE 12345.                             OBNC24.2
015400 01  IF-D22.                                                      OBNC24.2
015500     02  D1 PICTURE A(2) VALUE "AB".                              OBNC24.2
015600     02  D2 PICTURE A(4) VALUE "CDEF".                            OBNC24.2
015700 01  IF-D35.                                                      OBNC24.2
015800     02  AA PICTURE X(2).                                         OBNC24.2
015900     88  A1 VALUE "AA".                                           OBNC24.2
016000     88  A2 VALUE "AB".                                           OBNC24.2
016100     02  BB PICTURE IS X(2).                                      OBNC24.2
016200     88  B1 VALUE "CC".                                           OBNC24.2
016300     88  B2 VALUE "CD".                                           OBNC24.2
016400     02 BB-2 REDEFINES BB.                                        OBNC24.2
016500     03  AAA PICTURE X.                                           OBNC24.2
016600     88  AA1 VALUE "A".                                           OBNC24.2
016700     88  AA2 VALUE "C".                                           OBNC24.2
016800     03  BBB PICTURE X.                                           OBNC24.2
016900     88  BB1    VALUE "B".                                        OBNC24.2
017000     88  BB2 VALUE "D".                                           OBNC24.2
017100 01  IF-D36  PICTURE X(120) VALUE IS    "ABCDEFGHIJKLMNOPQRSTUVWXYOBNC24.2
017200-    "Z1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ABCDEFGHIJKLMOBNC24.2
017300-    "NOPQRSTUVWXYZ1234567890ABCDEFGHIJKL".                       OBNC24.2
017400 01  IF-D40 PICTURE 9(5) VALUE 12345                              OBNC24.2
017500              COMPUTATIONAL SYNCHRONIZED RIGHT.                   OBNC24.2
017600     88 IF-D40A VALUE ZERO THRU 10000.                            OBNC24.2
017700     88 IF-D40B VALUE 10001 THRU 99999.                           OBNC24.2
017800     88 IF-D40C VALUE 99999.                                      OBNC24.2
017900 01  PERFORM1  PICTURE XXX  VALUE SPACES.                         OBNC24.2
018000 01  PERFORM2  PICTURE S999 VALUE 20.                             OBNC24.2
018100 01  PERFORM3  PICTURE  9  VALUE  5.                              OBNC24.2
018200 01  PERFORM4  PICTURE S99V9.                                     OBNC24.2
018300 01  PERFORM5  PICTURE S99V9  VALUE 10.0.                         OBNC24.2
018400 01  PERFORM6  PICTURE  99V9.                                     OBNC24.2
018500 01  PERFORM7.                                                    OBNC24.2
018600     02  PERFORM8  OCCURS 7 TIMES  PICTURE  99V9.                 OBNC24.2
018700 01  PERFORM9  PICTURE 9   VALUE 3.                               OBNC24.2
018800 01  PERFORM10  PICTURE  S9  VALUE -1.                            OBNC24.2
018900 01  PERFORM11  PICTURE  99  VALUE 6.                             OBNC24.2
019000 01  PERFORM12.                                                   OBNC24.2
019100     02 PERFORM13  OCCURS 4 TIMES.                                OBNC24.2
019200         03 PERFORM14  OCCURS 20 TIMES  PICTURE  99V9.            OBNC24.2
019300         03 PERFORM15  OCCURS 10 TIMES.                           OBNC24.2
019400             04 PERFORM16  OCCURS 5 TIMES  PICTURE 99V9.          OBNC24.2
019500 01  PERFORM17          PICTURE 9(6) COMPUTATIONAL.               OBNC24.2
019600 01  PERFORM18          PICTURE 9(6) COMPUTATIONAL.               OBNC24.2
019700 01  PERFORM-KEY  PICTURE 9.                                      OBNC24.2
019800 01  PERFORM-SEVEN-LEVEL-TABLE.                                   OBNC24.2
019900   03   PFM71                OCCURS 2.                            OBNC24.2
020000     05  PFM72               OCCURS 2.                            OBNC24.2
020100       07  PFM73             OCCURS 2.                            OBNC24.2
020200         09  PFM74           OCCURS 2.                            OBNC24.2
020300           11  PFM75         OCCURS 2.                            OBNC24.2
020400             13  PFM76       OCCURS 2.                            OBNC24.2
020500               15  PFM77     OCCURS 2.                            OBNC24.2
020600                 17  PFM77-1 PIC X.                               OBNC24.2
020700 01  S1                      PIC S9(3) COMP.                      OBNC24.2
020800 01  S2                      PIC S9(3) COMP.                      OBNC24.2
020900 01  S3                      PIC S9(3) COMP.                      OBNC24.2
021000 01  S4                      PIC S9(3) COMP.                      OBNC24.2
021100 01  S5                      PIC S9(3) COMP.                      OBNC24.2
021200 01  S6                      PIC S9(3) COMP.                      OBNC24.2
021300 01  S7                      PIC S9(3) COMP.                      OBNC24.2
021400 01  PFM-7-TOT               PIC S9(3) COMP.                      OBNC24.2
021500 01  PFM-F4-24-TOT           PIC S9(3) COMP.                      OBNC24.2
021600 01  PFM-A                   PIC S9(3) COMP.                      OBNC24.2
021700 01  PFM-B                   PIC S9(3) COMP.                      OBNC24.2
021800 01  FILLER-A.                                                    OBNC24.2
021900   03  PFM-F4-25-A           PIC S9(3) COMP OCCURS 10.            OBNC24.2
022000 01  FILLER-B.                                                    OBNC24.2
022100   03  PFM-F4-25-B           PIC S9(3) COMP OCCURS 10.            OBNC24.2
022200 01  FILLER-C.                                                    OBNC24.2
022300   03  PFM-F4-25-C           PIC S9(3) COMP OCCURS 10.            OBNC24.2
022400 01  RECEIVING-TABLE.                                             OBNC24.2
022500     03 TBL-ELEMEN-A.                                             OBNC24.2
022600         05 TBL-ELEMEN-B          PICTURE X(18).                  OBNC24.2
022700         05 TBL-ELEMEN-C          PICTURE X(18).                  OBNC24.2
022800     03  TBL-ELEMEN-D.                                            OBNC24.2
022900         05 TBL-ELEMEN-E          PICTURE X OCCURS 36 TIMES.      OBNC24.2
023000 01  LITERAL-SPLITTER.                                            OBNC24.2
023100     02 PART1                     PICTURE X(20).                  OBNC24.2
023200     02 PART2                     PICTURE X(20).                  OBNC24.2
023300     02 PART3                     PICTURE X(20).                  OBNC24.2
023400     02 PART4                     PICTURE X(20).                  OBNC24.2
023500 01  LITERAL-TABLE REDEFINES LITERAL-SPLITTER.                    OBNC24.2
023600     02 80PARTS                   PICTURE X      OCCURS 80 TIMES. OBNC24.2
023700 01  GRP-FOR-88-LEVELS.                                           OBNC24.2
023800     03 WRK-DS-02V00-COND         PICTURE 99.                     OBNC24.2
023900         88 COND-1                VALUE IS 01 THRU 05.            OBNC24.2
024000         88 COND-2                VALUES ARE 06 THRU 10           OBNC24.2
024100                                           16 THRU 20  00.        OBNC24.2
024200         88 COND-3                VALUES 11 THRU 15.              OBNC24.2
024300 01  GRP-MOVE-CONSTANTS.                                          OBNC24.2
024400     03 GRP-GROUP-MOVE-FROM.                                      OBNC24.2
024500         04 GRP-ALPHABETIC.                                       OBNC24.2
024600             05 ALPHABET-AN-00026 PICTURE A(26)                   OBNC24.2
024700                        VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ".       OBNC24.2
024800         04 GRP-NUMERIC.                                          OBNC24.2
024900             05 DIGITS-DV-10V00   PICTURE 9(10) VALUE 0123456789. OBNC24.2
025000         05 DIGITS-DU-06V04-S REDEFINES DIGITS-DV-10V00           OBNC24.2
025100                                  PICTURE 9(6)V9999.              OBNC24.2
025200         04 GRP-ALPHANUMERIC.                                     OBNC24.2
025300             05 ALPHANUMERIC-XN-00049 PICTURE X(50)               OBNC24.2
025400     VALUE  "ABCDEFGHIJKLMNOPQRSTUVWXYZ+-><=l,;.()/* 0123456789". OBNC24.2
025500             05 FILLER                PICTURE X  VALUE QUOTE.     OBNC24.2
025600 01  GRP-FOR-2N058.                                               OBNC24.2
025700     02 SUB-GRP-FOR-2N058-A.                                      OBNC24.2
025800         03 ELEM-FOR-2N058-A PICTURE 999  VALUE ZEROES.           OBNC24.2
025900         03 ELEM-FOR-2N058-B PICTURE XXX  VALUE ZEROS.            OBNC24.2
026000         03 ELEM-FOR-2N058-C PICTURE XXX  VALUE SPACES.           OBNC24.2
026100         03 ELEM-FOR-2N058-D PICTURE X(6) VALUE ALL "ABC".        OBNC24.2
026200         03 ELEM-FOR-2N058-E PICTURE XXX  VALUE ALL "Z".          OBNC24.2
026300         03 ELEM-FOR-2N058-F PICTURE XXX  VALUE ALL SPACES.       OBNC24.2
026400         03 ELEM-FOR-2N058-G PICTURE XXX  VALUE ALL ZEROES.       OBNC24.2
026500         03 ELEM-FOR-2N058-H PICTURE 999  VALUE ALL ZEROS.        OBNC24.2
026600         03 ELEM-FOR-2N058-I PICTURE XXX  VALUE QUOTES.           OBNC24.2
026700         03 ELEM-FOR-2N058-J PICTURE XXX  VALUE ALL QUOTES.       OBNC24.2
026800         03 ELEM-FOR-2N058-K PICTURE XXX  VALUE ALL HIGH-VALUES.  OBNC24.2
026900         03 ELEM-FOR-2N058-L PICTURE XXX  VALUE ALL LOW-VALUES.   OBNC24.2
027000         03 ELEM-FOR-2N058-M PICTURE XXX  VALUE HIGH-VALUES.      OBNC24.2
027100         03 ELEM-FOR-2N058-N PICTURE XXX  VALUE LOW-VALUES.       OBNC24.2
027200     02 SUB-GRP-FOR-2N058-B.                                      OBNC24.2
027300         03 SUB-SUB-BA.                                           OBNC24.2
027400             04 ELEM-FOR-2N058-A  PICTURE 999.                    OBNC24.2
027500             04 ELEM-FOR-2N058-B  PICTURE XXX.                    OBNC24.2
027600             04 ELEM-FOR-2N058-C  PICTURE XXX.                    OBNC24.2
027700             04 ELEM-FOR-2N058-D  PICTURE X(6).                   OBNC24.2
027800         03 SUB-SUB-BB.                                           OBNC24.2
027900             04 ELEM-FOR-2N058-E  PICTURE XXX.                    OBNC24.2
028000             04 ELEM-FOR-2N058-F  PICTURE XXX.                    OBNC24.2
028100             04 ELEM-FOR-2N058-G  PICTURE XXX.                    OBNC24.2
028200             04 ELEM-FOR-2N058-H  PICTURE 999.                    OBNC24.2
028300         03 SUB-SUB-BC.                                           OBNC24.2
028400             04 ELEM-FOR-2N058-I  PICTURE XXX.                    OBNC24.2
028500             04 ELEM-FOR-2N058-J  PICTURE XXX.                    OBNC24.2
028600             04 ELEM-FOR-2N058-K  PICTURE XXX.                    OBNC24.2
028700             04 ELEM-FOR-2N058-L  PICTURE XXX.                    OBNC24.2
028800             04 ELEM-FOR-2N058-M  PICTURE XXX.                    OBNC24.2
028900             04 ELEM-FOR-2N058-N  PICTURE XXX.                    OBNC24.2
029000 01  CHARACTER-BREAKDOWN-S.                                       OBNC24.2
029100     02   FIRST-20S PICTURE X(20).                                OBNC24.2
029200     02  SECOND-20S PICTURE X(20).                                OBNC24.2
029300     02   THIRD-20S PICTURE X(20).                                OBNC24.2
029400     02  FOURTH-20S PICTURE X(20).                                OBNC24.2
029500     02   FIFTH-20S PICTURE X(20).                                OBNC24.2
029600     02   SIXTH-20S PICTURE X(20).                                OBNC24.2
029700     02 SEVENTH-20S PICTURE X(20).                                OBNC24.2
029800     02  EIGHTH-20S PICTURE X(20).                                OBNC24.2
029900     02   NINTH-20S PICTURE X(20).                                OBNC24.2
030000     02   TENTH-20S PICTURE X(20).                                OBNC24.2
030100 01  CHARACTER-BREAKDOWN-R.                                       OBNC24.2
030200     02   FIRST-20R PICTURE X(20).                                OBNC24.2
030300     02  SECOND-20R PICTURE X(20).                                OBNC24.2
030400     02   THIRD-20R PICTURE X(20).                                OBNC24.2
030500     02  FOURTH-20R PICTURE X(20).                                OBNC24.2
030600     02   FIFTH-20R PICTURE X(20).                                OBNC24.2
030700     02   SIXTH-20R PICTURE X(20).                                OBNC24.2
030800     02 SEVENTH-20R PICTURE X(20).                                OBNC24.2
030900     02  EIGHTH-20R PICTURE X(20).                                OBNC24.2
031000     02   NINTH-20R PICTURE X(20).                                OBNC24.2
031100     02   TENTH-20R PICTURE X(20).                                OBNC24.2
031200 01  TABLE-80.                                                    OBNC24.2
031300     02  ELMT OCCURS 3 TIMES PIC 9.                               OBNC24.2
031400     88  A80  VALUES ARE ZERO THRU 7.                             OBNC24.2
031500     88  B80  VALUE 8.                                            OBNC24.2
031600     88  C80  VALUES ARE 7, 8 THROUGH 9.                          OBNC24.2
031700                                                                  OBNC24.2
031800 01  TABLE-86.                                                    OBNC24.2
031900     88  A86  VALUE "ABC".                                        OBNC24.2
032000     88  B86  VALUE "ABCABC".                                     OBNC24.2
032100     88  C86  VALUE " ABC".                                     OBNC24.2
032200     02  DATANAME-86  PIC XXX  VALUE "ABC".                       OBNC24.2
032300     02  DNAME-86.                                                OBNC24.2
032400         03  FILLER  PIC X  VALUE "A".                            OBNC24.2
032500         03  FILLER  PIC X  VALUE "B".                            OBNC24.2
032600         03  FILLER  PIC X   VALUE "C".                           OBNC24.2
032700 01  FIGCON-DATA.                                                 OBNC24.2
032800     02 SPACE-X         PICTURE X(10) VALUE " ".         OBNC24.2
032900     02 QUOTE-X         PICTURE X(5)  VALUE QUOTE.                OBNC24.2
033000     02 LOW-VAL         PICTURE X(5)  VALUE LOW-VALUE.            OBNC24.2
033100     02 ABC PICTURE XXX VALUE "ABC".                              OBNC24.2
033200     02 ONE23           PICTURE 9999  VALUE 123.                  OBNC24.2
033300     02 ZERO-C          PICTURE 9(10) VALUE 0 COMPUTATIONAL.      OBNC24.2
033400     02 ZERO-D          PICTURE 9     VALUE ZERO USAGE DISPLAY.   OBNC24.2
033500 01  TEST-RESULTS.                                                OBNC24.2
033600     02 FILLER                   PIC X      VALUE SPACE.          OBNC24.2
033700     02 FEATURE                  PIC X(20)  VALUE SPACE.          OBNC24.2
033800     02 FILLER                   PIC X      VALUE SPACE.          OBNC24.2
033900     02 P-OR-F                   PIC X(5)   VALUE SPACE.          OBNC24.2
034000     02 FILLER                   PIC X      VALUE SPACE.          OBNC24.2
034100     02  PAR-NAME.                                                OBNC24.2
034200       03 FILLER                 PIC X(19)  VALUE SPACE.          OBNC24.2
034300       03  PARDOT-X              PIC X      VALUE SPACE.          OBNC24.2
034400       03 DOTVALUE               PIC 99     VALUE ZERO.           OBNC24.2
034500     02 FILLER                   PIC X(8)   VALUE SPACE.          OBNC24.2
034600     02 RE-MARK                  PIC X(61).                       OBNC24.2
034700 01  TEST-COMPUTED.                                               OBNC24.2
034800     02 FILLER                   PIC X(30)  VALUE SPACE.          OBNC24.2
034900     02 FILLER                   PIC X(17)  VALUE                 OBNC24.2
035000            " COMPUTED=".                                   OBNC24.2
035100     02 COMPUTED-X.                                               OBNC24.2
035200     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          OBNC24.2
035300     03 COMPUTED-N               REDEFINES COMPUTED-A             OBNC24.2
035400                                 PIC -9(9).9(9).                  OBNC24.2
035500     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         OBNC24.2
035600     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     OBNC24.2
035700     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     OBNC24.2
035800     03       CM-18V0 REDEFINES COMPUTED-A.                       OBNC24.2
035900         04 COMPUTED-18V0                    PIC -9(18).          OBNC24.2
036000         04 FILLER                           PIC X.               OBNC24.2
036100     03 FILLER PIC X(50) VALUE SPACE.                             OBNC24.2
036200 01  TEST-CORRECT.                                                OBNC24.2
036300     02 FILLER PIC X(30) VALUE SPACE.                             OBNC24.2
036400     02 FILLER PIC X(17) VALUE " CORRECT =".                OBNC24.2
036500     02 CORRECT-X.                                                OBNC24.2
036600     03 CORRECT-A                  PIC X(20) VALUE SPACE.         OBNC24.2
036700     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      OBNC24.2
036800     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         OBNC24.2
036900     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     OBNC24.2
037000     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     OBNC24.2
037100     03      CR-18V0 REDEFINES CORRECT-A.                         OBNC24.2
037200         04 CORRECT-18V0                     PIC -9(18).          OBNC24.2
037300         04 FILLER                           PIC X.               OBNC24.2
037400     03 FILLER PIC X(2) VALUE SPACE.                              OBNC24.2
037500     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     OBNC24.2
037600 01  CCVS-C-1.                                                    OBNC24.2
037700     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PAOBNC24.2
037800-    "SS PARAGRAPH-NAME OBNC24.2
037900-    " REMARKS".                                            OBNC24.2
038000     02 FILLER                     PIC X(20)    VALUE SPACE.      OBNC24.2
038100 01  CCVS-C-2.                                                    OBNC24.2
038200     02 FILLER                     PIC X        VALUE SPACE.      OBNC24.2
038300     02 FILLER                     PIC X(6)     VALUE "TESTED".   OBNC24.2
038400     02 FILLER                     PIC X(15)    VALUE SPACE.      OBNC24.2
038500     02 FILLER                     PIC X(4)     VALUE "FAIL".     OBNC24.2
038600     02 FILLER                     PIC X(94)    VALUE SPACE.      OBNC24.2
038700 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       OBNC24.2
038800 01  REC-CT                        PIC 99       VALUE ZERO.       OBNC24.2
038900 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       OBNC24.2
039000 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       OBNC24.2
039100 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       OBNC24.2
039200 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       OBNC24.2
039300 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       OBNC24.2
039400 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       OBNC24.2
039500 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      OBNC24.2
039600 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       OBNC24.2
039700 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     OBNC24.2
039800 01  CCVS-H-1.                                                    OBNC24.2
039900     02  FILLER                    PIC X(39)    VALUE SPACES.     OBNC24.2
040000     02  FILLER                    PIC X(42)    VALUE             OBNC24.2
040100     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 OBNC24.2
040200     02  FILLER                    PIC X(39)    VALUE SPACES.     OBNC24.2
040300 01  CCVS-H-2A.                                                   OBNC24.2
040400   02  FILLER                        PIC X(40)  VALUE SPACE.      OBNC24.2
040500   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  OBNC24.2
040600   02  FILLER                        PIC XXXX   VALUE             OBNC24.2
040700     "4.2 ".                                                      OBNC24.2
040800   02  FILLER                        PIC X(28)  VALUE             OBNC24.2
040900            " COPY - NOT FOR DISTRIBUTION".                       OBNC24.2
041000   02  FILLER                        PIC X(41)  VALUE SPACE.      OBNC24.2
041100                                                                  OBNC24.2
041200 01  CCVS-H-2B.                                                   OBNC24.2
041300   02  FILLER                        PIC X(15)  VALUE             OBNC24.2
041400            "TEST RESULT OF ".                                    OBNC24.2
041500   02  TEST-ID                       PIC X(9).                    OBNC24.2
041600   02  FILLER                        PIC X(4)   VALUE             OBNC24.2
041700            " IN ".                                               OBNC24.2
041800   02  FILLER                        PIC X(12)  VALUE             OBNC24.2
041900     " HIGH ".                                              OBNC24.2
042000   02  FILLER                        PIC X(22)  VALUE             OBNC24.2
042100            " LEVEL VALIDATION FOR ".                             OBNC24.2
042200   02  FILLER                        PIC X(58)  VALUE             OBNC24.2
042300     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".OBNC24.2
042400 01  CCVS-H-3.                                                    OBNC24.2
042500     02  FILLER                      PIC X(34)  VALUE             OBNC24.2
042600            " FOR OFFICIAL USE ONLY ".                         OBNC24.2
042700     02  FILLER                      PIC X(58)  VALUE             OBNC24.2
042800     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".OBNC24.2
042900     02  FILLER                      PIC X(28)  VALUE             OBNC24.2
043000            " COPYRIGHT 1985 ".                                OBNC24.2
043100 01  CCVS-E-1.                                                    OBNC24.2
043200     02 FILLER                       PIC X(52)  VALUE SPACE.      OBNC24.2
043300     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              OBNC24.2
043400     02 ID-AGAIN                     PIC X(9).                    OBNC24.2
043500     02 FILLER                       PIC X(45)  VALUE SPACES.     OBNC24.2
043600 01  CCVS-E-2.                                                    OBNC24.2
043700     02  FILLER                      PIC X(31)  VALUE SPACE.      OBNC24.2
043800     02  FILLER                      PIC X(21)  VALUE SPACE.      OBNC24.2
043900     02 CCVS-E-2-2.                                               OBNC24.2
044000         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      OBNC24.2
044100         03 FILLER                   PIC X      VALUE SPACE.      OBNC24.2
044200         03 ENDER-DESC               PIC X(44)  VALUE             OBNC24.2
044300            "ERRORS ENCOUNTERED".                                 OBNC24.2
044400 01  CCVS-E-3.                                                    OBNC24.2
044500     02  FILLER                      PIC X(22)  VALUE             OBNC24.2
044600            " FOR OFFICIAL USE ONLY".                             OBNC24.2
044700     02  FILLER                      PIC X(12)  VALUE SPACE.      OBNC24.2
044800     02  FILLER                      PIC X(58)  VALUE             OBNC24.2
044900     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".OBNC24.2
045000     02  FILLER                      PIC X(13)  VALUE SPACE.      OBNC24.2
045100     02 FILLER                       PIC X(15)  VALUE             OBNC24.2
045200             " COPYRIGHT 1985".                                   OBNC24.2
045300 01  CCVS-E-4.                                                    OBNC24.2
045400     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      OBNC24.2
045500     02 FILLER                       PIC X(4)   VALUE " OF ".     OBNC24.2
045600     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      OBNC24.2
045700     02 FILLER                       PIC X(40)  VALUE             OBNC24.2
045800      " TESTS WERE EXECUTED SUCCESSFULLY".                       OBNC24.2
045900 01  XXINFO.                                                      OBNC24.2
046000     02 FILLER                       PIC X(19)  VALUE             OBNC24.2
046100            "*** INFORMATION ***".                                OBNC24.2
046200     02 INFO-TEXT.                                                OBNC24.2
046300       04 FILLER                     PIC X(8)   VALUE SPACE.      OBNC24.2
046400       04 XXCOMPUTED                 PIC X(20).                   OBNC24.2
046500       04 FILLER                     PIC X(5)   VALUE SPACE.      OBNC24.2
046600       04 XXCORRECT                  PIC X(20).                   OBNC24.2
046700     02 INF-ANSI-REFERENCE           PIC X(48).                   OBNC24.2
046800 01  HYPHEN-LINE.                                                 OBNC24.2
046900     02 FILLER  PIC IS X VALUE IS SPACE.                          OBNC24.2
047000     02 FILLER  PIC IS X(65)    VALUE IS "************************OBNC24.2
047100-    "*****************************************".                 OBNC24.2
047200     02 FILLER  PIC IS X(54)    VALUE IS "************************OBNC24.2
047300-    "******************************".                            OBNC24.2
047400 01  CCVS-PGM-ID                     PIC X(9)   VALUE             OBNC24.2
047500     "OBNC2M".                                                    OBNC24.2
047600 PROCEDURE DIVISION.                                              OBNC24.2
047700 CCVS1 SECTION.                                                   OBNC24.2
047800 OPEN-FILES.                                                      OBNC24.2
047900     OPEN     OUTPUT PRINT-FILE.                                  OBNC24.2
048000     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   OBNC24.2
048100     MOVE    SPACE TO TEST-RESULTS.                               OBNC24.2
048200     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             OBNC24.2
048300     GO TO CCVS1-EXIT.                                            OBNC24.2
048400 CLOSE-FILES.                                                     OBNC24.2
048500     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   OBNC24.2
048600 TERMINATE-CCVS.                                                  OBNC24.2
048700     EXIT PROGRAM.                                                OBNC24.2
048800 TERMINATE-CALL.                                                  OBNC24.2
048900     STOP     RUN.                                                OBNC24.2
049000 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         OBNC24.2
049100 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           OBNC24.2
049200 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          OBNC24.2
049300 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      OBNC24.20010 IDENTIFICATION.                                         .2
40      "***TESTDELETED** TORE-MARK. OBNC242
049500 PRINT-DETAIL.                                                    OBNC24000500*************                                                  *  OBNC24.2
049600     IF REC-CT NOT EQUAL TO ZERO                                  OBNC24.2
049700             MOVE "." TO PARDOT-X001300************                                                   *  OBNC24.2
049800             MOVE REC-CT TO DOTVALUE.                             OBNC24.2
049900     MOVE     TEST-RESULTS TO PRINT-REC.002100***********************************002200*    PROGRAM OBNC2M CONTAINS002300*    DEFINED AS OBSOLETE IN002400**********0050 DATE-COMPILED.OBNC242
050000     IF00300 CONFIGURATIONSECTIONOBNC24
050100        PERFORM FAIL-ROUTINE.                                                    2
050200          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 OBNC24.2
050300     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              OBNC24.2
050400     MOVE SPACE TO CORRECT-X03500INPUT-OUTPUT.                                            .2
050500     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         OBNC24080"" .                                                    .2
MOVE TO.                                   .2
050700 HEAD-ROUTINE.OBNC24.2
050800     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  OBNC24.2
050900     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM0400 7  SMALLER-VALU 99 VALUE6.                            .2
510      CCVS-H-2B DUMMY-RECORD WRITE-LINE.  OBNC24
05550               VALUE                       .2
520.                                            2
051300     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           .2
051400     MOVE CCVS-C-20               PICTURE VALUE0O.2
051500    MOVE TO DUMMY-RECORD WRITE-LINE.2
051600 END-ROUTINE.                                                     OBNC24.2
060                    PICTURE.2
051800 END-RTN-EXIT.                                                    OBNC2403077TWO9VALUEOBNC24
051900     MOVE507SEVEN 7.OBNC24
052000 END-ROUTINE-1.                                                   OBNC24.2
020        TO ADDINSPECT-COUNTER      OBNC242
052200      ERROR-HOLD ADD DELETE-COUNTER ERROR-HOLDOBNC24
052300      ADD PASS-COUNTER TO ERROR-HOLD.                             OBNC24.2
052400*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   OBNC24.2
052500      MOVE PASS-COUNTER03 7IF-D3 0000"OBNC242
77IF-D5X1 ALL.                         .2
052700      MOVE CCVS-E-4 PICTURE()V9()VALUE5                      .2
052800      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE907   PICTURE()VALUE                              .2
052900  END-ROUTINE-12 PICTURE()(2) +134                     .2
053000      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        OBNC24.2
0530     IFERROR-COUNTER  ZERO.2
050         MOVENOTO                                .
50
.2
053500     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           OBNC24".
053600     PERFORM WRITE-LINE.                                          OBNC24.2
7 .                                                  .2
053800     IF DELETE-COUNTER IS EQUAL TO6 7  IF-D32 S9(4V99OBNC24java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0390MOVE" ELSEOBNC242
054000         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      OBNC24.2
054100     MOVE09088CVALUE ZEROOBNC24
054200     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           OBNC24.2
054300      IF   INSPECT-COUNTER EQUAL TO ZERO                          00088  E   IS .0,1,.2 .1                           .2
054400          MOVE "NO " TO ERROR-TOTAL                               0   PICTURE)                                         .2
50       MOVE TO.OBNC24
054600      MOVE "TEST(S) REQUIRE INSPECTION1908 BVALUEAA.OBNC24.2
054700      MOVE TO DUMMY-RECORD. PERFORMWRITE-LINEOBNC24
580      CCVS-E-3. PERFORM.           OBNC24
590WRITE-LINEOBNC24
50      1TO.OBNC24
055100IF RECORD-COUNTGREATER 50                                   .2
055200         MOVE DUMMY-RECORD TO DUMMY-HOLD7COMP-SGN2 S9 +3 .            .2
530MOVE TO                               .2
055400         WRITE DUMMY-RECORD AFTER ADVANCING PAGE7          PICTURE.               .2
MOVE DUMMY-RECORD             OBNC24
0560          CCVS-C-2D PERFORM 2 TIMES2
055700         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN020     PICTURE9VALUEOBNC24
055800         MOVE DUMMY-HOLD TO DUMMY-RECORD                          OBNC2402800 0  IF-TABLE.                                                    .2
050110       PICTURE( VALUE13" .2
056000     PERFORM WRT-LN.                                              OBNC24.2
056100 WRT-LN.                                                          OBNC24.2
6WRITE  1.               .2
056300     MOVE SPACE TO DUMMY-RECORD.                                  OBNC24.2
056400 BLANK-LINE-PRINT.                                                OBNC24.2
056500     PERFORM   .
056600 FAIL-ROUTINE.                                                    OBNC24.2
056700     IFCOMPUTED-X EQUAL TO  GOTO. OBNC24
056800     IF     CORRECT-X NOT EQUAL TO SPACE GO400IF-D20OBNC24java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056900     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 OBNC2419     2 PICTURE .OBNC24
057000     MOVE  "0100. OBNC24.2
057100     MOVE502 PICTURE 1OBNC24
057200     MOVE   SPACES TO INF-ANSI-REFERENCE  A2) VALUE "AB".                              OBNC24.2
057300      TO.                                      .
057400 FAIL-ROUTINE-WRITE.                                              OBNC24.2
057500     MOVE      VALUE.OBNC24
057600     MOVE TO COR-ANSI-REFERENCEOBNC24
057700     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. OBNC24.2
057800     MOVE   SPACES2 REDEFINES.                                        .2
057900 FAIL-ROUTINE-EX6 8   VALUEOBNC24
016700     8  AA2 "C".                                           .2
058100     IF060     8BB1 B.OBNC24
0520IF EQUAL  SPACE  BAIL-OUT-EX.2
058300 BAIL-OUT-WRITE.                                                  OBNC24.2
540MOVE TO.  COMPUTED-A.  OBNC24
058500070 1 PICTURE  1234                              .2
058600     MOVE   XXINFO TO DUMMY-RECORD     8 VALUE THRUOBNC24
058700     MOVE   SPACES TO INF-ANSI-REFERENCE.                         70       VALUE                                      2
058800 BAIL-OUT-EX. EXIT.                                               OBNC24.2
058900 018300 01  PERFOR  PICTURE  VALUE..OBNC24
059000     EXIT.                                                        OBNC24.2
059100 SECT-OBNC2M-001 SECTION.                                         OBNC24.2
059200*                                                                 OBNC24.2
059300 GO--TEST-1.                                                      OBNC24.2
054       TO GO--C.2
059500*    NOTE THE GO STATEMENT IN GO--A IS NOT LEGAL UNLESS IT IS     OBNC24.2
059600*        ALTERED AS SHOWN ABOVE BEFORE CONTROL PASSES TO IT.      OBNC24.2
059700     GO TO GO--A.                                                 10             0   OCCURS   PICTUREV9.2
059800 GO--DELETE-1.                                                    OBNC24.2
059900     PERFORM DE-LETE.                                             OBNC24.2
000      TO                                           2
060100 GO--A.                                                           OBNC24.2
0620      .
000GO--BOBNC24
060400     PERFORM FAIL.                                                OBNC24.2
000      TO                                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060600 GO--C.                                                           OBNC24.2
060700     PERFORM PASS.                                                OBNC24.2
060800 03 1                      PIC .OBNC24
060900     PERFORM END-ROUTINE.                                         25 1PFM-F4-24-TOT(3)..2
061000     MOVE "UNFINISHED GO TO" TO FEATURE                   PIC3COMPOBNC24
60 "GO--TEST-1" TO PAR-NAME.                               OBNC24
061200     PERFORM PRINT-DETAIL.                                        OBNC24.2
63 .
00 ALTER-APROCEED                           .2
061500           ALTER-D TO PROCEED TO226005           PICTURE(8)                  .2
061600           ALTER-F TO PROCEED TO ALTER-H         TBL-ELEMEN-E X 36TIMES
10      TO.                                               .2
061800 ALTER-DELETE-1.                                                  OBNC24.2
061900     PERFORM DE-LETE.                                             234     2PART4                      X2)OBNC24
020GO ALTER-WRITE-1OBNC24
062100 ALTER-A.                                                         OBNC24.2
020      TO.                                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020 .                                                         .2
062400     ADD 1 TO ALTERCOUNT.                                         8                VALUES 5              .2
062500     GO TO ALTER-FAIL-1.                                          OBNC240               PICTURE6                   .2
062600 ALTER-C.                                                         OBNC24.2
2      PASSOBNC24
062800 ALTER-D.                                                         OBNC24.2
062900     GO053               PICTUREOBNC24
3.                                                         .2
063100     002.2
063200     GO 0250003ELEM-FOR-2N058-A 99VALUE.2
063300 ALTER-F.                                                         OBNC24.2
063400     GO TO ALTER-G2600         3ELEM-FOR-2N058-D ()  ALL "ABC"        .2
06350 .                                                         2
063600     ADD 100 TO ALTERCOUNT  PICTURE   ALL.       OBNC24
0637      TO.OBNC24
063800 0700 PICTURE   ALL .       OBNC24
063900     GO20         3ELEM-FOR-2N058-L  VALUE.   .2
064000 ALTER-FAIL-1.                                                    700  PICTURE   LOW-VALUES.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
064100     MOVE ALTERCOUNT TO COMPUTED-N.                               OBNC24.0500   PICTURE.                    .2
4MOVE  CORRECT-N.2
0640      FAIL.2
064400 ALTER-WRITE-1.                                                   OBNC24.2
064500     PERFORM END-ROUTINE.                                         00ELEM-FOR-2N058-G.                    .2
40MOVE" FEATURE.OBNC24.2
067      "ALTER-TEST-1" TO.                             .2
064800     PERFORM PRINT-DETAIL.                                        OBNC24.2
064900 ALTER-INIT-B.                                                    OBNC24.2
065000     MOVE28004  .OBNC24
0610ALTER-TEST-2OBNC24
065200     MOVE     ZERO TO SUBSCRIPT-6   .                                       2
065300     MOVE     SPACE TO RECEIVING-TABLE.                           900java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
06540200 PICTURE
0      PICTUREOBNC24
065600 ALTER-A-2.                                                       OBNC24.2
065700     GO       TO ALTER-C-200 0CHARACTER-BREAKDOWN-R.                                       .2
065800 ALTER-B-2.                                                       OBNC24.2
065900     MOVE     "M" TO WRK-XN-00001.000     2THIRD-20R2.OBNC24
0PERFORM  ALTER-G-2.                                          .2
030       PICTURE.OBNC24
066200     MOVE     "N" TO WRK-XN-00001.                                OBNC2403100     02NINTH-20R X(20)                                .2
066300     PERFORM  ALTER-G-2.                                          OBNC24.2
066400     MOVE     " " 03140088  A80 ARE  THRU                             .2
066500     PERFORM  ALTER-G-2.                                          OBNC24.2
066600 ALTER-D-2OBNC24
06670            TO.                                       OBNC24
066800 ALTER-E-2.                                                       OBNC24.2
066900     MOVE     "O" TO WRK-XN-00001.                                OBNC24.2
067000     PERFORM  ALTER-G-200  .                                                .2
067100 ALTER-F-2.                                                       OBNC24.230         0    PIC B.OBNC24
06720020 1FIGCON-DATAOBNC24
0630  ALTER-G-2OBNC24
067400     MOVE     " " TO2         PICTURE   QUOTE.2
067500     PERFORM  ALTER-G-20  PICTURE  "ABC. .
067600 ALTER-G-2.                                                       OBNC24.2
06700     ADD1TO                                   .
067800     MOVE     WRK-XN-00001330 01TEST-RESULTSOBNC24
067900 ALTER-TESTTT-2.                                                  OBNC24.2
068000     PERFORM  ALTER-A-2 THRU ALTER-F-2.                           OBNC24.2
068100     ALTER    ALTER-A-2 TO PROCEED TO ALTER-B-20300P-OR-F5    SPACE.2
068200              ALTER-TESTT-2TO TO           OBNC24
03ALTER-D-2 TO OBNC24
068400     PERFORM  ALTER-A-2 THRU ALTER-F-2.                           OBNC24.2
068500     PERFORM  ALTER-A-2 THRU ALTER-F-2.                           OBNC24.2
068600     MOVE     TBL-ELEMEN-D TO TBL-ELEMEN-B.                       OBNC24.2
068700     IF       TBL-ELEMEN-B EQUAL TO "N P MN OP MN OP "            OBNC24.2
068800              PERFORM PASS GO TO034700 0  .                                               .2
068900     GO       03400     0 FILLERPIC)VALUE.2
069000 ALTER-DELETE-2.                                                  OBNC24.2
069100     PERFORM  DE-LETE.                                            OBNC24.2
069200     GO       TO ALTER-WRITE-2.                                   OBNC24.2
069300 ALTER-FAIL-2.                                                    .2
069400     MOVE     TBL-ELEMEN-B TO COMPUTED-A.                         OBNC24.2
0MOVEMNOP CORRECT-A                    .2
069600     PERFORM  FAIL.                                               OBNC24.2
069700 0590         0 COMPUTED-18V0                     -9(18.          .2
069800     MOVE     "ALTER-TEST-2" TO PAR-NAME.                         OBNC24.2
069900     PERFORM  PRINT-DETAIL.                                       OBNC24.2
070000 ALTER-INIT-3.                                                    OBNC24.2
070100*    NOTE  THE FOLLOWING TESTS UTILIZE THE ALTER STATEMENT WITH   OBNC24.2
070200*          11 OPERANDS  A DELETE IN ALTER-TEST-3 WILL CAUSE THE   OBNC24.2
070300*         REST OF THE ALTER TESTS TO BE BYPASSED.                 OBNC24.2
4.
070500     ALTER TEST-3A TO PROCEED TO1     3CR-18V0 .                         .2
070600         TEST-5A TO TEST-5B  TEST-6A403FILLERPIC()VALUE.OBNC24
0070TEST-7B TO TO  TEST-9A       OBNC24
700           TEST-10A TEST-10C TO      OBNC24
00900         TO TO  TEST-13ATEST-13B.
071000     GO TO TEST-3A.03780-"SS PARAGRAPH-NAME OBNC24.2
071100 ALTER-DELETE-3.                                                  OBNC24.2
07120080                           PIC2)VALUE.OBNC24
071300     MOVE "ALTER-TEST-3 THRU 13" TO PAR-NAME.                     OBNC24.2
071400     PERFORM PRINT-DETAIL.                                        OBNC24.2
071500     GO TO00                       X5     SPACE.2
071600 TEST-3A.                                                         OBNC24.2
07170GO TEST-3B                                               .2
071800 TEST-3B0370 0  REC-SKL-SUBPIC2     VALUE ZERO.2
0790     MOVETEST-3C CORRECT-AOBNC24.2
072000     MOVE "TEST-3B " TO COMPUTED-A.                               OBNC24.2
02100     PERFORM FAIL.                                                .2
072200     GO TO ALTER-WRITE-3.                                         OBNC24.2
072300 TEST-3C.                                                         OBNC24.2
072400     PERFORM PASS.                                                OBNC24.2
072500 ALTER-WRITE-3.                                                   OBNC24.2
6MOVE PAR-NAME.2
0600                    PIC5      ZERO.2
072800 ALTER-TEST-4.                                                    OBNC24.2
07090    2FILLERPIC()VALUE..2
073000 TEST-4A.                                                         OBNC24.2
073100     GO TO TEST-4B.                                               OBNC24.2
073200 1CCVS-H-2AOBNC242
073300     MOVE "TEST-4B " TO COMPUTED-A.                               OBNC24.2
073400     MOVE "TEST-4C " TO CORRECT-A.                                OBNC24.2
073500     PERFORM FAIL.                                                OBNC24.2
073600     GO TO 040800   02  FILLER      PIC X(8)VALUE.2
073700 TEST-4C.                                                         OBNC24.2
073800     PERFORM PASS.                                                OBNC24.2
073900 ALTER-WRITE-40 1CCVS-H-2B
700     MOVE "ALTER-TEST-4 " TO PAR-NAMEOBNC24
710      PRINT-DETAILOBNC24
074200 ALTER-TEST-5.                                                    OBNC24.2
07            IN                                               OBNC24
074400 TEST-5B.                                                          HIGHOBNC24
074500     PERFORM PASS                                                 OBNC24.2
0740      TO.                                         .2
0470 .
074800     GO TO TEST-5C.                                               OBNC24.2
074900 TEST-5C.                                                         OBNC24.2
075000     MOVE "TEST-5C " TO COMPUTED-A.                               OBNC24.2
075100     MOVE "TEST-5B " TO CORRECT-A.                                OBNC24.2
075200     PERFORM FAIL.                                                OBNC24.2
70.
075400     MOVE "ALTER-TEST-5 " TO PAR-NAME.                            OBNC24.2
075500     PERFORM PRINT-DETAIL.                                        OBNC24.2
075600 ALTER-TEST-6.                                                    OBNC24.2
075700     GO TO TEST-6A30 1CCVS-E-2OBNC242
0750 TEST-6BOBNC24.2
075900     MOVE "TEST-6B " TO COMPUTED-A.                               OBNC24.2
0600     MOVE"TEST-6C "TOCORRECT-A                                .2
076100     PERFORM FAIL.                                                OBNC24.2
076200     GO TO ALTER-WRITE-6.                                         OBNC24.2
076300 TEST-6A.                                                         OBNC24.2
076400     GO TO TEST-6B.                                               440            ERRORS                                 .2
076040" OFFICIALUSEONLY..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
076600     PERFORM PASS.                                                OBNC24.2
076700 ALTER-WRITE-6.                                                   OBNC24.2
076800     MOVE "ALTER-TEST-6 " TO PAR-NAME.                            OBNC24.2
0769050 1CCVS-E-4OBNC242
07700050002CCVS-E-4-1 XXX SPACE.2
07710GO TEST-7AOBNC24.2
077200 TEST-7B.                                                         OBNC24.2
077300     PERFORM PASS.                                                47002                        PIC4)VALUE.2
077400     GO TO ALTER-WRITE-7.                                         OBNC24.2
077500 TEST-7A4600            "* INFORMATION**"OBNC24
077600     GO TO TEST-7C.                                               OBNC24.2
077700 TEST-7C.                                                         600                  PIC0                   .2
07            .2
790MOVE  CORRECT-AOBNC24
080      FAILOBNC242
078100 ALTER-WRITE-7.                                                   OBNC24.2
07070       PIC (5     IS"***********OBNC24java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
078300     PERFORM 070     0 FILLER ISX5)     IS ************.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
078070 1                     PIC9                OBNC24
078500     GO TO TEST-8B.                                               OBNC24.2
078600 TEST-8B.                                                         OBNC2447700CCVS1.java.lang.StringIndexOutOfBoundsException: Range [79, 72) out of bounds for length 80
078700     GO TO TEST-8A.                                               OBNC2404700     OPEN     OUTPUT.                                  .2
078800 TEST-8C.                                                         OBNC24.2
07800     PERFORMPASS                                                .2
700GO ALTER-WRITE-8OBNC242
079100 TEST-8A.                                                         OBNC24.2
079200     MOVE "TEST-8A " TO COMPUTED-A.                               OBNC24.2
079304800     PERFORM THRU. CLOSE.   OBNC24
079400     PERFORM80EXIT.                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
079500 ALTER-WRITE-8.                                                   OBNC24.2
70MOVE  PAR-NAME.2
079700     PERFORM PRINT-DETAIL.                                        OBNC2440 .  MOVEFAIL P-OR-F1 ERROR-COUNTEROBNC24
079800 ALTER-TEST-9.                                                    OBNC24.2
079900     GO TO450PRINT-DETAILOBNC242
080000 TEST-9B.                                                         OBNC24.2
080100     MOVE "TEST-9B " TO COMPUTED-A.                               OBNC24.2
820     MOVE"TEST-9C " TOCORRECT-A                                .2
0PERFORM.                                                2
080400     GO 000ELSE PERFORM THRU.                 .2
080500 TEST-9A.                                                         OBNC24.2
080600     GO TO TEST-9B.                                               OBNC24.2
080700 TEST-9C  RE-MARKOBNC24
080800     PERFORM PASS.                                                OBNC24.2
80 .                                                   .2
--> --------------------

--> maximum size reached

--> --------------------

quality95%

¤ Dauer der Verarbeitung: 0.42 Sekunden ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.