Quelle sq148a.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         SQ1484.2
000200 PROGRAM-ID.                                                      SQ1484.2
000300     SQ148A.                                                      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 CONFIGURATION001800*            X-55   SYSTEM PRINTER                             *  SQ1484001900*            X-82   SOURCE-COMPUTER                            *  SQ1484.2
003600 SOURCE-COMPUTER.                                                 SQ1484.2
003700     Card0130.                                                    SQ1484.2
003800 OBJECT-COMPUTER.                                                 002600*    A FILE OPEN IN003000*    THE MAIN LINE CODE.                                       *  SQ1484.2
003900     Card0131.                                                    SQ1484.2
004000*                                                                 SQ1484.2
004100 INPUT-OUTPUT.                                            SQ1484.2
004200 FILE-CONTROL.                                                    SQ1484.2
040     SELECT ASSIGN                                   SQ1484
004400     "C0085" .                                                    SQ1484.2
004500*                                                                 SQ1484.2
004600     SELECTSQ-FS4SQ1484.2
004700            ASSIGN                                                SQ1484.2
004800     "C0020"                                                      SQ1484.2
004900            FILE STATUS SQ-FS4-STATUS                             SQ1484.2
005000            ORGANIZATION IS SEQUENTIAL                            SQ1484.2
005100            .                                                     SQ1484004500*                                                                 SQ1484.2
005200*                                                                 SQ1484.2
005300*                                                                 SQ1484.2
005400 DATA DIVISION.                                                   SQ1484.2
0500FILE.                                                    .2
005600 FD  PRINT-FILE                                                   SQ1484.2
005700     LABEL RECORDS                                                SQ1484.2
005800     Card0132                                                     SQ1484.2
005900     DATA RECORD IS PRINT-REC DUMMY-RECORD                        SQ1484.2
0000                                                                 .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
000500      RECORDSSQ14842
006600     BLOCK  CONTAINS 120 CHARACTERS                               SQ1484.2
006700     RECORD CONTAINS 120 CHARACTERS                               SQ1484.2
006800                .                                                 SQ1484.2
006900 01  SQ-FS4R1-F-G-120.                                            SQ14840800Card0132SQ1484
007000        0500DATARECORD PRINT-REC                        SQ1484
007100           07 FILLER              PIC X(5).                       SQ1484.2
007200           07 FFILE-NAME          PIC X(6).                       SQ1484.2
007300           07 FILLER              PIC X(8).                       SQ1484.2
007400           07 FRECORD-NAME        PIC X(6).                       SQ1484.2
007500           07 FILLER              PIC X(1).                       SQ1484.2
007600           0     PIC91)                       .2
00770007FILLERPIC() SQ1484
007800           07 FRECORD-NUMBER      PIC 9(6).                       SQ1484.2
PIC X(6)                       .2
008000           07 FUPDATE-NUMBER      PIC 9(2).                       SQ1484.080               SQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
07               X5)                       .2
008200           07 FODO-NUMBER         PIC 9(4).                       SQ1484.2
008300           07 FILLER              PIC X(5).                       70           7FILLER X().                       SQ1484
47FPROGRAM-NAME5.SQ1484
008500           07 FILLER              PIC X(7).                       SQ1484.2
008600           07 FRECORD-LENGTH      PIC 9(6).                       SQ1484.2
0707FILLER X(7.                       .2
008800           07 FCHARS-OR-RECORDS   PIC X(2).                       SQ1484.2
008900           07 FILLER              070                         PIC)                       SQ1484
009000           07 FBLOCK-SIZE         PIC 9(4).                       SQ1484.2
009100           07 FILLER              PIC X(6).                       SQ1484.2
009200           07 FRECORDS-IN-FILEPIC9(6SQ1484
009300           07 FILLER              PIC X(5).                       SQ1484.2
0090007   PICX().SQ1484
009500           07 FILLER              PIC X(6).                       SQ1484.2
06007FLABEL-TYPE (1).                       .2
009700*                                                                 SQ1484.2
0080WORKING-STORAGE SECTION                                         SQ1484
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
010600 01  STATUS-GROUP000800*    USING               X8                       .2
010700     04  SQ-FS4-STATUS.                                           00                           X1.SQ1484RECORDS-IN-FILE9)                       .2
0050           0 XFILE-ORGANIZATION010******8            * SQ1484
010900         07  SQ-FS4-KEY-20700FILLER 6                       .
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
011700 01  REC-SKEL-SUB   PIC 99.                                       SQ1484002500*    THIS PROGRAM 002600*    A FILE OPEN080           7 FODO-NUMBERDECLARATIVES.AN    *  SQ14842
011800*                                                                 SQ1484.2
011900 01  FILE-RECORD-INFORMATION-REC.                                 SQ148400800           7 FPROGRAM-NAME       PICX5)                       SQ14840340 ENVIRONMENT.                                            .2
0120      .                                .008           7   PIC2.                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012100        05 FILLER                 PICTURE X(48)       VALUE600              PIC                       040FILE-CONTROL.2
012200             "FILE= ,017000* SQ1484.2
012300        05 FILLER                 PICTURE X(46)       VALUE       0020007     PIC ()                       .2
0120             ,=0PGM00BLKSIZ004    PICjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0500 FILLER00             X      VALUE2
012600             ",LFIL076 3DOTVALUEPIC99 VALUE ZERO. SQ1484.2
000070     0 FILLER              PICVALUE.               .2
10             RECKEY
19 05 FILLER                  X(3)VALUE.2
013000             ",ALTKEY1= ".            SQ1484.2
0000*************************100*                                                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013200             ",ALTKEY2= ".            SQ1484.2
10050*SQ14842
013400     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              SQ1484100 1STATUS-GROUP00500SQ1484     2              X(61
013500        05 FILE-RECORD-INFO-P1-120.                               SQ1484.2
000         7SQ-FS4-KEY-1 X                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013700           07 XFILE-NAME          PIC X(6).                       SQ1484.2
01380           7 FILLER X(8).SQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
19007XRECORD-NAME X(6)                       .2
014000           07 FILLER              PIC X(1).                       SQ1484.2
014100           07      PIC 91.000PRINT-REC X(0..2
01010 1R   PIC.SQ14842    PICTURE.SQ1484
014300           07 XRECORD-NUMBER0     3COMPUTED-N    REDEFINES COMPUTED-A PIC -(04  SQ-FS401*.2
080     0  REDEFINES COMPUTED-A.(8.0100 SQ1484
15            UPDATE-NUMBER ()                       .2
01460060      RECORD0PICTURE        .2
49      REDEFINES9(.1)      .
0              PIC00FILLER1 3 REDEFINES-1..SQ1484
.2
015000               PIC0 0 FILLERPICTURE00SQ-FS4R1-F-G-1202
50          7       96).                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
12007FILLER X()                       SQ1484
0153000730           07FILLERPICX(8).SQ1484        5 05000 PIC .                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015400           07 03000                  PICTURE)       09       PIC) "CORRECT"                SQ14842
050                     PIC4.                       .2
015600           07 FILLER              PIC X(6)120             ALTKEY20CORRECT-NPIC
0150            RECORDS-IN-FILE     PIC.SQ1484
015800           07 FILLER              PIC X(5).                       SQ148400CORRECT-14V4       -()(.SQ1484               X5
050           09           PIC                       SQ1484080           07FODO-NUMBER 94.SQ1484
000         11           REELUNIT-NUMBERSQ1484
1100          .                             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
                            .2
FILLERPIC40
016400           07 XRECORD-KEY         PIC X(29).                      SQ14840080007 FILLERPIC7.SQ1484
160           0 FILLER X(9).SQ1484
016600           07 ALTERNATE-KEY1      PIC X(29).                      SQ14840          PIC4107ODO-NUMBER4.SQ1484
60            PIC SQ1484
18007ALTERNATE-KEY29.                      SQ14842
060                          PIC)                       .2
017000*                                                                 SQ1484.2
017100 01  021700     02 FILLER IS)    VALUE "000 0FFILE-ORGANIZATIONPIC(.SQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017200     02 FILLER              PIC X      VALUE SPACE.               SQ1484.2
020 1  CCVS-C-2                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
070       3               PIC1   SPACE50XBLOCK-SIZE  SECTION2
017500       03 PARDOT-X            PIC X      VALUE SPACE.             SQ1484.2
010101000************************************   SQ14840100**   SQ1484.2
070     0               PIC SPACE               SQ1484
024     0FILLER() "FAIL".SQ1484
017900     02 FILLER              PIC X      VALUE010400*2500   PIC7) 010500                                                                 .2
0180000110           0 XLABEL-TYPEPIC8         PIC SQ1484
PIC SPACE
018200     02 RE-MARK             PIC X(61).                            016300           07 FILLER              PIC X(8).                       SQ1484
0130 01  TEST-COMPUTEDSQ1484
018400   02 FILLER  PIC X(30)  VALUE SPACE00ERROR-COUNTER     PIC 9       ZERO           FILLER(..2
018500   02 FILLER  PIC X(17)  VALUE2200PASS-COUNTER001PIC9                                       2
0160   02 .                                                 01900  .                                 SQ1484
018700     03 COMPUTED-A    PIC X(20)  VALUE 0220             FILE050DUMMY-HOLD0   VALUE2
018800     03 COMPUTED-N               PIC       SPACESQ1484
018900     0020"ODO00PGM LRECL000,LKSIZ=00.SQ14842
09100              X       SPACE
1900023900     02  FILLER   3     SPACES0,LFILLBLR
019200     03       CM-18V0 REDEFINES COMPUTED-A.                       40017700     0FILLER)VALUE
1005FILLER(3)VALUE
01940200FILLERPIC .               .2
100PIC) .SQ1484
019600 01  TEST-CORRECT0",= ".            SQ1484FPIC  SPACE
1030        0                  PICTUREVALUE.
  PIC60FILLER   VALUE
019900     02 CORRECT-X.                                                70"."SQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2000                   PIC -NOT" SQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0000PICQ1484
02020003  REDEFINES80     REDEFINESCOMPUTED-A()          2
000     0  REDEFINES CORRECT-A94.(4.SQ1484
2200CCVS-H-2BSQ148411003 REDEFINES PIC4.()       .2
203REDEFINES.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
26002 0TEST-ID)                                .
020700         04 FILLER0440           14                                    .                 .
20800     0  PIC  SPACESQ1484
000     3 COR-ANSI-REFERENCE             PIC           ODO-NUMBER4                       160TEST-CORRECTSQ1484
021000*                                                                 SQ1484.2
021100 00007FILLER X7.SQ1484
022002 FILLER  PIC X        VALUE.                     500 PIC)
202FILLERX7VALUE2
021400     02 FILLER  PIC IS X        00    CORRECT-A()(.SQ1484
  PIC007FILLER X1SQ1484000  REDEFINES      PIC .9(8 SQ1484
1 2  PIC           .SQ1484
0100FILLER ISX5     VALUE     .2
027           RECORDS-IN-FILE00     3CR-18V0.                        2
021900     02 FILLER  PIC IS X(62)    VALUE "REMARKS050007XFILE-ORGANIZATION X(2). SQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00 1CCVS-C-22800  PIC()VALUE.                              .2
022000     306003           FILLER8.2
024           XRECORD-KEY.SQ1484
0200     0            PIC5)VALUE .                  SQ1484
202 FILLERPIC)VALUESQ1484
022500     02 FILLER  PIC X(72)  VALUE070     2ID-AGAIN13     PIC16                  (9.
022600*                                                                 SQ1484.2
022700 01  REC-SKL-SUB       PIC 9(2)     VALUE ZERO.01600           7 ALTERNATE-KEY2      PICX(9).                      SQ148400            PIC100                        PIC)                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2800              PIC9       VALUEZERO.2
02290 1DELETE-COUNTER99      VALUE.                   SQ1484            PICVALUE.             .2
230001ERROR-COUNTER9VALUE.SQ1484
2001  INSPECT-COUNTER   PIC0PIC)SPACE
2300  PASS-COUNTER00CCVS-E-32
0230800             X22  VALUE.
0234020" OFFICIAL ONLY"                             2
0230 10800             X1   SPACE                  2
200        PIC)VALUE2
023700 01  ANSI-REFERENCE    PIC X(48)    VALUE SPACES.                 SQ1484700" VALIDATION, NATIONAL INSTITUTE OFSTD &TECH. ".13 0  .                                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
8   .                                                    00   PIC)VALUE.                          10          COMPUTED-A9)9)       2
002java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 80
0000FILLER (4)                           SQ1484
040     OFFICIAL20             PIC     .                  SQ1484
22002FILLER X(3)    VALUE0FILLER(0VALUE2
024300 01  CCVS-H-2A090        ESTS SUCCESSFULLYSQ1484
0240   2FILLER200DELETE-COUNTER00XXINFO.2
040   2  FILLER             X(7)VALUE" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024600030001PASS-COUNTER 999VALUE.                   SQ1484
270".2.SQ14842
024800   02  FILLER            030 1ERROR-HOLD         99       ZERO.2
024900            " COPY - NOT FOR DISTRIBUTION".                       SQ1484.2
200   0              PIC) SPACE                  SQ1484
025100*                                                                 SQ1484.2
025200       0 FILLERPIC)   VALUE SPACE0 CCVS-H-1.2
0030      4          PIC)SQ1484 (9     SQ1484
050   0             PIC X()                                .2
025500   02  FILLER020500     03      CR- REDEFINES.                         .2
                SQ1484
025700     " HIGH ".                                              000   PIC XVALUE1CCVS-H-2A.2
00200F  X2VALUE
029008-   "***************"                 2
026000  0             PIC8SQ1484
026100     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD 01100 CCVS-C-1 SQ1484
                           0-**********" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026300     02  FILLER1020   2FILLERX28  VALUE2
040.2
050   2FILLER X(4)VALUE                  .2
026600     "COBOL 85 VERSION031400* SQ1484.2
0600             X(8                           SQ1484
280" 1985,198 05 0 PIC IS X2 IS "". SQ14842
                                       .2
X(52)VALUE.2
0710     02 FILLER   X(1)VALUEEND TEST-.2
027200     02 ID-AGAIN00 PICX)VALUE SQ1484
02702100     2 FILLER38  SECTIONSQ1484
0274002000  .                                                    .2
027500     02  FILLER          PIC X(31)  VALUE SPACE.                  SQ148400022200  2PIC)VALUE" .
070     2  FILLER X(21  VALUE.                  SQ1484
0725FILLER()VALUE
027800         03 ERROR-TOTAL    PIC XXX20             GO  DECL-ABNORMAL-TERMSQ1484
                    VALUE.SQ148440ELSESQ1484.2
0290          VALIDATIONQ1484
020              4"TOCORRECT-A SQ1484.
0280 1                                                    0MOVE COMPUTED-A
0802           X(2                           SQ1484
02800            "FOR OFFICIAL USE ONLY".                             1" VALIDATION030 RE-MARK SQ14842
028500     02  FILLER          PIC X(12)  VALUE SPACE.023000  30                                                  .2
260     0             ()330
028700"ON-SITE VALIDATION, NATIONAL INSTITUTE STD TECH. ".SQ148400   PIC       ZERO2
0800FILLER(200FILLER2)VALUE.
0  PIC0300  .SQ1484
029000             "COPYRIGHT 1985,9620 1CCVS-E-1.SQ1484.2
029100 01  CCVS-E-4.                                                    SQ148430      DECL-PRINT-DETAIL             X4VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029200     02 CCVS-E-4-1240 0  .                                                   .2
0900    02 FILLERPIC40ADD1034100     ADD     1 X9
029400     02 CCVS-E-4-2       PIC0340250   2FILLER X()VALUE              .2
029500     02 FILLER           PIC4DECL-DE-LETESQ1484
" SQ14842
02700  .                                                      2
029800     02 FILLER           20              PIC0            .                                 2
029900     02 INFO-TEXT.                                                SQ1484.2
           PIC X8    SPACE              .2
030100       04 XXCOMPUTED         PIC X(20).                           SQ14842
03020050         TEST-RESULTS PRINT-REC.2
030300       04 XXCORRECT          PIC X(20).                           SQ1484.2
04   PIC4)                            .2
030500 01  HYPHEN-LINE.                                                 SQ14840570      HIGH                                              .2
03870     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD TECH ..08 PERFORMDECL-FAIL-ROUTINE THRUDECL-FAIL-EXSQ14842
030700     02 FILLER  PIC IS X(65)    VALUE IS0800
38-**************
03060     MOVE    SPACE COMPUTED-X.2
031000-    "******************************".                            60"FOR 03 TO CORRECT-X .2
031100 01  CCVS-PGM-ID  PIC X(9)   VALUE60             SPACE PAR-NAME.2
0320"".                                                         TOSQ1484
031300*                                                                 SQ1484.2
031400*                                                                 SQ1484.2
03150 PROCEDURE .                                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031600 DECLARATIVES.                                                    SQ148420        MOVE00            PIC()200 .
031700*                                                                 SQ1484.2
SECTION                             .2
031900     USE AFTER STANDARD EXCEPTION PROCEDURE0         3     PICX4)                       2                    X5VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020 READ-ERROR-PROCESS70PERFORMSQ1484
032100     IF  SQ-FS4-STATUS = "47"                                     SQ1484.2
020             PERFORM00           PICVALUE SQ1484
30PERFORMSQ1484
032400     ELSE                                                         SQ1484.2
032500             MOVE "47" TO CORRECT-A                               SQ1484FILLER0
360MOVESQ-FS4-STATUS COMPUTED-A                     SQ148410    "************.SQ14842
0370MOVE   OFOUTPUTSQ14842
032800TORE-MARK                                   SQ1484
320              "VII-5 .354FANSI-REFERENCE0 .SQ1484.
080IF NOTEQUAL SPACE TO.       .2
0090     MOVE     TOINF-ANSI-REFERENCE.               .2
033200310    MOVENO INFORMATION"TOINFO-TEXT SQ1484.
033300*                                                                 SQ1484.2
0340DECL-PASS.2
.2
033600     ADD     1 TO2980     0 FILLER            X1)VALUE.
033700      DECL-PRINT-DETAILSQ1484
033800*                                                                 SQ1484.2
30 DECL-FAIL.                                                       2
0300        "FAIL"TO.                                    .2
034100     ADD     1 TO ERROR-COUNTER.                                  SQ148420             GOTO                             .2
40PERFORMSQ1484
034300*                                                                 SQ1484.2
03440 DECL-DE-LETESQ1484
034500032600              SQ-FS4-STATUS COMPUTED-A.2
0430DECL-FAIL-EX032700             MOVE "STATUS FOR READ OF 0INF-ANSI-REFERENCE)
034700     ADD     1 TO DELETE-COUNTER.                                 SQ1484002  PIC00*SQ1484.2
034800     PERFORM DECL-PRINT-DETAIL .                                                       .2
034900*                                                                 SQ1484.2
050 DECL-PRINT-DETAIL                                               2
03000 .                                                 .2
32 MOVETOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050MOVETO.SQ1484         COMPUTED-A XXCOMPUTED.2
035400     MOVE    TEST-RESULTS TO PRINT-REC.                           10         ANSI-REFERENCEINF-ANSI-REFERENCE2
035500     PERFORM DECL-WRITE-LINE.                                     SQ1484.2
035600     IF P-OR-F0 PROCEDUREDIVISIONSQ1484
050          DECL-WRITE-LINESQ14840.
0380         DECL-FAIL-ROUTINE DECL-FAIL-EXSQ14848 SECTIONSQ1484
30ELSE.2
036000010     EXIT.SQ1484.2
060MOVE P-OR-F.2
03010*SQ1484.2
036300     MOVE    SPACE TO CORRECT-X.                                  SQ1484.2
036400     020      SPACETO.                                  .2
060             SPACE.SQ1484
036600     MOVE020      "ABNORMAL TERMINATION AT THISPOINT IS ACCEPTABLE"      .2
036700*                                                                 SQ1484.2
60.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0360          1 TO.                                   .2
037000     IF RECORD-COUNT GREATER 50                                   SQ1484470020                     RE-MARK020
037100         030             40EXIT.2
3             SPACE
370         AFTER                 SQ1484
03500             MOVE"TOPARDOT-XSQ1484.2
3500             CCVS-C-2                         0420*                                                                 0MOVE TO.                             .2
037600         PERFORM DECL-WRT-LN 2 TIMES                              SQ1484.2
03700         MOVE    HYPHEN-LINE DUMMY-RECORD0PERFORMDECL-PRINT-DETAIL.
0033800*                                                                 SQ1484.2
037900         MOVE    DUMMY-HOLD TO DUMMY-RECORD                       00 DECL-BAIL.                     .
038000         MOVE    ZERO1          TOSPACE.SQ1484
80      DECL-WRT-LNSQ1484
038200*                                                                 SQ1484.2
0330DECL-WRT-LN34DECL-DE-LETE.2
0470    PERFORM HEAD-ROUTINE   "* DELETED** RE-MARK.SQ1484.2
5MOVE..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038600*                                                                 SQ1484.2
038700 DECL-FAIL-ROUTINE030          TO                                   2
038800     IF COMPUTED-X DUMMY-HOLDjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0389020CCVS-INIT-FILESQ1484
039000     MOVE    ANSI-REFERENCE TO INF-ANSI-REFERENCE0WRITE  ADVANCINGPAGE.2
30DECL-PRINT-DETAIL.
039200     MOVE    XXINFO TO0         FILE-RECORD-INFO-SKELETON07050IF TO.2
305 REC-SKL-SUB
03907460                                                                 SQ1484
350     050MOVE TOSQ1484
03960 DECL-FAIL-WRITESQ1484
039700MOVE8              TO.                            2
380    PERFORM DECL-WRITE-LINE.2
039900     MOVE    ANSI-REFERENCE TO COR-ANSI-REFERENCE.                SQ1484.2
040000     MOVE    TEST-CORRECT50          DECL-FAIL-ROUTINE DECL-FAIL-EX.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040100     PERFORM038600*                                                                 SQ1484.2
040200     MOVE    SPACES310     MOVE TO P-OR-F.SQ14845          TO                                .080IF  EQUALSPACE      .
0.
040400     EXIT.                                                        SQ1484.2
040500*                                                                 SQ1484.2
060DECL-BAIL     PRINT-DETAIL.2
2
040800     IF046200*                                                                 SQ1484.2
0400 .                                                 .2
041000     MOVE    CORRECT-A TO XXCORRECT.                              0           RECORD-COUNT
041100     MOVE    COMPUTED-APERFORM.                                        .2
041200     MOVE    ANSI-REFERENCE    SPACEDUMMY-RECORD.
403         DUMMY-RECORD                2
14         CCVS-C-1PERFORMSQ1484
40MOVEINF-ANSI-REFERENCE
041600 DECL-BAIL-EX7    **POR-F
041707 MOVE70ADDTO                                 .
041800*                                                                 SQ1484.2
490DECL-ABNORMAL-TERMSQ1484
042000     MOVE SPACE TO DUMMY-RECORD.                                  SQ1484.2
042100     PERFORM 042100     PERFORM DECL-WRITE-LINESQ1484
04220070MOVE. TO PARDOT-X                                   .2
042300             TO DUMMY-RECORD.                                     SQ1484.2
20      DECL-WRITE-LINE.                             .2
042500*                                                                 SQ1484.2
042600 END-DECLS.                                                       SQ1484.2
042700     EXIT.                                                        SQ1484.2
0420 END DECLARATIVES.                                               .2
042900*                                                                 SQ1484.2
043000*                                                                 SQ1484.2
0410CCVS1.30GO   06 java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
0432040         SPACE P-OR-FSQ1484
043300     OPEN    OUTPUT PRINT-FILE.                                   SQ1484.2
043400     MOVE    CCVS-PGM-ID TO TEST-ID.                              SQ1484.2
04350    CCVS-PGM-ID .                             .2
04300MOVE TO.                               SQ1484
430      HEAD-ROUTINE COLUMN-NAMES-ROUTINE              SQ1484
049000*                                                                 SQ1484420             TO.                                     SQ1484.20          COR-ANSI-REFERENCE.
043900     PERFORM CCVS-INIT-FILE90  TO. RITE-LINE.
0440 GO CCVS1-EXITSQ1484
044100*                                                                 SQ1484.2
04090 COLUMN-NAMES-ROUTINE.                                            .2
0440          1 REC-SKL-SUBSQ1484
04         FILE-RECORD-INFO-SKELETON TO                         SQ1484.2
044500                  FILE-RECORD-INFO (REC-SKL-SUB).090470   .SQ1484
044600*                                                                 SQ1484.2
04042900*                                                                 SQ1484.2
044800     PERFORM END-ROUTINE THRU000 END-ROUTINE.SQ1484.
040CLOSE
045000 TERMINATE-CCVS.                                                  SQ1484.2
045100     STOP    RUN.                                                 SQ1484.2
045200*                                                                 SQ1484.2
045300 INSPT.                                                                TOSQ1484
045400     MOVE   "INSPT" TO49      CCVS-INIT-FILE.                             .2
045500     ADD     1 TO INSPECT-COUNTER.                                SQ1484.2
04600      PRINT-DETAIL.                                        .2
045700*                                                                 SQ1484.2
045800 PASS.                                                            SQ1484.2
490MOVE  TO P-OR-F                                    2
046000     ADD     1 TO PASS-COUNTER.                                   SQ1484.2
046100     PERFORM PRINT-DETAIL.                                        SQ1484.020PERFORMDECL-WRITE-LINEPERFORMEND-ROUTINE.                     .2
046200*                                                                 SQ1484.2
4100    STOP.                                                 .2
046400     MOVE   "FAIL*" TO P-OR-F.                                    SQ1484.2
046500     ADD     1 TO ERROR-COUNTER.                                  SQ1484.2
046600      PRINT-DETAIL                                        .2
046700*                                                                 SQ1484.2
004560     PERFORM.                                        SQ14842
04690045700*                                                                 SQ1484.2
047004580 PASSSQ148490            NOERROR-TOTAL450     MOVE    CCVS-PGM-ID ID-AGAINSQ14842
047100     ADD     1 TO DELETE-COUNTER.                                 SQ1484.2
04720     PERFORM.                                        .2
047300*                                                                 SQ1484.2
047400 PRINT-DETAIL0 END-ROUTINE-13.                                                 .2
047500     IF0459550 DELETE-COUNTER ZERO.
460MOVE"TOPARDOT-X .2
400MOVE TO.SQ1484
04 (REC-SKL-SUB.2
047900     PERFORM WRITE-LINE.                                          SQ1484.2
048000     IF P-OR-F EQUAL TO "FAIL*"                                   SQ1484.2
41         00MOVES "O.SQ14842
0420PERFORM THRU FAIL-ROUTINE-EXSQ1484.2
048300     ELSE                                                         SQ1484.2
048400         PERFORM BAIL-OUT THRU BAIL-OUT-EX.                       SQ14840640        "020 INSPECT-COUNTER EQUALTOZEROSQ1484.2
450        SPACEP-OR-F.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
SPACE COMPUTED-X0
048700     MOVE                                                         0MOVE TO.                  SQ1484
048800     IF REC-CT EQUAL TO ZERO  MOVE SPACE TO0         CCVS-E-2 . PERFORM.        SQ1484
048900     MOVE    SPACE TO RE-MARK.                                    SQ14840580PASSSQ1484.2
049000*                                                                 SQ1484.2
049100 HEAD-ROUTINE.                                                    1  DELETE-COUNTERSQ148440          1TO .                                   SQ1484
049200     MOVE CCVS-H-1  TO 0600 FAILSQ1484.2
049300     MOVE CCVS-H-2A 04740 PRINT-DETAILSQ14840440MOVEFAILP-OR-F2
049400     0650ADD1TO.                                  .2
0900      CCVS-H-3                                            SQ14842
04960 00 00MOVE .
0497000770         MOVE TO DOTVALUE570          CCVS-C-2 DUMMY-RECORD WRT-LN    SQ1484   ** ** O RE-MARK
09808            TO PERFORMSQ1484
490MOVE TO. PERFORM4700ADD1 DELETE-COUNTERSQ1484
500 .                                                          P-OR-F  FAIL.2
050100     MOVE    HYPHEN-LINE70PRINT-DETAIL510PERFORM SQ1484
05020PERFORM 5 TIMESSQ14842
050300 END-RTN-EXIT.                                                    SQ1484.2
0504046        . TO2
550     PERFORM 2 TIMESSQ1484
050600*                                                                 SQ1484.2
570END-ROUTINE-1    SPACE.SQ1484
50800ADD     DUMMY-RECORDSQ1484PERFORMSQ1484
050900     ADD     INSPECT-COUNTER TO050 BLANK-LINE-PRINT.                                               SQ1484
051000     ADD     DELETE-COUNTER  TO ERROR-HOLD.                       SQ1484.2
051100     ADD     PASS-COUNTER    TO ERROR-HOLD.                       SQ1484.2
051200     MOVE    PASS-COUNTER    TO CCVS-E-4-1.                       SQ1484.2
051300     MOVE    ERROR-HOLD      TO CCVS-E-4-260IF NOT EQUAL  SPACE TO.    .2
0540MOVE        TOCCVS-E-2-2
051500     MOVECCVS-E-2 DUMMY-RECORD                      .2
0560     WRITE-LINE                                          0     CCVS-H-2ADUMMY-RECORDPERFORMTIMES
0570        "TEST(S)FAILED TOENDER-DESC. SQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051800     IF ERROR-COUNTER 04800      REC-CT TO  0450     MOVE  DUMMY-RECORD. WRITE-LINE TIMES.2
5100         MOVENO"TO ERROR-TOTAL SQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052000     ELSE                                                         SQ1484.2
052100         MOVE    ERROR-COUNTER TO ERROR-TOTAL.                    SQ1484         TEST-COMPUTED PRINT-REC.2
0690    PERFORM                                            .2
0200PERFORM.                                          .2
052400 END-ROUTINE-13         TEST-CORRECT PRINT-REC.2
052500     IF05000                                                      .02     W  TIMES
052600         MOVE   "NO " TO ERROR-TOTAL                              SQ1484.2
052700     ELSE                                                         SQ1484.2
0580         MOVE TOERROR-TOTALSQ1484
052900     MOVE   "TEST(S) DELETED07600 BAIL-OUT .2
30     CCVS-E-2SQ1484
053100     PERFORM WRITE-LINE.                                          SQ1484.2
053200     IF INSPECT-COUNTER EQUAL TO ZERO                             0000 END-ROUTINE.                                                     .2
053300         MOVE   080        CORRECT-A XXCORRECT9     INSPECT-COUNTERERROR-HOLDSQ1484
053400     ELSE                                                         SQ1484.2
053500         MOVE0      WRITE-LINE2TIMESSQ1484
030        "TEST()REQUIRE INSPECTION" TO60*                                                                SQ1484
570     MOVE    CCVS-E-2  DUMMY-RECORDPERFORM.        SQ1484
00MOVETODUMMY-RECORD.        SQ1484
053900*                                                                 SQ1484.2
054000 WRITE-LINE0BAIL-OUT-EX.SQ1484.2
054100     0    CCVS-E-2DUMMY-RECORD2
520     IF GREATER 5                                   .2
0080 CCVS1-EXITSQ1484.2
0  SPACEDUMMY-RECORD                              .2
054500         WRITE DUMMY-RECORD AFTER ADVANCING PAGE01900MOVE"O"TO                              SQ1484
054600         MOVE  CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN            SQ1484.2
054700         MOVE  051400        05920*                                                             SQ1484.
0400MOVEHYPHEN-LINE TODUMMY-RECORD PERFORM         020PERFORM5940    THE OF TESTS  FEATURES.
540MOVE TO                         .2
00         ZERO090************************* SQ1484
055100     PERFORM WRT-LN05800IF IS EQUAL TO                            SQ1484
055200*                                                                 SQ1484.2
055300 WRT-LN.                                                          SQ1484.010MOVE TO ERROR-TOTALSQ1484
055400     WRITE   DUMMY-RECORD AFTER ADVANCING 1 LINES.                SQ1484.2
055500     MOVE    SPACE TO DUMMY-RECORD.                               SQ14840MOVE(S      " ENDER-DESC. SQ1484.2
560 .                                                .2
055700     PERFORM WRT-LN.                                              SQ1484.2
0580FAIL-ROUTINESQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
055900     IF COMPUTED-X052800         MOVE    DE TO.                   SQ1484
056000     IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE00     MOVE   CC  CHARS-OR-RECORDS1.SQ1484
60MOVE TOINF-ANSI-REFERENCE
05060MOVERECORDS-IN-FILESQ1484
560         XXINFO DUMMY-RECORDSQ1484
056400     PERFORM WRITE-LINE 2 TIMES.                                  SQ1484530MOVENO TO ERROR-TOTALSQ1484
056500     MOVE    SPACES TO INF-ANSI-REFERENCE0400ADD1TO.                                   SQ1484.2
056600     GO TO   FAIL-ROUTINE-EX.                                     SQ1484.2
056700 FAIL-ROUTINE-WRITE061200*                                                                 SQ1484.2
056800     MOVE30*                                                                 SQ1484.
05690100        1 TO.                                         .2
057000     MOVE    ANSI-REFERENCE TO COR-ANSI-REFERENCE.                SQ1484.2
057100     MOVE    TEST-CORRECT   TO PRINT-REC                          SQ1484.2
057200     PERFORM WRITE-LINE 2 TIMES.                                  670MOVE  "TOFEATURE .
057300     MOVE    SPACES50           ZERO RECORD-COUNT                              .2
057400 FAIL-ROUTINE-EX.                                                 SQ1484055200*                                                                 SQ1484.2
050EXITSQ1484
057600 BAIL-OUT.                                                        SQ1484MOVE TO  WRT-LN.2
057700     IF COMPUTED-A NOT EQUAL20*MOVE TO RECORD-COUNT2
057800IF EQUAL TOSPACE TO.               .2
057900 BAIL-OUT-WRITE.                                                  SQ1484.2
058000     MOVE    CORRECT-A      TO XXCORRECT.                         SQ1484.2
058100     MOVE    COMPUTED-A50    SPACE .                               .2
058200     MOVE TO INF-ANSI-REFERENCESQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
80MOVE .062800         MOVE    SQ-FS4-STATUS TO COMP.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
058400     PERFORM WRITE-LINE 2 TIMES.                                  SQ1484.2
058500     MOVE    SPACES TO60MOVE TO.                .2
058600 BAIL-OUT-EX.                                                     SQ1484.2
0870     EXIT                                                        .2
058800 CCVS1-EXIT.                                                      SQ1484.2
0580     .
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
006 BAIL-OUTSQ1484             COR-ANSI-REFERENCE2
059900 STA-INIT.                                                         COMPUTED-AEQUAL SPACEGO .       SQ1484
060000*                                                                 SQ1484.2
060100     MOVE   "SQ-FS4" TO XFILE-NAME (1).                           SQ1484.2
60        "R1-F-G"TO 1.SQ1484
00          TO                    .2
060400     MOVE40      SQ-FS4SQ1484
060500     MOVE   "CC" TO CHARS-OR-RECORDS50MOVE TO                              SQ1484
060600     MOVE    1   TO00CCVS-EXIT.                                               .2
0670     MOVE    1   RECORDS-IN-FILE)                          .2
060800     MOVE   "SQ" TO XFILE-ORGANIZATION (1).                       SQ1484.2
060900     MOVE   "S"  TO 059400*    THE START OF THE TESTS OF SPECIFIC COBOL FEATURES.        *  SQ14840CCVS1-EXITSQ14842
061000*                                                                 SQ1484.2
061100*    OPEN THE FILE IN THE OUTPUT MODE                             SQ1484.2
061200*                                                                 SQ1484.2
061300 SEQ-INIT-01.                                                     059300*    THIS POINT MARKS THE END OF THE CCVS MONITOR ROUTINES AND *  SQ1484059400*    THE START OF THE TESTS OF SPECIFIC COBOL FEATURES.        *  SQ1484.2
061400     MOVE    1 TO REC-CT590 SECT-SQ148A-0002SECTIONSQ1484.2
6150        "**"TO.                                .2
061600     MOVE    ZERO TO XRECORD-NUMBER060000*                                                                 MOVE TO ()                    .2
0      (1 SQ1484
600     MOVE" . .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
061900 SEQ-TEST-OP-01.                                                  SQ1484.2
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-01061000*                                                                 SQ1484.2
062500     IF061100*    OPEN THE FILE IN THE OUTPUT MODE                             SQ1484.06100         1 TO REC-CTSQ1484.2
062600         06300 SEQ-INIT-01SQ14840MOVE XRECORD-NUMBER                          java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
062700     ELSE                                                         SQ1484.2
20             SQ-FS4-STATUS                      SQ1484
690         MOVE"0 TO .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0300         MOVE"UNEXPECTED CODEFROM OUTPUT SQ1484.2
063100                   TO RE-MARK                                     SQ148410MOVESEQ-TEST-OP-010620     I-O STATUS RETURNED FROMOPEN                   .2
063200         MOVE   "VII-3, VII-43" TO ANSI-REFERENCE                 SQ1484.2
06330         PERFORM.                                            2
640SEQ-TEST-01-01-ENDSQ1484
063500*                                                                 SQ1484.2
063600*                                                                 SQ1484.2
063700*    A NEW FILE IS OPEN.  WE NOW ATTEMPT TO READ A RECORD.        SQ1484.2
063800*                                                                 SQ1484.2
00610                    RE-MARKSQ1484.2
064000     MOVE    1 TO REC-CT.                                         SQ1484.2
064100     MOVE   "**" TO SQ-FS4-STATUS.                                SQ1484.2
030 SEQ-TEST-01-01-ENDSQ1484.2
064300     MOVE   "SEQ-TEST-RD-02" TO PAR-NAME.                         SQ1484.2
0640 SEQ-TEST-RD-02SQ14842
064500     READ063600*                                                                 SQ1484.2
064600*                                                                 SQ1484.2
7CLOSE-TEST-03SQ1484
064800     CLOSE SQ-FS4.                                                063500*                                                                 SQ1484.2
064900*                                                                 SQ1484.2
063800*                                                                 SQ1484.2
065100 CCVS-999999.                                                     SQ14840         1  REC-CTSQ14842
065200     GO TO   CLOSE-FILES.                                         SQ1484.2

quality95%

¤ Dauer der Verarbeitung: 0.33 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.