Quelle  ix116a.cob   Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         IX1164.2
000200 PROGRAM-ID.                                                      IX1164.2
000300     IX116A.                                                      IX1164.2
000400****************************************************************  IX1164.2
000500*                                                              *  IX1164.2
000600*    VALIDATION FOR:-                                          *  IX1164.2
000700*                                                              *  IX1164.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX1164.2
000900*                                                              *  IX1164.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IX1164.2
001100*                                                              *  IX1164.2
001200****************************************************************  IX1164.2
001300*                                                                 IX1164.2
001400*    THIS ROUTINE USES THE MASS STORAGE FILE IX-FS3 CREATED IN    IX1164.2
001500*    IX113A.                                                      IX1164.2
001600*    THE FILE IS OPENED I-O AND THE STATUS CHECKED (00 EXPECTED), IX1164.2
001700*    CLOSED AND THE STATUS CHECKED (00 EXPECTED) THEN AN ATTEMPT  IX1164.2
001800*    IS MADE TO DELETE A RECORD, AT WHICH POINT THE DECLARATIVES  IX1164.2
001900*    SHOULD BE ACTIONED AND THE FILE STATUS SHOULD BE 49 .        IX1164.2
002000*                                                                 IX1164.2
002100*    STANDARD REFERENCE IX-5, 1.3.4 (5) H                         IX1164.2
002200*                                                                 IX1164.2
002300*    X-CARDS USED IN THIS PROGRAM:                                IX1164.2
002400*                                                                 IX1164.2
002500*                 XXXXX024                                        IX1164.2
002600*                 XXXXX055.                                       IX1164.2
002700*         P       XXXXX062.                                       IX1164.2
002800*                 XXXXX082.                                       IX1164.2
002900*                 XXXXX083.                                       IX1164.2
003000*         C       XXXXX084                                        IX1164.2
003100*                                                                 IX1164.2
003200*                                                                 IX1164.2
003300 ENVIRONMENT DIVISION.                                            IX1164.2
003400 CONFIGURATION SECTION.                                           IX1164.2
003500 SOURCE-COMPUTER.                                                 IX1164.2
003600     Card0130.                                                    IX1164.2
003700 OBJECT-COMPUTER.                                                 IX1164.2
003800     Card0131.                                                    IX1164.2
003900 INPUT-OUTPUT SECTION.                                            IX1164.2
004000 FILE-CONTROL.                                                    IX1164.2
004100     SELECT RAW-DATA   ASSIGN TO                                  IX1164.2
004200     "C0098"                                                      IX1164.2
004300            ORGANIZATION IS INDEXED                               IX1164.2
004400            ACCESS MODE IS RANDOM                                 IX1164.2
004500            RECORD KEY IS RAW-DATA-KEY.                           IX1164.2
004600*                                                                 IX1164.2
004700     SELECT PRINT-FILE ASSIGN TO                                  IX1164.2
004800     "C0085" .                                                    IX1164.2
004900*                                                                 IX1164.2
005000     SELECT IX-FS3 ASSIGN                                         IX1164.2
005100     "C0036"                                                      IX1164.2
005200     ORGANIZATION IS INDEXED                                      IX1164.2
005300     ACCESS MODE IS SEQUENTIAL                                    IX1164.2
005400     RECORD KEY IS IX-FS3-KEY                                     IX1164.2
005500     FILE STATUS IS IX-FS3-STATUS.                                IX1164.2
005600                                                                  IX1164.2
005700 DATA DIVISION.                                                   IX1164.2
005800                                                                  IX1164.2
005900 FILE SECTION.                                                    IX1164.2
006000                                                                  IX1164.2
006100 FD  RAW-DATA.                                                    IX1164.2
006200                                                                  IX1164.2
006300 01  RAW-DATA-SATZ.                                               IX1164.2
006400     05  RAW-DATA-KEY        PIC X(6).                            IX1164.2
006500     05  C-DATE              PIC 9(6).                            IX1164.2
006600     05  C-TIME              PIC 9(8).                            IX1164.2
006700     05  C-NO-OF-TESTS       PIC 99.                              IX1164.2
006800     05  C-OK                PIC 999.                             IX1164.2
006900     05  C-ALL               PIC 999.                             IX1164.2
007000     05  C-FAIL              PIC 999.                             IX1164.2
007100     05  C-DELETED           PIC 999.                             IX1164.2
007200     05  C-INSPECT           PIC 999.                             IX1164.2
007300     05  C-NOTE              PIC X(13).                           IX1164.2
007400     05  C-INDENT            PIC X.                               IX1164.2
007500     05  C-ABORT             PIC X(8).                            IX1164.2
007600                                                                  IX1164.2
007700 FD  PRINT-FILE.                                                  IX1164.2
007800                                                                  IX1164.2
007900 01  PRINT-REC               PIC X(120).                          IX1164.2
008000                                                                  IX1164.2
008100 01  DUMMY-RECORD            PIC X(120).                          IX1164.2
008200                                                                  IX1164.2
008300 FD  IX-FS3                                                       IX1164.2
008400        DATA RECORDS IX-FS3R1-F-G-240                             IX1164.2
008500        LABEL RECORD STANDARD                                     IX1164.2
008600        RECORD 240                                                IX1164.2
008700        BLOCK CONTAINS 2 RECORDS.                                 IX1164.2
008800                                                                  IX1164.2
008900 01  IX-FS3R1-F-G-240.                                            IX1164.2
009000     05  IX-FS3-REC-120      PIC X(120).                          IX1164.2
009100     05  IX-FS3-REC-120-240.                                      IX1164.2
009200         10  FILLER          PIC X(8).                            IX1164.2
009300         10  IX-FS3-KEY      PIC X(29).                           IX1164.2
009400         10  FILLER          PIC X(9).                            IX1164.2
009500         10  IX-FS3-ALTER-KEY  PIC X(29).                         IX1164.2
009600         10  FILLER            PIC X(45).                         IX1164.2
009700                                                                  IX1164.2
009800                                                                  IX1164.2
009900 WORKING-STORAGE SECTION.                                         IX1164.2
010000                                                                  IX1164.2
010100 01  GRP-0101.                                                    IX1164.2
010200     05  FILLER              PIC X(10) VALUE "RECORD-KEY".        IX1164.2
010300     05  GRP-0101-KEY        PIC 9(9)  VALUE ZERO.                IX1164.2
010400     05  FILLER              PIC X(10) VALUE "END-OF-KEY".        IX1164.2
010500                                                                  IX1164.2
010600 01  GRP-0102.                                                    IX1164.2
010700     05  FILLER              PIC X(10) VALUE "ALTERN-KEY".        IX1164.2
010800     05  GRP-0102-KEY        PIC 9(9)  VALUE ZERO.                IX1164.2
010900     05  FILLER              PIC X(10) VALUE "END-AL-KEY".        IX1164.2
011000                                                                  IX1164.2
011100 01  WRK-CS-09V00            PIC S9(9) COMP VALUE ZERO.           IX1164.2
011200                                                                  IX1164.2
011300 01  EOF-FLAG                PIC 9 VALUE ZERO.                    IX1164.2
011400                                                                  IX1164.2
011500 01  RECORDS-IN-ERROR        PIC S9(5) COMP VALUE ZERO.           IX1164.2
011600                                                                  IX1164.2
011700 01  ERROR-FLAG              PIC 9 VALUE ZERO.                    IX1164.2
011800                                                                  IX1164.2
011900 01  PERM-ERRORS             PIC S9(5) COMP VALUE ZERO.           IX1164.2
012000                                                                  IX1164.2
012100 01  STATUS-TEST-00          PIC 9 VALUE ZERO.                    IX1164.2
012200                                                                  IX1164.2
012300 01  STATUS-TEST-10          PIC 9 VALUE ZERO.                    IX1164.2
012400 01  STATUS-TEST-READ        PIC 9 VALUE ZERO.                    IX1164.2
012500                                                                  IX1164.2
012600 01  IX-FS3-STATUS.                                               IX1164.2
012700     05  IX-FS3-STAT1        PIC X.                               IX1164.2
012800     05  IX-FS3-STAT2        PIC X.                               IX1164.2
012900                                                                  IX1164.2
013000 01  COUNT-OF-RECS           PIC 9(5).                            IX1164.2
013100                                                                  IX1164.2
013200 01  COUNT-OF-RECORDS REDEFINES COUNT-OF-RECS  PIC 9(5).          IX1164.2
013300                                                                  IX1164.2
013400 01  FILE-RECORD-INFORMATION-REC.                                 IX1164.2
013500     05  FILE-RECORD-INFO-SKELETON.                               IX1164.2
013600         10  FILLER          PIC X(48) VALUE                      IX1164.2
013700              "FILE= ,RECORD= /0,RECNO=000000,UPDT=00". IX1164.2
013800         10  FILLER          PIC X(46) VALUE                      IX1164.2
013900                ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000". IX1164.2
014000         10  FILLER          PIC X(26) VALUE                      IX1164.2
014100                                    ",LFIL=000000,ORG= ,LBLR= ". IX1164.2
014200         10  FILLER          PIC X(37) VALUE                      IX1164.2
014300                         ",RECKEY= ". IX1164.2
014400         10  FILLER          PIC X(38) VALUE                      IX1164.2
014500                        ",ALTKEY1= ". IX1164.2
014600         10  FILLER          PIC X(38) VALUE                      IX1164.2
014700                        ",ALTKEY2= ". IX1164.2
014800         10  FILLER          PIC X(7) VALUE SPACE.                IX1164.2
014900     05  FILE-RECORD-INFO             OCCURS 10.                  IX1164.2
015000         10  FILE-RECORD-INFO-P1-120.                             IX1164.2
015100             15  FILLER      PIC X(5).                            IX1164.2
015200             15  XFILE-NAME  PIC X(6).                            IX1164.2
015300             15  FILLER      PIC X(8).                            IX1164.2
015400             15  XRECORD-NAME  PIC X(6).                          IX1164.2
015500             15  FILLER        PIC X(1).                          IX1164.2
015600             15  REELUNIT-NUMBER  PIC 9(1).                       IX1164.2
015700             15  FILLER           PIC X(7).                       IX1164.2
015800             15  XRECORD-NUMBER   PIC 9(6).                       IX1164.2
015900             15  FILLER           PIC X(6).                       IX1164.2
016000             15  UPDATE-NUMBER    PIC 9(2).                       IX1164.2
016100             15  FILLER           PIC X(5).                       IX1164.2
016200             15  ODO-NUMBER       PIC 9(4).                       IX1164.2
016300             15  FILLER           PIC X(5).                       IX1164.2
016400             15  XPROGRAM-NAME    PIC X(5).                       IX1164.2
016500             15  FILLER           PIC X(7).                       IX1164.2
016600             15  XRECORD-LENGTH   PIC 9(6).                       IX1164.2
016700             15  FILLER           PIC X(7).                       IX1164.2
016800             15  CHARS-OR-RECORDS  PIC X(2).                      IX1164.2
016900             15  FILLER            PIC X(1).                      IX1164.2
017000             15  XBLOCK-SIZE       PIC 9(4).                      IX1164.2
017100             15  FILLER            PIC X(6).                      IX1164.2
017200             15  RECORDS-IN-FILE   PIC 9(6).                      IX1164.2
017300             15  FILLER            PIC X(5).                      IX1164.2
017400             15  XFILE-ORGANIZATION  PIC X(2).                    IX1164.2
017500             15  FILLER              PIC X(6).                    IX1164.2
017600             15  XLABEL-TYPE         PIC X(1).                    IX1164.2
017700         10  FILE-RECORD-INFO-P121-240.                           IX1164.2
017800             15  FILLER              PIC X(8).                    IX1164.2
017900             15  XRECORD-KEY         PIC X(29).                   IX1164.2
018000             15  FILLER              PIC X(9).                    IX1164.2
018100             15  ALTERNATE-KEY1      PIC X(29).                   IX1164.2
018200             15  FILLER              PIC X(9).                    IX1164.2
018300             15  ALTERNATE-KEY2      PIC X(29).                   IX1164.2
018400             15  FILLER              PIC X(7).                    IX1164.2
018500                                                                  IX1164.2
018600 01  TEST-RESULTS.                                                IX1164.2
018700     02 FILLER                   PIC X      VALUE SPACE.          IX1164.2
018800     02 FEATURE                  PIC X(20)  VALUE SPACE.          IX1164.2
018900     02 FILLER                   PIC X      VALUE SPACE.          IX1164.2
019000     02 P-OR-F                   PIC X(5)   VALUE SPACE.          IX1164.2
019100     02 FILLER                   PIC X      VALUE SPACE.          IX1164.2
019200     02  PAR-NAME.                                                IX1164.2
019300       03 FILLER                 PIC X(19)  VALUE SPACE.          IX1164.2
019400       03  PARDOT-X              PIC X      VALUE SPACE.          IX1164.2
019500       03 DOTVALUE               PIC 99     VALUE ZERO.           IX1164.2
019600     02 FILLER                   PIC X(8)   VALUE SPACE.          IX1164.2
019700     02 RE-MARK                  PIC X(61).                       IX1164.2
019800 01  TEST-COMPUTED.                                               IX1164.2
019900     02 FILLER                   PIC X(30)  VALUE SPACE.          IX1164.2
020000     02 FILLER                   PIC X(17)  VALUE                 IX1164.2
020100            " COMPUTED=".                                   IX1164.2
020200     02 COMPUTED-X.                                               IX1164.2
020300     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          IX1164.2
020400     03 COMPUTED-N               REDEFINES COMPUTED-A             IX1164.2
020500                                 PIC -9(9).9(9).                  IX1164.2
020600     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         IX1164.2
020700     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     IX1164.2
020800     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     IX1164.2
020900     03       CM-18V0 REDEFINES COMPUTED-A.                       IX1164.2
021000         04 COMPUTED-18V0                    PIC -9(18).          IX1164.2
021100         04 FILLER                           PIC X.               IX1164.2
021200     03 FILLER PIC X(50) VALUE SPACE.                             IX1164.2
021300 01  TEST-CORRECT.                                                IX1164.2
021400     02 FILLER PIC X(30) VALUE SPACE.                             IX1164.2
021500     02 FILLER PIC X(17) VALUE " CORRECT =".                IX1164.2
021600     02 CORRECT-X.                                                IX1164.2
021700     03 CORRECT-A                  PIC X(20) VALUE SPACE.         IX1164.2
021800     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      IX1164.2
021900     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         IX1164.2
022000     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     IX1164.2
022100     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     IX1164.2
022200     03      CR-18V0 REDEFINES CORRECT-A.                         IX1164.2
022300         04 CORRECT-18V0                     PIC -9(18).          IX1164.2
022400         04 FILLER                           PIC X.               IX1164.2
022500     03 FILLER PIC X(2) VALUE SPACE.                              IX1164.2
022600     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     IX1164.2
022700 01  CCVS-C-1.                                                    IX1164.2
022800     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PAIX1164.2
022900-    "SS PARAGRAPH-NAME IX1164.2
023000-    " REMARKS".                                            IX1164.2
023100     02 FILLER                     PIC X(20)    VALUE SPACE.      IX1164.2
023200 01  CCVS-C-2.                                                    IX1164.2
023300     02 FILLER                     PIC X        VALUE SPACE.      IX1164.2
023400     02 FILLER                     PIC X(6)     VALUE "TESTED".   IX1164.2
023500     02 FILLER                     PIC X(15)    VALUE SPACE.      IX1164.2
023600     02 FILLER                     PIC X(4)     VALUE "FAIL".     IX1164.2
023700     02 FILLER                     PIC X(94)    VALUE SPACE.      IX1164.2
023800 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO0 DIVISIONIX1164
0290 0  REC-CT                        PIC 9       VALUE.       .2
024000 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       IX1164.2
024100 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       IX1164.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE000900* * IX1164.2
001000*    "COBOL 85 VERSION 4.2, Apr 1993 SSVG 001100* * IX1164.2
024400 001300*                                                                 IX1164.2
024500 01  ERROR-HOLD                    PIC 999      VALUE 001600*    THE FILE IS OPENED001700*    CLOSED AND THE001800*    IS MADE 001900*    SHOULD BE ACTIONED AND THE FILE STATUS SHOULD 002000*                                                                 IX1164.2
0002600*                 XXXXX055.                                       IX1164.2
024700 01  RECORD-COUNT002800*                 XXXXX082.                                       IX1164.2
0003000*         C       XXXXX084                                        IX1164.2
024900 01  CCVS-H-1.                                                    IX1164.2
025000     02  FILLER                    30 ENVIRONMENT DIVISION.                                           IX1164
025.2
025200     "OFFICIAL COBOL 003600 Card0130. IX1164.2
230     2  FILLER                     X()    VALUE SPACES.     IX1164.
0254000  CCVS-H-2A.                                                  IX1164
025500   02  FILLER                        PIC X(40)  VALUE SPACE.      IX1164.2
025600   02  FILLER                        PIC 040FILE-CONTROL.                                                   .2
025700040""                                                      2
025800     "4.2 ".                                                      IX1164.2
025900   02  FILLER                        PIC X(28)  VALUE             IX1164.2
026000            " COPY - NOT FOR DISTRIBUTION".                       IX1164.2
026100   02  FILLER                        PIC X(41)  VALUE SPACE.      IX1164.2
026200                                                                  IX1164.2
026300 01  CCVS-H-2B.                                                   IX1164.2
026400   02  FILLER                        PIC X(15)  VALUE             IX1164.2
026500            "TEST RESULT OF ".                                    040            ORGANIZATION IS                               IX1164
026600   02  TEST-ID                       PIC X(9).004600*                                                                 IX1164.2
270   0  FILLER (4IX1164
026800            " IN ".                                               IX1164.2
026900   02  FILLER50""                                                      
027000     " HIGH ".                                              IX1164
027100   02  FILLER                        PIC05      STATUS .                                .2
0220"LEVEL VALIDATION FOR . IX11642
027300   02  FILLER                        PIC X(58)  VALUE             IX1164.2
070     "N-SITE VALIDATION,NATIONAL INSTITUTE OF STD &TECH "IX1164
027500 01  CCVS-H-3.                                                    9  SECTIONIX1164.
027600     02  FILLER                      PIC X(34)  VALUE             IX11640FD.                                                    .2
027700            " FOR OFFICIAL USE ONLY ".                         IX1164.2
027800     02  FILLER                      PIC 060     0  C-TIME               9(8.IX1164
02790     "COBOL 8 VERSION .2 Apr 19 SSVG "IX1164
028000     02  FILLER                      PIC X(28)  VALUE             IX1164.2
028100            "60 0 C-ALL PIC 99. IX1164.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
080 1  CCVS-E-1                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20     2FILLERPIC52  VALUE SPACE.2
02840     2FILLER X14 VALUE IS ENDOF" X11642
028500     02 ID-AGAIN                     PIC X(9).                    IX1164070                                                                  .2
028600     02 FILLER                       PIC X(45)  VALUE SPACES.     IX1164009 0  PRINT-REC               PIC X12)                          .2
028700 01  CCVS-E-2.                                                    IX1164.2
028800     02  FILLER030FD                                                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028900     02  FILLER                      PIC X(21)  VALUE         2IX1164.2
290     2 CCVS-E-2-2.                                              IX1164.2
029100         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      IX1164.2
080 0  IX-FS3R1-F-G-240.                                            2
029300         03 ENDER-DESC               PIC100  .                                      .2
029400            "ERRORS ENCOUNTERED"090         1IX-FS3-KEYPICX2.IX1164
2900  .                                                    .2
02900    02 FILLERPIC2)              IX1164
029700            " FOR OFFICIAL USE ONLY".                             IX1164.2
029800     02  FILLER                      PIC X(12)090IX1164.2
029900090                                                                  
000                                                                  IX1164
030100     02  FILLER                      PIC X(13)  VALUE SPACE.      IX1164.2
030200     02 FILLER                       PIC X(15)  VALUE             IX1164400                 X(0VALUE" IX1164.
" COPYRIGHT 95.IX11642
300 0  CCVS-E-4.                                                   .2
0350    0 CCVS-E-4-1PIC    VALUE.      .2
0306000     5               PIC() VALUE.IX1164
030700     02 0100IX1164.2
030800     02 FILLER                       PIC
000        TESTSEXECUTED.                      .2
03100 0  XXINFO                                                      .2
031100     02 FILLER                       PIC X(19)  VALUE             IX1164.2
0310            "* INFORMATION **.IX11642
031300     02 INFO-TEXT.                                                IX1164.2
030160IX1164.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031500      0 XXCOMPUTED                 PIC2)                   .2
310       0 FILLER                     PIC5    SPACE      .2
0370       04                  PIC(0.                   .2
031800     02 INF-ANSI-REFERENCE           PIC X(48).                   IX1164.2
0319000  .                                                 .2
0320     0FILLER  PIC IS X VALUE IS.                          .2
032100     02 FILLER  PIC IS X(65)    VALUE20 1            PIC 9 ZERO.2
032200-    "********************. IX11642
032300     02 FILLER  PIC IS X(54)    VALUE IS150                                                                  .2
032400    "******************. IX1164.2
020 0TEST-NO                          9.                      IX1164.2
032600 01  CCVS-PGM-ID                     PIC X(9)   VALUE             IX1164.2
032700     "IX116A"0100                                                                  IX1164
032800 PROCEDURE DIVISION.                                              IX1164.2
030 1FILE-RECORD-INFORMATION-REC.2
033000                                                                       5FILE-RECORD-INFO-SKELETON.IX1164
033100 SECT-IX105-0002 SECTION.                                         IX1164.2
0330     USE AFTER EXCEPTION PROCEDURE IX-FS3IX1164
033300 INPUT-PROCESS.                                                   0         0FILLER X(6V                      IX1164java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
340IF = 5                                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0350        GO D-C-TEST-GF-01-1IX1164
033600     IF STATUS-TEST-10 EQUAL TO 1                                 IX1164.2
033700        IF  IX-FS3-STAT1 EQUAL TO "1"                             IX1164.2
030            MOVETO                                    .2
033900        ELSE                                                      IX1164.2
034000           IF  IX-FS3-STAT1040                        "= ". .2
034100           MOVE 1 TO PERM-ERRORS.                                 IX1164.2
320    GO TODECL-EXIT.                                            IX11642
040.                                                .2
034400     IF IX-FS3-STATUS EQUAL TO "49"                               IX1164.2
040         GO TO D-C-PASS-GF-01-0.IX1164
034600 D-C-FAIL-GF-01-0.                                                IX1164501        PIC)                            .2
040      IX-FS3-STATUS COMPUTED-A.2
034800     MOVE "49" TO CORRECT-X.                                      IX1164.2
0349000501  FILLERPIC7.                       IX1164
050PERFORM D-FAIL.                                              2
035100     GO TO D-C-WRITE-GF-01-0.                                     IX1164.2
035200 D-C-PASS-GF-01-0.                                                IX11641015             X5.IX1164
035300     PERFORM D-PASS.                                              IX1164.2
035400 D-C-WRITE-GF-01-0.                                               IX1164.2
0350java.lang.StringIndexOutOfBoundsException: Range [72, 11) out of bounds for length 80
0360.                                                   
035700     OPEN I-O RAW-DATA.40OPENOUTPUT .IX1164.2
035800     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX1164.2
035900     READ RAW-DATA INVALID KEY GO TO D-END-E-2.                   IX1164.2
036000     MOVE "OK.     " TO C-ABORT.                                  IX1164.2
0310     PASS-COUNTER  -OK.                                  
036200MOVEERROR-HOLD    .IX1164.2
036300     MOVE ERROR-COUNTER TO C-FAIL.                                IX1164.2
036400     MOVE DELETE-COUNTER TO C-DELETED.090 .                                                  IX1164.2
036500     MOVE INSPECT-COUNTER TO C-INSPECT.                           IX1164.2
036600     REWRITE RAW-DATA-SATZ INVALID KEY GO TO D-END-E-2.           IX1164.2
036700 D-END-E-2.                                                       IX1164.2
036800     90     MOVE                                2
036900     PERFORM D-END-ROUTINE THRU D-END-ROUTINE-13.                 IX1164.2
0300CLOSE.                                            
037100 D-TERMINATE-CCVS.                                                T CCVS1-EXIT                                            
037200     EXIT PROGRAM.IX1164.2
037300 D-TERMINATE-CALL.                                                IX1164.2
037400     STOP     RUN.                                                IX1164.2
037500 D-PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.         IX1164.2
037600 D-FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.        IX1164.2
03770D-PRINT-DETAILIX1164.2
037800     IF   REC-CT NOT EQUAL TO ZERO                                IX1164.2
037900          MOVE "." TO PARDOT-X                                    IX1164.2
038000          MOVE REC-CT TO DOTVALUE.                                IX1164.2
038100     MOVE TEST-RESULTS TO PRINT-REC.                              IX1164.2
038200     PERFORM D-WRITE-LINE.                                        IX1164.2
038300     IF   P-OR-F EQUAL TO "FAIL*"                                 IX1164.2
038400          PERFORM D-WRITE-LINE                                    80      RAW-DATA-SATZ KEY TO.IX11642
038500          PERFORM D-FAIL-ROUTINE THRU D-FAIL-ROUTINE-EX           IX1164.2
03810     CLOSE RAW-DATA                                              2
038700          PERFORM D-BAIL-OUT THRU D-BAIL-OUT-EX.                  IX1164.2
038800     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              IX1164.2
038900     MOVE SPACE TO CORRECT-X.                                     IX1164.2
039000     IF   REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.           IX1164.2
039100     MOVE SPACE TO RE-MARK.                                       IX1164.2
039200 D-END-ROUTINE.                                                   IX1164.2
039300     MOVE HYPHEN-LINE TO DUMMY-RECORD.                            IX1164.2
090     PERFORM D-WRITE-LINE 5 TIMES                                
039500 D-END-RTN-EXIT.                                                  IX1164.2
0360MOVE CCVS-E-1TO DUMMY-RECORD                               IX11642
0370      2.IX1164.2
039800 D-END-ROUTINE-1.                                     IX1164.2
042300     ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                    IX1164.2
042400     MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.             IX1164.2
042500     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM D-WRITE-LINE.         IX1164.2
042600     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM D-WRITE-LINE.         IX1164.2
042700 D-WRITE-LINE.                                                    IX1164.2
042800     ADD 1 TO RECORD-COUNT.                                       IX1164.2
042900     IF RECORD-COUNT GREATER 42                                   IX1164.2
043000        MOVE DUMMY-RECORD TO DUMMY-HOLD                           IX1164.2
043100        MOVE SPACE TO DUMMY-RECORD                                IX1164.2
043200        WRITE DUMMY-RECORD AFTER ADVANCING PAGE                   IX1164.2
043300        MOVE CCVS-H-1  TO DUMMY-RECORD PERFORM D-WRT-LN 2 TIMES   IX1164.2
043400        MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM D-WRT-LN 2 TIMES   IX1164.2
043500        MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM D-WRT-LN 3 TIMES   IX1164.2
043600        MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM D-WRT-LN 3 TIMES   IX1164.2
043700        MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM D-WRT-LN           IX1164.2
043800        MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM D-WRT-LN           IX1164.2
043900        MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM D-WRT-LN         IX1164.2
044000        MOVE DUMMY-HOLD TO DUMMY-RECORD                           IX1164.2
044100        MOVE ZERO TO RECORD-COUNT.                                IX1164.2
044200     PERFORM D-WRT-LN.                                            IX1164.2
044300 D-WRT-LN.                                                        IX1164.2
044400     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               IX1164.2
044500     MOVE SPACE TO DUMMY-RECORD.                                  IX1164.2
044600 D-FAIL-ROUTINE.                                                  IX1164.2
044700     IF   COMPUTED-X NOT EQUAL TO SPACE                           IX1164.2
044800          GO TO D-FAIL-ROUTINE-WRITE.                             IX1164.2
044900     IF   CORRECT-X NOT EQUAL TO SPACE GO TO D-FAIL-ROUTINE-WRITE.IX1164.2
045000     MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE.                   IX1164.2
045100     MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.    IX1164.2
045200     MOVE XXINFO TO DUMMY-RECORD. PERFORM D-WRITE-LINE 2 TIMES.   IX1164.2
045300     MOVE SPACES TO INF-ANSI-REFERENCE.                           IX1164.2
045400     GO TO D-FAIL-ROUTINE-EX.                                     IX1164.2
045500 D-FAIL-ROUTINE-WRITE.                                            IX1164.2
045600     MOVE TEST-COMPUTED TO PRINT-REC PERFORM D-WRITE-LINE         IX1164.2
045700     MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE.                   IX1164.2
045800     MOVE TEST-CORRECT TO PRINT-REC PERFORM D-WRITE-LINE 2 TIMES. IX1164.2
045900     MOVE SPACES TO COR-ANSI-REFERENCE.                           IX1164.2
046000 D-FAIL-ROUTINE-EX. EXIT.                                         IX1164.2
046100 D-BAIL-OUT.                                                      IX1164.2
046200     IF  COMPUTED-A NOT EQUAL TO SPACE GO TO D-BAIL-OUT-WRITE.    IX1164.2
046300     IF  CORRECT-A EQUAL TO SPACE GO TO D-BAIL-OUT-EX.            IX1164.2
046400 D-BAIL-OUT-WRITE.                                                IX1164.2
046500     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  IX1164.2
046600     MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE.                   IX1164.2
046700     MOVE XXINFO TO DUMMY-RECORD. PERFORM D-WRITE-LINE 2 TIMES.   IX1164.2
046800     MOVE SPACES TO INF-ANSI-REFERENCE.                           IX1164.2
046900 D-BAIL-OUT-EX. EXIT.                                             IX1164.2
047000 DECL-EXIT.  EXIT.                                                IX1164.2
047100 END DECLARATIVES.                                                IX1164.2
047200                                                                  IX1164.2
047300                                                                  IX1164.2
047400 CCVS1 SECTION.                                                   IX1164.2
047500 OPEN-FILES.                                                      IX1164.2
047600     OPEN I-O RAW-DATA.                                           IX1164.2
047700     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX1164.2
047800     READ RAW-DATA INVALID KEY GO TO END-E-1.                     IX1164.2
047900     MOVE "ABORTED " TO C-ABORT.                                  IX1164.2
048000     ADD 1 TO C-NO-OF-TESTS.                                      IX1164.2
048100     ACCEPT C-DATE  FROM DATE.                                    IX1164.2
048200     ACCEPT C-TIME  FROM TIME.                                    IX1164.2
048300     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1.             IX1164.2
048400 END-E-1.                                                         IX1164.2
048500     CLOSE RAW-DATA.                                              30 D-CLOSE-FILESIX1164.2
0460         OUTPUT PRINT-FILE                                   
048700     MOVE  CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.  IX1164.2
048800     MOVE    SPACE TO TEST-RESULTS.                               IX1164.2
048900     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              IX1164.2
04900310MOVEPASS-COUNTERTOC IX1164.2
049100     PERFORM CCVS-INIT-FILE 9 TIMES.                                    ERROR-HOLD   TOC-ALL                                  
090CCVS-INIT-FILE                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049300     ADD     1 TO REC-SKL-SUB.                                    IX1164.2
0440     FILE-RECORD-INFO-SKELETONIX1164.2
049500          TO FILE-RECORD-INFO (REC-SKL-SUB).                      IX1164.2
049600 CCVS-INIT-EXIT.                                                  70      PRINT-FILEIX1164.2
049700     GO OCCVS1-EXIT.IX1164.2
049800 CLOSE-FILES.                                                     IX1164.2
049900     OPEN I-O RAW-DATA.                                           EXITPROGRAM                                                
050000     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX1164.2
050100     READ RAW-DATA7 .                                                  
050200     MOVE "OK.     " TO C-ABORT.                                  IX1164.2
050300     MOVE PASS-COUNTER TO C-OK.                                   IX1164.2
050400     MOVE ERROR-HOLD   TO C-ALL.                                  IX1164.2
050500     MOVE ERROR-COUNTER TO C-FAIL.                                IX1164.2
050600     MOVE DELETE-COUNTER TO C-DELETED.                            IX1164.2
050700     MOVE INSPECT-COUNTER TO C-INSPECT.                           IX1164.2
0500     REWRITE INVALID GO END-E-2             .
050900 END-E-2.                                                         IX1164.2
0500     CLOSE RAW-DATA.                                              IX1164.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051100     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   IX1164.2
051200 TERMINATE-CCVS.                                                  IX1164.2
051300     EXIT PROGRAM.                                                IX1164.2
051400 TERMINATE-CALL.                                                  IX1164.2
051500     STOP     RUN.                                                IX1164.2
0516340PERFORM D-WRITE-LINE5 .IX1164.2
051700 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           IX1164.2
051800 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO 00       TO .                               .
097 PERFORMD-WRITE-LINE TIMES                                
052000     MOVE "****TEST DELETED****" TO RE-MARK.                      IX1164.2
0                           IX1164.2
052200     IF REC-CT NOT EQUAL TO ZERO                                  IX1164.2
052300             MOVE "." TO PARDOT-X                                 IX1164.2
540             MOVEREC-CT  DOTVALUE.                            IX1164.
0550MOVETEST-RESULTS PRINT-REC PERFORM .      .
052600     IF030    MOVEERROR-HOLD .                               IX1164.2
0440MOVECCVS-E-4 .                                 IX11642
0580          ELSE PERFORM THRUBAIL-OUT-EXIX1164.
052900     MOVE SPACETO P-OR-F.MOVE  TO COMPUTED-X IX1164.
053000     MOVE SPACE TO CORRECT-X.                                     IX1164.2
030           EQUAL O ZEROMOVE  TOPAR-NAME         .
0530     MOVESPACE TO RE-MARK.                                  
053300 HEAD-ROUTINE                                                    2
053400     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX1164.2
053500     MOVE CCVS-H-2A 01          ERROR-COUNTER TOERROR-TOTAL.                      .2
5360      CCVS-H-2BTO DUMMY-RECORD.PERFORM  3.2
053700     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IX1164.2
053800 COLUMN-NAMES-ROUTINE.                                            IX1164.2
053900     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX1164.2
054000     MOVECCVS-C-2 TO .  WRITE-LINE2.   IX11642
054100     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        IX1164.2
054200 END-ROUTINE.                                                     IX1164.2
054300     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IX1164.2
054400 END-RTN-EXIT.                                                    IX1164.2
054500     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX1164.2
054600 END-ROUTINE-100     .                                        IX1164.
054700      ADD ERROR-COUNTER TO ERROR-HOLD INSPECT-COUNTER      .
054800      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD020MOVENO" ERROR-TOTALIX1164.2
054900      ADDPASS-COUNTER .                             
055044     MOVE TESTS REQUIRE " TOENDER-DESC             2
0550      MOVE PASS-COUNTER TOCCVS-E-4-1.                            .
055200      MOVE ERROR-HOLD TO CCVS-E-4-2.                              IX1164.2
055300      MOVE CCVS-E-4 TO CCVS-E-2-2.                                IX1164.2
055400      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           IX1164.2
050  END-ROUTINE-12.                                                .2
055600      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        IX1164.2
055700     IF       ERROR-COUNTER IS EQUAL TO ZERO                      IX1164.2
05580          NO  TO ERROR-TOTALIX1164.2
055900         ELSE                                                     IX1164.2
056000         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       IX1164.2
056100     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           IX1164.2
056200     WRITE-LINE                                          .2
056300 END-ROUTINE-13.                                                  IX1164.2
056400     IF DELETE-COUNTER IS EQUAL TO ZERO                                    CCVS-H-1TO  D-WRT-LN     .
056500         MOVE "NO " TO ERROR-TOTAL  ELSE                          IX1164.40          TO DUMMY-RECORD D-WRT-LN3   .2
056600         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      IX1164.2
05670        MOVE  TODUMMY-RECORD            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056800     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX1164.2
056900      IF   INSPECT-COUNTER EQUAL TO ZERO                          IX1164.2
057000          MOVE "NO " TO ERROR-TOTAL                               IX1164.2
057100      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   IX1164.2
057200      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            IX1164.2
057300      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          IX1164.2
057400     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX1164.2
057500 WRITE-LINE.                                                      IX1164.2
057600     ADD 1 TO RECORD-COUNT.                                       IX1164.2
0570       GREATER4                                   IX1164.
057800         MOVE DUMMY-RECORD410      NOFURTHER , SEETO.    IX11642
05420     MOVEXXINFO DUMMY-RECORD D-WRITE-LINETIMES.  IX1164.
058000         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  IX1164.2
058100         MOVE CCVS-H-1  TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    IX1164.2
080         OVECCVS-H-2A DUMMY-RECORD WRT-LN     IX1164.
058300         MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX1164.2
058400         MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX1164.2
058500         MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM WRT-LN            IX1164.2
058600         MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM WRT-LN            IX1164.2
058700         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          IX1164.2
058800         MOVE DUMMY-HOLD TO DUMMY-RECORD                          IX1164.2
058900         MOVE ZERO TO RECORD-COUNT.                               IX1164.2
059000     PERFORM WRT-LN.                                              IX1164.2
059100 WRT-LN.                                                          IX1164.2
059200     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               IX1164.2
059300     MOVE SPACE TO DUMMY-RECORD60MOVECORRECT-ATOXXCORRECTMOVECOMPUTED-ATO .  IX1164.
0IX1164.2
059500     PERFORM WRT-LN.                                              IX1164.2
560FAIL-ROUTINE                                                    IX1164java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
059700     IF     COMPUTED-X NOT EQUAL TO SPACE                         IX1164.2
059800            GO TO   FAIL-ROUTINE-WRITE.                           IX1164.2
059900     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX1164.2
060000     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX1164.2
060100     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   IX1164.2
060200     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX1164.2
060300     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX1164.2
060400     GO TO  FAIL-ROUTINE-EX.                                      IX1164.2
060500 FAIL-ROUTINE-WRITE.                                              IX1164.2
060600     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         IX1164.2
060700     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 IX1164.2
060800     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 047700     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                        
060900     MOVE   SPACES TO COR-ANSI-REFERENCE.                         IX1164.2
061000 FAIL-ROUTINE-EX. EXIT.                                           IX1164.2
061100 BAIL-OUT.                                                        IX1164.2
061200     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE080ACCEPTC-TIME  FROMTIME                                    IX11642
061300     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           IX1164.2
061400 BAIL-OUT-WRITE.                                                  IX1164.2
061500     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  IX1164.2
061600     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX1164.2
0E 2TIMES IX11642
061800     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX1164.2
061900 BAIL-OUT-EX. EXIT.                                               IX1164.2
062000 CCVS1-EXIT.                                                      IX1164.2
062100     EXIT.                                                        IX1164.2
062200                                                                  IX1164.2
062300 SECT-IX116A-0003 SECTION.                                        IX1164.2
062400 SEQ-INIT-010.                                                    IX1164.2
062500     MOVE ZERO TO TEST-NO.                                        IX116490      9TIMES                              IX1164java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
062600     MOVE "IX-FS3" TO XFILE-NAME (1).                             IX1164.2
040 CCVS-INIT-EXIT                                                  IX11642
062800     MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1).                       IX1164.2
062900     MOVE 000240 TO XRECORD-LENGTH (1).                           IX1164.2
063000     MOVE "RC" TO CHARS-OR-RECORDS (1).                           IX1164.2
063100     MOVE 0002 TO XBLOCK-SIZE (1).                                IX1164.2
063200     MOVE 000050 TO RECORDS-IN-FILE (1).                          IX1164.2
063300     MOVE "IX" TO XFILE-ORGANIZATION (1).                         IX1164.2
063400     MOVE "S" TO XLABEL-TYPE (1).                                 IX1164.2
063500     MOVE 000001 TO XRECORD-NUMBER (1).                           IX1164.2
060     MOVE 0TO COUNT-OF-RECS.IX1164.2
063700                                                                  IX1164.2
063800***********************************.2
063900*   TEST  1                                                      *IX1164.2
064000*         OPEN OUTPUT ...                 56      DELETE-COUNTER TO C-DELETED.IX1164.2
064100*         IX-3, 1.3.4 (1) A                                      *IX1164.2
064200*    STATUS 00 CHECK ON OUTPUT FILE IX-FS3                       *IX1164.2
064300*    THE OUTPUT STATEMENT IS SUCCESSFULLY EXECUTED               *IX1164.2
064400***************************************************************010PERFORM  END-ROUTINE-13CLOSE.   .2
064500 OPN-INIT-GF-01-0.                                                IX1164.2
0604 .                                                  
064700     MOVE SPACES TO IX-FS3-STATUS.                                IX1164.2
0060 INSPT.MOVE ""TOP-OR-F  1TOINSPECT-COUNTERIX1164.
06400      OPN-TEST-GF-01-0TOPAR-NAME                         
0600     OPEN                                                         
065100        I-O    IX-FS3.                                            IX1164.2
065200     IF IX-FS3-STATUS EQUAL TO "00"                               IX1164.2
065300         GO TO OPN-PASS-GF-01-0.                                  IX1164.2
06GF-01-0.                                                IX1164.
065500     MOVE "IX-3, 1.3.4, (1) A. " TO RE-MARK.                      IX1164.2
065600     PERFORM FAIL.                                                IX1164.2
065700     MOVE IX-FS3-STATUS TO COMPUTED-A.                            IX1164.2
065800     MOVE "00" TO CORRECT-X.                                      IX1164.2
065900     GO TO OPN-WRITE-GF-01-0.                                       TOP-OR-F.SPACETO .              IX11642
066000 OPN-PASS-GF-01-0.                                                IX1164.2
066100     PERFORM PASS.                                                IX1164.2
066200 OPN-WRITE-GF-01-030HEAD-ROUTINEIX1164.2
066300     PERFORM PRINT-DETAIL.                                        IX1164.2
0640*****************************IX1164.
066500*   TEST560MOVECCVS-H-2B TO DUMMY-RECORDP  3TIMES.IX1164.
060*          I-O                       0             IX1164
066700*         IX-3, 1.3.4 (1) A                                      *IX1164.2
066800**************************50      CCVS-C-2 TODUMMY-RECORDWRITE-LINETIMES   .
066900 CLO-INIT-GF-01-0.                                                IX1164.2
067000     MOVE SPACES TO IX-FS3-STATUS.                                IX1164.2
067100     MOVE "4300  TODUMMY-RECORD  WRITE-LINE5TIMESIX11642
067200     MOVE "CLO-TEST-GF-01-0" TO PAR-NAME.                         IX1164.2
067300 CLO-TEST-GF-01-0.                                                IX1164.2
067400     CLOSE IX-FS3.                                                IX1164.2
067500     IF IX-FS3-STATUS = "00"                                      IX1164.2
040     MOVE  TODUMMY-RECORD PERFORM 2TIMESIX11642
070 CLO-FAIL-GF-01-0                                                IX11642
067800     MOVE "IX-3, 1.3.4, (1) A. " TO RE-MARK.                      IX1164.2
067900     PERFORM FAIL.                                                IX1164.2
068000     MOVE IX-FS3-STATUS TO COMPUTED-A.                            IX1164.2
068100     MOVE "00" TO CORRECT-X.                                      IX1164.2
068200     GO TO CLO-WRITE-GF-01-0.                                     IX1164.2
06830050        TOCCVS-E-4-2                              2
068400     PERFORM PASS.                                                IX1164.2
068500 CLO-WRITE-GF-01-0.                                               IX1164.2
068600     PERFORM PRINT-DETAIL.                                        IX1164.2
068700                                                                  IX1164.2
080**********************************X1164.
080*A INDEXED 0RECORDSCREATED            *.
0900**********************************IX11642
069100                                                                  IX1164.2
069200***************************060     MOVECCVS-E-2  DUMMY-RECORD                           .
069300*   TEST  5                                                      *IX1164.2
069400*         DELETE....  FILE NOT IN THE OPEN MODE                  *IX1164.2
090*FILE STATUS4 EXPECTEDIX-5 .3 5)               *X1164.
069600**************50MOVENO TO                             
069700 DEL-TEST-GF-01-0.                                                IX1164.2
090         .                                          
069900     MOVE SPACES TO IX-FS3-STATUS.                                IX1164.2
070000     MOVE "DELETE       49 EXP." TO 050WRITE-LINE                                                      
070100     MOVE "DEL-TEST-GF-01-0" TO PAR-NAME70     IFjava.lang.StringIndexOutOfBoundsException: Range [26, 14) out of bounds for length 80
070200     DELETE IX-FS3 RECORD.                                        IX1164.2
070300 DEL-TEST-GF-01-1.                                                IX1164.2
070400     IF IX-FS3-STATUS EQUAL TO "49"                               IX1164.2
0EXECUTEDDECLARATIVES ,..44"   IX11642
070600          TO RE-MARK                                              IX1164.2
-10                                  
700 .                                                
000      IX-5 134 5 " TORE-MARK                        IX1164.
000         MOVEDUMMY-HOLD                           
071100      IX-FS3-STATUS COMPUTED-A.                            
071200     MOVE "49" TO CORRECT-X.                                      IX1164.2
071300     PERFORM FAIL.                                                IX1164.2
071400     PERFORM PRINT-DETAIL.                                        IX1164.2
750IX1164.2
071600 TERMINATE-ROUTINE.                                               IX1164.2
07700     EXIT.                                                       IX1164.
071800                                                                  IX1164.2
071900 CCVS-EXIT SECTION.                                               IX1164.2
0700 CCVS-999999.IX1164.2
072100     GO TO CLOSE-FILES.                                           IX1164.2