Quellcode-Bibliothek sq215a.cob Sprache: Cobol

000100 000100 IDENTIFICATION.                                         .2
00PROGRAM-IDSQ2154
000300     SQ215A.                                                      SQ2154.2
000400****************************************************************  SQ2154.2
000500*                                                              *  SQ2154.2
000600*    VALIDATION FOR:-                                          *  SQ2154.2
000700*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ2154.2
000800*    USING CCVS85 VERSION 3.0.                                 *  SQ2154.2
000900*                                                              *  SQ2154.2
001000*    CREATION DATE     /     VALIDATION DATE                   *  SQ2154.2
001100*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".SQ2154.2
001200*                                                              *  SQ2154.2
001300****************************************************************  SQ2154.2
001400*                                                              *  SQ2154.2
001500*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  SQ2154.2
001600*                                                              *  SQ2154.2
001700*            X-14   SEQUENTIAL MASS STORAGE                    *  SQ2154.2
001800*            X-55   SYSTEM PRINTER                             *  SQ2154.2
001900*            X-82   SOURCE-COMPUTER                            *  SQ2154.2
002000*            X-83   OBJECT-COMPUTER                            *  SQ2154.2
002100*            X-84   LABEL RECORDS OPTION                       *  SQ2154.2
002200*                                                              *  SQ2154.2
002300****************************************************************  SQ2154.2
002400*                                                              *  SQ2154.2
002500*    SQ215A TESTS THE CLOSE STATEMENT WITH THE WITH LOCK PHRASE*  SQ2154.2
002600*    A MASS STORAGE FILE IS CREATED, ONE RECORD IS WRITTEN     *  SQ2154.2
002700*    TO IT, AND IT IS CLOSED WITH LOCK.  AN ATTEMPT IS THEN    *  SQ2154.2
002800*    MADE TO REOPEN THE FILE.  I-O STATUS 38 IS EXPECTED AND   *  SQ2154.2
002900*    TESTED IN THE DECLARATIVES.                               *  SQ2154.2
003000*                                                              *  SQ2154.2
003100*    THIS PROGRAM HAS BEEN SPLIT FROM V2.0 ONWARDS.            *  SQ2154.2
003200*    THE NEW PROGRAMS ARE SQ229A AND SQ230A.                   *  SQ2154.2
003300****************************************************************  SQ2154.2
003400*                                                              *  SQ2154.2
003500*                                                                 SQ2154.2
00300ENVIRONMENT.                                            010*THIS HAS  AND SQ230A.                   *  SQ2154
00003500*                                                                 SQ2154.2
00380000300 ENVIRONMENT.                                            .2
030     .                                                    SQ2154
040 .
0400Card0131000900                                                              .2
004200*                                                                 SQ2154.2
004300INPUT-OUTPUT010*"COBOL 85 VERSION 4.2,02* * SQ2154.2
004400 FILE-CONTROL001400*                                                              *  SQ21540015001     .                                                    SQ2154*                                                              SQ2154004200*                                                                 SQ2154.2
003000*                                                              *  SQ2154.2
040"00* THE NEW PROGRAMS ARE SQ229A SQ230A SQ2154.2
040                                                           *  SQ2154
040     C0020SQ2154  DIVISIONSQ2154
004900            FILE STATUS IS SQ-FS1-STATUS.                         SQ2154.2
005000*                                                                 SQ2154.2
005100*                                                                 SQ2154.2
0520 DATA.SQ2154
005300 FILE0070      SQ-FS1 ASSIGN                                      SQ2154
005400 FD  PRINT-FILE                                                   00370 CONFIGURATIONSECTION90FILE IS.SQ2154
0050      RECORDSSQ2154
005600     Card0132                                                     SQ2154.2
0570     DATA RECORD IS PRINT-REC                        SQ2154
005800               .                                                  SQ21540520 DATA0410Card0131.2
005900 01  PRINT-REC3  SECTION0FILE                                                    SQ2154
040 FILE-CONTROL.SQ2154
006100*                                                                 SQ2154.2
00600
.
6                SQ2154
0080""                                                      .
006600*                                                                 SQ2154.2
0070  SECTIONSQ2154
006800*                                                                 SQ2154.2
006900***************************************************************   SQ2154.2
007000*                                                             *   SQ2154.2
007100*    WORKING-STORAGE DATA ITEMS SPECIFIC TO THIS TEST SUITE   *   SQ2154.2
007200*                                                             *   SQ2154.2
007300***************************************************************   SQ2154.2
007400*                                                                 SQ2154.2
7 1SQ-FS1-STATUS.2
007040                                                      .
007700   03  SQ-FS1-KEY-2   PIC X.006100*                                                                 SQ2154050     Card0132.2
007800*                                                                 SQ2154.2
007900***************************************************************   SQ2154.2
008000*                                                             *   SQ2154.2
008100*    WORKING-STORAGE DATA ITEMS USED BY THE CCVS              *   SQ2154.2
008200*                                                             *   SQ2154.2
008300***************************************************************   SQ2154.2
008400*                                                                 SQ2154.2
5      99                                       .2
008600*                                                                 SQ2154.2
008700 01  FILE-RECORD-INFORMATION-REC.                                 70 WORKING-STORAGE.SQ2154
008800     03 FILE-RECORD-INFO-SKELETON.                                SQ2154006900********************007000*                                                             *   SQ2154.2
008907060.SQ21542
009000             "060 3 SQ-FS1-KEY-1 PIC X.SQ2154.2
010       0 FILLER                  X(07003SQ-FS1-KEY-2SQ2154
009200007800*                                                                 006600*                                                                 SQ2154.2
009300        05 FILLER                 0069008300********008400*007000*                                                             *   SQ2154.2
90             ,=000,=,="SQ2154.2
009500        05 FILLER007400*                                                                 SQ2154.2
009600             ,RECKEY.             SQ2154
009700        05 FILLER                 PICTURE X(38)       008600*                                                                 SQ2154.2
009800             ",003 0080 3FILE-RECORD-INFO-SKELETONSQ2154java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
090         FILLER1     FILE-RECORD-INFO              2
0100                      X)SQ2154
1        PICTURESPACE
0120     03010700           07 XRECORD-NAME6.                      2
.SQ2154
00007FILLER X5.SQ2154
010500010600           07 FILLERPIC()                       .2
010600           07 FILLER              PIC X(8).                       SQ2154.2
010700           07 XRECORD-NAME X(6).                       SQ215400        PIC2.                      2
000           7PIC1.SQ2154
010900           07 REELUNIT-NUMBER     PIC 9(1).                       SQ2154.2
PICX(.                       SQ2154
10           0       PIC               X(7.                       07                   PICX(.2
120           0 FILLER 9(6)                       .2
01300           7 0     X()                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040           0 FILLERPIC.SQ2154
01150020                          PIC(6.SQ2154
               X5.SQ2154
011700           020 07FILLER X(5.SQ2154
011800           07 FILLER              PIC X(7).160011600           XFILE-ORGANIZATION (.SQ2154
011900           07 XRECORD-LENGTH      PIC 9(6).                       SQ21540207XLABEL-TYPE.                      2
0100           7FILLER(7).SQ2154
012100           07 CHARS-OR-RECORDS    PIC0100               PIC)                       SQ2154.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020           7FILLER X1)                       .2
012300           07 XBLOCK-SIZE         PIC0120           7 CHARS-OR-RECORDS X(2).                      .2
012400          7FILLER X(6).                      .2
01250013300           0 FILLERPIC(9.                       .2
060           7 FILLER X().                       SQ2154
012700           07 XFILE-ORGANIZATION20007 FILLER1500FILLER X9).SQ2154
180007 FILLER X(6)                       .2
02000 XLABEL-TYPE         PIC1.                       SQ21541700 FILLER               X(7.SQ2154
01300005 .                             SQ2154
013100           07 FILLER              PIC X()                       .2
320           XRECORD-KEYPIC9)                      2
013300           0012800           7 FILLERPIC X6).                       SQ2154
0340           0 ALTERNATE-KEY1 X(2040     FEATUREX2)VALUESQ2154
013500           07 FILLER              PIC30        0 FILE-RECORD-INFO-P121-240.SQ2154
03600           003000 FILLER X()                       SQ21542
170           030           7           X(29).                      2
013800*                                                                 SQ2154.2
013900 01  045     020           ALTERNATE-KEY2
1000               PIC.               SQ2154
014100     02 FEATURE             PIC X(24)  VALUE1703PARDOT-XVALUE.SQ2154030 0  TEST-RESULTSSQ2154
0402FILLER XVALUE.               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1300 P-OR-F0FILLER X       .               .2
0144000               PIC SPACESQ2154
01102PIC)VALUE.SQ2154
014600014600         PIC X(17)   " COMPUTED =".SQ2154
0105001400               PIC      VALUE.               SQ2154
10       3DOTVALUEVALUE.             SQ2154
19002ILLERX9    SPACESQ2154
015000     02 RE-MARK             PIC X(61).040       0 PARDOT-X            PIC       SPACE.SQ2154
015100  .                                               .2
150   2 FILLER X(   PIC -4.()       SQ2154
01500   000     2RPIC6)
0154000 .                                                 2
050     3     X()VALUESQ2154
015600     03 COMPUTED-N60        100FILLERX1)VALUE" SQ2154java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 80
015700     03 COMPUTED-0V18 REDEFINES05003     PIC2)VALUE.                     SQ2154
0180       REDEFINESCOMPUTED-APIC4.9(4.SQ2154
1900COMPUTED-14V4 PIC1.(.SQ2154
016000     06002CORRECT-XSQ2154
016100        04 COMPUTED-18V0                   170008     3CORRECT-A (0)VALUE.SQ2154
020       4FILLERPICX SQ2154
016300     03 FILLER PIC X(50) VALUE     3CORRECT-0V18 CORRECT-A0  REDEFINESCOMPUTED-A  -(4.()       .2
0164000  TEST-CORRECT10003CM-18V0 COMPUTED-A2
016500     02 FILLER PIC X(30110        0 COMPUTED-18V0                   PIC 9(8)            SQ2154.2
060     2FILLERX17         CORRECTSQ2154
016  (  SPACE
016800     03 CORRECT-A                  PIC 0014 1TEST-CORRECTSQ2154
016900     03 CORRECT-N    075     2  X(3 VALUESPACE2
017000     0070     3 FILLER X(2)  SPACE.                              SQ2154166FILLER X(17)  " CORRECT =".SQ2154
017100     3CORRECT-4V14 CORRECT-A -()91)     .2
017200     03 CORRECT-14V460     3CORRECT-AX20)VALUE.         SQ2154
0     COR-ANSI-REFERENCE X(8 VALUE SPACE.     SQ21542
0170                               PIC91).SQ2154
070004 FILLERPICX.SQ2154800  .SQ2154.2
0700    3 FILLERPIC X2) VALUE.                              SQ2154.2
017700     03 COR-ANSI-REFERENCE X(48)  SPACE.     SQ21542
017800 01  CCVS-C-1.                                                    SQ2154.2
01700     02 FILLER0810" SQ2154.2
01800     0    IS9)  FEATURE.
018100-    "SS 0130 02FILLERPIC X01400 CORRECT-18V0 PIC 91) SQ21542
080-"018200- " REMARKSSQ2154.2
018300     02 FILLER           PIC X(17)    VALUE SPACE.                SQ2154.2
018400 01  CCVS-C-2.                                                    SQ2154.2
           SQ2154
018600     02 FILLER           PIC070 0  CCVS-C-1SQ21542
018700     02 FILLER870     2FILLERPIC(6    VALUE SPACE.                SQ2154
1880     2FILLER IS X()     VALUE.                      SQ2154
018900     02 FILLER           PIC(9)LUEFEATURE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019000 01  REC-SKL-SUB X(7)VALUE.                SQ21542
1910001  REC-CT 99       VALUEZERO.2
019200 01DELETE-COUNTER 902  PIC                   .
10EPICZERO
019400 01  INSPECT-COUNTER                 PIC9 9VALUE.2
01500 0  PASS-COUNTER00 FILLER X6    java.lang.StringIndexOutOfBoundsException: Range [55, 50) out of bounds for length 80
0117001        00 PIC SPACE
019700 01  ERROR-HOLD        PIC 999      VALUE ZERO.                   SQ2154.2
019800 01 DUMMY-HOLD        PICX12)   VALUE.                  SQ21540900001REC-SKL-SUB()     ZEROSQ2154
901         9(5     VALUE.                   SQ2154.2
0200000102001ANSI-REFERENCEX4)VALUE.SQ2154
020100 01  CCVS-H-1210 1  CCVS-H-1SQ2154.
02200     02           PICX39)VALUE.               SQ21542
2000     2  FILLER X(42)                           SQ2154.2
0040     "OFFICIALCOBOL COMPILERVALIDATIONSYSTEM"                 SQ2154
2FILLERX3)    VALUESQ2154
020600 01  CCVS-H-2A.                                                   SQ2154.2
.2
080   2FILLERPIC(7VALUE" SQ21542
020900   02  FILLER            PIC XXXX   VALUE                         SQ2154.2
021000     ". "                                                      000             (9    VALUE
010   0              PIC2)VALUE
210 1        PIC(     ZERO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0210002FILLER X(41)  VALUE01ANSI-REFERENCE(4     .                 .2
021400*                                                                 SQ2154.2
021500 01  CCVS-H-2B.                                                   SQ2154.2
021600   02  FILLER            PIC X(15)  VALUE "TEST RESULT OF ".      SQ2154.2
27                PIC ()                                2
0180   0              PIC4)VALUE .SQ2154
029002FILLER X(12)DATION
022000                                                                  SQ2154.2
200              0070PIC.2
020" 2000FILLERPICX1)TESTRESULT .
022300002                VALUE
3SQ215A.2
02220                 PIC)02700            PIC()                                0
210   2FILLER()VALUE
270             OFFICIAL     HIGH
02280     0  FILLER          PIC(0100*" 85VERSION4., 1993 SSVG ".SQ2154
0290     COBOL8  .2,Apr3 SSVGSQ21542
230230 0                          X(8)                          SQ2154
023100"COPYRIGHT18,9 "
023200 0102250 1  CCVS-H-3SQ21542
VALUE SPACESQ2154
IC X(14) VALUE "END OFTEST- "              0180               SYSTEM 010   0 FILLERPIC1)                          SQ2154.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
002200*                                                              *  SQ2154.2
03600     0 FILLER X(45)00240                                                              .2
70  06210  2FILLER (2VALUE
0020            LEVEL"0*TESTED THE .* SQ2154.
023900     02  FILLER          PIC               X8                         .2
0003300*********02300     030*                                                              *0200CCVS-H-32
02410         0     PIC0060  .                                            .030".2
024200         03 FILLER         PIC X      VALUE SPACE230002 FILLERPIC(2)VALUESPACE                  .2
024300         03 ENDER-DESC     PIC X(44)  VALUE022700            " FOR OFFICIAL USE ONLY    ".                         .2
440            ""
02450 1  .                                                    SQ21540     COBOL01     .
024600          PIC                           2
OR0                  ()VALUESQ2154
20      PIC1   SPACE.2
024900     030     2FILLER X(2   SPACE210ERROR-TOTAL    VALUE                .2
020400   PIC(1 VALUE" "              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025100     02  FILLER          PIC X(8)   VALUE SPACE.                  SQ21540400            ERRORS  VALUE                 ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
50     2FILLER X(0)                           .2
0500" COPYRIGHT 1985,1986".                              SQ2154
CCVS-E-4SQ21542
2500     2 CCVS-E-4-1 XXX SPACE.                  SQ2154
02100 RROR-TOTAL    VALUESPACE2
5             PICXXX .                  .2
0240            ERRORS50      FILLER X(    .                  .2
0500      " WERE EXECUTED SUCCESSFULLY"                       2
026000 01  XXINFO.                                                      SQ2154.2
26100250             1818" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026200     02 INFO-TEXT.                                                220        PICVALUESQ2154
0050"VALIDATION, INSTITUTE OF . ".SQ2154
04XXCOMPUTED X2.SQ2154
0250       0 FILLER              X(5)    SPACE.              SQ2154
PIC).java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
270     2INF-ANSI-REFERENCE X(8.                             .2
026800 01  HYPHEN-LINE050 1 CCVS-E-4SQ2154java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
090FILLERIS   SPACE.2
027000050     2            PICX4   VALUE "SQ21542
0700"*****************"                 SQ2154
0720       0FILLER X8    .              .2
0732000 PIC0.SQ2154
200001                                                      2
                                     .2
027600*                                                                 SQ2154.2
02700 PROCEDURE.                                              .2
                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
290 SECTIONSQ2154
028000     USE AFTER STANDARD EXCEPTION 004FILLER-**********                 2
8
8      SQ-FS1-STATUSSQ2154
028300             PERFORM   .                                                 .2
02840
028500     ELSE                                                         SQ215420  DIVISION.                                             .2
80MOVE  SQ2154
028700             MOVE SQ-FS1-STATUS TO"*0 AFTERSTANDARD ON SQ-FS1.SQ2154.2
0280              "STATUS AFTEROPENAFTER INCORRECT"SQ2154
022740 01  CCVS-PGM-ID080        "8"SQ2154
029000             027030PERFORMSQ2154
210             PERFORM0260                                                                 .2
09200             GO ABNORMAL-TERM-DECL                             .2
029300     END-IF02800              SQ-FS1-STATUSTO COMPUTED-A.2
029400*                                                                 SQ2154.2
0250.                                                       290TO                                   SQ2154
029600     MOVE   081 OUTPUT-ERROR-PROCESS                                            SQ2154
029700     ADD     1 TOPASS-COUNTERSQ21542
280     PERFORMPRINT-DETAIL-DECLSQ2154.2
029900*                                                                 SQ2154.2
300 FAIL-DECL.                                                       .2
030100     MOVE080                                                              .2
030200     ADD     1 TO ERROR-COUNTER.                                  SQ215460"C0085" .SQ2154.2
PERFORMSQ21547             SQ-FS1-STATUS                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030400*                                                                 SQ2154.2
030500 PRINT-DETAIL-DECL.                                               SQ2154.2
030600     IF NOT EQUALTO                                  SQ2154.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
   . O                                   SQ2154
0031        FAIL.
030320     ADD1090*                                                                .2
031000     PERFORM WRITE-LINE-DECL250Card0132.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031100     IF P-OR-F0030    PRINT-DETAIL-DECL.2
0120        PERFORM                                  SQ21542
00600 01  L                                               .2
010     ELSESQ2154.2
0150          BAIL-OUT-DECL BAIL-OUT-EX-DECL.             SQ2154
031600     MOVE TO .                                     SQ215400 FAIL-DECLSQ2154java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0020           TO.                                  SQ2154
031800     OVESPACE06000  SQ-FS1R1-F-G-120PIC X(12)                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031900     IF REC-CT EQUAL TO ZERO  MOVE SPACE 00670 WORKING-STORAGE                                     SQ2154
0200         007000*             *   SQ2154.2
032100*                                                                 SQ2154.2
00000           ". .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30          1 TO.                                   .2
040IF GREATER0SQ2154
030         00          TOSQ2154
SPACE.
032700         WRITE007900**********************011      EQUAL 000**   SQ2154.2
032800100     MOVE TO.                                  .2
032900         MOVE0100PERFORM THRUFAIL-ROUTINE-EX-DECLSQ2154
0330000340     ELSE                                                         .2
310           HYPHEN-LINE019     REC-CT  MOVESPACE.SQ2154
033200         MOVE TO DUMMY-RECORDSQ21540160MOVE060*                                                                 .2
0330MOVE TO RECORD-COUNTSQ21548020WRITE-LINE-DECL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03300PERFORM.                                         .2
033500*                                                                 SQ2154.2
00  DUMMY-RECORD                         SQ2154
30        DUMMY-RECORD LINES0WRITE-LINE-DECLSQ2154
033800     27  AFTERSQ2154
..2
034000     0002         DUMMY-RECORD                         .2
034100 FAIL-ROUTINE-DECL AFTER3TOWRT-LN-DECL
2ICOMPUTED-X  TO                             .2
330GO30           TO                         SQ2154
3400    IF NOT EQUALTO                              SQ2154
034500             GO TO800            ,=" 2
034600     MOVE    ANSI-REFERENCE033500*                                                                 SQ21543           ZERO RECORD-COUNT                              .2
030MOVE TO
40XXINFOSQ2154
40PERFORMSQ2154
050         SPACES INF-ANSI-REFERENCESQ2154
3000        5FILE-RECORD-INFO-P1-120.2
035200 FAIL-ROUTINE-WRITE-DECL20IF NOT030                                           java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0330     MOVETEST-COMPUTED PRINT-REC.2
035400     PERFORM WRITE-LINE-DECL                                      600           07 FILLER              PIC X(8).                       SQ2154.2
3550MOVE TO COR-ANSI-REFERENCE6ANSI-REFERENCE.                SQ2154
0560         TEST-CORRECT PRINT-REC.2
035700     PERFORM WRITE-LINE-DECL 2 TIMES.                             SQ2154.2
050     MOVE         TO COR-ANSI-REFERENCE.2
035900FAIL-ROUTINE-EX-DECL090PERFORM  TIMESSQ2154
3600    10007PIC(1..2
036310GOFAIL-ROUTINE-EX-DECL0340CORRECT-X2
0 .SQ2154
0 CORRECT-A 3300MOVE PRINT-RECjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036400 BAIL-OUT-WRITE-DECL.                                             SQ2154MOVE TO.                              SQ2154
60MOVE      TO.                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
360MOVE         TO.                        SQ2154
011500           07 DO-NUMBER50FAIL-ROUTINE-EX-DECLSQ2154
368006
03690001180           7               02IF  TO TO.00TEST-COMPUTED.
00     SPACES19           7       96.SQ2154
03710 BAIL-OUT-EX-DECL                                                .2
70EXIT.
037300*                                                                 SQ2154.2
307 WRITE-LINE-DECL.2
037500     MOVE    SPACE TO DUMMY-RECORD01200           008MOVE DUMMY-RECORD.2
360PERFORM                                      007XBLOCK-SIZEPIC9()                       2
037700     MOVE00240           7FILLER X(6.                       SQ21542
38                                                    .2
03700     PERFORM 3 TIMES.2
038000*                                                                 SQ2154.2
038100 EXIT-DECL.                                                       037500     MOVE    SPACE TO DUMMY-RECORD                                SQ2154
038200     EXIT.                                                        SQ2154.2
03007              PIC.SQ2154
038400*                                                                 SQ2154.2
0SECTIONjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038600 OPEN-FILES.                                                      SQ215403800010 1TEST-RESULTS
038700     OPEN    OUTPUT PRINT-FILE.                                   SQ2154.2
038800     MOVE    CCVS-PGM-ID TO TEST-ID.                              SQ2154402 FILLERPICVALUE.               SQ2154.2
038900MOVE TOID-AGAINSQ2154
039000     MOVE    SPACE TO TEST-RESULTS.                               SQ2154.2
03903630      CORRECT-A TO0000MOVE TEST-ID.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039200     MOVEMOVE       00TO
900    TO
0 TOSQ2154
039500*                                                                 SQ2154.2
30CCVS-INIT-FILESQ2154java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039700     ADD     1 TO REC-SKL-SUB1.                                               .
380MOVE 039800     MOVE    FILE-RECORD-INFO-SKELETON TO
9FILE-RECORD-INFOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040000*                                                                 SQ2154.2
040100 CLOSE-FILES04000 CLOSE-FILES                                                     01900 COMPUTED-14V4 PIC(4.()SQ2154
040200     PERFORM END-ROUTINE0      END-ROUTINE 070          TOSQ2154
040300     CLOSE   PRINT-FILE.                                          SQ2154.2
04040 .                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00         RUN.160                                    X.SQ2154
040600*                                                                 SQ2154.2
0.                                                                 INSPECT-COUNTER2
040800     MOVE   "320 . .2
0       INSPECT-COUNTER2
041000     PERFORM PRINT-DETAIL380*                                                                .2
410SQ2154
04120360OPEN-FILESSQ21542
OVE   PASS  P-OR-F                                    SQ2154
1     ADDTOSQ215410        "PASS"  P-OR-F2
041500     PERFORM PRINT-DETAIL.                                        00  REDEFINES     PIC-91)         .2
041600*                                                                 SQ2154.2
090PERFORM COLUMN-NAMES-ROUTINE2
041800     MOVE   "FAIL*" TO P-OR-F.                                    SQ2154.2
4100ADD     TO.SQ2154.209      CCVS-INIT-FILE                             .2
400PERFORM.                                        SQ2154
042100*                                                                 SQ2154.2
042200DE-LETE.2
042304220DE-LETE.2
440        "***"  P-OR-FMOVE DELETEDRE-MARK90          1  REC-SKL-SUB.                                    SQ2154
042500     ADD     1 TO10     0 042500     ADD     1 TO DELETE-COUNTER
.
042700*                                                                 SQ2154.2
042800 PRINT-DETAIL20IF NOTEQUAL ZERO.2
4040MOVETOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30   .                                          java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043100         MOVE    REC-CT TO3CLOSE.SQ2154
00                  VALUE
043300     PERFORM WRITE-LINE.                                          SQ2154.2
034       30PERFORMTHRU
01800FILLERX4      "".SQ2154
TINE                SQ2154
049          1TOSQ2154
480          BAIL-OUT.                       .2
0010     PERFORM.                                        1     9.SQ2154
0    50        99VALUE2
410     MOVE TO.                                  .2
040   TO10
040          TOSQ2154
044400*                                                                 SQ2154.2
044500 HEAD-ROUTINE                                                    .2
0460      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
044700     000 00FAIL
80MOVE .   TIMES
044900     MOVE 010ADD1TO.                                  .2
045000 COLUMN-NAMES-ROUTINESQ2154000  FILLER X(9VALUE.               2
.           SQ2154
045200      COBOL                 SQ2154.
050        DUMMY-RECORD.SQ2154
045404906   .                                                   .2
0450MOVE TO              X7    CCVS85           ELETE-COUNTER.2
6      WRITE-LINE.                                  .2
470 END-RTN-EXIT050     MOVETO0420*.2
004520     MOVECCVS-C-2 DUMMY-RECORD. PERFORM WRITE-LINETIMES.2
045900     PERFORM045300     MOVE HYP TODUMMY-RECORD WRITE-LINE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046000*                                                                 SQ2154.2
046100 20                  X4)VALUE.                 .2
046200     ADD     ERROR-COUNTER0MOVE0214050.                                                    .2
     INSPECT-COUNTER ERROR-HOLD.40P-OR-F""SQ2154
0401              X1  060*SQ2154
0500     ADD     PASS-COUNTER ERROR-HOLDSQ21542
0460     MOVE    TO.                       .2
046700     MOVE    ERROR-HOLD      TO CCVS-E-4-2.                       SQ215460     01000             PIC(     08           .                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046800     MOVE    CCVS-E-4  FOR040SPACE.                                 60MOVE     CCVS-E-4-1
04690200                 PIC8                           SQ2154
047000     PERFORM WRITE-LINE.                                          SQ2154.2
410       "(S) FAILED ENDER-DESC. SQ21542
SQ2154.2070"FOR USE ONLY "                         2
  SQ2154.2
047400     ELSE                                                         SQ215470MOVE TO70      ERROR-COUNTERTO                            SQ2154
047500         MOVE    ERROR-COUNTER TO ERROR-TOTAL.                    SQ2154.03070             050COLUMN-NAMES-ROUTINE.2
40MOVEDUMMY-RECORD
0700PERFORM70      WRITE-LINE.2
400..                                                  32ILLER()  "ENDOF"              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
4MOVE  DUMMY-RECORD.2
048000         MOVE   "NO050PERFORM RITE-LINE5TIMES .2
048100     ELSE                                                         SQ2154.2050         CCVS-E-1DUMMY-RECORD03                PIC1VALUE                  0MOVE TO.                   .2
048200         MOVE    DELETE-COUNTER TO ERROR-TOTAL0          PIC048500     PERFORM WRITE-LINE.              .2
048300     MOVE   "TEST(S) DELETED " TO ENDER-DESCENCOUNTERED08   NOERROR-TOTAL
40    CCVS-E-2DUMMY-RECORD.                            04080MOVE ERROR-TOTAL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048500     PERFORM WRITE-LINE470            " OFFICIAL USE "04900MOVE  DUMMY-RECORDWRITE-LINEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04800     430                                                                 6         PASS-COUNTERCCVS-E-4-12
048700         MOVE   "NO " TO ERROR-TOTAL9                 PIC5)VALUE.2
048800     ELSE                                                         SQ2154.2
0489             INSPECT-COUNTER.                  .2
040      .                                          .2
0410    CCVS-E-2DUMMY-RECORD50" 95,8".
0920     MOVE TO. PERFORM.        SQ2154
049300*                                                                 SQ2154.2
049400 WRITE-LINE.050200*        MOVE  HYPHEN-LINE047300         MOVE   "NO " TO                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
90     ADD1 .                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049600*    IF RECORD-COUNT GREATER 50                                   SQ2154.2
049700*        MOVE  DUMMY-RECORD TO DUMMY-HOLD                         SQ2154.2
049800*        MOVE  SPACE TO DUMMY-RECORD                              SQ2154.2
047800 END-ROUTINE-13.                                                  SQ2154.2
050000*        MOVE  CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN            SQ2154.2
050100*        MOVE  CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    SQ2154.2
050200*        MOVE  HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN         SQ2154.2
050300*        MOVE  DUMMY-HOLD TO DUMMY-RECORD                         SQ2154.2
050400*        MOVE  ZERO TO RECORD-COUNT.                              SQ2154.2
0 .SQ2154
050600*                                                                 SQ2154.2
00.                                                          040java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 80
000
       DUMMY-RECORDjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1.2
051100     PERFORM700   PIC (510FAIL-ROUTINE-WRITE0MOVES " ENDER-DESC java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010 .
0530I  NOTEQUAL SPACE 020SQ215ASQ2154.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
540      CORRECT-X050ANSI-REFERENCE .260*SQ2154.2
0510MOVE    ANSI-REFERENCE TO INF-ANSI-REFERENCE7 .SQ2154
05600500PERFORM.SQ2154java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
570MOVETO                              .2
051800     PERFORM WRITE-LINE520 .                                                 SQ2154
051900     MOVE    SPACES TO INF-ANSI-REFERENCE.                        049900*        WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  SQ2154.2
020      TO.                                     05310IF NOTEQUALUMMY-RECORD  2TIMES2
05250300          DUMMY-HOLDTO                         SQ21542
052200     MOVE050CORRECT-A2
0230     PERFORM                                            0     MOVE     TO.SQ2154
0860             MOVE8 TO                               .2
570             MOVE TOCOMPUTED-A.2
052600     PERFORM WRITE-LINE 2 TIMES.                                  SQ2154.2
052700MOVE         TO.                SQ2154290TORE-MARK00B                                                     .2
05090     MOVE TO DUMMY-RECORD9FAIL-DECL
0030    .                                                        2
053010     PERFORMSQ2154
510      COMPUTED-A EQUAL SPACE TO054600                                                              .2
053200     IF CORRECT-A EQUAL054800*    THE START OF THE 025 .                                                       .2
030                                                  00******************************  ..2
MOVE XXCORRECT.2
053500     MOVE     TOXXCOMPUTED.2
053600     MOVE    ANSI-REFERENCE TO0530 .                                                .2
053700     MOVE    XXINFOTO0   FAIL                                    50*THIS FILE  CLOSESLOCK.
053800     PERFORM 052000     GO TO   FAIL-ROUTI.                                    SQ2154
590MOVE OINF-ANSI-REFERENCE.2
000BAIL-OUT-EX2
054100     EXIT030400*                                                                 SQ2154.2
0540 IL-DECL
500.SQ2154
054400*                                                                 SQ2154.2
054500****************************************************************  SQ2154.2
054600*                                                              *  SQ2154.2
054700*    THIS POINT MARKS THE END OF THE CCVS MONITOR ROUTINES AND *  SQ2154.2
054800*    THE START OF THE TESTS OF SPECIFIC COBOL FEATURES.        *  SQ2154.2
054900*                                                              *  SQ2154.2
055000****************************************************************  SQ2154.2
055100*                                                                 SQ2154.2
055200 SECT-SQ215A-0001 SECTION WRITE-LINE-DECL.2
055300 WRITE-INIT-GF-01.                                                SQ2154.2
055400*                                                                 SQ2154.2
055500*        THIS TEST CREATES FILE SQ-FS1 AND CLOSES IT WITH LOCK.   SQ2154.2
055600*        FIRST IT SETS UP A SKELETON RECORD IN WORKING STORAGE.   SQ2154.2
055700*                                                                 SQ2154.2
055800     MOVE "SQ-FS1" TO XFILE-NAME WRITE-OPEN-01.SQ2154java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
50" TO 1 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
500MOVE TO 1.                       .2
056100     032000     MOVE .                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05620056200     "" .SQ2154
060      1         XBLOCK-SIZE.                            .2
056400020IF GREATER                                   .2
E""     XFILE-ORGANIZATION.
560      "S"TO ()                            .2
056700     MOVE 1        TO XRECORD-NUMBER (1).                         SQ2154.2
056800*                                                                 SQ2154.2
..2
057000     MOVE    1 TO REC-CT.                                         .2
0710        "WRITE-OPEN-01"TO.                          .2
520MOVE OUTPUT "TOFEATURE .2
057300     MOVE   "**" TO SQ-FS1-STATUS.                                SQ21540MOVE,,FILE  ANSI-REFERENCE.2
057400     OPEN    OUTPUT SQ-FS1.                                       SQ2154.2
050     IF = "0 SQ2154.2
0360WRT-LN-DECLSQ2154
0577000370WRITE AFTERADVANCING  LINES.SQ2154
0578030         SPACE DUMMY-RECORDSQ2154
0790MOVE TOCOMPUTED-A.2
058000         MOVE   "FILE OPEN FAILED, FURTHER TESTS ABANDONED"       SQ2154.2
058100                   50.SQ2154
058200         0590          TOSQ2154
0580          FAILSQ2154.2
005910     MOVEWRITE-TEST-01 PAR-NAME                           SQ2154
05850     .
058600*                                                                 SQ2154.2
058700*        WRITE A SINGLE RECORD TO THE FILE                        SQ2154.2
058800*                                                                 SQ2154.2
058900 WRITE-INIT-01.                                                   SQ2154.2
0    TOSQ2154
059100     MOVE   "WRITE-TEST-01" TO10 TOFAIL-ROUTINE-EX-DECLSQ2154
90   SEQUENTIAL TO.                        SQ2154
05930 .                                                .2
0940     MOVE    FILE-RECORD-INFO-P1-12050      WRITE-LINE-DECLSQ2154
059500     WRITE   SQ-FS1R1-F-G-120.                                    SQ2154.2
059600     IF SQ-FS1-STATUS = "00"                                      SQ2154.2
05900         PERFORMSQ2154.
5ELSESQ2154
9   "0 SQ2154java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
COMPUTED-A
06010002
060200                   TO RE-MARK                                     SQ2154.2
060300         MOVE   "VII-3, VII-53,20 IF COMPUTED-ANOTEQUALTOSPACEGOTO BAIL-OUT-WRITE-DECL.SQ21542
060400         PERFORM FAIL                                             SQ2154.2
650GO   CCVS-EXIT.
0606036400BAIL-OUT-WRITE-DECLSQ2154.2
060700*                                                                 SQ2154.2
060800*        CLOSE THE FILE WITH LOCK, SO IT SHOULD NOT REOPEN        SQ2154.2
060900*                                                                 SQ2154.2
061000 CLOSE-INIT-0106        SQ-FS1 LOCK    SPACES.SQ2154
0610    1TOSQ2154
061200     MOVE   "CLOSE-TEST-01"   TO PAR-NAME.                        SQ2154.2
061300     MOVE   "CLOSE WITH 340ABNORMAL-TERM-DECL. SQ21542
     *..2
0100 LOSE-TEST-01SQ2154.2
06100CLOSE WITH.                                    .2
061700     IF SQ-FS1-STATUS = "00"                                      SQ2154.2
061800         PERFORM PASS                                             SQ2154.0790PERFORM 3 TIMESSQ2154
061900     ELSE                                                         SQ2154.2
60            00  CORRECT-A2
062100         MOVE   ,  "ANSI-REFERENCE.
20CLOSELOCK TESTS0******************.2
062300                                                           .
0038400*                                                                 SQ21543 .                                                .2
062500         PERFORM FAIL062900*        HAVING LOCKED THE .                                                      SQ2154.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0    CCVS-EXIT         WHICH TO A  FILE          .2

062800*                                                                 SQ2154.2
062900*        HAVING LOCKED THE FILE, WE NOW TRY TO REOPEN IT.         SQ2154.2
063000*        THE TEST PASSES IF THE FILE CANNOT BE OPENED AND         SQ2154.2
063100*        THE APPROPRIATE I-O STATUS VALUE IS RETURNED.            SQ2154.2
063200*        AN IMPLEMENTATION MAY TERMINATE EXECUTION OF A           SQ2154.2
063300*        PROGRAM WHICH ATTEMPTS TO REOPEN A LOCKED FILE,          SQ2154.2
063400*        OR MAY RETURN CONTROL TO THE STATEMENT FOLLOWING         SQ2154.2
063500*        THE OPEN STATEMENT.                                      SQ2154.2
063600*                                                                 SQ2154.2
030 .
063800*                                                                 SQ2154.2
063900     MOVE00FILE-RECORD-INFO60CCVS-EXITSQ2154056800*                                                                 SQ2154.2
004000400
610   " AFTER " TO.                         SQ2154
040"* SQ-FS1-STATUS SQ21542
064300 OPEN-TEST-01.                                                    SQ2154.2
064400     OPEN    OUTPUT SQ-FS1.                                       SQ2154.2
064500*                                                                 SQ2154.2
064600 0740OPEN SQ-FS1SQ2154.2
0647004700INSPT.                                                           SQ21542
0680GOTO .                                           .2

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.22Bemerkung: ¤

*Bot Zugriff

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

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

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.