Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/SQ/ (NIST Fortran ^©) Datei vom 4.1.2008 mit Größe 41 kB

Quelle sq130a.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         SQ1304.2
000200 PROGRAM-ID.                                                      SQ1304.2
000300     SQ130A.                                                      SQ1304.2
000400****************************************************************  SQ1304.2
000500*                                                              *  SQ1304.2
000600*    VALIDATION FOR:-                                          *  SQ1304.2
000700*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ1304.2
000800*    USING CCVS85 VERSION 1.0 ISSUED IN JANUARY 1986.          *  SQ1304.2
000900*                             REVISED 1986, AUGUST             *  SQ1304.2
001000*                                                              *  SQ1304.2
001100*    CREATION DATE     /     VALIDATION DATE                   *  SQ1304.2
001200*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".SQ1304.2
001300*                                                              *  SQ1304.2
001400****************************************************************  SQ1304.2
001500*                                                              *  SQ1304.2
001600*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  SQ1304.2
001700*                                                              *  SQ1304.2
001800*            X-14   SEQUENTIAL MASS STORAGE FILE               *  SQ1304.2
001900*            X-55   SYSTEM PRINTER                             *  SQ1304.2
002000*            X-82   SOURCE-COMPUTER                            *  SQ1304.2
002100*            X-83   OBJECT-COMPUTER.                           *  SQ1304.2
002200*                                                              *  SQ1304.2
002300*                                                              *  SQ1304.2
002400****************************************************************  SQ1304.2
002500*                                                              *  SQ1304.2
002600*    SQ130A ATTEMPTS TO OPEN FOR INPUT-OUTPUT A MASS STORAGE   *  SQ1304.2
002700*    FILE WHICH IS NOT PRESENT.  THIS SHOULD RESULT IN A       *  SQ1304.2
002800*    PERMANENT ERROR AND AN I-O STATUS OF "35".  THE PROGRAM   *  SQ1304.2
002900*    DOES NOT CONTAIN AN APPLICABLE DECLARATIVE PROCEDURE. IN  *  SQ1304.2
003000*    THESE CIRCUMSTANCES THE STANDARD ALLOWS THE IMPLEMENTOR   *  SQ1304.2
003100*    TO TERMINATE EXECUTION OF THE PROGRAM OR TO CONTINUE.     *  SQ1304.2
003200*                                                              *  SQ1304.2
003300****************************************************************  SQ1304.2
003400*                                                                 SQ1304.2
003002900*    DOES003100*    TO002400********003300**003400*                                                                 SQ1304002600500003500 ENVIRONMENT  NOT.  THIS08*PERMANENT I-O* NOTCONTAIN THESE030     TERMINATE0*  .2
00.
3 ..2
08     .
0.SQ13048.                                                    0java.lang.StringIndexOutOfBoundsException: Range [78, 72) out of bounds for length 80
0Card0131java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
004100*                                                                 SQ1304.2
004200 INPUT-OUTPUT SECTIONSQ13040 IS0 SQ-FS1.
004300 FILE-CONTROL.00500ACCESSISSQ1304
0  IS.S2
005600*                                                                 52000570SQ1304
004600*                                                                 SQ1304.2
0047000FILE .                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0
0                                  0                                                     2
0    6L                                                2
005100           RECORD0.SQ1304
005200006500 01      PICTURESQ1304
50 SQ-FS1                                      2
005400     "C0020"                                                      00. SQ1304
05FILE SQ-FS1-STATUS2
005600*                                                                 SQ1304.2
005700*                                                                 SQ1304.2
.SQ1304
005900 FILE00SQ1304     5         PICSQ1304
65                PIC.2
6     RECORDS
Card013206    0C-FAIL2
00DATA IS                         SQ1304
04               SQ1304
0050  PRINT-REC X10)000               PIC.SQ1304
06   000                PIC)                            java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00SQ1304
060  .                                                    0 RECORD                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0690  .                                               2
007000     05  RAW-DATA-KEY        PIC X(6).                            SQ1304.2
007100     0             PIC.                             08  SECTION.2
007200     05  C-TIMEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007300     05  NO-OF-TESTS009000***********************************009100*                                                             *   000     000920    WORKING-STORAGE 0000400900                                                                 .2
4                       PIC9                             .2
070     5C-ALL90900*                                                                 .2
007600     05  C-FAIL              PIC 999.                             SQ1304010000*                                                                 SQ1304.2
00700 C-DELETED9.SQ1304
007800     05  C-INSPECT           PIC 999.                             SQ1304.2
0070001FILE-RECORD-INFORMATION-REC                                 .2
00800     5  C-INDENT.SQ1304
008100     05  C-ABORT             PIC X(8).                            SQ1304.2
008200*                                                                 SQ1304.2
0305                SQ1304
008400     LABEL RECORDPICTURE1 X0java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05                                                                 .2
00SQ-FS1R1-F-G-120 ***************10                                                             .2
008700*                                                                 SQ1304.2
008800 WORKING-STORAGE SECTION 1SQ-FS1-STATUS             =..2
008900*                                                                 SQ1304.2
009000***************************************************************   SQ1304.2
009100*                                                             *   SQ1304.2
009200*    WORKING-STORAGE DATA ITEMS SPECIFIC TO THIS TEST SUITE   *   SQ1304.2
009300*                                                             *   SQ1304.2
009400***************************************************************   SQ1304.2
009500*                                                                 SQ1304.2
000  .SQ1304
009700   03  SQ-FS1-KEY-1   PIC X.                                      SQ1304.2
00   3SQ-FS1-KEY-2 0900                                                                 .2
009900*                                                                 SQ1304.2
010000*                                                                 SQ1304.2
010100***************************************************************   SQ1304.2
010200*                                                             *   SQ1304.2
010300*    WORKING-STORAGE DATA ITEMS USED BY THE CCVS              *   SQ1304.2
010400*                                                             *   SQ1304.2
010500***************************************************************   SQ1304.2
010600*                                                                 SQ1304.2
0000  REC-SKEL-SUBPIC9SQ1304
010800*                                                                 SQ1304.2
010900 01000  .SQ1304
0110000FILE-RECORD-INFO-SKELETONSQ1304
011100        05 FILLER100                   X(4)VALUE.2
000120           07XFILE-NAMEX()SQ1304
1130        5FILLERPICTURE(4)       VALUE       SQ1304.2
0140             "ODO000,PGM LRECL0000, =0000".    SQ1304
0105FILLER                 (26             Q1304
060             "LFIL=00,ORG LBLR="                        .2
011700        05 FILLER                 PICTURE X(37)       VALUE       SQ1304.2
010"RECKEY= "             .2
011900        05 FILLER                 PICTURE X(38)       VALUE       SQ1304300       PIC96.SQ1304
".                                                .
020        5 FILLER                  X(38       VALUESQ1304
0120             ,ALTKEY2            .2
012300        05 FILLER030           7FILLER X(5)". .2
1400 FILE-RECORD-INFOPICTURE(8       VALUE.2
0.02
012030           07 XPROGRAM-NAME X()                       .2
07007XFILE-NAME()                       .
01041007XRECORD-LENGTH9()                      .
012900           07 XRECORD-NAME        PIC12003FILE-RECORD-INFOOCCURS  0TIMES7     (.SQ1304
013000           07 FILLER               X()014400           07 FILLER              PIC X(1).
-NUMBER ()                       .2
0 X(7).                       470           7ECORDS-IN-FILE (6..2
040                          PIC                       .2
7FILLERPIC().java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
3500 PIC2.SQ1304
013600           07 FILLER              PIC X(5).                       SQ1304.2
07                      PIC 94.SQ1304
013800050         .                             SQ1304
0190           0  PIC5.SQ1304
014000           07 FILLER              PIC X(7).                       SQ13041401100     IC1)                       2
04                  PIC()                        SQ1304
014200           07 FILLER              PIC X(7).                       SQ130430           0 RECORD-NUMBERPIC()                       .2
014300           07 015600          0 ALTERNATE-KEY1 X(29).SQ1304
040             PIC( S..2
014500           001800 ALTERNATE-KEY2 X(9)                      .2
Q1304
014700           07 RECORDS-IN-FILE     PIC 9(6).                       SQ1304.2
040           7FILLER 014800           07 FILLER              PIC XSQ1304java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014900           07 XFILE-ORGANIZATION  PIC X(0100302FEATURE ()VALUESPACE.
0504           7FILLERPIC7)SQ1304
1100 XLABEL-TYPE         PIC (1.                       SQ1304
01060     2FILLER X      VALUESPACE.2
01530160     0  .SQ13042
010                       X1)VALUE.             SQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0500           0 0127ILLERX7).SQ1304
015600           07 ALTERNATE-KEY10430           0 HARS-OR-RECORDS (20       3            99     ZERO.2
570          0 FILLER X()                       .2
01580           07 ALTERNATE-KEY2      PIC X(29).                      SQ1304.2
  PIC()                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016000*                                                                 SQ1304.2
0600 0  016100 01  TEST-RESULTS              PIC().SQ1304java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
06200     02 FILLER150   2FILLERFILLERPIC(7  " =..2
016300     .                                                 807PICSQ1304
0               X SPACE
0101007         REDEFINES PIC(9)        2
016600     02 FILLER X       SPACESQ1304
016700     02  PAR-NAME  REDEFINES 050           07XLABEL-TYPE X()                       .2
100 PIC(1)               .2
016900018200             REDEFINES COMPUTED-ASQ1304500FILLERPIC(8                       .2
070       3 DOTVALUE 9VALUE.              SQ1304
011004F                           X.                 .
05500FILLER (0)VALUE                             ..2
00801.SQ13042
0740   2 FILLERPIC702F PIC X(30 VALUE                             SQ1304
R  PIC 1  VALUECOMPUTED                .2
017600   02 COMPUTED-X.                                                 SQ1304.2016000*                                                                 SQ1304.2
1700 PICX0  VALUESPACE.2
017090     3CORRECT-N      PIC9(9).9()      SQ13042
070     03 COMPUTED-0V18COMPUTED-A-91)
REDEFINES -491)       .2
018100     03 116002               X      .               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018200     030970         0                             X.               .2
100                    PIC() SQ1304
14004FILLERPICSQ1304
01170     02  PAR-NAME                                                .2
160 0  .                                                .2
0180     2FILLER X(0  SPACE                             .2
018800     00200     0   PIC X9)VALUE" PASQ1304.2
018900     0030-   SSSQ1304
01900040           " .2
019100     03 CORRECT-N    REDEFINES CORRECT-A00     2FILLER000     3D            PIC       ZERO2
019200     02                 PIC6     VALUE"".             .2
019300     03 CORRECT-4V14 290    02FILLER X(1)VALUESQ1304
0140     0  REDEFINES0     0 FILLERPIC () "FAIL"               .
15003      CR-18V0REDEFINES CORRECT-A.SQ1304
019601000 REC-SKL-SUB       PIC()VALUE .                  .
10 03COMPUTED-A    PIC0) .                     SQ1304
0198001 0    ICVALUE.                  SQ1304
100 R-ANSI-REFERENCE X48  SPACE     SQ13042
20000 CCVS-C-1.2
020100     02 FILLER  PIC0100        PIC99VALUE.                   .2
0020     0  PIC 9   ISFEATURE
020300-    "SS PARAGRAPH-NAME010 1ERROR-HOLD PIC 999VALUE ZERO. SQ1304.2
0204000 1  DUMMY-HOLDPIC(2)VALUESPACESQ1304
020500     02 FILLER           PIC X(17)    VALUE SPACE 1RECORD-COUNT01004 COMPUTED-18V0 -91)            .
                       SQ1304
0207020 1CCVS-H-1SQ1304
020800     02 FILLER           PIC X(6)     VALUE "TESTED".             SQ1304.2
2000     02FILLERPIC16    VALUE                .2
021000     020           4    VALUE
10FILLER0..
021200 02       10     2  1)VALUE
021300              PIC ZERO0 .SQ1304
0240 01  DELETE-COUNTER 99      VALUE.                   SQ130400              PIC0  VALUESPACE9003CORRECT-NREDEFINES 9()99      .2
021500 01  ERROR-COUNTER     PIC 9210              PIC   VALUE.
260  9VALUE
021720103REDEFINES      -49)    .
        9      ZEROjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00  ERROR-HOLD99     VALUE.SQ1304
022000 01  DUMMY-HOLD        PIC X(120)   190     3FILLER X(2  SPACESQ1304
022100 01190     3 COR-ANSI-REFERENCE X(8VALUE300.                                                   .2
220  ANSI-REFERENCE    PIC8     SPACESSQ1304
3 1
202           X9     SPACES.2
022500     0220     2FILLER210   2 FILLER2)                          2
20"OFFICIALCOBOLCOMPILER .2
022700     04   2             X2                         SQ1304
01CVS-H-2ASQ1304
022900   02  FILLER            PIC X(40)  VALUE SPACE.                  SQ130400     2FILLERPIC200                (8VALUE2
023000   0260 01.SQ1304
0210   0               XXXX                         .2
20042" .
0230   2FILLER X(8)                           SQ1304
0050     COBOL5VERSION  93SSVG.2
250   0FILLER            PIC X(41)  VALUE SPACE.                  SQ13042
023600*                                                                 SQ1304.2
270 1CCVS-H-2BSQ1304
023800   02  FILLER            PIC0500 0  CCVS-E-1SQ13042
023900   02  TEST-ID           PIC X(9).                                SQ1304.2
20   2FILLER X(4VALUE                 .2
0210  0  FILLERPIC X(1)26     2FILLERPIC()VALUE"END OFTEST- .SQ13042
022      HIGH                                              .2
050 1REC-SKL-SUB9()VALUE.                   SQ13042
02000  ..SQ1304.2
024500   02  FILLER            PIC X(58)  0060                PIC1 VALUE.                 SQ13042
0060     02          PIC21  SPACESQ1304
024700 0620     0  0260   PIC 99VALUE.                   SQ1304
02480     0            PIC3)VALUE.2
024900            " FOR OFFICIAL USE ONLY ".                         SQ1304.2
050     2FILLERPIC58  VALUESQ1304
025100     "COBOL02280 1 9 . .2
025200     0260"0001 ERROR-HOLD PIC99VALUE.. SQ13042
050             COPYRIGHT52001
24001  .                                                   .2
2502 FILLER X(201      PIC4VALUE                 2
020240                  X3 SPACES02          8SQ1304
2003     0  FILLER8VALUESQ1304
025800     02270     2FILLER           X2) VALUESQ1304
0227     2FILLERPIC3)   VALUE               .2
2600CCVS-E-4SQ1304.
026100     02  FILLER          PIC X(21)  VALUE SPACE.                  2900  FILLER            PIC4)VALUESPACE02700             VALUE.
0202CCVS-E-2-22
026300         03 ERROR-TOTAL    PIC XXX    VALUE SPACE.                SQ130402900     02 CCVS-E-4-2PICXXX SPACE.                  SQ1304.2
026400         03 02800     0            PIC40                           SQ1304
06               PICX4)VALUESQ1304
026600            "ERRORS ENCOUNTERED".                                 SQ130480 1  XXINFOSQ13042
026700 01  CCVS-E-380     0 FILLERPICX(1   "**INFORMATION *.SQ1304..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2
026900            " FOR OFFICIAL03060 0 XXCOMPUTED X0). .2
030*SQ1304java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
700F         PIC58                           SQ1304
070     ON-SITEOF ..SQ1304
027323200java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027400     02  FILLER          PIC X(20)  VALUE                         SQ1304.2
027500             " COPYRIGHT 1985,1986".                              SQ1304400   PIC (4     IS"************.2
2700   ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0700CCVS-E-4-1 VALUE.                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0780     2            PIC()VALUEOF"
02420 HIGHSQ13042
028000     02 FILLER           PIC X(40)  VALUE                         SQ1304090*SQ1304.2
0240                .S000  DIVISION                                              .2
080 1XXINFO.SQ1304.2
028300     02 FILLER           PIC 250   2FILLERPICX(58)  VALUE                         SQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02400 .                                                2
F              X(   VALUE .              2
080 0          000     READ INVALID  GO.SQ1304
0204 FILLER X(  SPACESQ1304.2
028800       040370ADD            C-NO-OF-TESTS50COBOL 8VERSION 93SSVG.2
0290     2I080ACCEPTC-DATE.                               SQ1304
029000 010390ACCEPT   19596" .
0910300REWRITE INVALID .SQ1304
220     0-                                                         SQ1304
2300    PIC(4VALUE " OF EST- ".             .2
22002          (9.                                .
***********" 2
029600 00900 .                                                    3MOVEREC-SKEL-SUB2
029700     "SQ130A".                                                    SQ130430 TO.                                            SQ1304
029800*                                                                 SQ1304.2
029900*                                                                 SQ1304.2
0  DIVISIONSQ1304
030100 CCVS1 SECTION.                                                   0326060            " ENCOUNTERED.SQ13040
00CLOSE.                                          java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30OPENRAW-DATA2
030400     MOVE           ()027100     02  FILLER          PIC X(58)  VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030500     READ    RAW-DATA4VALUE.
030600     MOVE030         033500     MOVE    ERROR-HOLD X0                         2
NO-OF-TESTS.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000  -      FROM                               2
000270     2PIC PACE.2
030REWRITEKEYjava.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
30END-E-1SQ1304
031200     CLOSE   RAW-DATA.                                            SQ1304.2
0313040        RAW-DATASQ1304
031400     MOVE    CCVS-PGM-ID TO2800040 .SQ1304.2
031500     MOVE    CCVS-PGM-ID TO ID-AGAIN.                             SQ13040EXIT.                                             .2
00400                                                                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031700     PERFORMHEAD-ROUTINE COLUMN-NAMES-ROUTINE              .2
0180    ZERO                                 .2
031900     PERFORM CCVS-INIT-FILE 10 TIMES.                             SQ1304.2
0200 TO                                            SQ1304
032100*                                                                 SQ1304.2
032200 CCVS-INIT-FILE.                                                  SQ1304.2
032300     ADD     1 TO REC-SKL-SUB400PERFORM.                                        .2
032400     MOVE    FILE-RECORD-INFO-SKELETON TO310PASSSQ1304
050        "PASS " TO.
032600*                                                                 SQ1304.2
032700 CLOSE-FILES.                                                     SQ1304.2
032800     PERFORM END-ROUTINE 2100 FILLER IS350                                                                 SQ1304
020CLOSE
0300          RAW-DATA.2
310MOVE .SQ1304
03050     1TO.
         OK" .SQ13042
03400MOVE  TO.                               SQ1304
033500     MOVE    ERROR-HOLD    TO C-ALL.                              SQ130403100 DE-LETESQ1304.2
033600     MOVE    ERROR-COUNTER TO0620     MOVE   "***TESTDELETED**"TO.                    SQ1304.2
003300MOVE" .SQ13042
30     TO                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033900     REWRITE RAW-DATA-SATZ INVALID0360PRINT-DETAILSQ1304
0340IF NOTTO310CCVS1                                                   2
034100     CLOSE   RAW-DATA.                                            00     OPEN30MOVE  .SQ1304
034200 TERMINATE-CCVS.                                                  000PERFORM.2
034300     EXIT    PROGRAM.                                             SQ1304.2
340STOP.SQ1304.2
034500*                                                                 SQ1304.2
30INSPTSQ1304
034700     MOVE   "INSPT" TO P-OR-F.                                    SQ1304
034800     ADD     1 090ACCEPT -      FROM .380MOVE  P-OR-F.
0390     030     MOVESPACE                                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035000*                                                                 SQ1304.2
0310PASS                                                            .2
3530M    SPACERE-MARKSQ1304
035300     ADD     1 TO PASS-COUNTER038300*                                                                 SQ1304.2
0340     PERFORM.                                        2
035500*                                                                 SQ1304.2
360FAIL2
035700     MOVE   "FAIL*" TO P-OR-F10P HEAD-ROUTINETHRU.              .2
0580ADD1TO                                  2
350     PERFORM PRINT-DETAILSQ1304
036000*                                                                 SQ1304.2
                                              SQ1304.2
036300GO
03630        "***" TOSQ1304
0360     0910MOVE TO   2 .   SQ1304
036500     PERFORM PRINT-DETAIL.                                        300MOVE DUMMY-RECORDPERFORMWRITE-LINE.2
036600*                                                                 SQ1304.2
036700 PRINT-DETAIL.                                                    090         HYPHEN-LINE50                  FILE-RECORD-INFO).SQ1304
0380IF NOT TO                                  .2
0360900 END-RTN-EXIT                                                    .2
037000         MOVE    REC-CT370MOVE TO.                            SQ1304
0700MOVE TO.                           SQ1304
03720      WRITE-LINESQ1304039900*                                                                 SQ1304.2
SQ1304
037400         PERFORM000 .                                                   .2
350PERFORMTHRU                SQ1304
037600     ELSE                                                         SQ1304.2
07700   BAIL-OUT-EX                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037800     MOVE    SPACE TO00     ADD         TO.                       30MOVERROR-HOLD.                              SQ1304
03790     0450        PASS-COUNTER .SQ1304
038000     MOVE    SPACE 000         ERROR-HOLD0MOVE    O.                         SQ1304java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
0310  008     MOVECCVS-E-2 DUMMY-RECORD.
038200     MOVE    SPACE TO RE-MARK300END-E-2SQ1304.2
038300*                                                                 SQ1304.2
038400 HEAD-ROUTINE.                                                    SQ1304.320TERMINATE-CCVS10IFERROR-COUNTER  TOSQ13042
350MOVETOPERFORM .SQ1304
0010
038700     MOVE TO SQ1304
038800     MOVE CCVS-H-3034500*                                                                 SQ1304.2
390
300CCVS-C-1DUMMY-RECORDWRITE-LINE2
0.
039040IF IS TO
030END-ROUTINE300                                                                 .2
0340         HYPHEN-LINETO.                         .2
039500500MOVEPASS00LSE.2
039600050           1         MOVE.                   .2
0     SQ1304
03900     TOSQ1304
039900*                                                                 SQ1304.2
00 .                                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040100     ADD     ERROR-COUNTER   TO ERROR-HOLD030          1TO.                                  .2
040200     ADD     INSPECT-COUNTER TO036000*                                                                 SQ1304.2
040300     ADD     DELETE-COUNTER  TO 320        "*** DELETED***"TORE-MARK                    SQ13042
440DDPASS-COUNTER .                       SQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0450         PASS-COUNTER CCVS-E-4-1.2
006010   TO PERFORM.SQ1304
04043200*                                                                 SQ1304.2
04800     MOVE    030WRITE-LINESQ13042
040900     PERFORM WRITE-LINE.                                          SQ1304.2030          1TO .                                   060*
0400        "(S) " TO.                       SQ1304
0410IF  EQUAL ZERO2
041200         MOVE   3080WRITE PAGESQ1304
041300     ELSE                                                         SQ1304.2
410         MOVERROR-COUNTERERROR-TOTALSQ1304
40         00      .SQ1304
0470     IFP-OR-FTO*                                   2
010 .                                                  20 DUMMY-HOLD                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041800     IF DELETE-COUNTER IS EQUAL07         BAIL-OUT                       2
041900         MOVE   "NO " TO ERROR-TOTAL                              040WRT-LNSQ1304
000ELSESQ1304
042100         MOVE    300         SPACE CORRECT-X.038000     MOVE    SPACE TO CORRECT-X.                                  SQ1304
04240 .                                              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04230         CCVS-E-2.                            SQ1304
420      WRITE-LINESQ1304
042500     IF INSPECT-COUNTER EQUAL TO 0540MOVE TO.                .2
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0                                                          MOVE  DUMMY-RECORD  .SQ1304
SQ13042
020      "(S090GO   .SQ1304
043000     MOVE060FAIL-ROUTINE-WRITESQ1304
0440           TO0  TO. PERFORM.           .2
043200*                                                                 SQ1304.2
043303900     MOVECCVS-C-2 COR-ANSI-REFERENCESQ1304
40            RECORD-COUNT.2
043500     IF320    0     WRITE-LINETIMES.2
043600         MOVE  DUMMY-RECORD TO3..2
030467 .SQ1304
043800         WRITE DUMMY-RECORD AFTER060      5.SQ1304
0430MOVE69 BAIL-OUT.2
044000         MOVE  CCVS-C-2 TO DUMMY-RECORD PERFORM400     COMPUTED-A070    CCVS-E-1 .                           .2
40            TO PERFORM         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
044200         MOVE  DUMMY-HOLD TO DUMMY-RECORD                         SQ1304.2
430MOVE TO.SQ1304
044400     PERFORM WRT-LN.                                              SQ1304.2
044500*                                                                 SQ1304.2
0600.                                                          .2
470WRITE  LINESQ1304
MOVE TO.                               .2
0490BLANK-LINE-PRINTSQ1304
04500     PERFORM.                                              0     MOVEERROR-HOLD CCVS-E-4-22
050 .
0420      COMPUTED-X EQUAL40    SPACES INF-ANSI-REFERENCESQ1304
0790BAIL-OUT-EXSQ1304
0450 MOVE                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
45        " FURTHER410 IFERROR-COUNTER ISEQUAL TOEROSQ13042
04560420MOVE  TO                              SQ1304
045700     PERFORM WRITE-LINE048400***********************************************048500*                                                              0140             ERROR-COUNTER ERROR-TOTALSQ13042
0480MOVE TO4800
045900     GO40410 SECTION.
010     IF20.                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046100     MOVE    TEST-COMPUTED  TO PRINT-REC0     049500*    A FI WHICH  NOT AND  TOIT             .2
060PERFORMWRITE-LINEMOVEOPENABSENT" FEATURE .2
046300     MOVE    ANSI-REFERENCE 420     MOVE   SDELETED ENDER-DESC400M   OPEN-TEST-01                             .
060     MOVETEST-CORRECT                           SQ1304
WRITE-LINETIMES.SQ1304
046600     MOVE    SPACES         TO50       EQUAL                             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046700 FAIL-ROUTINE-EX.                                                 SQ1304.2
046800     EXIT.                                                        SQ1304.2
4900BAIL-OUT.
047000     IF550TODUMMY-RECORD.                                  SQ1304.2
047100     IF CORRECT-A042900     MOVE"TEST(S) REQUIREINSPECTION . SQ1304.
20 ..SQ1304
047300     MOVE    CORRECT-A10        CCVS-E-3 DUMMY-RECORD WRITE-LINE.2
047400        COMPUTED-ATO420*                                                                .2
047500     MOVE    ANSI-REFERENCE050800     PERFORM WRITE-LINE 3 TI.                                  .2
0760MOVE TODUMMY-RECORD.                             .2
047700     PERFORM WRITE-LINE430     IFRECORD-COUNT 0SQ1304
047800     MOVE    SPACES TO INF-ANSI-REFERENCE.                        SQ1304300MOVE010IFSQ-FS1-STATUS 3                                 2
047900 BAIL-OUT-EX.                                                     SQ1304.2
40.                                                       .2
048100 CCVS1-EXIT.                                                      30         WRITE  AFTERADVANCING                  .2
080
048300*                                                                 SQ1304.2
048400****************************************************************  SQ1304.2
048500*                                                              *  SQ1304.2
048600*    THIS POINT MARKS THE END OF THE CCVS MONITOR ROUTINES AND *  SQ1304.2
048700*    THE START OF THE TESTS OF SPECIFIC COBOL FEATURES.        *  SQ1304.2
048800*                                                              *  SQ1304.2
048900****************************************************************  SQ1304.2
049000*                                                                 SQ1304.2
049100 SECT-SQ130A-MAIN.                                        SQ1304.2
04200OPEN-INIT-01SQ1304
049300*                                                                 SQ1304.2
049400*    THIS PROGRAM ATTEMPTS TO OPEN IN THE INPUT-OUTPUT MODE       SQ1304.2
049500*    A FILE WHICH IS NOT PRESENT AND AVAILABLE TO IT.             SQ1304.2
049600*                                                                 SQ1304.2
0
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049900     MOVE   "OPEN-TEST-01" TO PAR-NAME                            SQ1304.2
050000     MOVE   "**" TO SQ-FS1-STATUS.                                SQ1304.4580         SPACES  INF-ANSI-REFERENCESQ13042
050100*                                                                 SQ1304.2
050200     MOVE    SPACE TO DUMMY-RECORD.60     MOVE  TOPRINT-REC.2
0530 PERFORM.                                          .2
050400     MOVE   "ABNORMAL TERMINATION AT THIS POINT IS ACCEPTABLE"    SQ1304.2
050500460MOVEANSI-REFERENCE  COR-ANSI-REFERENCESQ1304
050600     PERFORM WRITE-LINE00MOVE   TO                          SQ1304
050700     MOVE    SPACE TO DUMMY-RECORD.                               SQ1304.2
050800     PERFORM WRITE-LINE 3 TIMES.                                  SQ1304.2
050900*                                                                 SQ1304.2
05100 .                                                    .2
051100     OPEN    I-O SQ-FS190BAIL-OUTSQ13042
051200     IF  SQ-FS1-STATUS NOT = "35"47000     IF COMPUTED-A NOT EQUAL TO SP GO  BAIL-OUT-WRITESQ13042
051300         MOVE   "INCORRECT STATUS CODE RETURNED"070      ORRECT-A TO  GO BAIL-OUT-EX.2
051400         MOVE   "420 . .2
010            "5"TO.
560             SQ-FS1-STATUS                      .2
05170PERFORMFAILSQ1304
051800     ELSE                                                         SQ1304.2
0510          PASSSQ1304
052000*                                                                 SQ1304.2
052100*                                                                 SQ1304.2
0520CCVS-EXIT.                                               .2
052300 CCVS-999999.                                                     0BAIL-OUT-EXSQ13042
052400     GO TO   CLOSE-FILES.                                         SQ130400EXIT.SQ1304.2

quality98%

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

*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.