Quelle sq222a.cob Sprache: Cobol

..
000200 PROGRAM-ID00010 IDENTIFICATION DIVISION.SQ2224
0003000**  SQ2224
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
00ENVIRONMENT.SQ2224
003000 CONFIGURATION SECTION.                                           SQ2224.2
003100 SOURCE-COMPUTER002700*    XRECORD-NUMBER IS THERE FOR002800*    THE MAXIMUM SIZE RECORD IS ALWAYS0200  DIVISION.                                            SQ2224.2
003030     Card0130                                                    .2
003300 OBJECT-COMPUTER.                                                 SQ2224.2
003400     Card0131.                                                    SQ2224.2
30 INPUT-OUTPUT SECTIONSQ2224.2
003600 FILE-CONTROL.                                                    SQ2224.2
003700     SELECTRAW-DATA                                      SQ2224
003800     "C0098"                                                      SQ2224.2
003900ORGANIZATIONIS INDEXEDSQ2224
004000            ACCESS MODE IS RANDOM                                 SQ2224.2
00410             KEYISRAW-DATA-KEYSQ2224
040SELECTASSIGN                                  .2
004300     "C0085" .                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00 SQ-VS7SQ2224
00400     "" .                                                    .2
060      SEQUENTIALSQ2224.2
00470ACCESSSEQUENTIAL.2
004800 DATA DIVISION.                                                   SQ2224.2
00490 FILE.                                                    SQ2224.2
05000                                                                  0SELECT                                   .
010FD.                                                    .2
0520                                                                  SQ2224
00530 1RAW-DATA-SATZ.                                               .060                                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050              PIC(.                            .2
0055
005600     05  C-TIME000                                                                  050     5C-DATE()                           2
005700     05  C-NO-OF-TESTS       PIC 99.                              SQ2224.2
0050     5C-OK                 999.SQ2224
090                      PIC 99                             .2
006000     05  C-FAIL              PIC 999.                             SQ2224.2
0100C-DELETED 999.2
006200     05  C-INSPECT           PIC 999.                             SQ2224.2
006300     05  C-NOTE              PIC X(13).                           SQ2224.2
060                   PIC.SQ2224
006500     05  C-ABORT             PIC X(8).                            SQ2224.2
006006100  C-DELETED            99                             .2
06  RECORDSSQ2224
006800     Card0132                                                     SQ2224.2
006900     DATA RECORD500    5C-NO-OF-TESTS 9900 -PICSQ2224
0070400  C-INDENT             X                               SQ2224
0700PRINT-REC 08005   PIC9.SQ2224
007200 01  DUMMY-RECORD PICTURE X(120).                                 SQ2224000  C-ALL                999                             Q2224
0030FD                                                       2
007400LABEL63     0C-NOTE13.2
007500     RECORD    VARYING.                                           SQ2224.2
0605PIC2
00050     0               PIC8.                            SQ22242
007800 01  SQ-VS7R2-M-G-151.                                            SQ2224.2
07     0  P X2).SQ2224
008000     02  LONG-OR-SHORT  PICTURE X(5).                             SQ2224.2
01     0     X5.                              SQ2224
008200     2    PICTUREX21.SQ2224
008300 WORKING-STORAGE SECTION.                                         0 RECORD PRINT-REC                        SQ2224
008400701 DUMMY-RECORD X(0)SQ2224
008500 01  COUNT-OF-RECS  050     030FD
070RECORD SQ2224
008770   .                                            .
0088 0  EOF-FLAG .                                         SQ2224
008900 01  DUMP-AREA   X(10).SQ2224
009000     02080 018100     02  SQ-VS7-RECNOX5.SQ2224
009100     02  RECNO020002  SQ-VS7-FILLER  PICTURE21 SQ2224
0090     0java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00930000      SQ-VS7-RECNO 5.SQ2224
009400     03080     0     X21.                            .2
0000FILLERX4VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00000
070                          6              SQ2224
0900             ,=000PGM,=0000,BLKSIZ000.    SQ2224
                 PICTUREX26)                   SQ2224
010000             ",LFIL=000000,ORG= ,LBLR= 02002REC-FILLER PICTURE X2 SQ2224.2
0101009301FILE-RECORD-INFORMATION-RECSQ2224
010200             ",009000 DUMP-AREA09400 FILE-RECORD-INFO-SKELETON. SQ2224.
000        0                  PICTURE8              SQ22242
010400             ",ALTKEY1= ".            SQ2224.2
010500        5 FILLERPICTUREX38       VALUE.2
0106000060"FILE ,RECORD= /RECNO000UPDT00.SQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010700        05 FILLER                 PICTURE X(7)        VALUE SPACE"ODOPGM0  00..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000     3 FILE-RECORD-INFO            10  .              SQ2224=0java.lang.StringIndexOutOfBoundsException: Range [37, 36) out of bounds for length 80
010900        05 FILE-RECORD-INFO-P1-120.                               00             ,RECKEY"0030FILE-RECORD-INFORMATION-REC SQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10           0 FILLERX5.SQ2224
011100           07 XFILE-NAME           PIC X(6).                      SQ222490             FILER=/,ECNO=00100"="            .2
0120           7 FILLER              PICX().                       .2
13           0           X(                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011400           07 FILLER              PIC X(1).                       .2
011500           07 REELUNIT-NUMBER     PIC 9(1).                       SQ222401000             ,LFIL110            )                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
6 0               PIC).                       .2
0110           7XRECORD-NUMBER 9().SQ2224
              SQ2224
011900           005005FILLERPICTUREjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1000                X5.                      .2
012100           07 ODO-NUMBER          PIC 9(4).                       SQ2224.2
010700       5 FILLER                  X()VALUE.SQ2224
020           7XPROGRAM-NAME X(5.SQ2224java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020          0 ILLER               X()                       .2
0200          7XRECORD-LENGTHPIC6.                      .2
01260                          PIC)                       .2
012700           07 CHARS-OR-RECORDS    PIC X(2).                       SQ2224.2
18 0FILLERPIC(1)                      2
012900           07 XBLOCK-SIZE          PIC 9(4).                      SQ2224.2
107F              PIC().                       SQ2224
013100           07 0130           7XRECORD-NAME         PIC X()                      .2
013200           07 FILLER              PIC X(5).                       SQ2224.2
013300           07 XFILE-ORGANIZATION   PIC X(2).                      SQ2224.2
013400           07 FILLER              PIC X(6).                       SQ2224.2
013500           07 XLABEL-TYPE          PIC X(10            FILLER (7).SQ2224java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
136        5F.                             .2
0370           0FILLERPICX(8.                       SQ2224
013800           07 XRECORD-KEY          100           0               PICX(5.                       SQ2224
0130           7FILLERPIC()                       .2
040           0   (2).SQ2224
014100           07 FILLER              PIC X(9).                       SQ2224.2
000       2.SQ2224
014300           07 FILLER              PIC X(7).                       SQ2224.2
014400 01  TEST-RESULTS.                                                SQ2224.2
LERPICTUREX VALUE.          SQ22242
014601260           7 FILLER              PIC X7)                       .2
0147     2FILLERPICTURE S.SQ2224
180           07 FILLER (6 SQ2224
01900                      X  VALUE SPACE.         SQ222400           94.                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10     0  .                                                .2
.                       2
1200  PARDOT-XX
015300       03 DOTVALUE PICTURE 99  VALUE 10007        X(9)                      .2
015400  PIC(5 VALUE.                            .2
015000  PICX(10)VALUE SPACESQ2224
0560     2 PIC X(6)                                        java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0570 0  TEST-COMPUTEDSQ2224
0180     2 FILLERPICX(0 VALUE SPACE.                             SQ222440     2                       SPACESQ2224
0590     2FILLER X(7)VALUE " =".SQ2224java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0000 .                                               .2
016100     03 COMPUTED-A                PICTURE X(20) 1800 P-OR-F X()VALUE.       .2
12 3REDEFINES  99)9().SQ2224.2
016300     03 COMPUTED-0V18 REDEFINES COMPUTED-A  PICTURE -.9(18).      SQ2224.2
016400     03 COMPUTED-4V14 REDEFINES COMPUTED-A  PICTURE -9(4).9(14).  SQ2224.2
01650     08           0           (9.SQ2224
0150       3 7FILLER               X) Q2224.2
016700         04 0400ALTERNATE-KEY1X2.SQ2224
0114100           540java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for length 80
060     3  5)VALUESQ2224
017000 01  TEST-CORRECT.                                                SQ2224.040           7 FILLER5002RE-MARK X61)                                        2
100 PICV SPACESQ2224
017200     02 FILLER PIC X(17) VALUE50     2FILLERPIC(7VALUE=.                SQ2224
0170     0217002                    XVALUESQ2224
0700     0 CORRECT-A                 PICTUREX(2.      SQ2224
703REDEFINES  ()99.SQ2224
017600     03 CORRECT-0V18 CORRECT-A -.91)060        PICTURE9()      .
017CORRECT-4V14 CORRECT-A     -400                                                2
017800     03 CORRECT-14V4 REDEFINES CORRECT-A    PICTURE -9(14).9(4).  SQ2224.2
070      CR-18V0 CORRECT-A.065          -9(149(.SQ2224
018000         04 0600        REDEFINES.                       .2
0110         PICTURES.
018200050       3 FILLER X(5 VALUE.                            .2
-
10      PICTUREX9VALUE" PASQ22242
0150    " PARAGRAPH-NAME .2
018600-    " REMARKS".                                           SQ2224.2
080     2FILLER ISX(0 VALUE ISSPACE50    FILLERX1 ALUE=.SQ2224
018800070     02FILLER X3)VALUE.                             .2
FILLER ISX  IS.                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
9     2  IS6 IS".2
0190070     3CORRECT-N PICTURE-(9.()..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10        COMPUTED-A
1 1REC-SKL-SUB 92  08       REDEFINES -949()  .2
019500  REC-CTPICTUREVALUE100F                          X            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019600 01  DELETE-CNT                   0         0                            X.2
01970001ERROR-COUNTER  999 VALUE ZERO.2
010720     2F PIC (7)VALUE" java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
019900 01  PASS-COUNTER PIC 999 VALUE ZERO.                             SQ2224.2
200TOTAL-ERROR 99  ZERO.2
020100 01  ERROR-HOLD 0750     03080-"".                                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000   IC0VALUE                           .2
03 1  RECORD-COUNT) ZERO2
20 1CCVS-H-1.2
0200     2     PICTURE)VALUE         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020600     02 FILLER  X(7                                 .2
020700     " 0920 02 FILLER PICTURE ISX()VALUEIS"FAIL1003  PIC)VALUE                             2
0201300 FILLERPICTURE X4   SPACE2
000     0        X0java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for length 80
0200 1CCVS-H-2SQ2224
080-" PARAGRAPH-NAME SQ22242
0220" FSTC COPY NOTFORD.160 0 DELETE-CNT PICTURE 9 . SQ2224.2
021300     1700   PICTURE 9  ISZERO.2
021400     0209000   PIC9VALUE.                          .2
09900 01  PASS-COUNTERPICIS2)VALUE  .                   .
02600 CCVS-H-3SQ22242
021700     02  FILLER PICTURE X(302000 0   PIC 99VALUE.                              .2
021800     " FOR OFFICIAL USE ONLY ".                                SQ2224.2
29     0FILLERX8                                2
022000     "COBOL 85 VERSION 4.2, Apr 1090 2FILLER IS X6 IS TESTED.SQ2224.
0221110     0  PICTURE (5  IS.                   .2
0" 195 "
022300 .                                                    2
04002 P  X(52)  IS SPACESQ2224
022500     02 FILLER PICTURE IS X(02600     2 FILLER100EC-CT VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022600     02 ID-AGAIN PICTURE IS X(02800-" SYSTEM".SQ2224
022700     02 FILLER PICTURE X(45) VALUE                             SQ2224
02280190 1INSPECT-COUNTER 99  ZEROSQ2224210     0  PICTUREX52 VALUESQ2224
02290 002" FSTCCOPY OT FOR DISTRIBUTION".                   .2
0230     2FILLERPICTURE(1  VALUE            .2
023100     SPACE.                                                       21400     02TEST-ID IS ()                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023200     02  FILLER0270     2FILLER X(3)VALUESQ22242300   PIC95  ZEROSQ2224
03002CCVS-E-2-2.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02340         00     2    X2)SPACEjava.lang.StringIndexOutOfBoundsException: Range [78, 72) out of bounds for length 80
00200" 5VERSION4.2 Apr 1993 SSVG ".SQ2224
023600         21070     FEDERAL TESTING COBOL SQ2224
030 0  CCVS-E-3                                                    .
023800     02  FILLER PICTURE X(224002FILLER ISX(2 VALUE IS.                   .2
230"FORO ONLY"                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024000     02  FILLER PICTURE(1)VALUE.                        .2
01     2  FILLERX5 SQ22242
024200     "ON-SITE 02100 "CCVS85FSTC COPY, NOT  DISTRIBUTION." SQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02302FILLERX028       DISTRIBUTION COBOL5SQ2224
0 FILLER PICX(5  " COPYRIGHT 98"                 SQ2224
200 CCVS-E-4.S.2
02210SPACESQ2224.2
024700     02 FILLER PIC XXXX VALUE " OF ".                             SQ2224.2
0280     2  PIC XXX SPACESQ2224
024900     02 FILLER PIC X(40)20 1CCVS-H-3.                                                    .2
0.2
025100 01  XXINFO.                                                      250         0 ILLERSPACESQ2224.2
025200     02 FILLER0190002  FILLER PICTURE230 1  .SQ2224
050     02INFO-TEXT.
025400     04 FILLER PIC03800     2  FILLERPICTUREX(22)VALUE                              .2
025500     04 XXCOMPUTED2200     "COPYRIGHT 185"                                       240     2FILLERPICTUREX2  .                       2
025600     04 FILLER PIC X(5) VALUE SPACE.                              SQ2224.2
025700     04220"ON-SITE VALIDATION,NATIONAL INSTITUTEOF & TECH. ".SQ2224
0500  .                                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025900     02 FILLER PICTURE IS X VALUE IS SPACE.                       SQ2224.2
02600002FILLER PICTURE X(6) VALUE "***************SQ22242
026100-    "*****************************************".                 SQ2224.2
026200  X(4)VALUE                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026300    *****************                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026400 1  CCVS-PGM-ID X(6) VALUESQ2224
026500     "SQ222A".                                                    SQ2224.2
026600 PROCEDURE DIVISION.                                              SQ2224.2
026700 CCVS1 025000      "  TESTSWERE EXECUTEDSUCCESSFULLY                       .2
0680 OPEN-FILESSQ2224.2
0600OPEN RAW-DATASQ22242
027000     MOVE230         3ERROR-TOTAL IS XXX IS SPACESQ2224
2
027200     MOVE "ABORTED " TO C-ABORT.                                  SQ2224.2
0230     ADD1TO.                                      30         0ENDER-DESC(4)"ERRORS ".      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0200     2   PICTURE2 VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027500     ACCEPT C-TIME  FROM TIME.                                    SQ2224.2
027600     REWRITE RAW-DATA-SATZINVALID KEYGO END-E-1             .2
1SQ2224
0780     CLOSERAW-DATA.SQ2224.2
027900     OPEN     OUTPUT PRINT-FILE.                                  SQ2224.2
0800MOVECCVS-PGM-ID TOTEST-ID.070     4XXCORRECT X(0.                                      2
02810         SPACE TEST-RESULTSSQ2224
028200     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             SQ2224.2
028300     MOVE ZERO TO REC-SKL-SUB.                                    SQ2224.2
ESSQ22242
028500 CCVS-INIT-FILE.                                                  SQ2224.2
SKL-SUB.                                        .2
080      TOSQ2224
0280                   2600FILLERISX5) IS*************SQ2224
9
029000     GO TO CCVS1-EXIT.                                            SQ2224.2
0210 1X.                                                      .2
029200     PERFORM END-ROUTINE THRU 22300 INFO-TEXT.SQ22242
090     OPEN I-O.                                           8 OPEN-FILESSQ2224
02400MOVE TO2504 2)                                    .2
0250READ   GOOEND-E-2.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02902004 PIC()                                      .2
029700     MOVE PASS-COUNTER2800  HYPHEN-LINE07     MOVE"TOC-ABORT Q22242
029800     MOVE ERROR-HOLD   TO C-ALL.                                  SQ2224.2
029900     MOVE ERROR-COUNTER TO C-FAIL.                                SQ222450ACCEPTC-TIME .
030000     MOVE DELETE-CNT TO00270      RAW-DATASQ22242
030100     MOVE INSPECT-COUNTER TO C-INSPECT.                           SQ2224.2
320REWRITERAW-DATA-SATZ KEYGO END-E-2SQ2224.2
030300 END-E-2.                                                         SQ2224.2
000CLOSEAW-DATASQ2224
030500 TERMINATE-CCVS2400 01CCVS-PGM-ID X(6) VALUESQ22242
SQ2224
030700 TERMINATE-CALL.                                                  SQ2224.2
030802600     SQ222A                                                    .2
030900 INSPT. MOVE"INSPT" TO    .SQ2224
031000 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER2670 CCVS1 SECTION
031100 FAIL.  MOVE "060 I-O RAW-DATA. SQ2224.2
01200 DE-LETE  MOVE"**** P-OR-F. ADD 1 TO DELETE-CNT. SQ2224.2
031300     MOVE**TEST***  RE-MARK                      SQ2224
031400 PRINT-DETAIL.                                                    SQ2224.2
0350IFNOTEQUAL TO                                  .2
360MOVE. TO PARDOT-XSQ22242
03170             MOVE REC-CT TO.                             SQ2224
0380MOVE       . WRITE-LINE.2
031900     IF P-OR-F EQUAL TO "FAIL*"  PERFORM2740     ACCEPTC-DATE java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0300PERFORM THRU                 SQ22242
032100          ELSE PERFORM BAIL-OUT0      RAW-DATA-SATZ  KEYGOTO END-E-1SQ2224230 I-ORAW-DATA                                           .2
0220MOVE TO. MOVE80     RAW-DATA.SQ22242
032300     MOVE SPACE TO CORRECT-X.                                     SQ2224.2
0240     IFREC-CT TO   MOVE SPACE2900 ."TOC-ABORT SQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032500     029800     MOVE   OT MOVE  ID-AGAIN   SQ2224
032600HEAD-ROUTINESQ2224.2
0370MOVE TO. PERFORM 2 TIMES.2
032800     MOVE800PERFORM THRUCOLUMN-NAMES-ROUTINESQ2224.2
03290002800    MOVE TO REC-SKL-SUBSQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0300 COLUMN-NAMES-ROUTINE.SQ2224
033100     2500CCVS-INIT-FILESQ2224.2
033200     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SQ2224.2
033300MOVEHYPHEN-LINE TO00     INSPECT-COUNTER  C-INSPECTSQ2224
033400 END-ROUTINE.                                                     SQ2224.2
PERFORM 5TIMES.2
033600 END-RTN-EXIT.                                                    330END-E-2                                                         2
370     CCVS-E-1 DUMMY-RECORD PERFORM  2..  SQ2224.
033800 END-ROUTINE-1.                                                   SQ2224.2
033900      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      SQ2224.2
034000      ERROR-HOLD. ADD 000 PASS.  MOVE "PASS " TO P-OR-F  PASS-COUNTER           SQ22242
0310       PASS-COUNTERTO.                             .2
034200*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   SQ2224.2
034300      MOVE PASS-COUNTER TO031200 E-LETE  MOVE "***" TO   ADD 1 TO DELETE-CNT.SQ2224.2
034400      MOVE ERROR-HOLD TO CCVS-E-4-2.                              SQ2224.2
034500      MOVE CCVS-E-4 TO CCVS-E-2-2.                                SQ2224.2
060       TO  WRITE-LINE           SQ2224.
03470  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
05100ELSE
02            35200         MOVE ERROR-COUNTER TO ERROR-TOTAL0  THRU BAIL-OUT-EX                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0350     MOVE035300     MOVE     CCVS-E-2SQ2224.2
035400     PERFORM WRITE-LINE.                                          SQ2224.2
03500END-ROUTINE-13
035600     IF DELETE-CNT IS EQUAL TO ZERO                               SQ2224.2
0370MOVE" " ERROR-TOTALELSE                         SQ22242
035800         MOVE DELETE-CNT TO ERROR-TOTAL.                          SQ2224.2
0390     MOVETESTS) DELETED     " TOENDER-DESC.
036000     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SQ2224.2
01IFINSPECT-COUNTER EQUALEQUALZERO2
036200          MOVE "NO " TO ERROR-TOTAL                               SQ2224.2
036300      ELSE MOVE10FAIL  3MOVECCVS-C-2 TO.    TIMES.   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036400      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            SQ2224.2
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036600     MOVE CCVS-E-337      WRITE-LINE2 ..
036700.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 SPACE TO DUMMY-RECORD                               SQ2224.2
037200         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  SQ2224.2
03730         MOVECCVS-C-1TODUMMY-RECORD WRT-LNSQ22242
037400         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     SQ2224.2
0350MOVE TODUMMY-RECORD0340      MOVEERROR-HOLD   CCVS-E-4-2.                              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.2
00200          SPACE  RE-MARK
038100     MOVE SPACE TO DUMMY-RECORD.                                  SQ2224.2
038200 BLANK-LINE-PRINT.                                                SQ2224.2
038300     PERFORM WRT-LN.
038400 FAIL-ROUTINE.                                                    SQ2224.2
038500     IF COMPUTED-X NOTEQUALTOSPACE   FAIL-ROUTINE-WRITE   SQ22242
86      NOT TO SPACEGOTO.    SQ2224.2
0380MOVE"  INFORMATION SEE. TO.    SQ22242
038800     MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.     SQ2224.2
038900     GO TO FAIL-ROUTINE-EX.                                       SQ2224.2
039000 FAIL-ROUTINE-WRITE.                                              SQ2224.2
039100     MOVE 035600     IF DELETE-CNT IS EQUAL ZERO                               2
039200     MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES.   SQ2224.2
0393000580          DELETE-CNTTOERROR-TOTAL
394 BAIL-OUT
039500     IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.       SQ2224.2
039600     IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.               SQ2224.2
039700 BAIL-OUT-WRITE.                                                  SQ2224.2
039800     MOVE CORRECT-A TO XXCORRECT. MOVE 4300      MOVE PASS-COUNTER TO CCVS-E-4-1.
03900MOVEXXINFO TO .    TIMES    SQ2224java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040000 BAIL-OUT-EX. EXIT.                                               SQ2224.2
0401 .                                                      SQ2224.2
040200     EXIT.                                                        SQ2224.2
040300 SECT-SQ222A-0001 SECTION.                                        SQ2224.2
040400 WRITE-INIT-GF-01.                                                SQ2224.2
040500     MOVE "SQ-VS7" XFILE-NAME (1.                             2
040600     MOVE CCVS-PGM-ID TO 03500MOVE NO" TO                                 SQ2224.2
040700ELSESQ2224.2
040800     001TOXBLOCK-SIZE().SQ2224.2
040900     MOVE 000450 TO RECORDS-IN-FILE (1).                          SQ2224.2
041000     MOVE "SQ" TO XFILE-ORGANIZATION (1).                         SQ2224.2
041100     MOVE "S" TO XLABEL-TYPE (1).                                 SQ2224.2
041200     MOVE 000000 TO XRECORD-NUMBER (1)0340     PERFORM WRITE-LINERITE-LINE.                                          .2
041300     MOVE ZERO TO COUNT-OF-RECS.                                  SQ2224.2
04140OPEN .
04150      MULTIPLELENGTH RECSTO SQ-VS7-FILLER                SQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041600 WRITE-TEST-GF-01.                                                SQ2224.2
041700PERFORM WRITE-SHORT-REC                                     .03900      "TEST(S) DELETED      TOENDER-DESC                   .
041800PERFORM WRITE-LONG-REC
041900     PERFORM WRITE-SHORT-REC 10 TIMES.800     WRITEDUMMY-RECORD AFTER ADVANCING1 LINES               .2
042000     PERFORM WRITE-LONG-REC 10"ENDER-DESC            2
042100     PERFORM WRITE-SHORT-REC 338 TIMES.                           SQ2224.2
042200 WRITE-WRITE-GF-01.                                               SQ2224.2
042300     MOVE "CREATE FILE SQ-VS7" TO FEATURE.                        SQ2224.2
042400     MOVE "WRITE-TEST-GF-01" TO PAR-NAME.                         SQ2224.2
042500     MOVE "FILE CREATED, RECS =" TO COMPUTED-A.                   SQ2224.2
042600     MOVE COUNT-OF-RECS TO CORRECT-18V0.                          SQ2224.2
042700     MOVE "FILE HAS 120 AND 151 CHAR RECS" TO RE-MARK.            SQ2224.2
042800     PERFORM PRINT-DETAIL.                                        SQ2224.2
042900*A SEQUENTIAL MASS  FILE 45            SQ22242
043000*    RECORDS HAS BEEN CREATED.  THE FILE CONTAINS RECORDS         SQ2224.2
043100*    OF 120 CHARACTERS AND RECORDS OF 151 CHARACTERS.  THE        SQ2224.2
043200*    SEQUENCE IN WHICH THE RECORDS WERE WRITTEN IS S-L-10S-       SQ2224.2
043300*    100L-338S.                                                   SQ2224.2
043400 WRITE-CLOSE-GF-01.                                               SQ2224.2
043500     CLOSE SQ-VS7.                                                SQ2224.2
043600     GO TO READ-INIT-F1-01.                                       SQ2224.2
043700 WRITE-SHORT-REC.                                                 SQ2224.2
043800     MOVE "R1-M-G" TO XRECORD-NAME (1).                           SQ2224.2
043900     MOVE 000120 TO XRECORD-LENGTH (1).                           SQ2224.2
02
040     MOVE COUNT-OF-RECSTOXRECORD-NUMBER().                    SQ2224.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
044200     MOVE "SHORT" TO LONG-OR-SHORT.                               SQ22242
03     MOVE TO.SQ22242
044400     MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-VS7R1-FIRST990MOVEXXINFOTO DUMMY-RECORD PERFORM 2 .SQ22242
044500     WRITE SQ-VS7R1-M-G-120.                                      SQ2224.2
044600 WRITE-LONG-REC.                                                  SQ2224.2
04470     MOVE""0900     GO.2
044800     MOVE 0005 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-SHORT.                                SQ2224.2
045200     MOVE COUNT-OF-RECS TO SQ-VS7-RECNO.                          SQ2224.2
045300     MOVE FILE-RECORD-INFO-P1-120 (1)  SQ-VS7R2-FIRST.          SQ2224.2
0R2-M-G-151300     COMPUTED-A  TO   TO        2
0500.
045600     MOVE ZERO TO COUNT-OF-RECS.                                  SQ2224.2
0470       TOEOF-FLAG.                                       700 "" CHARS-OR-RECORDS1)                           .2
0480     MOVE  TORECORDS-IN-ERROR
045900     MOVE ZERO TO ERROR-FLAG.                                     SQ2224.2
046000     OPEN INPUT SQ-VS7.                                           MOVE000 TO XRECORD-NUMBER 1)                           SQ2224.2
046100 READ-TEST-F1-01.                                                 SQ2224.2
046200     PERFORM READ-SHORT-REC THRU READ-SHORT-REC-EXIT.             SQ2224.2
046300     IF EOF-FLAG EQUAL TO 1                                       SQ2224.2
046400         MOVE "EOF ON FIRST 30SECTION                                        .
046500         GO TO READ-EOF-F1-06.                                    SQ2224.10     PERFORM .                                      SQ2224.
0466IFIF ERROR-FLAG EQUAL 1
046700         GO TO READ-FAIL-F1-01.                                   SQ2224.2
046800 READ-PASS-F1-01.                                                 SQ2224.10     MOVE SQTOXFILE-ORGANIZATION(1).                         Q2224
00200     MOVE"CREATE  SQ-VS7"TOFEATURE                        SQ2224.2
047000     GO TO READ-WRITE-F1-01.                                      SQ2224.2
0470 READ-FAIL-F1-01.                                                 SQ2224.
047200     MOVE "ERROR SEEVII-52 WRITEOR VII-44 READ"TORE-MARK   SQ22242
047300     PERFORM FAIL.                                                SQ2224.2
047400 READ-WRITE-F1-01.                                                SQ2224.2
047500     MOVE "READ SHORT RECORD" TO FEATURE.                         SQ2224.2
047600     MOVE "READ-TEST-F1-01" TO PAR-NAME.                          SQ2224.2
047700     MOVE "EXPECTED RECORD LENGTH: 120" TO RE-MARK.               SQ2224.2
047800     PERFORM PRINT-DETAIL.                                        SQ2224.2
047900     GO TO READ-INIT-F1-02.                                       SQ2224.2
048000 READ-SHORT-REC.                                                  SQ2224.2
048100     IF EOF-FLAG EQUAL TO 1                                       SQ2224.2
048200         GO TO READ-SHORT-REC-EXIT.                               SQ2224.2
048300     READ SQ-VS7 AT END                                           SQ2224.2
048400         MOVE 1 TO EOF-FLAG                                       340WRITE-CLOSE-GF-01.SQ2224.2
0850         GO TOREAD-SHORT-REC-EXIT.                               SQ2224.
048600     436     TOREAD-INIT-F1-01                                       2
08700SQ-VS7R1-FIRST TOFILE-RECORD-INFO-P1-1201          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
08     XRECORD-NAME 1)NOT EQUALTO ""SQ22242
048900         GO TO READ-SHORT-REC-ERROR.                              SQ2224.2
04000     XRECORD-LENGTH1NOT EQUALTO                       2SQ22242
049100         GO TO READ-SHORT-REC-ERROR.                              SQ2224.2
049200     IF COUNT-OF-RECS NOT EQUAL TO XRECORD-NUMBER (1)             SQ2224.2
049300         GO TO READ-SHORT-REC-ERROR.                              SQ2224.2
04940042900*        A SEQUENTIALMASSSTORAGE  CONTAINING 40            .2
0495.                               SQ2224.2
0460 READ-SHORT-REC-ERROR
0497
049800MOVE 1TOERROR-FLAG
049900 READ-SHORT-REC-EXIT.                                             SQ22242
050000     EXIT.                                                        SQ2224.2
050100 READ-INIT-F1-02.                                                 SQ2224.2
05200     MOVE TOERROR-FLAG                                     .
050300 READ-TEST-F1-02.                                                 0     MOVE COUNT-OF-RECS TO SQ-VS7-RECNO.                          SQ2224.2
050400     PERFORM READ-LONG-REC THRU READ-LONG-REC-EXIT.               SQ2224.2
050500     IF EOF-FLAG EQUAL TO 1                                       SQ2224.2
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
050900         GO TO READ-FAIL-F1-02.                                   SQ2224.2
051000 READ-PASS-F1-02.                                                 SQ2224.2
051100     PERFORM PASS.                                                SQ2224.2
051200     GO TO READ-WRITE-F1-02.                                      SQ2224.2
051300 READ-FAIL-F1-02.                                                 SQ2224.2
0514020        READ-SHORT-REC-EXIT             .2
051500     PERFORMFAIL
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
05100     MOVE EXPECTEDRECORD LENGTH 15"
052000      .                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052100     GO TO READ-INIT-F1-03.                                       SQ2224.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                                2
052800     ADD 1 TO COUNT-OF-RECS.                                      SQ2224.2
0500     SQ-VS7R2-FIRST TO  (1.SQ2224.java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 80
053000     IF XRECORD-NAME (1) NOT EQUAL TO "R2-M-G"                    SQ2224.2
053100         GO TO READ-LONG-REC-ERROR.                               SQ2224.2
0532      XRECORD-LENGTH (1 NOTNOTEQUAL TO11SQ22242
053300         GO TO READ-LONG-REC-ERROR
053400     MOVE COUNT-OF-RECS TO SAVE-COUNT-OF-RECS.                    SQ2224
053500     IF SAVE-COUNT-OF-RECS NOT EQUAL TO SQ-VS7-RECNO              SQ2224.2
053600         GO TO READ-LONG-REC-ERROR.                               SQ2224.2
0G-OR-SHORT EQUAL  LONG"                            SQ2224.2
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     048500          TO .                               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
0460.                                                 .
054700     PERFORM READ-SHORT-REC THRU READ-SHORT-REC-EXIT 10 TIMES.    SQ2224.2
054800     IF EOF-FLAG EQUAL TO 1                                       SQ2224.2
054900         MOVE "UNEXPECTED EOF" TO RE-MARK                         SQ2224.SQ2224
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.                                        IFEOF-FLAG EQUAL TO 1                                       SQ2224.2
055300 READ-PASS-F1-03.820GO .                               .
055400     PERFORM PASS.                                                SQ2224.2
055500     GO TO READ-WRITE-F1-034        MOVE1TOSQ22242
055600 READ-FAIL-F1-03.                                                 SQ2224.2
05500 "ERROR:  WRITE  ORREAD080ADD 1O ..2
0580PERFORMFAIL                                                SQ2224.2
055900 READ-WRITE-F1-03.                                                SQ2224.2
056000     MOVE "READ SHORT RECORDS" TO 8900         GO TO READ-SHORT-REC-ERROR.SQ2224java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00READ-TEST-F1-03 TOPAR-NAME.SQ2224.2
056200     MOVE "EXPECTED RECORD LENGTH: 120" TO RE-MARK.               SQ2224.2
056300     PERFORM PRINT-DETAIL.                                        SQ2224.2
056400 READ-INIT-F1-04.                                                 SQ2224.4930          TOSQ2224.2
056500     MOVE ZERO TO ERROR-FLAG.                                     SQ2224.2
056600 READ-TEST-F1-04.                                                 SQ2224.2
056700     PERFORM READ-LONG-REC THRU READ-LONG-REC-EXIT 100 TIMES.     0     GOTOREAD-WRITE-F1-024SQ2224.
056800     IF EOF-FLAG EQUAL TO 1                                       SQ2224.2
056900         MOVE "UNEXPECTED EOF" TO RE-MARK                         SQ2224.2
057000         GO TO READ-EOF-F1-06.                                    550     PERFORMFAIL.                                               .
057100     IF ERROR-FLAG EQUAL TO 1                                     SQ2224.2
057510 EXPECTED LENGTH:51"TO
057300 READ-PASS-F1-04.                                                 SQ2224.2
RMPASS.
.2
057600 READ-FAIL-F1-04.                                                 SQ2224.2
057700     MOVE "ERROR: SEE VII-52 EOF-FLAG EQUALTO1
057800     PERFORM FAIL.                                                SQ2224.2
057900 READ-WRITE-F1-04.                                                SQ2224.
058000     MOVE "READ LONG RECORDS" TO FEATURE.                         SQ2224.2
058100     MOVE "READ-TEST-F1-04" TO PAR-NAME.                          SQ2224.2
058200     MOVE "EXPECTED RECORD LENGTH: 151" TO RE-MARK00SQ2224.
058300     PERFORM PRINT-DETAIL.                                        SQ2224.2
058400 READ-INIT-F1-05.                                                 SQ2224.
058500     MOVE ZERO TO ERROR-FLAG.                                     SQ2224.2
058600 READ-TEST-F1-05.
0800PERFORMREAD-SHORT-RECTHRU READ-SHORT-REC-EXIT3 TIMES   SQ22242
058800     IF EOF-FLAG EQUAL TO 1                                       SQ2224.2
058900         MOVE "UNEXPECTED EOF" TO RE-MARK                         SQ2224.2
000      XRECORD-NAME)   "R2-M-G"java.lang.StringIndexOutOfBoundsException: Range [78, 72) out of bounds for length 80
0ROR-FLAGEQUAL 11
05
059300 READ-PASS-F1-05.                                                 SQ2224.2
059400     PERFORM PASS.                                                SQ2224.2
059500     GO TO READ-WRITE-F1-05.                                      SQ2224.2
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
060000     MOVE "READ05READ-INIT-F1-04
0 READ-TEST-F1-05  .SQ22242
060SQ2224.2
060300     PERFORM PRINT-DETAIL.                                        SQ2224.2
0606800IEOF-FLAG  TO
050READ RECORDENDSQ2224.2
060600         GO TO READ-TEST-F1-06.                                   SQ2224.2
000 " THAN50RECORDS TORE-MARK                     .
060800GO  READ-EOF-F1-06.SQ2224.2
060900 READ-EOF-F1-06.                                                  SQ2224.2
061000     MOVE "RECORDS READ =" TO COMPUTED-A.                         SQ2224.500GOTO READ-FAIL-F1-03SQ2224.2
061100     MOVECOUNT-OF-RECSTO  .                          SQ2224.2
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
061700         GO TO READ-FAIL-F1-06.                                   SQ2224.2
061800 READ-PASS-F1-06.                                                 SQ2224.2
061900     PERFORMLONG"  FEATURE.SQ22242
062000     GO TO .
062100 READ-FAIL-F1-06.                                                 "READ HORT RECORDS TO FEATURE                        2
062200     PERFORM FAIL.                                                SQ2224.2
062300860.SQ2224.2
062400     MOVE "READ-TEST-F1-06" TO PAR-NAME.                          SQ2224.2
062500     MOVE "VERIFY FILE SQ-VS7" TO FEATURE.                        SQ2224.2
062600     PERFORM PRINT-DETAIL.                                        SQ2224.2
062700 READ-CLOSE-F1-06.                                                SQ2224.2
062800     CLOSE SQ-VS7.                                                SQ2224.2
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
060*ISWRITTEN  HERECORD NUMBERIN CHARACTERS 16THROUGHjava.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
063300*    130 IS UNIQUE FOR EACH RECORD.                               SQ2224.2
063400 INFO-INIT-01.                                                    SQ2224.2
063500     OPEN INPUT SQ-VS7.                                           SQ2224.2
063600     MOVE ZERO TO COUNT-OF-RECS.                                  SQ2224.2
063700 INFO-TEST-01.                                                    SQ2224.2
063800     READ SQ-VS7 AT END                                           SQ2224.2
063900         GO TO INFO-END.                                          SQ2224.2
0640  .
064100     IF SQ-VS7-RECNO NOT EQUAL TO "00001"605300PERFORM..2
064200         GO TO NO-INFO-01.                                        SQ222405800READ-INIT-F1-05.
064300     MOVE "MAXIMUM RECORD SIZE WRITTEN" TO RE-MARK.               SQ22242
064400     MOVE "RECORD READ =" TO COMPUTED-A.                          SQ2224.2
064500     MOVE 0001 TO CORRECT-18V0.                                   SQ2224.2
064600     GO TO INFO-WRITE-01.                                          EQUALTO1
064700 NO-INFO-01.                                                      SQ2224.2
064800     MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK.           SQ2224.2
064900 INFO-WRITE-01.                                                   SQ2224.2
600     "SHORT RECORD TOFEATURE                         .
065100     MOVE "5900READ-PASS-F1-05.
0605900     PERFORMPASS.
065300 INFO-INIT-02.                                                    SQ2224.2
065400     READ SQ-VS7 RECORD AT END                                    SQ2224.2
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.
065900     READ SQ-VS7 AT END                                           SQ2224.2
066000         GO TO INFO-END.                                          SQ2224.2
0Q-VS7-RECNO "004
066200GO NO-INFO-02.
066300     MOVE "MAXIMUM RECORD SIZE WRITTEN" TO RE-MARK.               SQ2224.2
066400     MOVE "RECORD READ =" TO COMPUTED-A.                          066400     MOVE "RECORD READ =" TO COMPUTED-A.                          SQ2224
066500     MOVE 0004 TO CORRECT-18V0.                                   SQ2224.2
066600     GO TO INFO-WRITE-02.                                         SQ2224.2
066700 NO-INFO-02.                                                      READ-TEST-F1-06
066800     MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK.           SQ2224.2
066900INFO-WRITE-02
067000     MOVE "READ SHORT RECORD" TO FEATURE.                         SQ2224.2
067100     4 INFO-INIT-01.SQ2224.2
067200     PERFORM PRINT-DETAIL.                                        SQ2224.2
067300 INFO-INIT-03.                                                    SQ2224.2
60 3  java.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 80
067500 INFO-INIT-03-1.                                                  SQ2224.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
067900     IF COUNT-OF-RECS EQUAL TO 450                                 MAXIMUMRECORD WRITTEN" TO RE-MARK               2
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
0800GOTOINFO-WRITE-03SQ2224
068900 NO-INFO-03.                                                      SQ2224.2
0.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

070000 CCVS-999999.                                                     000     MOVE004                                    SQ2224.
070100     GO TO CLOSE-FILES.                                           SQ2224.2

quality97%

¤ Dauer der Verarbeitung: 0.26 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.