Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/NC/ Datei vom 4.1.2008 mit Größe 70 kB

SSL sq121a.cob Sprache: Cobol

001200**********00320000300                                                                  SQ1214000PROGRAM-IDSQ1214.2
0010*           SQ121A00030                                                         .2
000300     SQ121A001600*    WITH003500*         XXXXX083                                                SQ1214.2
000400****************************************************************  SQ1214.2
000500*                                                              *  SQ1214.2
000600*    VALIDATION FOR:-                                          *  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
001300                                                                  003000000400*********************000500*                                                              *  SQ1214.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
003900 ENVIRONMENT DIVISION.                                            SQ1214.2
040 CONFIGURATION .                                           .2
004100 SOURCE-COMPUTER.003400*         XXXXX082                                                SQ1214.2
004200     Card0130.                                                    0INPUT-OUTPUT.                                            .2
004300 OBJECT-COMPUTER.                                                 .2
004400     Card0131003800*                                                                 SQ1214.                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0 .                                            2
0000 .
004700     SELECT             KEY RAW-DATA-KEYC0085.2
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
004900            ORGANIZATION IS INDEXED030OBJECT-COMPUTER.SQ1214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0000 ISSQ12142
005100            RECORD KEY40 ACCESSMODE
005200     SELECT PRINT-FILE ASSIGN TO                                  SQ1214.2
0030     "05.SQ12142
005400     SELECT 0400SELECT ASSIGN                                         2
00     "SQ12142
005600     ORGANIZATION0800     ""                                                      SQ1214
00570FDRAW-DATA.2
0030                                                                       SEQUENTIAL.2
00060     5RAW-DATA-KEY X().                            070     ACCESSSEQUENTIALSQ1214
006000 FILE SECTION600    5              PIC().                            00              IS                                 2
006java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006200 FD031700      0200 PIC .                              .2
6
00600  java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 80
05       RAW-DATA-KEYX6032000     CLOSE RAW-DATA.
05C-DATESQ1214
0700                PIC 9830                                                  2
00            9
00900                  PIC 99.200I20*********"java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00                 PIC0..2
00 DIVISION.2
02     5C-DELETED70 .                                                       **TEST*  RE-MARKSQ1214
007300     05  C-INSPECT           PIC040DECLARATIVESSQ12142
007400     05                PIC X(10300 PRINT-DETAIL.                                                    70 SECT-SQ121A-0001.                                        2
0005 05              PIC                               .
0760     0  C-ABORT X(8).                            .2
0000  PRINT-FILE.2
00780     LABEL                                                SQ12142
007900Card0132SQ1214.2
00803330             MOVE TO DOTVALUE.                             .2
008100               .                                                  0790MOVE EOF-FLAG.2
08200  PRINT-REC X(2).                                   0340          TO.PERFORMWRITE-LINE.
01  DUMMY-RECORD X(120.                                 .02810          MOVETO.                                  .2
0840 FDSQ-FS5SQ12142
008500     LABEL RECORD370ELSEPERFORM THRU BAIL-OUT-EX.2
008600               .                                                  SQ1214800 CCVS181           380     SPACEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
SQ1214.2
008800     02  050OPEN.                                           2
00040     SPACE RE-MARK.2
0900 WORKING-STORAGE.                                         270     READ INVALIDKEY30HEAD-ROUTINE.2
090 1009100 01  COUNT-OF-RECORDS.2
0020 0  RECORDS-IN-ERROR PICS9ADD TO.                                      .2
0900 1 0340      CCVS-H-2. PERFORM  TIMES2
09435     090       FROMTIMESQ1214
009500     02 INPUT-STAT1     PIC X.                                    SQ121404600 COLUMN-NAMES-ROUTINE.028800     MOVE "ABORTED " TO C-ABORT.
0060     2INPUT-STAT2PIC.SQ1214
009700 01  EOF-FLAG          38     090                                                          .2
009800 01  PERM-ERRORS       PIC 9 VALUE 0.                             3
SQ1214
01050      CCVS-E-1 DUMMY-RECORD  WRITE-LINE200     TO.2
010100     03 FILE-RECORD-INFO-SKELETON4 .                                                   SQ1214
1
13"FILE=,=/,000,=0. SQ1214.2
010400        05 FILLER                 PICTURE 03000      CCVS-INIT-FILETIMES.2
010500             "0000 ADD TO REC-SKL-SUB. SQ1214.2
00600        05                  PICTURE(20500     0390MOVE  .                            .2
0170",=000000,ORG LBLR .20MOVECCVS-PGM-ID TO 00 REC-SKL-SUB .
010270MOVE  TEST-RESULTS00.SQ1214
010900             ",RECKEY= ".             SQ1214.6       CCVS-E-490THRUSQ1214
011000        0 FILLER020MOVETO PERFORM.0290MOVE TO.SQ1214
011100             ",ALTKEY1= 0630END-ROUTINE-12 .2
011200        05 FILLER340MOVE() FAILED ENDER-DESC2
011300             ",ALTKEY2= ".            SQ1214.2
0140        5 FILLERPICTURE7        SPACE.SQ1214
011500     03 FILE-RECORD-INFO36          "NO "  ERROR-TOTAL.2
0101000      CCVS-INIT-FILE.                              .2
000CCVS-INIT-FILE.2
011800           07 XFILE-NAME           PIC 0330MOVE TO.                                   .
00ADD                                          60           TO.                           .2
01200000MOVE                             .2
0100     MOVEINSPECT-COUNTER C-INSPECTSQ1214
012200           07 REELUNIT-NUMBER3010 END-ROUTINE-13SQ12142
012300           07 FILLER              PIC X(7031900 END-E-2.                                                         300 CCVS-INIT-EXITSQ1214.2
124007XRECORD-NUMBER 9()30GOjava.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 80
0150           0               070037400         SQ1214     RUN0"(S) "  ENDER-DESC.2
012600           07 UPDATE-NUMBER000MOVE TO 0700    CCVS-E-2 DUMMY-RECORDPERFORM           SQ1214
027                           PIC5 SQ1214
           0 ODO-NUMBER 9(4).SQ1214
01290           07 FILLERPIC(5.                       .2
01300           07 XPROGRAM-NAME3400     ERROR-HOLD090      MOVE  ERROR-TOTAL.                   2
013100           07 3150      ERROR-COUNTERTO080       "TESTS REQUIRE INSPECTION TOENDER-DESC 038000 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. SQ1214.2
30XRECORD-LENGTHSQ1214
030                          320     MOVECCVS-E-30     MOVE"**TEST DELETED**"TO RE-MARKSQ1214
013400           07 CHARS-OR-RECORDS    PIC X(2).                       SQ1214.2
0 FILLERPIC()                      .2
013600840380      RAW-DATA-SATZ INVALIDKEY GOTO03310       NOTEQUAL  ZEROSQ1214
170           0                X6)                       SQ1214
013800           07 RECORDS-IN-FILE     PIC 9(6).                       SQ1214320             DUMMY-RECORD DUMMY-HOLD.2
0190           0 FILLER               X5).                       .2
01400200     CLOSE.                                              .2
0140350       TO0380         CVS-C-1DUMMY-RECORD              .2
014200           07 XLABEL-TYPE          PIC0360         FAIL-ROUTINE  FAIL-ROUTINE-EX                 SQ12140300          CCVS-C-220     0330E PERFORM BAIL-OUT-EXSQ1214.
01400        05 FILE-RECORD-INFO-P121-240SQ1214
014400           07               PIC X8).                       SQ1214
0150           7 0 TO.                               SQ12142
01600           7 FILLER              PIC X(9).                       SQ1214.2
047000 ALTERNATE-KEY1X(2).SQ1214
014800           07 FILLER              PIC X(9).                       SQ1214.2
400           0 ALTERNATE-KEY2       X(29).SQ12142
01000           060     WRITEAFTER ADVANCING 1 LINES.2
-37     SPACE DUMMY-RECORD.2
050380BLANK-LINE-PRINTSQ12144      CCVS-H-2TOPERFORM  TIMES.
0530     0PERFORMSQ1214
015400     023 .                                            .2
100P-OR-F5VALUE2
01400.                                                    30     CCVS-C-2  WRITE-LINE.2
50     0  PAR-NAME.                                                2
0420     IF CORRECT-X EQUALTO GO TO.    SQ1214.2
015900       03   PICTURE X  VALUE.                       .2
100      3DOTVALUE9   ZEROSQ1214
016100       03 FILLER PIC032000520      XXINFO DUMMY-RECORDPERFORM      SQ1214
060002FILLER X(10)  SPACE.                             .2
01630     3500ND-ROUTINE-1SQ1214
016400 01  0350      ADD ERROR-COUNTER ERROR-HOLDADDINSPECT-COUNTER      SQ1214
0165000360      0460 .                                              .2
01660002 FILLERPIC(7  " COMPUTED=. SQ12142
016700     02 COMPUTED-X.                                               SQ1214.2
01600     3 COMPUTED-A                0359      MOVE PASS-COUNTER3340         TEST-RESULTSTO  WRITE-LINESQ1214
0 COMPUTED-N COMPUTED-A -9(9.()       2
10 java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 80
060MOVE TO00BAIL-OUT.                                                        2
020     3 java.lang.StringIndexOutOfBoundsException: Range [27, 22) out of bounds for length 80
017300120640 TEST "TOENDER-DESC.SQ1214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1400                             -9(18..2
017500         04 010      CORRECT-A306          " " TO                                SQ1214
076003  X(0VALUE017600     03 FILLER PIC X(50) VALUE SPACE.                             SQ1214
01040     0410java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 80
017800     02030          SPACE.                                   .
01790042HEAD-ROUTINE.2
018000     02 CORRECT-X.                                                SQ1214.2
0880200java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
340      CCVS-H-2 DUMMY-RECORDPERFORMWRITE-LINE5TIMES2210MOVE TO 1)                             .2
0183000700MOVE" "TO  ELSESQ1214
0840    3CORRECT-4V14CORRECT-A-49(1)  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018500     3  REDEFINESCORRECT-A    PICTURE-914).9(4)404 java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 80
0800       java.lang.StringIndexOutOfBoundsException: Range [37, 36) out of bounds for length 80
070MOVE TO )                           .2
01800070    TO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10200MOVE0END-ROUTINE.2
019000 01  CCVS-C-1.                                                    SQ121420      "SQ" TO (1).                         SQ1214010MOVE O DUMMY-RECORDPERFORM035100     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 2
019100     020400     MOVE300MOVECCVS-E-2TODUMMY-RECORD PERFORM.          SQ1214
090-SS                                          .2
019300-043200      ZERO COUNT-OF-RECORDS30 .                                                      .2
14 0IS0SPACE.
019500 01  CCVS-C-2.                                                    000IF GREATERSQ1214
VALUE..
019700     02 FILLER PICTURE0057        TO.                             .2
019800     02 FILLER PICTURE 0880          DUMMY-RECORD AFTER ADVANCING PAGE046WRITESQ1214
0190     2FILLER050MOVETO0MOVETOPERFORMSQ1214
020000     02 FILLER PICTURE IS X(94) VALUE IS0030TO.                                    .2
02101 PICTURE   .
020200 01  REC-CT PICTURE1           TO2
2000 09 .SQ1214
00040
NSPECT-COUNTERSQ1214
201  9 ALUE.2
020700 06 MOVE 00MOVE SQ1214
02080140PRINT-DETAIL2
02000FAIL-ROUTINESQ1214
20001RECORD-COUNT 9UALGO.SQ12140MOVE000java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
.2
02120700PERFORM.SQ1214
2300  PICTURE7                                 SQ1214
0000FAIL-ROUTINE-WRITE                                              .
00java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 80
02160       PICTURE63MOVE"  java.lang.StringIndexOutOfBoundsException: Range [80, 78) out of bounds for length 80
021700 400 40TO
250 PUTED-A          2
021900     "40IF EQUAL TOSPACEGOTO SQ1214.2
0246100IF REATER500430BAIL-OUT-WRITE                                                  .2
220    0 PICTURE 9)                                  .
02200java.lang.StringIndexOutOfBoundsException: Range [11, 1) out of bounds for length 80
022300 01  CCVS-H-3                                                    01600BAIL-OUT-EX.                                               SQ1214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2
022500     " FOR OFFICIAL USE ONLY ".                                SQ121410  SECTIONSQ1214
020     INIT-013.
022700     "COBOL0410MOVE"" TO XFILE-NAME 1.SQ1214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020     0    8 SQ1214
022900     " COPYRIGHT 1985 ".                                       SQ121448042        XPROGRAM-NAMESQ1214
02300 0  .                                                    SQ1214
230      FILLERIS) IS .                  .2
023200     02 FILLER PICTURE 020      "RC"TO (1)                           .2
0230     2ID-AGAINISX9.                                 2
023400     02 FILLER PICTURE X(45) VALUE IS                             SQ1214.2
20     " DISTRIBUTION COBOL 5"                               2
0--2
030 PICTURE              .
048      "" 7        CCVS-C-2.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
3000                     SQ1214
024040SEQ-TEST-014-1SQ1214
024100         0304320     MOVE TO.                               SQ1214 ZERO
20 8      ERRORS4 MOVE)O.SQ1214
024300         03 ENDER-DESC450MOVE "TOSQ12142
040 1CCVS-E-3    030SQ-FS5R1-F-G-126SQ1214
024500     02  FILLER PICTURE X(22) VALUE300ADD1TO03   TO.SQ1214
040" "                                    2
208      FAIL.2
024800     02  FILLER40ADD  XRECORD-NUMBER1)                                 SQ1214
024041      TO.                                          .2
025003990     PERFORM.470      PASSSQ1214
050     2FILLERX(5)VALUE      FILE  "TOCOMPUTED-A.SQ1214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025201  CCVS-E-4SQ12140.
000FAIL-ROUTINE9       TO.SQ1214
24002 PICVALUE0PRINT-DETAIL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2CCVS-E-4-2XXX .9  .SQ1214
025600     02 FILLER PIC04440MOVE 46 .                                              050* HAS CREATEDHE40SEQ-INIT-014SQ1214
5 " WEREEXECUTEDSUCCESSFULLY 2
02800  .                                                      .2
02  ( "** *050INEQ-TEST-013.SQ1214.2
026000     02 INFO-TEXT0      TEST-COMPUTED PRINT-REC            SQ1214
SPACESQ1214
026200     04 XXCOMPUTED PIC X(20).                                     490FAIL-ROUTINE-EX.                                           460.SQ1214
       NOT  GO0  AT                                           0REWRITE-TEST-GF-01.
200 P ( Q1214
026500 0501.
026600     0440  ALSQ1214 SQ-FS5-120).java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
60     2  IS6  550
80-"***********************".                2
2  IS4 IS**********SQ1214
027000060ADD  UPDATE-NUMBER)SQ1214
027100 01  CCVS-PGM-ID 050800     MOVE FILE-RECORD-INFO-P1-120 SQ-FS5-120SQ1214
02720     "SQ121A. SQ1214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03  DIVISIONSQ1214
027400 DECLARATIVES.                                                    SQ1214.2
027500 SECT-SQ121A-0001 SECTION.                                        SQ121460         TO.SQ1214 ..
7      AFTER00  REWRITE-TEST-GF-011      " XFILE-NAME().2
027700 I-O-ERROR-PROCESS.                                                READ-SQ-FS5SQ121420 "R1-F-G XRECORD-NAME(1.2
027800     IF3MOVE70 TO.                                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
09          1..java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 80
02050     RC042500     MOVE "RC" TO TOSQ1214
02810           1 TO46      00 O
0280  .                                                80     RECORDS-IN-ERRORTO                            .2
080 CVS190 ..Q1214
028400 OPEN-FILES.                                                      SQ1214.2
028500     OPEN I-O RAW-DATA020MOVE"TO (1)SQ1214.
0286020       00 TO08SEQ-FAIL-014.2
02800READ INVALID GO END-E-1SQ12143030OPEN Q-FS5SQ12142
0080   CORRECT-18V0SQ1214
080       0440PERFORM .SQ1214
3  ()O               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029100     ACCEPT7      PASSSQ1214
220     REWRITE  INVALID GOTO40      "VERIFIED "TO                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029300 END-E-1.                                                         590MOVE TO.0400.SQ1214
090CLOSE.
50OPENOUTPUT                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0260CCVS-PGM-IDTEST-ID CCVS-PGM-IDID-AGAINSQ1214
029700     MOVE    SPACE TO TEST-RESULTS.                               400ADD 50PERFORM.                                                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0280     00CLOSE..                                                .
0SQ12140530MOVE SQ-FS5..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0  9TIMES
00 49 MOVE EOF-FLAGSQ1214
00ADD1TO.SQ1214
0303470     PRINT-DETAILSQ1214540           WRITE-LINE      FILESQ-FS58CLOSE.02REWRITE-TEST-GF-01
30                   (REC-SKL-SUB4500     HAS BEEN0 .                                            .2
30 .                                                  .2
00GOCCVS1-EXITSQ1214
030700 CLOSE-FILES.                                                     SQ1214.2
00PERFORM .PRINT-FILE
307      PDATE-NUMBER
0 0 AND  FILE             .
31   INVALID TOSQ1214
0312000500400REWRITE                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0313050REWRITE-TEST-GF-02SQ1214
03140MOVE    C-ALL.2
03156501TOSQ1214
031600     MOVE040GO 6     COUNT-OF-RECORDS.
70     INSPECT-COUNTER.                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0 RAW-DATA-SATZ0  50SQ1214
031900 END-E-2.                                                         5           " THAN 550 RECORDS" TO                 SQ1214
032000     CLOSE RAW-DATA.                                              50      1TO.                                         .2
20                                                   2
0320EXITPROGRAM0
20 .49         TO.                                      .2
20          RUNSQ12142
03250INSPT "" TO10052100 REWRITE-TEST-GF-01-11                                    .
  P-OR-F1TO1ADD  RECORDS-IN-ERROR.
3270FAIL70GO SEQ-TEST-014.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
38 DE-LETE7java.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 80
0329040 Ojava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033000 PRINT-DETAILSQ1214
033100     IF20700      SQ-FS5-UPDATETO .2
033200             MOVE "590MOVECOUNT-OF-RECORDS TO06 SEQ-TEST-014. 5710 GOTO EWRITE-TEST-GF-02 SQ1214.
330             MOVE REC-CT 0                               SQ1214
0530GO .SQ1214
033500     IF05310 REWRITE-PASS-GF-01SQ121450REWRITE-TEST-GF-02-1SQ1214
033600        PERFORM 490GO SEQ-PASS-0145       1)NOT EQUALTOSQ1214
400MOVE53      PASS2
033800     40 .                                                    .2
RRECT-X
034000     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME      070030      "TO PAR-NAME. SQ1214.
      TOSQ1214
0790030053600     PERFORMSQ1214
0340080   RECORDS-IN-ERROR.
034400     MOVE CCVS-H-2 TO DUMMY-RECORD0380     MOVE1       REWRITE-TEST-GF-02.204870      PASS.2
0400      CCVS-H-30300TOPRINT-REC.
034600 0PERFORM.                                     .
0 DUMMY-RECORDPERFORM.SQ12143        EQUAL50                         SQ1214
002 CLOSE SQ-FS5SQ1214
034900     MOVE HYPHEN-LINE0      "" TO530 .                                             .2080MOVE=TO COMPUTED-A.
SQ1214
0350540     MOVERINT-DETAIL.SQ1214
3200END-RTN-EXITSQ1214
0330MOVE TODUMMY-RECORD.P WRITE-LINE2TIMES.SQ1214
030 TO.                                     2
035500      080          " IN READING " TO RE-MARK490                                             .
36        1                                2
035700      ADD PASS-COUNTER0     MOVE TO RECORDS-IN-ERROR.2
035800*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   SQ1214.2
035900      MOVEPASS-COUNTERTOCCVS-E-4-1.                            SQ1214.2
036000      MOVE ERROR-HOLD TO0GO REWRITE-FAIL-GF-02SQ12142
310MOVE TOCCVS-E-2-2REWRITE-PASS-GF-02.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036200      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           SQ1214.2
036300090      TO.                                   .2
3090 .SQ121400       TEST  TENTHSQ1214
5                                2
036570           " THAN 50RECORDS"55300  THRU .          java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036700         ELSE050G  REWRITE-TEST-GF-01-1SQ1214
0800         MOVE  TOERROR-TOTAL.2
036900     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           SQ1214.2
070      WRITE-LINESQ1214
037100 END-ROUTINE-13.                                                  SQ1214.2
037200     IF DELETE-CNT IS EQUAL TO ZERO   UPDATE-NUMBERjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
3          " "  ERROR-TOTAL.
0700        MOVEDELETE-CNT ERROR-TOTAL630CLOSE.                                                .
0306000 TERMINATE-ROUTINESQ1214
03760      CCVS-E-2 DUMMY-RECORD WRITE-LINESQ1214
037700      IF   INSPECT-COUNTER EQUAL060          GO00SECTIONSQ1214
370MOVENO057      UPDATE-NUMBERNOT   SQ1214
03790      037900      ELSE  TOREAD-SQ-FS5-EXIT.2
3600GOTO
03810051600      EOF-FLAG TO                                       SQ1214
0320MOVE TODUMMY-RECORD WRITE-LINE51           TO.SQ1214
03830W.                                                      .2
03800       TO520 1TORECORDS-IN-ERRORSQ1214
038500     IF RECORD-COUNT GREATER 50                                   SQ1214.2
038600         MOVE DUMMY-RECORD TO DUMMY-HOLD                          SQ1214.2
03870         MOVE SPACE5200     XIT                                                       .2
0380          DUMMY-RECORD0570     IFUPDATE-NUMBER) EQUAL 1                          .2
03890 CCVS-C-1TOPERFORM WRT-LN.2
039000         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN00230       GOOREWRITE-PASS-GF-01SQ1214.
3910          HYPHEN-LINEDUMMY-RECORD WRT-LNSQ12142
0920          DUMMY-HOLD DUMMY-RECORDSQ12142
0390         OVE TO RECORD-COUNT.                               80      1  RECORDS-IN-ERRORSQ1214
0580GOTOREWRITE-TEST-GF-02                                    SQ1214
039500 WRT-LN0570      "55 RECORDS SHOULD BE READ E-MARK SQ1214.
0820EWRITE-TEST-GF-02-2.2
039700     MOVE SPACE530     IF20     COUNT-OF-RECORDS                       2
30BLANK-LINE-PRINT0     TO
0399000PERFORM THRU.  PRINT-FILE.2
040000 FAIL-ROUTINE.                                                    SQ1214.2
0410IF NOTEQUALSPACE    .
0020     IF570GOTO.                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040300     MOVE "NO FURTHER08..
040400     0560 .SQ1214
000" IN ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
40
470MOVE  PERFORM SQ1214
010      INSPECT-COUNTER 090REWRITE-PASS-GF-02.2
490FAIL-ROUTINE-EX00   KEY TO.            SQ1214
0410 BAIL-OUT.2
041100     IF COMPUTED-A NOT EQUAL TO SPACE GO TO5650                                             SQ1214
0410     IF QUAL SPACE java.lang.StringIndexOutOfBoundsException: Range [57, 56) out of bounds for length 80
010 .SQ1214
5- SQ1214
MOVE . WRITE-LINETIMES.SQ1214
0410 BAIL-OUT-EX.SQ1214
041700 032300 TERMINATE-CALLSQ1214.
041800     EXIT.                                                        SQ1214.2
041900 SECT-SQ-115-0001 SECTION.                                        000MOVE  SQ-FS52   "INSPT"TO ADD1TO.SQ1214
4200 java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
042100     MOVE "SQ-FS5"0602050           1  OF-FLAGSQ1214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
420MOVE"TO (1.SQ1214.2
042300     MOVECCVS-PGM-IDTOXPROGRAM-NAME (1)                       .000TERMINATE-ROUTINE.2
006TO.2
042500     MOVE020     EXIT.2
50        THAN0SQ1214
042700     MOVE0055  RECORDS-IN-FILE.SQ1214
042800     MOVESQTO030033100     TO.                                           2
04290     MOVE"TOXLABEL-TYPE().SQ1214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03000     MOVE000 XRECORD-NUMBER.SQ12142
043100     OPEN OUTPUT3340MOVE TOPRINT-REC WRITE-LINE.2
0420     MOVE030        TO""FAILPERFORMWRITE-LINESQ1214
4330 .                                                    SQ1214
030MOVE(1)  .              .2
043500     MOVE "FIRST " TO03800     MOVESPACE P-OR-F. MOVESPACE COMPUTED-X0600     IFXFILE-NAME)  EQUAL  "SQ-FS5 SQ1214..2
043600     WRITE SQ-FS5R1-F-G-126.                                      SQ1214.2
4370ADD COUNT-OF-RECORDSSQ1214
043800     IF COUNT-OF-RECORDS EQUAL TO 550                             SQ121404000     IFREC-CT 530GTO.                               2
-.                                    SQ12142
044000     ADD 00 .060                                              2
40GO.SQ1214
044200 SEQ-WRITE-013.                                                    CCVS-H-2DUMMY-RECORD  5 TIMES.2
0443360.                                            2
044400     MOVE "SEQ-TEST-013" TO PAR-NAME80ADD1T                                2
0450      "FILE CREATED, RECS ="0590         GOREWRITE-TEST-GF-02                               .2
04460704     HYPHEN-LINEDUMMY-RECORD .SQ1214
044700     PERFORM PRINT-DETAIL51GOTO.                               SQ1214
001MOVE  DUMMY-RECORD WRITE-LINE.SQ1214
044900*         A SEQUENTIAL MASS STORAGE FILE WITH 126 CHARACTER       SQ1214.2
045000*    RECORDS HAS BEEN CREATED.  THE FILE CONTAINS 550 RECORDS.    SQ1214.2
450 .                                                    SQ121450 .                                            .2
40     MOVE ZERO COUNT-OF-RECORDS.                               .00 RECORDS-IN-ERROR
045300*        THIS TEST READS AND CHECKS THE FILE CREATED              SQ1214.2
045400*    IN SEQ-TEST-013.                                             SQ1214.2
04550      INPUT SQ-FS5SQ-FS5SQ1214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0450 SEQ-TEST-014SQ121450     ADDERROR-COUNTER ERROR-HOLDADDINSPECT-COUNTER       SQ12142
045700     READ SQ-FS5 AT END                                           SQ1214360      ERROR-HOLD DELETE-CNT ERROR-HOLDSQ1214
050           TO.SQ1214
045900     ADD 1058100     GO TO .                                    SQ12142
2
046100     IF COUNT-OF-RECORDS GREATER THAN 550                         SQ1214.2
04600        MOVE-TO.SQ1214
046300         GO TO SEQ-FAIL-014.                                      SQ1214.23600      MOVE TO CCVS-E-4-2SQ1214080          "LESSTHAN 5 RECORDS" TO                  SQ1214
030       CCVS-E-2 DUMMY-RECORD WRITE-LINE.
046500036300  END-ROU.                                                 .2
460GOSEQ-TEST-014java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04670     IF8     FRECORDS-IN-ERROR  ZERO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0680         ADD 1 TORECORDS-IN-ERRORSQ1214360         "NO SQ12142
0630ELSE.
04709          RECORDS-IN-ERRORjava.lang.StringIndexOutOfBoundsException: Range [78, 72) out of bounds for length 80
04710070 .                                          .2
420GOSEQ-TEST-014SQ1214.2
047300     IF SQ-FS5-UPDATE 02      DELETE-CNT  TOSQ12140PERFORM PASS                                                SQ12140MOVE ERROR-TOTAL.2
04740           SEQ-TEST-014SQ1214
047500     ADD 1 TO RECORDS-IN-ERROR.                                   SQ1214.2
047600     05950     GOTOREWRITE-WRITE-GF-02.                                   360MOVE TODUMMY-RECORD WRITE-LINESQ1214
0700SEQ-TEST-014-1.2
047800     IF RECORDS-IN-ERROR EQUAL           NO ERROR-TOTAL.2
047900         GO90       MOVE TO.                   SQ1214
400     MOVE" IN READINGSQ-FS5 SQ12142
04800SEQ-FAIL-014SQ1214.2
048200     MOVE "RECORDS IN ERROR =" TO COMPUTED-A.                     .2
048300      RECORDS-IN-ERRORTO.                       5970     PERFORM FAIL.2
048400     PERFORM FAIL.                                                30 WRITE-LINE                                                      .2
048500     GO TO SEQ-WRITE-01490      "RWRT-TEST-GF-02"  PAR-NAME                          .2
048600 SEQ-PASS-014.                                                    SQ1214.2
04800     PERFORMPASSSQ1214.2
048800     MOVE "FILE VERIFIED RECS =" TO COMPUTED-A.                   SQ1214.2
04890      COUNT-OF-RECORDS CORRECT-18V0.                      .2
00.
" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00      "VERIFY FILE SQ-FS5 TO SQ12142
0930     PERFORM.                                        SQ1214
049400 SEQ-CLOSE-014SQ1214.2
049500     CLOSE SQ-FS5.                                                SQ1214.2
0960310         MOVEHYPHEN-LINE DUMMY-RECORD PERFORMWRT-LN.2
049700     OPEN I-O SQ-FS5.039200         MOVE DUMMY-HO TO DUMMY-RECORDSQ1214
049800     MOVE ZERO330          ZEROTO.                               SQ12142
049900     MOVE ZERO TO 090      .SQ1214
050000*        THIS TEST REWRITES EVERY TENTH RECORD                    SQ1214.2
050100*    OF THE FILE SQ-FS5.                                          SQ1214.2
0.SQ1214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050300     PERFORM READ-SQ-FS5 THRUBLANK-LINE-PRINT.SQ1214.2
050400     IF EOF-FLAG EQUAL TO 1                                       SQ1214.2
050500          GO TO REWRITE-TEST-GF-01-1.                             SQ1214.2
050600     MOVE TO FILE-RECORD-INFO-P1-12040FAIL-ROUTINESQ1214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00        UPDATE-NUMBER SQ121400 .                                                     .2
0  ) ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
9SECOND2
051000     REWRITE44      XXINFODUMMY-RECORD  2 TIMES     .2
0000      TO.                                       .2
051200 READ-SQ-FS5.                                                     SQ1214.2
051300     IF EOF-FLAG TEST-CORRECTPRINT-REC 2TIMES.2
051400          GO TO READ-SQ-FS5-EXIT4090 FAIL-ROUTINE-EX.                                           .2
0510     IF  NOT EQUAL  SPACE TO.       SQ1214
051600IF EQUAL TOSQ1214
051700          GO TO
00 TO.                                   .2
10READ-SQ-FS5-EXITSQ1214
052000     EXIT.                                                        SQ1214.2
052100 REWRITE-TEST-GF-01-1.                                             .                                                      SQ1214
052200     IF10SECT-SQ-115-0001.                                        .2
052300         GO TO REWRITE-PASS-GF-01.                                SQ1214.2
0540 .                                              SQ1214
0200MOVE .2"TORE-MARKSQ1214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
560     PERFORM FAIL                                                .2
0270     MOVE5 SHOULD READ TO RE-MARK                SQ1214
052800     MOVE "RECORDS READ =" TO COMPUTED-A40 000  XBLOCK-SIZE)                                .2
50     MOVE COUNT-OF-RECORDS TO.                       .2
053000     GO TO0MOVE  XFILE-ORGANIZATION.SQ1214
053100 REWRITE-PASS-GF-01.                                              SQ1214029      "S"TO (1)                                 .2
053200     PERFORM PASS.                                                SQ1214.
5300REWRITE-WRITE-GF-01SQ1214
053400     MOVE "RWRT-TEST-GF-01" TO PAR-NAME.0430     MOVE TO COUNT-OF-RECORDSSQ1214
030      "REWRITE SQ-FS5"TO.                       .2
03600PERFORM.                                        SQ1214
07      PERM-ERRORSTO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053800     MOVE "PERMANENT ERRORS ENCOUNTERED ON PREVIOUS030 ADD COUNT-OF-RECORDS. SQ1214.2
053900          TO     IFC EQUAL 55                             .2
05400           WRITE-LINESQ1214
054100 REWRITE-CLOSE-GF-01.                                             SQ1214.2
054200     CLOSE SQ-FS5.                                                0GO SEQ-TEST-013SQ1214
054300 REWRITE-INIT-GF-02.                                              SQ1214 .                                                   .
054400     MOVE ZERO TO COUNT-OF-RECORDS.                               40MOVE  PAR-NAMESQ1214
0550MOVE
050 INPUT.                                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
054700*        THIS TEST READS AND CHECKS THE FILE WHICH WAS            SQ1214.2
054800*    REWRITTEN IN REWRITE-TEST-01.                                SQ1214.2
054900      ZEROTO.                               SQ12142
055000     MOVE ZERO TO LOOP-COUNT.                                     SQ1214.2
055100 REWRITE-TEST-GF-02.044900*         A SEQUENTIAL MASS STORAGE FILE WITH 045000*    RECORDS HAS BEEN CREATED.  THE FILE CONTAINS04500 .                                                    SQ12142
055200     READ SQ-FS5  END                                             SQ1214.2
055300          MOVE 1 TO EOF-FLAG                                      00 .                                                    .2
055400          GO TO REWRITE-TEST-GF-02-2.                             050 GO SEQ-TEST-014-1SQ1214
0550ADD  COUNT-OF-RECORDSSQ1214
055600     IF COUNT-OF-RECORDS GREATER THAN 550                         SQ1214.2
055700          MOVE "MORE THAN 550 RECORDS"04610     IFCOUNT-OF-RECORDS THAN 50                         SQ1214.2
5580          GO REWRITE-FAIL-GF-02SQ1214
055900     ADD 1 TO LOOP-COUNT04630         GO SEQ-FAIL-014.                                      .2
060     MOVE TO (.SQ1214
056100     IF XFILE-NAME (1) 0650           RECORDS-IN-ERROR.2
056200          ADD 1 TO RECORDS-IN-ERROR                               SQ1214.2
TO REWRITE-TEST-GF-02SQ1214
056400     IF LOOP-COUNT EQUAL TO 10                                    SQ1214.2
05500MOVEZERO LOOP-COUNTSQ1214.2
056600          GO TO REWRITE-TEST-GF-02-1.                             SQ1214.2
0670      UPDATE-NUMBER()  EQUAL TO                       SQ12142
056800          ADD 1 TO RECORDS-IN-ERROR                               SQ1214.2
0569004690          TO                                      .2
500      SQ-FS5-UPDATE  "FIRST SQ1214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01           TO.SQ1214
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
57500     IFUPDATE-NUMBER)NOT TO 1                          SQ1214
560           1 TO RECORDS-IN-ERRORSQ12142
057700          GO TO REWRITE-TEST-GF-02.                               SQ1214.2
578IFEQUAL "" SQ12142
05790004700 SEQ-TEST-014-1SQ1214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
80     ADD   RECORDS-IN-ERROR SQ12142
058100     GO TO REWRITE-TEST-GF-02490GOTO SEQ-PASS-014SQ1214
058200 REWRITE-TEST-GF-02-20      "ERRORS READINGSQ-FS5 .
0530IF NOTTOSQ1214
5840MOVE THAN50 RECORDSRE-MARK
5           TO.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" TOSQ1214
059000         MOVE "RECORDS . SQ1214.2
059100         MOVE490     MOVE TOCORRECT-18V0SQ1214.2
059200GO REWRITE-FAIL-GF-02                                .2
059300REWRITE-PASS-GF-02SQ1214.2
059400     PERFORM PASS.                                                SQ1214.2
059500     GO04920     MOVE" FILE SQ-FS5" TO FEATURESQ1214
059600 REWRITE-FAIL-GF-024930      PRINT-DETAIL                                        .2
059700     PERFORM FAIL.                                                SQ1214 SQ-FS5.2
059800 REWRITE-WRITE-GF-02 .                                              SQ1214
90      "" TO.                          .2
060000     MOVE "VERIFY FILE SQ-FS5" TO050100*    OF THE FILE SQ-FS5.                                          SQ1214.2
000      PRINT-DETAILSQ1214
060200 REWRITE-CLOSE-GF-02.                                             SQ1214.2
060300     CLOSE SQ-FS5.                                                SQ1214.2
0650      1TO (1.                                  .2
6050EXIT.                                                        .2
060600 CCVS-EXIT.                                               SQ12142
060700 CCVS-999999.                                                     SQ1214.2
060800     GO TO CLOSE-FILES05100     REWRITESQ-FS5R1-F-G-126                                    .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.28Bemerkung: ¤

*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.