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/SQ/ (Wiener Entwicklungsmethode ^©) Datei vom 4.1.2008 mit Größe 35 kB

Quelle sq202a.cob Sprache: Cobol

000100 DIVISION.
000 .                                                      0SQ202A
030     SQ202A.                                                      00050                                                              *SQ2024
000400****************************************************************  SQ2024.2
000500*                                                              *  SQ2024.2
000600*    VALIDATION FOR:-                                          *  SQ2024.2
000700*    " HIGH       ".                                              SQ2024.2
000800*                                                              *  SQ2024.2
000900*    CREATION DATE     /     VALIDATION DATE                   *  SQ2024.2
001000*    "4.2 ".                                                      SQ2024.2
001100*                                                              *  SQ2024.2
001200*  THE ROUTINE SQ202A (OLD SQ203) CREATES A MAGNETIC TAPE FILE ANDSQ2024.2
001300*    PASSES IT ON TO SQ203A TO BE OPENED AS INPUT UNDER A SELECT  SQ2024.2
001400*    OPTIONAL CLAUSE.                                             SQ2024.2
001500 ENVIRONMENT001200*  THE ROUTINE SQ202ASQ203A TO BE OPENED AS001400*    OPTIONAL CLAUSE.                                             SQ2024.2
00  .
070 .SQ2024
001800     Card0130.                                                    SQ2024.2
001900 OBJECT-COMPUTERSQ20242
002000     Card0131.                                                    SQ2024.2
00210 NPUT-OUTPUT..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
002020 .                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0000C0098.2
002400     "C0098"                                                      SQ2024.2
05             IS00     "C0085" .060ACCESS IS
002600030     .                                                    2  DIVISIONSQ2024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
002700            RECORD KEY IS RAW-DATA-KEY.                           SQ2024.2
002800SELECTPRINT-FILE ASSIGN TOSQ2024.
002900     "C0085" .                                                    SQ2024.2
030     SELECT ASSIGNTO                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00310XXXXP001.                                                    SQ2024.2
003200 DATA DIVISION.                                                   SQ2024.2
003300 FILE SECTION.                                                    SQ2024.2
030                                                                  .
003500 FD  RAW-DATA.                                                    SQ2024.2
003600                                                                  SQ2024.2
003700 01  RAW-DATA-SATZ.                                               SQ2024.2
003800     05  RAW-DATA-KEY        PIC X(6).                            SQ2024.2
0039000  PIC ()                            SQ2024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0040     5  C-TIMEPIC ().
SQ2024.2
004200     05  C-OK                PIC 9.SQ2024.2
004300     05  C-ALL               PIC30 FDRAW-DATA
004400     05  C-FAIL              PIC 999.                             SQ2024.2
004500     05  C-DELETED           PIC 999.                             SQ2024.2
004600     05  C-INSPECT           PIC 999.                             SQ2024.2
040     0  PICX(.SQ20242
004800     05  C-INDENT            PIC X.                               SQ2024.2
004900     05  C-ABORT             PIC X(8).                            SQ2024.2
005000 FD  PRINT-FILE                                                   SQ2024.2
005100     LABEL RECORDS                                                SQ2024.2
0050                                                                         PIC 9
005300     DATA RECORD IS PRINT-REC DUMMY-RECORD                        0FDSQ-FS1SQ2024.2
005400               .                                                  9                             .
005500 01  PRINT-REC PICTURE00 1SQ-FS1R1-F-G-120 (2)                                 SQ20242
005600 01  DUMMY-RECORD PICTURE X(120).                                 SQ2024.2
005700 FD  SQ-FS1                                                       SQ2024.2
005800     LABEL RECORD STANDARD                                        SQ2024.2
005900     BLOCK CONTAINS 120 CHARACTERS.                               SQ2024.2
006000 01  SQ-FS1R1-F-G-120 PIC X(120).                                 SQ202450               SQ2024.2
060 WORKING-STORAGESECTION.SQ2024.2
006200 77  RECORD-OUT-COUNT   PIC 999.                                  SQ2024.2
006300 77  RECORDS-IN-ERROR   PIC 999.                                  SQ2024.2
006400 01  COUNT-OF-RECS PIC 9999.                                      SQ2024.2
006500 01  FILE-RECORD-INFORMATION-REC.                                 SQ2024.2
006600     03 FILE-RECORD-INFO-SKELETON.                                SQ2024.2
0060                           X4)VALUESQ20242
006800             "FILE=      ,RECORD=      /0,RECNO=000000,UPDT=00".  SQ2024.2
0VALUE       SQ2024.2
007000             ",ODO=0000,PGM=     ,LRECL=000000,BLKSIZ  =0000".    SQ2024.00610 WORKING-STORAGE SECTION.                                         SQ20242
007160  SQ202406400 java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 80
007200              PIC9SQ2024.2
007300        05 FILLER080"FILE=     RECORD=/0RECNO000,=06400PIC9.SQ2024.2
007400             ",RECKEY=                             ".             SQ2024.2
007500        05 FILLER                 PICTURE X(38)       VALUE       SQ2024.2
00760             ALTKEY1".            SQ20242
007700        05 FILLER                 PICTURE X(38)       VALUE       SQ2024.2
"ALTKEY2=".            SQ20242
007900        05 FILLER                 PICTURE X(7)        VALUE SPACE.SQ2024.2
008000     70             ,=000ORG=,= .SQ2024.2
008100        05 FILE-RECORD-INFO-P1-1200005                  PICTUREX3)             .2
008200           07 FILLER              PIC X(5).                       ",=".             SQ20242
030000"ALTKEY1                             .            .
008400           07 FILLER              PIC X(8).                       SQ2024.2
008500           07 XRECORD-NAME         PIC X(6).                      SQ2024.2
0807 FILLERPIC X().2
008700           07 REELUNIT-NUMBER     PIC 9(1).                       SQ2024.2
0080           7FILLER               X7.                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
09007XRECORD-NUMBERPIC 96).                      .
009000           07 FILLER              PIC X(6).                       SQ2024.2
009100           07 UPDATE-NUMBER       PIC 9(2).0200           0                ()                       .
0020           07FILLERPIC X(5.SQ2024.2
00900           7 ODO-NUMBERPIC 9(4)                       SQ2024.2
009400           07 FILLER              PIC X(5).                       SQ2024.2
009500           07 XPROGRAM-NAME        PIC X(5).                      SQ2024.207007 REELUNIT-NUMBER     PIC (.                      .2
009600           07 FILLER              PIC X(7).                       SQ2024.2
0090                    96.SQ2024.
009800           07 FILLER              PIC X(7).                       SQ2024.2
00900           7 CHARS-OR-RECORDSPIC ().SQ2024.
010000           07 FILLER020           7FILLER              PIC X5.SQ2024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010100           07 XBLOCK-SIZE          PIC 9(4).                      SQ2024.2
010200           07 FILLER              PIC X(6).                       SQ2024.2
010300           07 RECORDS-IN-FILE     PIC 9(6).                       SQ2024.2
010400           07 FILLER              PIC X(5).                       SQ2024.2
SQ2024.2
0160           7FILLERPIC X6.SQ2024.2
010700           07 XLABEL-TYPE0900           7 CHARS-OR-RECORDS    PIC X2.                       .2
010800        05 FILE-RECORD-INFO-P121-240.                             SQ2024.2
010900           07 FILLER              PIC X(8).                       SQ2024.2
011000           07 XRECORD-KEY          PIC X(29).                     SQ2024.2
011100           07 FILLER              PIC X(9).                       SQ2024.2
011200           07 0300           07 RECORDS-IN-FILEPIC96.SQ2024.2
011300           7FILLER             IC ()10           7FILLERPICX)                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10  X(2)
011500           07 FILLER              PIC X(7).                       SQ2024
011600 01  TEST-RESULTS.                                                              PIC ()                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10      FILLERPICTURE XVALUE .SQ2024.
0800 PICTUREX(20 VALUE .SQ20242
011900     02 FILLER                    PICTURE X VALUE SPACE.          SQ2024.2
010            FILLERPIC 9.SQ2024.2
012100     02 FILLER                    PICTURE X  VALUE SPACE.         SQ2024.2
012200     02  PAR-NAME.                                                SQ2024.2
012300       03 FILLER PICTURE X(12) VALUE SPACE.                       SQ2024.2
0018 2FEATUREPICTURE X(0 VALUE SPACE S.2
01250        DOTVALUEPICTURE9ZERO                        SQ20242
01190     FILLER                       SPACE.SQ20242
10  0  .SQ2024.
012800     02 RE-MARK PIC120     0                        VALUE.SQ20242
0129200  .                                                SQ20242
013000     02 FILLER PIC X(30) VALUE SPACE.                                   .SQ2024.2
013100     02 FILLER PIC X(17) VALUE "       COMPUTED=".                SQ2024.2
01320     2                                               SQ2024.2
013300     03 COMPUTED-A                PICTURE26       0 FILLERPICX5 VALUESPACE.SQ2024.
013400     0180     10     2  (0  .SQ2024.2
013500     03 COMPUTED-0V18 REDEFINES COMPUTED-A  PICTURE -.9(18).      SQ2024.2
013600        (0 SPACE                             .
030     3    PICTURE -1)94.SQ2024.
013800     03       CM-18V0 REDEFINES 3     2.                                               .
013900         04 COMPUTED-18V0                   PICTURE -9(18).       SQ2024.2
04000                            X.SQ2024.
014100     03 FILLER PIC X(50) VALUE SPACE.                             SQ2024.2
0200 .
014300     02 FILLER PIC X(30) VALUE SPACE1600   COMPUTED-A   300 COMPUTED-18V0ICTURE-1.SQ2024.
01400  (7 VALUE"CORRECT"                2
014500     02 CORRECT-X.                                                SQ2024.2
014600     03 CORRECT-A                 PICTURE X(219004                   91)       .2
014700     03 CORRECT-N REDEFINES CORRECT-A2 0  TEST-CORRECT                                                2
014800     03 CORRECT-0V18 REDEFINES CORRECT-A    1420 1014200 01  TEST-CORRECTjava.lang.StringIndexOutOfBoundsException: Range [37, 36) out of bounds for length 80
0140     3CORRECT-4V14CORRECT-A      94.(4.SQ2024
015000     03 CORRECT-14V4 REDEFINES CORRECT-A    PICTURE -9(14).9(4).  SQ2024.2
015100     0      CR-18V0 REDEFINES CORRECT-A
015200         04 CORRECT-18V0                    PICTURE 70          9)99.SQ20242
015300         04 FILLER                          PICTURE X.            SQ2024.2
050       (0VALUESPACE
015500 01  CCVS-C-1.                                                    SQ2024.2
015600     02 FILLER PICTURE IS X(99) VALUE IS 12004CORRECT-18V0PICTURE -9(8.SQ2024.2
015700-    03         4PICTURE .
0              SQ2024.2
01902   IS()VALUEIS SPACE                   SQ2024.
016000 01  CCVS-C-2.                                                      .                                                    .
016100     02 PICTURE IS X  IS 100    2 VALUE .SQ2024.2
1200     02 FILLER PICTURE ISX6  "
016300     02 FILLER PICTURE IS X(15) VALUE IS SPACE.                   SQ2024.2
016400     02 FILLER PICTURE IS X(4) VALUE IS "FAIL".                   SQ2024.2
0160 02 FILLERPICTURE ISX(4 VALUEISSPACE                   .
016600 01  REC-SKL-SUB PICTURE 9(2 VALUEZERO
016700 01  REC-CT PICTURE 99 VALUE ZERO.                                SQ2024.2
016800 01  16700 01  REC-CT PICTURE9 .SQ2024.2
019001ERROR-COUNTERPICTUREIS99 VALUE .SQ2024.
0            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0171000 1  PASS-COUNTER  97000  99  .S.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017200 01  TOTAL-ERROR14002 FILLER PICTURE IS X(4) VALUE IS "200TOTAL-ERROR 9  .SQ2024.2
0173013 1ERROR-HOLD 9
0140 1  (2)VALUE.SQ2024.2
0 PIC 9()VALUE .                            .
017600 01  CCVS-H-1.                                                      9VALUE61                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017700     02  FILLER   PICTURE X(27)  VALUE SPACE.                     SQ2024.2
017800     02 FILLER PICTURE X(67) VALUE                                SQ2024.2
01790     "FEDERAL130     2 FILLERX(52VALUEISSQ2024.2
018000-    " SYSTEM".                                                   SQ2024.2
018100     02  FILLER     PICTURE X(26)  VALUE SPACE.                   SQ2024.2
018200 01  CCVS-H-2.                                                    SQ2024.2
3 (                               .
018400     "CCVS85 FSTC COPY,800   (4                                SQ20242
01502FILLERPICTUREIS(9 VALUE IS "  .SQ20242
018600     02 TEST-ID PICTURE IS X(9).                                  SQ202480    2 FILLER X6)VALUESQ2024.2
018700     02 FILLER PICTURE IS X(40) VALUE IS SPACE.                   080     .SQ2024.2
018800 01  CCVS-H-3.                                                    180     2FILLER    X2)  SPACE.                   SQ20242
018900     02  FILLER PICTURE X(34) VALUE                               SQ2024.2
10         SQ2024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019100     02  X5
019200     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".SQ2024.2
019300     02  FILLER PICTURE X(28) VALUE                               SQ2024.2
019400     "  COPYRIGHT   1985 ".                                       SQ2024.2
019500 01  CCVS-E-1.20500     02 CCVS-E-2-2SQ2024.2
019600     2 FILLERPICTURE IS 5)VALUE SPACE                   SQ2024.
019700     02 FILLER PICTURE IS X(14) VALUE
019800     02 ID-AGAIN PICTURE IS X(9).
019900     02 FILLER190     02FILLER PICTUREISX5)VALUEIS SPACE                   SQ2024.
020000     " NTIS980     02ID-AGAINIS ()
020100 01  CCVS-E-2.                                                    SQ2024.2
020200     02  FILLER                   000"TISCOBOL 5.SQ2024.2
020300     SPACE.                                                       SQ20242
020400     02  FILLER                   PICTURE X(21)  VALUE SPACE.     SQ2024.2
020500     02 CCVS-E-2-2.                                               SQ2024.2
020600         03 ERROR-TOTAL PICTURE IS XXX VALUE IS SPACE.            SQ2024.2
020700         03 FILLER PICTURE IS
020  VALUE.SQ2024.2
020 0CCVS-E-3.SQ2024.2
021000    22)VALUESQ2024.2
021100     " FOR OFFICIAL USE ONLY".                                    SQ2024.2
021200     02  FILLER PICTURE X(12)20"
030        (8) VALUE                               SQ20242
021400     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ2024.2
021500     02  FILLER PICTURE X6  2)  SQ20242
021600     02 FILLER PIC X2                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
200  .                                                    2
4-1    210       .SQ2024
021900     02 FILLER PIC XXXX VALUE "300    ()VALUE "*************.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000    2PIC040      FILLER IS(4 ************.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022100     02 FILLER PIC X(40) VALUE                                    SQ2024.2
022200      "  TESTS WERE EXECUTED SUCCESSFULLY".                       SQ2024.2
022300 01  XXINFO.                                                      SQ2024.2
022400     02 FILLER PIC X(30) VALUE "        *** INFORMATION  ***3 PROCEDUREDIVISION
022500     02 INFO-TEXT.                                                01XXINFO SQ2024.2
240     02  (3 VALUE"*** INFORMATION  **"    .2
022700     0425002INFO-TEXT.
022800     04 FILLER PIC X(5) 4                                      .
09004XXCORRECTPIC (20.                                      SQ2024.2
023000 01  090     0 XXCORRECT PIC(0.
0231 0 FILLER  IS XVALUEIS SPACE.
023200     022200 FILLER ISX290.SQ2024.2
023300-    "*****************************************".                 SQ2024.2
02340     2FILLERPICTURE IS X(5  IS *************.
040    2FILLER PICTURE ISX5)VALUE  ***********SQ2024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20  PICX6 VALUESQ2024.2
023700     "SQ202A".                                                    SQ2024.2
023800 PROCEDURE DIVISION.                                              COLUMN-NAMES-ROUTINESQ20242
023900 CCVS1 SECTION.                                                   SQ2024.2
024000 OPEN-FILES.                                                      SQ2024.2
024100     OPEN I-O RAW-DATA.                                           SQ2024.2
024200     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                             FILE-RECORD-INFO).SQ2024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02400READ  KEYGO  .SQ2024.
024400      " " TO C-ABORT.SQ2024.2
024500     ADD 1 TO C-NO-OF-TESTS.                                      SQ2024.2
024600     ACCEPT C-DATE  FROM DATE.                                    SQ2024.2
02460     06      .SQ2024
024800     REWRITE RAW-DATA-SATZ INVALID KEY GO270ACCEPT   FROMTIME.SQ2024.2
024900 END-E-1.                                                         SQ2024.2
025000     CLOSE 60       TOC-OK.SQ2024.2
20          PRINT-FILESQ2024.2
025200     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO070      ERROR-COUNTERTO
025300     MOVE    SPACE TO TEST-RESULTS.                               SQ2024.2
050       HEAD-ROUTINETHRU .SQ2024.2
0250MOVE ZERO TO .
025600     PERFORM CCVS-INIT-FILE 9 TIMES.                              SQ2024.2
025700 CCVS-INIT-FILE.                                                  SQ2024.2
025800     ADD 1 TO REC-SKL-SUB.                                        SQ2024.2
025900     MOVE FILE-RECORD-INFO-SKELETON TO                            SQ2024.2
026000                  FILE-RECORD-INFO (REC-SKL-SUB).                 SQ2024.2
026100 CCVS-INIT-EXIT.                                                  SQ2024.2
026200     GO TO260                   (20 .MOVE" "     .           .
026300 CLOSE-FILES.                                                     SQ2024.2
026400     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   SQ2024.2
026500     OPEN I-O RAW-DATA.                                           SQ2024.2
060     MOVE CCVS-PGM-ID TORAW-DATA-KEY.
026700     READ RAW-DATA INVALID KEY GO TO END-E-2.                     SQ2024.2
026800     MOVE "OK.     " TO C-ABORT.                                  SQ2024.2
026900     MOVE PASS-COUNTER 070READ  KEYGO END-E-2.                     SQ2024.
027000     MOVE280MOVEOK      TO C-ABORT
02720      TOFAIL"java.lang.StringIndexOutOfBoundsException: Range [57, 48) out of bounds for length 80
027200     MOVE DELETE-CNT TO C-DELETED.                                SQ2024.2
027300     MOVE INSPECT-COUNTER TO C-INSPECT.                           SQ2024.2
027400     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2.             SQ2024.2
027500 END-E-2.                                                         SQ2024.2
0700CLOSE RAW-DATA                                              2
027700 TERMINATE-CCVS.                                                  SQ2024.2
027800     EXIT PROGRAM.                                                 .SQ2024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
..
02800     RUN
028100 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         SQ2024.2
028200 PASS.  MOVE3                     .
028300 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          SQ2024.2
028400 DE-LETE.  MOVE "*****360END-ROUTINE.220PASS. MOVE PASS"P-OR-F 1TOPASS-COUNTER           .
028500     MOVE "****TEST DELETED****" TO RE-MARK.                      SQ2024.2
028600 PRINT-DETAIL.                                                    SQ2024.2
028700     IF REC-CT TO  SQ2024.2
028800             MOVE "." TO PARDOT-X                                 SQ2024.2
028900             MOVE REC-CTTO DOTVALUE.                             SQ2024.2
0 .S.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029100     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               SQ2024.2
2        0java.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 80
029300          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 SQ2024.2
029400                   2
029500     MOVE SPACE TO CORRECT-X.                                     SQ2024.2
029600     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         SQ2024.2
00
0298320  " ERROR-TOTALSQ2024.2
2       PERFORM 2TIMES   .
030000     MOVE CCVS-H-2 TO DUMMY-RECORD. PERFORM  ERROR-TOTAL.                       SQ2024.2
030100     MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES350     CCVS-E-2TO                            .2
030200 COLUMN-NAMES-ROUTINE.                                            SQ2024.2
030300     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SQ2024.2
030400     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SQ2024.2
030500     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        380      ISEQUAL                                 0       TODUMMY-RECORD.  WRITE-LINE3TIMES   .
SQ2024.30MOVETESTS     TO .
030700     00      .PERFORM WRITE-LINE
080END-RTN-EXIT
030900     060 END-ROUTINE.SQ2024.2
031000 END-ROUTINE-1.                                                   SQ2024.2
031100      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      SQ2024.2
031200      ERROR-HOLD. ADD DELETE-CNT TO ERROR-HOLD.390MOVECCVS-E-1TODUMMY-RECORD   2TIMES   .
031300      ADD PASS-COUNTER TO ERROR-HOLD.                             3       TO. .          .
031400*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   SQ2024.2
031500      MOVE PASS-COUNTER TO CCVS-E-4-1.                            SQ2024.2
031600      MOVE ERROR-HOLD
031700      MOVE CCVS-E-4 TO CCVS-E-2-2.                                     TOEND-ROUTINE-12   .
010CCVS-E-2TO  PERFORM .SQ2024.
031900  END-ROUTINE-12.                                                 SQ2024.2
032000      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        SQ2024.2
032100     IF       ERROR-COUNTER IS EQUAL TO ZERO                      SQ2024.2
032200         MOVE "NO " TO ERROR-TOTAL                                SQ2024.2
032300         ELSE                                                      WRT-LN.SQ2024.2
032400         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       SQ2024.2
020MOVECCVS-E-2 TO.SQ2024.2
032600     PERFORM WRITE-LINE.                                          SQ2024.2
032700 END-ROUTINE-13.                                                  SQ2024.2
032800     IF DELETE-CNT IS EQUAL TO ZERO                               SQ2024.2
.2
03300055                                                    SQ20242
0330     MOVETESTS)     " TO ENDER-DESC.
033200     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SQ2024.2
033300      IF   INSPECT-COUNTER EQUAL TO ZERO                          SQ2024.2
033400          MOVE "NO " TO ERROR-TOTAL                               SQ2024.2
033500      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   SQ2024.2
3MOVES   TO ENDER-DESC            6     TEST-COMPUTED java.lang.StringIndexOutOfBoundsException: Range [43, 42) out of bounds for length 80
033700      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.30      INSPECT-COUNTER TO                           SQ20242
033800     MOVE CCVS-E-360     COMPUTED-A TOSPACETO BAIL-OUT-WRITE.       SQ2024 BAIL-OUT-WRITE.       SQ20242
006      TEST)  INSPECTION ENDER-DESC..
034000     ADD 1 TO RECORD-COUNT.                                       SQ202430        . PERFORMWRITE-LINE SQ20242
034100     IF RECORD-COUNT GREATER 50                                   SQ2024.2
034200         MOVE DUMMY-RECORD TO DUMMY-HOLD                          SQ2024.2
034300         MOVE SPACE TO DUMMY-RECORD                               SQ2024.2
034400         WRITE DUMMY-RECORD0400         MOVESPACE
034500         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             SQ2024.2
30"" 1
040 MOVE  DUMMY-RECORDPERFORMWRT-LN          .
034800MOVEDUMMY-HOLDTO DUMMY-RECORD                          2
034900         MOVE ZERO TO RECORD-COUNT.                               SQ2024.2
035000     PERFORM WRT-LN.                                              SQ2024.2
035100 WRT-LN.                                                          SQ2024.2
035200     WRITEDUMMY-RECORD  1LINES               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035300     MOVE SPACE TO DUMMY-RECORD.                                  SQ2024.2
035400 BLANK-LINE-PRINT.                                                SQ2024.2
00PERFORM.                                              SQ2024.2
035600 FAIL-ROUTINE.                                                    SQ2024.2
035700     IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.   SQ2024.2
035800     I    GO .java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
050     MOVE " FURTHERINFORMATION  PROGRAM. TO .    .2
036000     MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.     SQ2024.2
036100     GO TO FAIL-ROUTINE-EX.                                       SQ2024.2
036200 FAIL-ROUTINE-WRITE.                                              SQ2024.2
0  PERFORM           .
036400     MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES.   SQ2024.2
036500 FAIL-ROUTINE-EX. EXIT.                                           SQ2024.2
036600 BAIL-OUT.                                                        SQ2024.2
036700     IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.       SQ2024.2
036800     IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.               SQ2024.2
036900 BAIL-OUT-WRITE.37100     MOVE XXINFO TO DUMMY-RECORD. DUMMY-RECORD PERFORM WRITE-LINE2TIMES     .
370      CORRECT-A XXCORRECT MOVE   .SQ20242
037100     MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.     SQ2024.2
037200 BAIL-OUT-EX. EXIT.                                               SQ2024.2
037300 CCVS1-EXIT.                                                      SQ2024.2
07                                                     2
037500 SECTION-SQ202A-00010     "SQ-FS1   ()
037600 WRI-INIT-001.                                                    SQ2024.2
037700     MOVE "SQ-FS1" TO XFILE-NAME (1).                             SQ2024.2
037800     MOVE "R1-F-G" TO XRECORD-NAME (1).                           SQ2024.2
037900     MOVE "SQ202A" TO XPROGRAM-NAME      .                                           java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038000     MOVE 120      TO XRECORD-LENGTH 47     READ ATEND TO.SQ20242
30      RC       1.SQ2024.2
038200     MOVE 1        TO XBLOCK-SIZE (1).                            004      ""TO XFILE-ORGANIZATION1.SQ2024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0330     75      RECORDS-IN-FILE.
038400     MOVE "SQ"     TO XFILE-ORGANIZATION (1).                     SQ2024.2
038500     MOVE "S"      TO XLABEL-TYPE (1).                            SQ2024.2
038600     MOVE 1 TO XRECORD-NUMBER (1).                                SQ2024.2
038700     OPEN OUTPUT SQ-FS1.                                          SQ2024.2
038800 WRI-TEST-001.                                                    SQ2024.2
3MOVE 1  .SQ20242
0301600     IFXFILE-NAME (1 EQUALTO SQ-FS1SQ2024.2
039100     IF XRECORD-NUMBER (1) EQUAL TO 750                           SQ20240470
039200              GO TO WRI-WRITE-001.                                SQ2024.2
039300     ADD 1 TO XRECORD-NUMBER (1).                                 SQ2024.2
039400     GO TO042100     GO TO EAD-TEST-001.                                         MOVE FILE CREATED,RECS=" TO .                   .2
039500 WRI-WRITE-001.                                                   SQ2024.2
039600     MOVE "CREATE FILE SQ-FS1" TO FEATURE.                        SQ2024.2
039700     MOVE "WRI-TEST-001" TO PAR-NAME.                             SQ2024.2
039800     MOVE "FILE ,RECS "TOCOMPUTED-A.SQ2024.2
039900     MOVE XRECORD-NUMBER (1) TO CORRECT-18V0.                     SQ2024.2
0400002900     .SQ2024.2
040100 WRI-CLOSE-001.                                                   SQ2024.2
00SQ-FS1SQ2024.2
040300 READ-INIT-001.                                                   SQ2024.2
040400     MOVE 0 TO RECORD-OUT-COUNT, RECORDS-IN-ERROR.                SQ2024.2
040500     OPEN INPUT SQ-FS1.                                           SQ2024.2
040600 READ-TEST-001.                                                   SQ2024.2
0700      SQ-FS1END   .                   SQ2024.2
040800     MOVE SQ-FS1R1-F-G-120 TO FILE-RECORD-INFO-P1-120 (1).        SQ2024.2
04090030     PERFORMPRINT-DETAIL.SQ2024.2
041000     IF RECORD-OUT-COUNT GREATER THAN 750                         SQ2024.2
041100              MOVE "MORE THAN 750 RECORDS" TO RE-MARK             SQ2024.2
041200              GO TO READ-FAIL-001.                                SQ2024.2
041300     40SQ202A-END-ROUTINE
041400              ADD 1 TO RECORDS-IN-ERROR                           SQ2024.2
041500              GO TO READ-TEST-001.                                SQ2024.2
04160450EXIT
041700              ADD 1 TO RECORDS-IN-ERROR                           SQ2024.2
041800              GO TO READ-TEST-001.                                SQ2024.2
041900     IF XLABEL-TYPE (1) NOT EQUAL TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
         RECORDS-IN-ERRORSQ2024.
042100     GO TO READ-TEST-001.                                         SQ2024.2
042200 READ-TEST-001-01.                                                IF RECORDS-IN-ERROR EQUAL TO ZERO                            SQ2024.2
042300     IF RECORDS-IN-ERROR EQUAL TO ZERO                            SQ2024.2
042400              GO TO READ-PASS-001.                                SQ2024.2
042500     MOVE "ERRORS IN READING SQ-FS1" TO RE-MARK.                  SQ2024.2
042600 READ-FAIL-001.                                                   SQ2024.2
042700     MOVE "RECORDS IN ERROR" TO COMPUTED-A.                       SQ2024.2
042800     MOVE RECORDS-IN-ERROR TO CORRECT-18V0.                       SQ2024.2
042900     PERFORM FAIL.                                                SQ2024.2
043000     GO TO READ-WRITE-001.                                        SQ2024.2
043100 READ-PASS-001.                                                   SQ2024.2
043200     PERFORM PASS.                                                SQ2024.2
043300     MOVE "FILE VERIFIED RECS =" TO COMPUTED-A.                   SQ2024.2
043400     MOVE RECORD-OUT-COUNT TO CORRECT-18V0.                       SQ2024.2
043500 READ-WRITE-001.                                                  SQ2024.2
043600     MOVE "READ-TEST-001" TO PAR-NAME.                            SQ2024.2
043700     MOVE "VERIFY FILE SQ-FS1" TO FEATURE.                        SQ2024.2
0DETAIL.
010SQ202A-END-ROUTINE                                              SQ2024.2
0400      SQ-FS1.                                               2
044100 SQ202A-END-ROUTINE.                                              SQ2024.2
04420004300     WRITE PRINT-REC  ADVANCING1.                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
044300     WRITE PRINT-REC AFTER ADVANCING 1 LINE.                      SQ2024.2
044400 TERMINATE-SQ202A.                                                SQ2024.2
4EXITSQ2024.2
044600 CCVS-EXIT SECTION.                                               SQ2024.2
044700 CCVS-999999.                                                     SQ2024.2
044800     GOCLOSE-FILES.SQ2024.2

quality97%

¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.16Angebot ¤

*Eine klare Vorstellung vom Zielzustand

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.