Quelle sq222a.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         SQ2224.2
000200 PROGRAM-ID.                                                      SQ2224.2
000300     SQ222A.                                                      000100 IDENTIFICATION DIVISION                                         SQ22242
000400****************************************************************  SQ2224.2
000500*                                                              *  SQ2224.2
000600*    VALIDATION FOR:-                                          *  SQ2224.2
000700*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ2224.2
000800*                                                              *  SQ2224.2
000900*    CREATION DATE     /     VALIDATION DATE                   *  SQ2224.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".SQ2224.2
001100*                                                              *  SQ2224.2
001200*        THIS ROUTINE CHECKS:                                     SQ2224.2
001300*                                                                 SQ2224.2
001400*           RECORD    VARYING.                                    SQ2224.2
001500*                                                                 SQ2224.2
001600*        THIS ROUTINE BUILDS A SEQUENTIAL MASS STORAGE FILE       SQ2224.2
001700*    WHICH CONTAINS BOTH 120 CHARACTER AND 151 CHARACTER          SQ2224.2
001800*    RECORDS.  THE MASS STORAGE FILE CONSISTS OF 1 SHORT,         SQ2224.2
001900*    1 LONG, 10 SHORT, 100 LONG, AND 338 SHORT RECORDS FOR        SQ2224.2
002000*    A TOTAL OF 450 RECORDS IN THE FILE.  THE MASS STORAGE        SQ2224.2
002100*    FILE IS READ AND FIELDS IN THE RECORDS ARE CHECKED           SQ2224.2
002200*    AGAINST THE EXPECTED VALUES.                                 SQ2224.2
002300*                                                                 SQ2224.2
002400*        AN INFORMATION SECTION AT THE END OF THE ROUTINE         SQ2224.2
002500*    CHECKS THE FIELD WHICH CONTAINS THE XRECORD-NUMBER.          SQ2224.2
002600*    THIS FIELD IS PART OF A LONG RECORD ONLY.  IF THE            SQ2224.2
002700*    XRECORD-NUMBER IS THERE FOR A SHORT RECORD, IT MEANS         SQ2224.2
002800*    THE MAXIMUM SIZE RECORD IS ALWAYS WRITTEN.                   SQ2224.2
002900 ENVIRONMENT002300*                                                                 SQ222400290 ENVIRONMENT DIVISION                                            .2
30  .                                           .2
003100 SOURCE-COMPUTER.                                                 SQ2224.2
020Card0130SQ22242
003300 OBJECT-COMPUTER.                                                 SQ2224.2
003400     Card0131.                                                    SQ2224.2
003500 INPUT-OUTPUT SECTION30 050 INPUT-OUTPUT
003600 FILE-CONTROL.                                                     RAW-DATAASSIGNTO.2
003700     SELECT RAW-DATA             IS                                .2
003800     "C0098"                                                      SQ22240RECORD IS .                           .2
0ORGANIZATIONINDEXEDSQ2224
004000            ACCESS MODE IS RANDOM                                 SQ2224.2
004100            RECORD KEY IS RAW-DATA-KEY.                           SQ2224.2
004200     SELECT PRINT-FILE ASSIGN TO                                  SQ2224.2
030     C0085SQ2224
004400     SELECT SQ-VS7 ASSIGN TO                                      SQ2224.2
004500     "C0020"                                                      0      SEQUENTIAL
004600     ORGANIZATION SEQUENTIAL00040 PRINT-FILE2
004700     ACCESS SEQUENTIAL.040     C0085SQ2224
004800 DATA DIVISION.                                                   SQ2224.2
0090  SECTION2
005000520                                                                  .2
005100 FD  RAW-DATA00  RAW-DATA-SATZ                                               SQ22240ORGANIZATIONSQ2224
050
005300 090  SECTIONSQ2224040    05AW-DATA-KEY X6.                            2
00     05  RAW-DATA-KEY        PIC X(6).                            SQ2224.2
00     0                 96).                           .2
005600     05  C-TIME              PIC 9(8).                            SQ2224.2
005700     05  C-NO-OF-TESTS       PIC 99.                              500SQ2224.2
005800     0590     05C-ALL 9.SQ2224
005900     05  C-ALL               PIC 999.                             SQ2224.2
0060000                PIC 99.SQ222460005C          999.                             ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00     5C-DELETEDPIC9.SQ2224
006200560     0                PIC98000     ABEL                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0600 C-OTEX1)                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060     5  C-INDENTPIC.                               .2
006010 1  PRINT-REC PICTURE58     5C-OK99.java.lang.StringIndexOutOfBoundsException: Range [78, 72) out of bounds for length 80
006600 FD  PRINT-FILE                                                   SQ2224.2
006700     LABEL RECORDS70   SQ-VS7SQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006800     Card0132                                                     0      RECORDS0     5                 X()SQ2224
006900     DATA RECORD IS PRINT-REC DUMMY-RECORD00700     5               X.                               .
007000               .                                                  SQ2224.2
007100    PICTURE00     SQ-VS7R2-FIRST (2)                           2
007200 01  DUMMY-RECORD PICTURE X(120).                                 SQ222400670     LABEL8002SQ-VS7-RECNOPICTURE)                              .2
00
007400     LABEL RECORDS02   PICTURE2..
07000SQ2224
070 1SQ-VS7R1-M-G-120.                                            .2
007700     0070VARYINGSQ2224.2
008001SQ-VS7R2-M-G-151SQ22242
007900     02  SQ-VS7R2-FIRST0 1SQ-VS7R1-M-G-12001  9                                         .2
OR-SHORTX(10).                           .2
0   X().                              2
0800     2SQ-VS7-FILLER X(2).                           .2
0800  SECTION                                         .2
008400 0  SAVE-COUNT-OF-RECS X(5) VALUE SPACE                SQ2224
008500 01  COUNT-OF-RECS  PICTURE S9(5) COMPUTATIONAL.                  SQ2224.2
080java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008700 01  003009                          X(8              SQ2224
080 01PICTURE.SQ2224
008900 01  DUMP-AREA.                                                   50 0 COUNT-OF-RECS090       5FILLERPICTURE(6VALUE2
009000     02  009900        05 FILLERPICTURE (6       SQ22242
009100     02  RECNO  PICTURE 9(5).                                     SQ2224.2
090     0  REC-FILLER(1).
09001  .                                 .2
0900    3FILE-RECORD-INFO-SKELETON.
009500        05 FILLER                 PICTURE X(480030        5 FILLER                  X(3)VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
090             =RECORD/,RECNO0,=0" 2
009700        0 FILLER                 PICTURE X(46)       VALUESQ22242
009800             ,=0000,=     ,LRECL=00000,BLKSIZ=0000" SQ22242
009900        05 FILLER                 PICTURE X(2                     SQ2224.2
0000             ,000,=  LBLRSQ2224
010100        05 FILLER                 PICTURE X(37)       VALUE       SQ2224.2
0020",=                             .000 0  .                                 2
010300        05 FILLER         01           0FILLER (..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040            ,                             .2
010500       0                   X38)V       SQ2224
01100FILLER X8SQ2224
010700"ODO=007 X)SQ22242
0     FILE-RECORD-INFO0.              .2
SQ2224
011000           07 FILLER              PIC X(5).                       SQ2224.2
110XFILE-NAME6.
010           7FILLERPIC(.SQ2224
011300           07 XRECORD-NAME"RECKEY= ".             .2
01300501100          7FILLER X(7.SQ2224
011500           07 REELUNIT-NUMBER     PIC 9(1).                       1700        PIC6.                     .2
011600           07 FILLER              PIC X(7).                       160",= ".SQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01300         PIC)                      .2
01180020           7FILLERPIC7.SQ2224
011900           07 UPDATE-NUMBER       PIC 9(2).                       SQ2224.215 0 XRECORD-LENGTH        9().SQ2224
012000           07 FILLER              PIC X(5).                       SQ2224.2
0200           0 ODO-NUMBERPIC 020          7  PICX(.                      .
012200           07 FILLER              PIC X(5).                       SQ222411000 FILLERPIC X013000           0 FILLER X6)                       .2
012300           07 XPROGRAM-NAME        PIC1150           7 REELUNIT-NUMBER     PIC91.SQ2224
0PIC X(7).                       SQ22242
012500           07 XRECORD-LENGTH       PIC 9(6).                      SQ2224.2
020 0               X().                       .2
012700           07 CHARS-OR-RECORDS    PIC X(2).                       SQ2224110            FILLER              PIC X()                       0300 ILE-RECORD-INFO-P121-240SQ2224
012800           07 FILLER              PIC X(01200           7ODO-NUMBER 9()                       .2
01940           7ALTERNATE-KEY1PICX9.                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013000           07 FILLERPIC X(1420           7 ALTERNATE-KEY2PIC(9.                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013100           07 RECORDS-IN-FILE     PIC 9(6).                       SQ2224.2
013200           07 FILLER              PIC0200                     VALUE.
010270           7CHARS-OR-RECORDS00                    X PACE
FILLER X(6.SQ2224
013500           07 XLABEL-TYPE40     2FILLERPICTURE.19PIC(.SQ2224
013600        05 FILE-RECORD-INFO-P121-240.                             SQ2224.2
00                           X8.SQ222401500     0  PAR-NAMESQ22242
0138           7XRECORD-KEYPACESQ2224
013900050       3  PICTURE   VALUE SPACE.                       SQ2224.2
040            ALTERNATE-KEY1PIC2).                      SQ2224
014100           07 FILLER              PIC150       3FILLER X() SPACESQ2224
100 RE-MARK1.SQ2224.2
014300           07 FILLER              PIC X(7).                       SQ2224.2
014400 01  TEST-RESULTS150 1.
01450      FILLERPICTUREVALUE.          SQ2224java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014600     02FEATURE X(20) VALUE0     0   PICX1)VALUECOMPUTEDSQ22242
014700     02 FILLER                    PICTURE X VALUE SPACE.160     2COMPUTED-XSQ2224
040     2                    PICTURE(5  SPACESQ2224
01010      COMPUTED-NCOMPUTED-A-(9.().       SQ2224java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015000     02  PAR-NAME.                                                SQ2224.2
015100       03 FILLER PICTURE6001300XRECORD-KEY X(2)SQ2224
020       03900 FILLERPIC(.SQ2224java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01400           07      (2)                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015003 ILLER X(5) VALUESPACE                            .2
01500     02 FILLER PIC69003 FILLERX(0  SPACE                             SQ2224
01560     0  PIC (1).                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01700  TEST-COMPUTED
52  X301       X()VALUE.                             2
0190     0   X17)  " COMPUTED".                .2
160     2COMPUTED-XSQ2224
016100     03 COMPUTED-A                PICTURE13020                          PICTURE.          2
016200     03 COMPUTED-N                      00     CORRECT-N  99.()         .2
1000COMPUTED-0V18COMPUTED-A-91.SQ2224
700     03  REDEFINESPICTURE9(050       .                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10     3C COMPUTED-A91)(4.java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
160     3CM-18V0 COMPUTED-ASQ2224
060004 COMPUTED-18V0                   PICTURE -9(18).       SQ222480 0                           .SQ2224
080         .SQ2224
01690 PIC6)                                        0402FILLERIS9  IS              java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
017000 01  1700  PICTURE 2)VALUE .                   50    2  (7         COMPUTED.
0110     02  PIC(0  SPACESQ2224
01016100     03 PICTURE  VALUESPACE2
070      .                                                2
017400     03 0130     3000FILLER( STESTEDSQ2224
150 R CORRECT-A -9(9.        2
0015     03 COMPUTED-14V4  COMPUTED-APICTURE2
017700     03 CORRECT-4V14 REDEFINES CORRECT-A600CM-18V0REDEFINES.                       .2
07800CORRECT-14V4CORRECT-A -(4.94SQ2224
017900     03      CR-18V0 REDEFINES CORRECT-A190 1  REC-CT  99  ZERO804FILLERPICTURESQ2224
104CORRECT-18V0PICTURE1)       .2
018100         4FILLERPICTURE.            .
SPACE                             SQ2224    PICTUREIS99VALUE IS.                  SQ2224
080 .                                                    .
018400     02 FILLER PICTURE IS X(99) VALUE IS " FEATURE PASQ2224.2
0100001TOTAL-ERROR99  .                              2
100    REMARKSSQ2224
07600     03 CORRECT-0V18 REDEFINESCORRECT-A -.9(8.SQ2224
020  PIC)VALUE.SQ2224
018900     02 180     3001  9(  .                            .2
019000     02 FILLER0500  FILLER X(27  VALUE00CORRECT-18V0PICTURE(8.       .2
0110     02  PICTUREIS(1) IS SPACE.                   SQ2224.2
1002FILLER X4   "".                   0180     0FILLERX5  SPACESQ2224
090     2FILLER PICTUREIS()IS.SQ2224
0900   PICTURE()  ZERO.2
019500 01  REC-CT PICTURE 99 VALUE1000  .                                                    .2
0960 01                   9ZERO
090 1ERROR-COUNTER IS99VALUE .                  SQ2224
018 1INSPECT-COUNTER 99  ZERO                          SQ2224
09PASS-COUNTER  9 (20VALUEIS                   .
001TOTAL-ERROR9  ZEROSQ2224
020100 01  ERROR-HOLD PIC 999 VALUE ZERO.                               SQ2224.2
020200 01  DUMMY-HOLD PIC01890     2 FILLER  IS  ISSPACE1     2FILLER 58)                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20 195" .2
020400 0090     2FILLER  (4)VALUE0  CCVS-E-1.
2500200  ICTURE)VALUE.                   .2
000500RPICTURE ZEROSQ2224
020700     " FEDERAL 09600 PICTURE 99VALUE ZERO. SQ22242
00    S" .2
020900     02   IS.2
021000  .                                                    .
010     2FILLER (5) IS                             .2
010CCVS85NOT.                   SQ2224
021300     02 FILLER PICTURE000                      X3)  VALUESQ2224
02  PICTUREISX9.SQ22242
02150     02FILLER PICTUREIS X(40  IS SPACE.SQ2224
021600 01  0201000   PIC 99  ZERO                               .2
100   PICTURE4                                .2
021800     " FOR000 1 CVS-H-12300 CVS-E-2-2.SQ22242
02190002       PICTURE7   .                    .2
20     COBOL8  .,Apr SSVG.2
02020       SOFTWARECENTER  VALIDATION.
022070CCVS-E-3.SQ22242
02230 0  .SQ22242
020       PICTURE X5)VALUE SPACESQ2224
202FILLER IS()9  USE.SQ2224
022600     02 ID-AGAIN PICTURE X12  SPACESQ2224
070     2FILLERPICTURE40 PICTURE)                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0    " .2
022900 01  24400     02 X1)VALUE185.                 .2
02300     5   CCVS-E-4Q2224
030     .
023200     02  FILLER                   PICTURE X(21)  VALUE SPACE.     SQ2224.2
023300     02 CCVS-E-2-2.                                               SQ2224.2
023400         03 ERROR-TOTAL PICTURE IS XXX VALUE IS SPACE.            SQ2224.2
030         0F PICTURE IS X VALUE IS .                   2
023600         03 ENDER-DESC PIC    ". SQ2224.2
030C
20    X  SQ2224
030" OFFICIALUSE ONLY"
024002   PICTURE12 SPACE                       .
024100     02  FILLER PICTURE X(58) VALUE                               SQ222422300 01  CCVS-E-1.                                                    SQ2224.2
042     ON-SITE,   &TECH.2
024300     02  FILLER PICTURE X(12801HYPHEN-LINESQ22242
024400     02 FILLER PIC X(15) VALUE " COPYRIGHT 1985".                 SQ2224.2
024500  CCVS-E-4                                                    SQ2224
02460java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024700     02 FILLER PIC60     2FILLERPICTURE   SQ2224
024800     02 CCVS-E-4-2-"**************SQ2224java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024900     02 FILLER2
WERE.java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
29      I-O.                                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025200     02 FILLER PIC X(30) VALUE " *** INFORMATION ***".    025200     02 FILLER PIC X(30) VALUE "        *** INFORMATION  ***".    SQ2224
025300     02 INFO-TEXT.                                                70        C-NO-OF-TESTS0260         0   X(6 VALUEENCOUNTEREDSQ2224
025400     04 FILLER PIC X(20) VALUE SPACE230     2FILLERPICTUREX2)V                               .2
025500     04 XXCOMPUTED PIC X(20).                                     SQ2224.2
025600     04 FILLER PIC X(5) VALUE SPACE.                              SQ2224210     01
050     4  PIC20.                                      .
025800 01  HYPHEN-LINE.                                                 SQ222410MOVE TO.                               .2
5       PICTURE X .                              2
026000     02 FILLER40     2 CCVS-E-4-1SQ2224
2000MOVE                             .2
0620     2  PICTURE (4)VALUE "************.2
0260CCVS-INIT-EXIT.2
026400 01  CCVS-PGM-ID PIC X(6) VALUE                                   SQ2224.2
026500     "SQ222A".                                                    SQ2224.2
0660 PROCEDURE DIVISION                                              SQ2224
005000INFO-TEXT                                                .2
060OPEN-FILES.2
026900     OPEN9      CCVS-PGM-ID 050     0XXCOMPUTED X(0.SQ22242
0700     MOVE TO0R RAW-DATAKEY OEND-E-2SQ2224
027100     READ RAW-DATA INVALID KEY GO TO END-E-1.                     SQ2224070004 X2)SQ2224
220      " C-ABORT.SQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
230      1TO.                                      SQ2224
027400     ACCEPT C-DATE  FROM DATE.                                    SQ2224.2
0270        FROMTIMESQ2224.2
027600     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1.             SQ2224.2
027700 END-E-1.                                                         Q22242
080CLOSE.                                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02790     OPEN020     RAW-DATA-SATZINVALID  TO.             SQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028000     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN0630-    "300R. SQ2224.2
028100     MOVE    SPACE TO TEST-RESULTS.                               .2
028200     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             SQ2224.2
028300     MOVE ZERO TO REC-SKL-SUB.                                    SQ222402600 PROCEDURE DIVISION.                                              SQ2224.2
028400     PERFORM CCVS-INIT-FILE 9 TIMES.                              SQ2224.2
028500 CCVS-INIT-FILE.                                                  SQ2224.2
3. *"TO java.lang.StringIndexOutOfBoundsException: Range [40, 39) out of bounds for length 80
028700     MOVE FILE-RECORD-INFO-SKELETON TO                            SQ2224.2
028800                   (REC-SKL-SUB                 SQ22240   EQUAL  ZEROSQ2224
02890010              "."TO                                 .
029000     GO TO CCVS1-EXIT.                                            SQ222470     ADD1 TO0     MOVETEST-RESULTSPRINT-REC .SQ2224
029100 CLOSE-FILES.                                                     SQ2224.2
0220     PERFORM END-ROUTINETHRUFAIL-ROUTINE-EX.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
90java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 80
029400     MOVE CCVS-PGM-ID270 END-E-1SQ2224.2
029500     READ RAW-DATA INVALID KEY GO TO 32      SPACE P-OR-F2700CLOSERAW-DATA.                                              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0" .SQ22242
02700      PASS-COUNTERTO .                                   SQ2224
0 ERROR-HOLD .MOVECCVS-PGM-IDTOID-AGAIN.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029900     MOVE ERROR-COUNTER20      CCVS-H-1 DUMMY-RECORD WRITE-LINE.   SQ2224
030000     MOVE DELETE-CNT TO C-DELETED.                                SQ22242840      CCVS-INIT-FILE 9 0300 COLUMN-NAMES-ROUTINE
0310MOVEINSPECT-COUNTERTO.                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000      RAW-DATA-SATZINVALID030200     REWRITE RAW-DATA-SATZ INVALID KEY   .SQ2224
00 .SQ2224
0304002 .                                                  .2
0.2
030600     EXIT PROGRAM.                                                SQ2224.2
030700 TERMINATE-CALL.                                                  SQ2224.2
030800     STOP02100CLOSE-FILES.                                                    07  .TIMESSQ2224
030900 INSPT. MOVE 090   THRUEND-ROUTINE-13  .SQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031.  ADD1 TO .           .2
03100FAIL  MOVE "*" P-OR-F  ADD400ADD PASS-COUNTER ERROR-HOLD.                             SQ2224java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10.**"TOP-OR-F.             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031300     MOVE "****TEST DELETED****" TO RE-MARK.                      SQ2224.2
0340 .SQ2224.2
031500     IF REC-CT NOT EQUAL TO ZERO                                  3400MOVECCVS-E-2 TO DUMMY-RECORDPERFORM .SQ22242
031600             MOVE "." TO PARDOT-X                                 SQ2224.2
031700MOVEREC-CTTODOTVALUE
031800     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      SQ2224.2
031900     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               SQ2224.2
03510         ELSE                                                     SQ2224.2
0320          ELSE PERFORM BAIL-OUTTHRU BAIL-OUT-EXSQ22242
032200     MOVE SPACE TO P-OR-F. MOVE SPACE0200      RAW-DATA-SATZ INVALID   TOEND-E-2             .2
03ECT-X.
032400     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         SQ2224.2
03250          SPACE TO3500.SQ2224.2
032600 HEAD-ROUTINE.                                                    SQ2224.2
032700     MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 50          NO  TO                             .
032800     MOVE CCVS-H-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.   SQ2224.2
050     MOVE "TEST(S)       TO  .SQ2224.2
033000 COLUMN-NAMES-ROUTINE.                                            SQ2224.2
03610      INSPECT-COUNTEREQUALTOSQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020   TIMESSQ22242
033300     MOVE HYPHEN-LINE TO DUMMY-RECORD.00DE-LETE.  MOVE "**** TO P-OR-F  ADD 1 TO DELETE-CNT          SQ22242
033400 .
0350java.lang.StringIndexOutOfBoundsException: Range [15, 12) out of bounds for length 80
033600 END-RTN-EXIT.                                                    SQ2224.2
0300MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE TIMES   SQ22242
03                                 0WRITE-LINESQ2224java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033900      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      SQ2224.2
03400     ERROR-HOLD ADDDELETE-CNTTOERROR-HOLD.SQ2224.2
034100      ADD PASS-COUNTER TO ERROR-HOLD.                             00           TOPRINT-REC SQ22242
034200*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   SQ2224.2
034300      MOVE PASS-COUNTER TO CCVS-E-4-1.                            SQ2224.2
340 ERROR-HOLDTO
034500      MOVE CCVS-E-4 TO CCVS-E-2-2.                                SQ2224.2
034600      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           SQ2224.2
034700  END-ROUTINE-12.                                                 SQ2224.2
034800      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        SQ2224.2
034900     IF       ERROR-COUNTER IS EQUAL TO ZERO                      SQ2224.2
035000         MOVE "NO " TO ERROR-TOTAL                                SQ2224.2
035100         ELSE                                                     MOVE  TOPERFORM 5TIMESSQ22242
035200         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       SQ2224.2
0033100MOVE  TODUMMY-RECORDPERFORM .           2
035400     PERFORM WRITE-LINE.                                            TO SPACEGOTO FAIL-ROUTINE-WRITE..300     MOVE300IF CORRECT-XNOT EQUALTOTOSPACE TO java.lang.StringIndexOutOfBoundsException: Range [68, 67) out of bounds for length 80
035500 END-ROUTINE-13.                                                  SQ2224.2
0TOZEROSQ2224.
0300MOVE"NO TOERROR-TOTAL
0350MOVE   .SQ2224.2
090     "( "TO90 .2
036000     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SQ2224.2
03400      .   TO .                   .2
036200          410       PASS-COUNTER TOERROR-HOLD.                             SQ22242
036300      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   SQ2224.2
0340     MOVE "() INSPECTION 0990      XXINFODUMMY-RECORD. PERFORMWRITE-LINE  .SQ22242
0650        . java.lang.StringIndexOutOfBoundsException: Range [62, 61) out of bounds for length 80
036600     MOVE CCVS-E-3 TO DUMMY-RECORD.70  END-ROUTINE-120CCVS1-EXIT                                                      .
036700 WRITE-LINE.                                                      SQ2224.2
036800     ADD 1 TO RECORD-COUNT.                                       SQ2224.2
036900     IF RECORD-COUNT GREATER 50                                   SQ2224.2
037000         MOVE DUMMY-RECORD TO DUMMY-HOLD                          SQ2224.2
037100         MOVE MOVE 00  XBLOCK-SIZE 1)
037200         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  SQ2224.2
037300         MOVE 35300     MOVE     CCVS-E-2.SQ2224.2
037400         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     SQ2224.2
037500         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          SQ2224.2
037600         MOVE DUMMY-HOLD TO DUMMY-RECORD                          SQ2224.2
037700         MOVE ZERO TO RECORD-COUNT.                               SQ2224.2
037800     PERFORM WRT-LN.                                              SQ2224.2
037900 WRT-LN.                                                                .SQ2224.050MOVEjava.lang.StringIndexOutOfBoundsException: Range [17, 15) out of bounds for length 80
0300         DUMMY-RECORD  .SQ22242
038100     MOVE SPACE TO DUMMY-RECORD.                                  0 TIMES.                            SQ2224.2
038200 BLANK-LINE-PRINT.                                                SQ2224.2
038300     PERFORM WRT-LN.                                              SQ2224.2
030.SQ2224.2
038500     IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.   SQ2224.2
038600     IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.    SQ2224.2
038700     MOVE "NO FURTHER INFORMATION         SEQUENTIALMASSSTORAGE CONTAINING50.2
080MOVE  DUMMY-RECORD WRITE-LINE .     .
0800    GO  FAIL-ROUTINE-EX                                       .
039000 FAIL-ROUTINE-WRITE.                                              SQ2224.2
039100     MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE           SQ2224.2
039200     MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES.   SQ2224.2
039300 FAIL-ROUTINE-EX                                           SQ22242
039400 BAIL-OUT.                                                        SQ2224.2
039500     IF COMPUTED-A NOT EQUAL D
0410        1                    2
039700 BAIL-OUT-WRITE.                                                  SQ2224.2
0390400 TO .2
0300       TO. WRITE-LINETIMES     .
040000 BAIL-OUT-EX70MOVE R2-M-G8900  FAIL-ROUTINE-EX
040100 CCVS1-EXIT.                                                      SQ2224.2
040200     EXITTEST-CORRECT  PRINT-RECPERFORMWRITE-LINE 2TIMES   SQ22242
040300 SECT-SQ222A-0001 SECTION.                                        SQ2224.2
0430MOVE)TO
040500     MOVE "SQ-VS7.90       NOTSPACEGOTO..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040600     MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1).                       SQ2224.2
047     ""TOCHARS-OR-RECORDS ().SQ2224.2
04080      001 TOXBLOCK-SIZE().SQ2224
040900     MOVE 000450580ZEROTO .                               SQ2224.2
0400MOVE SQ   1.SQ2224.2
041100     MOVE "S" TO XLABEL-TYPE (1).                                 SQ2224.2
041200      000XRECORD-NUMBER().2
041300     MOVE  TO COUNT-OF-RECS.                                  SQ2224.2
041400     OPEN OUTPUT SQ-VS7.                                          SQ2224.2
041500     MOVE "MULTIPLE LENGTH RECS" TO SQ-VS7-FILLER.                SQ2224.2
041600 WRITE-TEST-GF-01.                                                SQ2224.2
041700     PERFORM WRITE-SHORT-REC.                                     SQ2224.2
0480WRITE-LONG-REC                                      2
041900     PERFORM WRITE-SHORT-REC 10 TIMES.                            SQ2224.2
042000     PERFORM WRITE-LONG-REC 10      ERROR-FLAG TOjava.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 80
042100     PERFORM WRITE-SHORT-REC 338 TIMES.                           SQ2224.2
04
023      " FILESQ-VS7  .                        java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042400     MOVE "WRITE-TEST-GF-01" 10READ-FAIL-F1-01                                                 SQ2224.
042500     MOVE "FILE CREATED, RECS =" TO COMPUTED-A.                   SQ2224.2
042600      TOCORRECT-18V0.
042700     MOVE "FILE 41700     PERFORM WRITE-SHORT-REC.                                     SQ2224.2
042800     PERFORM PRINT-DETAIL.                                        SQ2224.2
042900*        A SEQUENTIAL MASS STORAGE FILE CONTAINING 450            SQ2224.2
043000*    RECORDS HAS BEEN CREATED.  THE FILE CONTAINS RECORDS         SQ2224.2
0410    OF 12 CHARACTERS   OF11CHARACTERS. THE        SQ2224.2
043200*    SEQUENCE IN WHICH THE RECORDS WERE WRITTEN IS S-L-10S-       SQ2224.2
043300*    100L-338S.                                                   SQ2224.2
04400
0850GO READ-SHORT-REC-EXIT.                               .
030  SQ2224
043704240     "" TO080     MOVE FILE-RECORD-INFO-P1-1201.SQ22242
043800     MOVE "50FILECREATED RECS="TO .SQ2224.2
0430        .SQ2224400IF )NOT EQUAL TO "R1-M-G"                    SQ2224.2
400     9  )NOT  1                       2
044100     MOVE COUNT-OF-RECS TO XRECORD-NUMBER (1).                    SQ2224.2
0420MOVE""TOLONG-OR-SHORT
044300     MOVE COUNT-OF-RECS TO SQ-VS7-RECNO.                          SQ2224.2
044400     MOVE 00         GO TO READ-SHORT-REC-EXIT
04490 .SQ2224.2
044600 410    OF10CHARACTERS ANDRECORDS00     ADD 1 TO RECORDS-IN-ERROR.
044700     MOVE "R2-M-G" TO XRECORD-NAME (1).                           SQ2224.2
044800     MOVE 000151 TO XRECORD-LENGTH (1).                           SQ2224.2
044900     ADD 1 TO COUNT-OF-RECS.                                      SQ2224.2
045000     MOVE COUNT-OF-RECS TO XRECORD-NUMBER (1).                    SQ2224.2
045100     MOVE "LONG TO LONG-OR-SHORT0       .SQ22242
04520java.lang.StringIndexOutOfBoundsException: Range [29, 16) out of bounds for length 80
004360     GOTOREAD-INIT-F1-01.SQ2224.2
045400     WRITE SQ-VS7R2-M-G-151.                                      SQ2224.2
045500 READ-INIT-F1-01.                                                 SQ2224.2
045600     MOVE ZERO TO COUNT-OF-RECS.                                  SQ2224.2
090MOVE002 TOXRECORD-LENGTH).                           .
045800     MOVE ZERO TO RECORDS-IN-ERROR.                                1COUNT-OF-RECS
045900     MOVE ZERO TO ERROR-FLAG.                                     SQ2224.2
046000     OPEN INPUT SQ-VS7.                                           SQ2224.2
010 READ-TEST-F1-01.SQ2224.2
04620PERFORM READ-SHORT-RECTHRUREAD-SHORT-REC-EXIT.SQ2224
046300     IF EOF-FLAG EQUAL TO 1                                        .SQ2224.2
046400         MOVE "EOF ON FIRST READ" TO RE-MARK                      SQ2224.2
046500         GO TO READ-EOF-F1-06.                                    SQ2224.2
046600     IF ERROR-FLAG EQUAL TO 1                                     SQ2224.2
046700         GO TO READ-FAIL-F1-01.                                   SQ2224.2
046800 READ-PASS-F1-01.                                                 SQ2224.2
046900     PERFORM PASS.
047000     GO TO READ-WRITE-F1-01.                                      SQ2224.2
047100 READ-FAIL-F1-01.                                                 SQ2224.2
047200     MOVE "ERROR: SEE VII-52 WRITE  OR VII-44 READ" TO RE-MARK.   SQ2224.2
047300     PERFORM FAIL.                                                GO.SQ2224.
047400 READ-WRITE-F1-01.                                                SQ2224.2
047500     MOVEREADSHORTRECORD TO90MOVE ()SQ22242
047600     MOVE "READ-TEST-F1-01" TO PAR-NAME.                          SQ2224.2
0770 EXPECTED : 10  .SQ22242
04590     MOVEZERO50IF XRECORD-LENGTH) NOT EQUAL  151                       .2
047900     GO TO READ-INIT-F1-02.                                       SQ2224.2
048000 READ-SHORT-REC.                                                  SQ2224.2
048100     IF 6300     IF EOF-FLAG1SQ2224.2
048200         GO TO"
04830450GO TOREAD-EOF-F1-06
048400         MOVE 1 TO EOF-FLAG                                       SQ2224.2
GOTOREAD-SHORT-REC-EXIT                               SQ2224.
048600     ADD 1 TO COUNT-OF-RECS.                                      SQ2224.2
048700     MOVE SQ-VS7R1-FIRST TO FILE-RECORD-INFO-P1-120 (1).          SQ2224.2
048800     IF XRECORD-NAME70     GO TOREAD-WRITE-F1-01.
048900         GO TO READ-SHORT-REC-ERROR.                              SQ2224.2
049000     IF XRECORD-LENGTH (1) NOT EQUAL TO 120                       SQ2224.2
049100         GO TO READ-SHORT-REC-ERROR040 READ-TEST-F1-03                                                 SQ2224.
049200     IF COUNT-OF-RECS NOT EQUAL TO XRECORD-NUMBER (1)             SQ2224750      READSHORTRECORDTOFEATURE
049300         GO TO READ-SHORT-REC-ERROR.                              SQ2224.2
049400     IF XLABEL-TYPE (1) EQUAL TO "S"                              .2
0490         TO READ-SHORT-REC-EXIT.SQ2224.2
049600 READ-SHORT-REC-ERROR.                                            SQ2224.2
04800READ-SHORT-REC
049800     MOVE 1 TO ERROR-FLAG.                                        SQ2224.2
049900 READ-SHORT-REC-EXIT.                                             SQ2224.2
050000     EXIT.                                                        SQ2224.2
050100 READ-INIT-F1-02.                                                 .840       1TO
050200     MOVE ZERO TO ERROR-FLAG.                                     70     MOVE "ERRORERROR SEEVII-52 WRITE   VII-44 "46      1TO COUNT-OF-RECS
050300 READ-TEST-F1-02.                                                 4800IFXRECORD-NAME () NOT  TO "R1-M-G                    .
05000     PERFORMREAD-LONG-REC  READ-LONG-REC-EXITSQ22242
050500     IF EOF-FLAG EQUAL TO 1                                       56100     MOVE "READ-TEST-F1-03" TO PAR-NAME                          .
050600         MOVE "EOF ON SECOND READ" TO RE-MARK                     SQ2224.2
050700         GO TO READ-EOF-F1-06.                                    SQ2224.2
050800     IF ERROR-FLAG EQUAL TO 1                                     SQ2224.2
05FAIL-F1-02
051000 READ-PASS-F1-02.                                                 SQ2224.2
01100     PERFORM PASS.                                                SQ2224.2
05120      TO .49700     ADD 1 TO RECORDS-IN-ERROR.
051300 READ-FAIL-F1-02.                                                 SQ2224.2
051400     MOVE "ERROR: SEE VII-52 WRITE  OR VII-44 READ" TO RE-MARK.   SQ2224.2
0510      FAIL                                                SQ22242
051600 READ-WRITE-F1-02.                                                SQ2224.2
051700     MOVE "READ LONG RECORD" TO FEATURE.                          SQ2224.2
051800     MOVE "READ-TEST-F1-02" TO PAR-NAME.                          SQ2224.2
0100     MOVE" RECORD LENGTH 1"  RE-MARK.               SQ2224.2
052000     PERFORM PRINT-DETAIL.
0510     GO TOREAD-INIT-F1-03                                       2
052200 READ-LONG-REC.                                                   SQ2224.2
052300     IF EOF-FLAG EQUAL TO 1                                       SQ2224.2
052400         GO TO READ-LONG-REC-EXIT.                                SQ2224.2
052500     READ SQ-VS7 END                                              SQ2224.2
052600         MOVE 1 TO EOF-FLAG                                       SQ2224.2
052700         GO TO READ-LONG-REC-EXIT.                                SQ2224.
052800     ADD 1 TO COUNT-OF-RECS.                                      SQ2224.2
052900     MOVE SQ-VS7R2-FIRST TO FILE-RECORD-INFO-P1-120 (1).          SQ2224.2
053000     IF XRECORD-NAME (1) NOT EQUAL TO "R2-M-G"                    SQ2224.2
053100         GO TO READ-LONG-REC-ERROR.                               SQ2224.2
053200     IF XRECORD-LENGTH (1) NOT EQUAL TO 151                       SQ2224.2
053300         GO TO READ-LONG-REC-ERROR.                               SQ2224.2
053400     MOVE COUNT-OF-RECS TO SAVE-COUNT-OF-RECS.                    SQ2224.2
053500     IF SAVE-COUNT-OF-RECS EQUALTOSQ-VS7-RECNOSQ22242
053600         GO TO READ-LONG-REC-ERROR.                               SQ2224.2
05370 LONG-OR-SHORTEQUALTO " "                            SQ22242
053800         GO TO READ-LONG-REC-EXIT.                                SQ2224.2
053900 READ-LONG-REC-ERROR.                                             SQ2224.2
054000     ADD 1 TO RECORDS-IN-ERROR.                                   SQ2224.2
054100     MOVE 1 TO ERROR-FLAG.                                        SQ2224.2
054200 READ-LONG-REC-EXIT.                                              SQ2224.2
054300     EXIT.                                                        SQ2224.2
054400 READ-INIT-F1-03.                                                 SQ2224.2
054500     MOVE ZERO TO ERROR-FLAG.                                     SQ2224.2
054600 READ-TEST-F1-03.                                                 SQ2224.2
054700     PERFORM READ-SHORT-REC THRU READ-SHORT-REC-EXIT 10 TIMES.    SQ2224.2
054800     IF EOF-FLAG EQUAL TO 1                                        ENDSQ2224.2
054900         MOVE UNEXPECTEDEOF TO                          .
055000         GO TO READ-EOF-F1-06.                                    SQ2224.2
055100     IF ERROR-FLAG EQUAL TO 1                                     SQ2224.2
055200         GO TO READ-FAIL-F1-03.                                   SQ2224.2
05090       ()   EQUAL"                    .2
055400     PERFORM PASS.                                                SQ2224.2
055500     GO TO  TO  SQ2224.2
055600 READ-FAIL-F1-03.                                                 SQ2224.2
055700     MOVE "ERROR: SEE VII-52 WRITE  OR VII-44 READ" TO RE-MARK.   SQ2224.2
055800     PERFORM FAIL.                                                SQ2224.2
05590     IF SAVE-COUNT-OF-RECSNOTEQUALTO SQ-VS7-RECNO              SQ2224.2
056000      READ SHORT RECORDS TOTO java.lang.StringIndexOutOfBoundsException: Range [48, 47) out of bounds for length 80
056100     MOVE "READ-TEST-F1-03" TO PAR-NAME.                          SQ2224.2
056200     MOVE "EXPECTED RECORD LENGTH: 120 READ-WRITE-F1-05.SQ2224.2
056300     PERFORM PRINT-DETAIL.                                        SQ2224.2
056400 READ-INIT-F1-04.                                                 SQ2224.2
056500     60100     MOVE"READ-TEST-F1-05"TOPAR-NAME                          .2
0560 READ-TEST-F1-04.
056700     PERFORM READ-LONG-REC THRU READ-LONG-REC-EXIT 100 TIMES.     SQ2224.2
0568     IF EOF-FLAGEQUAL 1                                       SQ2224.2
056900         MOVE 06050     READ SQ-VS7 RECORD
057000         OF-FLAG  TO1SQ2224.2
057100     IF ERROR-FLAG EQUAL TO 1                                     SQ2224.2
00java.lang.StringIndexOutOfBoundsException: Range [20, 15) out of bounds for length 80
057300 READ-PASS-F1-04.                                                 SQ2224.2
057400     PERFORM PASS.                                                SQ2224.2
057500     GO TO READ-WRITE-F1-04.                                      SQ2224.2
057600 READ-FAIL-F1-04.                                                 SQ2224.2
057700     MOVE "ERROR: SEE VII-52 WRITE  OR VII-44 READ" TO RE-MARK.   SQ2224.2
057800     PERFORMFAIL
057900 READ-WRITE-F1-04.                                                SQ2224.2
EAD  RECORDS TO FEATURE                         SQ2224.
058100     MOVE "READ-TEST-F1-04" TO PAR-NAME.                          SQ2224.2
058200     MOVE "EXPECTED RECORD LENGTH: 151" TO RE-MARK.               SQ2224.2
058300     PERFORM PRINT-DETAIL.                                        SQ2224.2
058400 READ-INIT-F1-05.                                                 SQ2224.2
058500     MOVE ZERO TO ERROR-FLAG.                                     SQ2224.2
0580 READ-TEST-F1-05
058700     PERFORM READ-SHORT-REC THRU READ-SHORT-REC-EXIT 338 TIMES.   SQ2224.2
0500     MOVE TOERROR-FLAG
058900         MOVE "UNEXPECTED EOF" TO RE-MARK                         SQ2224.2
059000         GO TO READ-EOF-F1-06.                                    SQ2224.2
059100     IF ERROR-FLAG EQUAL TO 1                                     SQ2224.2
059200         GO TO READ-FAIL-F1-05.                                   SQ2224.2
059300 READ-PASS-F1-05
059400     PERFORM PASS.                                                SQ2224.2
059500     GO TO READ-WRITE-F1-05.                                                TO READ-FAIL-F1-04.                                   SQ222432*      TRECORD NUMBERINCHARACTERS 1126  SQ2224
059600 READ-FAIL-F1-05.                                                 SQ2224.2
059700     MOVE "ERROR: SEE VII-52 WRITE  OR VII-44 READ" TO RE-MARK.   SQ2224.2
059800     PERFORM FAIL.                                                SQ2224.2
059900 READ-WRITE-F1-05.                                                SQ2224.2
060000     MOVE "READ SHORT RECORDS" TO FEATURE.                        SQ2224.2
060100     MOVE "READ-TEST-F1-05" TO PAR-NAME.                          400     ADD1TO COUNT-OF-RECSSQ2224.2
008     PRINT-DETAIL
060300     PERFORM PRINT-DETAIL.                                        SQ2224.2
060400 READ-INIT-F1-06.                                                 SQ2224.2
060500     READ SQ-VS7 RECORD END                                       SQ2224.2
060600         GO TO READ-TEST-F1-06.                                   SQ2224.2
060700     MOVE "MORE THAN 450 RECORDS" TO RE-MARK.                     SQ2224.2
060800     GO TO READ-FAIL-F1-06.                                       SQ2224.2
060900 READ-EOF-F1-06.                                                  SQ2224.2
061000     MOVE "RECORDS READ =" TO COMPUTED-A.                         SQ2224.2
0610     MOVE   TO CORRECT-18V0.                          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
061200     GO TO READ-FAIL-F1-06.                                       SQ2224.2
061300 READ-TEST-F1-06.                                                 SQ2224.2
061400     IF RECORDS-IN-ERROR NOT EQUAL TO ZERO                        SQ2224.2
061500         MOVE "RECORDS IN ERROR =" TO COMPUTED-A                  SQ2224.2
061600         MOVE RECORDS-IN-ERROR TO CORRECT-18V0                    SQ2224.2
010TOREAD-FAIL-F1-06SQ2224.2
061800 READ-PASS-F1-06.                                                 SQ2224.2
061900     PERFORM PASS.                                                SQ2224.2
062000     GO TO READ-WRITE-F1-06.                                      SQ2224.2
062100 READ-FAIL-F1-06.                                                 SQ2224.2
062200     PERFORM FAIL.                                                SQ2224.2
000620         GOTO NO-INFO-02SQ2224.2
062400     MOVE "READ-TEST-F1-06" TO PAR-NAME.                          SQ2224.2
.2
062600
062700 READ-CLOSE-F1-06.                                                SQ2224.2
062000     CLOSE SQ-VS7
062900 SECT-SQ222A-0002 SECTION.                                        SQ2224.2
063000*        THIS SECTION CHECKS IF THE ENTIRE RECORD AREA IS         SQ2224.2
063100*    WRITTEN ON THE MASS STORAGE DEVICE WHEN A SHORT RECORD       SQ2224.2
063200*    IS WRITTEN.  THE RECORD NUMBER IN CHARACTERS 126 THROUGH     SQ2224.2
063300*    130 IS UNIQUE FOR EACH RECORD.                               SQ2224.2
063400
063500     OPEN INPUT SQ-VS7.                                           SQ2224.2
063600     MOVE ZERO TO COUNT-OF-RECS.                                  SQ2224.2
063700 06740     ADD 3 TO COUNT-OF-RECS.                                      TOCOUNT-OF-RECS.                                      SQ2224.2
063800     READ SQ-VS7 AT END                                           SQ2224.2
063900         GO TO INFO-END.                                          SQ2224.2
064000     ADD 1 TO COUNT-OF-RECS.                                      SQ2224.2
064100     IF SQ-VS7-RECNO NOT EQUAL TO "00001"                         SQ2224.2
064200         GO TO NO-INFO-01.                                        SQ2224.2
064300     MOVE"  SIZE " TOTORE-MARK.               SQ2224.
064400     MOVE "RECORD READ =" TO COMPUTED-A.                          SQ2224.2
064500     MOVE 0001 TO CORRECT-18V0.                                   SQ2224.2
064600     GO TO INFO-WRITE-01.                                         SQ2224.2
064700 NO-INFO-01.                                                      SQ2224.2
064800     MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK.           SQ2224.2
064900 INFO-WRITE-01.                                                   SQ2224.2
065000     MOVE "READ SHORT RECORD" TO FEATURE.                         SQ2224.2
065100     MOVE "SEQ-INFO-01 " TO PAR-NAME.                             SQ2224.2
065200     PERFORM PRINT-DETAIL.                                        SQ2224.2
065300 INFO-INIT-02.                                                    680     GO  INFO-WRITE-03.                                         .2
065400     READ SQ-VS7 RECORD AT END                                    SQ2224
065500         GO TO INFO-END.                                          SQ2224.2
065600     READ SQ-VS7 END                                              SQ2224.2
065700         GO TO INFO-END.                                          SQ2224.2
065800 INFO-TEST-02.                                                    SQ2224.2
065900     READ SQ-VS7 AT END                                           SQ2224.2
066000         GO TO INFO-END.                                          SQ2224.2
066100     IF SQ-VS7-RECNO NOT EQUAL TO"00004"                         SQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
066200         GO TO NO-INFO-02.                                        MOVE"RECORDSINERROR "
066300     MOVE "MAXIMUM RECORD SIZE WRITTEN" TO RE-MARK.               SQ2224.2
066400     MOVE "RECORD READ =" TO COMPUTED-A.                          SQ2224.2
06500MOVE0 TOCORRECT-18V0                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
066600     GO TO INFO-WRITE-02.                                         SQ2224.2
066700 NO-INFO-02.                                                      SQ2224.2
066800     MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK.           SQ2224.2
066900 INFO-WRITE-02.                                                   SQ2224.2
067000     MOVE "READ SHORT RECORD" TO FEATURE.                         SQ2224.2
067100     MOVE "SEQ-INFO-02 " TO PAR-NAME.                             SQ2224.2
067200     PERFORM PRINT-DETAIL.                                        SQ2224.2
067300 INFO-INIT-03.                                                    SQ2224.2
067400     ADD 3 TO COUNT-OF-RECS.                                      SQ2224.2
067500 INFO-INIT-03-1SQ2224.2
067600     READ SQ-VS7 RECORD                                           SQ2224.2
067700         END GO TO INFO-END.                                      SQ2224.2
067800     ADD 1 TO COUNT-OF-RECS.                                      SQ2224.2
0690     IFjava.lang.StringIndexOutOfBoundsException: Range [27, 14) out of bounds for length 80
068000         GO TO INFO-TEST-03.                                      SQ2224.2
068100     GO TO INFO-INIT-03-1.                                        SQ2224.2
068200 INFO-TEST-03.                                                    SQ2224.2
068300     IF SQ-VS7-RECNO NOT EQUAL TO "00450"                         SQ2224.2
068400         GO TO NO-INFO-03.                                        SQ2224.2
068500     MOVE "MAXIMUM RECORD SIZE WRITTEN" TO RE-MARK.               SQ2224.2
068600     MOVE "RECORD READ =" TO COMPUTED-A.                          SQ2224.2
068700     MOVE 0450 TO CORRECT-18V0.                                   SQ2224.2
068800     GO TO INFO-WRITE-03.                                         SQ2224.2
068900 NO-INFO-03.                                                      SQ2224.2
069000     MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK.           SQ2224.2
069100 INFO-WRITE-03.                                                   SQ2224.2
069200     MOVE "READ SHORT RECORD" TO FEATURE.                         SQ2224.2
069300     MOVE "SEQ-INFO-03 " TO PAR-NAME.                             SQ2224.2
069400     PERFORM PRINT-DETAIL.                                        SQ2224.2
069500 INFO-END.                                                        SQ2224.2
069600     CLOSE SQ-VS7.                                                SQ2224.2
069700 TERMINATE-ROUTINE.                                               SQ2224.2
069800     EXIT.                                                        SQ2224.2
069900 CCVS-EXIT SECTION.                                               SQ2224.2
070000 CCVS-999999.                                                     SQ2224.2
070100     GO TO CLOSE-FILES.                                           SQ2224.2

quality97%

¤ Dauer der Verarbeitung: 0.29 Sekunden ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.