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

Quelle  ix203a.cob   Sprache: Cobol

 
1.IX2034
000200 PROGRAM-ID.                                                      IX2034.2
00000IX203A.                                                      IX2034.2
000400****************************************************************  IX2034.2
000500*                                                              *  IX2034.2
000600*    VALIDATION FOR:-                                          *  IX2034.2
000700*                                                              *  IX2034.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX2034.2
000900*                                                              *  IX2034.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IX2034.2
001100*                                                              *  IX2034.2
001200****************************************************************  IX2034.2
001300*    THIS PROGRAM IS THE THIRD OF A SERIES.  ITS FUNCTION         IX2034.2
001400*    IS TO PROCESS THE FILE SEQUENTIALLY USING THE ACCESS MODE IS IX2034.2
001500*    DYNAMIC CLAUSE.  THE FILE USED IS THAT RESULTING FROM IX202. IX2034.2
001600*                                                                 IX2034.2
001700*    FIRST, THE FILE IS VERIFIED FOR ACCURACY OF ITS 500 RECORDS. IX2034.2
001800*    SECONDLY, RECORDS OF THE FILE ARE SELECTIVELY DELETED AND    IX2034.2
001900*    THIRDLY THE ACCURACY OF EACH RECORD IN THE FILE IS AGAIN     IX2034.2
002000*    VERIFIED.                                                    IX2034.2
002100*                                                                 IX2034.2
002200*                                                                 IX2034.2
002300*                                                                 IX2034.2
002400*       X-CARDS  WHICH MUST BE REPLACED FOR THIS PROGRAM ARE      IX2034.2
002500*                                                                 IX2034.2
002600*             X-24   INDEXED FILE IMPLEMENTOR-NAME IN ASSGN TO    IX2034.2
002700*                    CLAUSE FOR DATA FILE IX-FS1                  IX2034.2
002800*             X-44   INDEXED FILE IMPLEMENTOR-NAME IN ASSGN TO    IX2034.2
002900*                    CLAUSE FOR INDEX FILE IX-FS1                 IX2034.2
003000*             X-55   IMPLEMENTOR-NAME FOR SYSTEM PRINTER          IX2034.2
003100*             X-62   FOR RAW-DATA                                 IX2034.2
003200*             X-82   IMPLEMENTOR-NAME FOR SOURCE-COMPUTER         IX2034.2
003300*             X-83   IMPLEMENTOR-NAME FOR OBJECT-COMPUTER         IX2034.2
003400*                                                                 IX2034.2
003500*         NOTE:  X-CARDS 44 AND 62       ARE OPTIONAL             IX2034.2
003600*               AND NEED ONLY TO BE PRESENT IF THE COMPILER RE-   IX2034.2
003700*               QUIRES THIS CODE BE AVAILABLE FOR PROPER PROGRAM  IX2034.2
003800*               COMPILATION AND EXECUTION. IF THE VP-ROUTINE IS   IX2034.2
003900*               USED THE  X-CARDS MAY BE AUTOMATICALLY SELECTED   IX2034.2
004000*               FOR INCLUSION IN THE PROGRAM BY SPECIFYING THE    IX2034.2
004100*               APPROPRIATE LETTER IN THE "*OPT" VP-ROUTINE       IX2034.2
004200*               CONTROL CARD. THE LETTER  CORRESPONDS TO A        IX2034.2
004300*               CHARACTER IN POSITION 7 OF THE SOURCE LINE AND    IX2034.2
004400*               THEY ARE AS FOLLOWS                               IX2034.2
004500*                                                                 IX2034.2
004600*                  P  SELECTS X-CARDS 62                          IX2034.2
004700*                  J  SELECTS X-CARD 44                           IX2034.2
004800*                                                                 IX2034.2
004900 ENVIRONMENT DIVISION.                                            IX2034.2
0500CONFIGURATION.                                           IX203460      800C-FAIL 9 IX2034
00510 SOURCE-COMPUTERIX2034
050     .I2
005300 OBJECT-COMPUTER400  00       TO
050     .                                                    IX2034805                                                     .2
050 SECTIONIX2034
005600 FILE-CONTROL.                                                    80ORGANIZATION INDEXEDIX2034
00570SELECTASSIGNTOIX2034
050     C0098.2
005900            ORGANIZATION IS INDEXED                               IX2034.2
00            MRANDOM.2
006100            RECORD KEY20IX2034
006200     SELECT PRINT-FILE ASSIGN TO                                  IX203470   RAW-DATAIX2034
030"C0085" .                                                    .2
006400     SELECT   IX-FD1 ASSIGN TO                                    IX203470     5RAW-DATA-KEY         X()                            IX2034
0065000800                PIC98.                            IX2034
XXXXD044.2
006700         MODE DYNAMIC                                    .2
006800        ORGANIZATIONISINDEXED                                   .2
00600            IX-FD1-KEY
0000  .030  AREIX-FD1R1-F-G-2402
007100 FILE SECTION00040 1ECORDS
0070                                                                  .2
030FD.                                                    IX2034
070                                                                  2
0500 IX2034
007600     5RAW-DATA-KEY (.IX2034
0700  0900    X8IX2034
007800     05  C-TIME080FD
007900     05  008900 01  PRINT-REC PICTUREIX2034
00                  PIC                             .
               PIC99                             2
008000020WORKING-STORAGE.                                         
08005  PIC.IX2034
008400     05  C-INSPECT WRK-CS-09V00-007 S99  COMP  ZERO.2
0               X3.2
00940      CONTAINS S9 COMP ZEROjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
85             (                            .2
080   PRINT-FILEIX2034 S9..
008900 01  PRINT-REC    PIC3  "NO"IX2034
0900100  .                                                  .2
010FD                                                       .2
009200LABEL STANDARDIX2034.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009300     DATA030    0          PIC)                                 IX2034
009400      CONTAINS RECORDSIX2034
00900RECORD  20                                        .2
0010       0FILLERX(3)                               .
0705IX-FD1-REC-120PICX120)                             .2
009800     05 IX-FD1-REC-120-24010001 java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 80
09901    PIC8                                     .2
1000 IX-FD1-KEY X(29.                                5 1 WRK-CS-09V00-008S9) USAGEVALUE           IX20342
0110        010 3ILE-RECORD-INFO-SKELETONIX2034
010200 WORKING-STORAGE SECTION.                                         020        0F                 PICTURE(()VALUE.2
010300 01  WRK-CS-09V00-006 PIC0        518   WRK-CS-09V00-011PIC(09 USAGE            IX2034
000 0  WRK-CS-09V00-0071901   ()VALUE " .2
010500 01020        5FILLER X(2)       IX2034
010600 01  WRK-CS-09V00-009 PIC S9160            ,FIL000ORG= .IX2034.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017001  WRK-CS-09V00-010  S99  COMP ZERO.2
01012003 WRK-DU-09V00-001" .2
0090 0  0200 PICTURE3       VALUE       2
140030"ALTKEY1".            .2
011100     03 FILLER         PIC30                           X(8              IX2034
1200   PIC.IX2034
0113000     2DUMMY-WRK2    DUMMY-WRK105FILLERX7        .IX2034
10 4     
0 0   (5.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011003000 FILLER              PICX5) IX2034
01700        3FILLER X(.IX2034
011800        03 DUMMY-WRK-INDENT-5  PIC X(115).                        IX2034.2
01900  FILE-RECORD-INFORMATION-RECIX2034
012000     01200       05FILLERPICTUREX(8)012100        05 FILLER                 PICTURE X(48)       .2
012100        05 014000           07 FIL               X().IX2034
04                 91.IX2034
0120        5FILLERPICTURE12            FILLER             PIC7..2
003004             "ODO00PGM,00000BLKSIZ=00".IX2034
012500        05 FILLER140           0 FILLER               X(6.                       .2
012600             ",LFIL0000,ORG= ,LBLR= ".                        .2
0125014000 FILLERPIC()                       2
012800             "RECKEY .IX20342
012900        05 FILLER012600",0 PIC X(5.IX2034.2
013000             ",ALTKEY1= ".            IX2034.2
130        5ILLER X3)       VALUE2
013200             ",ALTKEY2= ".            IX2034.2
130       05FILLERPICTUREX7       SPACE.2
013400     0 FILE-RECORD-INFO  10  TIMESIX20341000XRECORD-LENGTH9()                      2
013500        05 FILE-RECORD-INFO-P1-120.                               20                         PIC7.                      .2
013600           07 FILLER0100007FILLER X(1.IX2034java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013700           07 0507 FILLER               X()                       .2
180007FILLERPIC()                       IX2034
13050           07FILLERPIC)                       IX2034
1400           07FILLER X(1)                       .2
1400 PIC91IX2034
01420           07FILLERPIC)                      .2
0130           7       PIC96.IX2034
014400           07 FILLER060           7FILLERPIC ()                       .2
040           0 UPDATE-NUMBER92).IX2034
014600           07 FILLER              PIC X(5).                       IX2034600 FILLERPIC(.IX2034
014700           07 ODO-NUMBER          PIC 97007FILLER0PIC8                       2
180           0               PIC)                       .2
04900         X5.IX2034
015000           07 FILLER              PIC1700 01 .01400           7FILLER X()                       .2
01500           7 XRECORD-LENGTH       PIC9().IX2034
012007FILLERPIC ().                       1200               PIC).                      .2
0130           7C    PIC X(2.                       IX2034
050 07FILLER X(1)                       IX2034
0500           07 XBLOCK-SIZE 070     2P-OR-F X5    SPACEIX2034
10           7FILLER X(6.IX203450                   PIC()                       .
01700 RECORDS-IN-FILEPIC)                       100               X5.IX2034
01580           07 FILLERPIC 0170      0FILLER (19) VALUE          IX2034
0500    PIC()                      .2
016000           07 FILLER              PIC X(601480007 FILLER              X(5070        DOTVALUE9     ZERO.2
01100            ()                      2
0620005FILE-RECORD-INFO-P121-240.                             .2
0600100XRECORD-LENGTHPIC)                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016400           07 XRECORD-KEY          PIC500           7CHARS-OR-RECORDS3002 FILLERPIC0 VALUE SPACE.2
016500           07 FILLER              PICX(9)                       IX2034540          0 FILLERIC1.IX2034
600          7      PICX2).                     .2
0600               PIC07      6.IX2034
6007ALTERNATE-KEY2 X2)                      .2
016900           07 FILLER              PIC X(7)01870003 COMPUTED-APIC550           7 XFILE-ORGANIZATION X(2.IX2034
017000 01  TEST-RESULTS.                                                IX2034.2
7002  PIC SPACE.          IX2034
017200     02 FEATURE                  PIC X(20)  VALUE16200        05 FILE-RECORD-INFO-P121IX2034
0                      SPACE
01409003COMPUTED-4V14 COMPUTED-A949(4     2
017500     02 FILLER1203 REDEFINES   PIC-(4.()     .2
160     0  .                                                6000F             )IX2034
70                        X9   SPACEIX2034
017800       03  PARDOT-XX               .2
10       0                PIC9     VALUE.           IX2034
80                   )SPACE2
80                   ()                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1200  TEST-COMPUTEDIX2034.2
018300     02 FILLER2000 .                                                .2
040                    1                   .2
018500            000     0                  PIC2)VALUESPACE          .2
0160     2COMPUTED-XIX2034
018700     03 COMPUTED-A               PIC X(0)  VALUE.0240     0  REDEFINES CORRECT-A -9(4.914.     IX2034
018800     030150    FILLERPICXVALUE.          IX2034.2
018900                                 PIC -9(9).9(9).                  0170     2  PAR-NAMEIX203460             CORRECT-AIX2034
OMPUTED-A -918.2
019100     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC10080         4 FILLER                            X.              IX2034
09200     03COMPUTED-14V4 COMPUTED-A -(4.94.     IX2034
01900     03       CM-18V00100 COR-ANSI-REFERENCE              (8VALUE.     IX2034
140        04COMPUTED-18V0                     -918.IX2034
019020     2FILLER IS(9      " 2
1600  PIC(0 VALUE080 1  TEST-COMPUTED.2
0190 1TEST-CORRECTIX2034
01900     02 FILLERPIC X(30 VALUE SPACE                             .2
1900   X(1) VALUE       =.               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
200002CORRECT-XIX2034
020100     03 CORRECT-A                  02803 COMPUTED-APIC0VALUE.2
000     3CORRECT-N     PIC99.9      .2
020300     03 CORRECT-0V18 REDEFINES20002FILLERPIC4    VALUEFAIL.2
0040     3 CORRECT-4V14REDEFINES     PIC -LUE.IX2034
02050     3CORRECT-14V4 CORRECT-A 91941000 REDEFINESCOMPUTED-A-(8..
191ZERO
00001DELETE-COUNTER9       ZERO.2
020200                    9      VALUE       .2
  X()VALUEIX2034
021000     03 COR-ANSI-REFERENCE022700 01  PASS-COUNTER                  PIC 999      VALUEZEROIX2034
02101CCVS-C-1IX2034
021200     02 FILLER500                            PIC               .2
021300-    "SS PARAGRAPH-NAME IX2034.2
240           " IX2034.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021500     02 FILLER                     PIC 22                   PIC8VALUE.IX2034
02040    2FILLERPIC)VALUE.IX2034
010     203     FILLERPIC2                 IX2034
10                            X)VALUE.2
                           X1VALUE.2
022000     02 FILLER                     PIC X(4)     VALUE "FAIL".     IX20342300  .                                                   .2
0200     2 FILLERPIC0 XXXXVALUE            2
022200 1  REC-SKL-SUB ()VALUE.       .2
022300 01  REC-CT                        PIC 99       VALUE ZERO.       IX2034.2
022400 01  DELETE-COUNTER0300 040"COPY- NOT DISTRIBUTION"                       
20                    PIC       ZEROIX2034
0226000 INSPECT-COUNTER40                                                                  
020001                  PIC VALUE.       IX2034
022800 01040            TESTIX2034
022900 01  ERROR-HOLD                         PICX9.IX2034
2000  DUMMY-HOLD                    PIC10    SPACEIX2034
30                    9 VALUE       2
020     HIGHIX2034java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0            X20342
023400     02  FILLER                    PIC0080004FILLERPIC X.               IX2034
0252700FILLER 5) VALUE.2
023600     "OFFICIAL COBOL 0" VALIDATION1003             PIC4)VALUE .     2
023700     02  FILLERPICX(39)VALUE SPACES05000 CCVS-H-3IX2034
030 1CCVS-H-2A.2
023900   0  FILLER                         X60            OFFICIAL.IX2034
2000                           X()    "CCVS85 ".IX2034
024100   02  FILLER                        PIC2020     COBOL VERSION,  93SSVG2
024200     "4.2 ".                                                      250002FILLER26001                                                      .
243   2                        X8               IX2034
0240             COPY002PIC6      TESTEDjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2500  FILLERX41   SPACEIX2034
024600                                                                  IX203400 FILLERPIC100  CCVS-E-2IX2034
400  2102 9)   VALUEIX2034
02480040CCVS-E-2-2.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0" RESULT ".IX2034
025000   02  TEST-ID                       PIC X(9).                    IX2034.2
050   2FILLERPIC()VALUE200  DELETE-COUNTER99       ZERO2
025200            250 703ENDER-DESC()             IX2034
023070ERRORSIX2034
025400     " HIGH ".                                              IX2034.2
070 PASS-COUNTERPIC       ZERO.2
0201FORONLY.
0002                         ()  VALUE .      IX20340                        999       ZERO.2
28     VALIDATION INSTITUTESTD.IX2034
025900 01  CCVS-H-3.                                                    IX2034.2
026000     02  FILLER2500  20                 X8SPACES.
20            FOR  " .
60     2FILLER(8               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026300     "COBOL 85 VERSION 0900 PIC XXX VALUE SPACE. IX2034.2
60     2FILLERPIC2  VALUE.2
0650              026500            "  COPYRIGHTVALUEIX2034
0260 1.                                                    .2
2F PICX5)VALUEIX2034
280     2   PIC() VALUE ISEND    .              .2
60     0                       X(.                   .2
027000     02 FILLER                       PIC X(45)  VALUE SPACES23800  .290     2INFO-TEXT.2
2700 1  CCVS-E-2IX2034
0700     0  FILLERPIC(1) VALUE.      IX20342
027300     02  FILLER                      PIC X(21)  VALUE SPACE.200   02  FILLERPICX()   VALUE " IX20342
027400     02 CCVS-E-2-2400                        PIC0010       4                  X(2.                   IX2034
02500         03 RROR-TOTAL XXX0001HYPHEN-LINE2
027600         03 FILLER                   PIC X      02300  FILLER                         X(28               IX20342
P (4  VALUE.
027800            "ERRORS ENCOUNTERED".                                 IX2034.2
079001  CCVS-E-3IX2034.
028000     02  FILLER060    ***********************.IX2034
00702FILLER IS(4     IS "************X2034.2
2200     0 FILLER X(1)   SPACEIX2034
080     2FILLERIC()             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028     "ON-SITE VALIDATION, NATIONAL INSTITUTEOFSTD&TECH ..
0280     02                        PIC(3  IX2034java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028600     0 FILLER                        X(1)  VALUE30OPEN-FILESIX2034
080              COPYRIGHT.IX2034
028800 01  CCVS-E-401     MOVECCVS-PGM-ID RAW-DATA-KEYIX2034
2022                   PICVALUEIX2034
0290                             PIC)VALUE   .IX2034
029100     0                   PIC    052TEST-ID9.IX2034
210  2F                        PIC (4    IX2034
02900  ESTS EXECUTEDSUCCESSFULLY0390ACCEPTC-DATE.                                    
24   XXINFOIX2034
90                             PIC1)VALUE.2
0260"* INFORMATION *"IX2034
029700     02 INFO-TEXT30CLOSE.                                              IX2034
029800       04 FILLER                     PIC X(8)   VALUE SPACE.      IX2034.2
0290       4XXCOMPUTED X2).IX2034
03000       04 FILLERPICX(5   VALUE SPACE.      IX2034
060" FOR . IX20342
0500   2  FILLER                         X(5)VALUEIX2034
003000" ALIDATION,N INSTITUTE STD&TECH. "..2
0590 1CCVS-H-3.                                                    20             ZERO.IX2034
0305     0FILLER IS5VALUES*************.2
030600-    "300CCVS-INIT-FILE. IX2034.2
03000     02 30ADD  .                                    IX2034
030320     MOVEFILE-RECORD-INFO-SKELETON2
030900 01  CCVS-PGM-ID                     PIC030          FILE-RECORD-INFO).                      IX2034
03100"".                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
310PROCEDURE                                              .2
020CCVS1                                                   
0330 .                                                      .2
010OPEN                                            
350MOVE14)VALUE "ENDOFTEST-"IX2034
040      PASS-COUNTER C-OK.2
010040      ERROR-HOLD C-ALL.2
031800     ADD 1 TO C-NO-OF-TESTS.                                      30MOVEERROR-COUNTER .                                IX2034
031900     ACCEPT C-DATE  FROM40MOVE TO.                           IX2034
03200    ACCEPT C-TIMETIME2
032100     REWRITE RAW-DATA-SATZ07040END-E-2.2
320 .                                                         .2
                  IX20342
032400     OPEN    OUTPUT40     2000TERMINATE-CCVS.IX20342
032500     MOVE310      PROGRAMIX2034.2
00MOVETO.                               .2
370PERFORM0 .
033          .IX20340                          X4V             .2
9       9T                              2
30CCVS-INIT-FILE.2
3310ADD1TO.                                    ..FAILADD ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033200     MOVE    FILE-RECORD-INFO-SKELETON                            IX20340             FORUSEIX2034
033300          0800    2                        X(5)00 PRINT-DETAILIX2034
002800     ON-SITEOFTECH.2
0GO CCVS1-EXITIX2034
360CLOSE-FILESIX2034
370OPEN010             " PARDOT-X IX2034.
380     CCVS-PGM-IDTORAW-DATA-KEY                            IX2034
033900     03670               95.IX2034
03400MOVE       C-ABORT                                  .2
03400     MOVE TO.                                   IX20342
IX2034
034300     MOVE0002FILLERPIC()    " OF "     .2
0340     MOVEPIC    S.IX2034
000ELSEBAIL-OUT.                 IX2034
034600     REWRITE30MOVETO SPACE              .2
034700 END-E-220     2 FILLER X(1)060     REC-CT ZEROSPACE PAR-NAME..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
.2
034900     PERFORM END-ROUTINE THRU 070HEAD-ROUTINEIX2034
0350 7MOVE  TO. PERFORM 2TIMES
310EXIT.                                                0 X8VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
35 .                                                  
050          RUN.IX2034
035400 INSPT0       4030000       04 FILLERIX2034
350 .  MOVE070MOVE TO  WRITE-LINE.
035600 FAIL0780      CCVS-C-2 DUMMY-RECORD0           PIC()                  2
07 DE-LETE**TOADD1 java.lang.StringIndexOutOfBoundsException: Range [66, 65) out of bounds for length 80
03583400 FILLER ISVALUE0 java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 80
03500PRINT-DETAIL.2
036000     IF REC-CT NOT EQUAL TO ZERO0END-RTN-EXIT.2
30M " .
0362080END-ROUTINE-1.2
360    ****TOTO
30     P-OR-F"java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050PERFORM THRU2
60ELSE  THRU BAIL-OUT-EX.                 IX2034.2
003100MOVE TO.                                .2
0310.                                              
0   ZERO PAR-NAME
037000     MOVE     SPACE TO RE-MARK90MOVE()FAILED .                        IX2034
0310 .                                                    
0960MOVE  TOERROR-TOTAL.2
0370MOVE09700         .2
037400090 TO.IX2034
037500     09          CCVS-E-2.IX2034
037600 COLUMN-NAMES-ROUTINE.                                            IX2034.2
037700     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM1 .                                                  2
070MOVE TOPERFORM 2.   .010MOVE" C-ABORT.2
03790MOVE TO. PERFORM.        IX2034
0380END-ROUTINE
038100     MOVE HYPHEN-LINE440MOVE  ERROR-TOTAL2
000     C-TIME TIMEIX2034450 "TESTS " TO.IX2034
0380     CCVS-E-1PERFORM2.   2
30 END-ROUTINE-1.2
3500      ADD ERROR-COUNTER TOERROR-HOLD   480MOVE"OIX2034java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30. ADDDELETE-COUNTER.               .2
30  TO                             .
038800*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   IX2034.2
038900      MOVE PASS-COUNTER HEAD-ROUTINE COLUMN-NAMES-ROUTINE                                                      
300      MOVE  TOCCVS-E-4-2020      CCVS-INIT-FILE.                              .
0390       CCVS-E-4.IX2034
090        SPACE                               .2
330END-ROUTINE-12IX2034
039400MOVETEST"T .IX20342
090             IS TO                      .2
0960MOVEjava.lang.StringIndexOutOfBoundsException: Range [24, 23) out of bounds for length 80
                                                     .2
030          TO                       2
90MOVE3java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00330      I-O                                           .2
010END-ROUTINE-13.2
040200     IF030READ  KEY40MOVE RECORD-COUNT.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040300         MOVE20.                                                          
040400         40 TO40      PASS-COUNTERIX2034
04050MOVE "".                                                
040600     MOVE CCVS-E-2 TO430    MOVETOIX2034
000     TO                          IX2034
480          MOVENOTOIX20342
040900      ELSE MOVE040REWRITE  040      NOTTOTFAIL-ROUTINE-WRITE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041000      MOVEMOVE8                                                .
390PERFORM0 SPACES.                         .2
041200     MOVE0EXIT.                                                .40FAIL-ROUTINE-WRITE.2
041300 WRITE-LINE.                                                      IX2034MOVE TOIX2034
041400     ADD 1 TOMOVE050. " .ADD1TONSPECT-COUNTER. .
05     IF                                     
410MOVETO.2
47 MOVE                                2
48         035800     MOVE "****DELETED                       2
041900         MOVE CCVS-H-1  TO20.                                                  0   EQUAL ZERO
40          CCVS-H-2A PERFORM 2 TIMES.2
0410 M CCVS-H-2B  PERFORM 3 TIMES.2
0422003MOVEWRK-CS-09V00-006
0MOVE              .               .2
40MOVE   DUMMY-RECORD            .2
042500         MOVE HYPHEN-LINE          ZERO.               IX2034
042600         MOVE DUMMY-HOLD TO DUMMY-RECORD                          000MOVETOP  2TIMESjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2          .IX2034
042800     PERFORM WRT-LN.                                              44          TOIX2034
042900 WRT-LN.                                                          IX2034.2
         DUMMY-RECORD.               .2
043100790       TO WRITE-LINE
080END-ROUTINE2
043300     PERFORM WRT-LN.                                              3100     MOVE TODUMMY-RECORD.PERFORM 540     PRINT-DETAIL2
043400 FAIL-ROUTINE.                                                    048200*                                                                 IX2034.2
450         COMPUTED-X TO                         .2
060MOVEREAD  FEATURE2
043700     IF     CORRECT-X NOT EQUAL TO4800READ-TEST-F1-01-RIX2034
043800     MOVE04880           1 WRK-CS-09V00-006.2
04390       "NO INFORMATION,00 PASS-COUNTERTO . .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
440     MOVEXXINFO DUMMY-RECORD()        .2
410    OVETO0   TO.                              .2
04420GO .           .2
40 .IX2034
044400     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         IX2034.2
0404900            UPDATE-NUMBER  TOIX2034
0090ADD  WRK-CS-09V00-008.2
044700     MOVE   SPACES TO COR-ANSI-REFERENCE.                         IX2034.2
04480004970GO                            .2
044900 00980ADD1 .                              .2
0400     IF NOT EQUAL   GOTO.   IX2034
1IF EQUAL TO GO00MOVE()  IX-WRK-KEY.2
04010        NOT  XRECORD-NUMBER.2
0  TO COMPUTED-A000PERFORM.IX2034
0450        ANSI-REFERENCE INF-ANSI-REFERENCEIX2034.2
4MOVE DUMMY-RECORD 2TIMES
045600     MOVE   SPACES TO INF-ANSI-REFERENCE0GO .                              00DELETE-COUNTER ZERO
04570 BAIL-OUT-EX.EXITIX2034
0480.                                                      
045900     EXIT.                                                        IX203400"(S ELETED ENDER-DESC .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046000 50MOVE             CORRECT-18V0
046100READ-INIT-F1-01IX2034
046200*    THIS FILE "IX-FD1" IS ACCESSED SEQUENTIALLY AND HAS          IX2034.2
046300*    ASSOCIATED WITH IT A RECORD KEY WHICH AT ALL TIMES SHOULD    IX2034.2
046400*    CONTAIN THE INDEX OF THE RECORD PREVIOUSLY READ.             IX2034.2
046500     OPEN INPUT IX-FD1.                                           IX2034.2
04605100              PERFORM0MOVETOPERFORM.           IX2034
046700     MOVE     ZERO051600*                                                                 IX2034.2
046800     MOVE     ZERO5  GREATER2IX2034
60      TO .2
0402            WRK-CS-09V00-007TO0                       .2
047100     MOVE     ZERO20PERFORM                                        1          AFTER                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047200     MOVE     SPACE                WRK-CS-09V00-007 CORRECT-18V0java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04300MOVE TO.                            .2
070     MOVE TO.IX2034
0475030       PRINT-DETAIL.2
0700     05310*IX2034.2
047700     MOVE    "KEY AFTER OPEN" TO053200*                                                                 IX2034.2
047800     440         CCVS-C-2DUMMY-RECORD5        READ-TEST-F1-03PAR-NAME
56 MOVE  RECORD.IX2034
0PERFORMIX2034
048100*                                                                 IX2034.2
048200*                                                                 IX2034.2
048300*                                                                 IX2034.2
048400 READ-INIT-F1-01-0.                                               IX2034.2
0450MOVE. FORMAT" IX20342
048600     MOVE    "READ NEXT RECORD"  TO50PERFORM.IX2034
00 READ-TEST-F1-01-R.
0488005450042 .                                                IX2034
9          IX-FD1                                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049000              AT END GO TO READ-TEST-F1-01.000             PERFORM PASS45      NOT                          2
00MOVE    TO()        .2
040302               TOIX2034
090MOVEFURTHER PROGRAM..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049400              GO TO .
049500     IF0GO  FAIL-ROUTINE-EXIX20340PERFORM.IX2034
04960440 .                                              .2
0470              GO READ-TEST-F1-01-22
080ADDTO
049900 READ-TEST-F1-01-2MOVE  RECORD.IX2034
05050             PASS.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050100     IF60MOVE TO               .2
0520ADD   WRK-CS-09V00-010.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000            WRK-CS-09V00-006 51                       2
5440     COMPUTED-A  SPACE    .2
050500     GO500          CORRECT-A SPACE BAIL-OUT-EX090PERFORMIX2034
050600070PERFORM.                                        .2
0570IF NOT  TO                   IX20342
050800              MOVE "440MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE.IX20342
050900              MOVE TO             IX2034
0100MOVE50TO              IX2034
0510470 BAIL-OUT-EX.045700 BAIL-OUT-EX.                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05120               FAIL.2490     ..2
051300              ELSE                                                IX2034460580MOVE     ZERO                            .2
051400              PERFORM          ZEROWRK-CS-09V00-009HICHALLTIMES    .2
051500580          ZERO 060     OPEN  IX-FD12
051600*                                                                 IX2034.2
051700*                                                                 IX2034.2
051800*                                                                 IX2034.2
5 .                                                 .2
50         " TOPAR-NAME .2
0                     2
2            WRK-CS-09V00-007 400IX2034490MOVE TO             WRK-CS-09V00-009IX2034
020              PASS.
05240004700          ZERO             .               .2
550               " "TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020 MOVE TO              IX2034
0527090AT END.2
052800                                   090               "ATENDPATHTAKEN"TO                IX2034
052900              PERFORM FAIL.                                       IX203490MOVE TO (1)           .2
05300       PRINT-DETAILIX2034
053100*                                                                 IX2034.2
053200*                                                                 IX2034.2
053300*                                                                 IX2034.2
053404708MOVE   " .
550MOVETO                       .2
05600         "READNEXT RECORD"TO.                     IX2034
053700     IF      WRK-CS-09V00-008 EQUAL TO 100                        080     010DELETE-TEST-GF-01-2IX2034
053800              PERFORM PASS                                        IX2034080IX2034
0590ELSEIX2034*IX2034
054000             MOVE WRK-CS-09V00-008 TO COMPUTED-18V004800READ-INIT-F1-01-0IX2034.
560     I  KEYIX2034
05420460MOVERECORDFEATURE
3 .                                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
054400PERFORM.                                       .2
054500*                                                                 IX2034.2
560.IX2034
05470000ADDTO                              .2
054800     MOVE    "READ010 DELETE-TEST-GF-01-R.IX2034.
0540490010DELETE-TEST-GF-01.2
.
50                                                              .
055200              WRK-CS-09V00-009 COMPUTED-18V0IX2034
055300             MOVE  ZERO            TO CORRECT-18V0              IX2034
055400             MOVE "BAD UPDATES; IX-28; 4.5.061600 "IX-21.2" RE-MARK IX2034.2
0550                                 RE-MARKIX2034.2
055600             PERFORM FAIL.                                        IX2034.2
050      PRINT-DETAILIX2034
055800*                                                                 IX2034.2
055900 READ-TEST-F1-05.                                                 IX2034.2
05600     MOVE"062200* IX2034.2
056100     MOVE    "READ NEXT RECORD00100240.IX2034.2
06000              1TO.IX2034
05020     "" TO                     IX2034java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
056400             ELSE80MOVE  COMPUTED-18V0
550MOVE TOIX2034
50             TOIX2034
05670030 000IFNOTTO                   2
056800                                  TO RE-MARK                      IX2034.2
0506330              PERFORM.                                       0090MOVE TOIX2034
0500PERFORM                                        .2
057100    CLOSE    IX-FD1                                             .2
057200*                                                                 IX2034.2
057300*     R E A D     NEXT RECORD                                     IX2034.2
057400*                                                                 IX2034.2
057500 DELETE-INIT-GF-01.                                               0 DELETE-TEST-GF-03                                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051   ZERO
057700     MOVE2          PASS50*IX2034
057800     MOVE0190 READ-TEST-F1-02IX2034
057900     MOVE     ZERO    640         ELSEIX2034
05800MOVE  WRK-CS-09V00-009.2
058100     MOVE     058100     MOVE     ZERO RECORDFEATURE
05820MOVE  WRK-CS-09V00-011.2
6 ZERO.2
TO.
05850040PERFORM0PERFORMIX2034
56        PAR-NAME.
058700 DELETE-TEST-GF-01-R.                                             IX2034.2
058800           65100*                                                                
 WRK-CS-09V00-007.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
50     IX-FD1IX2034
059100              AT650MOVE080TOIX2034
050          ZERO TO   WRK-CS-09V00-007020              PERFORM.                                       2
059300              GO TO      TO30IX2034
059400     MOVE     09          ZERO                          .2
059500     IF       WRK-CS-09V00-007  EQUAL TO 4                        IX2034.2
059600              GO TO DELETE-TEST-GF-01-2.                          IX2034.2
05905300     MOVE630OPEN     INPUTIX-FD1.
090                " END NOT TAKEN"  TO0DELETE-TEST-GF-04-R.2
0590               DELETE-TEST-GF-01.580PERFORMIX2034
0000GODELETE-TEST-GF-01-R.2
060100 DELETE-TEST-GF-01-2.                                             IX2034.2
 TO()                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
3      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
     0  .IX2034
0605070                 O WRK-CS-09V00-009.                         IX2034.2
00040         READ-TEST-F1-04TO.                       IX20342
67                     ZERO                 .2040        READ   FEATURE2
680GO DELETE-TEST-GF-01-R.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060900     MOVE                                                 MOVEWRK-DU-09V00-001java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0              WRK-CS-09V00-008.2
061100     50              "BAD UPDATES; ;1 IX20342
06200 .                                               2
061300     IF       WRK-CS-09V00-006 NOT EQUAL TO 501                   IX2034.2
0640MOVE  COMPUTED-18V0
061500              MOVE              501 TO CORRECT-18V0               IX2034.2
; 4.3.              TO
061700              PERFORM .                                               2
010                                                              7       .IX2034
0610PERFORM.IX2034
062000     PERFORM  PRINT-DETAIL.                                       IX2034600         "056000 MOVE "READ-TEST-F1-05 RE-MARKIX2034.
062100*                                                                 IX2034.2
062200*                                                                 IX2034.2
062300*                                                                 IX2034.2
062400 DELETE-TEST-GF-02.                                               IX2034.2
062500     MOVE    "DELETE "   TO FEATURE.                            IX20340920              PERFORMPASS.2
60          "DELETE-TEST-GF-02" TOIX2034
062700     IF       WRK-CS-09V00-008 NOT EQUAL TO 125                   IX2034.2
062800              MOVE WRK-CS-09V00-008 TO COMPUTED-18V0.2
062900              MOVE 125              TO CORRECT-18V0               IX2034.2
063000              MOVE "DELETED RECORDS; IX-21; 4.3.2 " TO RE-MARK IX2034.2
063090             ZERO                        2
063200              ELSE                                                IX2034.2
063300              PERFORM PASS.                                       IX2034.2
030PERFORM.                                       IX2034
063500*                                                                 IX2034.2
063600*                                                                 IX2034.2
063700*                                                                 IX2034.2
0630 .                                               2
0         "DELETE .
60          "00-009IX20342
064100     IF WRK-CS-09V00-009 EQUAL TO ZERO                            IX2034.2
064200         PERFORM PASS                                             IX203405000DELETE-TEST-GF-06.2
040         ELSEIX2034.2
0000MOVE" PAR-NAMEIX20342
040         MOVETOIX2034        WRK-CS-09V00-010EQUAL 35IX2034
60          ZERO                                .2
040         MOVE KEY; 432" RE-MARK .
68      .IX2034
010PERFORM                                       2
065000*                                                                 IX2034.2
065100*                                                                 IX2034.2
065200*                                                                 IX2034.2
065300 DELETE-INIT-GF-04 .59400     MOVE     IX-FD1R1-F-G-240 MOVEFILE-RECORD-INFO2
065400     MOVE     "DELETE-TEST-GF-04" TO PAR-NAMEMOVE90                           java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
065500     MOVE     ZERO020MOVE ;432        .
065600     MOVE     ZERO TO   WRK-CS-09V00-007                          0250                    RE-MARKIX2034
650     MOVE    WRK-CS-09V00-008
0020PERFORMIX2034
065900     MOVE     ZERO TO0780                                                              .2
60MOVE TO                          .2
066100     030PERFORM.                                      .2
660MOVETO.                           IX2034
60           IX-FD12
066400 DELETE-TEST-GF-04-R0IX2034
066500     ADD1TO0.IX2034
660        WRK-CS-09V00-007
066700     ADD      1 TO WRK-CS-09V00-008.                              IX2034.2
066800     READ   IX-FD1 NEXT RECORD  AT END60                    OVE TOWRK-CS-09V00-007                 .2
066900     MOVE     IX-FD1R1-F-G-24090MOVE   WRK-CS-09V00-007.2
067000     IF00ADD      1TO                              
067100              ADD  1 TO WRK-CS-09V00-009.                         IX2034.                                               IX2034
070            WRK-CS-09V00-007 4IX2034
0700MOVE WRK-CS-09V00-007.2
067400              ADD 1 TO0              MOVEIX-21RE-MARK
070          XRECORD-KEY    IX-WRK-KEY
067600     MOVE     WRK-CS-09V00-008  TO WRK-DU-09V00-001.              IX2034.2
067700     IF       IX-WRK-KEY  EQUAL10              PERFORM.                                       
06780062100*                                                                 IX2034.2
067900     IF       XRECORD-NUMBER062300*                                                                 IX2034.2
068000              ADD 1 TO  WRK-CS-09V00-011.                         60          DELETE-TEST-GF-02                     .2
068100     IF       WRK-CS-09V00-006 GREATER0MOVE  COMPUTED-18V02
068200              GO TO DELETE-TEST-GF-04.                            IX2034.2
060630               FAIL.2
068400 DELETE-TEST-GF-04.                                               IX2034                                                
068500     IF       WRK-CS-09V00-006 NOT EQUAL TO 376                   IX2034063500*                                                                 IX2034.2
068600              MOVE "IX-21; 4.3.2; INCORRECT RECORD COUNT"         IX2034    DELETE FEATURE.2
068700                                             TO RE-MARK           IX2034.2
68               WRK-CS-09V00-006              .2
068900              MOVE 376 TO CORRECT-18V0                            IX2034.2
0690005  WRK-CS-09V00-009                   .2
090IX2034
069200              PERFORM  PASS.                                      IX2034.2
6       PRINT-DETAIL.2
069400*                                                                 IX2034.2
650DELETE-TEST-GF-05IX2034
069600     MOVE    "DELETE "   TO065000*                                                                 IX2034.2
069700     MOVE     "DELETE-TEST-GF-05" TO650 .                                               IX2034
090      WRK-CS-09V00-009 EQUAL ZERO.2
069900              MOVE      TO                          .2
070000              MOVE WRK-CS-09V00-009 TO0MOVE    FILE-RECORD-INFO1.                   .2
070100              MOVE       IX-FD1.2
070200              PERFORM640 DELETE-TEST-GF-04-R.                                             .2
070300              ELSE                                                IX2034
070400              PERFORM PASS.                                       IX20341 WRK-CS-09V00-008.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
070090MOVE TO (           .2
070600*                                                                 IX2034.2
070700 DELETE-TEST-GF-06.                                               IX2034.2
0780        " "   TO.                            .2
070900     MOVE     "06200IF WRK-CS-09V00-007 EQUAL TO 4 .2
CS-09V00-010  375                   IX2034
071100              MOVE   .                          .2
010               "; 4.32 MISMATCH" TO        IX2034
010                TOIX2034
071400              7              EQUAL                      .2
071500              ELSE                                                IX2034.2
071600              PERFORM0ADD1 TO                         .2
07170 PERFORM  PRINT-DETAILIX2034
071800*                                                                 IX2034.2
0710800             GO DELETE-TEST-GF-04.2
020         DELETETO                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0720          " PAR-NAME .2
0720             NOT   37                  .2
07TO           .2
7               ; .." .2
072500                   TOMOVE CORRECT-18V0
070                WRK-CS-09V00-011TO            .2
072700             PERFORM   FAIL0ELSE.2
20ELSEIX2034
072900             PERFORM   PASS  .                                       .
073000     PERFORM   PRINT-DETAIL.                                      IX2034.2
073100     CLOSE    IX-FD1.                                             IX203406900    MOVE    DELETE FEATURE.
073200                                                                  IX2034.2
073300                                                                  9                   TO.2
073400 CCVS-999999.                                                     IX2034.2
073500     GO TO CLOSE-FILES.                                           IX2034.2

97%


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

*Eine klare Vorstellung vom Zielzustand




Normalansicht

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.