SSL sq121a.cob Sprache: Cobol

00010001200**SQ1214
000200 PROGRAM-ID.                                                      001400*         THE ROUTINE001500*    PROCEDURE ON I-O.  SQ121A IS BASICALLY A REWRITE OF SQ115A   SQ1214.2
030SQ121ASQ1214.2
000400****************************************************************  SQ1214.2
000500*                                                              *  SQ1214.2
002500*    NOT HAVE AN AT END CLAUSE.  EOF PROCESSING IS HANDLED BY     SQ1214.2
000700*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ1214.2
000800*                                                              *  SQ1214.2
000900*    CREATION DATE     /     VALIDATION DATE                   *  SQ1214.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".SQ1214.2
001100*                                                              *  SQ1214.2
001200****************************************************************  SQ1214.2
1                                                                  .2
001400*         THE ROUTINE SQ121A TESTS THE USE OF THE USE AFTER ERROR SQ1214.2
001500*    PROCEDURE ON I-O.  SQ121A IS BASICALLY A REWRITE OF SQ115A   SQ1214.2
001600*    WITH THE ADDITION OF THE USE PROCEDURE.                      SQ1214.2
001700*        THIS ROUTINE CREATES A MASS STORAGE FILE CONTAINING      SQ1214.2
001800*    550 RECORDS.  EACH RECORD CONTAINS 126 CHARACTERS. THE       SQ1214.2
001900*    FILE IS CLOSED AND OPENED AS AN INPUT-OUTPUT FILE. EVERY     SQ1214.2
002000*    TENTH RECORD IS REWRITTEN.  THE FILE IS CLOSED AND OPENED    SQ1214.2
002100*    AGAIN AS AN INPUT FILE.  FIELDS IN EACH RECORD ARE CHECKED   SQ1214.2
002200*    TO ENSURE THAT THE RECORDS REWRITTEN ARE CORRECT AND THAT    SQ1214.2
002300*    THE RECORDS WHICH WERE NOT UPDATED WERE NOT CHANGED.         SQ1214.2
002400*    THE READ STATEMENT WITHIN THE REWRITE SECTION OF SQ121A DOES SQ1214.2
002500*    NOT HAVE AN AT END CLAUSE.  EOF PROCESSING IS HANDLED BY     SQ1214.2
002600*    SETTING AN EOF-FLAG IN THE DECLARATIVE SECTION.  ANY         SQ1214.2
002700*    PERMANENT ERRORS ENCOUNTERED DURING THE REWRITE OF SQ-FS5    SQ1214.2
002800*    ARE TREATED AS INFORMATION ITEMS.                            SQ1214.2
002900*                                                                 SQ1214.2
003000*    USED X-CARDS:                                                SQ1214.2
003100*         XXXXX014                                                SQ1214.2
003200*         XXXXX055                                                SQ1214.2
003300*     P   XXXXX062                                                SQ1214.2
003400*         XXXXX082                                                SQ1214.2
003500*         XXXXX083                                                SQ1214.2
003600*     C   XXXXX084                                                SQ1214.2
003700*                                                                 SQ1214.2
003800*                                                                 SQ1214.2
002900*                                                                 SQ1214.2
004000 CONFIGURATION SECTION.                                           SQ1214002000*    TENTH RECORD003100*         002100*    AGAIN AS AN INPUT FILE002200*    TO ENSURE THAT0002300*    THE RECORDS WHICH WERE002400*    THE READ003300*     002500*    NOT HAVE AN002600*003400*         XXXXX082002700*    PERMANENT ERRORS ENCOUNTERED DURING THE 002800*    ARE003500*         XXXXX083                                                SQ1214.2
003700*                                                                 SQ1214SQ1214
004200     Card0130SQ1214.2
040 .
040Card0131SQ1214.2
004500 INPUT-OUTPUT SECTION.                                            SQ1214.2
004600 FILE-CONTROL.                                                    SQ1214.2
004700     SELECT RAW-DATA   ASSIGN TO                                  SQ1214.2
040     C0098SQ1214.2
004900            ORGANIZATION IS INDEXED                               SQ12142
005000            00450 INPUT-OUTPUTSECTIONSQ1214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
005100RECORD IS.                           00     "" .
00500     SELECT0440     .                                                   50ACCESS                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0050030"085 .2
050      SQ-FS5SQ1214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
005500     "C0020"                                                       DATA.
0560     ORGANIZATION                                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0 MODE
005800     FILE STATUS IS STAT-GROUP.                                   SQ1214.2
0090DATADIVISIONSQ121460     5C-TIME98.SQ1214
006000 FILE SECTION.                                                    SQ1214.2
006100                                                                  SQ1214.2
02 FD.
0630SQ1214.2
064001RAW-DATA-SATZSQ1214
006500     05  RAW-DATA-KEY        PIC X(6).                            SQ1214.2
006600     05  C-DATE              PIC 9(6).                            SQ1214.2
006700     05  C-TIME              PIC 9(8).                            SQ1214.2
006800     05  C-NO-OF-TESTS       PIC 99.                              SQ1214.2
PIC9                             .2
0000  C-ALLPIC9                             .2
007100     05  C-FAIL              400  C-NOTE060PROGRAM-ID.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
099                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
CTPIC9                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
070       C-NOTE               X(1)                           .2
007500     05  C-INDENT            PIC X.                               SQ1214.2
007600     05  C-ABORT             PIC X(8).                            SQ1214.2
007700 FD  PRINT-FILE                                                   SQ121406200 FD  RAW-DATA90Card0132SQ1214.2
07800LABELRECORDSSQ12142
007900     0030                                                                  0     DATARECORDISDUMMY-RECORD0010*ROUTINE  THEOF 050    ONI-O ISBASICALLY              .2
000DATA  020       WITHINREWRITE 050       AT ENDCLAUSE 020    SETTING EOF-FLAG THE SECTION20*ERRORSDURING002700*    PERMANENT ERRORS ENCOUNTERED DURING THE REWRITE java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0003100*         XXXXX014                                                SQ1214.2
008200 01  PRINT-REC PICTURE X(120).                                    SQ1214.2
008300 01  DUMMY-RECORD PICTURE003400*         XXXXX082                                                SQ1214.2
0084000820001 PRINT-REC PICTURE(10.SQ12142
008500     LABEL RECORD STANDARD                                        SQ1214.2
008600               .                                                  SQ1214060java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
80 SQ1214
0001SQ1214
8     SQ-FS5-UPDATE()SQ1214     (0SQ1214
009000 0409        PICTURE05               (3.
0WORKING-STORAGE000..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
09202 0  T-OUTPUT.
009300 01  ERROR-FLAG PIC  .SQ1214
0040.                                                  07      009500 PIC                                    .
009500     02 INPUT-STAT1     PIC08  PERM-ERRORSPIC.2
0090      800  X(2)                                   90 IS2
009700 01  EOF-FLAG          PIC 9 VALUE 0.                             SQ121400001  X0.SQ121400RECORD RAW-DATA-KEY000  .SQ1214  SQ-FS5SQ1214
PIC.SQ1214
009900 01  LOOP-COUNT PIC 99030"= ,RECORD= 0RECNO=000,=00".  SQ1214.
00000             "ODO=0000,PGM=,LRECL0000BLKSIZ=00. 2
            (              .2
2                   ()VALUE
01300             FILERECORD/RECNO0,=0" .2
10 SEQUENTIAL.2
010500             050      MODE                                        .2
VALUE.2
010700             "0110 "ALTKEY1".SQ1214.2
010800        05 FILLER                 PICTURE X090  SECTIONSQ12142
        RECKEY" SQ1214.2
011000        05 FILLER                 PICTURE X(38)       VALUE302 1RECORDS-IN-ERRORS9COMPVALUE.SQ1214
011100             ",ALTKEY1= ".            SQ1214.2
0120        5FILLERPICTURE3 VALUE
030             ,=" SQ1214
01403 .
53  OCCURSTIMES.2
011600        05 FILE-RECORD-INFO-P1-120.                               170          7FILLER X5
01170           70600C-TIME8.SQ1214
011800           07 XFILE-NAME00         PIC 9.SQ1214java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
0100           07FILLERPIC(8.                       SQ1214
20java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 80
1           000LOOP-COUNT9                                          .2
012200           07 REELUNIT-NUMBER     PIC 9(1)0400              PIC0200     PIC()                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012300           00   PRINT-FILE.2
PIC(.2
012500           07 FILLER              PIC X(6).                       SQ1214.2
020           0 UPDATE-NUMBER 9(2).                       .2
FILLERPICX5.                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0180 07 ODO-NUMBER94)                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2 07  5).2
0130000290           0               PICX5.                       .2
013100           07 FILLER              PIC X(7).                       SQ1214.2
0  PIC6SQ1214
03300           0 FILLER              19             RECKEY            .
013400           07 CHARS-OR-RECORDS    PIC X(2).                       SQ1214.2
           X1).SQ1214
01600           0 XBLOCK-SIZE 9(40060.
013700           07 FILLER              PIC360           0          PIC 9(4).SQ1214
013800           07 RECORDS-IN-FILE003 96java.lang.StringIndexOutOfBoundsException: Range [78, 72) out of bounds for length 80
01390030008100      OCCURS .              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010                5SQ1214
400               6
0140                    PIC X1.SQ1214
SQ1214
014400           07 FILLER009400 01  STAT-GROUP.                                                  00           X()SQ1214
014500           07 XRECORD-KEY          PIC X(29044130            PIC7).                       SQ1214
014600           07 FILLER              PIC X(9).                       SQ1214.2
014700           07 ALTERNATE-KEY1      PIC470           0 ALTERNATE-KEY1 X(29).260                   PIC0000            PIC 0.                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0140                          PICX9)                       .2
                      2
0150007FILLER X(7.0501TEST-RESULTS.2
015100 01  TEST-RESULTS.0120     2FILLERPICTUREXVALUE.          SQ1214
015200     0                     PICTUREX ALUE.          SQ1214
015000                    PICTURE X2)  SPACE.      SQ1214
05002 P-OR-F                         2
010560 FILLERX  0310           7FILLERPIC.                       .
100     2 FILLERPICTUREVALUE.         .2
0150       .                                                .2
100FILLERX1) .SQ1214
015900       03  PARDOT-X0        5FILLERPICTURE (6              SQ12149003PARDOT-X   SPACE.2
01100,LFIL0,= LBLRSQ1214
016100       03010800        05                   X(              SQ121460       0  PIC(5VALUE.                            SQ1214
10) VALUE0                  X3)VALUE
160     040
040 0  TEST-COMPUTEDSQ12142
016500     02 FILLER PIC X31660     0 FILLER PIC(7)VALUE       COMPUTED010"ALTKEY2 "            .java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 80
166     2FILLERPIC(NFO10TIMES.2
1700 COMPUTED-X                                               SQ1214
016800     03 COMPUTED-A130110           7FILLER X(5)
19003OMPUTED-NCOMPUTED-A-99).      Q1214
017000     03 COMPUTED-0V18 REDEFINES COMPUTED-A  PICTURE900 FILLERPIC10           1003COMPUTED-0V18  PICTURE9(1)      .
017100     03 COMPUTED-4V14  X6.SQ12140                    PIC.
01720003 COMPUTED-14V4 COMPUTED-APICTURE -9020           7FILLERPIC.SQ1214
017300     03       CM-18V0 COMPUTED-A.0700120          7REELUNIT-NUMBER  9(1).                       .2
000COMPUTED-18V0PICTURE -(03        100         ( SQ1214
100         4FILLER X            .2
017600     0401600     0  PIC(0 020           7UPDATE-NUMBER 9(2).                       2
0177001TEST-CORRECT.2
017800     007800     2  PIC (3)VALUE.                             SQ121460           0                X9.                       .
0" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02CORRECT-X.2
018100     03 CORRECT-A                 PICTURE X(20) VALUE 0300           0 XPROGRAM-NAME        PIC(5.                      SQ1214
120     REDEFINES PICTURE999).S.
010130     0CORRECT-0V18CORRECT-A1511TEST-RESULTSSQ1214
018400     03 CORRECT-4V14 REDEFINES CORRECT-A    PICTURE -9(4).9(14).  SQ1214.2
0CORRECT-14V4    PICTURE -9(4(4.  SQ1214
160     3      REDEFINES CORRECT-ASQ1214
000          PICTURE SPACE
0030          7 XBLOCK-SIZE94.SQ1214
018030           7               0870                             PICTURE-(8.SQ1214
090000                                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019100     02 FILLER PICTURE IS X0500407PIC1..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
SQ1214
0193001100030190     2PICTURE X(9)04                          X()                       .2
019400     02  PICTUREIS(0)VALUE SPACE.2
SQ1214
01960013002090-        " SQ1214.2
091401TEST-COMPUTEDSQ1214.2
190     0  PICTURE 01600  PICX30 SPACESQ1214
0190160     2FILLER0170           7ALTERNATE-KEY1      PICX29 SQ1214
020000     0600016800     03 0090     2FILLER IS XVALUE SPACESQ1214
02010900050           7              X7SQ1214
020200 01070     3COMPUTED-0V18 COMPUTED-A -.01000  TEST-RESULTS090     2 FILLER  X(1   SPACE2
200                      999VALUESQ1214
04001   999 IS.                  .2
0205170100002    ()VALUE .                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0601PASS-COUNTER9VALUE.                             2
01T PIC9 ZEROSQ12142
02080007       .SQ1214
020   PIC1) ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
200 PIC201PASS-COUNTER9  .SQ1214
02110000         PICTURE ZERO0701 999VALUESQ1214
021200     02  FILLER01610       03 FILLERPIC 07000 09  DUMMY-HOLD(12)VALUESQ1214
020100 CORRECT-XSQ1214
0210     " SOFTWARE TESTING021100 01 CCVS-H-1. SQ1214.
02150-00100FILLERX(7  SPACESQ1214
010           X2   SPACE.
                                             1     FEDERAL X3)VALUE                             2
2  (2  021800     02 FILLER PICTURE X(52) VALUE IS
10CCVS85 10         0PICTURE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20PISVALUERESULTS.
103COMPUTED-0V18 010"FSTC, NOT FOR DISTRIBUTION."SQ1214
2000  PICTURE(0    SPACESQ1214
0200     2  PICTURE IS (9.                                  SQ1214
0240     2 PICTURE3)                               SQ1214
02200" OFFICIAL 090 0 .SQ1214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021600  PIC) SPACE0   USE0SS.
202FILLER13        .                                           2
290       COPYRIGHTSQ1214    IS SPACE2
023000 01  CCVS-E-11500  .                                                    20     2    X(8 SQ1214
02300    2 FILLER IS (5)VALUE .                   SQ121407     2 IS(VALUE ".SQ1214.2
0300    X4 VALUEOF" .
0080     3CORRECT-N  CORRECT-A -99.()         .2
20     FILLER ()VALUESQ1214
0235000302FILLER IS4  ISEND" .
0230   .                                                    .2
07002FILLER1  SQ1214
023800     SPACE.                                                       SQ1214.080030" COBOL 85"                               2
2900                      X2  SPACE2
024000     2CCVS-E-2-2063CR-18V0                          2
0087 4CORRECT-18V0-(8.SQ1214
2000                     (1        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
4  ENDER-DESC  ERRORS2
024400 01  CCVS-E-3020 0  PIC1 PICTURE(9 IS              .
024500     02  FILLER130            " .20 0 4java.lang.StringIndexOutOfBoundsException: Range [44, 40) out of bounds for length 80
0FOR"SQ12142
0280 00FOR
4 0  (8                               SQ1214   X( ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
40VALIDATION      SQ1214
200  01  ..
50        )  SQ1214
2300 0PIC1  " 18.SQ12142
000 PICTUREX4  IS                   SQ1214
4     0  PIC"OF .2
02000      PIC00EC-CTVALUESQ1214
200FILLER()                                    2
057004110   PICTURE)                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026 1PASS-COUNTER 99 ZERO500java.lang.StringIndexOutOfBoundsException: Range [17, 11) out of bounds for length 80
ICVALUE*INFORMATION java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
026000     02020900 01  DUM PIC10  SPACE010  X0VALUE2
026100     2FILLER X(3) VALUE.2
0600XXCOMPUTED().java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0040  X0.
02     206
06 1HYPHEN-LINE
066060      PICTURE)VALUE***20"FEDERALSOFTWARE CENTERCOBOLCOMPILERSQ1214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
****2
0201002        X6   SPACE******SQ1214
026900     02 FILLER PICTURE IS X(000   PIC 3 0  IS5VALUESQ1214
070-   ***********.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
070 1   X() VALUESQ1214
027202300PROCEDURE020     2FILLER X(030      PICTURE(5VALUESQ1214
20PROCEDURE.2
027400 DECLARATIVES.                                                    SQ121423600 0.                                        java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05  .SQ1214
26USEERROR ONI-O9          1EOF-FLAGjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20 .SQ1214
00002FILLERX)                               .2
70MOVE400  IS VALUE                      ..2
0280SQ1214
0           1 20
080 06      PICTURE()VALUESPACE.
80CCVS1
28 2" OFFICIALSE"SQ1214
0850OPEN RAW-DATASQ12144     FILLER X5 IS2
80MOVETOSQ1214
270    TIME0     ILLER8                               .2
80002                    (13              SQ1214
0280     90END-E-12
029000023900     240CLOSE.                                              SQ1214
0901           PICTURE ISXXX  SPACE.SQ1214
0920REWRITE 090MOVETO.MOVETOSQ1214
02930403PIC4VALUE.2
24      .                                              .2090       HEAD-ROUTINE.             SQ1214      CCVS-E-4-1XXXSPACESQ1214
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0    CCVS-PGM-ID   2
0320 "WEREEXECUTED SUCCESSFULLY.java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
029800     PERFORM2FILLER X(3 SPACESQ12140                  (REC-SKL-SUB.2
02990      ZERO.                                    .2
3200C.
310 java.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds for length 80
3      1TO0I-O                                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0110  INVALID0FILLERX)                                    .2
30                  FILE-RECORD-INFO).                 SQ121432     24 20 XINFO.
30 .SQ1214
03060GO 0266 02FILLER IS   IS SPACESQ1214
030 .SQ12140GO.                                   .2
380 PERFORM  END-ROUTINE-13CLOSE.   SQ1214
080          "RECORDS READ ="TO                      SQ12142
031000     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            SQ12140         MOVE0320     PERFORM00  TO ..  SQ1214
031100     READ RAW-DATA INVALID KEY GO TO580    IFRECORDS-IN-ERROR EQUALTO                        SQ1214
02 OK SQ1214
0530PERFORM
                            Q1214
031030      "010MOVERECORDS-IN-ERROR ORRECT-18V0 0000. 2
3000 TEST-COMPUTEDPRINT-REC          .2
370MOVE TO03 .
30    RAW-DATA-SATZ END-E-2.2
031900 END-E-2.                                                          TO0.
00.
032100 TERMINATE-CCVS00980 REWRITE-WRITE-GF-02FLAG.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032200     EXIT0 BAIL-OUT-EXEXIT.2
.                                                  2
032400     STOP     MOVE  TO.                               .2
2.MOVE java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02READ
032700 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO002" XRECORD-NAME 1 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032800 DE-LETE.  MOVE     .44      006 XRECORD-LENGTH
2SECTION2
033000 50      COUNT-OF-RECORDS 5                         .java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
310
033200             MOVE9 "S 1 2
033300              REC-CTTO400MOVE001  (1)SQ1214
0330          TEST-RESULTS . PERFORM.      SQ1214
35     P-OR-F "*"  PERFORM               .
03030SEQ-TEST-013.2
030           PERFORM04      FILE-RECORD-INFO-P1-120 SQ-FS5-120
3  TO  TO5IF1NOT "java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30MOVE030     1 .                                   .2
3      EQUAL0OREWRITE-TEST-GF-02.
034100     MOVE     SPACE TO4  WRITE-013.2
0420HEAD-ROUTINE60           ZERO.
040      CCVS-H-1 . PERFORM0410       SEQ-TEST-013.2
034400     MOVE TO . PERFORMWRITE-LINE.   SQ1214
0340      CCVS-H-3 DUMMY-RECORD WRITE-LINE .   SQ12142
040 COLUMN-NAMES-ROUTINESQ1214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0360          1ORECORDS-IN-ERRORSQ1214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
034800     MOVE CCVS-C-240MOVE CREATED 60         GO REWRITE-TEST-GF-02                               .2
390MOVETO.PERFORM        .2
035051           TO.                               .
10 HYPHEN-LINETO. PERFORM 5 TIMES
32 END-RTN-EXITSQ1214045000*    RECORDS HAS 050SEQ-INIT-01470java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 80
004520     MOVE TOCOUNT-OF-RECORDSSQ12140560         DDTO                               .2
050 END-ROUTINE-1                                                   SQ1214045300*        THIS TEST READS AND CHECKS THE FILE CREATED              SQ1214045400*    IN SEQ-TEST-013.                                             SQ1214.2
0350.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050      . ADD TO.                   .2
035700      ADD PASS-COUNTER TO ERROR-HOLD.                             SQ1214.0500480GO SEQ-TEST-014-1                                   .2
035800*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   SQ1214.2
COUNTER.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
60 ERROR-HOLD.                              .540MOVE THAN RECORDS RE-MARK.2
036     MOVE TO .                                SQ1214
3200MOVE TOPERFORM.SQ1214
TINE-12SQ1214
0340       "060 TO SEQ-TEST-014 SQ12142
036500     IF       ERROR-COUNTER IS EQUAL TO ZERO                      SQ1214050I NOTTOSQ1214
060 MOVE"TOERROR-TOTAL .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
07
ERROR-TOTAL.                       .2
036900     MOVE     CCVS-E-2 TO DUMMY-RECORD00GO REWRITE-FAIL-GF-02.SQ1214
070     PERFORMWRITE-LINESQ1214
070 070           .                                      SQ1214
3700     IFDELETE-CNT ISEQUAL ZERO                               .2
3730          "NO " TO  ELSE                          SQ1214
037400         MOVE DELETE-CNT TO ERROR-TOTAL0GOTO.                                      .2
037500     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   SQ1214.2
076   TO . PERFORM           .2
037700      IF   INSPECT-COUNTER EQUAL TO ZERO47 .                                                  SQ1214
037800MOVE" " TO                               SQ1214
03700      ELSE INSPECT-COUNTER ERROR-TOTAL.2
038000      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.0800     MOVE ERRORS "TORE-MARK..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
SQ1214
038200     MOVEMOVE  CORRECT-18V00PERFORM.SQ1214
03830.SQ1214
09 .                                             .2
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038600         MOVE7 .
038700         MOVE SPACE TO0MOVE TO CORRECT-18V0 SQ1214
038800         WRITE DUMMY-RECORD4900 SEQ-WRITE-014SQ1214.2
038900         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             SQ121406000     MOVESEQ-TEST-014TOPAR-NAME2
039000         MOVE CCVS-C-2 TO49200     MOVEVERIFY"TOFEATURE. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0  TO           SQ1214
LD                          .2
090MOVE  RECORD-COUNT.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
340     PERFORMWRT-LN                                              .2
03950 WRT-LN.                                                          SQ1214.2
0050000*        THIS TEST REWRITES EVERYTENTH RECORD                    SQ1214
039700     MOVE SPACE60500 REWRITE-TEST-GF-01                                              .2
039800 BLANK-LINE-PRINT
039900     PERFORM WRT-LN.                                              SQ1214.2
0000.                                                   .2
040100     IF COMPUTED-X NOT EQUAL TO 0570ADD1TO (1).                                 .2
0020     IF NOT EQUAL TO5800     FILE-RECORD-INFO-P1-120( TO SQ-FS5-120SQ1214
040300     MOVE "NO FURTHER INFORMATION, SEE05090 MOVE "" TO SQ-FS5-UPDATE. SQ1214.2
04040MOVE TO . PERFORMWRITE-LINE TIMES.SQ1214
450     GO FAIL-ROUTINE-EXSQ1214
040600 FAIL-ROUTINE-WRITE.                                              SQ1214.2
040700     MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE           SQ1214.2
040800     MOVE TO  PERFORM WRITE-LINE2.   SQ1214
00. EXITSQ1214
041000 BAIL-OUT.                                                        SQ1214.2
10IFCOMPUTED-AEQUALTO GO BAIL-OUT-WRITE.2
041200     IF CORRECT-A      EOF-FLAG 1                                       .2
041300 BAIL-OUT-WRITE.                                                  SQ1214.2
041400     MOVE51800     ADD1 TO COUNT-OF-RECORDSSQ1214
041500     0590 .                                                .2
041600 BAIL-OUT-EX. EXIT.                                               SQ1214.2
041700CCVS1-EXIT.2
041800     EXIT.                                                        SQ1214.2
0490  SECTIONSQ1214
042000 SEQ-INIT-013.                                                    SQ1214.2
042100     MOVE020REWRITE-FAIL-GF-01.2
042200     MOVE "R1-F-G" TO XRECORD-NAME (1).                           550     "VII-4845. .2
042300     MOVE 020PERFORM .SQ1214
050 "50RECORDS BE"TO.                .2
042500     MOVE "RC" TO CHARS-OR-RECORDS (1).                           SQ1214.2
0260     MOVE1TO (1).SQ1214
042700     MOVE 000550 TO RECORDS-IN-FILE (10290     MOVE COUNT-OF-RECORDS CORRECT-18V0SQ1214
04280      "SQ"TO (1).                         .2
490MOVE  XLABEL-TYPE.SQ1214
043000     MOVE 000001 TO XRECORD-NUMBER.
043030 .                                             .2
420 ZERO.                               .2
043300 SEQ-TEST-013.050     MOVEFILE  FEATURESQ1214
0434050      PRINT-DETAIL.2
043500     MOVE "FIRST "300IFPERM-ERRORS EQUAL  1                                    SQ12142
043600     WRITE SQ-FS5R1-F-G-126.                                      SQ1214.2
070     1TO
043800IF OUNT-OF-RECORDS TO0SQ1214
043900          GO TO SEQ-WRITE-013.                                    SQ12140PERFORM.                                     .2
044000     ADD 1 TO XRECORD-NUMBER (1).                                 SQ1214.2
044100     TO.                                          .2
044200SEQ-WRITE-013SQ12142
044300     MOVE "CREATE FILE SQ-FS5" TO FEATURE.                        SQ1214.2
0440      "SEQ-TEST-013"TO.                             .2
044500     MOVE "FILE 040 ZERO TOEOF-FLAG.SQ1214.2
044600     MOVE COUNT-OF-RECORDS TO460     OPEN SQ-FS5                                           SQ12142
044700     PERFORM PRINT-DETAIL.                                        SQ1214.2
044800     CLOSE SQ-FS5.                                                SQ1214054700*        THIS TEST READS AND CHECKS054800*    REWRITTEN IN REWRITE-TEST-01.                                MOVE  RECORDS-IN-ERROR.
044900*         A SEQUENTIAL MASS STORAGE FILE WITH 126 CHARACTER       SQ1214.2
045000*    RECORDS HAS BEEN CREATED.  THE FILE CONTAINS 550 RECORDS.    SQ1214.2
1SEQ-INIT-014SQ1214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
045200     MOVE ZERO TO COUNT-OF-RECORDS.                               SQ1214.2
045300*        THIS TEST READS AND CHECKS THE FILE CREATED              SQ1214.2
045400*    IN SEQ-TEST-013.                                             SQ1214.2
045500     OPEN INPUT SQ-FS5.                                           SQ1214.2
0560SEQ-TEST-014SQ1214
045700     READ SQ-FS5 AT END                                           SQ1214.2
0480          TO.                                   .2
045900     ADD 1 TO COUNT-OF-RECORDS.                                   550      1TO.                                   .2
046000     MOVE SQ-FS5-120 TO FILE-RECORD-INFO-P1-120 (1).              SQ1214.2
0  GREATER5SQ1214
046200         MOVE "00GO TO. .2
060          TOSQ1214
046400     IF COUNT-OF-RECORDS NOT EQUAL TO XRECORD-NUMBER (1)          0500 SQ-FS5-120 FILE-RECORD-INFO-P1-1201)              .2
450ADD 1TORECORDS-IN-ERROR                                SQ1214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046600         056300          GO.                               .2
06            TO
046800         ADD 1 TO00IF (NOT ZERO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
9GO SEQ-TEST-014.SQ12142
047000     IF UPDATE-NUMBER (1070     IF EQUALTO"2
047100         ADD 1 TO RECORDS-IN-ERROR                                SQ12145700GO REWRITE-TEST-GF-02                               .2
047200         GO TO SEQ-TEST-014.                                      SQ1214.2
047300     IF SQ-FS5-UPDATE EQUAL TO "FIRST "                           SQ1214.2
0       (1  EQUAL.2
0070ADDTO                               .java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
047600     GO TO SEQ-TEST-014.                                          000      SQ-FS5-UPDATE  TOSECOND                           .
7.                                                  .2
040500ADD1TO.                                  .
070          TO.                                      .2
04800MOVE IN "TORE-MARK.SQ12142
048100 SEQ-FAIL-01450      COUNT-OF-RECORDS EQUAL  550                         .2
048200     MOVE "RECORDS IN080 "LESS 5 " TO SQ1214.2
048300     MOVE RECORDS-IN-ERROR TO CORRECT-18V0.                       SQ121408500MOVE"RECORDS READ="  COMPUTED-A                      SQ1214
048400     PERFORM FAIL.                                                SQ1214.2
048500     GO TO SEQ-WRITE-014.                                         SQ1214.2
048600 SEQ-PASS-014.                                                    SQ1214.2
048700     PERFORM PASS.                                                .2
048800     MOVE "FILE VERIFIED RECS =" TO COMPUTED-A
080 COUNT-OF-RECORDS .                       SQ12142
049000 SEQ-WRITE-0140          TO.SQ1214
049100     MOVE "SEQ-TEST-014" TO .
0 VERIFY .                        .2
00PERFORM.SQ1214
049400 SEQ-CLOSE-014.                                                   SQ1214.2
049500     CLOSE.                                                SQ1214
049600REWRITE-INIT-GF-01.2
049700     OPEN I-O SQ-FS5.                                             SQ1214.0590MOVERWRT-TEST-GF-02 PAR-NAMESQ1214
049800     MOVE ZERO TO COUNT-OF-RECORDS.                               SQ1214.2
049900     MOVE ZERO TO EOF-FLAG.                                       SQ1214.2
050000*        THIS TEST REWRITES EVERY TENTH RECORD                    SQ1214.2
050100*    OF THE FILE SQ-FS5.                                          SQ1214.2
050200 REWRITE-TEST-GF-01.                                              SQ1214.2
050300     PERFORM610PERFORM.                                        .2
050400     IF EOF-FLAG EQUAL TO 1                                       SQ1214.2
050500          GO TO REWRITE-TEST-GF-01-1.                             SQ1214.2
050600     MOVE SQ-FS5-120 TO FILE-RECORD-INFO-P1-120 (1).              SQ1214.2
0070     ADD TO UPDATE-NUMBER1SQ1214
050800     MOVE FILE-RECORD-INFO-P1-120 005     EXITSQ1214
050900     MOVE  SECTION.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0 .SQ1214
051100     GO TO REWRITE-TEST-GF-01.                                    SQ1214.2
051200 READ-SQ-FS5.                                                     SQ1214.2
051300     IF EOF-FLAG EQUAL TO 1                                       SQ1214.2
051400          GO TO READ-SQ-FS5-EXIT.                                 SQ1214.2
051500     READ SQ-FS5 RECORD.                                          SQ1214.2
051600     IF EOF-FLAG EQUAL TO 1                                       SQ1214.2
051700          GO TO READ-SQ-FS5-EXIT.                                 SQ1214.2
051800     ADD 1 TO COUNT-OF-RECORDS.                                   SQ1214.2
051900 READ-SQ-FS5-EXIT.                                                SQ1214.2
052000     EXIT.                                                        SQ1214.2
052100 REWRITE-TEST-GF-01-1.                                            SQ1214.2
052200     IF COUNT-OF-RECORDS EQUAL TO 550                             SQ1214.2
052300         GO TO REWRITE-PASS-GF-01.                                SQ1214.2
052400 REWRITE-FAIL-GF-01.                                              SQ1214.2
052500     MOVE "VII-48 4.5.2 " TO RE-MARK.SQ1214.2
052600     PERFORM FAIL.                                                SQ1214.2
052700     MOVE "550 RECORDS SHOULD BE READ" TO RE-MARK.                SQ1214.2
052800     MOVE "RECORDS READ =" TO COMPUTED-A.                         SQ1214.2
052900     MOVE COUNT-OF-RECORDS TO CORRECT-18V0.                       SQ1214.2
053000     GO TO REWRITE-WRITE-GF-01.                                   SQ1214.2
053100 REWRITE-PASS-GF-01.                                              SQ1214.2
053200     PERFORM PASS.                                                SQ1214.2
053300 REWRITE-WRITE-GF-01.                                             SQ1214.2
053400     MOVE "RWRT-TEST-GF-01" TO PAR-NAME.                          SQ1214.2
053500     MOVE "REWRITE FILE SQ-FS5" TO FEATURE.                       SQ1214.2
053600     PERFORM PRINT-DETAIL.                                        SQ1214.2
053700     IF PERM-ERRORS EQUAL TO 1                                    SQ1214.2
053800     MOVE "PERMANENT ERRORS ENCOUNTERED ON PREVIOUS I-O OPERATION"SQ1214.2
053900          TO PRINT-REC                                            SQ1214.2
054000          PERFORM WRITE-LINE.                                     SQ1214.2
054100 REWRITE-CLOSE-GF-01.                                             SQ1214.2
054200     CLOSE SQ-FS5.                                                SQ1214.2
054300 REWRITE-INIT-GF-02.                                              SQ1214.2
054400     MOVE ZERO TO COUNT-OF-RECORDS.                               SQ1214.2
054500     MOVE ZERO TO EOF-FLAG.                                       SQ1214.2
054600     OPEN INPUT SQ-FS5.                                           SQ1214.2
054700*        THIS TEST READS AND CHECKS THE FILE WHICH WAS            SQ1214.2
054800*    REWRITTEN IN REWRITE-TEST-01.                                SQ1214.2
054900     MOVE ZERO TO RECORDS-IN-ERROR.                               SQ1214.2
055000     MOVE ZERO TO LOOP-COUNT.                                     SQ1214.2
055100 REWRITE-TEST-GF-02.                                              SQ1214.2
055200     READ SQ-FS5  END                                             SQ1214.2
055300          MOVE 1 TO EOF-FLAG                                      SQ1214.2
055400          GO TO REWRITE-TEST-GF-02-2.                             SQ1214.2
055500     ADD 1 TO COUNT-OF-RECORDS.                                   SQ1214.2
055600     IF COUNT-OF-RECORDS GREATER THAN 550                         SQ1214.2
055700          MOVE "MORE THAN 550 RECORDS" TO RE-MARK                 SQ1214.2
055800          GO TO REWRITE-FAIL-GF-02.                               SQ1214.2
055900     ADD 1 TO LOOP-COUNT.                                         SQ1214.2
056000     MOVE SQ-FS5-120 TO FILE-RECORD-INFO-P1-120 (1).              SQ1214.2
056100     IF XFILE-NAME (1) NOT EQUAL TO "SQ-FS5"                      SQ1214.2
056200          ADD 1 TO RECORDS-IN-ERROR                               SQ1214.2
056300          GO TO REWRITE-TEST-GF-02.                               SQ1214.2
056400     IF LOOP-COUNT EQUAL TO 10                                    SQ1214.2
056500          MOVE ZERO TO LOOP-COUNT                                 SQ1214.2
056600          GO TO REWRITE-TEST-GF-02-1.                             SQ1214.2
056700     IF UPDATE-NUMBER (1) NOT EQUAL TO ZERO                       SQ1214.2
056800          ADD 1 TO RECORDS-IN-ERROR                               SQ1214.2
056900          GO TO REWRITE-TEST-GF-02.                               SQ1214.2
057000     IF SQ-FS5-UPDATE EQUAL TO "FIRST "                           SQ1214.2
057100          GO TO REWRITE-TEST-GF-02.                               SQ1214.2
057200     ADD 1 TO RECORDS-IN-ERROR.                                   SQ1214.2
057300     GO TO REWRITE-TEST-GF-02.                                    SQ1214.2
057400 REWRITE-TEST-GF-02-1.                                            SQ1214.2
057500     IF UPDATE-NUMBER (1) NOT EQUAL TO 1                          SQ1214.2
057600          ADD 1 TO RECORDS-IN-ERROR                               SQ1214.2
057700          GO TO REWRITE-TEST-GF-02.                               SQ1214.2
057800     IF SQ-FS5-UPDATE EQUAL TO "SECOND"                           SQ1214.2
057900          GO TO REWRITE-TEST-GF-02.                               SQ1214.2
058000     ADD 1 TO RECORDS-IN-ERROR.                                   SQ1214.2
058100     GO TO REWRITE-TEST-GF-02.                                    SQ1214.2
058200 REWRITE-TEST-GF-02-2.                                            SQ1214.2
058300     IF COUNT-OF-RECORDS NOT EQUAL TO 550                         SQ1214.2
058400         MOVE "LESS THAN 550 RECORDS" TO RE-MARK                  SQ1214.2
058500         MOVE "RECORDS READ =" TO COMPUTED-A                      SQ1214.2
058600         MOVE COUNT-OF-RECORDS TO CORRECT-18V0                    SQ1214.2
058700         GO TO REWRITE-FAIL-GF-02.                                SQ1214.2
058800     IF RECORDS-IN-ERROR NOT EQUAL TO ZERO                        SQ1214.2
058900         MOVE "ERRORS IN READING SQ-FS5" TO RE-MARK               SQ1214.2
059000         MOVE "RECORDS IN ERROR =" TO COMPUTED-A                  SQ1214.2
059100         MOVE RECORDS-IN-ERROR TO CORRECT-18V0                    SQ1214.2
059200         GO TO REWRITE-FAIL-GF-02.                                SQ1214.2
059300 REWRITE-PASS-GF-02.                                              SQ1214.2
059400     PERFORM PASS.                                                SQ1214.2
059500     GO TO REWRITE-WRITE-GF-02.                                   SQ1214.2
059600 REWRITE-FAIL-GF-02.                                              SQ1214.2
059700     PERFORM FAIL.                                                SQ1214.2
059800 REWRITE-WRITE-GF-02.                                             SQ1214.2
059900     MOVE "RWRT-TEST-GF-02" TO PAR-NAME.                          SQ1214.2
060000     MOVE "VERIFY FILE SQ-FS5" TO FEATURE.                        SQ1214.2
060100     PERFORM PRINT-DETAIL.                                        SQ1214.2
060200 REWRITE-CLOSE-GF-02.                                             SQ1214.2
060300     CLOSE SQ-FS5.                                                SQ1214.2
060400 TERMINATE-ROUTINE.                                               SQ1214.2
060500     EXIT.                                                        SQ1214.2
060600 CCVS-EXIT SECTION.                                               SQ1214.2
060700 CCVS-999999.                                                     SQ1214.2
060800     GO TO CLOSE-FILES.                                           SQ1214.2

quality96%

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

*Bot Zugriff

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

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

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.