SSL sq121a.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         SQ1214.2
000200 PROGRAM-ID.                                                      SQ1214.2
000300     SQ121A.                                                      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                                                                  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
0002600000900*    CREATION002700*    PERMANENT0002800*    ARE TREATED AS INFORMATION ITEMS001100*                                                              002900*                                                                 SQ1214.2
004000 CONFIGURATION SECTION.                                           001400*         THE003400*         XXXXX0820001500*    PROCEDURE ON I-O.  SQ121A001600*    WITH0003500*         XXXXX083001700*        THIS ROUTINE CREATES001001100*                                                              *  SQ1214001900*    FILE IS 002000*    003600*     C   002100*    AGAIN00120002200*    00130SQ12140020300                                                                 .2
004100 SOURCE-COMPUTER.                                                 SQ1214.2
00003300*     P000CONFIGURATIONSECTIONSQ1214
004300 OBJECT-COMPUTER.                                                 SQ1214.2
004400     Card0131.                                                    SQ1214.2
00450  SECTIONSQ1214
004600 FILE-CONTROL.                                                    SQ1214.2
004700     SELECT RAW-DATA   ASSIGN TO                                  SQ1214.2
004800     "C0098"                                                      SQ1214.2
0030 OBJECT-COMPUTERSQ1214.2
005000            ACCESS MODE IS RANDOM003900 ENVIRONMENT DIVISION.                                            040     .                                                    2
005100            RECORD KEY IS RAW-DATA-KEY00400 CONFIGURATION080""
005200     SELECT PRINT-FILE ASSIGN TO                                  SQ121446FILE-CONTROLSQ1214.2
0030     C0085SQ1214
0420Card0130SQ12142
005500     "C0020"                                                      SQ1214.2
5 PRINT-FILE SQ1214             MODERANDOMQ1214
     SEQUENTIALSQ1214
005800     FILE STATUS IS STAT-GROUP.                                   SQ12140 FILE-CONTROL                                                    .2
005900  DIVISIONSQ1214.2
006000 FILE SECTION00050" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010SQ1214.2
0FDRAW-DATASQ1214
0600SQ1214.0050     ORGANIZATIONSQ1214
006400 01  RAW-DATA-SATZ.                                               SQ1214.2
0050     0          PIC600                                             .2
0060005  C-DATE 96.SQ121450ACCESSMODE RANDOM.2
0060      C-TIME ()                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006800     05  C-NO-OF-TESTS       PIC 99.                              SQ1214.2
006900     05  C-OK                PIC 999.                             SQ1214.2
007000060   RAW-DATASQ1214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007100     05  C-FAIL              PIC 999.                             SQ121403                                                                  00 0  .                                               .2
007200     05  C-OK9.SQ1214
007300     05  C-INSPECT           PIC070     5C-ALL                99.SQ1214
0070     5C-NOTE00
07000  C-INDENT9.SQ12142
60 C-ABORT9.                             2
007700 FD  PRINT-FILE                                                   00004005C-NOTEPIC3.SQ1214
007800     LABEL000800*                                                              .                                                    .2
00790                                                          java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00800     DATARECORD                          40*           SQ121ATESTSUSE 010*PROCEDURE .  SQ121A BASICALLYAREWRITE
008100               .                                                  00010*FILEIS CLOSED 001900*    FILE IS CLOSED AND OPENED   THE FILEIS AND OPENED.0020*    AGAIN  ANINPUTO02200    TOENSURE THAT0230080      RECORD04*THESTATEMENTTHE SECTION020*NOT ANEND .EOFIS00*     AN  INTHEDECLARATIVE007*     ENCOUNTERED HE             SQ12142
8 1PRINT-REC X(2)                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008300800     5  C-NO-OF-TESTSPIC 9.                              .2
00800FD                                                        SQ12142
0800LABEL STANDARDSQ1214.
008600               .                                                  SQ1214.2
0870  .
0800  PICTURE                              .2
80     2SQ-FS5-UPDATE7400C-NOTEX1)                           SQ1214
00900 WORKING-STORAGE50043OBJECT-COMPUTERSQ1214
0100 01  COUNT-OF-RECORDS PIC S95) COMPUTATIONALSQ12142
090000java.lang.StringIndexOutOfBoundsException: Range [11, 1) out of bounds for length 80
0300  ERROR-FLAG9.SQ1214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009400 01  STAT-GROUP                                                  .2
0900
06     INPUT-STAT2SQ1214
090 1EOF-FLAG 9  0.                             SQ1214
098001 PERM-ERRORS       PIC 9 VALUESQ1214
009900 01  LOOP-COUNT6002020 0  PICTURE10.0090ORGANIZATIONIS SQ1214
01FILE-RECORD-INFORMATION-RECjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010100     03 FILE-RECORD-INFO-SKELETON.                                SQ1214.2
0120        0 0980 1PERM-ERRORS9 0                             SQ1214
100             FILE=/,=000UPDT2
1400                   X(46)VALUE2
150             ,ODO     =00,  00"SQ1214.2
           6VALUE
010700             050     C0020SQ121400FILLERX48SQ1214
0             ==     ,000UPDT
194 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1005PICTURESQ1214
10,=                                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011200        05 FILLER01   ,=             2
011020    ()  ERO
110         030 ERROR-FLAG SQ1214
011500     03 FILE-RECORD-INFO          00400  0105                 X8VALUE
011060     1060SQ121460103         0.SQ1214
10                X).2
1800            PIC()SQ1214
011900           07 FILLER              PIC X(8).                       00005               (..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012000           07 09800 01  PERM-ERRORS000                      ()                      SQ1214
012100           07 FILLER00             PICSQ1214
207REELUNIT-NUMBERSQ1214
012300           07 FILLER              PIC X(7)05     5            PIC01..2
012400           07 XRECORD-NUMBER           70  SQ121402java.lang.StringIndexOutOfBoundsException: Range [15, 14) out of bounds for length 80
012500           07 FILLER              PIC X(6).                       SQ1214.2
20                (.SQ1214
012700           07 FILLER0Card0132          PIC.2
219FILLERX.SQ1214
107FILLER ()SQ1214
010
RPIC.SQ1214
013200           0700 0XRECORD-LENGTHjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
07PIC                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10          PIC.2
030FILLER 1.Q1214
0107 XBLOCK-SIZE)                      .2
013700 013700           07 FILLER              .
10            RECORDS-IN-FILE.SQ1214        5FILLER ()VALUE2
01900810     FILE-RECORD-INFO0 TIMES.2
014000160       5FILE-RECORD-INFO-P1-120SQ1214000WORKING-STORAGE.                                         SQ1214
00400FILLERPIC6SQ1214
042007XLABEL-TYPE1200           PICX)SQ1214110                          PIC)
0300 FILE-RECORD-INFO-P121-24020REELUNIT-NUMBER)                      2
14100FILLER()                       .
120           7XRECORD-NUMBER ()                      .2
1600FILLER1500 PIC Q1214
010           7      PIC10java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 80
00           FILLERX.SQ1214
014900           07 ALTERNATE-KEY2      PIC X(29).                      SQ12140           7ODO-NUMBER94.SQ1214
0100                X7).SQ1214
100SQ1214
500                        SPACE.2
015300     02 FEATURE2FILLER V SPACE.2
015400     02 FILLER                    53     2FEATURE(0VALUE.2
00                         .
16                           XVALUE0FILLERX7                       2
10     PAR-NAME60                       SPACEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
83PICTURE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0100 X .
016000       03 DOTVALUE PICTURE000"=0000 ,=.2
1java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for length 80
016200     02 FILLER1RECKEY2
016300     02 RE-MARK PIC 016200     02 FILLER PIC X( PICTURE.2
600  .SQ1214
0500     02FILLER X(30)  SPACE0101TEST-COMPUTED.
066     2FILLER X1)VALUE=03 " .SQ12142
0670       FILLERPIC1.SQ1214
016800     03 COMPUTED-A013600           07 XBLOCK-SIZE           0600FILLERX1              .              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016      600   9.9 ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0java.lang.StringIndexOutOfBoundsException: Range [12, 11) out of bounds for length 80
700  REDEFINES 94.(4000XFILE-ORGANIZATION(..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0110007XRECORD-NAME6.SQ1214
017300     03       CM-18V0 REDEFINES       REDEFINES  PICTURE100                ().2
1000           ICjava.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
017500         04 FILLER                          PICTURE01740         4                    9(8)040        50400         96                     .
7     3FILLER 5)16                   PICSQ1214
  .SQ1214
10FILLERX3  SPACE04007FILLER()                       2
070     2 FILLER X1)VALUE017900     02 FILLER PIC X(17) VALUE "       CORRECT
01000
080300               X7 SQ1214
RECT-N800CORRECT-N -.9         .
0REDEFINES0
080018400     REDEFINES1.4  2
0800 CR-18V0.                         .2
0               (0  .     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
100PICTURE2
0180         307PIC                       .210   SQ1214
01040           7XFILE-ORGANIZATION)SQ1214002  .                                                1 00       0  PICTURE(2 SPACESQ1214
019000 01  040        5FILE-RECORD-INFO-P121-240  PICTURE9 ZERO
11002  IS9007FILLER (8                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0920-060 2016200     02 FILLER
13-REMARKS
019400     0104 1.                                               216           7FILLER00FILLERIS60FILLER (V.SQ1214
019500 01040           7FILLER X()                       0    .SQ1214
10  PICTURE  IS.                       .2
17000            PIC)                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1800  PICTURE1ISSQ1214
090       PICTURE03   PICTUREZERO
0
0   PICTURE10  9  .
2200  9  .                             2
100                                                       2
2
2500   PIC9 VALUE.                          .2
001PIC java.lang.StringIndexOutOfBoundsException: Range [43, 42) out of bounds for length 80
00001TOTAL-ERROR ZERO
000 1ERROR-HOLD ZERO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
001  PIC .                           2
UNT10      .
0
10  PICTURE  2
021300     02 FILLER PICTURE X000  .26    PICTURE  2
040 060       PICSPACE.
210-""
SQ1214
000                      -(8.SQ121420"FSTCCOPY, NOT084 . 2
021103REDEFINES-9.0     FILLERX1)S TEST   SQ1214
290CCVS85.SQ1214
022000     0202 2 ISVALUE.2
21002TEST-IDX9                                  .2
022200     0  PICTURE   (                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2301CCVS-H-3260     02  X5 SQ1214
022400     01500                            X.            .2
025     FOR02-" SQ12142
26200FILLER9-"REMARKS. SQ1214.java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 80
270     020          9 ..2090   2 PICTURE)  .                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028002FILLERX()VALUE
0006     FPICTUREIS.SQ1214100  PICTUREX2  ISSPACE0900FILLERX) ISTESTED
2000                                                    2PICTURE (4   "END EST- . SQ1214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030 004000FILLERPICTUREX( VALUE                             2
220     0 FILLER PICTURE X(1) VALUE " OF TEST- .SQ12142
023300     02 ID-AGAIN60 01CCVS-E-2SQ1214
2340     02 FILLERPICTURE(5)VALUE                             SQ1214030PICTURE()VALUE
230  DISTRIBUTION.SQ1214
023600 01  CCVS-E-2.                                                    SQ1214.2
027002FILLER (1 .     .
023800     SPACE.                                                       002.                                               0000160       REDEFINES.SQ1214
290     2                   X2)VALUE.SQ1214
024000     2 CVS-E-2-2SQ1214
024100         03 ERROR-TOTAL PICTURE IS ISZERO1000400 PICX()VALUEENCOUNTEREDSQ1214
02420050001INSPECT-COUNTER9090     2FILLER ISX()VALUE  EATUREjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
    3 4  " "      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040   CCVS-E-3SQ1214
090 1CCVS-C-2SQ121460       OFFICIAL.                                   .
0460        ".SQ12142
024700     02  0160     2FILLER IS2802FILLERX58VALUE229001DUMMY-HOLDPIC(0  .                           2
04800090ON-SITE INSTITUTE &TECHSQ1214
290     " VALIDATION0500 220 1CCVS-H-1.SQ12142
020     2102FILLER ISX(IS""                  .2
0 PICX(5VALUECOPYRIGHT9" .Q1214.2
05000      FILLER IS X() VALUE SPACESQ1214
2002FILLER XXXX  ".SQ1214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0400 PIC22 R PICTURE VALUE.                                2
256 2 PIC)SQ1214
025600     02 FILLER202002      X2VALUE
0  EXECUTED                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
81
20       X3)VALUE        *INFORMATION**.   2
026000     02 INFO-TEXT20     02FILLER PICTURE X(02001ERROR-HOLD 99  ZERO                               .2
2604FILLERX(2)VALUESQ12142
026200     04 XXCOMPUTED PIC X(20).                                     SQ1214.2
026300     04 FILLER PIC010001  RECORD-COUNT 9(5 VALUE0260     4XXCOMPUTED X2)                                    2
00     XXCORRECTX(2)                                      2
06000  .SQ1214.2
02600   X IS.                       20 0  HYPHEN-LINESQ1214
270     0FILLERISX(5  IS "*****010 "FEDERAL TESTING  VALIDATION2
280-    "********************S ************SQ1214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0*********2
027000-    "******************************".                            SQ1214.2
0710 1  CCVS-PGM-ID X(6)030     PICTUREIS (  ISSPACE.2
027200"SQ121A"                                                    023200-   "**************"                           SQ1214
7  DIVISION200   IS1240     2ILLER()  IS.2
07030PROCEDURESQ1214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
001 SECTIONSQ1214.2
027600     USE02220     02FILLERPICTURE X(40) VALUE SPACE                   .2
0700I-O-ERROR-PROCESSSQ1214
027800     IF INPUT-STAT1 EQUAL TO 02380     SPACE2700SECT-SQ121A-0001                                        .2
02700 1 .                                     .2
028000     IF INPUT-STAT10020       OFFICIAL70I-O-ERROR-PROCESS2
0810          MOVE26     0  PICTURE(8 VALUESQ1214
0290           1 TO20           PICTURE X  SVG".java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80

080.SQ1214
2500OPEN RAW-DATA                                           .2
28000  PICTURE ( VALUE SPACESQ1214
028700     READ RAW-DATA INVALID3023 CCVS1 SECTION.2
2880      "ABORTED "TO.                                  0280OPEN-FILES00      FORU.SQ1214
020300 FILLERPICTURE4 VALUE                             SQ1214
02900260      CCVS-PGM-ID  RAW-DATA-KEY.                            .2
ACCEPT  FROM.048002 PICTURE5)                                SQ1214
09028230     0FILLER X3)(1)VALUESQ1214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20.SQ1214
0java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 80
00200ERROR-TOTAL  VALUEISSPACE            .2
2        TEST-IDID-AGAIN2
029700     MOVE    SPACE TO20         ENDER-DESC) ENCOUNTERED
8  COLUMN-NAMES-ROUTINE30  PIC .                           .2
09     ZEROSQ1214
000     PERFORM CCVS-INIT-FILE.                              SQ1214
5090     CCVS-PGM-IDTEST-ID  TOSQ1214
000070       TESTSEXECUTED.SQ1214
330MOVE20   .
0300                   (REC-SKL-SUB                 SQ1214
030500 CCVS-INIT-EXIT90MOVE TO REC-SKL-SUBSQ1214
360GO  CCVS1-EXITSQ12142
030700 CLOSE-FILES025900     2FILLERPIC X(30)VALUE        *050 1SQ1214
1
30OPEN                                           2
-ID RAW-DATA-KEYSQ1214
3110     READ05000 PIC (40 VALUESQ1214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03100MOVE60008 1X.                                                     2
0000CCVS-INIT-EXITSQ12142
031400     MOVE ERROR-HOLD   TO C-ALL0      TOCCVS1-EXIT60    java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 80
03150     MOVE TO C-FAIL.2
01 DELETE-CNT C-DELETED600 XXCOMPUTED (0.                                     2
0OVEINSPECT-COUNTER200     4FILLER X(5 VALUESQ1214
031030SQ1214
09 .                                                         4 RAW-DATA-SATZ.2
2
31 .                                                  .2
032200     EXIT.                                                2
030TERMINATE-CALLSQ1214.
0240     STOP.                                                70-"***********080 5C 9. SQ1214.2
02500 000    ***************.                           .
3200PASS "PASS"TO.  ADD 1  PASS-COUNTER.           SQ1214
22     SQ121ASQ1214
032800 DE-LETE2300PROCEDUREDIVISION.                                              SQ1214
0900MOVE*DELETED.                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0PRINT-DETAIL5SECT-SQ121A-0001.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
310 70   C-INDENTSQ1214
00     5             PICSQ12140I-O-ERROR-PROCESSSQ12140
0 REC-CTSQ1214280     IF INPUT-STAT1.SQ1214   .
30MOVEPRINT-REC      .
033500008300    PICTURE)                                 SQ1214   PERM-ERRORS2
0336000   SQ1214
030            BAIL-OUT .                 SQ1214
030       P-OR-FSPACECOMPUTED-X.2
033900     MOVE SPACEOPEN-FILESSQ12142
20I-OSQ1214
01     SPACE.
020.SQ1214
034300     MOVE CCVS-H-1 TO80     00  .SQ1214901RECORDS-IN-ERROR 080   C-NO-OF-TESTS
040MOVEODUMMY-RECORD5TIMES
3029100     ACCEPT  TIME2
3COLUMN-NAMES-ROUTINE.2
3400     MOVE20 REWRITE902      X.2
0400     MOVE.SQ1214
020ACCEPT  FROM.SQ1214
030END-ROUTINE.2
0351002920      RAW-DATA-SATZINVALIDKEY TO.             SQ1214
035200 END-RTN-EXITSQ1214
330MOVE TO.PERFORM  270MOVE TEST-RESULTS
30END-ROUTINE-1.                                    .2
0350ADD TO ADD INSPECT-COUNTER      SQ1214
0090 .                                                         000             " RECORD 0RECNO=000UPDT0"  SQ1214
03500 CCVS-INIT-FILE.2
035800*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   SQ1214.2
50      PASS-COUNTERSQ1214
036000      MOVE ERROR-HOLD00             LFIL=,="26 .MOVE040FILE-RECORD-INFO()SQ1214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03600MOVE TO0    COLUMN-NAMES-ROUTINE2
30      CCVS-E-2 WRITE-LINE0OVE REC-SKL-SUB
30  .SQ1214
030      "TESTS".SQ1214
30 1FILLER)SPACE
6MOVE
036700         320MOVE     100
03600         340MOVETO.                                  2
036       DUMMY-RECORD
037000     PERFORM WRITE-LINE.031600     MOVE DELETE-CNT TO C-DELETED.                                      SQ1214
070                                                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
320IF0        PIC6TO.
0373003200      PROGRAMSQ1214
30E-CALLjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
075      TEST TOSQ121430OPENRAW-DATA
36   TOWRITE-LINE
0370         INSPECT-COUNTER07               X)                      .java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
037800           "30 PASS-COUNTER TOC-OK .2
30        TO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
3000MOVE() INSPECTION.SQ1214
8MOVE012007 PIC.SQ1214
080MOVE 2 *TEST..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
31 0FILLERX.SQ1214
3010REWRITE KEY END-E-2REC-CTTO.2
350     1007PIC.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
DUMMY-RECORDSQ1214
003300FILLER(.
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0CTO             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30MOVE2EXIT THRU2
.2
039200         MOVEFILLER().2
  RECORD-COUNT.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039400     PERFORM0410MOVE TO07       X9                      2
09           7java.lang.StringIndexOutOfBoundsException: Range [40, 34) out of bounds for length 80
00 DUMMY-RECORD .SQ1214
090MOVE.SQ1214
9 .                                                4M     WRITE-LINE   SQ1214
039900PERFORM                                              2
0000FAIL-ROUTINESQ12140       TO.PERFORM.   SQ1214
407     2PAR-NAMESQ1214
000IF NOT  SPACE FAIL-ROUTINE-WRITEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
3000 9VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
  TO.  2TIMESjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040500     GO0040
00FAIL-ROUTINE-WRITE
4700MOVE  X1)VALUE.
035800*     IF PASS-COUNTER60COMPUTED-A0MOVETO0MOVE  .PERFORM      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
ROUTINE-EX0703COMPUTED-0V18  PICTURE1)      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010BAIL-OUTSQ1214
041100     IF070     0COMPUTED-14V4SQ1214
426 "S "TO                        2
404004COMPUTED-18V0)       2
440MOVE330MOVETO.2
041500     MOVE XXINFO 10     FILLER0SPACE2
0460. EXITSQ1214
01CCVS1-EXIT.2
0180     .                                                        .2

00.                                                    .2
41      SQ-FS5(.java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
020MOVE    PICTURE(.SQ1214
4..SQ1214
00    REDEFINES.
" 1SQ1214
7   EQUALSQ1214
7     00.SQ1214
0480MOVE XFILE-ORGANIZATION.200HYPHEN-LINE.  WRITE-LINE
04290380       "TEST(S)REQUIREINSPECTION TO .2
30 08        TO RITE-LINE
0002      PARAGRAPH-NAMESQ1214
MOVE TO.                               80WRITE-LINESQ1214
4100    2 PICTUREX(2)VALUE.                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043400     MOVE35600      ERRO. ADD DELETE-CNT  03800 DUMMY-RECORD  SPACESQ1214
043500     MOVE "FIRST " TO SQ-FS5-UPDATE.                              SQ1214.2
040     SQ-FS5R1-F-G-126.2
043700     ADD 1 TO COUNT-OF-RECORDS.                                   SQ1214900  PICTURE39        0390         CCVS-C-1DUMMY-RECORDWRT-LN
043  COUNT-OF-RECORDS TO 5                             .2
490GOSEQ-WRITE-013SQ1214
0400ADDTO (1.090MDUMMY-HOLD UMMY-RECORDSQ1214000  PICTURE()VALUE SQ1214
04400MOVE RECORD-COUNTSQ1214
0400 SEQ-WRITE-01303 1 ELETE-CNT94 WRT-LN.
4305 .
044400     MOVE360      NSPECT-COUNTERRECORD.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
COMPUTED-A.2
0400     090    PERFORM60
040PERFORM.                                        .
044800     0100  RECORD-COUNT PIC(5 TO SPACE  FAIL-ROUTINE-WRITE
044900*         A SEQUENTIAL MASS STORAGE FILE WITH 126 CHARACTER       SQ1214.2
045000*    RECORDS HAS BEEN CREATED.  THE FILE CONTAINS 550 RECORDS.    SQ1214.2
50SEQ-INIT-0142
045200     MOVE 0000MOVE TODUMMY-RECORD WRITE-LINE      SQ12142
045300*        THIS TEST READS AND CHECKS THE FILE CREATED              SQ1214.2
045400*    IN SEQ-TEST-013.                                             SQ1214.2
000MOVE PRINT-RECWRITE-LINE.2
50 .                                                    00FILLERX33 " ERROR-TOTALELSE SQ1214.
450     SQ-FS5 SQ1214
580GOSEQ-TEST-014-1SQ1214
490     ADD 041100     IF COM EQUAL SPACE BAIL-OUT-WRITE.2
0200      CORRECT-A   BAIL-OUT-EX
40     COUNT-OF-RECORDS 501 .SQ1214
0    ISSQ1214
    GOTO.                                      SQ1214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
60      COUNT-OF-RECORDS EQUAL XRECORD-NUMBER          .2
450         ADD TO                                2
020
40     "20 2FILLERPICTURE()VALUE2
060020  (1)                       2
046900         GO30 1CCVS-E-1.2
04700008503     2 PICTURE(  ISSPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0710         ADD 1ORECORDS-IN-ERRORSQ1214302 PICTUREIS(.                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04200          TO SEQ-TEST-014030     NTIS8".SQ1214.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
43007                        )            SQ1214
04 MOVE DUMMY-RECORD WRT-LN     SQ1214
0750      TORECORDS-IN-ERRORSQ1214
                                .2
070                                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0030MOVETO                               2
047900         0430SEQ-TEST-013SQ1214.2
04000MOVE" IN READING SQ-FS5"30     FILE-RECORD-INFO-P1-120T SQ-FS5-120              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80

0482 MOVE30WRITE                                     java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048300     MOVE RECORDS-IN-ERROR TO CORRECT-18V09426     FORONLY2
480PERFORM
048500     GO TO SEQ-WRITE-014.                                         SQ1214.2
048600SEQ-PASS-014SQ1214
0400     PERFORM
0880MOVEVERIFIED 2
048900     MOVE440MOVE TO .                             SQ1214
0490 SEQ-WRITE-014SQ1214
049100     MOVE "SEQ-TEST-014" TO400FAIL-ROUTINESQ1214.2
0490460     MOVE TOSPACETO.SQ1214java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03      .SQ1214
049400 SEQ-CLOSE-014.                                                   SQ1214.2
45 CLOSE
090REWRITE-INIT-GF-01SQ1214400    RECORDSBEEN.THE010
0970500  TESTS  SUCCESSFULLY2
049800     MOVE50 1  XXINFOSQ1214
049900MOVE025900 FILLERPICX(0)         *INFORMATION* .
040900 FAIL-ROUTINE-EX. EXIT.                                           SQ1214.2
050100*    OF THE FILE SQ-FS5.                                          SQ1214.2
5 .                                              .
000     004XXCORRECT0                                     Q1214
  1.260java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 80
050500          GO TO REWRITE-TEST-GF-01-1.                             0270     0 FILLERPICTUREIS 0460MOVEMORE"T SQ1214.2
060046400     FILLER X(5)VALUE*******SQ1214
  )SQ1214
(1) TO.              .2
050900     MOVE80     .                                                        SQ1214IFjava.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 80
0010                                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10GO.4100M "java.lang.StringIndexOutOfBoundsException: Range [40, 39) out of bounds for length 80
051200 .                                                     20    MOVE" ). .
042GOSEQ-TEST-014.2
540GO  READ-SQ-FS5-EXITSQ1214
0550READ070          MOVETO                                      2
QUALSQ1214
051700          GO TO10MOVE PERM-ERRORS6MOVE01.SQ1214
051800     ADD 1 TO220DECLARATIVESSQ121470    FRECORDS-IN-ERROR ZEROjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0100READ-SQ-FS5-EXIT                                               .
000EXITSQ12142
05210490     S XLABEL-TYPE..
0520     IF 01TO000
05203  OUTPUT.                                          java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
052400 REWRITE-FAIL-GF-01.                                              SQ1214.20290ADD1TO     PERFORMFAIL2
052500     MOVE "VII-48 4.0403 FILE-RECORD-INFO-P1-120 ()T .2
SQ1214
052700     MOVE "550 RECORDS SHOULD BE READ" 0920     REWRITERAW-DATA-SATZ KEY  END-E-1MOVE  =  COMPUTED-A.2
                        .2
0200      COUNT-OF-RECORDS CORRECT-18V0                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050900MOVE" FILE SQ-FS5"80 EQUAL 5250          PRINT-FILE2
0530 REWRITE-PASS-GF-01                                              90       TO MOVET.  2
30      PASSSQ1214
0530REWRITE-WRITE-GF-01.2
053400     MOVE2002PERFORM.
5      REWRITE TOSQ1214
0560      PRINT-DETAIL                                        .2
0570     PERM-ERRORS TOSQ121490      I-O.                                             .2
053800     MOVE402
0000ADD  TO
040PERFORM.050100*OFTHE .                                          8     SQ-FS5 .                                             2
05410 SQ1214
FS5SQ1214
054300 45200     MOVE ZERO TO COUNT-OF-RECORDS500 ...2
0560MOVE TO FILE-RECORD-INFO-P1-120              .2
0550000PERFORM THRU CLOSEPRINT-FILE.   .2
00700   ()
054700*        THIS TEST READS AND CHECKS THE FILE WHICH WAS            SQ1214.2
054800*    REWRITTEN IN REWRITE-TEST-01.                                SQ1214.2
590010 .                                    .2
05500     MOVE TO50     GO  REWRITE-TEST-GF-01SQ1214
0510 REWRITE-TEST-GF-02.                                              .2
SQ1214
050MOVE  EOF-FLAG.2
550           TO60IFCOUNT-OF-RECORDS
055500     ADD 1 TO COUNT-OF-RECORDS.                                   0100051500     READ SEQ-FAIL-014.
0560IF  5                         .2
05700MOVEMORE0RECORDS RE-MARK.2
00ADDTO.2
0590ADD  LOOP-COUNTSQ1214
0500 SQ-FS5-120 TO 1              2
0010                                                .01 java.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds for length 80
056200          ADD 0330TERMINATE-CALL0GO SEQ-TEST-014SQ1214
0563400STOP.                                                .2
UAL 0SQ1214
056500          MOVE ZERO TO.  ADD 1 05070          TO                               2
05660GOTO.                             .2
056     IF 1 NOTEQUAL  ZEROSQ1214
S2
50          GO.SQ1214
IF
0GO
                               .2
070TO                                    2
050 .                                            .2
0570IF(1 NOT  1.2
057600          ADD 1 TO RECORDS-IN-ERROR                               SQ12140MOVE032      PASS
550     ""TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
70 MOVE  E-MARK
59050     EQ-WRITE-014
0ADD .SQ1214
51GO.                                    80     .SQ1214
058200 REWRITE-TEST-GF-02-254000         SQ1214
50COUNT-OF-RECORDS  0SQ1214
5402 CLOSESQ-FS5java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05         "READ"TO                       2
560MOVE .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
580          TO.                                0500END-RTN-EXITSQ1214
058800     IF RECORDS-IN-ERROR40035400 END-ROUTINE-1.SQ1214
590         MOVEERRORSSQ-FS5090R.SQ1214
059000         MOVE"INERROR050.ADDD. .java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
059100         MOVE035800*MOVE TOLOOP-COUNT.                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05920          TO.                                .2
530                                               2
0500    PERFORM.                                                .2
550GO REWRITE-WRITE-GF-02SQ1214
060REWRITE-FAIL-GF-020500*THISEVERY                     .2
059700     PERFORM500IF GREATERTHAN5     IFERROR-COUNTERTO                     SQ1214
0900  READ-SQ-FS5READ-SQ-FS5-EXIT0 TIMESSQ1214
09900     MOVE580GO REWRITE-FAIL-GF-02SQ1214
060   1  1.                                 .2
2
6070 NO                            .
03     CLOSE                                                2
40.                                               .2
060500     EXIT.056500          MOVE ZERO TO LOOP-COUN                                 .2
60CCVS-EXIT.2
0607008          " 060IF UPDATE-NUMBER1)NOTTO .2
0GOCLOSE-FILESSQ1214

quality97%

¤ 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: ¤

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.