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

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


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

Quelle sq148a.cob Sprache: Cobol

  DIVISIONSQ1484
000100                                                             .2
000300     SQ148A0020 DATA30PIC2
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
00 DIVISIONSQ1484
003500 CONFIGURATION 00850           7 FILLER              PICX7).SQ1484
00360 SOURCE-COMPUTER80007       PIC 9(6).                       2
003700     Card0130.                                                    SQ1484.2
08OBJECT-COMPUTERSQ1484
003900     Card0131.                                                    0003FILE-RECORD-INFO-SKELETONSQ14848007FCHARS-OR-RECORDS X().                      .2
004000*                                                                 SQ1484.2
004100 INPUT-OUTPUT SECTION.                                            SQ1484.2
0420
0PRINT-FILE
004400     "C0085" .                                                    016900           07 FILLER              PIC X(7).                       SQ1484
004500*                                                                 SQ1484.2
004600     SELECT SQ-FS4                                                40"ODO000,= ,LRECL=0000, =0000".    SQ148400FFILE-ORGANIZATION (
004700            ASSIGN                                                SQ1484.2
004800     "C0020"                                                      SQ1484.2
004900            FILE STATUS SQ-FS4-STATUS                             SQ1484.20980WORKING-STORAGE             ,=" SQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
005000            ORGANIZATION IS SEQUENTIAL                            SQ1484.2
0130
005200*                                                                 SQ1484.2
005300*                                                                 SQ1484.2
050  DIVISIONSQ1484
005500 FILE SECTION.                                                    SQ1484.2
005600 FD0070       .                                           .2
005700     LABEL 10402FILLERX()SPACESQ1484
005800     Card0132                                                                                                                      SQ1484.2
005900     DATA RECORD011300*    WORKING-STORAGE DATA ITEMS 030            XRECORD-NAME        PIC.SQ1484
006000               .                                                  SQ1484.2
61       PICTUREX1)
0 X1SQ1484
006300*                                                                 SQ1484.2
60FD                                                       00
050LABEL IS 12100        05 FILLER      )VALUE
060       CONTAINS0 1100OMPUTED-4V14 -)      2
006700     RECORD 014800           07 FILLER05FILLER 010     COMPUTED-14V4 PIC()9)2
080.
00690   ..                                            .
0070101007XRECORD-LENGTH(SQ14841930        04COMPUTED-18V0 -9(1)            .2
007100           20         FILLERPICTURE       SQ1484
0PIC
07               ()                       001X0SPACE
700          (.SQ1484
007500           07 FILLER              PIC X(1).                       SQ1484090     2FILLER X(30  SPACE.                             .2
007600           07 FREELUNIT-NUMBER    PIC15007XBLOCK-SIZE 9()SQ1484
0070           7               PIC X()                       .2
-NUMBER..
007900           07 FILLER              PIC X(6).                       330                          22      REDEFINES      -91.SQ1484
008000           0004 3CORRECT-14V4 REDEFINESPIC91)     .06            PIC(..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008100           07 FILLER              PIC X(5).                       SQ1484.2
020 FODO-NUMBER         PIC()                       .2
008300           07 FILLER              PIC X(5).                       SQ1484.2
008400           07 014200           07 FILLER020800     03 FILLER PIC X(2) VALUE SPAC.
02                   PIC(4  SPACE     .2
008600           07016300           07                10PIC20*SQ1484
8                          X()                       2
0080 PIC.
008900050           7              PIC                       .2
09007FBLOCK-SIZE 9()0700           IC 9(java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009100           0010     02 FILLER IS X1)VALUE.17           07FILLER 9)                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009200050007FILLER X().SQ1484
009300           07 FILLER              PIC250     2FILLER ISX                                          .2
907   X).
009500           07 FILLER              PIC X(6).010     0IC IS007               PIC().                      .2
009600           07 FLABEL-TYPECCVS-C-2.SQ1484
009700*                                                                 SQ1484.2
0.
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-GROUP              (SQ1484
010700     04  SQ-FS4-STATUS.                                           SQ1484.2
10                                              2
000         7             XVALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
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
01170REC-SKEL-SUB .SQ1484
011800*                                                                 SQ1484.2
1 FILE-RECORD-INFORMATION-REC.2
20      FILE-RECORD-INFO-SKELETON.
012100        05 FILLER                 PICTURESQ1484
10"=01301PICX(1) SPACE. SQ1484.2
012300        05 FILLER                 PICTURE30 1      PIC95)     ZERO                   SQ1484
140             ,=00,=,=0000,  00" .2
012500        05 FILLER                 1915       3PARDOT-XVALUE             .2
020             00000,ORG=" SQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
   5PICTURE       .2
012800             ",RECKEY= 0410 OFFICIALCOBOL070 0 FEATUREPIC (2) VALUESPACE .2
029                         PICTURE8)       S.2
020      FILLER           X3)VALUESQ1484
100        05 FILLER005       PICX5VALUE.2
01320             ALTKEY2.21100              X0
3        5FILLER X(7)         SPACE.SQ1484
0220PIC.
013500        05 FILE-RECORD-INFO-P1-120.                               SQ1484.2
013600           07 FILLER              PIC X(5).                       SQ148408002 FILLER   X3)  VALUE SPACESQ1484
013700           07 XFILE-NAME          PIC X(6).                       SQ1484.2
013800           07 FILLER7          PIC X2)VALUE.SQ1484
3           7RECORD-NAME.S.
014000           07 FILLER              PIC X(10     CORRECT-0V18 CORRECT-A3 REDEFINES PIC.8 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014100           0242   .                                                   .2
0003CR-18V0SQ1484
014300           07 XRECORD-NUMBER      PIC004 COMPUTED-18V04PIC2
10090        4                          PICSQ1484
0140000        PIC 9(2.                       SQ1484
014600           003FILLER X(2)VALUE.                              .2
01470007ODO-NUMBER 9)                       0100  .                                                .2
048000100*
1907XPROGRAM-NAME5.SQ1484
150                          PIC()                       .2
010           7        9(6.SQ1484
05200           7 FILLERPIC X(7)                       .2
015300           07 CHARS-OR-RECORDS    PIC 020060            PIC000 PIC1     ".SQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01540           FILLERPIC()                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
150200FILLERXVALUE2
015600           270     0   PIC ()     (.()     SQ1484
100      PIC00       CORRECT-A.
10           7FILLERPICX5.SQ1484
19            PIC2
01600                         PIC25                 PIC8  VALUESQ1484.2
060007XLABEL-TYPE2000 CCVS-C-2java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
120         FILE-RECORD-INFO-P121-240.                             .2
130           FILLER ().
60007          2900  .
016500           07 FILLER              PIC X01000  CCVS-C-1.                                                    .2
      X2.2
016700           07 FILLER              PIC X(9).                       SQ148402FILLER VALUE0           (00*.2
80ALTERNATE-KEY2 2.2
607FILLER.SQ1484
017000*                                                                 SQ1484.2
017100 01  TEST-RESULTS.                                                SQ1484.2
017200     02 FILLER              PIC X      VALUE SPACE.               SQ1484.2
1730    2PAR-NAMESQ1484
017400       03 FILLER              PIC 020 1REC-CT 9       VALUE .                   SQ14842
07500 PARDOT-X X      VALUE SPACE             SQ1484
017600       03 DOTVALUE 99     VALUE ZERO.2
00        PIC 99       ZERO                   .2
01780                   X(24  VALUE.2
0290     0 FILLER  PIC0 1PASS-COUNTER      PIC80 1                                                    .
040           FORUSE.SQ1484
018100     02 FILLER               X(9) SPACE               SQ1484.2
018200     02 RE-MARK             PIC X(61).                            SQ1484080     2FILLER06 1RECORD-COUNT 9(5    ZERO.2
0830TEST-COMPUTEDSQ14842
018400   02 FILLER  PIC X(30)  VALUE SPACE.                             SQ1484.2
018500   02 FILLER  PIC X(17)  VALUE " COMPUTED =".                SQ1484.2
0186000220     2FILLERPIC(6    TESTEDSQ1484
018700     03 COMPUTED-A0230001  CCVS-H-1SQ1484.2
088003 REDEFINES -99.(.SQ1484
0189090               18,9" SQ14842
REDEFINES COMPUTED-A-4)9(.SQ1484
019100     03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -0500   PICX2900CCVS-E-4-1    VALUESQ1484
14       FILLER           X4)    VALUE.2
0193022700 1  REC-SKL-SUB210     "COBOL VALIDATION SYSTEM"040     0CCVS-E-4-2 XXXSPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019400        04 FILLER                          PIC X.                 SQ1484.2
019500     03 FILLER PIC X(50) VALUE SPACE.                             400              09 1PIC7 XXINFOSQ1484
01960001 .
019700     02 FILLER PIC0900    0 .                                                .2
18     2FILLER(7  "CORRECT java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
90     2CORRECT-XSQ1484
03                  .SQ1484
020100     03 037001    PIC     SPACES.2
00CCVS-H-1
020300     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     SQ148400XXCORRECT X(20)                           00FILLER39    PACES
020400     03  040     OFFICIAL " .
18V0 CORRECT-ASQ1484
020600         04 CORRECT-18V0                     PIC -9(18).          SQ1484500  .                                                 .2
0270         0 FILLER                            X.               SQ1484.2
8  ..
005000***********
021000*                                                                 SQ1484.2
20 1 ..2
021200     02 FILLER  PIC IS X        VALUE026200 01  CCVS-H-3.                         0"**********"java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
021300     02 FILLER  PIC IS X(17)    VALUE0
021400     02 FILLER  PIC IS X        VALUE270     2FILLERPIC2)VALUESQ1484.2
10     0 IS(2)VALUEFEATURE
021600230   2  FILLER                                                   SQ1484
0217020     FILLERPIC14  IS "END OF ".              SQ1484
0218        IS9VALUE                    .2
90 10 SQ148A-DECLARATIVE-001-SECT.                             .2
20 1CCVS-C-2SQ14842
02210     2FILLERPIC1)VALUE.                          .2
      PIC6)  "TESTED2
20FILLER X(19)  VALUE.                          .2
022400     02 FILLER  PIC26002          PIC)VALUE SPACE.2
20     0FILLERX2   .SQ1484
022600*                                                                 SQ1484.2
02700022700 01  3FILLERX       SPACE                .2
022800 01  REC-CT50     .SQ1484
022900 01  DELETE-COUNTERMOVECORRECT-A
0200 1ERROR-COUNTER 99VALUE200  .SQ1484              SQ-FS4-STATUS                     SQ1484
023100 00370MOVE00FILLERX2)VALUE2
023200 01  PASS-COUNTER      PIC 999      VALUE ZERO4 00ON-SITEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
3 130             DECL-FAIL
023400 01  ERROR-HOLD331             TOSQ1484
023500 01  DUMMY-HOLD        PIC X(120)   VALUE SPACE.                  32     .
06         PIC()VALUE.                   SQ1484
023700 01  ANSI-REFERENCE00                PIC0  PIC SQ1484
3
0300                 PICX3)VALUE.               SQ1484
0400     2FILLERPIC()                           SQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024100     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 SQ1484.2
0030 ECL-FAILSQ1484.2
030 1CCVS-H-2ASQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024400   02  FILLER            PIC X(4230            X4         )java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
400              PIC(7    "CCVS85 ".SQ1484
024600   0700  .                                                    .
0247040   "***TESTECUTEDSUCCESSFULLY".
030   "**"TO
024900            " COPY - NOT FOR DISTRIBUTION".                       SQ1484.2
20002              PIC4)VALUE.                  .2
025100*                                                                 SQ1484.2
025200 01  CCVS-H-2B.                                                   SQ1484.2
025300   02  FILLER            PIC X(15)  VALUE "TEST RESULT OF ".      SQ1484.2
025400   02  TEST-ID           PIC X(9)030     2FILLER X(2  VALUE32             ""TO                                 .2
                ("java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
06002FILLER X12  VALUESQ1484      DECL-WRITE-LINESQ148430    2INF-ANSI-REFERENCE X(8 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20     " ".SQ1484
50F            PIC2                         .2
025900            " LEVEL VALIDATION FOR ".                             SQ14840PERFORM                                  .2
20     2  FILLERPIC.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20" VALIDATION,NATIONALINSTITUTEOF STD java.lang.StringIndexOutOfBoundsException: Range [65, 64) out of bounds for length 80
026200 01  CCVS-H-3.                                                    MOVE0080    **************" .2
02630     2  FILLERPIC X(3)VALUESQ1484
02640              OFFICIAL0MOVE CORRECT-X
026500     02 FILLER          PIC(8  VALUE0IFREC-CT EQUAL ZERO2
026600     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ1484.2
026700     02  FILLER10     SQ148ASQ148460     SPACERE-MARK.2
2680            "COPYRIGHT18,9 . .2
026900 0031300*                                                                 SQ1484300FILLER            X(4   ALUEOF.SQ1484
0200     0            PICX(2)VALUE.                  SQ1484
027100     2FILLER X(14  IS "END TEST- ".              .2
220002 ID-AGAIN070MOVETO DUMMY-HOLD.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
7     FILLER X5 2 1XXINFO.2
0290002FILLER X(19)VALUE*INFORMATION..2
0750     2  FILLERPIC(3)VALUE.                  SQ1484
027600     02  FILLER          PIC X(21)  VALUE SPACE340MOVE TO PERFORM     SQ1484.
2002 .                                              .2
027800         03 031800 SQ148A-DECLARATIVE-001-SECT.SQ1484
020         3          X      VALUE.2
02800         0 ENDER-DESC X(4  VALUE2 4FILLER (5    SPACE              .2
.2
028200 01CCVS-E-3SQ1484.2
028300     02  FILLER          PIC X(22)  VALUE                         SQ148440     02 INF-ANSI-REFERENCE X(48)                             .2
028400            "090MOVE DUMMY-HOLDTODUMMY-RECORDSQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02850     FILLER X(12)  VALUE SPACE                 .2
0286000360     2 FILLER IS XVALUE SPACESQ14840 ..                                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028700     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ1484.2
028800     02  FILLER80DECL-WRT-LN.2
280       FILLER X(0  VALUE.2
029000             " 1985,1986. SQ1484.2
029100 01  CCVS-E-4.                                                    SQ1484.2
02020               TO-********".
029300     02 FILLER           PIC X(4)   VALUE20              "STATUS FORREADOF FILE OPEN OUTPUT INCORRECT" SQ1484.
029400     02 CCVS-E-4-2       PIC XXX    VALUE SPACE.                  03100PIC ,.4" 38800 IF COMPUTED-X NOT EQUAL TO SPACE GO TO.
090     FILLERPIC()                         .2
029600      " TESTS WERE EXECUTED SUCCESSFULLY".                       SQ1484       "FURTHER, SEE . java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
7 01  .                                                      SQ1484
00     2FILLERPIC(9)  "360.2
031700*                                                                 SQ1484.2
030000       04 FILLER             PIC033800*                                                                  TO   DECL-FAIL-EX.                                        SQ1484.2
030         ANSI-REFERENCE COR-ANSI-REFERENCE040ELSE.2
030200       04 FILLER             PIC X(5)   VALUE SPACE.              SQ1484.2
030300       04 XXCORRECT          PIC X(20).                           SQ1484034300*                                                                 SQ14840PERFORM 2 TIMESSQ1484
000       X(8..2
030500 01  HYPHEN-LINE.                                                 SQ1484.2
03060      FILLER IS0450
030700     02 FILLER  PIC IS 030              DECL-FAILSQ1484
030034900310              TO                             SQ1484
030900     02 FILLER  PIC83 .SQ1484
031000-    "******************************".                            SQ1484.2
0  330            ""
10"".                                                    .205             REC-CT.                             .2
031300*                                                                 SQ1484.2
031400*                                                                 SQ1484.2
03150PROCEDURE .                                              .2
03600DECLARATIVESSQ1484
031700*                                                                 SQ1484.2
0310  SECTION                             2
3090
0200READ-ERROR-PROCESSSQ148430     TO.SQ1484
032100     IF  SQ-FS4-STATUS480
032200             PERFORM DECL-PASS                                    SQ1484410 .                                              .2
2              TO                             SQ1484T                                .2
032400     ELSE                                                         SQ1484.2
032500             MOVE "47" TO CORRECT-A                               SQ1484.2
0200MOVESQ-FS4-STATUS COMPUTED-A                     SQ1484
032700             MOVE "STATUS FOR READ OF FILE OPEN OUTPUT INCORRECT" SQ1484.2
0                                    00.2
20 VII-5 ANSI-REFERENCE.2
033000             PERFORM                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
310             20.SQ1484
033200     END-IF.                                                      00720         MOVETO DUMMY-RECORD.2
033300*                                                                 SQ1484.2
033400 0700MOVE TO DUMMY-RECORD490*                                                                 0 REC-CT DOTVALUESQ1484
033500     MOVE   "PASS " TO P-OR-F.                                    PERFORM.
0     TO.SQ1484
0330 .                                   2
033800*                                                                 SQ1484.2
0030OPEN .                                   .2
030     30MOVE
03400ADD1  320MOVETO                                 2
0340310     PERFORM.                                         .2
034300*                                                                 SQ1484.2
040 .
034500     MOVE*TEST*TO                    2
0460MOVE**050     SPACE
034700     ADD     1 038600*                                                                 SQ1484.2
034800     PERFORM DECL-PRINT-DETAIL.                                   044100*037000     IF RECORD-COUNT GREATER 50
034900*                                                                 SQ1484.2
0
REC-CTSQ1484
035200             MOVE6 DECL-WRT-LN                              SQ14844                  ().                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030              REC-CTDOTVALUE.
0070         MOVEDUMMY-HOLD DUMMY-RECORD0.                                                 .2
035500     PERFORM DECL-WRITE-LINE.                                     310PERFORM.                                         2
035600     IF P-OR-F450 TERMINATE-CCVS.                                                  .2
035700         PERFORM DECL-WRITE-LINE                                  SQ1484.2
035800         PERFORM THRU              SQ14842
0800MOVE TO.                               .2
03600 .                                                           .2
0300         SPACE                                     .0 .                                8IF  GO.
036200     MOVE    SPACE TO 04000 DECL-FAIL-EXSQ1484.2
330M    SPACETO.                                  050 .
0360      REC-CT TO                                      .2
036500         MOVE    SPACE TO400 DECL-BAIL.0600PERFORMSQ1484
036600     MOVE    SPACE TO RE-MARK.                                    SQ1484.2
036700*                                                                 SQ1484.2
036800 DECL-WRITE-LINE.                                                 SQ1484.2

3      RECORD-COUNT                                   .2
037100         MOVE    DUMMY-RECORD TO DUMMY-HOLD                       SQ1484.2
037200         MOVE TO                             SQ14842
070             AFTER ADVANCING PAGESQ1484
30MOVETO  PERFORM     .2
037500         MOVE    CCVS-C-20     MOVE   "05 SPACETO . SQ1484.2
0370400MOVE*  -.
3700            HYPHEN-LINE1            DELETE-COUNTER.SQ148404100      DECL-WRITE-LINE 2TIMESSQ1484.2
037800         PERFORM DECL-WRT-LN                                      00020         SPACESCOR-ANSI-REFERENCE.2
037900         MOVE010 .                                              .2
038000         MOVE    ZERO700 PRINT-DETAILSQ1484.2
038100     PERFORMDECL-WRT-LN                                         .2
038200*                                                                 SQ1484.2
8 .                                                     .2
340        DUMMY-RECORDLINES.
038500     MOVE    0440PERFORM 3 TIMESSQ1484
038600*                                                                 SQ1484.2
038700 DECL-FAIL-ROUTINE.                                               SQ1484.2
0380IF NOT EQUAL SPACE00DECL-BAIL-WRITESQ1484
038900     IF CORRECT-X NOT EQUAL TO .                              .
0         ANSI-REFERENCE .                .2
039100     MOVE   "NO0100SQ1484.2
039200     MOVEXXINFO DUMMY-RECORD                              .2
330      DECL-WRITE-LINE.                             .2
340MOVE TO.                        .2
090      TODECL-FAIL-EX
039600 DECL-FAIL-WRITE.                                                 SQ1484.2
039700     MOVE    TEST-COMPUTED TO PRINT-REC                           SQ1484.2
039800     PERFORM DECL-WRITE-LINE                                      0MOVE  DUMMY-RECORD2
0           CORRECT-XMOVEID-AGAIN
040000     MOVE    TEST-CORRECT042200    MOVE" TERMINATION AT THIS POINT IS ACCEPTABLE"SQ1484.2
040100     PERFORM DECL-WRITE-LINE 2 TIMES.                             SQ1484.2
420MOVETO.                        SQ1484
040300 DECL-FAIL-EX.                                                    040300 DECL-FAIL-EX.                                                    SQ1484 3 TIMES.SQ1484.2
040090MOVE DUMMY-RECORD.PERFORM2TIMESSQ1484
040500*                                                                 SQ1484.2
040600 DECL-BAIL.                                                       SQ148450MOVE  TO DUMMY-RECORD WRITE-LINE TIMES.2
040700     IF COMPUTED-A NOT EQUAL TO SPACE GO TO DECL-BAIL-WRITE.      SQ1484.2
040800     IF CORRECT-A EQUAL TO SPACE GO TO DECL-BAIL-EX0400MOVEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040900 DECL-BAIL-WRITE.                                                 SQ1484.2
041000     MOVE    CORRECT-A SECTION                                                   40CLOSE.SQ1484
0MOVE .                            2
04120440         CCVS-PGM-ID TEST-ID.                             .2
10MOVE TO50SQ1484.2
041400     PERFORM DECL-WRITE-LINE 2 TIMES.                             SQ1484.2
041500     MOVESPACE INF-ANSI-REFERENCE.2
041600370PERFORM THRU.              .2
    .
041800*                                                                 SQ1484.2
044100*                                                                 050600*                                                                 4PERFORMSQ1484
40      SPACE0MOVE TOSQ1484
042450                  (REC-SKL-SUBSQ1484050        "PASS"TO P-OR-F.SQ1484.
042200     MOVE "ABNORMAL TERMINATION AT THIS POINT IS ACCEPTABLE"      SQ1484.2
042300             TO DUMMY-RECORD.                                     SQ1484470CLOSE-FILESSQ1484.2
440     PERFORM 0480     PERFORM  THRUSQ1484
042500*                                                                 SQ1484.2
0200END-DECLSSQ1484.2
04270010         PASS-COUNTER CCVS-E-4-1.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042800 END DECLARATIVES.                                                SQ1484.2
042900*                                                                 SQ1484.2
043000*                                                                 SQ1484.2
043100 CCVS1 SECTION.                                                   SQ1484.2
043200 OPEN-FILES.                                                      SQ1484.2
430OPEN PRINT-FILE                                   SQ1484
043400     MOVE80IF IS TO                            .2
030 TO.                             .2
043600     MOVE    SPACE TO TEST-RESULTS.                               SQ1484.2
00510         MOVE TO ERROR-TOTALSQ1484
043800     MOVE    ZERO0PERFORM PRINT-DETAILSQ1484
043900     PERFORM CCVS-INIT-FILE 10 TIMES.                             SQ1484.2
400     GO TO.                                            .2
044100*                                                                 SQ1484.2
4200 CCVS-INIT-FILESQ1484.2
00700           "."  SQ1484
044400     MOVEFILE-RECORD-INFO-SKELETON TO70             REC-CT DOTVALUE.2
4400                  FILE-RECORD-INFO).                 SQ1484
052700     ELSE                                                         SQ1484.2
044700 CLOSE-FILES080MOVE TO .                   SQ1484
044800     PERFORM 0800PERFORM29     MOVETEST  OENDER-DESCjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
090CLOSE   .                                          .2
045000 TERMINATE-CCVSSQ14842
045100     STOP    RUN.                                                 SQ1484.2
045200*                                                                 SQ1484.2
045300 INSPT.                                                           SQ1484.2
045400     MOVE   "INSPT" TO P-OR-F.                                    SQ1484.2
045500     ADD     1 TO INSPECT-COUNTER.                                SQ1484.2
045600    PERFORMPRINT-DETAILSQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
045700*                                                                 SQ1484.2
00 .
045900     MOVE   "PASS " TO P-OR-F.                                    SQ1484.2
046000     ADD     0400 .                                                      .2
046100     PERFORM PRINT-DETAIL.                                        SQ1484.2
046200*                                                                 SQ1484.2
43 .
40        "FAIL*"TO                                    .
40            ERROR-COUNTERSQ14842
046600      PRINT-DETAILSQ1484.2
046700*                                                                 SQ1484.2
60 07            ." TOPARDOT-X java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
490MOVEDELETEDRE-MARK
047000     MOVE   "*****" TO P-OR-F.44HYPHEN-LINE          .2
1     TO.                                 2
40     PERFORM.                                        .2
047300*                                                                 SQ1484.2
0440 .                                                         WRT-LN.2
047500     IF REC-CT NOT EQUAL055200*                                                                 SQ1484.2
0   " SQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047700         MOVE050600* BAIL-OUT-EX.2
0478000 .0450     TO                                     .2
09     W.                                          java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00 P-OR-F TOFAILSQ14842
048100         PERFORM 0500PERFORM.                                              .2
420          FAIL-ROUTINE THRUFAIL-ROUTINE-EXSQ1484
048300     ELSE                                                         SQ1484.2
048400         PERFORM BAIL-OUT049000*                                                                 SQ1484.2
048500     MOVE    SPACE60         ANSI-REFERENCEINF-ANSI-REFERENCE         CCVS-E-4.SQ1484
048600     MOVE    SPACE TO COMPUTED-X.                                 SQ1484        " FURTHER INFORMATION, PROGRAM."  010PERFORM.SQ1484  TO.  WRITE-LINE.2
8     TOSQ1484
8IF EQUAL ZERO  TO.PERFORM3.  SQ1484
04890009            " 2
049000*                                                                 SQ1484.2
0410.                                                    .2
049200     MOVE CCVS-H-1  TO70     CCVS-C-1 DUMMY-RECORD WRITE-LINESQ1484
04930     MOVE  TO DUMMY-RECORD WRITE-LINE.  SQ1484
04940     MOVE CCVS-H-2BDUMMY-RECORD WRITE-LINE.  SQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049500     MOVE CCVS-H-3.SQ14840RITE-LINE.2
049600 COLUMN-NAMES-ROUTINE         HYPHEN-LINE DUMMY-RECORD             TOSQ1484
090      CCVS-C-1 DUMMY-RECORD     WRITE-LINE.                                  2
049800     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES .                                                    .2
049900     MOVE HYPHEN-LINE TO DUMMY-RECORD0 WRITE-LINE    TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
50END-ROUTINESQ1484
500         HYPHEN-LINE0BAIL-OUT-WRITESQ1484
050200     PERFORM0        TO                        SQ1484
050300 END-RTN-EXIT.                                                    SQ1484.2
500MOVE .SQ1484
05050PERFORM  .                                  .2
050600*                                                                 SQ1484.2
050700 END-ROUTINE-1.                                                   SQ1484.2
050800     ADD     ERROR-COUNTER   TO ERROR-HOLD                        SQ14840105800         TO . PERFORM.
050900     ADD     INSPECT-COUNTER40        CCVS-E-4 CCVS-E-2-2.2
051000     ADD     DELETE-COUNTER  TO51500     MOVE                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
PASS-COUNTER .                       .2
051200     MOVE800EXITSQ1484
051300     MOVE    ERROR-HOLD      TO CCVS-E-4-2059000*                                                                 SQ1484 ELSESQ1484.2
     MOVE    CCVS-E-40*                                                             *  SQ14842
051500     MOVE58           HYPHEN-LINE DUMMY-RECORD WRT-LN.090*THE THE SPECIFIC*SQ1484
009    DUMMY-RECORD
051700     MOVE   "55000 TO RECORD-COUNT .2060************************ .2
5      ERROR-COUNTER  ZERO.2
0090 java.lang.StringIndexOutOfBoundsException: Range [24, 23) out of bounds for length 80
0520 ELSESQ1484.2
520             ERROR-COUNTER.                    .2
052200     MOVE    CCVS-E-2 TO DUMMY-RECORD.                            SQ1484.2
520     PERFORM.                                          SQ1484
052400 END-ROUTINE-13.                                                  SQ1484.2
052500     IF 050BLANK-LINE-PRINTSQ14840      WRITE-LINE.SQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0260MOVE "TOERROR-TOTAL SQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052700     ELSE                                                         SQ1484.2
LETE-COUNTER ERROR-TOTAL.2
2        "(S) DELETED "TO.                 SQ1484
053000     MOVE    CCVS-E-2        "TESTS INSPECTION" TO.           .2
053100     PERFORM WRITE-LINE.                                          SQ1484.2
053200     IF 030MOVE TO.                              .2
030            " "TO                              .2
                                                       SQ1484.2
053500         MOVE    INSPECT-COUNTER061000*                                                                 SQ1484.2
053600     MOVE   "TEST(S) REQUIRE 061100* OPEN THE FILE IN THE OUTPUT MODE SQ1484.2
05370     MOVE     TO DUMMY-RECORDPERFORM.        SQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053800         CCVS-E-3 DUMMY-RECORD PERFORM.        SQ1484.2
053900*                                                                 SQ1484.2
054000 WRITE-LINE.                                                      SQ1484.2
054100     ADD040           CCVS-C-1 DUMMY-RECORD 00M   "**" .                                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
054200     IF RECORD-COUNT GREATER040           HYPHEN-LINE DUMMY-RECORD          SQ1484
054300         MOVE  DUMMY-RECORD TO0590         MOVE TO DUMMY-RECORD                         .2
054400         MOVE  SPACE TO DUMMY-RECORD                              951     .SQ1484
054500         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  SQ1484.2
054600         MOVECCVS-C-1 DUMMY-RECORD PERFORMWRT-LNSQ1484
0070     .                                                        .2
054800           HYPHEN-LINE DUMMY-RECORDPERFORM         SQ1484
0549000MOVE TO DUMMY-RECORD                               SQ1484
ZEROSQ1484
055100     PERFORM WRT-LN      CORRECT-A  GO BAIL-OUT-EXSQ1484
055200*                                                                 SQ1484.2
05530 WRT-LN.                                                          .2
055400     WRITE AFTER ADVANCING 1 LINES.2
0550     MOVE TODUMMY-RECORDSQ1484
055600 BLANK-LINE-PRINT.0260         PERFORM                                             SQ1484
055700     PERFORM WRT-LN.                                              SQ1484.2
0558000300    XXINFODUMMY-RECORDSQ1484
055900     IF COMPUTED-X NOT EQUAL TO SPACE6290            "00" TOCORRECT-ASQ1484
050600MOVE ERROR FROMOUTPUTSQ1484
05610         ANSI-REFERENCE INF-ANSI-REFERENCESQ1484
056200MOVENO610                    RE-MARK2
056300     MOVE    XXINFO TO DUMMY-RECORD.                              SQ1484300         MOVE   "VII-3, VII-43" TO                 SQ14842
056400     PERFORM 2 TIMES                                  .2
0560300SEQ-TEST-01-01-ENDSQ1484
056600     GO TO   FAIL-ROUTINE-EX90EXITSQ1484.2
056700 FAIL-ROUTINE-WRITE                                              SQ1484
056800     MOVE    TEST-COMPUTED  TO PRINT-REC                          SQ1484.2
0690     PERFORMWRITE-LINE                                           SQ1484
057000     MOVE    ANSI-REFERENCE TO COR-ANSI-REFERENCE.                063700*    A NEW FILE IS OPEN.  WE NOW ATTEMPT5600FAIL-ROUTINE-WRITESQ1484.2
057100     MOVE       TO PRINT-RECSQ1484
057200     PERFORM WRITE-LINE 2 TIMES.                                  SQ1484.2
057300     MOVE    SPACES         TO COR-ANSI-REFERENCE070     MOVE    ANSI-REFERENCE  COR-ANSI-REFERENCESQ1484
0.                                                 .2
05750     .                                                        .2
70 .                                                         SPACES.
057700     IF NOT  TOSPACE  TOBAIL-OUT-WRITE.2
057800     IF CORRECT-A EQUAL TO SPACE0 BAIL-OUTSQ1484.2
057900 BAIL-OUT-WRITE.                                                  SQ1484.2
058000     MOVE    CORRECT-A      TO XXCORRECT.                         SQ1484.2
058100     MOVE    COMPUTED-A     TO XXCOMPUTED.                        SQ1484.2
058200     MOVE    ANSI-REFERENCE TO INF-ANSI-REFERENCE.                SQ1484.2
0790 BAIL-OUT-WRITE.                                                  .2
0584000620MOVE  XRECORD-NAME()                         .2
5800         TOINF-ANSI-REFERENCE0MOVE XPROGRAM-NAMESQ1484
05860008100     MOVE     TOXXCOMPUTEDSQ1484
058700     EXIT0520MOVE TO.                SQ1484
058800 CCVS1-EXIT.                                                      SQ1484.2
058900     EXIT.                                                        SQ1484.2
059000*                                                                 SQ1484.2
059100****************************************************************  SQ1484.2
059200*                                                              *  SQ1484.2
059300*    THIS POINT MARKS THE END OF THE CCVS MONITOR ROUTINES AND *  SQ1484.2
059400*    THE START OF THE TESTS OF SPECIFIC COBOL FEATURES.        *  SQ1484.2
059500*                                                              *  SQ1484.2
059600****************************************************************  SQ1484.2
059700*                                                                 SQ1484.2
059800 SECT-SQ148A-0002 SECTION061200*                                                                 SQ1484059200*                                                              *  SQ1484.2
059900 STA-INIT.                                                        SQ1484.2
060000*                                                                 SQ1484.2
060100     MOVE   "SQ-FS4" TO XFILE-NAME (1).                           SQ1484.2
060200     MOVE   "R1-F-G" TO XRECORD-NAME (1).                         SQ1484.2
060300         CCVS-PGM-ID XPROGRAM-NAME1.SQ1484
060400     MOVE    120 TO XRECORD-LENGTH (1).                           SQ1484.2
060500     MOVE   "CC" TO CHARS-OR-RECORDS (1).                         SQ1484.2
06060     MOVE1   TOXBLOCK-SIZE).                             .2
06018   "SEQ-TEST-OP-01 TOPAR-NAME. SQ14842
060800     MOVE   "SQ" TO40MOVE  XRECORD-LENGTH)SQ1484java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060900     MOVE   "S"  TO XLABEL-TYPE (1).                              SQ1484.2
061000*                                                                 SQ1484.2
061100*    OPEN THE FILE IN THE OUTPUT MODE                             SQ1484.2
061200*                                                                 SQ1484.2
061300 SEQ-INIT-01.                                                     90     MOVE   ""  TOXLABEL-TYPE.                              SQ1484.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
4MOVE.
061500     MOVE   "**" TO SQ-FS4-STATUS.                                SQ1484.2
0160         ZERO (1)                          .2
061700     MOVE   "OPEN, CREATE FILE"  TO FEATURE.                      SQ1484.2
061800     MOVE   "SEQ-TEST-OP-01" TO PAR-NAME.                         SQ1484.2
0619006800MOVE TO COMPUTED-ASQ1484.2
062000     OPEN    OUTPUT SQ-FS4.                                       06160     MOVE020   0" CORRECT-ASQ14842
062100*                                                                 SQ1484.2
062200*    CHECK I-O STATUS RETURNED FROM OPEN OUTPUT                   SQ1484.2
062300*                                                                 SQ1484.2
2 .
062500     IF SQ-FS4-STATUS0630         FAILSQ1484.
062600         PERFORM PASS062200*    CHECK0340 .                                              .2
062700     ELSE                                                         SQ1484.2
062800         MOVE    SQ-FS4-STATUS TO COMPUTED-A                      SQ1484.2
062900         MOVE   "00" TO CORRECT-A                                 SQ1484.2
063000         MOVE   "UNEXPECTED ERROR CODE FROM OPEN OUTPUT"          SQ1484.2
030TO                                     java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030            "VII-3, VII-43" TO                 .2
063300         PERFORM FAIL.                                            SQ1484.2
630 SEQ-TEST-01-01-END.
063500*                                                                 SQ1484.2
063600*                                                                 SQ1484.2
063700*    A NEW FILE IS OPEN.  WE NOW ATTEMPT TO READ A RECORD.        SQ1484.2
063800*                                                                 SQ1484.2
063900 SEQ-INIT-02.                                                     SQ1484.2
064000     MOVE    1 TO REC-CT.                                         SQ1484.2
064100     MOVE   "**" TO SQ-FS4-STATUS.                                SQ1484.2
064200     MOVE   "READ IN OUTPUT MODE" TO FEATURE.                     SQ1484.2
064300     MOVE   "SEQ-TEST-RD-02" TO PAR-NAME.                         0690.
0640 .                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
064500     READ    SQ-FS4.                                              SQ1484.2
064600*                                                                 SQ1484.2
064700 CLOSE-TEST-03.                                                   SQ1484.2
064800     CLOSE SQ-FS4.                                                SQ1484.2
064900*                                                                 SQ1484.2
0650  SECTIONSQ1484
065100 CCVS-999999.                                                     SQ1484.2
065200     GO TO   CLOSE-FILES.                                         SQ1484.2

quality95%

¤ Dauer der Verarbeitung: 0.32 Sekunden ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

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