Quelle sq221a.cob Sprache: Cobol

000500SQ2214.2
0002.SQ2214
000300     SQ221A.                                                      SQ2214.2
000400****************************************************************  SQ2214.2
000500*                                                              *  SQ2214.2
000600*    VALIDATION FOR:-                                          *  SQ2214.2
000700*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ2214.2
000800*                                                              *  SQ2214.2
000900*    CREATION DATE     /     VALIDATION DATE                   *  SQ2214.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".SQ2214.2
001100*                                                              *  SQ2214.2
001200*        THIS ROUTINE CHECKS:                                     SQ2214.2
001300*                                                                 SQ2214.2
001400*           RECORD    VARYING    DEPENDING RECORD-LENGTH          SQ2214.2
001500*                                                                 SQ2214.2
001600*                                                                 SQ2214.2
001700*        THIS ROUTINE BUILDS A SEQUENTIAL MASS STORAGE FILE       SQ2214.2
001800*    WHICH CONTAINS BOTH 120 CHARACTER AND 151 CHARACTER          SQ2214.2
001900*    RECORDS.  THE MASS STORAGE FILE CONSISTS OF 1 SHORT,         SQ2214.2
002000*    1 LONG, 10 SHORT, 100 LONG, AND 338 SHORT RECORDS FOR        SQ2214.2
002100*    A TOTAL OF 450 RECORDS IN THE FILE.  THE MASS STORAGE        SQ2214.2
002200*    FILE IS READ AND FIELDS IN THE RECORDS ARE CHECKED           SQ2214.2
002300*    AGAINST THE EXPECTED VALUES.                                 SQ2214.2
002400*                                                                 SQ2214.2
002500*        AN INFORMATION SECTION AT THE END OF THE ROUTINE         SQ2214.2
002600*    CHECKS THE FIELD WHICH CONTAINS THE XRECORD-NUMBER.          SQ2214.2
002700*    THIS FIELD IS PART OF A LONG RECORD ONLY.  IF THE            SQ2214.2
002800*    XRECORD-NUMBER IS THERE FOR A SHORT RECORD, IT MEANS         SQ2214.2
002900*    THE MAXIMUM SIZE RECORD IS ALWAYS WRITTEN.                   SQ2214.2
003000 ENVIRONMENT DIVISION.                                            SQ2214.2
003100 CONFIGURATION SECTION.                                           SQ2214.2
003200 SOURCE-COMPUTER.                                                 SQ2214.2
003300     Card0130.                                                    SQ2214.2
003400 OBJECT-COMPUTER.                                                 SQ2214.2
003500     Card0131.                                                    SQ2214.2
003600 INPUT-OUTPUT SECTION.                                            SQ2214.2
003700 FILE-CONTROL.                                                    62     5C-DELETED9.SQ2214
030         ASSIGN                                   .2
00900     ""                                                      .2
040             IS                               .2
004100            ACCESS MODE IS RANDOM                                 SQ2214.2
004200            RECORD KEY IS RAW-DATA-KEY.                           SQ2214.2
004300     SELECT PRINT-FILE ASSIGN TO                                  SQ2214.2
004400     "C0085" .                                                    SQ2214.2
ASSIGN                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040     C0020SQ2214
004700     ORGANIZATION SEQUENTIAL                                      SQ2214.2
040      .                                           .2
040                                                   2
005000 FILE SECTION.                                                    SQ2214.2
010SQ2214.2
005200 FD  RAW-DATA.                                                    SQ2214.2
0050                                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00400  .
050     5RAW-DATA-KEY ()                            .2
005600     05  C-DATE              PIC 9(6).                            SQ2214.2
00700                PIC98.SQ2214
005800     05  C-NO-OF-TESTS       PIC 99.                              SQ2214.2
0070     02  SQ-VS7R1-FIRST PICTUREX10).                           .2
06000  C-ALL 99.                             SQ2214.2
006100     05  C-FAIL              PIC 999.                             SQ2214.2
006200     05  C-DELETED           PIC 999.                             SQ2214.2
006300     05  C-INSPECT080     2SQ-VS7R2-FIRST X(120).                           .2
0600                PIC(3.SQ2214
006500     05  C-INDENT            PIC X.                               SQ2214.2
060     5C-ABORT ().                            .2
006700 FD  PRINT-FILE                                                   SQ2214.2
006800     LABEL RECORDS                                                0WORKING-STORAGE.SQ22142
060                                                          .2
070     DATA IS DUMMY-RECORD.2
007100               .                                                  SQ2214.2
007200 01  PRINT-REC0870 0    PICTURES9 .                  .2
00300   PICTURE10.SQ22142
007400 FD  SQ-VS7                                                       SQ2214.2
007500     LABEL RECORDS ARE STANDARD                                   SQ2214.2
070RECORD    DEPENDINGRECORD-LENGTHSQ2214
007700 01  SQ-VS7R1-M-G-120.                                            SQ2214.2
070   PICTURE10.SQ2214
007900 01  SQ-VS7R2-M-G-151.                                            SQ2214.2
008000     02  SQ-VS7R2-FIRST200   PICTUREX5.SQ2214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008100     02  LONG-OR-SHORT  PICTURE X(509500  .                                 2
008200     02  SQ-VS7-RECNO600 .                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008300 02  SQ-VS7-FILLER  PICTURE X(21).009800             "FILE=      ,RECORD=      /0,=000UPDTSQ2214
008400 WORKING-STORAGE SECTION.                                         SQ2214.2
008500 01  RECORD-LENGTH       PICTURE 999  VALUE ZERO.                 SQ2214.2
0"ODO00PGM LRECL000, 00"    .
00870100                   X2              SQ2214
0800     ()COMPUTATIONAL2
008900 01  ERROR-FLAG PICTURE 9.                                        SQ22143005                  (7       VALUE
0090 1EOF-FLAG9                                         .2
009100 01  DUMP-AREA.                                                   SQ2214.2
009200     02  TYPE-OF-REC PICTURE X(5).                                00600             ,=" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009300     02  RECNO00                   X)VALUE..2
009400     02  REC-FILLER PICTURE X(2)                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00950010                          PIC5.SQ2214
130           7XFILE-NAME (6).                      .2
009700        05 0150           7XRECORD-NAME X6.SQ2214.2
009800             "FILE= ,RECORD= /0,RECNO=000000,UPDT=00"  SQ2214
0010           7FILLER X(1.SQ2214
010000             ",ODO=010 7FILLERPIC X7.SQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010100        05 FILLER                 PICTURE X020           7FILLER ()                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0LFIL  LBLRSQ2214
010300        05 FILLER                 PICTURE X(37)       VALUE       SQ2214.2
010400             ",RECKEY= ".             SQ2214.2
01050        5FILLER X3)              SQ2214
010600             ",ALTKEY1= ".            SQ2214.2
01070020           7XRECORD-LENGTH (6.SQ2214
010800             ",ALTKEY2=012800 07 FILLER P X7.SQ22142
010900        05 FILLER                 PICTURE X(7)        VALUE SPACE.SQ2214.2
1000           OCCURS  .              .2
011100        05 FILE-RECORD-INFO-P1-120.                               030           7               X1.SQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1200                ()                       .2
011300           07 XFILE-NAME           PIC X(6130           7RECORDS-IN-FILE96.SQ2214
010           7FILLER X8.SQ2214
011500           07 XRECORD-NAME         PIC1500 XFILE-ORGANIZATION X2.SQ2214
011600           0160           FILLER X(.SQ2214
011700           0030           7XLABEL-TYPE ()                      .2
0100                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039007                X()                       .2
0140           7XRECORD-KEY(9java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1100        PIC(.SQ2214
012200           07 FILLER              PIC X(5).040           7      PIC9.SQ2214
012300           07 ODO-NUMBER          PIC 9(4).1
012400           070600TEST-RESULTS.2
012500           07 XPROGRAM-NAME0700                      SPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012600           07 FILLER              PIC X(7).                       10     2FILLERPICTUREVALUE          .2
012700050     2FILLERPICTUREVALUE.         .2
1807FILLER X7                       .2
012900050       3  PICTURE1)VALUE.SQ2214
013000           01400   PICTURE  SPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0130                      PIC()                      .2
030           FILLER ()                       .2
1300      PIC6.SQ22142
013400           07 FILLER              PIC X(5).                       SQ2214.2
15007XFILE-ORGANIZATIONX2.SQ2214
013600           07 FILLER              PIC X(6).                       SQ2214.2
013700           07 XLABEL-TYPE00  PIC3)VALUE.SQ2214
013800        05 FILE-RECORD-INFO-P121-240.016100     02 FILLERPIC(7)VALUECOMPUTED.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013900           07 FILLER              PIC X(8).                       SQ221413003COMPUTED-AX2)VALUE      .2
10           7XRECORD-KEY (9.SQ2214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014100           07 FILLER01650003 COMPUTED-0V18 REDEFINES   PICTURE-91)      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014060 .
014300           07 FILLER              PIC060     3CM-18V0 .                       .2
0144000         4COMPUTED-18V0 -(8.       SQ2214
014500           0701000                            .SQ2214
011100  PIC(0  SPACESQ2214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1700                      XVALUE.          .2
070     0  PICX3)VALUE.                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014900     02 FILLER                    PICTURE X VALUE SPACE.          SQ2214.2
015000     02 P-OR-F                    PICTURE X(5) VALUE070     3CORRECT-A X2)VALUE.      .2
         PICTURE  VALUE.         .2
015200     02  PAR-NAME.                                                SQ221470     3CORRECT-0V18 CORRECT-A -91)      .2
015300       03 FILLER PICTURE X0800  REDEFINES    PICTURE91)94.SQ2214
050       3PARDOT-X XVALUE.                       .2
015500       03 DOTVALUE1200                     PICTURE91)       .2
0160       0  PIC()VALUE.                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015700     080     3FILLERPIC(0  SPACE                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015800     02 RE-MARK PIC X(61).018600     02 FILLER PICTURE IS X(  IS"FEATURE PASQ22142
015900 01  TEST-COMPUTED0180-"REMARKS.SQ22142
016080     2FILLERIS(2)VALUE .                   .2
016102FILLER X1)VALUECOMPUTED                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060     2COMPUTED-XSQ22142
016300     03 COMPUTED-A                PICTURE X(20) VALUE SPACE.      SQ2214.2
016400     03 COMPUTED-N REDEFINES COMPUTED-A PICTURE -9(9).9(9).       SQ2214.2
016500     03 COMPUTED-0V18 REDEFINES COMPUTED-A  PICTURE -.9(18).      SQ2214.2
160     3COMPUTED-4V14   PICTURE94.1)  .2
016700     03 COMPUTED-14V4 REDEFINES COMPUTED-A13     2FILLERPICTURE X1)VALUE SPACESQ2214
016800     03       CM-18V0 REDEFINES09400     0  PICTURE X4  IS"".                   SQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0160 1REC-CT9  ZERO.2
017000         04 FILLER                          PICTURE X.            SQ2214.2
017100     03 FILLER PIC X(50) VALUE SPACE.                             SQ2214.2
017200 01  TEST-CORRECT.                                                SQ2214.2
017300     02 FILLER PIC X(30) VALUE SPACE.                             SQ2214.2
     2FILLER (7  "CORRECT"                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017500     02 CORRECT-X.                                                SQ2214200   PIC99VALUE.                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
070     3CORRECT-APICTUREX2)VALUE.SQ2214
017700     03 CORRECT-N REDEFINES CORRECT-A PICTURE -9(9).9(9).         SQ2214.2
017800     03 CORRECT-0V18 REDEFINES2500   PIC95  ZERO.2
0000 1CCVS-H-1SQ2214.2
018000     03 CORRECT-14V4 REDEFINES CORRECT-A    PICTURE -9(14).9(4).  SQ2214.2
0181002700     PICTURE(7   SPACE                     .2
08200                      -(8.SQ2214
018300         04 FILLER290" SOFTWARE CENTER COMPILERVALIDATIONSQ22142
018400     03 FILLER PIC X0200     SYSTEM                                                   .2
                             SQ22142
018600     02 FILLER PICTURE IS X(99) 22 1CCVS-H-2SQ22142
018700-    "SS PARAGRAPH-NAME SQ2214.2
010213000  PICTURE(2 VALUE                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1900   IS(2)VALUE .                   .2
019000 01  CCVS-C-221600     2TEST-ID  ()                                  .2
090     2  PICTURE   ISSPACESQ2214
019200     02 FILLER PICTURE IS X(6) VALUE IS "TESTED".                 SQ2214.2
019300     02 FILLER PICTURE IS X(15) VALUE IS SPACE.                   SQ2214.2
10       PICTUREX4 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019500     02 FILLER PICTURE IS X(94) VALUE IS SPACE.                   SQ2214.2
019600 01  REC-SKL-SUB PICTURE 9(2) VALUE 020     COBOL5 .,Apr3SSVGSQ2214
0190 1REC-CT 9  ZEROSQ22142
019800 01  DELETE-CNT                   PICTURE 999  VALUE ZERO.        SQ2214.2
019900 01  ERROR-COUNTER PICTURE IS 999 VALUE IS ZERO240" 195"                                       2
020000 01  INSPECT-COUNTER PIC 999 VALUE ZERO.                          SQ2214.2
2100   PIC99VALUE.                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000 1TOTAL-ERROR 9  ZERO                              .2
020300 01  ERROR-HOLD PIC 999 VALUE ZERO.                               SQ2214.2
2400   PIC(2)VALUE.                           .2
020500 01  RECORD-COUNT PIC 90200" DISTRIBUTION 5.SQ22142
020600 01  CCVS-H-1.                                                    30 1CCVS-E-2SQ2214.2
020700     02  FILLER032000                     PICTURE(1              SQ2214
020800     02 FILLER PICTURE X(67) VALUE                                SQ2214.2
000 "FEDERALSOFTWARE TESTING CENTER COBOL COMPILERVALIDATIONSQ22142
021000-    " SYSTEM".                                                   SQ2214.2
021100     02  FILLER     PICTURE X(26)  VALUE SPACE.                   SQ2214.2
021200 01  CCVS-H-2.                                                    SQ2214.2
02300   X52  ISSQ22142
021400     "CCVS85 FSTC COPY, NOT FOR DISTRIBUTION.".                   SQ2214.2
021500     02 FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS SET- ".   SQ2214.2
210     2  X9)                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021700     02 FILLER PICTURE IS X(40) VALUE IS SPACE2000   PICTURE(2                                .2
010 1CCVS-H-3SQ2214.2
021900     02  FILLER PICTURE X(34) VALUE                               SQ2214.2
022000     " FOR4 2FILLERPICTUREX1)VALUESPACE .2
020     2FILLER X(2
022200     "COBOL 85 VERSION 4.2, Apr 1993 SSVG "25     2FILLER (3  SPACESQ22142
022300     02  FILLER PICTURE X(28) VALUE400 FILLER X1)VALUE 95.SQ2214
240"COPYRIGHT18 "                                       2
0225202   VALUE.
022600     02 FILLER PICTURE40     2FILLER  VALUE  ..2
022700     02 FILLER2000  PICXXX SPACESQ2214
022800     02 ID-AGAIN PICTURE 050  X4)VALUESQ2214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020     2FILLERPICTURE(5                               2
0230050 1XXINFOSQ2214.2
023100 01  CCVS-E-2.                                                    SQ2214.2
030     0  FILLERPICTUREX3)VALUE.2
023300     SPACE.                                                       SQ2214.2
2400  FILLERPICTURE (1)VALUE.     SQ22142
023500     02 CCVS-E-2-2.                                               SQ2214.2
030         3ERROR-TOTAL IS VALUE SPACESQ2214
023700         03 FILLER PICTURE IS X VALUE IS SPACE.2704XXCOMPUTED (0.SQ22142
023800         03 02580     04FILLER X5  SPACE                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023900 010260 1HYPHEN-LINESQ2214.2
024000     02  FILLER PICTURE X(22) VALUE                               SQ22142100  PICTURE XVALUE .                       .2
024100     " FOR OFFICIAL USE ONLY".                                    SQ2214.2
04200     02  FILLER PICTURE X(12) VALUE SPACE.                        SQ2214.2
024300     02  FILLER PICTURE X(58) VALUE                               SQ2214.2
0240" VALIDATION, INSTITUTE OFSTD&TECH "SQ2214
024500     060-"*2
024600     02 FILLER PIC X060 1CCVS-PGM-ID X6                                    2
040 1CCVS-E-4SQ2214.2
024800     02 CCVS-E-4-1 PIC XXX VALUE SPACE.                           SQ2214.2
024900     02 FILLER PIC XXXX VALUE " OF ".                             SQ2214.2
05000  PIC XXX  SPACE                           .2
025100     02 FILLER PIC X(40) VALUE                                    SQ2214.2
025200      " TESTS WERE EXECUTED SUCCESSFULLY".                       SQ2214.2
025300 01  XXINFO.                                                      SQ2214.2
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025500     02 INFO-TEXT.                                                4      ABORTEDSQ2214
025600     04 FILLER PIC250ADD1TO.                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025700     04 XXCOMPUTED PIC X(20).                                     SQ221470ACCEPT   FROM.                                    .
0500   X5  SPACE.2
025900     04 XXCORRECT PIC X(20).                                      SQ2214.2
026000 01  HYPHEN-LINE.                                                 80      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
600FILLER  X IS.SQ2214
026200     02 FILLER PICTURE IS X(65) VALUE IS "*********3200 COLUMN-NAMES-ROUTINE. SQ2214.2
026300-    "*****************************************".                 SQ2214.2
026400     02 FILLER PICTURE IS X(54) VALUE IS "************************SQ2214.2
026500-    "******************************".                            SQ2214.2
026600 01  CCVS-PGM-ID PIC X(6) VALUE                                   SQ2214.2
026700     "SQ221A".                                                    SQ2214.2
026800 PROCEDURE DIVISION.                                              SQ2214.2
026900 CCVS1 SECTION.                                                   SQ2214.2
027000 OPEN-FILES.                                                      SQ2214.2
027100     OPEN I-O RAW-DATA.                                           SQ2214.2
027200     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            SQ2214.2
027300     READ RAW-DATA INVALID KEY GO TO END-E-1.                     SQ2214.2
027400     MOVE "ABORTED " TO C-ABORT.                                  SQ2214.2
027500     ADD 1 TO C-NO-OF-TESTS.                                      SQ2214.2
027600     ACCEPT C-DATE  FROM DATE.                                    SQ2214.2
027700     ACCEPT C-TIME  FROM TIME.                                    SQ2214.2
070     REWRITE RAW-DATA-SATZ INVALID KEYGO END-E-1.2
027900340      CCVS-C-2 DUMMY-RECORD PERFORM  .   SQ2214
080      RAW-DATASQ2214.
028100     OPEN     OUTPUT PRINT-FILE.                                  SQ2214.2
028200     MOVE CCVS-PGM-ID TO TEST-ID. MOVESQ2214
028300     MOVE    SPACE  TEST-RESULTS                               SQ2214DUMMY-RECORD  TIMES
028400     PERFORM  31        TOERROR-HOLD TO.2
02320ERROR-HOLD TO.SQ2214
0  ERROR-HOLDSQ2214
028700 CCVS-INIT-FILE.                                                  SQ2214034400*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   SQ2214.2
028800     ADD 1 TO REC-SKL-SUB.                                        SQ2214.2
0890MOVEFILE-RECORD-INFO-SKELETON TO                            SQ2214.2
029000                  FILE-RECORD-INFO (REC-SKL-SUB).                 SQ2214.2
029100 CCVS-INIT-EXIT.                                                  SQ2214.2
029200     GO TO CCVS1-EXIT.                                            SQ2214.2
000      "TESTS " TO.                        .2
240PERFORM THRU. .   .2
029500     OPEN I-O RAW-DATA.                                           SQ2214.2
029600     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            SQ2214.2
029700     READ RAW-DATA INVALID KEY GO TO END-E-2.                     SQ2214.2
029800     MOVE "OK. " TO C-ABORT50     MOVE TO                           .2
290MOVE TO.                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030000     MOVE ERROR-HOLD   TO C-ALL.                                  SQ2214.2
030100     MOVE ERROR-COUNTER TO C-FAIL.                                SQ2214.2
030      DELETE-CNT .                                .2
030300     MOVE INSPECT-COUNTER TO C-INSPECT.                           SQ2214.2
030400     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2.             SQ2214.2
030500 END-E-2.                                                         SQ2214.2
030600     CLOSE RAW-DATA.                                              SQ2214.2
030700 TERMINATE-CCVS.                                                  SQ2214.2
000      PROGRAMSQ2214.
030900 TERMINATE-CALL.                                                  SQ2214.2
031000     STOP     RUN.                                                SQ2214.2
010 . MOVE" java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00 .   " " TO P-OR-F.  ADD 1 TO PASS-COUNTER           .2
031300 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          SQ2214.2
010 .  MOVE
031500     MOVE "****TEST DELETED****" TO RE-MARK.                      SQ2214.2
031600 PRINT-DETAIL.                                                    00          DUMMY-RECORD                          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010      REC-CT EQUAL ZEROSQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0318070           TO WRT-LNSQ2214
0310MOVE TO.                             SQ2214.2
032000     MOVE     TEST-RESULTS TO PRINT-REC700          DUMMY-HOLD                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032100     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE300PERFORM.                                              .2
032200        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 SQ2214320WRITE AFTERADVANCING 1 .               .2
032300          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 SQ2214.2
032400     MOVE SPACE TO P-OR-F  SPACE COMPUTED-XSQ2214
032500     MOVE SPACE TO CORRECT-X.                                     SQ2214.2
032687  NOT TOSPACEGO FAIL-ROUTINE-WRITESQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30       .
032800 HEAD-ROUTINE.                                                    SQ2214.2
032900     MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM00MOVE TODUMMY-RECORD.PERFORM 2 TIMES     .2
033000     MOVE CCVS-H-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.   SQ2214.2
030      CCVS-H-3 DUMMY-RECORD  WRITE-LINE TIMES   .2
033200 COLUMN-NAMES-ROUTINE.                                            SQ2214.2
033300     MOVECCVS-C-1 . PERFORM.           SQ2214.2
033400     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SQ2214.2
0330      HYPHEN-LINE . PERFORM.        .2
033600 END-ROUTINE.                                                     SQ2214.2
033700     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES090 BAIL-OUT
033800 END-RTN-EXIT.                                                    SQ2214.2
03390MOVE TODUMMY-RECORD WRITE-LINETIMESSQ2214.2
034000 END-ROUTINE-1.                                                   SQ2214.2
034100      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      SQ2214.390SQ22142
034200      ERROR-HOLD. ADD DELETE-CNT TO ERROR-HOLD.                   SQ2214.2
034300      ADD PASS-COUNTER TO ERROR-HOLD.                             SQ2214.2
034400*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   SQ2214.2
034500      MOVE PASS-COUNTER TO CCVS-E-4-1.                            SQ2214.2
034600      MOVE ERROR-HOLD TO CCVS-E-4-2.                              SQ2214.2
034700      MOVE CCVS-E-4 TO CCVS-E-2-2.                                SQ2214.2
034800      MOVE CCVS-E-2 TO430CCVS1-EXITSQ2214.2
034900  END-ROUTINE-12.                                                 SQ2214.2
035000      MOVETEST" .SQ22142
035100     IF       ERROR-COUNTER IS EQUAL TO ZERO                      SQ2214.2
035200         MOVE "NO " TO ERROR-TOTAL                                SQ2214.2
035300         ELSE                                                     SQ2214.2
0400     MOVE  XPROGRAM-NAME.SQ2214
035500     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           SQ2214.2
035600     PERFORM WRITE-LINE.                                          SQ2214.2
0370END-ROUTINE-13SQ22142
035800     IF DELETE-CNT IS EQUAL TO ZERO                               SQ2214.2
50 NO ERROR-TOTALSQ2214
036000         MOVE DELETE-CNT TO ERROR-TOTAL.                          SQ2214.2
036100     MOVE "TEST(S) DELETED " TO ENDER-DESC130      S   ()                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036200     MOVE CCVS-E-2 TO DUMMY-RECORD0150MOVE
0346java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
340MOVE"TOERROR-TOTALSQ22142
036500      ELSE MOVE INSPECT-COUNTER480WRITE-TEST-GF-01SQ22142
036600      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            SQ2214.2
036700      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          SQ2214.2
036800     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SQ2214.2
036900 WRITE-LINE.                                                      SQ2214.2
037000     ADD 1 TO RECORD-COUNT.                                       SQ2214.2
037100     IF RECORD-COUNT20     PERFORM 38TIMES.SQ2214
037200         MOVE DUMMY-RECORD TO DUMMY-HOLD                          SQ2214.2
037300         MOVE SPACE TO DUMMY-RECORD                               0250      "SQ22142
070          DUMMY-RECORD PAGESQ2214
037500         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             SQ2214.2
037600         MOVE CCVS-C-2 TO DUMMY-RECORD40   CORRECT-18V0.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037700         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM 400PERFORM.                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037800         MOVE DUMMY-HOLD TO DUMMY-RECORD043300*    OF 120 CHARACTERS AND RECORDS OF 151 CHARACTERS.  THE        043400*    SEQUENCE IN WHICH THE RECORDS WERE WRITTEN IS S-L-10S-       SQ2214.2
3      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038000     PERFORM WRT-LN.                                              SQ2214.2
038100 WRT-LN.                                                          SQ2214.2
080         DUMMY-RECORDADVANCING .               .2
038300     MOVE SPACE TO DUMMY-RECORD.                                  SQ2214.2
0380 .                                                SQ2214.2
350PERFORM.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038600 FAIL-ROUTINE.                                                    SQ2214.2
038700     IF COMPUTED-X NOT EQUAL TO SPACE GO45       TO.SQ2214
038800     IF CORRECT-X NOT EQUAL TO
038900     MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.    SQ2214.2
039000     MOVE XXINFO TO DUMMY-RECORD400MOVE  XRECORD-NAMESQ2214
039100     GO TO FAIL-ROUTINE-EX.                                       41      005  XRECORD-LENGTHSQ2214
039200 FAIL-ROUTINE-WRITE.                                              SQ2214.2
039300     MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE           SQ2214.2
039400     MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES.   SQ2214.2
039500 FAIL-ROUTINE-EX. EXIT.                                           SQ2214.2
039600 BAIL-OUT1  RECORD-LENGTH.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039700     IF COMPUTED-A NOT EQUAL TO SPACE490READ-INIT-F1-01SQ2214
039800     IF CORRECT-AMOVE  RECORD-LENGTH.2
039900 BAIL-OUT-WRITE  TO.SQ2214
000MOVE  XXCORRECTCOMPUTED-A.SQ2214
040100     MOVE XXINFO TO DUMMY-RECORD
040200 BAIL-OUT-EX060MOVE TO.                                     .2
43 .
040400     EXIT.                                                        SQ2214.2
040500 SECT-SQ221A-0001 SECTION.                                        SQ2214.2
040600 WRITE-INIT-GF-01.                                                SQ2214.2
040700     MOVE "SQ-VS7" TO XFILE-NAME (1).                             SQ2214.2
040800     MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1).                       SQ2214.2
040900     MOVE "RC" TO CHARS-OR-RECORDS (1).                           SQ2214.2
041000     MOVE 0001 TO XBLOCK-SIZE (1).                                SQ2214.2
041100     MOVE 000450 TO RECORDS-IN-FILE (1).                          SQ221440      PASSSQ22142
041200     MOVE "SQ" TO XFILE-ORGANIZATION (1).                         SQ2214.2
04100MOVES"TOXLABEL-TYPE() .2
041400070 .                                                 .2
4100MOVETOSQ2214
041600     OPEN OUTPUT SQ-VS7.                                          SQ2214.480PERFORM.                                                .2
0470MOVEMULTIPLE RECS SQ-VS7-FILLERSQ2214
041800 WRITE-TEST-GF-01.                                                SQ2214.2
041900     PERFORM WRITE-SHORT-REC.                                     SQ2214.2
042000     048200     MOVE"EXPECTED RECORD LENGTH: 120" TO.               SQ22142
042100     PERFORM WRITE-SHORT-REC 10 TIMES.                            SQ2214.2
042200     PERFORM WRITE-LONG-REC 100 TIMES.                            SQ2214.2
042300     PERFORM WRITE-SHORT-REC 338 TIMES.                           SQ2214.2
042400 WRITE-WRITE-GF-01.                                               SQ2214.2
04200MOVECREATE "TO FEATUREjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042600     MOVE "048800* READ NEXT RECORD AT END *SQ2214.2
042700     MOVE "FILE CREATED, RECS =" TO COMPUTED-A.                   SQ2214.2
042800     MOVE COUNT-OF-RECS TO CORRECT-18V0.                          SQ2214.2
ND11  RECSRE-MARK.            SQ2214.2
043000     PERFORM PRINT-DETAIL.                                        SQ2214.2
043100*        A SEQUENTIAL MASS STORAGE FILE CONTAINING 450            SQ2214.2
043200*    RECORDS HAS BEEN CREATED.  THE FILE CONTAINS RECORDS         SQ2214.2
043300*    OF 120 CHARACTERS AND RECORDS OF 151 CHARACTERS.  THE        SQ2214.2
043400*    SEQUENCE IN WHICH THE RECORDS WERE WRITTEN IS S-L-10S-       SQ2214.2
043500*    100L-338S.                                                   SQ2214.2
043600 WRITE-CLOSE-GF-01.                                               SQ2214.2
043700     CLOSE SQ-VS7.                                                SQ2214.2
043800     GO TO READ-INIT-F1-01.                                       SQ2214.2
043900 WRITE-SHORT-REC.                                                 SQ2214.2
044000     MOVE "R1-M-G" TO XRECORD-NAME (1).                           SQ2214.2
044100     MOVE 000120 TO XRECORD-LENGTH (1).                           SQ22142
044200     ADD 1 TO COUNT-OF-RECS.                                      SQ2214.2
044300     MOVE COUNT-OF-RECS TO XRECORD-NUMBER (1).                    SQ2214.2
0440MOVESHORT LONG-OR-SHORT.                               .2
044500     MOVE COUNT-OF-RECS TO SQ-VS7-RECNO.                          SQ2214.2
044600     MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-VS7R1-FIRST.          SQ2214.2
044700     MOVE50300     IF XLABEL-TYPE (1) EQUAL TO "S"                              .2
044800     WRITE SQ-VS7R1-M-G-120.                                      SQ2214.2
044900 WRITE-LONG-REC.                                                  SQ2214.2
045000     MOVE "R2-M-G" TO XRECORD-NAME (1).                           SQ2214.2
1MOVE11  XRECORD-LENGTH
045200     ADD 1 TO COUNT-OF-RECS.                                      SQ2214.2
045300     MOVE COUNT-OF-RECS TO XRECORD-NUMBER (1).                    SQ2214.2
045400     MOVE "LONG" TO LONG-OR-SHORT.                                SQ2214.2
0550       TO                          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
045600     MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-VS7R2-FIRST.          SQ2214.2
045700     MOVE 151 TO RECORD-LENGTH.                                   SQ2214.2
050      SQ-VS7R2-M-G-151.2
045900 READ-INIT-F1-01.                                                 SQ2214.2
046000     MOVE ZERO TO RECORD-LENGTH.                                  SQ2214.2
046100     MOVE ZERO TO COUNT-OF-RECS.                                  SQ2214.2
046200     MOVE ZERO TO EOF-FLAG.                                       SQ2214.2
046300     MOVE ZERO TO RECORDS-IN-ERROR.                               SQ2214.2
046400     MOVE ZERO TO ERROR-FLAG.                                     SQ2214.2
046500     OPEN INPUT SQ-VS7.                                           SQ2214.2
046600 READ-TEST-F1-01.                                                 SQ2214.2
060     PERFORM THRU READ-SHORT-REC-EXIT             .2
046800     IF EOF-FLAG530      "SEEVII-52 WRITE LONG RECORD OR VII-44 READ" TO RE-MARKSQ2214.2
04690          "EOF FIRST READ SQ22142
047000         GO TO READ-EOF-F1-06.                                    SQ2214.2
047100     IF ERROR-FLAG EQUAL TO 1                                     SQ2214.2
047200         GO TO READ-FAIL-F1-01.                                   SQ2214.2
047300 READ-PASS-F1-01.                                                 SQ2214.2
047400     PERFORM PASS.                                                SQ2214.2
047500     GO TO READ-WRITE-F1-01.                                      SQ2214.2
047600 READ-FAIL-F1-01.                                                 SQ2214.2
047700     MOVE " FILE NOT OK. SEE PROGRAM & VII-52 OR -44" TO RE-MARK. SQ2214.2
047800     PERFORM FAIL.                                                SQ2214.2
047900 READ-WRITE-F1-01.                                                SQ2214.2
048000     MOVE "READ SHORT RECORD" TO FEATURE.                         SQ2214.2
048100     MOVE "READ-TEST-F1-01"50 EOF-FLAG                                        .2
048200     MOVE "EXPECTED RECORD LENGTH: 120" TO0550GOTOREAD-LONG-REC-EXITSQ2214.2
048300     MOVE RECORD-LENGTH TO COMPUTED-N.                            SQ2214.2
048400     MOVE 120 TO CORRECT-N.                                       SQ2214.2
048500     PERFORM PRINT-DETAIL.                                        SQ2214.2
048600     GO TO READ-INIT-F1-02590ADD1  COUNT-OF-RECSSQ2214
048700 READ-SHORT-REC.                                                  SQ2214.2
048800*   READ  <FILE>     NEXT RECORD     AT END                      *SQ2214.2
048900******************************************************************SQ2214.2
049000     IF EOF-FLAG05420         GO TOREAD-LONG-REC-ERRORSQ2214
049100         GO TO READ-SHORT-REC-EXIT54300     IF  RECORD-LENGTH     NOT EQUALTO5                       SQ2214.2
049200     READ SQ-VS7 NEXT RECORD 0540         GO TO.                               .2
0930MOVE 1 TOEOF-FLAGSQ2214
049400         GO TO READ-SHORT-REC-EXIT.                               SQ2214.2
049500     ADD 1 TO COUNT-OF-RECS.                                      SQ2214.2
049600     MOVE SQ-VS7R1-FIRST TO FILE-RECORD-INFO-P1-120 (1).          SQ2214.2
049700     IF XRECORD-NAME (1) NOT EQUAL TO "R1-M-G"                    SQ2214.2
049800         GO TO00READ-LONG-REC-ERRORSQ2214
049900     IF  RECORD-LENGTH     NOT EQUAL TO 120                       5  RECORDS-IN-ERRORSQ2214
050000         GO TO READ-SHORT-REC-ERROR.                              SQ2214.2
050100     IF COUNT-OF-RECS NOT EQUAL TO540     EXITSQ2214.2
050200         GO TO READ-SHORT-REC-ERROR.                              SQ2214.2
0000    IFXLABEL-TYPE)EQUAL "S"SQ2214
050400         GO TO READ-SHORT-REC-EXIT.                               SQ2214.2
050500 READ-SHORT-REC-ERROR.                                             .                                                 2
050600     ADD 1 TO RECORDS-IN-ERROR.                                   SQ2214.2
050700     MOVE 1 TO ERROR-FLAG.                                        SQ2214.2
ORT-REC-EXITSQ22142
050900     EXIT.                                                        SQ2214.2
051000060         EOF                         .2
051100     MOVE ZERO TO ERROR-FLAG.                                     0560          TO.SQ2214
051200 READ-TEST-F1-02.                                                 SQ2214.2
051300     PERFORM READ-LONG-REC THRU READ-LONG-REC-EXIT.               SQ2214.2
5140IFEOF-FLAG TO                                       .2
01                     .
500          TO.                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051700     IF ERROR-FLAG EQUAL TO 1                                     SQ2214.2
05180070      10TO.                                       SQ2214
0590READ-PASS-F1-02SQ2214
052000     PERFORM PASS.                                                SQ2214.2
052100     GO TO READ-WRITE-F1-02.                                      SQ2214.2
052200 READ-FAIL-F1-02.                                                 SQ2214.2
020      " VII-52 WRITELONG RECORDORVII-44READ"TO.2
052400     MOVE RECORD-LENGTH TO COMPUTED-N.                            SQ2214.2
052500     MOVE 151 TO CORRECT-N.                                       SQ2214.2
052600     PERFORM FAIL.                                                SQ2214.2
052700 READ-WRITE-F1-02580MOVE TOERROR-FLAG.SQ22142
052800     MOVE "READ LONG RECORD" TO FEATURE .                                                 2
052900     MOVE "READ-TEST-F1-02" TO PAR-NAME.                          580      READ-LONG-RECTHRU 10TIMES.2
053000     MOVE "EXPECTED RECORD LENGTH: 151" TO RE-MARK.               SQ2214058100     IFEOF-FLAGTOSQ2214
510PERFORM.SQ2214
053200     GO TO READ-INIT-F1-03.                                       SQ2214.2
053300 READ-LONG-REC.                                                   SQ2214.2
053400     IF EOF-FLAG EQUAL TO 1                                       SQ2214.2
053500         GO TO READ-LONG-REC-EXIT.                                SQ2214.2
053600     READ SQ-VS7 END                                              SQ2214.2
053700         MOVE 1 TO 0580      TO.                                      .2
053800         GO TO 059000     MOVE RECORD-LENGTHCOMPUTED-N.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053900     ADD 1 TO COUNT-OF-RECS.                                      SQ2214.2
054000     MOVE SQ-VS7R2-FIRST TO059300 READ-WRITE-F1-04.                                                SQ2214.2
054100     IF XRECORD-NAME ()NOT                     .2
054200         GO TO READ-LONG-REC-ERROR.                               SQ2214.2
054300     IF  RECORD-LENGTH     NOT EQUAL TO 151                       SQ2214.2
040          TO.                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
054500     MOVE COUNT-OF-RECS TO SAVE-COUNT-OF-RECS.                    SQ2214.2
040     SAVE-COUNT-OF-RECS  SQ-VS7-RECNOSQ22142
054700         GO TO READ-LONG-REC-ERROR.                               SQ2214.2
054800     IF LONG-OR-SHORT EQUAL TO "LONG "                            SQ2214.2
054900         GO TO READ-LONG-REC-EXIT.                                SQ2214.2
05000READ-LONG-REC-ERRORSQ2214.2
055100     ADD 1 TO RECORDS-IN-ERROR.                                   SQ2214.2
055200     060100     PERFREAD-SHORT-REC READ-SHORT-REC-EXIT8TIMES.2
055300 READ-LONG-REC-EXIT.                                              SQ2214.2
055400     EXIT.                                                        SQ2214.2
055500 READ-INIT-F1-03.                                                 SQ2214.2
055600     MOVE ZERO TO ERROR-FLAG.650IF EQUALTO                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
055700 READ-TEST-F1-03.                                                 SQ2214.2
055800     PERFORM READ-SHORT-REC THRU READ-SHORT-REC-EXIT 10 TIMES.    SQ2214.2
055900     IF EOF-FLAG EQUAL TO 1                                       SQ2214.2
056000         MOVE "UNEXPECTED 06000 . SQ2214.2
0610         GO .                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056200     IF ERROR-FLAG EQUAL TO 1                                     SQ2214.2
056300         GO TO READ-FAIL-F1-03.                                   SQ2214.2
0540READ-PASS-F1-03                                                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056500     PERFORM PASS.                                                SQ2214.2
056600     06600     MOVE "READ SHORT RECORDS" TO FEATURE.                        SQ2214
0560 .                                                 .2
58      "SEE SHORTRECORVII-44READ RE-MARKSQ22142
056900     MOVE RECORD-LENGTH TO COMPUTED-N.                            SQ2214.2
057000MOVE20TOCORRECT-NSQ2214
057100     PERFORM FAIL.                                                SQ2214.2
057200 READ-WRITE-F1-03.                                                SQ2214.                                                 .2
057300     MOVE "READ SHORT RECORDS" TO FEATURE.                        SQ2214.2
057400     MOVE "READ-TEST-F1-03" TO PAR-NAME.                          SQ2214.2
.                                       SQ2214
060PERFORM.SQ2214
057700 READ-INIT-F1-04.                                                 MOVERECORDS"TO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057800     MOVE ZERO TO ERROR-FLAG.                                     SQ2214.2
READ-TEST-F1-04SQ22142
058000     PERFORM READ-LONG-REC THRU READ-LONG-REC-EXIT 100 TIMES.     SQ2214.2
080      EOF-FLAG
0580          UNEXPECTED RE-MARK                         SQ2214.2
058300         GO TO READ-EOF-F1-06.                                    SQ2214.2
058400     IF ERROR-FLAG EQUAL TO 1                                     SQ2214.2
058500         GO TO READ-FAIL-F1-04.                                   SQ2214.2
058600 READ-PASS-F1-04.                                                 SQ2214.2
058700     PERFORM PASS.                                                SQ2214.2
058800     GO TO READ-WRITE-F1-04.                                      SQ2214.2
058900 READ-FAIL-F1-04.                                                 SQ2214.2
05000MOVERECORD-LENGTH COMPUTED-N.                            .2
059100     MOVE 151 TO CORRECT-N.                                       SQ2214.2
059200     PERFORM FAIL.                                                SQ2214.2
50 .
059400     MOVE "READ LONG RECORDS" TO FEATURE.                         SQ2214.2
059500     MOVE "READ-TEST-F1-04" TO PAR-NAME.                          SQ2214.2
059600     MOVE "EXPECTED RECORD LENGTH: 151" TO RE-MARK.               SQ2214.2
059700     PERFORMPRINT-DETAILSQ2214.2
059800 READ-INIT-F1-05.                                                 SQ2214.2
059900     MOVE ZERO6400SECT-SQ221A-0002.                                        SQ2214.2
060000 READ-TEST-F1-05.                                                 SQ2214.2
060100     PERFORM READ-SHORT-REC THRU READ-SHORT-REC-EXIT 338 TIMES.   SQ2214.2
060200     IF EOF-FLAG EQUAL TO 1                                       SQ2214.2
6030MOVE "TO .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060400         GO TO READ-EOF-F1-06.                                    SQ2214.2
060500     IF ERROR-FLAG EQUAL TO 1                                     SQ2214.2
060600         GO TO READ-FAIL-F1-05.                                   SQ2214.2
060700 READ-PASS-F1-05.                                                 SQ2214.2
680PERFORM.                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060900     GO TO READ-WRITE-F1-05.                                      SQ2214.2
06000READ-FAIL-F1-05SQ22142
061100     MOVE "SEE VII-52 WRITE LONG RECORD OR VII-44 READ" TO RE-MARKSQ2214.2
061200     MOVE RECORD-LENGTH TO COMPUTED-N.                            SQ2214.2
061300     MOVE 120 TO CORRECT-N.                                       SQ2214.2
061400     PERFORM FAIL.                                                SQ2214.2
061500 READ-WRITE-F1-05.                                                SQ2214.2
061600     MOVE "READ SHORT RECORDS" TO FEATURE660 .
061700     MOVE "650INFO-WRITE-01SQ2214.2
0618660MOVE" RECORD"  FEATURE.2
061900     PERFORM60      INFO-TEST-01.                             .2
062000 READ-INIT-F1-06.                                                 SQ2214.2
062100     READ SQ-VS70      SQ-VS7
062200         GO TO READ-TEST-F1-06.                                   SQ2214.2
062300     MOVE "MORE THAN 450 RECORDS" TO RE-MARK.                     SQ2214.2
062400     GO TO READ-FAIL-F1-06.                                       SQ2214.2
062500 READ-EOF-F1-06.                                                  SQ2214.2
062600     MOVE "RECORDS READ =" TO COMPUTED-A.                         SQ2214.2
062700     MOVE COUNT-OF-RECS TO CORRECT-18V067      SQ-VS7-RECNO EQUAL 00"SQ22142
062800     GO TO READ-FAIL-F1-06.70           NO-INFO-02SQ2214
0670MOVE  " .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
063000     IF RECORDS-IN-ERROR NOT EQUAL TO ZERO068100     MOVE 0004 TO CORRECT-18V0.                                   .2
063100         MOVE "RECORDS IN ERROR =" TO COMPUTED-A                  SQ2214.2
8MOVECONCLUSION.SQ2214
050INFO-WRITE-02SQ2214
063400 080MOVESHORT .                         .2
063500     PERFORM PASS.                                                SQ2214.2
063600     GO TO READ-WRITE-F1-06.                                      SQ2214.2
063700 READ-FAIL-F1-06.                                                 SQ2214.2
063800     PERFORM FAIL.                                                SQ2214.2
063900 READ-WRITE-F1-06.                                                SQ2214.2
064000     MOVE "READ-TEST-F1-06" TO PAR-NAME.                          SQ2214.2
064100      "VERIFY FILESQ-VS7 TOFEATURE SQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0620PERFORM.                                        .2
630READ-CLOSE-F1-06.2
064400     CLOSE SQ-VS7.                                                SQ2214.2
064500 SECT-SQ221A-0002 SECTION.                                        SQ2214.2
064600*        THIS SECTION CHECKS IF THE ENTIRE RECORD AREA IS         SQ2214.2
064700*    WRITTEN ON THE MASS STORAGE DEVICE WHEN A SHORT RECORD       SQ2214.2
064800*    IS WRITTEN.  THE RECORD NUMBER IN CHARACTERS 126 THROUGH     SQ2214.2
064900*    130 IS UNIQUE FOR EACH RECORD.                               SQ2214.2
065000 INFO-INIT-01.                                                    SQ2214.2
065100     OPEN INPUT SQ-VS7.                                           SQ2214.2
065200     MOVE ZERO TO COUNT-OF-RECS.                                  SQ2214.070000         GO TO.                                        SQ22142
065300 INFO-TEST-01.                                                    SQ2214.2
065400     READ SQ-VS7 AT END                                           SQ2214.2
065500         GO TO INFO-END.                                          SQ2214.2
065600     ADD 1 TO COUNT-OF-RECS0 TO.
0656MOVE POSSIBLE RE-MARKSQ2214.2
065800         GO TO NO-INFO-01.                                        SQ2214.2
065900     MOVE "MAXIMUM RECORD SIZE WRITTEN" TO RE-MARK.               SQ2214.2
066000     MOVE "RECORD READ =" TO COMPUTED-A.                          SQ2214.2
066100     MOVE 0001 TO CORRECT-18V0.                                   SQ2214.2
066200     GO TO INFO-WRITE-01.                                         SQ2214.2
066300 NO-INFO-0170 SQ-VS7SQ2214
066400     MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO70 .                                               .
066500 INFO-WRITE-01.                                                   SQ221410CCVS-EXITSQ2214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
066600     MOVE "READ SHORT RECORD" TO FEATURE      TO.                                           .2
066700     MOVE "INFO-TEST-01" TO PAR-NAME.                             SQ2214.2
066800     PERFORM PRINT-DETAIL.                                        SQ2214.2
066900 INFO-INIT-02.                                                    SQ2214.2
067000     READ SQ-VS7 RECORD AT END                                    SQ2214.2
067100         GO TO INFO-END.                                          SQ2214.2
067200     READ SQ-VS7 END                                              SQ2214.2
067300         GO TO INFO-END.                                          SQ2214.2
067400 INFO-TEST-02.                                                    SQ2214.2
067500     READ SQ-VS7 AT END                                           SQ2214.2
067600         GO TO INFO-END.                                          SQ2214.2
067700     IF SQ-VS7-RECNO NOT EQUAL TO "00004"                         SQ2214.2
067800         GO TO NO-INFO-02.                                        SQ2214.2
067900     MOVE "MAXIMUM RECORD SIZE WRITTEN" TO RE-MARK.               SQ2214.2
068000     MOVE "RECORD READ =" TO COMPUTED-A.                          SQ2214.2
068100     MOVE 0004 TO CORRECT-18V0.                                   SQ2214.2
068200     GO TO INFO-WRITE-02.                                         SQ2214.2
068300 NO-INFO-02.                                                      SQ2214.2
068400     MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK.           SQ2214.2
068500 INFO-WRITE-02.                                                   SQ2214.2
068600     MOVE "READ SHORT RECORD" TO FEATURE.                         SQ2214.2
068700     MOVE "INFO-TEST-02" TO PAR-NAME.                             SQ2214.2
068800     PERFORM PRINT-DETAIL.                                        SQ2214.2
068900 INFO-INIT-03.                                                    SQ2214.2
069000     ADD 3 TO COUNT-OF-RECS.                                      SQ2214.2
069100 INFO-INIT-03-1.                                                  SQ2214.2
069200     READ SQ-VS7 RECORD                                           SQ2214.2
069300         END GO TO INFO-END.                                      SQ2214.2
069400     ADD 1 TO COUNT-OF-RECS.                                      SQ2214.2
069500     IF COUNT-OF-RECS EQUAL TO 450                                SQ2214.2
069600         GO TO INFO-TEST-03.                                      SQ2214.2
069700     GO TO INFO-INIT-03-1.                                        SQ2214.2
069800 INFO-TEST-03.                                                    SQ2214.2
069900     IF SQ-VS7-RECNO NOT EQUAL TO "00450"                         SQ2214.2
070000         GO TO NO-INFO-03.                                        SQ2214.2
070100     MOVE "MAXIMUM RECORD SIZE WRITTEN" TO RE-MARK.               SQ2214.2
070200     MOVE "RECORD READ =" TO COMPUTED-A.                          SQ2214.2
070300     MOVE 0450 TO CORRECT-18V0.                                   SQ2214.2
070400     GO TO INFO-WRITE-03.                                         SQ2214.2
070500 NO-INFO-03.                                                      SQ2214.2
070600     MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK.           SQ2214.2
070700 INFO-WRITE-03.                                                   SQ2214.2
070800     MOVE "READ SHORT RECORD" TO FEATURE.                         SQ2214.2
070900     MOVE "INFO-TEST-03" TO PAR-NAME.                             SQ2214.2
071000     PERFORM PRINT-DETAIL.                                        SQ2214.2
071100 INFO-END.                                                        SQ2214.2
071200     CLOSE SQ-VS7.                                                SQ2214.2
071300 TERMINATE-ROUTINE.                                               SQ2214.2
071400     EXIT.                                                        SQ2214.2
071500 CCVS-EXIT SECTION.                                               SQ2214.2
071600 CCVS-999999.                                                     SQ2214.2
071700     GO TO CLOSE-FILES.                                           SQ2214.2

quality93%

¤ Dauer der Verarbeitung: 0.38 Sekunden (vorverarbeitet) ¤

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.