Quellcodebibliothek sq221a.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         SQ2214.2
000200 PROGRAM-ID.                                                      SQ2214.2
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.                                                    SQ2214.2
003800     SELECT RAW-DATA   ASSIGN TO                                  SQ2214.2
003900     "C0098"                                                      SQ2214.2
004000            ORGANIZATION IS INDEXED                               SQ2214.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
004500     SELECT SQ-VS7 ASSIGN TO                                      SQ2214.2
004600     "C0020"                                                      SQ2214.2
004700     ORGANIZATION SEQUENTIAL                                      SQ2214.2
004800     ACCESS SEQUENTIAL.                                           00 PROGRAM-ID                                                      .2
004900 DATA000400000500*                                                              *  SQ2214.2
005000 FILE000700*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD000800* * SQ2214.2
005100                                                                  SQ2214.2
005200 FD  RAW-DATA.                                                    SQ2214.2
005300                                                                  SQ2214.2
005400 01  RAW-DATA-SATZ.                                               SQ2214.2
005500     05  RAW-DATA-KEY001000*    "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ2214001100*                                                              *  SQ2214.2
005600     05  C-DATE              PIC 9(6).                            SQ2214.2
005700     05  001500*                                                                 SQ2214.2
005800     05  C-NO-OF-TESTS       PIC 99.                              SQ2214.2
005900     05  C-OK                PIC 999.                             001800*    WHICH CONTAINS BOTH 120 001900*    RECORDS.  THE MASS STORAGE FILE CONSISTS002000*    1 LONG, 10 SHORT, 100 LONG, AND002100*    A TOTAL OF 450 RECORDS IN THE FILE002200*    FILE IS READ AND FIELDS002300*    AGAINST THE EXPECTED VALUES.                                 002400*                                                                 SQ2214.2
006000     05  C-ALL               PIC 999.                             SQ2214.2
006100     05  C-FAIL              PIC 999.                             SQ2214.2
006200             PIC 99                             .2
006300     05  C-INSPECT           PIC 9080SELECTRAW-DATATOSQ2214
3     C0098SQ2214
006500     05  C-INDENT            PIC X.                               SQ2214000ORGANIZATION INDEXEDSQ2214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006600     05  C-ABORT             PIC X(8).                            SQ2214.004500     SELECT SQ-VS7  TOSQ22142
006700 FD  PRINT-FILE                                                   SQ2214.2
006800     LABEL RECORDS                                                SQ2214.2
006900     060""                                                      .2
007000     DATA RECORD IS PRINT-REC DUMMY-RECORD080ACCESSSEQUENTIALSQ2214
007100               .                                                  090 DATA DIVISION.SQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007200 01  PRINT-REC 050
007300 01  DUMMY-RECORD30SQ22142
007400 FD  SQ-VS7                                                       SQ2214.2
007500     LABEL50 1RAW-DATA-SATZSQ2214.2
007600     RECORD    VARYING    DEPENDING RECORD-LENGTH05000          PICX6.SQ2214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007700 01  SQ-VS7R1-M-G-120.                                            SQ221450     5C-TIME ()                            .2
080  (2SQ2214
007900 01  SQ-VS7R2-M-G-151.                                            SQ2214000    5               PIC9.                             SQ2214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0000   PICTURESQ2214
008100     02  LONG-OR-SHORT  PICTURE X(5).                             040     5C-NOTE X1)                           .2
008200     02  SQ-VS7-RECNO  PICTURE X(5).                              SQ2214.20600               PICX8SQ22142
008300 02  SQ-VS7-FILLER  PICTURE X(21).                                SQ2214.2
00840  SECTION                                         .
008500090Card0132SQ2214
008600 01  SAVE-COUNT-OF-RECS  PICTURE X(5) VALUE SPACE.                000 RECORD PRINT-REC                        SQ2214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
001COUNT-OF-RECS (5)COMPUTATIONALSQ2214
008800 70 1DUMMY-RECORD X(2)                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008900 01  ERROR-FLAG PICTURE 9.                                        SQ2214.2
009000 01  EOF-FLAG  PICTURE 9.                                         SQ2214070         VARYING .                .2
009100 01  DUMP-AREA.                                                   007800     2SQ-VS7R1-FIRST X(2)                           .2
0090     2TYPE-OF-REC ()                                .2
009300     02  RECNO  PICTURE 9(5).                                     SQ2214.2
009400     02  REC-FILLER PICTURE X(21).                                SQ2214.2
050 1FILE-RECORD-INFORMATION-REC                                 SQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0090     3FILE-RECORD-INFO-SKELETONSQ22142
009700        05 FILLER                 PICTURE X(48)       VALUE       SQ2214.2
RECNO=000,=00". .2
009900        05 FILLER                 PICTURE X(46)       VALUE       SQ2214.2
010000             ",=00,=,=000BLKSIZ=00.SQ22142
100        5FILLERPICTURE(6)VALUE.2
010200             ",LFIL0080 1RECORDS-IN-ERRORPICTURES95 . SQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0100         FILLERPICTUREX3)              SQ2214.2
010400             ",RECKEY= ".             SQ2214.2
010500        05 FILLER                 PICTURE X(38)       VALUE       SQ2214009000    PICTURE .                                         SQ2214
1             "ALTKEY1 .SQ22142
010700        05 FILLER                 PICTURE X(38)       VALUE       SQ2214.2
010800             ",ALTKEY2= ".            SQ2214.2
01090        5FILLERPICTURE(7         SPACESQ2214
0 (1.SQ22142
011100        05 FILE-RECORD-INFO-P1-120.                               SQ2214.2
12007FILLER X()                       .2
010           0            PICX.SQ2214
011400           07 FILLER              PIC X(8).                       SQ2214.2
100          PIC()                      ..2
1600               PIC)                       .2
011700           07 REELUNIT-NUMBER     PIC 9(1).                       SQ2214.2
1800               PIC()                       2
011900           07 XRECORD-NUMBER       PIC 9(6).                      SQ2214.2
01000               PICX6.SQ22142
012100           07 UPDATE-NUMBER       PIC 9(2).                       SQ2214.2
012200           07 FILLER              PIC X(5).                       SQ2214.2
012300           07 ODO-NUMBER          PIC 9(4).                       SQ2214.2
012400           07 FILLER              PIC X(5).01020             ",=000000,ORG=,LBLR= ".                        .2
012500           07 XPROGRAM-NAME        PIC X(5).                      SQ2214.2
012600           07 FILLER              PIC X(7).                       00                  PICTURE(8VALUE.2
1700        PIC 9)                      .2
IC()                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012900           07 CHARS-OR-RECORDS    PIC X(2).                       0100     3FILE-RECORD-INFO  10TIMESSQ2214
1000 FILLERPIC()                       2
013100           07 XBLOCK-SIZE          PIC 9(4).                      SQ2214.2
013200           0010           7FILLERPICX5.SQ2214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03300      PIC ()                       .2
013400           0701400               PIC()                       .2
030           7   PIC()                      .2
3007               PICX()                       .2
1700           PICX1.SQ2214
013800        05 FILE-RECORD-INFO-P121-240.                             180           7FILLERPICX(7).                       SQ2214.2
10            FILLERPIC8.SQ2214
1000           PIC X2).                     SQ2214.2
014100           07 020           7UPDATE-NUMBERPIC 92)                       .2
1200 ALTERNATE-KEY1 X(2)                      .2
014300           07 FILLER              PIC X(9).                       SQ2214.2
04400           07 ALTERNATE-KEY2      PIC X(29).                      SQ2214.2
014500           07 FILLER              PIC X(7).                       SQ2214.2
140 1  .                                                SQ2214
140     2FILLERPICTURE X VALUE.          SQ22142
014800     02 FEATURE                   PICTURE X(20) VALUE SPACE.      SQ2214.2
04900                      X  SPACE.SQ2214
015000     02 P-OR-F                    PICTURE X(5) VALUE SPACE.       SQ2214.2
1100                      X   SPACE.SQ2214
015200     0020           0               PIC().SQ2214
01300FILLER X(2  SPACE                       .2
050       3PARDOT-X XVALUE .                       SQ22142
015500       03 DOTVALUE PICTURE 99  VALUE ZERO1007XBLOCK-SIZE 94.SQ2214
015600       03 12007               PICX6.SQ2214
015700030           7RECORDS-IN-FILE 9()                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015800     02 RE-MARK PIC X(030               PIC ()                      .2
015900 01  TEST-COMPUTED.                                               SQ2214.2
01600     2FILLER X(0  SPACE                             .2
  X1  " =".                SQ22142
016200     02 COMPUTED-X.                                               SQ2214.2
060                      PICTURE (0  SPACE.SQ2214
016400     03 COMPUTED-N REDEFINES COMPUTED-A PICTURE -9(9).904000           PICX2)                     .2
60     REDEFINESCOMPUTED-A -.(8.SQ22142
016600     03 COMPUTED-4V14 REDEFINES COMPUTED-A  PICTURE -9(4).9(14).  SQ2214.2
1700     3COMPUTED-14V4 REDEFINES COMPUTED-A  PICTURE -9(14).9(4).  SQ22142
1800        REDEFINES COMPUTED-ASQ2214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016900                    PICTURE91)       .2
070         4FILLERPICTUREX            .2
070     3FILLER X5)VALUE.                             .2
0172040     2FILLERPICTURE  SPACESQ2214
1302FILLER (0  SPACESQ22142
017400     02 FILLER PIC X(17) VALUE " CORRECT =".                SQ2214.2
017500     02 CORRECT-X.                                                SQ2214.2
17600                  PICTURE(0  SPACESQ2214
017700     03 CORRECT-N 015100     02 FILLER           X  SPACE         SQ2214
01800  REDEFINES    PICTURE.(8.SQ2214
017900     03 CORRECT-4V14 REDEFINES CORRECT-A    PICTURE -9(4).9(14).  SQ2214.2
100     3CORRECT-14V4 CORRECT-A -(4.()  .2
018100     03      CR-18V0 REDEFINES CORRECT-A1400   PICTURE   SPACESQ2214
080         4CORRECT-18V0 -(8.SQ2214
018300         04 FILLER                          PICTURE50       03FILLER X5  SPACESQ22142
1400   X5)VALUE.SQ22142
018500 01  CCVS-C-1.                                                    SQ2214.2
99)VALUE  FEATURE.
018700-    "SS PARAGRAPH-NAME SQ2214.2
180            " .
1900  PICTURE  X(0  ISSPACESQ2214
019000 01  CCVS-C-20     0  PIC(7  " =".SQ22142
019100     02 FILLER PICTURE IS X VALUE IS SPACE.                       1200 .                                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019200     02 FILLER PICTURE IS X0600  REDEFINESCOMPUTED-A -()9(4.SQ2214
09000   IS(5  IS.                   .2
100     2FILLER IS()VALUE FAIL2
019500     02 FILLER PICTURE IS X(94) VALUE IS SPACE.                   SQ2214.2
019600 01  REC-SKL-SUB PICTURE 9(2) VALUE ZERO.                         SQ2214.2
700   PICTURE 9VALUE.                                SQ2214
019800 01  DELETE-CNT                   PICTURE 999  VALUE ZERO.        SQ2214.2
019900 01  ERROR-COUNTER PICTURE IS 999 VALUE IS ZERO.                  SQ2214.2
020000 01  INSPECT-COUNTER PIC 999 VALUE ZERO0174000  PICX1)VALUE        =.SQ22142
020100 01  PASS-COUNTER PIC 999 VALUE ZERO.                             SQ2214.2
0200 1TOTAL-ERROR 9  ZEROSQ22142
020300 01  ERROR-HOLD PIC 999 VALUE ZERO.                               SQ2214.2
020400 01  DUMMY-HOLD PIC X(120) VALUE SPACE.                           1600                  PICTURE (0  SPACE      .2
000 1RECORD-COUNT ()VALUE.                            SQ2214
2600  .                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000     2FILLER X2)VALUE.SQ2214
020800     02 FILLER PICTURE120         4CORRECT-18V0PICTURE91)       .2
000      FEDERALTESTINGCOBOL   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010-"".                                                   SQ2214
021100     02  FILLER     PICTURE X(26)  018500 01  CCVS-C-1.                       .2
01000  .                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0     2FILLER X5) ISSQ22142
021400     "CCVS85 FSTC COPY, NOT FOR DISTRIBUTION.".                   SQ2214.2
02150080     2FILLERPICTURE X20  ISSPACESQ2214
00  PICTUREISX9.SQ2214
021700     02 FILLER PICTURE IS X(40) VALUE1100FILLER ISXVALUE .                       .2
021800 01  CCVS-H-3.                                                    SQ2214.2
021900     02  FILLER PICTURE X(34) VALUE                               SQ2214.2
022000     " FOR OFFICIAL USE ONLY ".                                SQ2214094002FILLER IS ()VALUE IS "FAIL".                   SQ2214.2
022100     02  FILLER PICTURE X(58) VALUE                               SQ2214.2
220" 8 VERSION42 199 "..2
022300     02  FILLER PICTURE X(28) VALUE700   PICTURE99VALUE.                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020       COPYRIGHT8 .SQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022500 01  CCVS-E-1.                                                    SQ2214.2
022600     02 FILLER PICTURE IS X(52) VALUE IS SPACE.                   SQ2214.2
022700     02 FILLER PICTURE IS X(14000 1PASS-COUNTER 9  ZEROSQ22142
022800     02 ID-AGAIN PICTURE IS X(9).                                 2200   PIC99VALUE.SQ2214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022900     02 FILLER PICTURE X(45000 1DUMMY-HOLD X10  SPACESQ2214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
230      NTISCOBOL8" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02100  .                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20     2FILLER X3)VALUE.2
023300     SPACE.                                                       SQ2214.2
023400     02  FILLER                   PICTURE X(21)  VALUE SPACE.     290         .
023500     02 CCVS-E-2-2.                                               SQ2214.2
023600         03 ERROR-TOTAL PICTURE IS XXX VALUE IS SPACE.            SQ2214.2
023700         03 FILLER PICTURE IS X VALUE10     2FILLERPICTURE()VALUE                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023800         03 ENDER-DESC 021600 TEST-ID PICTUREIS(.SQ22142
023900 01  CCVS-E-3.                                                    SQ2214.2
040     2FILLER X2)VALUESQ2214
024100     " FOR OFFICIAL USE ONLY".                                    SQ22142800  .
0240002    (2  .SQ2214
024300     002100   PICTURE58) VALUE                               SQ2214.2
024400     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04000   PICTUREX1)VALUE.                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0260     2  PIC(5  " COPYRIGHT18"                 .2
020          95".SQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0480     02 CCVS-E-4-1PICXXX SPACE.                           SQ2214.2
02900  PICXXXX "OF"                             SQ2214
050     2CCVS-E-4-2  VALUE.                           .2
210     02 FILLERPIC(0                                     .2
025200      " TESTS02900 FILLER PICTURE X4)VALUEISSQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2300  .
025400     02 FILLER PIC X(30) VALUE " *** INFORMATION ***".    SQ22142202FILLER                    (1              SQ2214
025500     02030     2                     PICTUREX21   SPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025600     04 FILLER PIC X(20) VALUE SPACE2600  PICTURE XXX IS.            .2
050     0  PICX2)                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00  PIC()VALUE.SQ22142
025900     04 XXCORRECT PIC X(20).                                      SQ2214.2
2000  .
060     2FILLER IS  ISSPACESQ2214
026200     02 FILLER PICTURE IS X(65) VALUE IS "************************SQ2214.2
026300-    "******************************2java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026400     02 FILLER040     ON-SITENATIONAL   ...2
250    *****************************". SQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2600   PIC(6VALUESQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026700     "SQ221A".                                                    2700  .                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026800 PROCEDURE DIVISION.                                              SQ2214200     2CCVS-E-4-2 XXXVALUE.SQ2214
026900 CCVS1 SECTION.                                                   SQ2214.2
027000 OPEN-FILES.                                                      SQ2214.2
0025400     02 FILLER PIC X(30) VALUE " *** INFORMATION ***".    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
02700MOVE"ABORTED " TO C-ABORT.                                  SQ2214.2
070       TO C-NO-OF-TESTSSQ22142
027600     ACCEPT C-DATE  FROM DATE.                                    SQ2214.2
02700     C-TIME TIMESQ2214.
027800     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1.             SQ2214.2
027900 END-E-1.                                                         280     4FILLER PIC() VALUE.                              SQ2214.2
02800CLOSE RAW-DATA.                                              SQ2214.2
028100     OPEN     OUTPUT PRINT-FILE.                                  SQ2214.2
028200     02610     2 FILLER PICTURE IS VALUE SPACE                       .2
028300     MOVE    SPACE TO TEST-RESULTS.                               SQ2214.2
028400     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             SQ2214.2
028500     MOVE ZERO TO REC-SKL-SUB.                                    SQ2214.2
028600     PERFORM CCVS-INIT-FILE 9 TIMES.                              SQ2214.2
028700 CCVS-INIT-FILE.                                                  SQ2214.2
028800     ADD 1 TO REC-SKL-SUB.                                        SQ2214.2
028900     MOVE FILE-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
029300 CLOSE-FILES.                                                     SQ2214.2
029400     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   SQ2214.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-ABORT.                                  SQ2214.2
029900     MOVE PASS-COUNTER TO C-OK.                                   SQ2214.2
030000     MOVE ERROR-HOLD   TO C-ALL.                                  SQ2214.2
030100     MOVE ERROR-COUNTER TO C-FAIL.                                SQ2214.2
030200     MOVE DELETE-CNT TO C-DELETED.                                SQ2214.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
030800     EXIT PROGRAM.                                                SQ2214.2
030900 TERMINATE-CALL.                                                  SQ2214.2
031000     STOP     RUN.                                                SQ2214.2
031100 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         SQ2214.2
031200 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           SQ2214.2
031300 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          SQ2214.2
031400 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-CNT.          SQ2214.2
031500     MOVE "****TEST DELETED****" TO RE-MARK.                      SQ2214.2
031600 PRINT-DETAIL.                                                    SQ2214.2
031700     IF REC-CT NOT EQUAL TO ZERO                                  SQ2214.2
031800             MOVE "." TO PARDOT-X                                 SQ2214.2
031900             MOVE REC-CT TO DOTVALUE.                             SQ2214.2
032000     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      SQ2214.2
032100     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               SQ2214.2
032200        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 SQ2214.2
032300          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 SQ2214.2
032400     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              SQ2214.2
032500     MOVE SPACE TO CORRECT-X.                                     SQ2214.2
032600     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         SQ2214.2
032700     MOVE     SPACE TO RE-MARK.                                   SQ2214.2
032800 HEAD-ROUTINE.                                                    SQ2214.2
032900     MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SQ2214.2
033000     MOVE CCVS-H-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.   SQ2214.2
033100     MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.   SQ2214.2
03java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033300     MOVE CCVS-C-1 TO280  TO.             SQ2214
030MOVE TODUMMY-RECORD. PERFORM WRITE-LINE2TIMESSQ2214.2
033500     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        SQ2214.200CLOSE.                                              .
                            .2
033700     MOVETO.                               SQ2214.2
033800 END-RTN-EXIT.                                                    SQ2214.2
033900     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE2 TIMES.   SQ2214.2
034000 END-ROUTINE-1.                                                   SQ2214.2
0400      ADDERROR-COUNTER  ADD INSPECT-COUNTER      SQ2214
040      . ADD DELETE-CNT ERROR-HOLD                   .2
034300      ADD PASS-COUNTERTOERROR-HOLD.                             .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      MOVE280      java.lang.StringIndexOutOfBoundsException: Range [80, 41) out of bounds for length 80
034900  END-ROUTINE-12.                                                 SQ2214.2
03500MOVE()FAILED ENDER-DESCSQ2214
035100     IF       ERROR-COUNTER IS EQUAL090      END-ROUTINE END-ROUTINE-13. CLOSE PRINT-FILESQ2214
035200         MOVE "NO " TO ERROR-TOTAL                                SQ2214.2
035300         ELSE                                                     SQ2214.2
035400         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       SQ2214.2
0350     CCVS-E-2 DUMMY-RECORD.                           SQ2214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035600090     MOVE PASS-COUNTERTO C-OKSQ22142
035700 END-ROUTINE-13.                                                  SQ2214.2
035800     IF DELETE-CNT IS EQUAL TO ZERO                               SQ2214.2
035900         MOVE "NO " TO ERROR-TOTAL  ELSE                          SQ2214.2
036000         MOVE DELETE-CNT TO ERROR-TOTAL.                          0320MOVE TOC-DELETEDSQ2214
036100     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   SQ2214.2
036200     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SQ2214.2
036300      IF   INSPECT-COUNTER EQUAL TO ZERO                          SQ2214.2
036400          MOVE "NO " TO ERROR-TOTAL                               SQ2214.2
036500      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL380EXIT.                                                2
036600      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            SQ2214.2
036700      MOVE3110 INSPT "INSPT TOP-OR-F.ADD1 TO INSPECT-COUNTER. SQ2214.2
036800     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SQ2214.2
036900 WRITE-LINE.                                                      SQ221403120PASSMOVEPASS.SQ2214
037000     ADD 1 TO RECORD-COUNT340DE-LETEMOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-CNT.          SQ2214.2
037100     IF RECORD-COUNT GREATER 50                                   SQ2214.2
0372MOVE TO DUMMY-HOLDSQ22142
037300         MOVE SPACE TO DUMMY-RECORD                               SQ2214.2
037400         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  SQ2214.2
037500         MOVE CCVS-C-10370IFREC-CT NOT TO                                  SQ22142
0760MOVECCVS-C-2 DUMMY-RECORD PERFORM 2 TIMES     .2
037700         MOVE HYPHEN-LINE TO390              REC-CT DOTVALUESQ2214
0380MOVE TODUMMY-RECORDSQ22142
037900         MOVE ZERO TO RECORD-COUNT.                               SQ2214.2
080     PERFORM WRT-LNSQ2214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038100 WRT-LN.                                                          SQ2214.2
080         DUMMY-RECORD ADVANCING 1LINESSQ2214
038300     MOVE SPACE TO DUMMY-RECORD.                                  SQ2214.2
038404MOVETO.MOVE TO.              .2
038500     PERFORM WRT-LN.                                              SQ2214.2
038600 FAIL-ROUTINE.                                                    SQ2214.2
3700     IFCOMPUTED-X EQUAL TO SPACE  TO.   SQ22142
038800     IF CORRECT-X NOT EQUAL TO SPACE 0270     MOVESPACETORE-MARKSQ2214.2
038900     MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.    SQ2214.2
0390      XXINFO DUMMY-RECORD  WRITE-LINETIMES.SQ2214
039100     GO TO FAIL-ROUTINE-EX.                                       SQ2214.2
039200 FAIL-ROUTINE-WRITE.                                              310MOVE TO.PERFORM 3TIMES.SQ2214
039300     MOVE TEST-COMPUTED 033300     MOVE CCVS-C-1 TO DUMM  TODUMMY-RECORD WRITE-LINESQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039400     MOVE TEST-CORRECT TO PRINT-REC PERFORM350MOVE TODUMMY-RECORD WRITE-LINESQ2214
039500 FAIL-ROUTINE-EX. EXIT.                                           SQ2214.2
0360BAIL-OUT.SQ2214.2
039700     IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.       SQ2214.2
039800     IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.               SQ22140      CCVS-E-1 . PERFORM 2 .   SQ22142
090 BAIL-OUT-WRITE.                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040000     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  SQ2214.2
040100     MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.     SQ2214.2
040200 BAIL-OUT-EX. EXIT.                                               SQ2214.2
000 .
040400     EXIT.                                                        SQ2214 "(S) FAILED TOENDER-DESC .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
04080      CCVS-PGM-IDTO (1).                       .2
040900     MOVE "RC" TO CHARS-OR-RECORDS (1).                           SQ2214.2
041000     MOVE 000050 .                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041100     MOVE03590         MOVE"NO " TO  ELSE                          .2
041200     MOVE "SQ" TO XFILE-ORGANIZATION (1).                         SQ2214.2
04130MOVE""TOXLABEL-TYPE(1.SQ22142
041400     MOVE 000000 TO XRECORD-NUMBER (1).                           SQ2214.2
40      ZERO TO COUNT-OF-RECS.                                  SQ2214.2
01600     OPEN OUTPUT SQ-VS7.                                          SQ2214.2
060           "NO .
010 .                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041900     PERFORM WRITE-SHORT-REC.                                     SQ2214.2
042000     PERFORM WRITE-LONG-REC.                                      SQ2214.2
042100     PERFORM WRITE-SHORT-REC 10 TIMES.                            SQ2214.2
042200     PERFORM WRITE-LONG-REC 100 TIMES.                            SQ2214.2
0430     PERFORM WRITE-SHORT-REC3 TIMES                           .2
042400 WRITE-WRITE-GF-01.                                               SQ2214.2
450MOVECREATE FILE SQ-VS7" TO FEATURE. SQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042600     MOVE "WRITE-TEST-GF-01" TO PAR-NAME340WRITE AFTER ADVANCINGPAGE                  .2
042700     MOVE "FILE CREATED, RECS =" TO COMPUTED-A.                   SQ2214.2
0280     MOVECOUNT-OF-RECSTOCORRECT-18V0.                          SQ22142
042900     MOVE "FILE HAS 120 AND 151 CHAR RECS" TO RE-MARK.            SQ2214.2
030      PRINT-DETAILSQ22142
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
04700CLOSESQ-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).                           320WRITE AFTER  1LINESSQ2214
044100     MOVE 000120 TO340BLANK-LINE-PRINT
0442000380      WRT-LN                                              SQ2214.2
044300     MOVE COUNT-OF-RECS TO XRECORD-NUMBER (1).                    SQ2214.2
044400     MOVE "SHORT" TO LONG-OR-SHORT.                               SQ2214.2
04400MOVECOUNT-OF-RECS SQ-VS7-RECNO                          .2
044600     MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-VS7R1-FIRST.          SQ2214.2
044700     MOVE 120 TO RECORD-LENGTH.                                   SQ2214.2
044800     WRITE SQ-VS7R1-M-G-120.                                      SQ2214.2
044900 WRITE-LONG-REC.                                                  SQ2214.2
050      "R2-M-G"TO (1).                           .2
0500MOVE011TO (1).                           .2
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
045500     MOVE COUNT-OF-RECS TO SQ-VS7-RECNO.                          SQ2214.2
045600     MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-VS7R2-FIRST.          SQ2214.2
045700     MOVE 51TO.                                   SQ22142
045800     WRITE SQ-VS7R2-M-G-151.                                      SQ2214.2
04590 .                                                 .2
046000      ZEROTO.                                  SQ2214
046100     MOVEZERO COUNT-OF-RECS                                  .2
046200     MOVE ZERO TO400      CORRECT-ATO. MOVE  TO XXCOMPUTED  .2
046300     MOVE ZERO TO RECORDS-IN-ERROR.                               SQ2214.2
440      ZERO ERROR-FLAGSQ2214
046500     OPEN INPUT SQ-VS70000CCVS1-EXITSQ2214.2
046600 READ-TEST-F1-01.                                                 SQ2214.2
046700     PERFORM READ-SHORT-REC THRU READ-SHORT-REC-EXIT.             SQ2214.2
046800     IF EOF-FLAG EQUAL TO 1                                       SQ2214.2
046900         MOVE "EOF ON FIRST READ" TO RE-MARK                      SQ2214.2
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
0440PERFORM.                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030      " 1.SQ2214.2
0460READ-FAIL-F1-01SQ2214
047700     MOVE " FILE NOT OK. SEE05 ZERO COUNT-OF-RECS. .2
070      FAILSQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047900 READ-WRITE-F1-01.                                                SQ2214.2
048000     MOVE17      " LENGTH RECS" TO.                .2
048100     MOVE "READ-TEST-F1-01" TO PAR-NAME.                          SQ2214.2
RECORD  RE-MARK.
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 TO5      " FILESQ-VS7 . SQ2214.2
048700 READ-SHORT-REC.                                                  SQ2214.2
048800*   READ  <FILE>     NEXT RECORD     AT END                      *SQ2214.2
048900******************************************************************SQ2214.2
049000     IF EOF-FLAG EQUAL 042900     MOVE "FILE HAS 120 A 51CHAR" TO java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049100         GO 043100*        A SEQUENTIAL MASS STORAGE FILE CONTAINING 450            SQ2214.2
049200     READ SQ-VS7 NEXT RECORD AT END                               SQ2214.2
049300         MOVE 1 TO EOF-FLAG                                       SQ2214.2
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 TO READ-SHORT-REC-ERROR.                              SQ2214.2
.2
050000         GO TO READ-SHORT-REC-ERROR.                              SQ2214.2
050100     IF COUNT-OF-RECS NOT EQUAL40      "" TO.SQ2214
050200         GO TO READ-SHORT-REC-ERROR.                              SQ2214.2
00SQ2214
050400         GO TO READ-SHORT-REC-EXIT.                               SQ2214.2
050500 READ-SHORT-REC-ERROR.                                            SQ2214.2
050600     ADD 1 TO RECORDS-IN-ERROR.                                   SQ2214.2
050700     MOVE 1 TO ERROR-FLAG045100      00051TOXRECORD-LENGTH (1).                           SQ2214.2
050800 READ-SHORT-REC-EXIT.                                             SQ2214.2
050900     EXIT.                                                        SQ2214.2
051000 READ-INIT-F1-02.                                                 SQ2214.2
051100     MOVE ZERO TO ERROR-FLAG.                                     4550MOVECOUNT-OF-RECS SQ-VS7-RECNO.SQ22142
051200 READ-TEST-F1-02.                                                 SQ2214.2
051300     PERFORM READ-LONG-REC THRU READ-LONG-REC-EXIT.               SQ2214.2
051400     IF EOF-FLAG480WRITE.                                      SQ2214
051500         MOVE "EOF ON SECOND READ" TO RE-MARK                     SQ2214.2
051600         GO TO READ-EOF-F1-06.                                    SQ2214.2
051700     IF ERROR-FLAG EQUAL TO 1                                     SQ2214.2
051800         GO TO READ-FAIL-F1-02.                                   SQ2214.2
051900 READ-PASS-F1-02.                                                 SQ2214.2
052000     PERFORM PASS.                                                SQ2214.2
052100     GO TO READ-WRITE-F1-02.                                      SQ2214.2
470 READ-SHORT-REC.SQ2214
020MOVE 60MOVEON"TORE-MARKSQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
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-02.                                                SQ2214.2
052800     MOVE "READ LONG RECORD" TO FEATURE.                          SQ2214.2
052900     MOVE "READ-TEST-F1-02" TO PAR-NAME.                          SQ2214.2
053000     MOVE "EXPECTED RECORD LENGTH: 151" TO RE-MARK.               SQ2214.2
053100     PERFORM PRINT-DETAIL.                                        SQ2214.2
053200     GO TO READ-INIT-F1-03.                                       SQ2214.2
053300 READ-LONG-REC.                                                   SQ2214.2
0340     IFEOF-FLAG EQUAL TO1SQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030          TO .                                SQ2214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053600     READ SQ-VS7 END                                              SQ2214.2
053700         MOVE 1 TO EOF-FLAG                                       SQ2214.2
053800         GO TO READ-LONG-REC-EXIT.                                SQ2214.2
0530      TO.                                      .2
054000     MOVE SQ-VS7R2-FIRST TO FILE-RECORD-INFO-P1-120 (1).          SQ2214.2
054100     IF XRECORD-NAME (1) NOT EQUAL TO "R2-M-G"                    SQ2214.2
2 .                               .2
0NOT  11java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
40GO READ-LONG-REC-ERRORSQ2214
054500     MOVE COUNT-OF-RECS TO SAVE-COUNT-OF-RECS.                    SQ221440                                                   .2
054600     IF SAVE-COUNT-OF-RECS NOT EQUAL TO SQ-VS7-RECNO              SQ2214.2
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
0550 .                                             .2
05100     ADD 1TO.                                   .2
055200     MOVE 1 TO ERROR-FLAG.                                        SQ2214.2
055300 READ-LONG-REC-EXIT.                                              SQ2214.2
050     .
055500 READ-INIT-F1-03.                                                 SQ2214530      (1  TO" .2
055600     MOVE ZERO TO ERROR-FLAG.                                     SQ2214.2
055700READ-TEST-F1-03SQ2214.2
055800     PERFORM READ-SHORT-REC THRU READ-SHORT-REC-EXIT 10 TIMES.    SQ2214.2
055900     IF .                                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
500MOVE "UNEXPECTED " TO RE-MARKSQ2214
0510         GO READ-EOF-F1-06                                    .2
056200     IF ERROR-FLAG EQUAL TO 1                                     SQ2214.2
056300         GO TO READ-FAIL-F1-03.                                   SQ2214.2
04       EQUAL 1SQ2214
5500         MOVE "EOF ON SECOND READ" TO RE-MARKSQ22142
0501600         GO READ-EOF-F1-06SQ22142
056700 READ-FAIL-F1-03.                                                 SQ2214.2
056800     MOVE "SEE VII-52 WRITE SHORT REC OR VII-44 READ" TO RE-MARKSQ2214.2
056900     MOVE RECORD-LENGTH TO COMPUTED-N.                            SQ2214.2
500MOVE2  CORRECT-N                                       .2
057100     PERFORM FAIL0510 READ-PASS-F1-02.                                                 .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.530MOVESEE       RE-MARKSQ2214
057500     MOVE "EXPECTED RECORD LENGTH: 120" TO RE-MARK.               SQ2214.2
057600     PERFORM PRINT-DETAIL.                                        SQ2214.2
057700 READ-INIT-F1-04.                                                 SQ2214.2
070      ZERO ERROR-FLAG                                     .2
057900 READ-TEST-F1-04SQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000PERFORM THRU READ-LONG-REC-EXIT00 TIMES.     SQ2214
0  EQUAL  1                                       .2
058200         MOVE "UNEXPECTED EOF"310      PRINT-DETAIL                                        .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
080     GO READ-WRITE-F1-04SQ2214
058900 READ-FAIL-F1-04.                                                 SQ2214.2
TO .                            SQ2214.2
059100     MOVE 151 TO CORRECT-N.                                       SQ2214.2
059200     PERFORM FAIL.                                                SQ2214.2
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
059400     MOVE "( EQUAL TO"R2-M-G"SQ2214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
059500     MOVE "READ-TEST-F1-04" TO PAR-NAME.                          SQ2214.2
059600     MOVE "EXPECTED RECORD LENGTH: 151" TO RE-MARK.               SQ2214.2
059700     PERFORM PRINT-DETAIL.                                        5440GO READ-LONG-REC-ERRORSQ22142
059800 READ-INIT-F1-05.                                                 SQ2214.2
059900     MOVE ZERO TO ERROR-FLAG.                                     5600     IF  NOT EQUALTO              SQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060000 05500.                                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
ORM READ-SHORT-REC THRU 33 .   SQ2214
060200     IF EOF-FLAG EQUAL TO 1                                       SQ2214.2
060300         MOVEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060400         GO TO READ-EOF-F1-06.                                    SQ2214.2
000      ERROR-FLAG  1SQ22142
060600         GO TO READ-FAIL-F1-05.                                   SQ2214.2
060700 READ-PASS-F1-05.                                                 SQ2214.2
060800     PERFORM PASS.                                                SQ2214.2
060900     GO TO READ-WRITE-F1-05.                                      SQ2214.2
10READ-FAIL-F1-05
061100     MOVE510          TOREAD-EOF-F1-06SQ22142
061200     MOVE RECORD-LENGTH TO COMPUTED-N.                            SQ2214.2
061300     MOVE 120 TO CORRECT-N.                                       SQ2214.2
061400     0560 READ-PASS-F1-03.SQ2214.2
061500 READ-WRITE-F1-05.                                                SQ2214.2
010MOVEREADRECORDS.                        .2
061700     MOVE70READ-FAIL-F1-03SQ2214
061800     MOVE "EXPECTED RECORD LENGTH: 120" TO 05600MOVE"SEEVII-52WRITESHORT "TO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
061900     PERFORM PRINT-DETAIL.                                        SQ221400      12  .                                       .2
062000 READ-INIT-F1-06.Q2214
062100     READ SQ-VS7 RECORD END                                       SQ2214.2
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-06570      PRINT-DETAIL.                                        .2
062600     MOVE " READ = COMPUTED-A SQ2214.2
062700     MOVE COUNT-OF-RECS TO CORRECT-18V0.                          SQ2214.2
062800     GO TO READ-FAIL-F1-06.                                       SQ2214.2
062900 READ-TEST-F1-06.                                                 SQ2214.2
063000057900 READ-TEST-F1-04.                                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
063100         MOVE "0510IF EQUAL TO 1 SQ2214.2
063200     MOVE RECORDS-IN-ERROR TO CORRECT-18V020MOVE" EOF" TO
063300         GO TO READ-FAIL-F1-06.                                   SQ2214.2
063400 READ-PASS-F1-06.                                                 SQ2214.2
063500     PERFORM PASS.                                                SQ2214.2
063600     GO TO READ-WRITE-F1-06.
063700 READ-FAIL-F1-06.                                                 SQ2214.2
063800     PERFORM FAIL.                                                SQ22149       TOSQ2214
063900 READ-WRITE-F1-06.                                                SQ2214.2
064000     MOVE "READ-TEST-F1-06" TO PAR-NAME.0930READ-WRITE-F1-04SQ2214.2
064100     MOVE "VERIFY FILE SQ-VS7" TO FEATURE.                        SQ2214.2
064200     PERFORM PRINT-DETAIL.                                        SQ2214.2
064300 READ-CLOSE-F1-06.                                                SQ2214.2
064400     CLOSE .                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05  SECTIONSQ22142
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
065000600          "UNEXPECTEDEOF TORE-MARKSQ22142
065100     OPEN INPUT SQ-VS7.                                           SQ2214.2
065200     MOVE ZERO TO COUNT-OF-RECS.                                  SQ2214.2
065300 INFO-TEST-01.                                                    SQ2214.2
065400     READ SQ-VS7 AT END                                           SQ2214.2
065500         GO TO INFO-END.000      PASSSQ22142
065600     ADD 1 TO COUNT-OF-RECS.                                      SQ2214.2
065700     IF SQ-VS7-RECNO NOT EQUAL TO "0000010 . SQ2214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
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
0630 NO-INFO-01SQ2214.2
066400     MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK.           SQ2214.2
060 .
060     MOVE READSHORTTO.                         SQ2214
06670MOVE"" TO PAR-NAMESQ2214
066800     PERFORM PRINT-DETAIL.                                        SQ2214.2
066900 INFO-INIT-02.                                                    SQ2214.2
06700READ RECORD ATENDSQ2214.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
0700IF NOT  TO"0004"                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
6800         GOTO.                                        .2
0690      "MAXIMUM RECORD SIZE WRITTEN TORE-MARK.SQ2214.2
068000     MOVE "RECORD READ =" TO COMPUTED-A.                          SQ2214.2
SQ2214
068200     GO TO INFO-WRITE-02.                                         SQ2214.2
068300 NO-INFO-02.                                                      SQ2214.2
06400      "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK           SQ2214.2
0850 INFO-WRITE-02.                                                   .2
660      "READ SHORT RECORD" TOFEATURE                         SQ2214
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.                                      SQ2214MOVE " .SQ2214.2
069400     ADD 1 TO40      PRINT-DETAILSQ2214
069500     IF COUNT-OF-RECS EQUAL 040 .                                                SQ2214
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 EQUAL064900*    130 IS UNIQUE FOR EACH RECORD.                               SQ2214.2
0GO NO-INFO-03.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
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
07040     GO INFO-WRITE-03SQ2214.2
070500 NO-INFO-03.                                                      SQ2214.2
07000      "NO DEFINITE CONCLUSION " TO.           SQ2214
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
0720     CLOSE.                                                .2
01300TERMINATE-ROUTINESQ22142
071400     EXIT.                                                        SQ2214.2
0750  SECTION.                                               .2
071600 CCVS-999999.                                                     SQ2214.2
071700GO CLOSE-FILESSQ2214

quality93%

¤ 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.0.44Bemerkung: ¤

*Bot Zugriff

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.