Quelle  ix116a.cob   Sprache: Cobol

000100IDENTIFICATION.                                         .2
000200 PROGRAM-ID.                                                      IX1164300  REC-CT                        PIC9        ZEROIX1164
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
0030ENVIRONMENT DIVISION.                                           .2
003400 CONFIGURATION SECTION.                                           IX1164.2
003500 SOURCE-COMPUTER.                                                 IX1164
                                            
0050     0  FILLER                    PIC39    VALUE SPACES.     IX11642
003800     Card0131.                                                    IX1164 1CCVS-H-2A.                                                  .2
003900 INPUT-OUTPUT SECTION.                                            IX1164.2
000 FILE-CONTROL.                                                   IX1164
004100     SELECT RAW-DATA   ASSIGN TO                                  IX1164.2
020     C0098IX1164.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030            ORGANIZATION  INDEXED.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     "C0085060 2 FILLER PICX) VALUE .2
004900*                                                                 IX1164.2
005000     SELECT IX-FS3 ASSIGN                                         IX1164.2
0010     C0036IX1164.2
005200     ORGANIZATION IS INDEXED                                      IX1164.2
.2
005400     RECORD KEY IS IX-FS3-KEY                                     IX1164.2
0550FILE ISIX-FS3-STATUSIX1164
005600                                                                  IX1164.2
005700 DATA70             LEVEL" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
005800                                                                  IX1164070     "N-SITE VALIDATION,NATIONAL OF TECH. .IX1164.2
00500FILE.                                                    .
006000                                                                  IX1164.2
00610   RAW-DATAIX1164
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
060     05 C-TIME              PIC)                            .2
006700     05  C-NO-OF-TESTS       PIC 99.                              IX11640" 84, Apr 19 .IX1164.2
006800     05  C-OK                PIC 999.                             IX1164.2
0090     5  C-ALL92
007000     05  C-FAIL              PIC 999.                             IX1164.2
007100     05  C-DELETED           PIC 999.                             IX1164.2
007200     05  C-INSPECT           PIC220 0  CCVS-E-1.IX1164.2
007300     05  C-NOTE              PIC X(13).                           IX1164.2
02300                         X()VALUE .      IX1164
007500     05  C-ABORT00   PIC(4 VALUE IS " TEST- .I.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060                                                                  IX1164
007700 FD  PRINT-FILE.                                                  IX1164.2
007800                                                                  IX1164.2
0900  PRINT-REC               PIC X(20.IX1164
008000                                                                  IX1164.2
008100 01  DUMMY-RECORD            PIC X(120).                          IX1164.2
008200                                                                  IX1164.2
080   IX-FS3IX1164.2
008400        DATA RECORDS IX-FS3R1-F-G-240                             IX1164.2
008500        LABEL RECORD STANDARD                                     IX1164.2
008600RECORD40                                                
008700        BLOCK CONTAINS090     0 CCVS-E-2-2.                                              IX1164.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008800                                                                  IX1164.2
090 1IX-FS3R1-F-G-240IX1164.
009000     05  IX-FS3-REC-120      PIC X(120).                          IX1164.2
0090     5IX-FS3-REC-120-240IX1164
009200         10  FILLER          PIC X(8).                            IX1164.2
090         1  IX-FS3-KEY      PIC (9)                           .2
009400         10  FILLER          090 1CCVS-E-3IX1164
009500         10  IX-FS3-ALTER-KEY  PIC X(29).                         IX116460    02                        X(2  VALUE.2
009600         10  FILLER            PIC X(45).                         IX1164.2
0070                                                                  
080IX1164.2
009900 WORKING-STORAGE SECTION.                                         IX1164.2
100                                                                  .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
0100     0FILLERPIC1)  "END-OF-KEY..
010500                                                                  IX1164.2
010600 01  GRP-010218" .2
0107000 1  CCVS-E-4.                                                   IX1164
010800     05  GRP-0102-KEY        PIC350    0 CCVS-E-4-1                    XXX SPACEIX1164
1900 FILLER X(0  "END-AL-KEY"        .2
100                                                                 
011100 01  WRK-CS-09V00            PIC S9(9) COMP VALUE ZERO.           IX1164.2
011200                                                                  IX1164.2
011300 01  EOF-FLAG                PIC 9 VALUE 090"TESTS WERE EXECUTED SUCCESSFULLY".IX1164
011400                                                                  0 1  XXINFO.                                                     IX1164
011500 01  RECORDS-IN-ERROR10            "* **. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
160                                                                  2
011700 01  ERROR-FLAG              PIC 9 VALUE       0 XXCOMPUTED                  X(2.IX1164
060       0 FILLER                      X()VALUE.IX1164
011900 01  PERM-ERRORS10       04XXCORRECT X2)                   IX1164
012000                                                                  IX1164.2
012100 01  STATUS-TEST-00          PIC 9 VALUE ZERO 1HYPHEN-LINEIX1164
012200                                                                  IX116400    2 FILLER  PIC IS X VALUE  SPACEIX1164
013001  STATUS-TEST-109VALUE.                    IX1164
012400 01  STATUS-TEST-READ        PIC 9 VALUE ZERO.                    IX1164    "********************"                 .
020                                                                  IX1164
012600 01  IX-FS3-STATUS.                                               IX1164.2
012700     05  IX-FS3-STAT10*****************.                           
01280020 1  TEST-NOPIC9                      IX1164.2
012900                                                                  IX1164.2
013000 01  COUNT-OF-RECS           PIC 9(5).                            IX1164.2
310                                                                  .2
013200 01  COUNT-OF-RECORDS REDEFINES COUNT-OF-RECS  PIC 9(5).          IX1164.2
013300                                                                  IX1164.2
130 0  .                                 IX1164
013500     0  FILE-RECORD-INFO-SKELETON.                              .2
013600         10  FILLER          PIC X(48) VALUE                      IX1164.2
013700              "FILE= ,RECORD= /0,RECNO=000000,UPDT=00". IX116420    USEAFTEREXCEPTION  ON.                     .2
013801            PIC(6 ALUE.2
013900                ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000". IX1164.2
014000         10  FILLER          PIC X(26) VALUE                      IX1164.2
014030      TEST-NOIX11642
014200         10  FILLER          PIC X(37) VALUE                      IX1164.2
014300                         ",RECKEY= ". IX116430         TO.                                   .2
014400         10  FILLER          PIC X(38) VALUE                      IX1164.2
014500                        ",ALTKEY1= ". IX1164.2
014600         10  FILLER          PIC X(38) VALUE                      030             1  EOF-FLAGIX1164
170                        ,ALTKEY2IX1164
014800         10  FILLER          PIC X(7) VALUE SPACE.                IX1164.2
014900     05  FILE-RECORD-INFO             OCCURS 10.                  IX1164.2
015420    GO TO DECL-EXIT.                                            IX1164.
015100             15  FILLER      PIC X(5).                            IX1164.040 D-C-TEST-GF-01-1IX1164java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015200             15  XFILE-NAME  PIC X(6050         GO TO D-C-PASS-GF-01-0                                  .2
0150             5FILLER X(8.IX1164
015400             15  XRECORD-NAME  PIC X(6).                          IX1164.2
015500             15  FILLER        PIC370MOVE TO.                            IX1164
015600             15  REELUNIT-NUMBER  PIC 9(1).                       IX1164.2
050             5 FILLER            X().                       .2
015800             050     PERFORM D-FAIL.IX1164.
015900             15  FILLER           PIC X(6).                       IX1164.2
016000             15  UPDATE-NUMBER    PIC 9(2).                       IX1164.2
0160              FILLERPIC()                       .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).                       IX116450     PERFORM D-PRINT-DETAIL.                                      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 ZERO.       IX1164.2
023900 01  REC-CT                        PIC 99       VALUE ZERO.       IX1164.2
024000 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       IX1164.2
024100 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       IX1164.2
024200 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       IX1164.2
024300 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       IX1164.2
024400 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       IX1164.2
024500 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       IX1164.2
024600 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      IX1164.2
024700 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       IX1164.2
024800 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     IX1164.2
024900 01  CCVS-H-1.                                                    IX1164.2
025000     02  FILLER                    PIC X(39)    VALUE SPACES.     IX1164.2
025100     02  FILLER                    PIC X(42)    VALUE             IX1164.2
025200     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IX1164.2
025300     02  FILLER                    PIC X(39)    VALUE SPACES.     IX1164.2
025400 01  CCVS-H-2A.                                                   IX1164.2
025500   02  FILLER                        PIC X(40)  VALUE SPACE.      IX1164.2
025600   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  IX1164.2
025700   02  FILLER                        PIC XXXX   VALUE             IX1164.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 ".                                    IX1164.2
026600   02  TEST-ID                       PIC X(9).                    IX1164.2
026700   02  FILLER                        PIC X(4)   VALUE             IX1164.2
026800            " IN ".                                               IX1164.2
026900   02  FILLER                        PIC X(12)  VALUE             IX1164.2
027000     " HIGH ".                                              IX1164.2
027100   02  FILLER                        PIC X(22)  VALUE             IX1164.2
027200            " LEVEL VALIDATION FOR ".                             IX1164.2
027300   02  FILLER                        PIC X(58)  VALUE             IX1164.2
027400     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX1164.2
027500 01  CCVS-H-3.                                                    IX1164.2
027600     02  FILLER                      PIC X(34)  VALUE             IX1164.2
027700            " FOR OFFICIAL USE ONLY ".                         IX1164.2
027800     02  FILLER                      PIC X(58)  VALUE             IX1164.2
027900     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IX1164.2
028000     02  FILLER                      PIC X(28)  VALUE             IX1164.2
028100            "  COPYRIGHT   1985 ".                                IX1164.2
028200 01  CCVS-E-1.                                                    IX1164.2
028300     02 FILLER                       PIC X(52)  VALUE SPACE.      IX1164.2
028400     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  ".              IX1164.2
028500     02 ID-AGAIN                     PIC X(9).                    IX1164.2
028600     02 FILLER                       PIC X(45)  VALUE SPACES.     IX1164.2
028700 01  CCVS-E-2.                                                    IX1164.2
028800     02  FILLER                      PIC X(31)  VALUE SPACE.      IX1164.2
028900     02  FILLER                      PIC X(21)  VALUE SPACE.      IX1164.2
029000     02 CCVS-E-2-2.                                               IX1164.2
029100         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      IX1164.2
029200         03 FILLER                   PIC X      VALUE SPACE.      IX1164.2
029300         03 ENDER-DESC               PIC X(44)  VALUE             IX1164.2
029400            "ERRORS ENCOUNTERED".                                 IX1164.2
029500 01  CCVS-E-3.                                                    IX1164.2
029600     02  FILLER                      PIC X(22)  VALUE             IX1164.2
029700            " FOR OFFICIAL USE ONLY".                             IX1164.2
029800     02  FILLER                      PIC X(12)  VALUE SPACE.      IX1164.2
029900     02  FILLER                      PIC X(58)  VALUE             IX1164.2
030000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX1164.2
030100     02  FILLER                      PIC X(13)  VALUE SPACE.      IX1164.2
030200     02 FILLER                       PIC X(15)  VALUE             IX1164.2
030300             " COPYRIGHT 1985".                                   IX1164.2
030400 01  CCVS-E-4.                                                    IX1164.2
030500     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      IX1164.2
030600     02 FILLER                       PIC X(4)   VALUE " OF ".     IX1164.2
030700     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      IX1164.2
030800     02 FILLER                       PIC X(40)  VALUE             IX1164.2
030900      "  TESTS WERE EXECUTED SUCCESSFULLY".                       IX1164.2
031000 01  XXINFO.                                                      IX1164.2
031100     02 FILLER                       PIC X(19)  VALUE             IX1164.2
031200            "*** INFORMATION ***".                                IX1164.2
031300     02 INFO-TEXT.                                                IX1164.2
031400       04 FILLER                     PIC X(8)   VALUE SPACE.      IX1164.2
031500       04 XXCOMPUTED                 PIC X(20).                   IX1164.2
031600       04 FILLER                     PIC X(5)   VALUE SPACE.      IX1164.2
031700       04 XXCORRECT                  PIC X(20).                   IX1164.2
031800     02 INF-ANSI-REFERENCE           PIC X(48).                   IX1164.2
031900 01  HYPHEN-LINE.                                                 IX1164.2
032000     02 FILLER  PIC IS X VALUE IS SPACE.                          IX1164.2
032100     02 FILLER  PIC IS X(65)    VALUE IS "************************IX1164.2
032200-    "*****************************************".                 IX1164.2
032300     02 FILLER  PIC IS X(54)    VALUE IS "************************IX1164.2
032400-    "******************************".                            IX1164.2
032500 01  TEST-NO                         PIC 99.                      IX1164.2
032600 01  CCVS-PGM-ID                     PIC X(9)   VALUE             IX1164.2
032700     "IX116A".                                                    IX1164.2
032800 PROCEDURE DIVISION.                                              IX1164.2
032900 DECLARATIVES.                                                    IX1164.2
033000                                                                  IX1164.2
033100 SECT-IX105-0002 SECTION.                                         IX1164.2
033200     USE AFTER EXCEPTION PROCEDURE ON IX-FS3.                     IX1164.2
033300 INPUT-PROCESS.                                                   IX1164.2
033400     IF TEST-NO = 5                                               IX1164.2
033500        GO TO D-C-TEST-GF-01-1.                                   IX1164.2
033600     IF STATUS-TEST-10 EQUAL TO 1                                 IX1164.2
033700        IF  IX-FS3-STAT1 EQUAL TO "1"                             IX1164.2
033800            MOVE 1 TO EOF-FLAG                                    IX1164.2
033900        ELSE                                                      IX1164.2
034000           IF  IX-FS3-STAT1 GREATER THAN "1"                      IX1164.2
034100           MOVE 1 TO PERM-ERRORS.                                 IX1164.2
034200     GO TO DECL-EXIT.                                             IX1164.2
034300 D-C-TEST-GF-01-1.                                                IX1164.2
034400     IF IX-FS3-STATUS EQUAL TO "49"                               IX1164.2
034500         GO TO D-C-PASS-GF-01-0.                                  IX1164.2
034600 D-C-FAIL-GF-01-0.                                                IX1164.2
034700     MOVE IX-FS3-STATUS TO COMPUTED-A.                            IX1164.2
034800     MOVE "49" TO CORRECT-X.                                      IX1164.2
034900     MOVE "IX-5, 1.3.4, (5) H" TO RE-MARK.                        IX1164.2
035000     PERFORM D-FAIL.                                              IX1164.2
035100     GO TO D-C-WRITE-GF-01-0.                                     IX1164.2
035200 D-C-PASS-GF-01-0.                                                IX1164.2
035300     PERFORM D-PASS.                                              IX1164.2
035400 D-C-WRITE-GF-01-0.                                               IX1164.2
035500     PERFORM D-PRINT-DETAIL.                                      IX1164.2
035600 D-CLOSE-FILES.                                                   IX1164.2
035700     OPEN I-O RAW-DATA.                                           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
036100     MOVE PASS-COUNTER TO C-OK.                                   IX1164.2
036200     MOVE ERROR-HOLD   TO C-ALL.                                  IX1164.2
036300     MOVE ERROR-COUNTER TO C-FAIL.                                IX1164.2
036400     MOVE DELETE-COUNTER TO C-DELETED.                            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     CLOSE RAW-DATA.                                              IX1164.2
036900     PERFORM D-END-ROUTINE THRU D-END-ROUTINE-13.                 IX1164.2
037000     CLOSE PRINT-FILE.                                            IX1164.2
037100 D-TERMINATE-CCVS.                                                IX1164.2
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
037700 D-PRINT-DETAIL.                                                  IX1164.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                                    IX1164.2
038500          PERFORM D-FAIL-ROUTINE THRU D-FAIL-ROUTINE-EX           IX1164.2
038600     ELSE                                                         IX1164.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
039400     PERFORM D-WRITE-LINE 5 TIMES.                                IX1164.2
039500 D-END-RTN-EXIT.                                                  IX1164.2
039600     MOVE CCVS-E-1 TO DUMMY-RECORD.                               IX1164.2
039700     PERFORM D-WRITE-LINE 2 TIMES.                                IX1164.2
039800 D-END-ROUTINE-1.                                                 IX1164.2
039900     ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO       IX1164.2
040000     ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.                IX1164.2
040100     ADD PASS-COUNTER TO ERROR-HOLD.                              IX1164.2
040200     MOVE PASS-COUNTER TO CCVS-E-4-1.                             IX1164.2
040300     MOVE ERROR-HOLD TO CCVS-E-4-2.                               IX1164.2
040400     MOVE CCVS-E-4 TO CCVS-E-2-2.                                 IX1164.2
040500     MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM D-WRITE-LINE.          IX1164.2
040600  D-END-ROUTINE-12.                                               IX1164.2
040700     MOVE "TEST(S) FAILED" TO ENDER-DESC.                         IX1164.2
040800     IF  ERROR-COUNTER IS EQUAL TO ZERO                           IX1164.2
040900         MOVE "NO " TO ERROR-TOTAL                                IX1164.2
041000     ELSE                                                         IX1164.2
041100         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       IX1164.2
041200     MOVE    CCVS-E-2 TO DUMMY-RECORD.                            IX1164.2
041300     PERFORM D-WRITE-LINE.                                        IX1164.2
041400 D-END-ROUTINE-13.                                                IX1164.2
041500     IF  DELETE-COUNTER IS EQUAL TO ZERO                          IX1164.2
041600         MOVE "NO " TO ERROR-TOTAL  ELSE                          IX1164.2
041700         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      IX1164.2
041800     MOVE "TEST(S) DELETED     " TO ENDER-DESC.                   IX1164.2
041900     MOVE CCVS-E-2 TO DUMMY-RECORD.                               IX1164.2
042000     PERFORM D-WRITE-LINE.                                        IX1164.2
042100     IF   INSPECT-COUNTER EQUAL TO ZERO                           IX1164.2
042200          MOVE "NO " TO ERROR-TOTAL                               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