Quelle sq148a.cob Sprache: Cobol

000100 IDENTIFICATION                                                   SQ1484000400000600*    VALIDATION FORATION, NATIONAL INSTITUTE000800*    USING CCVS85000900*                                                              *  SQ1484.2
000200 PROGRAM-ID.                                                      SQ1484.2
000300     SQ148A001700*            X-14   SEQUENTIAL MASS STORAGE FILE               *001800*            X-55   SYSTEM PRINTER                             *  SQ1484.2
000400****************************************************************  SQ1484.2
000500*                                                              *  SQ1484.2
000600*    VALIDATION FOR:-                                          *  SQ1484.2
000700*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ1484.2
000800*    USING CCVS85 VERSION 3.0.                                 *  SQ1484.2
000900*                                                              *  SQ1484.2
001000*    CREATION DATE     /     VALIDATION DATE                   *  SQ1484.2
001100*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".SQ1484.2
001200*                                                              *  SQ1484.2
001300****************************************************************  SQ1484.2
001400*                                                              *  SQ1484.2
001500*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  SQ1484.2
001600*                                                              *  SQ1484.2
001700*            X-14   SEQUENTIAL MASS STORAGE FILE               *  SQ1484.2
001800*            X-55   SYSTEM PRINTER                             *  SQ1484.2
001900*            X-82   SOURCE-COMPUTER                            *  SQ1484.2
002000*            X-83   OBJECT-COMPUTER                            *  SQ1484.2
002100*            X-84   LABEL RECORDS OPTION.                      *  SQ1484.2
002200*                                                              *  SQ1484.2
002300****************************************************************  SQ1484.2
002400*                                                              *  SQ1484.2
002500*    THIS PROGRAM CHECKS FOR THE CORRECT RESPONSE TO READING   *  SQ1484.2
002600*    A FILE OPEN IN THE OUTPUT MODE.  THE TEST FOR CORRECT     *  SQ1484.2
002700*    I-O STATUS CODE 47 IS IN THE DECLARATIVES. AN ABNORMAL    *  SQ1484.2
002800*    TERMINATION IS POSSIBLE AFTER THE TEST OF THE I-O STATUS  *  SQ1484.2
002900*    CODE IS ACCOMPLISHED BUT BEFORE CONTROL IS RETURNED TO    *  SQ1484.2
003000*    THE MAIN LINE CODE.                                       *  SQ1484.2
003100*                                                              *  SQ1484.2
003200****************************************************************  SQ1484.2
003300*                                                                 SQ1484.2
003400 ENVIRONMENT DIVISION.                                            SQ1484.2
003500 CONFIGURATION SECTION.                                           SQ1484.2
003600 SOURCE-COMPUTER.                                                 SQ1484.2
003700     Card0130 SECTIONSQ1484
003800 OBJECT-COMPUTER.                                                 SQ1484.2
003900     Card0131.                                                    SQ1484.040      PRINT-FILETO.2
004000*                                                                 SQ1484.2
004100 INPUT-OUTPUT SECTION.                                            SQ1484
004200 FILE-CONTROL.                                                    SQ1484.2
004300     SELECT PRINT-FILE ASSIGN TO                                  SQ1484.2
004400     "C0085" .                                                    SQ1484.2
004500*                                                                 SQ1484.2
004600     SELECT SQ-FS4                                                SQ1484.2
004700            ASSIGN                                                SQ1484.2
004800     "C0020"                                                      SQ1484005200*                                                                 SQ1484.2
00050  SECTIONSQ1484
005000            ORGANIZATION IS SEQUENTIAL                            SQ1484.2
005100            .                                                     SQ1484.2
005200*                                                                 SQ1484.2
005300*                                                                 SQ1484.2
005400 DATA DIVISION.                                                   SQ1484.60.                                                  SQ1484
005500 FILE SECTION.                                                    SQ1484.2
005600 FD  PRINT-FILE                                                   SQ1484.2
7LABEL                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050                                                          .2
09       IS DUMMY-RECORD.2
006000               .                                                  SQ1484.2
006100 01  PRINT-REC    PICTURE X(120).                                 SQ1484.2
006200 01  DUMMY-RECORD PICTURE X(120).                                 SQ1484.2
006300*                                                                 SQ1484.2
006400 FD  SQ-FS4                                                       SQ1484.2
006500     LABEL RECORD IS0FREELUNIT-NUMBER (.SQ1484
006600     BLOCK  CONTAINS0                           X(.                      .2
006700     RECORD CONTAINS 120 007900           07 FILLER             .SQ1484
060 .                                                 2
006900 01  SQ-FS4R1-F-G-120.                                            SQ1484.2
007000        05 FFILE-RECORD-INFO-P1-120.                              SQ1484.2
007100           07 FILLER              PIC X(5).                       SQ1484.2
007200           07 FFILE-NAME          PIC X(6).                       SQ1484.00810           0 FILLERPIC(5).                       SQ1484
0030           0               PIC(8.                       .2
007400           07 FRECORD-NAME        PIC X(6).                       SQ1484.2
007500           07 FILLER              PIC X(1).                       SQ148400800           0        PIC X()                       .2
007600           07 FREELUNIT-NUMBER    PIC 9(1).                       080           0               PIC)SQ1484
0070 07FILLER X(7.                       .2
007800           07 FRECORD-NUMBER      PIC 9(6).                       SQ1484.2
007900           07 FILLER              PIC X(6).                       SQ1484.2
008000           07 FUPDATE-NUMBER      PIC 9(2).                       SQ1484.2
008100           07 FILLER              PIC     6.                       .2
008200           07 FODO-NUMBER         4           FFILE-ORGANIZATION 2                       .2
008300           07 FILLER              PIC X(5).                       SQ1484.000                     PICX1SQ1484
090 WORKING-STORAGE SECTION.                                         .2
008500           07 FILLER              PIC X(7).                       SQ1484.2
008600           07 FRECORD-LENGTH      PIC 9(6).                       SQ1484.2
008700           07 FILLER              PIC X(7).                       SQ1484.2
008800           07 FCHARS-OR-RECORDS   PIC X(2).                       SQ1484.2
008900           07 FILLER              PIC X(1).                       SQ1484.2
009000           07 FBLOCK-SIZE         PIC 9(4).                       SQ1484.2
009100           07 FILLER              PIC X(6).                       SQ1484.2
009200           07 FRECORDS-IN-FILE    PIC 9(6).                       SQ1484.2
093007 FILLER              PIC5.                       SQ1484
009400           07 FFILE-ORGANIZATION  PIC X(2).                       SQ1484.2
009500           07 FILLER              PIC X0PROGRAM-IDSQ1484
60FLABEL-TYPE X1.SQ1484
009700*                                                                 SQ1484.2
009800 WORKING-STORAGE SECTION.                                         SQ1484.2
009900*                                                                 SQ1484.2
010000***************************************************************   SQ1484.2
010100*                                                             *   SQ1484.2
010200*    WORKING-STORAGE DATA ITEMS SPECIFIC TO THIS TEST SUITE   *   SQ1484.2
010300*                                                             *   SQ1484.2
010400***************************************************************   SQ1484.2
010500*                                                                 SQ1484.2
001500*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  SQ1484001600*                                                              *  SQ1484.2
010700     04  SQ-FS4-STATUS.                                           SQ1484002000*            X-83   OBJECT-COMPUTER                            *  SQ1484.2
010800         07  SQ-FS4-KEY-1   PIC X.                                SQ1484002300********************002400*                                                              *  SQ1484.2
010900         07  SQ-FS4-KEY-2   PIC X.                                SQ1484.2
011000*                                                                 SQ1484.2
011100***************************************************************   SQ1484.2
011200*                                                             *   SQ1484.2
011300*    WORKING-STORAGE DATA ITEMS USED BY THE CCVS              *   SQ1484.2
011400*                                                             *   SQ1484.2
011500***************************************************************   SQ1484.2
011600*                                                                 SQ1484.2
05  .                                           .2
011800*                                                                 SQ1484.2
011900 01  FILE-RECORD-INFORMATION-REC.                                 SQ1484.2
012000     03 FILE-RECORD-INFO-SKELETON.                                SQ1484.2
012100        05 FILLER                 PICTURE X(48)       VALUE       SQ1484004000*                                                                 SQ1484.2
012200             "FILE040 SELECTPRINT-FILE ASSIGN TO SQ14842
012300        05 FILLER                 PICTURE X(46)       VALUE       SQ1484.2
6 SQ-FS4SQ1484
012500        05 FILLER                 PICTURE X(26)       VALUE       SQ1484.2
012600             ",FIL=0000,= ,LBLR= ".                        SQ1484
012700        05 FILLER                 PICTURE X(37)       VALUE       SQ1484.2
012800             ",RECKEY= ".             SQ1484.2
012900        05 FILLER                 PICTURE X(38)       VALUE       SQ1484.2
013000             ",ALTKEY1= ".            SQ1484.2
013100        05 FILLER                 PICTURE X(38)       VALUE       SQ1484.2
013200             ",ALTKEY2= ".            SQ1484.2
013300        05 FILLER                 PICTURE X(7)        VALUE SPACE.SQ1484.2
013400     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              SQ1484.2
013500        05 FILE-RECORD-INFO-P1-120.                               SQ1484.2
013600           07 FILLER              PIC X(5).                       SQ1484.2
013700           07 XFILE-NAME          PIC X(6).                       SQ1484.2
013800           07 FILLER              PIC X(8).                       SQ1484.2
013900           07 XRECORD-NAME        PIC X(6).                       SQ1484.2
014000           07 FILLER005200*                                                                 SQ1484.2
014100           07 REELUNIT-NUMBER     PIC 9(1).                       SQ1484.2
01420           7FILLERPIC()                       .2
014300           07 XRECORD-NUMBER      PIC 9(6).                       SQ1484.2
01440           07 FILLER              PIC X6).SQ1484
014500560 FD                                                     .2
014600           07 FILLER              PIC X(5).                       SQ1484.2
014700           07 ODO-NUMBER          PIC 9(4).                       SQ1484.2
014800           07 FILLER              PIC X(5).                       SQ1484.2
014900           07 XPROGRAM-NAME       PIC X(5).                       SQ1484.0100  PRINT-REC (2)                                 .2
015000           07 FILLER              0600FD
10**   SQ1484
200FILLER X()                       .2
13                 X(2)SQ1484
000500*060 1.                                            .
015500           000            FILLERPIC0000*
000900*007400           07 FRECORD-NAME        PIC .2
50           7RECORDS-IN-FILE(.SQ1484
015800           07 FILLER              PIC00FREELUNIT-NUMBER)010" 5VERSION 4.2,Apr 9 "..2
190           0 XFILE-ORGANIZATION010******8            * SQ1484
0160000                         PIC                       .
1100          PIC1.SQ1484
016200011100****001700*            X-14   SEQUENTIAL011200*                                                             *   SQ1484001800*            X-55   SYSTEM PRINTER                             *  SQ1484001900*            X-82011300*    WORKING-STORAGE DATA ITEMS USED002000*            X-83011400*                                                             *   SQ1484.2
016300           07 FILLER              PIC X(8).                       SQ14840.000            FRECORD-LENGTHSQ1484
040708 .
016500           07 FILLER0090           7               X(1)                       .2
016600           07 ALTERNATE-KEY1      PIC X(29).                      SQ1484.2
0160           0 FILLER X(9).SQ1484 .SQ1484
01680           0 ALTERNATE-KEY2 X(29040SELECT ASSIGNTO.2
.2
017000*                                                                 SQ1484.2
070 0TEST-RESULTSSQ1484
004500*                                                                 SQ1484.2
0900FFILE-ORGANIZATION).2
700               1)VALUE.             SQ1484
15                   PICVALUESQ1484
1600              99    VALUE
170     02FILLER               X       SPACE               SQ1484
017800     02 FEATURE000200        FILLER                 PICTURE8              SQ1484
017900     02 FILLER              PIC X      VALUE0000*******************000**   SQ14842
01800010200*    WORKING-STORAGE DATA ITEMS SPECIFIC000**   SQ1484.2
0010400*************0050020                                                                 .2
018200     0RE-MARK)SQ1484
018300 01  TEST-COMPUTED.                                               SQ1484040 DATA.                                                   .2
8       X3VALUE.2
018500*
018600   011200*                                                             00               PIC                       .2
01870011500***************************011600*                                                                 REELUNIT-NUMBER9) 001PRINT-REC X(2.SQ1484
018800 COMPUTED-N    REDEFINES COMPUTED-A PIC -(04   SQ-FS401SQ1484
190     0 COMPUTED-0V18  PIC -91)           90  .                                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
9      REDEFINES PIC)()      2
900 REDEFINES ()4       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010           7FILLER0250        FILLERPICTURE00SQ-FS4R1-F-G-1202
090        0                    PIC8.SQ1484
01940050                          PIC7.                       .2
1500FILLER0VALUE2
019600 0030             ALTKEY1FRECORD-NAME2
1700  PIC3)VALUESQ1484
0902PIC7        =.               SQ1484.
019900     02 CORRECT-XSQ1484.2
0700 FILLERPIC7.SQ1484
210      CORRECT-N 96 SQ1484
0000CORRECT-0V18PIC SQ1484
02030     3CORRECT-4V14 CORRECT-A94.(4.SQ14847007RECORDS-IN-FILE      9(6)                       .2
24     CORRECT-14V4 CORRECT-A494)     .107FILLER X.2
020500     03      CR-18V0 REDEFINES CORRECT-A.                         SQ1484.2
020600         04 CORRECT-18V0                     PIC -9(18)1900100          X()                       .2
000         010       9()SQ1484
E.                             2
0090003COR-ANSI-REFERENCE X(8)VALUE.SQ14840       PICSQ1484
021000*                                                                 SQ1484.2
2100  .                                                    800     X(2)SQ1484
02100           FBLOCK-SIZE            IC)
0230     2   PIC (7     "PARAGRAPH-NAME"00           7               X().2
021400     02 FILLER  PIC 09007FILLER X(7.SQ1484
0100   PIC XSQ1484
02160     0   PIC XVALUESQ1484
  PIC X(5)    VALUE "090 7PICX2 2
280     02 FILLER  IC2           FILLER X(.                      SQ1484
29        PIC X(62     REMARKS.2
200 0  CCVS-C-2                                                    2
022100     02 FILLER  PIC X(19)  VALUE1400 FILLER X(1)VALUE000XBLOCK-SIZE  SECTIONjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022200     02 FILLER  PIC X(6)   VALUE "TESTED".                        SQ1484.2
070     0FILLER X      VALUE.               .2
24     2  PIC
0200    2 FILLER X(2) VALUE*                                                                 SQ1484
022600*                                                                 SQ1484.2
022700 01  REC-SKL-SUB       PIC2         .0900R             9VALUE2
2800              PIC9VALUE.                   .2
022900 01  DELETE-COUNTER    011200*                                                             *   SQ1484.2
02300 0  ERROR-COUNTER     PIC 99VALUE.                   SQ1484 X( SQ1484
030INSPECT-COUNTER 99       ZERO.2
030 0        PIC0      PIC9                                       .
023300 01  TOTAL-ERROR80   COMPUTED-XSQ148400FILE-RECORD-INFORMATION-RECjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023400 01  ERROR-HOLD X(48)       VALUE       .2
05            X(1)  VALUE2
023600  RECORD-COUNT ()    VALUE.                   .2
023700 01  ANSI-REFERENCE023700 01  ANSI-REFERENCE    SQ1484
2800  .
          PIC)     .               16             LFILLBLR
02000  (7       2
20" 10 X2.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
400FILLER (9     SPACES
0240900FILLER (
402 PIC   .                  .2
01030        0                  PICTUREVALUE.
402PIC                         SQ1484
02470     ". "                                                      .2
024800   02  FILLER            PIC800   X1  VALUECOMPUTED.2
290" FOR "                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0250000007X(                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025100*                                                                 SQ1484.2
501java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 80
0520      .                         2
20               X(.                                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025500   02  FILLER            PIC0150     3FILLER50UPDATE-NUMBER)                       .2
02560000     0 COR-ANSI-REFERENCE             PIC                      PIC(.SQ14841TEST-CORRECTSQ1484
025700180000 SQ1484.2
025800   02  FILLER            PIC090  PIC1) " 0400 X() .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025900            100 FILLER              PIC.SQ1484
060     FILLERX3   ISARAGRAPH-NAME
000       REDEFINESPIC)(.     2
026200 01  021500     02 FILLER               X..2
026300     02  FILLER          PIC X0003CORRECT-4V14 CORRECT-A -9(405000     PIC                     .2
026400            " FOR OFFICIAL USE ONLY ".                         SQ1484.10507RECORDS-IN-FILE00     3CR-18V0.                        2
200FILLERX5)                         SQ1484
026600     "COBOL 85 VERSION 4.2, Apr11 00 CCVS-C-2. SQ1484.2
0206005FILE-RECORD-INFO-P121-240SQ1484
280030               PIC.
060 1CCVS-E-1.2
070     0FILLER X(2  VALUESPACE.2
027100     02 FILLER01000 FILLER X(4   VALUESQ1484
070     0 ID-AGAIN23         IS6             PIC9SQ1484
070     2FILLER X4   0260*SQ1484
027400 01  CCVS-E-2.                                                    SQ1484.2
02750     2FILLER X(3)  09 0                X(7.                       .2
02760     2  FILLER           X(21)VALUE.SQ1484
027700     02  CCVS-E-2-2.                                              SQ1484.2
027800         03 ERROR-TOTAL    PIC XXX  SPACE.SQ148400PAR-NAME.2
027900         03 FILLER         PIC X      VALUE SPACE.                SQ1484.2
028000         03 ENDER-DESC            PICVALUE.              SQ1484
02020100  INSPECT-COUNTER   PIC02FEATURE .
022   .SQ1484
030     2FILLERX(2  VALUE.
80" OFFICIAL ONLY"                             .
250     2FILLER(2)  VALUE.SQ1484
2600            200      PIC  .                   SQ1484
028     ON-SITE  &TECH00  java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 80
280002 FILLER X(8)    SPACE.                  SQ1484.2
028900     02  FILLER          PIC X(20)  VALUE   02    X6VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
200"COPYRIGHT985186..
29100 1  TED-4V14 PIC ()()      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0        XXX.                  .2
0010402FILLERPIC4)                           SQ1484
90     2       PIC    VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2502PIC)VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
090      "T WERE EXECUTED SUCCESSFULLY".                       .2
297   .
029800     02 FILLER           PIC X(190300 0  INSPECT-COUNTER  .SQ1484
2902INFO-TEXTSQ1484
00000      00      PIC         =" SQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030100       04 XXCOMPUTED         PIC X(050   0  FILLER X(41  VALUE.                  .2
4              X(5   VALUESPACE300.SQ1484
300                 PIC)0302          X S.              .2
030400     02 INF-ANSI-REFERENCE PIC X(48).                             SQ1484CORRECT-14V4  COMPILER2
0300 1HYPHEN-LINESQ14840420     2  FILLER X(39)    VALUE.2
0300     2FILLER IS VALUE0 .
203ILLERSPACE
38-   "*****************.SQ1484.
03002100*                                                                2FILLERX(8VALUE.2
0310    **********" SQ14842
01000  CCVS-PGM-ID)VALUE.2
0320400               (8  VALUE.
031300*                                                                 SQ1484.2
031400*                                                                 SQ1484.2
03150060            COPYRIGHT805     2FILLERIS2VALUE               .
031600 DECLARATIVES020   2TEST-ID   SPACEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031700*                                                                 SQ1484.2
00  SECTIONjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031900     USE00 FILLER   X(9    SPACESQ1484
03200 0FILLER X( VALUE" SQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032100     IF  SQ-FS4-STATUS = "47"                                     SQ1484.2
020              DECL-PASSSQ14842PIC SPACE
0330             GO TO                             .2
0320                                                              2
050             "7 SQ14842
0320              TO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20              23       PIC.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038                     .2
0320              "VII-5, 135(4F .
000PERFORMSQ1484
30                               .2
0320END-IFSQ1484.2
033300*                                                                 SQ1484.2
033400 DECL-PASS     ON-SITE OF&TECH230 1RECORD-COUNT95 ZERO.
033500800           X07                 XVALUE.
033600     ADD     1 TO PASS-COUNTER              COPYRIGHT1809 1CCVS-E-1
0370PERFORM200             X4VALUE2
033800*                                                                 SQ1484.2
390D.                                                       2
34MOVE*TOSQ1484
030          034100     ADD     1  ()SQ1484
320 DECL-PRINT-DETAILSQ1484
034300*                                                                 SQ1484.2
40DECL-DE-LETESQ1484
350     MOVE* .                      .2
0460     MOVE****" P-OR-F070 2.SQ1484.2
34     1TOSQ1484
034800     PERFORM DECL-PRINT-DETAIL.                                   SQ1484.2
034900*                                                                 SQ1484.2
0300 java.lang.StringIndexOutOfBoundsException: Range [24, 22) out of bounds for length 80
0350801.SQ1484
050 . PARDOT-X
035300             MOVE0800            ONLY.2
340MOVE TO.                           SQ14842500              X4    " IN .
0350     PERFORM                                     .000java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 80
035600     IF P-OR-F EQUAL TO02800   2  ILLER X(2)  VALUESQ1484
03570          DECL-WRITE-LINESQ1484
00 PERFORM               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
SQ1484
300PERFORM THRU.020ON-SITE&.     ".SQ1484.2
036100         80"**************"SQ1484
360     MOVE     TO.                                 SQ1484
060SPACE.SQ1484
0360 REC-CT TOSQ1484
0350MOVE TO.                               SQ1484
0360MOVE .
036700*                                                                 SQ1484.2
0368090     0 CCVS-E-4-2SQ14842
0369070     2FILLER 5   SPACE.2
02100   PIC)VALUEOFSQ1484
30DUMMY-RECORDDUMMY-HOLD2
03700        0230     2FILLER X()07  .SQ1484
037300         WRITE   DUMMY-RECORD000           X(1   SPACE.2
070             CCVS-C-1 DUMMY-RECORD DECL-WRT-LN2
037500         MOVE    CCVS-C-2 TO03100       4FILLER X(8)VALUE.              .2
037600         PERFORM004         PIC700FILLER       SPACEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037700         MOVE    HYPHEN-LINE TO  .
0370                                                .2
070                                      2
020             PERFORM00           PICVALUE.SQ1484
8
038200*                                                                 SQ1484.2
033 .SQ1484
038400     WRITE   DUMMY-RECORD AFTER ADVANCING 1 LINESCOPYRIGHT6SQ1484
03850         SPACE DUMMY-RECORD                               .2
038600*                                                                 SQ1484.2
038700 DECL-FAIL-ROUTINE                      RE-MARK                                   .2
0DECL-FAIL-WRITE
380      CORRECT-X  TO GO DECL-FAIL-WRITESQ1484
090     MOVEANSI-REFERENCE INF-ANSI-REFERENCE.               SQ1484
310    MOVE FURTHERPROGRAM.2
039200     MOVE    XXINFO TO DUMMY-RECORD.                              SQ1484.2
039300     PERFORM DECL-WRITE-LINE 2 TIMES.                             033500     MOVE   "PASS " TO P-OR-F.                                    SQ1484
039400     MOVE    SPACES TO INF-ANSI-REFERENCE.                        SQ1484.2
039500     GO.2
90.
039700     MOVE    TEST-COMPUTED TO PRINT-REC                           SQ1484.2
020 PERFORM                                    .2
09900MOVE TO.                SQ1484SQ1484
400MOVE02     DECL-PRINT-DETAIL2
04010      DECL-WRITE-LINE.                             .2
040200     MOVE0 .                                                    .2
000 .FILE02 PIC SQ1484
0040EXITSQ1484.2
040500*                                                                 SQ1484.2
040600DECL-BAILSQ1484
040700     IF COMPUTED-A NOT EQUAL TO SPACE GO TO DECL-BAIL-WRITE.      SQ1484.2
04080000DECL-PRINT-DETAIL                                               .2
090DECL-BAIL-WRITESQ1484
0403110 01  CCVS-PGM-ID0402 MOVETOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041100MOVE TO.                            SQ1484
0420MOVETO.                SQ1484
041300     MOVE TO DUMMY-RECORDSQ1484
041400     PERFORM DECL-WRITE-LINE033800*                                                                 SQ1484.2
041500     MOVE031700*                                                                 SQ1484.2
04050     SQ1484
470     EXIT.
041800*                                                                 SQ1484.2
0490DECL-ABNORMAL-TERMSQ1484
420MOVE  DUMMY-RECORDSQ1484
042103300GO DECL-ABNORMAL-TERM.050MOVE O PAR-NAME
420MOVEABNORMAL POINTSQ1484
020             03670*
042400     PERFORM DECL-WRITE-LINE 3 TIMES.                             32               TO                     .2
042500*                                                                 SQ1484.2
042600 END-DECLS.                                                        DECL-FAILSQ14842
02
042800 END DECLARATIVES.                                                SQ14840IF 070   DUMMY-RECORDADVANCING.
042900*                                                                 SQ1484.2
043000*                                                                 SQ1484.2
41  SECTIONjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043200 OPEN-FILES.                                                      3MOVE     TODUMMY-RECORD7     PERFORMDECL-PRINT-DETAILSQ1484
430         OUTPUTPRINT-FILESQ1484
043400     MOVE    CCVS-PGM-ID400     60        SPACE.                                     2
043500     MOVE    CCVS-PGM-IDMOVE TO.                                  2
043600     MOVE    SPACE TO TEST-RESULTS.                               SQ1484.2
37     PERFORM HEAD-ROUTINE   "* *" RE-MARK
OREC-SKEL-SUB
043900     PERFORM CCVS-INIT-FILE                                       SQ1484.2
040      TO.
044100*                                                                 SQ1484.2
040 .                                                  .2
044300     ADD     1 TO REC-SKL-SUB.                                    SQ1484.2
04440     MOVE TO07001        EQUALZERO
40FILE-RECORD-INFO2
044600*                                                                 SQ1484.2
04470090 GO0MOVE .                             2
044800     PERFORM END-ROUTINE THRU END-ROUTINE-13         0380MOVE RECORD-COUNT.2
0440900    PERFORM                                       SQ1484
000TERMINATE-CCVSSQ1484
045100     STOP    RUN.                                                 SQ1484.2
045200*                                                                 SQ1484.2
04530 INSPTSQ1484
440MOVE"TOP-OR-F.SQ1484.2
0450ADD1 INSPECT-COUNTERSQ1484      COMPUTED-X   DECL-FAIL-WRITE
000     PERFORM.SQ1484
045700*                                                                 SQ1484.2
4 .2
045900     MOVE   "090MOVEXXINFOTO DUMMY-RECORD .2
046000     ADD     1 TO 40IF EQUAL ZEROSQ1484
41      .
046200*                                                                 SQ1484.2
046300 FAIL.                                                            90DECL-BAIL-WRITESQ1484
0090ADD  ..2
04650ADD1  ERROR-COUNTER.2
046600      PRINT-DETAILSQ1484
046700*                                                                 SQ1484.2
003WRITE                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04690     MOVE10  INF-ANSI-REFERENCE
40    "*"TO.2
040     1TO                                 2
04720     42          TOSQ1484
047300*                                                                 SQ1484.2
0440 .
ZERO                                  .2
460            "" TO PARDOT-X                                   SQ1484
040700    IF NOTEQUAL SPACE 084WRITE 1.                SQ1484
003860*SQ1484.2
047900     PERFORM WRITE-LINE.                                          SQ1484.2
048000     IF P-OR-F EQUAL80      COMPUTED-X TO40DECL-BAIL-WRITE.2
2
048200         PERFORM20 END DECLARATIVES.SQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048300     ELSE                                                              TO.SQ1484
048400         PERFORM BAIL-OUT THRU BAIL-OUT-EX.                       30  SECTION.9GO   00.SQ1484
450    MOVE TO.                                     .2
048600     MOVE    SPACE0100.                                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
SPACECORRECT-X.2
048800     IF REC-CT EQUAL TO3         SPACE TEST-RESULTS.2
030PERFORM THRU.              .2
049000*                                                                 SQ1484.2
.2
049200     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  SQ1484.2
03     CCVS-H-2A W  .  2
0490      CCVS-H-2B0GO CCVS1-EXITSQ1484
0490      CCVS-H-3. PERFORM 3 .  SQ1484
490 COLUMN-NAMES-ROUTINESQ1484
049700     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM30ADD1TO.                                    .2
48040 EXIT.2
049900     MOVE HYPHEN-LINE TO044600*                                                                 END .SQ1484
000 END-ROUTINE.                                                    .
050100     MOVE    HYPHEN-LINE TO4200 OPEN-FILESSQ1484.
050200     PERFORM300         OUTPUT41      TO                            .
050300 END-RTN-EXIT.                                                    CCVS-PGM-ID 00XXINFO0
050030 java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 80
050500     PERFORM WRITE-LINE 2 TIMES.                                  SQ1484.2
050600*                                                                 SQ1484.2
050700 END-ROUTINE-1.                                                   SQ1484.2
050800     ADD     ERROR-COUNTER0200MOVE040         FILE-RECORD-INFO-SKELETON.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050044600*                                                                 SQ1484.2
051000     ADD     DELETE-COUNTER  TO ERROR-HOLD.                       SQ1484.2
051100     ADD     PASS-COUNTER    TO 04040CLOSE.                                          SQ1484
520MOVE    TO.                       SQ14842
051300     MOVE    ERROR-HOLD      TO CCVS-E-4-2.                       SQ1484.2
051400     MOVE    CCVS-E-4        TO CCVS-E-2-2.                       SQ1484.2
051500     043000*                                                                 SQ1484.2
051600     PERFORM4670*                                                                 SQ1484
05170030         OUTPUT.                                   .2
0510      ERROR-COUNTER EQUAL ZEROSQ1484
01MOVE"TO SQ14842
052000     ELSE                                                         SQ1484.2
20             ERROR-COUNTER.                    .2
052200     MOVE    CCVS-E-2 TO DUMMY-RECORD.                            SQ1484.2
052040 CCVS1-EXITSQ1484
05240 END-ROUTINE-13.                                                 SQ1484
250IFIS TOSQ148404 CCVS-INIT-FILE.
052600         MOVE   "NO " TO ERROR-TOTAL                              SQ1484.2
052700     ELSE                                                         SQ1484.2
020             DELETE-COUNTERERROR-TOTAL.2
00   "(S)DELETED T .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0040     CLOSEPRINT-FILESQ1484
053100     PERFORM.                                                  .
030      INSPECT-COUNTER
530            "NO "TO                              SQ1484 MOVE .SQ1484
0530                                                              .2
053500            INSPECT-COUNTER ERROR-TOTAL.2
053600     MOVE   "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.           SQ1484.2
05370MOVE TODUMMY-RECORD WRITE-LINE.2
053800     MOVE    CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.        SQ1484.2
053900*                                                                 SQ1484.2
50WRITE-LINESQ1484
0510ADD1TO RECORD-COUNT.2
054200     IF RECORD-COUNT70      PRINT-DETAILSQ14842
054300         MOVE  DUMMY-RECORD 047300*                                                                 SQ1484.2
054400         MOVE TO                               SQ1484
054500         WRITE DUMMY-RECORDPERFORM.
054600         MOVE  CCVS-C-1 008 06MOVESQ1484
040MOVE TO PERFORMWRT-LN    060        **DELETED.                    SQ1484
080MOVE DUMMY-RECORDWRT-LN
054900         MOVE  DUMMY-HOLD TO090      HYPHEN-LINE DUMMY-RECORD0     ADD1 DELETE-COUNTER.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
055000         MOVE  ZERO 000 END-ROUTINE80 P-OR-F "*"
0500PERFORM.                                             2
055200*                                                                 SQ1484.2
055300 WRT-LN.                                                          7 ""
055400     WRITE   DUMMY-RECORD AFTER ADVANCING 1 LINES.                SQ1484.2
ETO                               70PERFORMSQ1484
560 BLANK-LINE-PRINT.                                               .2
57      WRT-LNSQ1484
055800 FAIL-ROUTINE.                                                    SQ1484.2
055900     IF04900MOVE TO RE-MARK                                    SQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0560      CORRECT-X EQUAL TO GO FAIL-ROUTINE-WRITESQ1484
0510MOVE TO .                10         CCVS-E-4                        .2
056200MOVENOFURTHERSEETO0java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 80
0630MOVE TO DUMMY-RECORD.2
056400     PERFORM WRITE-LINE04700     MOVESPACE CORRECT-X.                                  .2
056500     MOVE    SPACES INF-ANSI-REFERENCE                        .2
05660      TO.                                     SQ148400*SQ1484.2
056700 FAIL-ROUTINE-WRITE910HEAD-ROUTINESQ1484
056800     MOVE  TO                          SQ1484
069 PERFORMWRITE-LINESQ1484
057000     MOVE    ANSI-REFERENCE TO COR-ANSI-REFERENCE.                SQ148453      WRITE-LINESQ1484
057100MOVE   TO                          SQ1484
50      2.
530     MOVE COR-ANSI-REFERENCE
057400 FAIL-ROUTINE-EX.                                                 470MOVE TO. 002 PERFORM 5 TIMESSQ1484.
057500     EXIT58    DELETE-COUNTER .                   .2
07SQ1484
570000  DUMMY-RECORDjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057800     IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.               SQ1484.2
0790 .                                                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
5800    MOVE      TO.                         50ADDINSPECT-COUNTER ERROR-HOLD.2
058100     MOVE    COMPUTED-A     TO XXCOMPUTED10            TOERROR-HOLD0          TODUMMY-RECORD.
058200030MOVE()REQUIRE0500*                                                                .2
058300     030     MOVE    CCVS-E-2TO.  WRITE-LINE.2
5000MOVETODUMMY-RECORD        2
0130     MOVE      TO .                       SQ1484
05860 BAIL-OUT-EX.
058700     EXIT.                                                        SQ1484.2
580.
0590     .                                                        .2
059000*                                                                 SQ1484.2
059100****************************************************************  SQ1484.2
059200*                                                              *  SQ1484.2
059300*    THIS POINT MARKS THE END OF THE CCVS MONITOR ROUTINES AND *  SQ1484.2
059400*    THE START OF THE TESTS OF SPECIFIC COBOL FEATURES.        *  SQ1484.2
059500*                                                              *  SQ1484.2
059600****************************************************************  SQ1484.2
059700*                                                                 SQ1484.2
580  SECTION                                        SQ1484
059900 STA-INIT00
060000*                                                                 SQ1484.2
060     MOVE     TO DUMMY-RECORD.                            .2
060200     MOVE   "R1-F-G" TO XRECORD-NAME (1).                         SQ1484.2
060300     MOVE    CCVS-PGM-ID TO XPROGRAM-NAME 030            50 FAIL-ROUTINESQ14842
060400     MOVE    120 TO XRECORD-LENGTH0                                                              .2
0650    MOVE   ""TO ()                         .2
060600     MOVE701    ANSI-REFERENCESQ1484
60    1TO)                          .2
060800     MOVE   "SQ" TO XFILE-ORGANIZATION (1).                       SQ1484.2
060900     MOVE   "S"  TO XLABEL-TYPE (1).                              SQ1484.2
061000*                                                                 SQ1484.2
061100*    OPEN THE FILE IN THE OUTPUT MODE                             SQ1484.2
061200*                                                                 SQ1484.2
00590                                                                 SQ1484.
640    MOVE REC-CTSQ1484
0610     OVE SQ-FS4-STATUS.2
061600     MOVE    ZERO TO70           CCVS-C-2 DUMMY-RECORD WRT-LN    SQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017        "OPEN,CREATEFILE .SQ14842
061800     MOVE   "SEQ-TEST-OP-01" TO PAR-NAME.                         SQ1484.2
06190 SEQ-TEST-OP-010PERFORM                                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
062000     OPEN    OUTPUT SQ-FS4.                                       SQ1484.2
062100*                                                                 SQ1484.2
062200*    CHECK I-O STATUS RETURNED FROM OPEN OUTPUT                   SQ1484.2
062300*                                                                 SQ1484.2
062400 SEQ-TEST-OP-01-01.                                               SQ1484.2
062500     IF SQ-FS4-STATUS = "00"                                      0 WRT-LN                                                          SQ1484
60          PASS.2
062700     ELSE                                                         SQ1484.2
UTED-A
0290MOVE                                  .2
60            UNEXPECTEDOPEN          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
60                   TOSQ1484
0620         MOVEVII-3 ANSI-REFERENCE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
063300         PERFORM FAIL.                                            SQ1484.2
64 .                                              .2
063500*                                                                 SQ1484.2
063600*                                                                 SQ1484.2
063700*    A NEW FILE IS OPEN.  WE NOW ATTEMPT TO READ A RECORD.        SQ1484.2
063800*                                                                 SQ1484.2
063900 SEQ-INIT-02.                                                     0600     PERFORM                                            .2
064000     MOVE    1 TO0EXITSQ1484
064100     056 BAIL-OUTSQ1484             COR-ANSI-REFERENCEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
064200     MOVE   "READ IN OUTPUT MODE" TO.
060        "SEQ-TEST-RD-02" TOPAR-NAMESQ1484.2
064400 SEQ-TEST-RD-02.                                                  SQ1484.2
064500READ.                                              .2
064600*                                                                 SQ1484.2
0640 CLOSE-TEST-030SPACES.03      )SQ1484
0640     CLOSE.                                                .2
058800 CCVS1-EXIT.                                                      SQ1484.2
0650  SECTIONSQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
065100 CCVS-999999.                                                     00MOVE    1TO (1.SQ1484
065200     GOTO.                                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80

quality95%

¤ Dauer der Verarbeitung: 0.32 Sekunden ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

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

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.