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

Angebot Produkte Projekt Beratung

Eigene Datei ansehen e.g. http://myserver.net/mysource.java Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Fortran/Fortran77-Compiler/ (Columbo Version 0.7^©) Datei vom 9.3.2015 mit Größe 2 MB

Quelle ix203a.cob Sprache: Cobol

000100002100*                                                                 IX2034002200*                                                                 IX2034.2
000200 PROGRAM-ID.                                                      IX2034002700*                    CLAUSE FOR DATA FILE002800*             X-44002900*                    CLAUSE FOR INDEX FILE IX-FS1003000*             X-55   IMPLEMENTOR-NAME003100*             X-62   FOR RAW-DATA                                 IX2034003200*             X-82   IMPLEMENTOR-NAME FOR003300*             X-83   IMPLEMENTOR-NAME FOR003400*                                                                 IX2034.2
003     .                                                      .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
005000 CONFIGURATION SECTION.                                           IX2034.2
005100 SOURCE-COMPUTER00    "C0085 .2
00520     ard0130 IX20342
005300 OBJECT-COMPUTER.02600*             X-24   INDEXED FILE060             CLAUSE DATAFILE                   IX20342
005400     Card0131MODE DYNAMIC                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
005500 INPUT-OUTPUT00500 1  RAW-DATA-SATZ.                                               .2
00560FILE-CONTROLIX2034.2
005700     SELECT RAW-DATA   ASSIGN TO                                  IX2034.2
0050     C0098IX2034
005900            ORGANIZATION IS INDEXED                               IX20340     0                PIC ()                            .2
060370* THIS AVAILABLE0                AND . 0390                THE40*FOR IN THE0*APPROPRIATE IN 020               CONTROL. THE LETTER0*CHARACTER  POSITION THE40 ARE  FOLLOWSIX2034
006100            RECORD KEY IS RAW-DATA-KEY.                           004800*                                                                 IX2034.2
0020SELECT                     PIC .                            2
006300     "020Card0130 IX2034.
040        IX-FD1IX2034
0040Card0131.2
D044
006700        ACCESS MODE00     5  C-INDENT            PIC                                .2
0060         IS                                   .2
0090RECORDIX-FD1-KEY     TOIX2034
007080"C0098"                                                      IX2034
007100 FILE SECTION900 PRINT-REC (200 MODE  IX2034
0070                                                                  .2
0030FD.                                                    .2
00760     C0085IX2034
007500 01  RAW-DATA-SATZ.                                               IX2034.2
00600  RAW-DATA-KEYPIC6.                            .2
007700     05  C-DATE              PIC 9(6).                            IX2034.2
070     5C-TIME 9).                            .2
00790000900 0                                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008000     05  C-OK700DATADIVISION 00DATARECORDS  IX-FD1R1-F-G-240IX2034
004     BLOCKCONTAINS0R                                    IX2034
00820     05  C-FAIL 99.                             .2
008300     070   RAW-DATA.2
0840     5C-INSPECTPIC99.                             IX203440IX2034.2
0050     5C-NOTE  .
.
008700     050770     5C-DATE0       0FILLERX(.IX2034
080   PRINT-FILE.                                                  IX2034.2
X(120).                                    IX2034.2
09000     5 999.                             .
0910 FD  IX-FD1 99                             IX2034
002     0  SECTION.2
003     C-DELETEDjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00BLOCK009400     BLOCK CONTAINS 9 USAGE.2
009500     RECORD CONTAINS  240.                                        IX2034.2
00PIC2
009700     05 080FD.                                                  IX2034 (9 SAGE.IX2034
00000
009900        10 FILLER   PIC      RECORD                                        .
005      CONTAINS4.IX2034
101         8.IX2034
010210     090     X2)
30 PIC(0 USAGE ZERO.00FILLERX).IX2034
010400 01  WRK-CS-09V00-00710        0   PIC5)                        .2
01000  ( COMP.           .
010600 01  WRK-CS-09V00-009001020     3
010 ILLER (8             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0000 PIC9)USAGE ZEROjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10Xjava.lang.StringIndexOutOfBoundsException: Range [44, 42) out of bounds for length 80
0"=00=, "I2
011110   (USAGE
12     WRK-DU-09V00-001
101I-O-ERROR-IX-FD15FILLER()VALUEIX2034
01000java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
011500     02 020            ,=                             .I.2
0160     02 DUMMY-WRK2REDEFINES13                          PICTUREVALUE2
01140 103FILE-RECORD-INFO  1  .              IX2034
PIC.2
011900 01  FILE-RECORD-INFORMATION-REC.                                 IX20346           PIC                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1FILE-RECORD-INFORMATION-REC
01 0                   X4)java.lang.StringIndexOutOfBoundsException: Range [72, 1) out of bounds for length 80
012200             "FILE= ,RECORD= /0,0100REELUNIT-NUMBER () IX20342
01300                   100               PIC.IX2034
020             ,=00     LRECLjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
5                          (..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
             LFIL
012100 0                   3              IX2034
10005() .2
012900        05 FILLER03          OCCURS.              .0            PICIX2034
013001300     PICIX2034
03FILLER..2
01320000                      PIC.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013300        05 0907              (.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013400     03 FILE-RECORD-INFO       9.IX20340               (                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013500        140           7XRECORD-KEY00       PIC.
010              X)IX2034
0700            PIC).IX2034
80               X).java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1                       52
0java.lang.StringIndexOutOfBoundsException: Range [40, 26) out of bounds for length 80
10XRECORD-LENGTH 6.                      .2
04java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 80
014300           07 XRECORD-NUMBER       PIC50           0 HARS-OR-RECORDS)                       .2
0115                      PIC2                   ..2
0407UPDATE-NUMBER..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016                (
0580              X0 PIC.java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
             PIC3 PIC .2
107XPROGRAM-NAME           PIC.
12         ILE-RECORD-INFO-P121-240IX2034
007XRECORD-LENGTH6.IX2034
0101TEST-COMPUTEDIX2034
01300 1      FILLER)VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10                          (                       .
01550001850" COMPUTED=.IX20342
015600           00160 0 ALTERNATE-KEY1 (2.                     IX2034
050      PICIX2034
015800           07 FILLER              PIC 0180            ALTERNATE-KEY2      PIC(9.IX2034
01500   PIC)                      .2
016000           07 FILLER              PIC X(6).                       IX2034.2
016100           07 XLABEL-TYPE          PIC X(1).                      IX2034100 FILLER X      SPACE          .2
-4.IX2034
016300           07 FILLER              PIC X(8).                       1   VALUE
07010COMPUTED-4V14 (().java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00  PIC2
016600           07 ALTERNATE-KEY1      PIC 10         0                     7       PIC..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0167017001  00 FILLER X(8  VALUE.I.2
0168 100RE-MARK2
009       PIC)VALUECORRECTIX2034.2
017000 01  080 1  .                                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017100     02 FILLER                    X       SPACE00                    PIC X(IX2034
                   PIC.IX2034
001 COMPUTED-X
00COMPUTED-A2   SPACEREDEFINES     PIC9     2
0                           SPACE
0600  .                                                3REDEFINES2
017700       03 FILLER   PIC8.IX2034
004                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017900       03     0        1000     03 COR-ANSI-REFERENCEX)SPACE
.
018100     02 RE-MARKX)ISPAIX2034
8  .
8   ()VALUE.IX2034
802                    X100FILLER1  " "               2
0150                   " .
018600     02 COMPUTED-X002
000                ()SPACEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0202 X)VALUE.IX2034
018900                                 PIC 2400   CORRECT-A-      .
93COMPUTED-0V18 PIC.IX2034
000     03 COMPUTED-4V14 REDEFINES                          PIC        ZERO
019200     03 COMPUTED-14V400PIC      ZERO
090     3019300     03       PIC2  .                              .2
090         4COMPUTED-18V00 1CCVS-C-1.2
0190         4FILLER X.IX2034000                      PIC99      VALUEZERO.       IX2034
019600     03 FILLER PIC10 1RECORD-COUNT 95)VALUE.IX2034
00  .
019800     02 FILLER2700 02FILLERX4)             .
01000FILLER (     "" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000     2.                                                .
02103CORRECT-AX20)VALUE.         .2
020200     03 CORRECT-N    REDEFINES220     0 FILLER                     022100     02 FILLER                     PIC                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02030     34   FOR..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020400     03 CORRECT-4V14 REDEFINES CORRECT-A01                2                                                                  0   .
2     CORRECT-14V40                    5) .IX2034
04        .IX2034
020700         04 CORRECT-18V025000FILLER (2   X2034
20                                     .2
020900     03 FILLER37     PICVALUE
00     COR-ANSI-REFERENCEIX2034
021100 01  CCVS-C-12                       X(3    ALUE.     00 CCVS-H-32
021200     02 FILLER  PIC   2FILLERPIC20     java.lang.StringIndexOutOfBoundsException: Range [78, 72) out of bounds for length 80
02      54 Apr.2
240           " .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0100       6 1CCVS-E-1.
010 1CCVS-C-2IX2034
021700     02 FILLER                     2800FILLER X40  PIC2VALUE
00FILLERX6TESTED
02192000                         X(454   0FILLER X1 ..
02200     2                     7 1.
02                           X9 SPACE2
07      CCVS-E-2-2IX2034
022300 01  REC-CT                        0         03               PIC XXX            TESTOF                                    .2
00                 9      VALUE.
020020                        PIC              .2
022605300   028            ERRORS.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0                  9VALUE
00"FOR USE ONLY. java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02201ERROR-HOLDVALUE.       IX2034
023000 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.0283000  50" , NATIONAL OF TECH IX20342
02100                    PIC95      ZEROIX2034.2
020 1PIC     .IX2034
00866" USE .IX2034java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023400     02  FILLER                    PIC88 1 .
0250" PICXXX . .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023600     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IX2034.230                        ()SPACE
023700     02  FILLER                    PIC5PIC)
030 1CCVS-H-2AIX2034
023900   02  FILLER                        PIC X(4021   .
040   2                           X7    "CCVS85.IX2034.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0210   02  FILLER XXXXXXCORRECT)java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02420700              PIC    00  .IX2034
430  2FILLERPIC2)VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040                X4   IX2034
024500   02  FILLER                        PIC X(41)  VALUE SPACE     2FILLERPIC
024600                                                                  2       P (  IX2034
02500FILLER X1) .2
024800   02  FILLER                        20CCVS1.                                                   IX2034     2FILLERPIC5   00OPEN-FILES
024900            "TEST RESULT OF ".                                    30READ INVALID09     0                         .IX2034
0250   2                        X(9)                    .2
050 0  ILLERX4VALUE
025200            " IN3 "T WERE "3 DATE IX2034.2
025300   02  FILLER                        PIC X94  .                                                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
5                                                     (0                   .2
00       4                       X()VALUE.2
050 VALIDATION
2700  FILLERPIC8               .2
  V,INSTITUTE."IX20342
2900  CCVS-H-300MOVE REC-SKL-SUB
026000     02  FILLER                      PIC090PERFORM0     (    I"********.2
026100            70     2 10TO.2
026200     02  030MOVEIX2034
03           REC-SKL-SUB.
026400     0230CCVS-INIT-EXITIX20340     IX203AIX20342
0250" COPYRIGHT 198 ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0260 1CCVS-E-11  SECTION.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026700     02 FILLER90READ INVALID GO0IO..2
(4 VALUE..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026900     02 ID-AGAIN                     PIC370     ERROR-HOLD
027000     02 FILLER0     MOVE TO.                            .2
027100 006     EWRITE KEY  END-E-2  FROMIX2034
020
300                        PIC1.2
027002 5TERMINATE-CCVS.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0270         3ERROR-TOTAL 3           TEST-RESULTS
027600         0020     320TERMINATE-CALLIX2034
27PIC  ALUE
027800            "ERRORS ENCOUNTERED".                                 IX203430   .IX2034
027900 01030            REC-SKL-SUBIX2034   "*TO. 1TO IX2034.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
080     2                       X2)VALUE2
02810"FOR OFFICIAL ONLY".                             .2
080     2 FILLERPIC1) VALUESPACE.2
023000 FILLERPIC58  VALUE390PRINT-DETAIL                                                    .2
0284" VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX2034
028500033500      TO.                                            .2
0286000300      I-O0MOVE0 300MOVE TO.                            .2
80              COPYRIGHT.2
028800 01  CCVS-E-4.                                                    0      "OK."TO.IX2034
080     2                    XXXVALUE..2
0290                              X()VALUE.IX2034
VS-E-4-2 PACE
029200     02 FILLER                       PIC X(6    THRU                 2
02930030MOVE TO.  TO.IX2034
0290 01XXINFOIX20342
0295002                        PIC93          EQUAL   .2
090            "* INFORMATION*"029600            "*** INFORMATION ***".
029700     02 INFO-TEXT0020MOVECCVS-H-1 PERFORM   .2
090                             X()   .      2
029900       04 XXCOMPUTEDMOVE TODUMMY-RECORD. PERFORM 3 TIMES0TERMINATE-CALL.2
030000 UTINE.2
030100       04 XXCORRECT                  PIC050PASSMOVE030      CVS-C-1. PERFORM.IX2034
000      NF-ANSI-REFERENCE X4 X2034
030300 01  HYPHEN-LINE.                                                 IX203400 DE-LETE "** TO P-OR-F. ADD1TO DELETE-COUNTER. IX2034.2
000     2  PIC X VALUE30 .                                                     IX2034java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030500     02 FILLER  PIC IS X(65)    VALUE IS "*30OVE".TO
006-"********* ERROR-HOLD INSPECT-COUNTER .2
060   TO*"PERFORMWRITE-LINEIX2034.2
030800-    "*******070ADD TOERROR-HOLD IX20342
030900 01  CCVS-PGM-ID360        PERFORM FAIL-ROUTINE FAIL-ROUTINE-EX                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031000     "IX203A".                                                    IX2034.2
01PROCEDUREIX2034
031200 CCVS1 SECTION00END-ROUTINE-12IX2034     EQUALTO  MOVE TO         .2
00 EQUAL                      0java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
031400     OPEN I-O RAW-DATA.                                           70      037300     MOVE CCVS-H-2A
031500     MOVE CCVS-PGM-ID TO0PERFORM.                                          .2
031600     READ RAW-DATA INVALID KEY GO TO END-E-1.                     IX2034.2
010      ABORTEDC-ABORT
031800     ADD 1 TO C-NO-OF-TESTS.                                      70      HYPHEN-LINE DUMMY-RECORD WRITE-LINE.2
031940           TOIX2034
020     ACCEPTC-TIME  FROM.                                    .2
032100     REWRITE RAW-DATA-SATZ06      CCVS-E-2 TO    ...
34 .IX2034
0323008 TO ERROR-HOLDADDINSPECT-COUNTERMOVETERROR-TOTAL
020         OUTPUT.                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032500     MOVE  CCVS-PGM-ID TO01070ADDASS-COUNTER .                             2
0260     MOVE TO.IX2034
032700     PERFORMHEAD-ROUTINE THRU10 .IX2034
032800     ADD 1TO.                                       .2
390PERFORM  .IX2034
033000 CCVS-INIT-FILE.                                                  IX2034.2
033100     ADD     1 TO REC-SKL-SUB310 SPACEjava.lang.StringIndexOutOfBoundsException: Range [72, 41) out of bounds for length 80
033200     MOVE0       "(S) FAILED OENDER-DESC IX2034.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033300          TO FILE-RECORD-INFO (REC-SKL-SUB).                      0          3600MOVENOTO                                IX2034
033400 CCVS-INIT-EXIT.                                                  IX2034.2
030      TO.                                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033600 CLOSE-FILES50 HYPHEN-LINE DUMMY-RECORD WRT-LN.2
03300     OPEN RAW-DATA.                                           IX2034
033800      CCVS-PGM-ID RAW-DATA-KEY0 END-ROUTINE-13IX2034
390      RAW-DATAINVALID GO TO         ZERO                               .2
034000     MOVE "OK400 WRITE DUMMY-RECORDAFTERADVANCING
00   C-OK
034200     MOVE ERROR-HOLD00      TEST.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
40     ERROR-COUNTERC-FAIL2
034400     MOVE DELETE-COUNTER TO C-DELETED.30          40      INSPECT-COUNTER ZERO.
0348           "NO"TOIX2034java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0360      RAW-DATA-SATZINVALID7     IF NOT   GO.IX2034
037 .                                                         2
040     R.                                              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040     PERFORMMOVETO                         IX2034
050TERMINATE-CCVSIX2034
03510      PROGRAMIX203440.
0350 .                                                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035300     STOP   TEST-CORRECTTO PERFORM 2 . IX2034
0340INSPT"TOP-OR-F 1 . 2
035500 PASS.  MOVE "PASS " TO P-OR-F     IFGREATERIX2034
050 .  MOVEFAIL6MOVE DUMMY-HOLD
035700 DE-LETE.  MOVE0SPACEDUMMY-RECORD.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
TEST*** R.
035900 PRINT-DETAIL.                                                    IX2034.2
030     REC-CTTOIX2034
036100             MOVE "." TO PARDOT-X                                 430     MOVE TO.  COMPUTED-A .  .2
036200             MOVE REC-CT TO200        OVE TODUMMY-RECORD WRT-LN    IX2034
060TEST-RESULTS . PERFORM.2
036400     IF P-OR-F60        TO.IX2034
036500        470BAIL-OUT-EX.
3            BAIL-OUT.                 .2
036700     MOVE SPACE.IX2034
036800     MOVE0SECT-IX-03-001IX2034
040.
0370046200*    THIS FILE "IX-FD1" IS ACCESSED SEQUENTIALLY AND HAS          IX2034.046300*    ASSOCIATED WITH046400*    CONTAIN THE40      INPUT.
037100 HEAD-ROUTINE.                                                    IX2034.2
03707      .               .2
7     C TOWRITE-LINE.IX2034
4MOVETO.  WRITE-LINE.IX2034
037500     070MOVE  WRK-DU-09V00-001040          TO
037670MOVE  .
070       TO.  .           .2
037800     MOVE CCVS-C-2 TO 070     OVE"TO .IX2034.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
9MOVETO.java.lang.StringIndexOutOfBoundsException: Range [53, 52) out of bounds for length 80
00 .                                                     IX2034
080      HYPHEN-LINE DUMMY-RECORD  WRITE-LINE .IX2034
038200 END-RTN-EXIT.048100*                                                                 IX2034.2
038300     MOVE CCVS-E-1048300*                                                                 IX2034.2
038400 END-ROUTINE-1.                                                   IX2034.2
038500      ADD ERROR-COUNTER TO8MOVE   "TOFEATURE.IX2034java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038600      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD        ANSI-REFERENCE           TOIX2034
8   IX2034
038800*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   IX2034.2
038900      MOVE000    TO. 049100     MOVE     IX-FD1R1-F-G-240    TO FILE-RECORD-INFO
0900MOVE CCVS-E-4-2
039100      MOVE CCVS-E-4 TO CCVS-E-2-2.                                IX2034.2
039200      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORMWRITE-LINEIX2034
30  .0430.                                             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039400      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        IX2034.2
039500     IF       ERROR-COUNTER IS EQUAL TO ZERO40             TO                           IX2034
039600         MOVE "NO " TO ERROR-TOTAL 490 TO.                            IX2034
30ADDTO2
0390.                                               40          COMPUTED-ATOSPACE  BAIL-OUT-WRITE.2
0304500          CORRECT-A  SPACE 50MOVE 1    IX-WRK-KEYIX2034
0 WRITE-LINE
040100 END-ROUTINE-13.                                                  440MOVE TO.                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00IF EQUAL                           .2
040300         MOVE "NO " TO ERROR-TOTAL0      TO.IX203470 BAIL-OUT-EX .                                               .2
MOVE TO.                      .2
040      TEST".IX20342
040600     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX2034.2
0470IF EQUAL ZERO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040800          MOVE "NO " TO ERROR-TOTAL                               IX2034.2
020PERFORM                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0410      MOVE440     THE OF RECORD READ             .2
041100      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          IX2034.2
04120      CCVS-E-3.  WRITE-LINE.2
041300 WRITE-LINE.                                                      550PERFORM.                                       IX2034java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041400     ADD051800*                                                                 IX2034.2
041500     IFRECORD-COUNT 4                                   .2
041600490     MOVEZERO             046900     MOVE     ZERO TO             WRK-CS-09V00-009
041700         MOVE SPACE TO DUMMY-RECORD                               IX2034.2
0400 DUMMY-RECORDPAGE2
041900         MOVE CCVS-H-10                                                              2
042000         50               "NON-UPDATEDRECORDS"TO            .2
042100         20               SHOULD.2FORMATIX203470         ZERO WRK-DU-09V00-001IX203420                                   R
042200         MOVE CCVS-H-3  TO DUMMY-RECORD 4600*
042300         MOVE053300*                                                                 IX2034.2
020 MOVE  TO DUMMY-RECORD3        .IX2034
040        " NEXTRECORDTOFEATURE. .2
042600         MOVE DUMMY-HOLD PRINT-DETAIL.
042700         MOVE048100*                                                                                                          .2
042800     PERFORM WRT-LN.                                              IX2034.2
020WRT-LNIX2034
043000     WRITE    DUMMY-RECORD 080         "048500 MOVE "READ-TEST-F1-01FORMAT 1 RE-MARK java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043100     MOVE SPACE TO DUMMY-RECORDREAD-TEST-F1-01-RIX2034
04300 BLANK-LINE-PRINT                                                .2
043300     PERFORM WRT-LN.                                              IX2034.2
043400 FAIL-ROUTINE.                                                    50         " NEXTRECORD OFEATURE java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
430IF NOT TOIX2034
043600            GO TO   FAIL-ROUTINE-WRITE.                           IX2034.2
030          CORRECT-X TO90           1.IX2034
480java.lang.StringIndexOutOfBoundsException: Range [23, 19) out of bounds for length 80
030  " , SEE . INFO-TEXTIX2034.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040      XXINFOWRITE-LINE.2
O INF-ANSI-REFERENCE.                         IX2034.2550TO                        IX2034
04420      TOFAIL-ROUTINE-EX.                                      .27      PRINT-DETAIL.2
4430FAIL-ROUTINE-WRITEIX2034
044400     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE90              GOTO.                            .2
044500    NEXT  TO
040          PRINT-REC
044700     MOVE030PERFORMIX2034
044800 FAIL-ROUTINE-EX. EXIT.
04490530IF  GREATER 51IX2034
40           NOT S GO BAIL-OUT-WRITE
04100IF EQUAL TO GO TO.           IX2034 AIL.2
045200 BAIL-OUT-WRITE.                                                  IX2034.2
430     MOVE TO XXCORRECT0java.lang.StringIndexOutOfBoundsException: Range [13, 11) out of bounds for length 80
050     MOVE TO                 .2
045500     MOVE   XXINFO TO0                WRK-CS-09V00-006 COMPUTED-18V0.2
045600     MOVE500                0               CORRECT-18V0IX2034.2
50BAIL-OUT-EX.IX2034
50 .                                                      .2
49
06050MOVE WRK-CS-09V00-007
046100 READ-INIT-F1-01.                                                 IX2034.2
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
6OPEN.IX2034
046600     MOVE     ZERO TO051600*                                                                 IX2034.2
04670830                                                                  .580                                                                 .2
046800     MOVE     ZERO520     MOVE    READRECORD .                     .2
060          ZERO.               .2
047000     MOVE     530PERFORMIX2034
1MOVE TOWRK-CS-09V00-011IX2034
02          SPACE (1)0MOVE" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047300     MOVE    ZERO1
047400     MOVE90               TO.                           .2
7         SPACE P-OR-FIX2034
047600     MOVE0PERFORM.                                       .2
047700     MOVE    "KEY AFTER OPEN" TO RE-MARK053200060TO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
79  java.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 80
047900     MOVE     "READ-INIT-F1-01" TO PAR-NAME.                      30MOVE  NEXT   FEATUREIX2034.2
40060DELETE-TEST-GF-01-2.2
048100*                                                                 IX2034.2
048200*                                                                 IX2034.2
048300*                                                                 IX2034.2
04 .                                               .
048500     MOVE    "READ-TEST-F1-01" TO 00      X-FD1.
                               .2
048700 READ-TEST-F1-01-R0PERFORMIX20342
048800     ADD      1 TO WRK-CS-09V00-006.                              IX2034.2
080             RECORD.2
049000              AT END GO TO READ-TEST-F1-01.9     MOVEZERO.                                                                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
11 .
049200IF (1) EQUALIX2034
049300             0510             ELSEIX20342
049400              GO TO READ-TEST-F1-01-2.                            IX2034MOVE TO               .2
049500     IF       UPDATE-NUMBER0150                            501TO               IX2034
049600              ADD 1 TO WRK-CS-09V00-008                           IX2034.2
049700              GO TO6100                                                              .2
0490            TO.                              .2
049900 5700PERFORM.                                        .2
050000     MOVE    XRECORD-KEY00    READ-TEST-F1-05java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
50     20
0 TO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050300     IF       WRK-CS-09V00-006  GREATER 501                       IX2034.2
050400              GO TO READ-TEST-F1-01.                              IX2034.2
050500     GO TO    READ-TEST-F1-01-R0
6              C                .
7         TO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
60                                                              .2
00                WRK-CS-09V00-006COMPUTED-18V0.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0100                5050      .IX2034
1 CLOSEIX-FD1.                                             IX2034
051200              PERFORM FAIL                                        IX2034.2
051300              ELSE                                                IX2034.2
051400              PERFORM PASS063700*                                                                 IX2034.2
6MOVE FEATURE.
051600*                                                                 IX2034.2
051700*                                                                 IX2034.2
051800*                                                                 IX2034.2
50.                                                 .2
052000     MOVE"40ELSE java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
  NEXT" TO FEATURE. IX2034.2
052200     IF       WRK-CS-09V00-007 EQUAL TO 4         ZERO
2
0"" java.lang.StringIndexOutOfBoundsException: Range [52, 51) out of bounds for length 80
052500              MOVE "NON-UPDATED RECORDS" TO80ADD00*IX2034.2
052600              MOVE  WRK-CS-09V00-0070DELETE-INIT-GF-042
2              " BE; 4.. 00READ
8                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
5PERFORM.
053000     PERFORM  PRINT-DETAIL70MOVE TOIX2034
053100*                                                                 IX2034.2
053200*                                                                 IX2034.2
053300*                                                                 IX2034.2
053400 READ-TEST-F1-03.                                                 IX2034.2
02     TOIX2034
6MOVE            IX2034
05580MOVEATEND TAKEN0
030              P
053900              ELSE                                                IX2034 WRK-CS-09V00-007IX2034
040              WRK-CS-09V00-008 COMPUTED-18V0     .                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
054100             MOVE 100             TO  CORRECT-18V0                IX20346680     READIX-FD1NEXTXPROGRAM-NAME..2
50MOVE;.. ORMAT 60     9  UPDATE-NUMBER) IX2034
054300              PERFORM FAIL.                                       IX2034.2
4       PRINT-DETAIL.2
054500*                                                                 IX2034.2
054600 READ-TEST-F1-04.                                                .2
"" TO java.lang.StringIndexOutOfBoundsException: Range [49, 48) out of bounds for length 80
50MOVE   RECORDFEATURE.
054900     IF      WRK-CS-09V00-009 EQUAL TO ZERO                       IX2034.2
5                                                       .2
055100             ELSE                                                 0     W  TO.IX2034
055200             MOVE WRK-CS-09V00-009 TO COMPUTED-18V0               IX2034.2
06100ADD      1TO                              IX20342
0540             MOVEBAD; IX-28
055500                                TO RE-MARK                        IX2034100DELETE-TEST-GF-01IX2034.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
055600             PERFORM FAIL.                                        IX2034.2
0570PERFORM                                        .2
055800*                                                                 IX2034.2
055900 READ-TEST-F1-05.                                                 IX2034.2
05000MOVETO.
056100     MOVE    "READ NEXT RECORD"  TO80               WRK-CS-09V00-006TO COMPUTED-18V0              06210*
056200     IF      WRK-CS-09V00-010 EQUAL TO062300*                                                                 IX2034.2
056300             PERFORM PASS                                         IX2034610ELSE                                                .2
056400             ELSE                                                 IX2034.2
056500             MOVE WRK-CS-09V00-010 TO COMPUTED-18V0               IX2034.2
IX2034.
056700             MOVE "IX-28; 4.5.2 FORMAT 06500 . IX2034.2
056800                                  TO RE-MARK                      IX2034.2670MOVE"DELETE-TEST-GF-05" TOPAR-NAMEIX2034
006800     IFWRK-CS-09V00-009 EQUALTO                   IX2034
057000     PERFORM PRINT-DETAIL.                                        IX2034.2
060                   TOCORRECT-18V0.2
057200*                                                                 IX2034.2
057300*     R E A D     NEXT RECORD                                     IX2034.2
057400*                                                                 IX2034.2
0640       PRINT-DETAIL.2
057600     OPEN     I-O IX-FD1.                                         IX2034.2
057700     MOVE     ZERO TO WRK-CS-09V00-006                            IX2034.2
0580MOVE TO WRK-CS-09V00-007IX2034
057900     MOVE     ZERO TO WRK-CS-09V00-008                            IX2034063700*                                                                 IX20340              PERFORM                                        .2
                            java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
058100     MOVE     ZERO TO WRK-CS-09V00-010                            IX2034.2
05870 java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 80
058300                                                                  IX2034.2
058400     MOVE     SPACE TO  FILE-RECORD-INFO (1).                     IX2034.2
058500     MOVE    "DELETE "   TO FEATURE.650 WRK-CS-09V00-009  COMPUTED-18V0                   .2
058600     MOVE     "DELETE-TEST-GF-01" TO PAR-NAME.                    IX2034.2
058700 DELETE-TEST-GF-01-R.                                             IX2034.2
7         MOVEINVALID;IX-214..           "TORE-MARKIX2034.
058900     ADD      1 TO WRK-CS-09V00-00740     PRINT-DETAIL.2
059000     READ     IX-FD1  NEXT RECORD                                  AILIX2034
0065000*                                                                 IX2034.2
059200              MOVE "AT END PATH TAKEN " TO RE-MARK10PERFORM .                                       IX2034
059300              GO TO  071800*                                                                 IX2034.2
05400          IX-FD1R1-F-G-240 FILE-RECORD-INFO)           .2
059500     IF       WRK-CS-09V00-007  EQUAL TO059500     IF       WRK-CS-09V00-007  EQUAL TO
0560             TO.                          2
059720IFWRK-CS-09V00-011  NOTEQUALTO7                  .2
059800              MOVE  "AT END NOT TAKEN"  TO730MOVE375T CORRECT-18V0                          IX2034
059900              GO740                "INCORRECTRECORD FOUND IX-21 ..2 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
600     ZEROIX2034
060100 DELETE-TEST-GF-01-2.070                FAIL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060200     MOVE     CCVS-PGM-ID TO  XPROGRAM-NAME (1).                  0                00        java.lang.StringIndexOutOfBoundsException: Range [78, 72) out of bounds for length 80
3     MOVEMOVE  WRK-DU-09V00-001.2
060400     MOVE     FILE-RECORD-INFO (1) TO360    INPUT                                      .2
060500     DELETE IX-FD1 INVALID KEY                                    IX203400     ADD       74                                                      2
060600                    ADD 1 TO WRK-CS-09V00-009                     IX2034.2
0070M ZERO WRK-CS-09V00-007                 IX2034
060800                    GO TO DELETE-TEST-GF-01-R.                    IX2034.2
0600          ZEROTOWRK-CS-09V00-007.                          IX2034
06100     ADD       TO  WRK-CS-09V00-008IX2034.2
061100     GO TO    DELETE-TEST-GF-01-R.                                IX2034.2
061200 DELETE-TEST-GF-01                                               IX2034.2
061300     IF       WRK-CS-09V00-006 NOT EQUAL TO 501                   IX2034.2
020IFWRK-CS-09V00-007  EQUAL TO                        IX2034.2
060630               01 TOWRK-CS-09V00-007                         IX2034
061600              MOVE "IX-21; 4.3.2 " TO          IX2034.2
061700              PERFORM FAIL                                        IX20346750     MOVEXRECORD-KEY (1)  TO.                    IX2034.2
061800              ELSE                                                IX2034.2
0690              PERFORM PASS                                       IX2034.2
062000     PERFORM  PRINT-DETAIL.                                       IX2034.2
062100*                                                                 IX2034.2
062200*                                                                 IX2034.2
062300*                                                                 IX2034.2
062400 DELETE-TEST-GF-02.                                               IX2034.2
062500     MOVE    "DELETE "   TO FEATURE.                            IX2034.2
06200     MOVE"DELETE-TEST-GF-02" TO PAR-NAMEIX2034
062700     IF       WRK-CS-09V00-008 NOT EQUAL TO 125                   IX2034.2
06280               WRK-CS-09V00-008TO              IX2034.2
062900              MOVE 125              TO CORRECT-18V0               IX2034.2
063000              MOVE "DELETED RECORDS; IX-21; 4.3.2 " TO RE-MARK IX2034.2
610PERFORM                                        IX2034
063200              ELSEIX2034.2
063300              PERFORM PASS.                                       IX2034.2
063400     PERFORM  PRINT-DETAIL.                                       IX2034.2
063500*                                                                 IX2034.2
063600*                                                                 IX2034.2
063700*                                                                 IX2034.2
063800 DELETE-TEST-GF-03.                                               IX2034.2
063900     MOVE" "   TO.                            IX2034.2
064000     MOVE     "DELETE-TEST-GF-03" TO PAR-NAME.                    IX2034.2
064100     IF WRK-CS-09V00-009 EQUAL TO ZERO                            IX2034.2
06406800              MOVE TO COMPUTED-18V0IX2034
064300         ELSE                                                     IX2034.2
064400         PERFORM FAIL                                             IX2034.2
6400        MOVE TO COMPUTED-18V0IX2034
064600         MOVE ZERO TO CORRECT-18V0                                IX203406910              ELSE                                                .2
064700         MOVE "INVALID KEY; IX-21; 4.3.2 " TO09300PERFORM.                                       IX2034
064800     PERFORM PRINT-DETAIL.                                        IX2034.2
090 .                                               .2
065000*                                                                 IX2034.2
065100*                                                                 IX2034.2
065200*                                                                 IX2034.2
06530DELETE-INIT-GF-04.2
065400     MOVE     "DELETE-TEST-GF-04" TO PAR-NAME.                    IX2034.2
065500     MOVE680     IF      WRK-CS-09V00-009 NOT TOZERO                  IX2034
065600     MOVEZERO   WRK-CS-09V00-007                          IX2034
065700     MOVE     ZERO TO   WRK-CS-09V00-008                          IX2034.2
065800     MOVE     ZERO TO   WRK-CS-09V00-009                          IX2034.2
065900     MOVE     ZERO TO   WRK-CS-09V00-010                          IX2034.2
066000     MOVE     ZERO TO   WRK-CS-09V00-011                          IX2034.2
06610          SPACETOFILE-RECORD-INFO ()                    IX2034
066200     MOVE    ZERO TO WRK-DU-09V00-001.                            IX2034.2
066300     OPENINPUTIX-FD1.                                      IX2034
0664DELETE-TEST-GF-04-RIX2034
066500     ADD      1 TO.2
066600     ADD      1 TO WRK-CS-09V00-007.                              IX2034.2
066700     ADD       TOWRK-CS-09V00-008.                              IX20342
066800     READ   IX-FD1 NEXT RECORD  AT END  GO TO DELETE-TEST-GF-04.  IX2034.2
060          IX-FD1R1-F-G-240TO FILE-RECORD-INFO1).IX2034
067000     IF       UPDATE-NUMBER (1) EQUAL TO070600*                                                                 IX2034.2
067100              ADD  1 TO WRK-CS-09V00-009780     MOVEDELETE    FEATUREIX2034
7     WRK-CS-09V00-007IX2034
067300              MOVE NOT EQUALTO75                   .2
067400              ADD1TOWRK-CS-09V00-008IX2034
067500     MOVE     XRECORD-KEY (1)720MOVEIX-21..;KEYMISMATCHTO RE-MARK.2
067600     MOVE     WRK-CS-09V00-008  TO 730MOVEWRK-CS-09V00-010 COMPUTED-18V0              IX2034.2
06770     IF      IX-WRK-KEY TOIX-FD1-KEYIX2034
067800              ADD 1 TO  WRK-CS-09V00-010.                         IX2034.2
067900     IF       XRECORD-NUMBER (1) EQUAL TO  WRK-CS-09V00-008       IX2034.2
06800                 WRK-CS-09V00-011.IX2034
068100     IF       WRK-CS-09V00-006 GREATER  501                       IX20340    PERFORM.                                       .2
620              GO TO.                            IX2034
007000MOVE" "    FEATURE.                            IX20342
068400 DELETE-TEST-GF-04.                                               IX2034.2
068500     IF       WRK-CS-09V00-006710     MOVE"DELETE-TEST-GF-07TOIX2034
07220IFWRK-CS-09V00-011NOT EQUALTO375                  IX2034
6800                                              RE-MARK           IX2034
068800              MOVE WRK-CS-09V00-006 TO COMPUTED-18V0              IX203402400MOVE   "INCORRECTRECORDFOUND IX-21, 43.2"        IX2034
068900               376 TO                            IX2034.2
069000              PERFORM  FAIL                                       760             MOVEWRK-CS-09V00-011  TO COMPUTED-18V0IX2034
06910                                                              IX2034
0692072800                                                              .2
069300     PERFORMPRINT-DETAILIX2034.2
069400*                                                                 IX2034.2
069500 DELETE-TEST-GF-05.                                               IX2034.2
060MOVE" "   TO.                            IX20342
069700     MOVE     "DELETE-TEST-GF-05" TO PAR-NAME                     IX2034.2
069800     IF       WRK-CS-09V00-009 NOT EQUAL TO ZERO                  IX2034.2
06900MOVEZERO CORRECT-18V0                        IX2034
070000              MOVE WRK-CS-09V00-009 TO COMPUTED-18V0              IX2034.2
070100              MOVE "IX-21; 4.3.2; DELETED RECORDDS" TO RE-MARK    IX2034.2
070200              PERFORM FAIL                                        IX2034.2
070300              ELSE                                                IX2034.2
070400              PERFORM PASS.                                       IX2034.2
070500     PERFORM  PRINT-DETAIL.                                       IX2034.2
070600*                                                                 IX2034.2
070700 DELETE-TEST-GF-06.                                               IX2034.2
070800     MOVE    "DELETE "   TO FEATURE.                            IX2034.2
070900     MOVE     "DELETE-TEST-GF-06" TO PAR-NAME                     IX2034.2
071000     IF       WRK-CS-09V00-010 NOT EQUAL TO 375                   IX2034.2
071100              MOVE    375  TO CORRECT-18V0                        IX2034.2
071200              MOVE "IX-21; 4.3.2; KEY MISMATCH" TO RE-MARK        IX2034.2
071300              MOVE WRK-CS-09V00-010 TO COMPUTED-18V0              IX2034.2
071400              PERFORM FAIL                                        IX2034.2
071500              ELSE                                                IX2034.2
071600              PERFORM PASS.                                       IX2034.2
071700     PERFORM  PRINT-DETAIL.                                       IX2034.2
071800*                                                                 IX2034.2
071900 DELETE-TEST-GF-07.                                               IX2034.2
072000     MOVE    "DELETE "   TO FEATURE.                            IX2034.2
072100     MOVE     "DELETE-TEST-GF-07" TO PAR-NAME                     IX2034.2
072200     IF      WRK-CS-09V00-011  NOT EQUAL TO  375                  IX2034.2
072300             MOVE   375  TO CORRECT-18V0                          IX2034.2
072400             MOVE   "INCORRECT RECORD FOUND; IX-21, 4.3.2"        IX2034.2
072500                   TO RE-MARK                                     IX2034.2
072600             MOVE   WRK-CS-09V00-011  TO COMPUTED-18V0            IX2034.2
072700             PERFORM   FAIL                                       IX2034.2
072800             ELSE                                                 IX2034.2
072900             PERFORM   PASS.                                      IX2034.2
073000     PERFORM   PRINT-DETAIL.                                      IX2034.2
073100     CLOSE    IX-FD1.                                             IX2034.2
073200                                                                  IX2034.2
073300                                                                  IX2034.2
073400 CCVS-999999.                                                     IX2034.2
073500     GO TO CLOSE-FILES.                                           IX2034.2

quality97%

¤ 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.0.26Bemerkung: ¤

*Bot Zugriff

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

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