Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/NC/     Datei vom 4.1.2008 mit Größe 41 kB image not shown  

SSL nc135a.cob   Sprache: Cobol

 
000100 IDENTIFICATION.                                         NC1354
00.NC1354
0030NC135ANC1354
000400****************************************************************  NC1354.2
000500*                                                              *  NC1354.2
000600*    VALIDATION FOR:-                                          *  NC1354.2
000700*                                                              *  NC1354.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC1354.2
000900*                                                              *  NC1354.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC1354.2
001100*                                                              *  NC1354.2
001200****************************************************************  NC1354.2
001300*                                                              *  NC1354.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC1354.2
001500*                                                              *  NC1354.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  NC1354.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  NC1354.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  NC1354.2
001900*                                                              *  NC1354.2
002000****************************************************************  NC1354.2
002100*                                                                 NC1354.2
002200*     PROGRAM NC135A TESTS THE USE OF INDEX-NAMES TO REFERENCE    NC1354.2
002300*     3 DIMENSIONAL TABLE WHICH HAS BEEN REDEFINED.               NC1354.2
002400*     FORMAT 2 OF THE SET STATEMENT AND RELATIVE INDEXING ARE     NC1354.2
002500*     ALSO TESTED.                                                NC1354.2
002600*                                                                 NC1354.2
002700 ENVIRONMENT DIVISION.                                            NC1354.2
080000*                                                              
002900 SOURCE-COMPUTER001000*    "COBOL 85 VERSION 4.2, Apr 1993 SSVG0200SOURCE-COMPUTER * .2
00300     Card0130NC1354
0002000************002100*                                                                 NC1354.2
003200     Card0131.                                                    NC1354.2
003300 INPUT-OUTPUT SECTION.                                            NC1354.2
003400 FILE-CONTROL.                                                    001600*        X-550300200ENVIRONMENT                                            
0 .NC1354
003600     "C0085" .                                                    NC1354.2
070  DIVISIONNC13542
003800 FILE FORMAT002500*     ALSO TESTED.                                                NC1354.00.                                                    00                                                                 5      PRINT-FILE                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
9  PRINT-FILE01DUMMY-RECORD0.                                
00040 7ONE 99 VALUE.NC1354
004100 01  DUMMY-RECORD407CTR-1IS00FILE-CONTROL.2
004205 7W-3 PICTURE ZERO07W-39 ZERO.
004300 77  ONE0600 PICTURE VALUENC1354
00400701 NC13542
0040060 1IDEN-1 99VALUE 03.NC1354
000  OCCURS INDEXED INXEX1.
00040 1TABLE-9OCCURS INDEXED .                .2
00     2  10TIMES30DIVISION                                                  
002 0 43                  2
05053  1NC1354
5 .                                   
22  1 .                                  2
0003  XX2
0     TABLE-299OCCURS                       .2
0055050     204007 PICTURE VALUE                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000 IS .NC1354
00570700004700 01   PRINT-ELE 99.                               
00800TABLE-80 INDEXEDINXEX100     KEY-22
005900       03 PRINT-ELE0     00                                                    
60 USAGENC1354
0100KEY-1NC1354.
0000660     2 EATURE X(20600                    X2)  VALUE.          .2
2.                                                    .2
602T   NC1354
62                   0 OCCURS.                                  
006600     02 FEATURE0 10000PAR-NAMENC1354
60     2FILLER X      VALUE.          NC1354
0100                ()  SPACE2
0                        73PIC                      007300       03 DOTVALUE               PIC.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01                                               
000                  PICX1)   SPACE.          .2
  3PIC08FILLERPIC                  NC1354
0                PICZERO
6 .NC1354
007500     02 RE-MARK                  PIC 000COMPUTED-X04 00    COMPUTED-AX2   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007600 01  TEST-COMPUTED.008200     03 COMPUTED-N                            NC1354
70ILLER   .2
007800     006002                    0403COMPUTED-0V18    -(1.040COMPUTED-0V18 .(1)2
007900            " COMPUTED=".                                   008500     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     NC13540808     0P-OR-FPICVALUE.          .2
0800 COMPUTED-XNC1354         4 9(8          NC1354
0100                PIC20   SPACE          .2
008200     03 COMPUTED-N               REDEFINES COMPUTED-A7000090     3FILLERX(0  SPACE.
03                                  -()(.NC1354
V18    .1)         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2
00900 FILLERPICX5VALUEC1354
0700       00910001TEST-CORRECTNC1354
008800         04 COMPUTED-18V0                    PIC -9(18).          NC135409200     2 FILLER9     3CORRECT-A X2)VALUE.         2
9                             X               .
003  ()SPACE
00702FILLER X()    SPACEjava.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
00900     0 103REDEFINESN.2
009300     02 FILLER PIC0110                     PIC -918.          NC1354
0940     02000.NC1354
10     3FILLER 2VALUE08    CORRECT-4V14      -(.14.     NC1354
0603    CORRECT-A(.9).NC1354
0097000                                  -(9.(.                  NC1354
00980008400       REDEFINES110                        -8..2
00000        1080    PIC)( .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0     3CR-18V0
1104CORRECT-18V0PIC98          .
2          0101CCVS-C-2
10     3FILLER X(2)VALUE0                    2)VALUE2
103 (VALUE.
010500 000                                     SPACE00 PIC SPACE.
16         IS() ISFEATURE
01015001300 PIC5)VALUE.      NC1354
18-   REMARKS.2
001700                           99ZERO..2
1001CCVS-C-22
010940     2CORRECT-X.                                               10 0                   9       ZERO.2
102 PIC)VALUE0NC1354
011300     02 FILLER                     PIC1                  PIC1801DELETE-COUNTER9VALUE.       .2
102  X     F"java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1100                 PIC ZERO
 PIC ZERO
02  DUMMY-HOLD (2 PICZ..
0113                       9 ZERO200                     900                    (ALUE
10ERROR-COUNTER 9       010000     03      CR-18V0 REDEFINES CORRECT-A.              
00        ( ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00  .                                                    
1   T                   9ZERO
20 1ERROR-HOLD      VALUENC1354
012400 01  DUMMY-HOLDFILLER X2                 NC1354
0201PIC)VALUENC1354
2001ANSI-REFERENCE48    VALUENC1354
101CCVS-H-1  .NC1354
0015002FILLERPIC XXXX   VALUENC1354
1      VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0OFFICIAL.
013100     02  FILLER                    PIC02                        XXXX101.                                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20CCVS-H-2ANC1354
3   FILLER () SPACE.2
013400   02  FILLER                        PIC 00001300FILLER X)VALUE     .10     "java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
.
30     ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0134   10                           9VALUE40TEST                                     
01060" ".                                               
0139000120 1INSPECT-COUNTER 99     04000FILLER (2               0400FILLER (2               .2
014000                                                                  400     "HIGH "                                              
1020 1DUMMY-HOLD2)VALUE2" , INSTITUTE ."2
4030                                                    
0143000160001050            FORUSENC1354
014400  TEST-ID X()                    .2
014500   02  00 210"   4,19 SSVG
014600            50     COBOL . 19 SSVG.
17                             X1)VALUE
08 ""                                              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040   2FILLER X2VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
100            LEVEL..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01030 06100 X9                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015200     "ON-SITE 0330 0 FILLER PIC X050 0 . NC1354.2
00                                                      
0154007     FILLER X2   SPACE0" ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0  U     NC1354
                       X(903ERROR-TOTAL    VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
84,  9SSVG
040 02            ENCOUNTERED               X4             .2
070FILLER 2               NC1354
01                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016100140 2PIC2                      8              .
     PICISOF"2
6     1                            3 .      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016400     02 FILLER  95                                   
1 .NC1354
01600                        PIC)VALUE.NC1354
1     FILLER ()NC1354
02                                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
9                                                       
3java.lang.StringIndexOutOfBoundsException: Range [46, 44) out of bounds for length 80
017100         001000                          PIC010 PIC9VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
5000                        X3               2
017309       018800 01  XXINFO.
                       X2             2
70               ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0700  VALUE.2
017700     1000"* INFORMATION ***".                                .2
0180      VALIDATION   ."NC13542
017900     02060 0  0FILLERPIC8  SPACE2
0800     2 10       PIC()VALUE      PX5  SPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1100" COPYRIGHT 1985".                                   .2
8000 .                                                   
018300     02 CCVS-E-4-1                   PIC XXX    122-"***********"                            java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0800     02 ILLER0980     2FILLER SXVALUE                           .
01850004"0 DIVISIONNC1354.2
1600     02 FILLER                        X(40NC1354
1870      " WERE EXECUTED SUCCESSFULLY".18      CCVS-E-2-2.NC1354     PRINT-FILE.
09      CCVS-PGM-ID. MOVETO.2
10                             (   PACE
10     HEAD-ROUTINE.             .2
09 0NFO-TEXT
09000000" .
904                  ()NC1354
01000  SECTION.                                                  NC135430  CVS-E-3.2
019500 XXCORRECT100                                                  
0190     2INF-ANSI-REFERENCE X8.                   .
1900 1  HYPHEN-LINENC135470    2FILLERX58)VALUENC1354
180     02180" , NATIONAL INSTITUTE OFSTD& TECH ..2
019900     02 FILLER  PIC IS X(65)    VALUE70     2FILLERPIC10I.000 CCVS-PGM-IDTEST-ID CCVS-PGM-ID.NC1354
***********"java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 80
020100     0003     "**DELETED**".                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0210 TERMINATE-CCVSNC135420IF NOTEQUAL ZERO.2
02030 0CCVS-PGM-IDIC)               .0260MOVETO                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0     .NC1354
02502 .PERFORM      .2
0206290 INSPT 02000         EXECUTED                       .2
0200 OPEN-FILESNC1354
0080          OUTPUT RINT-FILENC13542
020900     MOVE30023100          ""TOADDTONC1354
2 MOVETOEST-RESULTS                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021100     PERFORM  ERPIC X8)   VALUE2 .                                                    
021200GO CCVS1-EXITNC1354.2
02130 CLOSE-FILES.                                                     .2
240    END-ROUTINEEND-ROUTINE-13.  PRINT-FILE.2
0150 TERMINATE-CCVS.                                                  .2
021600     EXIT PROGRAM20 TO  WRITE-LINE  .
20MOVE20P  THRU NC1354
021800     STOP     RUN1COLUMN-NAMES-ROUTINE                                             HYPHEN-LINE.2
010INSPT INSPTTO.   .NC13542
022000 PASS.  MOVE "PASS " TO P-OR-F.0300MOVE TO CORRECT-XNC13542
02210 .  MOVE190    0 FILLERIS(5VALUESPACE PAR-NAME.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022200 DE-LETE0     MOVE HYPHEN-LINE DUMMY-RECORD.PERFORM 5 TIMES.NC1354.2
0230040 .NC1354.2
022400 PRINT-DETAIL.                                                    NC1354.2
2250      REC-CTEQUAL TONC1354.
022600             MOVE "." TO PARDOT-X                                 NC1354.2
E.NC1354
022800     MOVE     TEST-RESULTS TO PRINT-REC30      0200  OERROR-HOLDINSPECT-COUNTER2
0290IF QUAL"200 MOVE TODUMMY-RECORD PERFORMWRITE-LINE3TIMES.NC1354java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030         FAIL-ROUTINE3 1 PIC9             2
0231240"".                                                    
023200     MOVE SPACE TO P-OR-F. 024200     MOVE CCVS-C-1 TO DUMMY-REC0500       ERROR-HOLDCCVS-E-4-2NC1354
023300     MOVE SPACE TO CORRECT-X000020MOVETO07 MOVETO DUMMY-RECORDWRITE-LINE           .2
034     MOVETO.PERFORMWRITE-LINETIMES.2
25          SPACE.                                   .2
030 .                                                    
023700     MOVE CCVS-H-1260          "NO " TO
0238000500      . ADD060MOVE  ERROR-TOTAL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
  3 TIMES2
024000     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM60      WRITE-LINE0240PERFORM  END-ROUTINE-13CLOSEPRINT-FILENC1354
024100 COLUMN-NAMES-ROUTINE.                                            060     IF DELETE-COUNTER EQUALTO                           NC13542
0020MOVE  CCVS-E-2-2                                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024300     OVE TO. PERFORM 2 TIMES200    MOVETESTDELETED"TO25 END-ROUTINE-12 .
0244000210      CCVS-E-2TO. 0200     IF IS EQUALTONC135420NSPTINSPT P-OR-FADD1OINSPECT-COUNTER.2
20  TO                          java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
40      HYPHEN-LINE DUMMY-RECORD. PERFORM 5 TIMES.C1354
024700 END-RTN-EXIT.                                                    NC1354.2
0200ELSE INSPECT-COUNTERERROR-TOTAL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040 END-ROUTINE-10750MOVETEST "TO. .2
00700MOVE TO DUMMY-RECORD PERFORM WRITE-LINE.2
0510      ERROR-HOLD. ADD  TO0700      CCVS-E-3 DUMMY-RECORD WRITE-LINE.2
0250270 .                                                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025300*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC1354.2
50MOVE CCVS-E-4-1.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05 MOVE TO20       GREATER2.2
2600210  TO                          .
5MOVEDUMMY-RECORD           00MOVETO                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025800  END-ROUTINE-12.                                                 NC1354.2
02500       "TESTM TO DUMMY-RECORD. WRITE-LINE .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20  EQUAL                       NC1354
02602730          MOVE0020MOVE  TO  PERFORM TIMES2
026                                                             
23         TO                       2
026400     MOVE0289MOVE  TO DUMMY-RECORDPERFORM           NC1354.2
RITE-LINE.2
026600 END-ROUTINE-13.                                                  NC1354.2
070      DELETE-COUNTER QUAL1         VEDUMMY-HOLDDUMMY-RECORDNC1354
026800         MOVE "NO0920 20 MOVE TODUMMY-RECORD WRITE-LINE2 .2
090         DELETE-COUNTER .NC1354
200     MOVE()DELETED ENDER-DESCNC1354
02700     MOVE0  42                                   200OLUMN-NAMES-ROUTINE.
070      IFINSPECT-COUNTEREQUAL                          NC1354.2
02730           "NO " TOERROR-TOTALNC13542
02740        INSPECT-COUNTER0960MOVE O DUMMY-RECORD                                  .2
NC1354
0700MOVECCVS-E-2TO.  WRITE-LINENC1354.2
02700       TO DUMMY-RECORD40   .PERFORM 5TIMES2
02780 VE090 FAIL-ROUTINENC1354
027900     ADD 1 TO RECORD-COUNT.                                       NC1354.2
0300     IF  EQUAL TO                         .2
0 TO                          .2
0290END-ROUTINE-1NC1354
230          DUMMY-RECORDAFTERADVANCING0900MOVETO PERFORM          .2
028400         MOVE0200ERROR-HOLD  TOERROR-HOLD               0350        XXINFO DUMMY-RECORD02           TONC13542
0285000230     PERFORM.                                              .2
028600         0070     GO  FAIL-ROUTINE-EXNC13542
20MOVE  TO  PERFORMWRT-LN3TIMES.2
2800MOVETO DUMMY-RECORD WRT-LN.2
0890         MOVE  TO DUMMY-RECORD WRT-LN           .2
0200          HYPHEN-LINE DUMMY-RECORD           .2
003000     2                                                    .
029200         MOVE ZERO TO RECORD-COUNT.0000     IF     COMPUTED-X EQUAL TO 030000     IF     COMPUTED-X NOT EQUAL TO SPACE 2 TIMES. NC1354
0290     WRT-LNNC1354
029400 WRT-LN.                                                          NC1354.2
RECORD ADVANCING N.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
26     MOVE   DUMMY-RECORD SEE. INFO-TEXTNC1354
02700BLANK-LINE-PRINTNC13542
029800     PERFORM WRT-LN.                                              NC1354.2
090FAIL-ROUTINE.2
0000     IFCOMPUTED-X EQUALTONC1354
0300180MOVE080FAIL-ROUTINE-WRITE                                             2
EQUAL SPACE 02
03MOVE . 2.2
030400        SPACES INF-ANSI-REFERENCE                         NC1354
00 MOVEXXINFO.PERFORMWRITE-LINETIMESNC1354
000        SPACES 026800         MOVE "NO " TO ERROR-TOTAL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
370     GOFAIL-ROUTINE-EX                                      .2
030800 FAIL-ROUTINE-WRITENC1354.2
030900     MOVE   TEST-COMPUTED TO PRINT-REC2
031000     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 NC1354.2
031100     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES0200MOVEIV-2170      ()DELETED ENDER-DESC.
30 SPACES                          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
3 .                                                .2
031400 BAIL-OUT.                                                        NC13540100MOVE TO700     MOVE TO ERROR-TOTALNC1354
0350IF NOT EQUALSPACE TO.2
  TOTO.NC1354
031700 BAIL-OUT-WRITE.                                                  80WRITE-LINE300SETINXEX3 BY1                                          .java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
031800     MOVE 032500 SECT-NC135A-001 SECTIONNC1354
031900     MOVE   ANSI-REFERENCE TO80     SET     INXEX3 0360NC1354java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032000MOVE30FINXEX2TO                                  2
03210     MOVESPACES TO20SET  INXEX3 TO.NC13540MOVETO                               2
032200 BAIL-OUT-EX. EXIT.                                               NC1354.2
032300 CCVS1-EXIT.                                                            TOPARAGRAPH-NAME-5NC1354.2
032400     EXIT.                                                         CCVS-H-2B300MOVE TO (    INXEX3                NC13542
0880     DUMMY-RECORD  NC1354
032600 PARAGRAPH-NAME-4.                                                NC1354.2
0270     MOVE"IV-21 ..82"TO ANSI-REFERENCE080     java.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 80
20      INXEX1 INXEX3 01.NC1354
032900     MOVE 001 TO W-3.                                             NC1354.2
033000 PARAGRAPH-NAME-5.                                                30PERFORMWRT-LNNC1354
033100     MOVE W-3 TOTABLE-1  INXEX2INXEX30240WRT-LNNC1354.2
03320      0 TO -.NC1354.2
03330            INXEX3EQUALTO 3                                   .2
0340GOTO PARAGRAPH-NAME-6                             .2
033500     SET UP500MOVETO  CORRECT-ANC1354
033600    GO TO.                                      NC1354
033700 PARAGRAPH-NAME-600 .                                              2
080          INXEX3TONC1354.2
0300IFINXEX2 TO0                                  .2
034000                  GO TO 0600PERFORM                                                 .2
40      INXEX2 UPBY01.NC1354
0420     GO  PARAGRAPH-NAME-5.                                      .2
030.                                                2
340SET TO1                                         2
350    IFINXEX1TO                                  2
030660     GO050    OVE TO  WRITE-LINE TIMES0350     THETABLEUSEDTHE  THIS.         .2
     SET  BY 001.                                        
0       PARAGRAPH-NAME-5000     GO FAIL-ROUTINE-EX.2
034900*    THIS SECTION GENERATES VALUES FOR A 10X10X3 TABLE            NC1354.2
035000*    AND THE TABLE IS USED IN THE TESTS IN THIS ROUTINE.          NC1354.2
035100 PARAGRAPH-NAME-8.                                                NC1354.2
30MOVE PAR-NAME.2
0500SSECTION.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
350 .                                                .2
035500*                                                                 NC1354.2
0.                        .2
0     MOVEINDEXING.                                  .2
035800     SET INXEX1 INXEX2 INXEX30      INXEX1 INXEX33        INXEX31                              
0355          OMPUTED-A0    TABLE-1INXEX2 EQUAL 0            
INXEX2)  TONC1354
036100     PERFORM PASS                                                 NC1354.2
0362060      TABLE-1  INXEX20MOVECORRECT-A . MOVE  XXCOMPUTED0MOVE(INXEX1   +1TO
060   INXEX1INXEX3COMPUTED-A
036400     MOVE 001 TO CORRECT-A    6      FAIL"0" .                                     
020BAIL-OUT-EX0360 DELETE-1                                                        .2
036600     GO TO WRITE-1200CCVS1-EXITNC1354.
0670 DELETE-1NC1354.2
3680PERFORM DE-LETENC1354.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0                                                        38200DELETE-2NC1354
037000     MOVE "INDEX-TEST-1" TO PAR-NAME.                             0840 .                                                         .2
037100     PERFORM PRINT-DETAIL.                                        00INDEX-TEST-3NC1354.2
037200 .                                                    80       INXEX2TO                                    
037300     SET350PERFORM PASSNC1354.2
037400     IF TABLE-1 (INXEX1  INXEX2 + 1  INXEX3 + 1) EQUAL TO 005     NC1354.2
0NC1354
037600     GO TO WRITE-20      TO3300              GOTO.                             .2
037700     MOVE TABLE-130     GO O0780         .                                              .2
037800                                                       0800     AILNC1354
037900     MOVE "005" TO CORRECT-A.                                     NC1354.2
03800PERFORM.                                                3990INXEX2  0                                  2
010GOTO WRITE-2                                               .2
038200 DELETE-2320     TO.                                      .2
038300     PERFORM DE-LETE03900 WRITE-3NC1354.2
03                                                .
0385      "INDEX-TEST-2 PAR-NAME NC1354.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038600     PERFORM PRINT-DETAIL3800SET INXEX2PERFORM                                        .2
0000      INXEX1 TO0                                     SET30         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0380SET00     THE IS USED THETESTS THIS.          NC1354
380      INXEX3  3 NC135420     GOWRITE-3                                              .2
03900      TABLE-1(INXEX1  INXEX3 - 1 EQUALTO 299         .2
090      PASS900    MOVE2"TOCORRECT-A NC1354.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039200     GO TO WRITE-3.                                               NC1354.2
039300     MOVE TABLE-1 (INXEX1  INXEX2  INXEX3 - 1) TO COMPUTED-A.     NC13543970DELETE-350 0080MOVE INXEX1  NXEX2 )TONC1354
039400     MOVE041000     MOVE 129" CORRECT-A. NC1354.2
039500     PERFORM FAIL.                                                NC1354.2
360GO WRITE-3                                               
NC1354
                                              
039900 WRITE-350WRITE-4NC1354.2
040000     MOVE600PERFORM                                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040100     PERFORM3600      TABLE-1  INXEX2) NC1354
0000INDEX-TEST-4NC1354.2
NC1354.2
04040SET  TO4060     PERFORM                                                 .2
040500     IF TABLE-1 (INXEX1 - 5  INXEX2 - 7  INXEX34100036500     FAIL.2
000 PERFORMNC1354.2
0070     GO 0000COMPUTED-A.2
040800     MOVE0100MOVE129 TO.                                     NC1354.2
040900         COMPUTED-A                                              NC1354
041000     MOVE240     SET INXEX1TO.                                         NC1354
0410     PERFORMFAIL.2
041200     GOTOWRITE-4.                                               NC1354
041300 DELETE-4.                                                        NC1354.2
041400     PERFORM DE-LETE.                                             NC1354.2
041500 WRITE-4.                                                         NC1354.2
041600     MOVE "INDEX-TEST-4" TO PAR-NAME.                             NC1354.2
041700     PERFORM.                                        NC1354
041800 INDEX-TEST-5.0180 INDEX-TEST-5NC1354.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041900     SET4100SET TO 10.                                            .2
4200SET TO INXEX1.2
042100     SET INXEX1 TO 05.                                            90     MOVE300"TO CORRECT-A NC13542
0200      INXEX2 TO.                                           .2
042300     SET INXEX3 TO 03.                                            NC1354.2
042400     SET INXEX1 TO KEY-1.                                         NC1354.2
04250003900 WRITE-1.NC1354.2
042600         PERFORM PASS                                             4300 "INDEX-TEST-5"TO.                             NC1354
042700         GO TO WRITE-5380SET INXEX2 10.                                     .2
20MOVETABLE-1  INXEX2 TO.         .2
40MOVE" .
0430040SET DOWN  IDEN-1.2
043100     GO TO044200*    NOTE70      TABLE-1  INXEX2 +1E TONC1354
0 .                                                        NC1354.2
430      076     GO                                               2
40 .                                                        2
043500     MOVE "037800 COMPUTED-A .2
030.                                        .2
                                         2
07 GOWRITE-5NC1354
0430     SET TO3                                            .2
044000     SET 030.                                                
4     0450 .NC1354
044200*    NOTE IDEN-1 IS EQUAL TO 03.                                  NC1354.2
30      "TOPAR-NAME NC1354C13542
4IF  (INXEX1  INXEX3EQUAL2030PERFORM.                                             .
004530 WRITE-6                                                         
00440MOVE  PAR-NAME                             .2
04470     MOVETABLE-1INXEX1  INXEX2INXEX3TO0   (INXEX1  1EQUAL 9         .2
0480     MOVE "59" CORRECT-ANC1354java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0      FAIL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050TONC1354
045100 DELETE-6.04594435PERFORM.                                               
045200     PERFORM DE-LETE.7010GOWRITE-7.2
40 WRITE-6NC13540980     PERFORM.                                            
050      "INDEX-TEST-6"TO.                             NC1354
4500     PERFORM.                                        6          TO                                           2
50INDEX-TEST-7.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050      INXEX1.                                          NC1354
4580      INXEX2 TO INXEX1NC1354.2
090      TABLE-104900     MOVE TO.                             NC13542
046000         PERFORM PASS                                             07000      PRINT-DETAIL.                                        .2
04610         GO TOWRITE-7NC1354.2
046200MOVE TABLE-1 (INXEX1050       INXEX15INXEX27  INXEX3 EQUAL 12 NC1354
046300     MOVE "001" TO CORRECT-A07400     PERFORM INSPT.                                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
NC1354
046500     GO490COMPUTED-A.2
04660004500      PRINT-DETAIL.NC13542
000P .                                            2
046800 WRITE-7.                                                         10     ERFORM.                                                
046900     MOVE "INDEX-TEST-7" TO PAR-NAME.                             NC1354.2
4700PERFORM PRINT-DETAIL.                                        2
07100 SECTION-NAME-3.                                          00PERFORM PASSNC1354
NC1354.2
04730      BLANK-LINE-PRINT 2TIMES                            NC1354
0INSPT0400MOVESPACESEACH   LINE-  NUMBERS.2
04750     MOVESPACESTOPRINT-REC400INDEX-TEST-5                                                    
047600     WRITE PRINT-REC.                                             NC1354.2
047700      "NOTETHIS SECTION WRITESA 0X15TABLEOF THREE-DIGITNC13542
04704200      KEY-1 OINXEX1NC13542
04790     WRITEPRINT-REC                                             .2
048000     MOVE SPACES TO PRINT-REC                                    NC1354
410MOVESPACES EACHNUMBERONA  --THENUMBERS   NC1354
0480      "0THRU0 FIRST -- TO .NC1354.2
0830     WRITE.                                             NC1354
048400     MOVE SPACES4910 PARAGRAPH-NAME-11NC1354.2
048500     MOVE "THE VALUES IN THIS TABLE WERE GENERATED IN NC1354.2
048600-      "SECTION-NAME-1 ." TO PRINT-REC                   .2
048700     WRITE04930     PRINT-ELE(CTR-1NC1354.2
048800     MOVE SPACES TO 0700     PERFORM.                                        NC1354
048900     SET INXEX1INXEX2 TO ONE                            .2
04900     MOVE1TO.                                            .2
0410 PARAGRAPH-NAME-11.2
049200     MOVE TABLE-1 (INXEX1  INXEX2  INXEX3)  TO4750 SPACES TO.                                    NC1354
049300     PRINT-ELE (CTR-1)                                            NC1354.2
090      SPACETO BLANKSPACE (CTR-1).                            .2
0900ADD 1 TOCTR-1.
049600     IF CTR-1450IF TABLE-1  INXEX2  INXEX3 TO300            NC1354
049700     IF       INXEX3 EQUAL TO 3 GO TO PARAGRAPH-NAME-12.          NC1354420          TO.NC1354
090      INXEX3UP1                                        2
099000     " EACH NUMBER ON A LINE -- THE NUMBERS NC1354.2
50 PARAGRAPH-NAME-12.2
05010     SETINXEX3 1.                                             NC1354.2
00200     IFINXEX2 TO 10 GOTO.         NC135405000IFINXEX2                                             2
050300     SET INXEX2 UP0450     MOVE "THE VALUES IN THIS TABLE WERE 0430 PERFORM NC1354.2
050400     GO TO    PARAGRAPH-NAME-11.                                  NC13542
05500PARAGRAPH-NAME-13NC13542
050600     SET INXEX2 TO 1.                                             NC1354.2
050700     IF       INXEX1 EQUAL TO 10 GO TO PARAGRAPH-NAME-14000     SET INXEX21                                             .
050800     048800     MOVE TO PRINT-REC400SET TO.                                            
0090      TOP010SETINXEX2DOWN   IDEN-1.2
051000 PARAGRAPH-NAME-14510090     MOVE1TO.                                            NC1354
0.NC13542
051200 PARAGRAPH-NAME-15.                                               120PARAGRAPH-NAME-15NC1354.2
051300     05300MOVE TO PRINT-REC.                                     04400IF  (INXEX1INXEX2) EQUAL TO 9           NC1354
MBER-LISTPRINT-RECNC1354
051500     WRITEPRINT-REC30     PRINT-ELE                                            .2
051600     MOVE 01 TO CTR-1.                                            NC1354.2
051700 PARAGRAPH-NAME-16.                                               4950     ADD 1  CTR-1                                               NC13542
5180     EXIT.                                                        190 SECTIONNC135400ELETE-6.
052000CCVS-999999                                                     0480     SETUP530 WRITE-6NC1354.2
05 CCVS-999999                                                     .
052100     GO TO CLOSE-FILES.                                           NC1354.2

94%


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

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

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.