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 72 kB

Quelle sq130a.cob Sprache: Cobol

0.2
000200 PROGRAM-ID001600*      X-CARDS USED001700*                                                              *  SQ1304.2
000300     SQ130A.                                                      001800*000500*                                                              *  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
003500 ENVIRONMENT30CONFIGURATION .
0030SECTION
003700 SOURCE-COMPUTER.                                                 30
00380     Card0130SQ13043 .SQ1304.2
003900 OBJECT-COMPUTER.                                                 SQ1304.2
040     Card0131SQ1304
004100*                                                                 SQ1304.2
00420INPUT-OUTPUTSECTION.2
004300 FILE-CONTROL.                                                    SQ1304.2
004400     SELECT004600*                                                                 SQ1304.2
004500     "C0085" .                                                    SQ1304.2
004600*                                                                 SQ1304.2
004700     SELECT  KEY .                          2
004800     "C0098"                                                      SQ1304.2
004900           ORGANIZATIONIS3      ASSIGN                                       2
0500           ACCESS   RANDOM.
005150            STATUS                          .2
00570*                                                                 .2
0030SELECT ASSIGNTO.2
00540"C0020"
00500             STATUS ISSQ-FS1-STATUSSQ13042
005600*                                                                 SQ1304.2
005700*                                                                 SQ1304.2
008  .                                                   SQ1304
0059004900           ORGANIZATIONISINDEXEDSQ1304Card0132SQ1304
006000 FD  PRINT-FILE                                                   SQ1304.2
0060      RECORDS.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00620800 F  .
006300     DATA600 050 STATUS.                         .2
60               .SQ1304
006500 01  PRINT-REC07050*SQ1304.2
0066000  .
07
006800 FD  RAW-DATA006800 FD  0060     0C-OK9.SQ1304
010LABELSQ1304
007000006200                                                          SQ130470    5                999                             .2
007100     05  C-DATE              650001 PRINT-REC    PICTURE(20)9     5C-NOTEPIC1)SQ1304
70C-TIME (.SQ1304
007300     05  NO-OF-TESTS         PIC0105             PIC X()                            .2
0700070SQ1304
007500     0500600FDRAW-DATA800java.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 80
70CFAIL               99.                             060 1  .                                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00770     05C-DELETED 999SQ130480 WORKING-STORAGE.                                         SQ1304
007800     05  C-INSPECT            99SQ1304
007008900*                                                                 SQ1304.2
0080     590* DATA9300*                                                             *   SQ1304900950*SQ1304
080     5               PIC(8.SQ1304
008200*                                                                 SQ1304.2
008300 FD  SQ-FS1                                                       SQ13040500                 PIC 9090                                                                 SQ1304
008400     LABEL RECORD IS010400*                                                             *   SQ1304010500***********010600*                                                                 SQ13049                                       5             9                            .2
80
0080 1SQ-FS1R1-F-G-120 X1)                                 SQ1304
008700*                                                                 SQ1304.2
00850                .                                                 SQ1304
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
00960001  .                                               80,                            SQ1304
00970   0     PIC                                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009800   03  SQ-FS1-KEY-2   PIC009400****************009500*                                                                 20             ALTKEY290 1SQ-FS1-STATUS2
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
0070 117 1REC-SKEL-SUB   PIC .                                       2
010800*                                                                 SQ1304.2
0190 1FILE-RECORD-INFORMATION-REC                                 .2
1100     3 FILE-RECORD-INFO-SKELETON.                                SQ1304.2
01110        5FILLERPICTURE(8       VALUE       SQ1304
01120                     PIC)                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0115          PICTURE)      SQ1304
100"=00= SQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011500        05 FILLER0           701             RECKEYjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
". SQ13042
011700        05 FILLER                 1100 FILLERPICTURE3)VALUE       .2
  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0PICTURE()VALUE
012000             ",12500 05 FILE-RECORD-INFO-P1-120 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007           6SQ1304
1                  (.2
200                  PICTURE7         SPACE.2
0140     0           OCCURS1  TIMES30           CHARS-OR-RECORDSX).
01PIC1.SQ1304
160           7FILLER               X()                       .2
012700           07 XFILE-NAME          13200           07 FILLER              PIC700      PICSQ1304
0120                          X6                       2
012900           07 PIC X()30           U       910                     PIC                       .2
00300                10           07        (                       2
030            P ()Q1304
01FILLERPIC)                       07       PIC().                       .2
01300           7X      PIC 96.SQ1304
013400           07 FILLER              PIC X(6).                       SQ1304.2
013500           07 UPDATE-NUMBER       PIC 1407FILLER X)                      Q1304
013600           07 FILLER              PIC X(5).14600           07 FILLER              PIC X(6).
()                       .2
13000 FILLERPIC5.SQ1304
019000              PICX4VALUE SQ1304
100FILLER X(7                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014100           07 XRECORD-LENGTH0           060     2                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000FPIC)                       .2
1307C    PICX2100DOTVALUE   ZERO
14  9.2
0ALTERNATE-KEY2SQ13042               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
LER2
014700           010FILLER    X7" "SQ1304
80
042PIC               .
57COMPUTED-N   -99.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00XLABEL-TYPE2
015200        05 18100     03 COMPUTED-14V4 REDEFINES COMPUTED-A4.603              X(4 SPACE
050                          )SQ1304
70VALUE
015500           0700 ILLERSQ1304
0180       PIC)SPACESQ1304
18  TEST-CORRECTSQ13042
01400 FILLER  10      ILLERX3) .
01900             PIC()        "SQ13042
016000*                                                                 SQ1304.2
016100 01  TEST-RESULTS                   X2    X
090 PIC.2
016300     02190    3 CORRECT-4V14 CORRECT-A     PIC()914.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0160     FILLERX     SPACESQ1304
060     2P-OR-F               X()V .               SQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016600     02 FILLER1                             -1           2
06000.SQ1304
016800       03 60
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0            VALUE
0171203 60.SQ1304
017200     02 RE-MARK             PIC X(610270     2            PIC     VALUE.                .2
070 1TEST-COMPUTED                                               .2
                 .2
01709003CORRECT-14V42000            PICX     "FAIL.SQ1304java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017600   02 COMPUTED-X96010 R        92)VALUE SQ1304
0700     COMPUTED-A    X2)VALUE                     .2
100  P99 ZERO
017900     03 COMPUTED-0V18 REDEFINES 003O             PIC(4)VALUE.     SQ1304.
0100     3COMPUTED-4V14 COMPUTED-A -.
018100     03 COMPUTED-14V4 REDEFINES COMPUTED-A00         22      PIC (   FEATURE
018200     03       CM-18V02012 SPACE
8                    82
0FILLERSQ1304
0700
2            6..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0  1FILLERVALUE
     PIC
9CORRECT-X
019000     03 CORRECT-A10    PIC99       ZERO                   .2
01003 CORRECT-N    REDEFINES     PIC(.() .2
019200     03 CORRECT-0V18 2000               X()   " ".              .2
019300     03 CORRECT-4V142     4101    9VALUE
140 0         -(1.4)     2
0150TOTAL-ERROR 9 ZERO.2
019600         04 CORRECT-18V0                     PIC -9(18).          SQ1304.2
019700                            101ERROR-HOLD 9 VALUE.                   .2
01800  PIC() VALUE.                              .2
090     03              PIC(8)  SPACE0  CCVS-H-2BSQ1304
0223C.Q1304
02000  FILLERPIC()VALUE00FILLER X3) SPACES2
0020002   20                 X1)                         .
000-6     java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 80
0240           REMARKS   CVS-H-2A                                                   .
02500            05 FILLER            X)                         SQ1304
000
020700     02 FILLER           PIC XXXX     VALUE040003      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
  PICSPACE.
0023600*
021040 2            PIC20FILLERX4  OF
0 SQ1304
   ) .
0SQ1304
           ..
021500 01  ERROR-COUNTER2 2 SPACE
0                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1700 0  PASS-COUNTER FILLER                           .2
08 0PIC9      ZERO2
090           9ZERO2
0230" 19807 CCVS-E-3 .2
02100  RECORD-COUNT01  CCVS-E-1.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20 1  ANSI-REFERENCE X8VALUE.                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02230 01CCVS-H-1SQ1304
02200     02FILLERPICX(9)    VALUESPACES2100PIC8                           ..2
02500     700      FILLERPIC)SPACE2
0240  X2)
020     2FILLERX(     SPACES2
022800 01  CCVS-H-2A.06 1  .                                                    .2
020   2FILLER X(0   SPACE0 PICXXXVALUE SPACESQ1304
0200   2FILLER             X(7)    "CCVS850220 CCVS-E-2-2 SQ1304java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023100   02  FILLER            PIC XXXX   VALUE                         SQ1304.2
023200     "4.2 ".                                                      SQ130480ENDER-DESC X(4                         .2
023300   02  FILLER            PIC X(28)  VALUE                         SQ1304CCVS-E-3            ) *
040              -  DISTRIBUTION
025060         (20)
023600*                                                                 SQ1304.2
0237070     2ILLER X5                          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0289001HYPHEN-LINE.                                                 .2
03900TEST-ID)                                *****06  CCVS-E-4
27              XXXSPACE2
21002 7800 FILLER X(4    " "                 .2
220     " HIGH ".                                              .
0240290                                                                 .
040            "LEVELVALIDATIONFOR"                             0 PROCEDURE.                                              2
04000               SQ13042
000 .                                                      2
024700080     2INFO-TEXT.
024800000      ILLER()VALUE .SQ1304
2600      4XXCOMPUTEDREAD KEY  END-E-1
025000     02  FILLER          PIC7        FILLERX5 VALUESQ13042
01     COBOL 42   9 ".2
02520080002 00             FROM DATE                               SQ1304
RIGHT8516.SQ1304
025400 01  2 RAW-DATA-SATZKEY.2
0090     0-                                                         .2
0 FILLER ) IST .             2
07     2  PIC.SQ1304
025800     02 FILLER340MOVE********" SQ1304.
0500 1 CCVS-E-2                                                    SQ130410         CCVS-PGM-ID ID-AGAINSQ1304
0Q1304.2
026100     02  FILLER          PIC X(21)  VALUE SPACE.                  SQ1304.2
026200     02  CCVS-E-2-2     TO                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0032100*                                                                 SQ1304.2
026400         03 FILLER         PIC X      VALUE SPACE.                21SQ1304
026500         03 ENDER-DESC0PROCEDURE.                                              2
0260ERRORS" 026600 "ERRORS ENCOUNTERED". SQ1304
060 1CCVS-E-3SQ1304
026800     02  FILLER          290CLOSEPRINT-FILE.2
02690            "FOROFFICIAL USE ONLY".SQ1304
027000     02  FILLER          PIC X(12)  VALUE SPACE330      RAW-DATASQ1304
027100     02  FILLERPICX58  ND-E-2                  SQ1304
00330   ". "T .                                SQ13042
02700     0            PIC(8   VALUE.                  SQ1304
  PIC2  SQ1304
027500             0360        ERROR-COUNTER TO2
027600 01  CCVS-E-40MOVE    08CDATEFROMDATESQ1304
0700            VALUESQ1304
027839      KEY.                  .2
027900     02 CCVS-E-4-2       PIC XXX    VALUE SPACE300END-E-2SQ130421.
080320TERMINATE-CCVS.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028100      " TESTS WERE EXECUTED SUCCESSFULLY".0         RUNSQ1304
028200 03035*SQ1304.2
028300     02 FILLER           PIC X(19)  VALUE "*** INFORMATION ***".  SQ1304.2
02840002 INFO-TEXTSQ130480MOVE TO.java.lang.StringIndexOutOfBoundsException: Range [78, 72) out of bounds for length 80
0370MOVEINSPT30     TO.                                            .
026004XXCOMPUTED X(2)                           .2
028700       04 FILLER             PIC X(5)   VALUE SPACE.              SQ1304.2
028800       04 XXCORRECT          PIC X(20).                           SQ1304.2
028900     02 INF-ANSI-REFERENCE PIC X(48).                             SQ1304.2
029000 01  HYPHEN-LINE.                                                 0303500ADD1T PASS-COUNTER.                                   .2
0900     2  PIC050*                                                                 .2
09200   PIC X020     PRINT-FILE.2
03000OPENI-O.                                        SQ1304
029400     02 FILLER  PIC IS X(3230ADD TOERROR-COUNTER.2
02950MOVE."TOC-ABORT SQ1304.
02340         PASS-COUNTER C-OK.2
029700     "SQ130A".                                                    036000*                                                                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029800*                                                                 SQ1304.2
029900*                                                                 SQ1304.2
000.
0.SQ1304
320.                                                      2
03030         70         RTO
0340MOVE TO.                         .2
030500     READ0350      .                                          java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030600     MOVE   "ABORTED340PERFORM SQ1304.2
030700     ADD034500*                                                                 50PERFORM THRU6INSPT
      FROM.SQ1304
000      CTIMETIME0TOSQ1304
0310340 PERFORM0    TO.SQ1304
031100 END-E-1MOVE TO.                                  SQ1304.2
031200     CLOSE   RAW-DATA.                                            SQ1304.2
031300     OPEN    OUTPUT PRINT-FILE.                                   SQ1304.2
031400     050java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0340 HEAD-ROUTINESQ13040      PRINT-DETAIL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031600     MOVE    SPACE 35      CCVS-H-1 DUMMY-RECORDSQ1304
0370     ERFORM  COLUMN-NAMES-ROUTINESQ1304
031800     MOVE    ZERO TO008          ERROR-COUNTERSQ1304
031900     PERFORM CCVS-INIT-FILE 10 TIMES036000*                                                                 SQ1304.2
020      .SQ1304
032100*                                                                 SQ1304.2
032200 CCVS-INIT-FILE4031      CCVS-C-2.  WRITE-LINE.   2
0323009      TO.PERFORM        SQ1304
03240         FILE-RECORD-INFO-SKELETON TO                         SQ1304
025                   (.                 SQ1304
032600*                                                                 SQ1304.2
032700 CLOSE-FILES.                                                     SQ1304.2
032800     PERFORM END-ROUTINE THRU END-ROUTINE-13.                     SQ1304.2
032900     CLOSE   PRINT-FILE.                                          SQ1304.2
033000     OPEN    I-O RAW-DATA00PERFORM.                                          .2
033100     MOVE    CCVS-PGM-ID TO RAW-DATA-KEY.                         .2
033200     READ    RAW-DATA INVALID KEY GO000ADD        TO                        SQ1304                   .2
033300     MOVE   "300PERFORMBAIL-OUT .SQ13042
0430ADDDELETE-COUNTERTO.                       .2
00     ETO2
033600     MOVE    ERROR-COUNTER TO C-FAIL0     MOVEMOVE   CCVS-E-4-1
03370MOVET                           .2
03380         INSPECT-COUNTER C-INSPECT.2
03390080     IFREC-CT    CCVS-E-2SQ1304
0
01        RAW-DATA.2
040 .40     ERROR-COUNTERIS                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
034300038600     430                                                        .2
                              2
034500*                                                                 SQ1304.2
034600 INSPT.45080 COLUMN-NAMES-ROUTINE.2
0400        . ERFORM           .
034470END-ROUTINE-13.                                                  .
040010     DELETE-COUNTER EQUAL                            .2
035000*                                                                 SQ1304.2
035100 PASS940MOVEHYPHEN-LINE  DUMMY-RECORDSQ1304
0320        " 40ELSE SQ13042
330ADD1020              TO                   SQ1304
0500PERFORM.9     OVETO.                            2
035500*                                                                 SQ1304.2
035600 FAIL.                                                            SQ1304.2
035700     MOVE   "FAIL*0260 MOVE "NO " TO ERROR-TOTAL SQ1304.2
0580ADD  ERROR-COUNTERSQ1304
0350      PRINT-DETAILSQ1304
036000*                                                                 SQ1304.2
03600DE-LETESQ1304
0600MOVE**EST***  RE-MARK.                    .2
03440ADD         TO                       SQ1304java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036400     ADD     40     MOVE        . ..
036500     PERFORM0MOVE30.                                                     2
036600*                                                                 SQ1304.2
370PRINT-DETAILSQ1304
036800     IF REC-CT NOT EQUAL TO ZERO                                  SQ1304.2
036900         MOVE4041     ERROR-COUNTER  S.
0730           AFTERADVANCING                  2
037100     MOVE    TEST-RESULTS TO PRINT-REC90         MOVE  CCVS-C-10          ETO                    .
0720PERFORM                                          .2
370     IF EQUAL FAIL.
037400         PERFORM470END-ROUTINE-134200         MOVE TO DUMMY-RECORDSQ13042
037500         PERFORMFAIL-ROUTINETHRU                SQ1304.2
037600     ELSE                                                         SQ1304.2
30   THRU..2
037800     MOVE    SPACE044500*                                                                 SQ1304.2
037900     MOVE40WRITE20ELSE.2
03800MOVE TOCORRECT-X
038100     IF REC-CT EQUAL TO ZERO  MOVE200     ERFORMSQ1304
038200     MOVE    SPACE TO RE-MARK.                                    SQ1304.2
038300*                                                                 SQ1304.2
038400 HEAD-ROUTINE.                                                    SQ1304.2
038500     MOVE CCVS-H-1  TO DUMMY-RECORD0        " FURTHER INFORMATION060 MOVE "   ERROR-TOTAL2
038600     MOVE560MOVEXXINFO .                              .2
087     CCVS-H-2B DUMMY-RECORD.P WRITE-LINE.  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038800     MOVE CCVS-H-3490MOVE  TEST04 GO   FAIL-ROUTINE-EX.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038900 COLUMN-NAMES-ROUTINE.                                            SQ1304.2
SQ1304
1      46300     MOVE    ANSI-REFERENCE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0390     450    PERFORM 2 .                                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
090END-ROUTINESQ1304
039400     MOVE    HYPHEN-LINE4704670FAIL-ROUTINE-EX.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
     PERFORM  TIMES.2
039600 END-RTN-EXIT.                                                    SQ1304390         MOVE460 BAIL-OUTSQ1304
3970MOVETO                            SQ1304
039800     PERFORM WRITE-LINE 470      010MOVE DUMMY-RECORDPERFORMSQ1304
039900*                                                                 SQ1304.2
040000 END-ROUTINE-1.                                                   SQ1304.2
04470     OVECOMPUTED-A      XXCOMPUTED450*SQ1304.2
040200     ADD0460 WRT-LNSQ1304
0430     ADDDELETE-COUNTER AFTER1 S.2
040400         SPACE DUMMY-RECORD                               SQ1304
040500     MOVE40 BLANK-LINE-PRINT.                                                .2
040600     MOVE          TOCCVS-E-4-2SQ1304
040700     MOVE    CCVS-E-4        TO CCVS-E-2-2.                       410FAIL-ROUTINESQ1304.2
040800     MOVE    CCVS-E-2        TO4500     IFCOMPUTED-X NOTEQUAL080     java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 80
040900     PERFORM WRITE-LINE40    MOVE    ANSI-REFERENCE2
041000     MOVE   "TEST(S) FAILED" TO ENDER-DESC.                       SQ1304.2
010      ERROR-COUNTEREQUALZS.java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 80
0100            "NO "TO ERROR-TOTAL.2
041300     ELSE                                                         SQ1304.2
4400MOVE TO.                    SQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041500     MOVE450         SPACES 0480**  SQ1304.2
041600     PERFORM WRITE-LINE.                                          SQ1304.2
047041 ECT-SQ130A-MAIN.SQ1304
0480     090                                                    2
041900         MOVE   "NO " TO ERROR-TOTAL                              SQ1304.2
04200     LEWHICHIS PRESENTAVAILABLE IT.             SQ1304049600*                                                                 SQ1304.2
042100         MOVE    DELETE-COUNTER4620      OPEN  TOSQ1304
0220MOVE"TEST() " TO.                 90     ""TPAR-NAME2
042300     MOVE440MOVE       TOPRINT-REC.2
042400     PERFORM042400     PERFORM 2 TIMES                                  .2
042500     IFINSPECT-COUNTER TO ZEROSQ1304
2            NO  SQ1304
0470     ELSESQ1304
042800         MOVE    INSPECT-COUNTER TO ERROR-TOTALMOVE0
   TEST "TOENDER-DESC SQ13042
04070BAIL-OUT-WRITE.2
0430 MOVE TO. PERFORM.        SQ1304
043200*                                                                 SQ1304.2
043300 WRITE-LINE.                                                      SQ1304.2
043400     ADD     1 TO 460         XXINFO DUMMY-RECORD SQ1304
0350IF  GREATER5                                   .2
0460           DUMMY-RECORD0IF NOT"5 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043700         MOVE  SPACE TO DUMMY-RECORD                              SQ130440         00EXITSQ1304
0480         WRITEDUMMY-RECORDPAGE2
043900         MOVE  CCVS-C-110            SQ-FS1-STATUS COMPUTED-A0..2
044000         MOVE  CCVS-C-2 TO510          0830                                                                 .2
0400           HYPHEN-LINETO450
044200         MOVE   TO DUMMY-RECORDSQ13042048600*    THIS POINT MARKS THE 048700*052000*                                                                 SQ1304.2
04430049000*                                                                 SQ1304.2
044400     PERFORM90 .                                                    .2
044500*                                                                 SQ1304.2
044090*SQ1304
044700     WRITE   DUMMY-RECORD AFTER ADVANCING 1 LINES.                49700     MOVE    1 TO REC-CT                                          SQ1304.2
044800     MOVE    SPACE TO DUMMY-RECORD.                               SQ1304.2
044900 BLANK-LINE-PRINT.                                                SQ1304049800     MOVE   "OPEN ABSENT FILE I-O" TO FEATURE                     SQ1304.2
045000     PERFORM WRT-LN.                                              SQ1304.2
045100 FAIL-ROUTINE.                                                    SQ1304.2
045200     IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.   SQ1304.2
045300     IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.    SQ1304.2
045400     MOVE    ANSI-REFERENCE TO INF-ANSI-REFERENCE.                SQ1304.2
045500     MOVE   "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.  SQ1304.2
045600     MOVE    XXINFO TO DUMMY-RECORD.                              SQ1304.2
045700     PERFORM WRITE-LINE 2 TIMES.                                  SQ1304.2
050     MOVESPACESTO.                        .2
045900     GO TO   FAIL-ROUTINE-EX.                                     SQ1304.2
046000 FAIL-ROUTINE-WRITE.                                              SQ1304.2
0410         TEST-COMPUTED                           SQ1304
046200     PERFORM WRITE-LINE                                           000     WRITE-LINE                                          SQ1304
0630         ANSI-REFERENCE TO.                .2
04640         TEST-CORRECT PRINT-REC.2
046500     PERFORM WRITE-LINE 2 TIMES.                                  SQ1304.2
046600     MOVE    SPACES         TO COR-ANSI-REFERENCE.                SQ1304.2
046700 FAIL-ROUTINE-EX.                                                 SQ1304.2
046800     EXIT.                                                        SQ130400OPEN-TEST-01SQ1304
04690 BAIL-OUT.                                                        .
0ACEGOTO.       SQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04100IFC EQUALTOSPACE TO.               SQ1304
070BAIL-OUT-WRITESQ1304
04550MOVE3" CORRECT-A SQ13042
04740010         MOVE TO COMPUTED-ASQ1304
047500     MOVE    ANSI-REFERENCE TO INF-ANSI-REFERENCE0         PERFORM                                              .2
047600     MOVE    XXINFO TO DUMMY-RECORD900PERFORM.                                            .2
047700     PERFORM WRITE-LINE 2 TIMES.                                  SQ1304.2
047800     MOVE    SPACES20  SECTION                                               SQ1304
04790 .                                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04800     EXIT                                                        java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048100 CCVS1-EXIT.                                                      SQ1304.2
048200     EXIT.                                                        SQ1304.2
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 SECTION.                                        SQ1304.2
049200 OPEN-INIT-01.                                                    SQ1304.2
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
049700     MOVE    1 TO REC-CT                                          SQ1304.2
049800     MOVE   "OPEN ABSENT FILE I-O" TO FEATURE                     SQ1304.2
049900     MOVE   "OPEN-TEST-01" TO PAR-NAME                            SQ1304.2
050000     MOVE   "**" TO SQ-FS1-STATUS.                                SQ1304.2
050100*                                                                 SQ1304.2
050200     MOVE    SPACE TO DUMMY-RECORD.                               SQ1304.2
050300     PERFORM WRITE-LINE.                                          SQ1304.2
050400     MOVE   "ABNORMAL TERMINATION AT THIS POINT IS ACCEPTABLE"    SQ1304.2
050500                TO DUMMY-RECORD.                                  SQ1304.2
050600     PERFORM WRITE-LINE.                                          SQ1304.2
050700     MOVE    SPACE TO DUMMY-RECORD.                               SQ1304.2
050800     PERFORM WRITE-LINE 3 TIMES.                                  SQ1304.2
050900*                                                                 SQ1304.2
051000 OPEN-TEST-01.                                                    SQ1304.2
051100     OPEN    I-O SQ-FS1.                                          SQ1304.2
051200     IF  SQ-FS1-STATUS NOT = "35"                                 SQ1304.2
051300         MOVE   "INCORRECT STATUS CODE RETURNED" TO RE-MARK       SQ1304.2
051400         MOVE   "VII-4, 1.5.3(3)C" TO ANSI-REFERENCE              SQ1304.2
051500         MOVE   "35" TO CORRECT-A                                 SQ1304.2
051600         MOVE    SQ-FS1-STATUS TO COMPUTED-A                      SQ1304.2
051700         PERFORM FAIL                                             SQ1304.2
051800     ELSE                                                         SQ1304.2
051900         PERFORM PASS.                                            SQ1304.2
052000*                                                                 SQ1304.2
052100*                                                                 SQ1304.2
052200 CCVS-EXIT SECTION.                                               SQ1304.2
052300 CCVS-999999.                                                     SQ1304.2
052400     GO TO   CLOSE-FILES.                                         SQ1304.2

quality98%

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

*Eine klare Vorstellung vom Zielzustand

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.