000100                                         
000200 PROGRAM-ID                                                      ST1274
000300     .ST1274.2
000400****************************************************************  ST1274.2
000500*                                                              *  ST1274.2
000600*    VALIDATION FOR:-                                          *  ST1274.2
000700*                                                              *  ST1274.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".ST1274.2
000900*                                                              *  ST1274.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".ST1274.2
001100*                                                              *  ST1274.2
001200****************************************************************  ST1274.2
001300*                                                              *  ST1274.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  ST1274.2
001500*                                                              *  ST1274.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  ST1274.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  ST1274.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  ST1274.2
001900*        X-27  - SORT-FILE-NAME-1                              *  ST1274.2
002000*                                                              *  ST1274.2
002100****************************************************************  ST1274.2
002200*    ST127A IS A COMPLETELY SELF-CONTAINED PROGRAM.  THE INPUT    ST1274.2
002300*    PROCEDURE BUILDS THE 17-RECORD FILE SHOWN BELOW. THE         ST1274.2
002400*    OUTPUT PROCEDURE CHECKS THE SORTED FILE AND GENERATES THE    ST1274.2
002500*    REPORT.                                                      ST1274.2
002600*    SORT    SORT   SORT    SORT   SORT   SORT   SORT  SORT  LAST ST1274.2
002700*    KEY-1   KEY-2  KEY-3   KEY-4  KEY-5  KEY-6  KEY-7 KEY-8 CHAR ST1274.2
002800*    S9(6)   A(5)   SV9(16) X(10)  A(20)  X(10)  999   S99   PIC XST1274.2
002900*    USAGE   JUST           JUST                       USAGE      ST1274.2
003000*    COMP    RIGHT          RIGHT                      COMP       ST1274.2
003100*                                                                 ST1274.2
003200*    -054321  BBB  -.1234  BBBBBB A     AAAAAAAA  501  +99     1  ST1274.2
003300*    +123456  BBB  -.1234  BBBBBB A     AAAAAAAA  501  +99        ST1274.2
003400*    -054321  BBB  -.1234  BBBBBB A     AAAAAAAA  501  +99     2  ST1274.2
003500*    -054321    X  -.1234  BBBBBB A     AAAAAAAA  501  +99        ST1274.2
003600*    -054321  BBB  -.1234  BBBBBB A     AAAAAAAA  501  +99     3  ST1274.2
003700*    -054321  BBB  +.6     BBBBBB A     AAAAAAAA  501  +99        ST1274.2
003800*    -054321  BBB  -.1234  BBBBBB A     AAAAAAAA  501  +99     4  ST1274.2
003900*    -054321  BBB  -.1234       X A     AAAAAAAA  501  +99        ST1274.2
004000*    -054321  BBB  -.1234  BBBBBB A     AAAAAAAA  501  +99     5  ST1274.2
004100*    -054321  BBB  -.1234  BBBBBB Z     AAAAAAAA  501  +99        ST1274.2
004200*    -054321  BBB  -.1234  BBBBBB A     AAAAAAAA  501  +99     6  ST1274.2
004300*    -054321  BBB  -.1234  BBBBBB A     Z         501  +99        ST1274.2
004400*    -054321  BBB  -.1234  BBBBBB A     AAAAAAAA  501  +99     7  ST1274.2
004500*    -054321  BBB  -.1234  BBBBBB A     AAAAAAAA  418  +99        ST1274.2
004600*    -054321  BBB  -.1234  BBBBBB A     AAAAAAAA  501  +99     8  ST1274.2
004700*    -054321  BBB  -.1234  BBBBBB A     AAAAAAAA  501  -14        ST1274.2
004800*    -054321  BBB  -.1234  BBBBBB A     AAAAAAAA  501  +99     9  ST1274.2
004900*                                                                 ST1274.2
005000*    THIS PROGRAM TESTS THE USE OF THE "DUPLICATES" PHRASE OF     ST1274.2
005100*    THE  "SORT" STATEMENT.  THE ORDER OF RECORDS HAVING          ST1274.2
005200*    DUPLICATE KEYS AFTER THE EXECUTION OF A "SORT" STATEMENT     ST1274.2
005300*    MUST BE THE SAME AS THE ORDER OF THOSE RECORDS ON INPUT      ST1274.2
005400*    TO THE "SORT" STATEMENT.                                     ST1274.2
005500                                                                  ST1274.2
005600 ENVIRONMENT DIVISION.                                            ST1274.2
005700 CONFIGURATION SECTION.                                           ST1274.2
005800 SOURCE-COMPUTER.                                                 ST1274.2
005900     Card0130.                                                    ST1274.2
                                                 2
006100     .                                                    
006200 INPUT-OUTPUT SECTION005900Card0130.                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006300 FILE-CONTROL.                                                    ST1274.2
     PRINT-FILEASSIGNTOST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006500     "C0085" .                                                    ST1274  DIVISION.                                                  
006600SELECT    ASSIGN                                2
006700     "C0039" .                                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006800 DATA DIVISION.                                                   007400     DATA RECORD IS SORTFILE-REC.                                 ST127401SORTFILE-REC                                                ST1274
006900 007900            999                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007000 FD  PRINT-FILE                                                  ST1274.2
007100 01  PRINT-REC PICTURE X(120).                                    ST1274.2
007200 01  DUMMY-RECORD PICTURE X(120).                                 ST1274.2
                        ST1274.
007400     DATA RECORD IS SORTFILE-REC.                                 ST1274.2
007500 01  SORTFILE-REC.                                                
 05 SORT-1.                                                    2
007700     10 SORTKEY-8       PICTURE S99 COMPUTATIONAL.                ST1274.2
007800     10 SORTKEY-1       PICTURE S9(6) COMPUTATIONAL.              ST1274              S99 .                .
007900     10 SORTKEY-7       PICTURE 999.                              ST1274.2
008000     10 SORTKEY-3       PICTURE SV9(16).                          ST1274.200940002WS-3PICTURE SV9()                          .2
008100     10 FILLER          PICTURE XX.                               ST1274.2
008200     10 SORTKEY-4       PICTURE X009800      ()JUSTIFIED.            ST12742
008300.
008400     10 SORTKEY-2       PICTURE A(05) JUSTIFIED RIGHT.            ST1274.2
008500     10 SORTKEY-5       PICTURE A(20).                            ST1274.2
008600     10 FILLER          PICTURE XXX.                              ST1274.2
008700  05    SORT-IDENTIFIER01020077                .                     .
008800 WORKING-STORAGE SECTION.                                         ST1274.2
00890077WS-IDENTIFIER      PIC9.                                   ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01050002FEATURE                   20 VALUE          ST1274.
 02WS-8            PICTURE  COMPUTATIONAL.ST1274.2
009200     02 01070002 P-OR-FPIC()   VALUE .ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009300     02 WS-7            PICTURE 999.                              ST1274.2
009400     02 WS-3            PICTURE SV9(16).                          ST1274.011000       03FILLER                 PICX19 VALUESPACE ST1274.
009500     02 FILLER          PICTURE XX.                               ST12742
009600     02 WS-4            PICTURE X011400      RE-MARK                  PICX61.ST1274
009700     02 WS-6            PICTURE X(10).                            ST1274.2
009800     02 WS-2            PICTURE A(05) JUSTIFIED RIGHT.            ST1274.2
009900     02 WS-5            PICTURE A(20).                            ST1274.2
          PICTURE XXX                              ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010100 77  UTIL-CTR                                            -(.99)                  .
 77  SPAC-EPICTURE X   .                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010300 01  TEST-RESULTS.                                                ST1274.2
      FILLER                  PICXVALUE .         ST1274.
010500     02 FEATURE                  PIC X01250003COMPUTED-14V4REDEFINES-(4.(4)     ST12742
010600     02 FILLER                   PICX     VALUE .ST1274.2
010700     02 P-OR-F                   PIC X(5)   VALUE SPACE.          012700         04 COMPUTED-18V0                    PIC -9(18).          ST1274
010800     02 FILLER                   PIC X      VALUE SPACE.          ST1274.2
010900     02  PAR-NAME.                                                ST1274013100     FILLER X30                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011000       03 FILLER                 PIC 013400                   X()VALUE SPACE.         ST1274.2
011100       03  PARDOT-X              PIC X      VALUE SPACE.          ST1274.2
011200       03 DOTVALUE               PIC 99     03CORRECT-4V14CORRECT-APIC-4.14.ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011300     02 FILLER                   PIC X(801390003CR-18V0REDEFINES.                        .2
     02                    (1)                       2
011500 01  TEST-COMPUTED.                                               ST1274.2
011600     02 FILLER                   PIC X(30)  VALUE SPACE.          ST1274.2
011700     02 FILLER                   PIC X(17)  VALUE                 ST1274.2
011800            "       COMPUTED=".                                   ST1274.2
011900     02 COMPUTED-X.                                               ST1274.2
012000     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          ST1274.2
012100     03 COMPUTED-N               014800     02 FILLER                     PIC X(20.ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012200                                 PIC -()99.ST1274..2
012300     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         ST1274.2
012400      REDEFINESCOMPUTED-A   PIC -(914.ST1274.
     03  REDEFINES COMPUTED-A    914)9()     .
012600     03CM-18V0 REDEFINES COMPUTED-A                       .
012700         04 COMPUTED-18V001540002FILLER                      ()VALUE SPACE.     ST1274.
012800         04 FILLER                           PIC X.               ST1274.2
012900     03 FILLER PIC X(50) VALUE SPACE.                             ST1274.2
013000 01  TEST-CORRECT.                                                ST1274.2
013100     02 FILLER PIC X(30) VALUE SPACE.                             ST1274.2
013200     02 FILLER PIC X(17)016000 01PASS-COUNTERPIC 999VALUE .ST1274.
              ST1274.2
013400     03 CORRECT-A                  PIC X(20) VALUE SPACE.         ST1274.2
013500     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      ST1274.01630001DUMMY-HOLDPIC(120)  VALUESPACE.     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01660001CCVS-H-1.                                                   ST1274.
     PIC -9()9(4)     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013800     03 CORRECT-14V401680002FILLER                    PIC X42 VALUE             .
013900     03      CR-18V0                X    SPACES     .
014000         04 CORRECT-18V0                     PIC -9(18).          ST1274.2
014100         04 FILLER                           PIC X.               ST1274.2
014200     03 FILLER PIC X(2) VALUE SPACE.                              ST1274.2
014300     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     ST1274.2
014400 01  CCVS-C-1.                                                    ST1274.2
014500     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE              PAST1274.2
014600-017800     FILLER                        PIC X(1)  VALUE SPACE.     
-"REMARKS"                                            2
014800     02 FILLER                     PIC X(20)    01900002 FILLER(8 VALUEST12742
014900 01  CCVS-C-2.                                                    01CCVS-H-3                                                    
015000     02 FILLER                     PIC X        VALUE SPACE.      01950002FILLER                       X)VALUEST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015100     02 FILLER                     PIC X(6)     VALUE "019600     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                   .T1274.2
015200     02 FILLER019800                 1985 .ST12742
01530002FILLER                      X(4)     VALUE"FAIL".    2
015400     02 FILLER                     PIC X(94)    VALUE SPACE.      ST1274.2
  REC-SKL-SUBPIC9()ZERO       ST1274.
015600 01  REC-CT                        PIC 99       VALUE ZERO.       ST1274.2
015700 01DELETE-COUNTERPIC999      VALUE ZERO.ST12742
015800 01  ERROR-COUNTER                 020200     02 ID-AGAIN                      X)2
015900 0102040001CCVS-E-2                                                    .
016000 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       ST1274.2
016100 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       ST1274.2
016200 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       ST1274.2
016300 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      ST1274.2
016400 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       ST1274.2
016500 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     ST1274.2
016600 01  CCVS-H-1.                                                    ST1274.2
016700     02  FILLER                    PIC X021300                             PICX22)              .
01680002150002FILLER                      PICX)VALUE.ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016900     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 ST1274.2
017000     02                      X(9)VALUE .     ST12742
 01  CCVS-H-2A                                                   
017200   02 FILLER                         X40 VALUE .      ST1274.2
017300   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  ST1274.2
017400   02  FILLER                        PIC XXXX   VALUE             ST1274.2
017500     "4.2 ".                                                      ST1274.2
017600   02  FILLER                        PIC X(28)  VALUE             022200     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      ST1274
017700            " COPY - NOT FOR DISTRIBUTION".                       ST1274.2
017800   02  FILLER                        PIC X(41)  VALUE SPACE.      ST1274.2
17900                                                                  
018000 01  CCVS-H-2B.                                                   ST1274.2
018100   02  FILLER                        PIC X(15)  VALUE             ST1274.2
018200            "TEST RESULT OF ".                                    ST1274.2
018300   02  TEST-ID                       PIC X(9).                    ST1274.2
018400   02  FILLER                        PIC X(4)   VALUE             ST1274.2
018500            " IN ".                                               ST1274.2
018600   02  FILLER                        PIC X(023500                 (48.ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
                                    ST1274
018800   02  FILLER                        PIC X(22)  VALUE02380002 FILLER  PICIS()VALUE "*************ST1274.
018900            " LEVEL VALIDATION FOR ".                             ST1274.02400002FILLER  PIC IS (54)   VALUEIS"**********2
019000   02  FILLER                        PIC X(58)  VALUE             ST1274.2
019100     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".ST12742
H-3.ST1274.2
019300     02  FILLER                      PIC X(34)  VALUE             ST1274.2
019400            " FOR OFFICIAL USE ONLY    ".                         ST1274.2
019500     02  FILLER                      PIC X(58)  VALUE             ST1274.2
019600     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".ST1274.024800SORTSORTFILE-1HONST1274.2
019700     02  FILLER                      PIC X(28)  VALUE             ST1274.2
019800            "  COPYRIGHT   1985 ".                                .2
019900 01  CCVS-E-1.                                                    ST1274.2
020000     02 FILLER                       025500              SORTKEY-7ST1274.2
020100     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  ".              2
 02 ID-AGAIN                     PICX()                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
             PIC X()VALUE.ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020400 01  CCVS-E-2.                                                    026000STOPRUN.                                                ST12742
020500     02  FILLER                      PIC X(31)  VALUE SPACE.      ST1274.2
020600     02  FILLER                      PIC X(21)  VALUE SPACE.      ST1274.2
020700     02 CCVS-E-2-2.                                               ST1274.2
02080003 ERROR-TOTALPICXXXVALUE .      ST1274.
020900         03 FILLER                   PIC X      VALUE SPACE.      ST1274.2
021000         03 ENDER-DESC               PIC X(44)  VALUE             ST1274.2
021100            "ERRORS ENCOUNTERED".                                 ST1274.2
021200 01  CCVS-E-3.                                                    ST1274.2
021300     02  FILLER                      PIC X(22)  VALUE             ST1274.2
021400            " FOR OFFICIAL USE ONLY".                             ST1274.2
021500     02  FILLER                      PIC X(12)  VALUE SPACE027100MOVEWS-SORTFILE-RECTO                 .2
021600       FILLER                       X() VALUE             .
021700     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".ST1274.2
021800     02  FILLER                       ()  VALUE SPACE.ST1274.2
021900     02 FILLER                       PIC X(15)  VALUE             ST1274.2
022000             " COPYRIGHT 1985".                                   ST1274.2
022100 01  CCVS-E-4.                                                    ST1274.2
022200     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      ST1274.2
022300     02 FILLER                       PIC X(4)   VALUE " OF027900ADD       WS-IDENTIFIER                                 .
                   PICXXX    VALUE SPACE.ST1274.2
022500                       PICX(0  VALUE             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022600      "  TESTS 028400     PERFORM  RELEA.                                     .
022700 01  XXINFO.                                                      ST1274.2
022800     02 FILLER                       PIC X(19)  VALUE             ST1274.2
022900            "*** INFORMATION ***"028800    .ST1274.2
023000     02 INFO-TEXT.                                                028900PERFORMBUILD-RECORD                                       
023100       04 FILLER                     PIC X(8) MOVEWS-SORTFILE-REC      SORTFILE-REC                .
023200       04 XXCOMPUTED                 PIC X(20).                   ST1274.2
023300       04 FILLER                     029500     PERFORM  RELEASE-RECORD.          
.2
023500     02 INF-ANSI-REFERENCE           PIC X(48).                   ST1274.2
 01  HYPHEN-LINE.                                                 ST1274.2
023700     02 FILLER  PIC IS X VALUE IS SPACE.                          ST1274.2
023800     02 FILLER  PIC IS X(65)    VALUE IS FILE-REC                .
023900-    "030000           WS-IDENTIFIER.ST1274.2
024000     02 FILLER  PIC IS X(54)    VALUE IS "*************030100    WS-IDENTIFIER       TO SORT-IDENTIFIER.             ST1274.2
024100-    "******************************".                            ST1274.2
024200 01  CCVS-PGM-ID                     PIC X(9)   VALUE             ST1274.2
024300     "ST127A".                                                    ST1274.2
024400 PROCEDURE DIVISION.                                              ST1274.2
024500 SORT-PARA SECTION.                                               ST1274.2
024600 SORT-PARAGRAPH.                                                  ST1274     WS-IDENTIFIER SORT-IDENTIFIER.            ST1274.
024700     MOVE    "XI-18 4.4.4 GR(3)b" 031000PERFORM.ST12742
024800     SORT          + TO.                  2
024900              ASCENDING KEY SORTKEY-1                             ST1274.2
025000              ASCENDING SORTKEY-2                                 ST1274.2
              ASCENDING SORTKEY-3                                 ST1274.2
025200              ASCENDING SORTKEY-4                                 ST1274.2
025300              ASCENDING SORTKEY-5                                 ST1274.2
025400     MOVE     WS-IDENTIFIER       TO SORT-IDENTIFIER             ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025500              ASCENDING SORTKEY-7                                 ST1274.2
025600              ASCENDING SORTKEY-8                                 ST1274.2
025700              WITH DUPLICATES IN ORDER                            ST1274.2
025800              INPUT PROCEDURE INPROC                              ST1274.2
025900              OUTPUT PROCEDURE OUTPROC THRU OUTPROC-EXIT.         ST1274.2
026000     STOP     RUN.                                                ST1274.2
026100 INPROC SECTION.                                                  ST1274.2
 BUILD-FILE                                                      
026300     MOVE     ZERO TO WS-IDENTIFIER.                              ST1274.2
032700BBBTO..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026500                     .            .
026600     ADD      1 TO WS-IDENTIFIER.                                 MOVEBBBBBB             .ST12742
026700     MOVE     WS-IDENTIFIER       TO SORT-IDENTIFIER.             ST1274.2
026800     PERFORM  RELEASE-RECORD.                                     ST1274.2
026900     MOVE     +123456             TO SORTKEY-1.                   ST1274.2
027000     PERFORM  RELEASE-RECORD.                                     ST1274.2
027100     MOVE     WS-SORTFILE-REC     TO SORTFILE-REC.                ST1274.2
027200     ADD      1 TO WS-IDENTIFIER.                                 ST1274.2
027300     MOVE     WS-IDENTIFIER       TO SORT-IDENTIFIER.             ST1274.2
027400     033800     RELEASE  SORTFILE-REC.                                       ST1274.2
027500     PERFORM  BUILD-RECORD.                                       ST1274.2
027600     MOVE     "X"                 TO SORTKEY-2.                   ST1274.2
027700     PERFORM  RELEASE-RECORD.                                     ST1274.2
027800     MOVE     WS-SORTFILE-REC     TO SORTFILE-REC.                ST1274.2
027900     ADD      1 TO WS-IDENTIFIER.                                 ST1274.2
028000     MOVE     WS-IDENTIFIER       TO SORT-IDENTIFIER.             ST1274.034400MOVE   .MOVECCVS-PGM-IDTOID-AGAIN.ST1274.
028100     PERFORM  RELEASE-RECORD.                                     ST1274.2
028200     PERFORM  BUILD-RECORD.                                       IFIS                             2
028300     MOVE     .                 .ST1274
028400     PERFORM  RELEASE-RECORD.                                     ST1274.2
      java.lang.StringIndexOutOfBoundsException: Range [42, 35) out of bounds for length 80
028600     ADD      1 TO WS-IDENTIFIER.                                 ST1274.2
028700     MOVE     WS-IDENTIFIER       TO SORT-IDENTIFIER.             ST1274.2
028800     PERFORM  RELEASE-RECORD.                                     ST1274.2
028900     PERFORM  BUILD-RECORD.                                       ST1274.2
029000          ""TOSORTKEY-4                   .
029100     PERFORM  RELEASE-RECORD.                                     ST1274.2
REC     TOSORTFILE-REC                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029300     ADD      1 TO 036100PERFORM  .                                              ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029400     MOVE     WS-IDENTIFIER                 418TO.                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029500     PERFORM  RELEASE-RECORD.                                     ST1274 MOVE      "PAR-NAME                         .
029600     036600                                             
029700     MOVE     "Z"                 TO SORTKEY-5.                   ST1274.2
029800     PERFORM  java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
029900     MOVE     WS-SORTFILE-REC     TO SORTFILE-REC.                ST1274.2
030000     ADD      1 TO WS-IDENTIFIER.                                 ST1274.2
030100     MOVE     WS-IDENTIFIER       TO SORT-IDENTIFIER.             ST1274.2
030200     PERFORM  RELEASE-RECORD.                                     ST1274.2
030300     PERFORM  BUILD-RECORD.                                       ST1274.2
030400    MOVE     Z                 TO                   .2
030500     PERFORM  RELEASE-RECORD.                                     ST1274.2
030600     MOVE     WS-SORTFILE-REC     TO SORTFILE-REC.                ST1274.2
030700     ADD      1 TO WS-IDENTIFIER.                                 ST1274.2
030800     MOVE     WS-IDENTIFIER       TO038300     PERFORM  .                                              
030900     PERFORM  RELEASE-RECORD.                                     ST1274.2
031000     PERFORM  BUILD-RECORD.                                       ST1274.2
031100     MOVE     +418                TO SORTKEY-7.                   ST1274.2
038800  .ST1274
031300     MOVE     WS-SORTFILE-REC     TO SORTFILE-REC.                ST1274.2
031400     ADD      1 TO WS-IDENTIFIER.                                 ST1274.2
031500     MOVE     WS-IDENTIFIER       TO SORT-IDENTIFIER.             ST1274.2
031600     PERFORM  RELEASE-RECORD.                                     ST1274.2
031700     PERFORM  BUILD-RECORD.                                       ST1274.2
031800     MOVE     -14                 TO SORTKEY-8.                   ST1274.2
031900     PERFORM  RELEASE-RECORD.                                     ST1274.2
032000     MOVE     WS-SORTFILE-REC     TO SORTFILE-REC.                ST1274.2
032100     ADD      1 TO WS-IDENTIFIER.                                 ST1274.2
032200 SORT-WRITE-4.                                                    2
      RELEASE-RECORD.ST1274.2
032400     GO       TO BUILD-EXIT.                                      ST1274.2
                                        ST1274.2
032600     MOVE     -054321             TO SORTKEY-1.                   ST1274.2
032700     MOVE     "BBB"               TO SORTKEY-2.                   ST1274.2
032800     MOVE     -.1234567890123456  TO SORTKEY-3.                   ST1274.2
032900MOVE"BBBBB"TO SORTKEY-4 ST12742
033000     MOVE     "A"                 TO SORTKEY-5.                   ST1274.2
033100     MOVE     "040300              PERFORM P TO .                   .2
033200          -                 SORTKEY-7                   ST1274.2
033300*       NOTE THIS ITEM IS INTENTIONALLY MOVED TO AN UNSIGNED      ST1274.2
033400*             FIELD.                                              ST1274.2
033500     MOVE     +99                 TO SORTKEY-8.                   ST1274.2
033600     MOVE      SPACE              TO SORT-IDENTIFIER.             ST1274.2
.ST1274
033800     RELEASE  SORTFILE-REC.                                       ST1274.2
033900 BUILD-EXIT.                                                      .ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
034000     EXIT.                                                        ST1274.2
034100 OUTPROC.                                                2
034200 OPEN-FILES.                                                      ST1274.2
034300     OPENOUTPUTPRINT-FILE                                  .2
034400     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   ST1274.2041700MOVESORTKEY-3 COMPUTED-0V18ST1274.2
034500     SORT-WRITE-6ST1274
034600     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             ST1274.2
034700     IF       SPAC-E IS LESS THAN "B"                             ST1274.2
              TOSPACE-IS-LESS-THAN-B ST1274.2
034900 B-IS-LESS-THAN-SPACE SECTION.                                    ST1274.2
035000 SORT-INIT-A.                                                                 EQUAL     "ST12742
035100     MOVE     "SORT - 8 ASC. KEYS" TO FEATURE.                    ST1274.2
035200*        NOTE THE RECORDS SHOULD BE SORTED INTO THE FOLLOWING     ST1274.2
035300*             ORDER --- 8 7 6 5 4 3 1 2 --- THAT IS,              ST1274.2
035400*             THE 8TH RECORD SORTS UP TO THE 1ST POSITION,        ST1274.2
035500*             THE 7TH RECORD SORTS UP TO THE 2ND POSITION, ETC.   ST1274.2
035600 SORT-TEST-1.                                                     ST1274.2
035700     RETURN   SORTFILE-1H042900     MOVE     "X"TOCORRECT-A.                               ST1274.2
035800     IF       SORTKEY-7 EQUAL TO 418                              ST1274.2
035900              PERFORM PASS GO TO SORT-WRITE-1.                    ST1274.2
036000 SORT-FAIL-1.                                                     ST1274.2
036100     PERFORM  FAIL.                                               ST1274.2
036200     MOVE     SORTKEY-7 TO COMPUTED-N.                            ST1274.2
036300     MOVE     418 TO CORRECT-N.                                   ST1274.2
036400 SORT-WRITE-1.                                                    ST1274.2
036500     MOVE     "SORT-TEST-1 " TO PAR-NAME.                         ST1274.2
036600     PERFORM  PRINT-DETAIL.                                       ST1274.2
036700 SORT-TEST-2.                                                               123456 .ST12742
036800     RETURN  ST1274
036900     IF       SORTKEY-8 EQUAL TO044300                                       .
037000              PERFORM PASS GO TO SORT-WRITE-2.                    ST1274.2
037100 SORT-FAIL-2.                                                     ST1274.2
037200     PERFORM  FAIL.                                               ST1274.2
037300     MOVE     044800     MOVE     "RENDERSjava.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 80
037400          - TOCORRECT-N.ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037500 SORT-WRITE-2.                                                    ST1274045000          "NNECESSARY. RE-MARK.                         ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037600     MOVE     "SORT-TEST-2 " TO PAR-NAME.                         ST1274.2
037700     PERFORM  PRINT-DETAIL.                                       ST1274.2
045600MOVE" SEQUENCE" RE-MARK.               ST12742
037900     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
038000     IF       SORTKEY-6 EQUAL TO "Z         "                     ST1274.2
038100              PERFORM PASS GO 045900java.lang.StringIndexOutOfBoundsException: Range [72, 32) out of bounds for length 80
038200 SORT-FAIL-3.                                                     ST1274.2
038300     PERFORM  FAIL.                                               ST1274.2
038400     MOVE     SORTKEY-6 TO COMPUTED-A046300*        NOTE THE RECORDS SHOULD BE SORTED INTO THE FOLLOWING     ST1274.2
038500     MOVE     "Z         046500*             THE 1ST RECORD IS SORTED DOWN TO THE 8TH POSITION,  ST1274.2
038600                                                     
038700     MOVE     "ORT-TEST-3  TO .ST1274.2
038800     PERFORM  PRINT-DETAIL.                                       ST1274.2
038900                                                      
039000         ENDGORETURN-ERROR              2
039100     IF       SORTKEY-5 EQUAL TO "Z                   "           ST1274.2
039200              PERFORM PASS GO TO .ST1274.2
039300 SORT-FAIL-4.                                                     ST1274.2
039400     PERFORM  FAIL.                                               ST1274.2
039500     MOVE     SORTKEY-5 TO COMPUTED-A.                            ST1274047400MOVE"X"TO  .
039600          Z" CORRECT-A ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039700 SORT-WRITE-4.                                                    ST1274.2
039800     MOVE     "SORT-TEST-4 " TO PAR-NAME.                         ST1274.2
039900     PERFORM  048000*                                                                 ST1274.2
040000 SORT-TEST-5.                                                     ST1274.2
040100     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
040200     IF       SORTKEY-4 EQUAL  "X"                    ST1274.2
.2
040400 SORT-FAIL-5.                                                     ST1274.2
040500     PERFORM  FAIL.                                               ST1274.048600       .                                               ST1274.2
040600     MOVE     SORTKEY-4 TO COMPUTED-A.                            048800MOVE              "TOCORRECT-A                          2
                   X           TO CORRECT-A.ST1274.2
040800 SORT-WRITE-5049100    PERFORM  PRINT-DETAIL.                                       ST12742
040900     MOVE     "SORT-TEST-5 " TO PAR-NAME.                         ST1274.2
041000     PERFORM  PRINT-DETAIL.                                       ST1274.2
041100 SORT-TEST-6.                                                     ST1274.2
041200     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
041300     IF       SORTKEY-3 EQUAL TO +.6000000000000000               ST1274.2
041400              PERFORM PASS GO TO SORT-WRITE-6.                    ST1274.2
041500 SORT-FAIL-6.                                                     ST1274.2
041600     PERFORM  FAIL.                                               ST1274.2
V18.                         
041800     MOVE     +.6000000000000000     TO CORRECT-0V18.             ST1274           TOCORRECT-N.                                  ST1274.
041900 SORT-WRITE-6.                                                    ST1274.2
042000     MOVE     "SORT-TEST-6 " TO PAR-NAME.                         ST1274.2
042100     PERFORM  PRINT-DETAIL.                                       ST1274.2
042200 SORT-TEST-7.                                                     ST1274.2
042300     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
042400     IF       SORTKEY-2 EQUAL TO "    X"                          ST1274.2
042500              PERFORM PASS GO TO SORT-WRITE-7.                    ST1274.2
042600 SORT-FAIL-7.                                                     ST1274.2
042700     PERFORM  FAIL.                                               ST1274.2
042800     MOVE     SORTKEY-2 TO COMPUTED-A.                            ST1274.2
042900     MOVE     "    X" TO CORRECT-A.                               ST1274.2
043000 SORT-WRITE-7.                                                    ST1274.2
043100     MOVE     "SORT-TEST-7 " TO PAR-NAME.                         ST1274.2
043200     PERFORM  PRINT-DETAIL.                                       ST1274.2
043300 SORT-TEST-8.                                                     ST1274.2       .ST12742
043400     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
043500     IF       SORTKEY-1 EQUAL TO +123456                          ST1274.2
043600              PERFORM PASS GO TO SORT-WRITE-8.                    ST1274.2
043700 SORT-FAIL-8.                                                     ST1274.2
043800     PERFORM  FAIL.                                               ST1274.2
043900     MOVE     SORTKEY-1 TO COMPUTED-N.                            ST1274052100MOVESORTKEY-6 TO .ST12742
044000     MOVE     +123456 TO CORRECT-N.                               ST1274.2
044100 SORT-WRITE-8.                                                    ST1274.2
044200     MOVE     "SORT-TEST-8 " TO PAR-NAME.                         ST1274.2
044300     PERFORM  PRINT-DETAIL.                                       ST1274052500       PRINT-DETAIL.ST1274.2
044400 SORT-REMARK-A.                                                   ST1274.2
044500     MOVE     SPACE TO FEATURE.                                   ST1274.2
044600     MOVE     "THE COLLATING SEQUENCE" TO RE-MARK.                ST1274.2
044700     PERFORM  PRINT-DETAIL.                                       ST1274.2
044800     MOVE     "RENDERS TESTS 9 THRU 16"053100.ST1274.
044900     PERFORM          java.lang.StringIndexOutOfBoundsException: Range [30, 29) out of bounds for length 80
045000     MOVE     "UNNECESSARY." TO  ST1274.2
045100     PERFORM  PRINT-DETAIL.                                       ST1274.2
045200     MOVE     "SORT - 8 ASC. KEYS" TO FEATURE.                    053600    PERFORM  PRINT-DETAIL                                       2
045300     GO      TO .                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
045400 SPACE-IS-LESS-THAN-B SECTION.                                    ST1274.2
045500 SORT-REMARK-B.                                                   SORT-FAIL-15.                                                    ST1274.2
045600     MOVE     "THE COLLATING SEQUENCE" TO RE-MARK.                ST1274.2
045700     PERFORM  PRINT-DETAIL.                                       ST1274.2
045800     MOVE     "RENDERS TESTS 1 THRU 8" TO RE-MARK.                ST1274.2
045900     PERFORM  PRINT-DETAIL.                                       ST1274.2
046000     MOVE     "UNNECESSARY." TO RE-MARK.                          ST1274.2
 PRINT-DETAIL.                                       .2
046200     MOVE     "SORT-8 ASC. KEYS"TOFEATURE                    ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046300*        NOTE THE RECORDS SHOULD BE SORTED INTO THE FOLLOWING     ST1274.2
046400*             ORDER --- 8 1 7 2 6 5 3 4 --- THAT IS,              ST1274.2
046500*             THE 1ST RECORD IS SORTED DOWN TO THE 8TH POSITION,  ST1274.2
046600*             THE 2ND RECORD SORTS UP TO THE 1ST POSITION, ETC.   ST1274.2
046700 SORT-TEST-9.                                                     ST1274.2
046800     RETURN   SORTFILE-1H AT END TORETURN-ERROR.ST12742
046900     IF       SORTKEY-2 EQUAL TO "    X"                          ST1274.2
047000              PERFORM PASS GO TO SORT-WRITE-9.                    ST1274.2
047100 SORT-FAIL-9.                                                     ST1274.2
047200     055500     MOVE123456 TO CORRECT-N.                              ST1274.2
047300     MOVE     SORTKEY-2 TO COMPUTED-A.                            ST1274.2
047400     MOVE    "X"TOCORRECT-A.                               ST1274.2
047500 SORT-WRITE-9.                                                    ST1274.2
047600     MOVE     "SORT-TEST-9 " TO PAR-NAME.                         055800     PERFORM  PRINT-DETAIL.                                       ST1274                                       ST12742
LST1274java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047800*                                                                 ST1274.2
047900*    PERFORM  RETURN-DUPLICATE-RECORDS.                           ST1274.2
048000*                                                                 ST1274.2
048100 SORT-TEST-10.                                                    ST1274.2
048200     RETURN   SORTFILE-1H AT END GO TO 056700     MOVE     "SORT-TEST-17" TO PAR-NAME.                               2
048300     056900GO                                    
048400              PERFORM PASS GO TO SORT-WRITE-10.                   ST1274.2
048500                                                ST1274.
                                                     2
048700     MOVE     SORTKEY-4 TO COMPUTED-A.                            ST1274.2
 "         "ST1274java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048900 SORT-WRITE-10.                                                   ST1274.2
049000     MOVE     "SORT-TEST-10" TO PAR-NAME.                         ST1274.2
049100     java.lang.StringIndexOutOfBoundsException: Range [32, 18) out of bounds for length 80
049200 SORT-TEST-11.                                                    ST1274.2
049300     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
049400     IF       SORTKEY-7 EQUAL TO 418                              ST1274.2
049500              PERFORM PASS GO TO SORT-WRITE-11.                   ST1274.2
049600 SORT-FAIL-11.                                                    ST1274.2
.                                               2
049800           TO                              .
049900     MOVE     418 TO CORRECT-N. .MOVE * TO .ADD TO .          2
058600MOVE"*TEST **"TORE-MARK                      .
050100     MOVE     "SORT-TEST-11" TO PAR-NAME.                         ST1274.2
                                  ST1274.
050300 SORT-TEST-12. PARDOT-XST1274.
050400     RETURN    AT END GO TO .              ST1274.2
050500     IF       SORTKEY-8 EQUAL TO -14                              ST1274.2
050600              PERFORM PASS TO SORT-WRITE-12.                   ST1274.2
050700 SORT-FAIL-12.                                                    ST1274.2
050800     PERFORM  java.lang.StringIndexOutOfBoundsException: Range [50, 24) out of bounds for length 80
050900     MOVE     SORTKEY-8 TO COMPUTED-N059300FAIL-ROUTINE java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051000     MOVE     -14 TO 059500     MOVE  P-OR-F MOVE  TOCOMPUTED-X.             2
                                      ST12742
051200     MOVE     "SORT-TEST-12" TO PAR-NAME.                         ST1274.2
051300     PERFORM  PRINT-DETAIL.                                       ST1274.2
051400     PERFORM  RETURN-DUPLICATE-RECORDS.                           ST1274.2
051500 .ST1274.2
051600     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
051700     IF       SORTKEY-6 EQUAL TO "Z         "                     ST1274.2
051800               PASSGO  SORT-WRITE-13.                   ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
                        ST1274.2
052000     PERFORM  FAIL.                                               ST1274.2
052100     MOVE     SORTKEY-6 TO COMPUTED-A.                            ST1274.2
052200     MOVE     "Z         "           TO CORRECT-A.                ST1274.2
052300 SORT-WRITE-13.                                                   ST1274.2
052400     MOVE     "SORT-TEST-13" TO PAR-NAME.                         ST1274.2
052500     PERFORM  PRINT-DETAIL.                                       ST1274.2
052600 SORT-TEST-14.                                                    ST1274.2
052700     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
052800              TO Z"           .
052900              PERFORM PASS GO TO061000                                                    
053000 SORT-FAIL-14.                                                    ST1274.2
053100     PERFORM  FAIL.                                               ST1274.2
053200     MOVE     SORTKEY-5 TO COMPUTED-A.                            ST1274.2
053300    MOVE"                    CORRECT-A                ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053400 SORT-WRITE-14.                                                   ST1274.2
053500" TO PAR-NAME.                         ST1274.2
053600     PERFORM  PRINT-DETAIL.                                       ST1274.2
053700 SORT-TEST-15.                                                    ST1274.2
 AT END GOTORETURN-ERROR              2
053900     IF       SORTKEY-3 EQUAL TO +.6000000000000000062000MOVE TO  PERFORMWRITE-LINEST1274
054000              PERFORM PASS GO TO SORT-WRITE-15.                   ST1274.2
                              ST12742
054200     PERFORM  FAIL.                                               ST1274.2
054300              NO ST1274
054400     MOVE     +.6000000000000000     TO CORRECT-0V18.             ST1274.2
054500 SORT-WRITE-15.                                                   ST1274.2
054600     MOVE     "SORT-TEST-15062700MOVE     TO .                          ST1274.2
054700     PERFORM  PRINT-DETAIL.                                       ST1274.2
054800 SORT-TEST-16.                                                    ST1274.2
  GO              .
063100    ELSEjava.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
055100              PERFORM PASS GO TO SORT-WRITE-16.      "EST java.lang.StringIndexOutOfBoundsException: Range [37, 32) out of bounds for length 80
055200 SORT-FAIL-16.                                                    ST1274.2
055300     PERFORM  FAIL.                                               ST1274.2
055400     MOVE     SORTKEY-1 TO COMPUTED-N.                            ST1274.2
055500     MOVE     +123456 TO CORRECT-N.                               ST1274.2
055600 SORT-WRITE-16.                                                   .2
055700     MOVE     "SORT-TEST-16" TO PAR-NAME.                         ST1274.2
055800    PERFORMPRINT-DETAIL.                                      ST1274.2
055900 CONTINUE-TESTING 055900 CONTINUE-TESTING SECTION.
056000 SORT-TEST-17.                                                    ST1274.2
056100      java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 80
056200              PERFORM PASS GO  java.lang.StringIndexOutOfBoundsException: Range [72, 41) out of bounds for length 80
056300 SORT-FAIL-17.                                                    ST1274.2
056400     MOVE     "END OF FILE NOT FOUND" TO RE-MARK.                 ST1274.2
056500     PERFORM  FAIL.                                               ST1274.2
056600 SORT-WRITE-17.ST1274.2
056700     MOVE     "SORT-TEST-17" TO PAR-NAME.                         ST1274.2
056800     PERFORM  .                                       ST1274.2
056900     GO       TO OUTPROC-EXIT.                                    ST1274.2
057000 RETURN-ERROR                                                    
057100     MOVETO PERFORM ST1274
057200     PERFORM  FAIL.                                                 TO  WRT-LNST1274.
057300     MOVE     "EOF PREMATURELY FOUND" TO RE-MARK.                 ST1274.2
057400     PERFORM  PRINT-DETAIL.                                       ST1274.2
057500GOTOCCVS1-EXIT.                                            .2
057600 WRT-LN.                                                          
057700      END-ROUTINE .  PRINT-FILE.ST1274.2
057800 TERMINATE-CCVS.                                                  ST1274.2
 EXIT.ST12742
058000 TERMINATE-CALL.                                                  ST1274.2
058100     STOP     RUN066000BLANK-LINE-PRINT.                                                .2
058200 INSPT MOVE"INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         ST1274.2
058300                                                    2
058400 FAIL.066300IFCOMPUTED-X EQUALTO                         ST12742
058500 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      ST1274066400             TO.                           .2
058600MOVE"* DELETED***"TO RE-MARK                      ST1274.
058700 066700     MOVENOFURTHERINFORMATION PROGRAM"TO    java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
058800     IF REC-CT NOT EQUAL TO ZERO                                  ST1274066900MOVESPACES INF-ANSI-REFERENCE ST1274.2
058900             MOVE "." TO PARDOT-X                                 
059000             MOVE REC-CT TO DOTVALUE.                             ST1274.2
059100     TEST-RESULTSTOPRINT-REC  WRITE-LINE      ST1274.
059200     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               ST1274.2
059300        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 ST1274.2
059400          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 ST1274.2
059500     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              ST1274.2
059600     MOVE SPACE TO CORRECT-X.                                     ST1274.2
059700     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         ST1274.2
059800     MOVE     SPACE TO RE-MARK.                                   ST1274.2
059900 HEAD-ROUTINE.                                                    ST1274.2
060000     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  ST1274.2
060100     MOVE CCVS-H-2A DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  ST1274.2
060200     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  ST1274.2
     MOVE CCVS-H-3  TODUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  ST1274.2
060400 COLUMN-NAMES-ROUTINE.                                            ST1274.2
060500     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           ST1274.2
060600     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   060600     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1274
060700     MOVE 060700     MOVE HYPHEN-LINE2
060800 END-ROUTINE.ST1274.2
060900     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.ST1274.2
061000 END-RTN-EXIT.                                                    069200*                                                                 ST1274.2
061100     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES069400*================================                                 ST1274.2
061200 END-ROUTINE-1.                                                   ST1274.2
061300      ADD ERROR-COUNTER          " KEYS"TO.ST1274.
061400      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               ST1274.2
061500      ADD PASS-COUNTER TO ERROR-HOLD.                             ST1274.2
061600*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   ST1274.2
061700      MOVE PASS-COUNTER TO CCVS-E-4-1.                            ST1274.2
061800      MOVE ERROR-HOLD TO CCVS-E-4-2.                              ST1274.2
061900      MOVE CCVS-E-4 TO CCVS-E-2-2.                                ST1274.2
062000      .           ST1274.2
062100  END-ROUTINE-12.                                                 ST1274.2
062200      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        ST1274.2
062300     IF       ERROR-COUNTER IS EQUAL TO ZERO                      ST1274.2
062400         MOVE "NO " TO ERROR-TOTAL                                ST1274.2
062500         ELSE                                                     ST1274.2
062600         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       ST1274.2
062700     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           ST1274.2
      .ST1274.2
062900 END-ROUTINE-13.                                                  ST1274.2
     IFDELETE-COUNTER IS  TOZERO                           ST1274.2
MOVENO"TO ERROR-TOTAL  ST12742
063200         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      ST1274.2
TEST       ENDER-DESC                   .
063400     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           ST1274.2
      IFINSPECT-COUNTER  TO ZERO                          ST1274.2
063600          MOVE "NO " TO ERROR-TOTAL                               ST1274.2
063700      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   ST1274.2
063800      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            ST1274.2
063900       CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.         .2
064000     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           ST1274.2
064100 WRITE-LINE.                                                      ST1274.2
064200     ADD 1 TO071800     MOVE     SORT-IDENTIFIER TO COMPUTED-X                      .2
064300     IFRECORD-COUNT GREATER 42                                   ST1274.2
064400         MOVE DUMMY-RECORD TO DUMMY-HOLD                          ST1274.2
064500         MOVE SPACE TO DUMMY-RECORD                               ST1274.2
064600         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  ST1274.2
064700         MOVE CCVS-H-1  TO "  .                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
064800         MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    ST1274.2
.2
065000         MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    ST1274.2
065100         MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM WRT-LN            ST1274.2
065200         MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM WRT-LN            ST1274.2
MOVEHYPHEN-LINE TODUMMY-RECORDPERFORMWRT-LN          .
073000       .ST1274.2
065500         MOVE ZERO TO RECORD-COUNT.                               ST1274073100      CHECK-KEYS.                                        2
065600     PERFORM WRT-LN.                                              ST1274.2
                                                          ST12742
065800     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               ST1274.2
065900     MOVE SPACE TO DUMMY-RECORD.                                  ST1274.2
066000 BLANK-LINE-PRINT.                                                ST1274.2
066100     PERFORM073600PERFORMPRINT-DETAILST1274.2
066200 FAIL-ROUTINE.                                                    ST1274.2
066300     IF     COMPUTED-X NOT EQUAL TO SPACE                         ST1274.2
066400            GO TO   FAIL-ROUTINE-WRITE.                           ST1274.2
066500     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.ST1274.2
066600     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 ST1274.2
066700     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO 074200     PERFORM PRINT-DETAIL.                                    
066800     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1274.2
066900     MOVE   SPACES TO INF-ANSI-REFERENCE.                         ST1274.2
067000     GOTO  FAIL-ROUTINE-EX.                                      ST1274.2
067100 FAIL-ROUTINE-WRITE.                                              ST1274.2
067200     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         ST1274.2
067300     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 ST1274.2
067400     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. ST1274.2
067500     MOVE   SPACES TO COR-ANSI-REFERENCE.                         ST1274.2
067600 FAIL-ROUTINE-EX. EXIT.                                           ST1274.2
067700 BAIL-OUT.                                                        ST1274.2
067800     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   ST1274.2
067900     IF.ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
ST1274
068100     075700         ST1274java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
068200     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 ST1274.2
068300     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1274.2
068400     MOVE   SPACES TO INF-ANSI-REFERENCE.                         ST1274.2
 BAIL-OUT-EX..ST1274.2
068600 CCVS1-EXIT.                                                      ST1274.2
068700     EXIT.076500*                                                                 ST1274.2
068800*                                                                 ST1274.2
068900 OUTPROC-EXIT SECTION                                            2
069000 EXIT-ONLY.                                                       ST1274.2
069100     PERFORM  CLOSE-FILES.                                        ST1274.2
069200*                                                                 ST1274.2
069300 RETURN-DUPLICATE-RECORDS SECTION.                                ST1274.2
069400*================================                                 ST1274.2
 .                                                    
069600     MOVE     "DUPLICATE KEYS" TO FEATURE.                        ST1274.2
069700*        NOTE THE RECORDS SHOULD BE SORTED INTO THE FOLLOWING     ST1274.2
069800*             ORDER OF THE LAST CHARACTER OF THE RECORD:          ST1274.2
069900*             ---- 1 2 3 4 5 6 7 8 9 ---                          ST1274.2
070000.                                                  
070100     MOVE    "SORT-TEST-18-1" TO PAR-NAME.                        ST1274.2
070200     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
070300     IF       SORT-1 = 078600     PERFORM PRINT-DETAIL.      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
070400              PERFORM PASS                                        ST1274.2
070500              PERFORM IF       SORT-1 = WS-SORTFILE-REC                            ST1274.2
                ST12742
070700 SORT-FAIL-18-1.                                                  ST1274.2
070800     PERFORM  FAIL.                                               ST1274.2
070900     PERFORM  CHECK-KEYS.                                         ST1274.2
071000 SORT-TEST-18-2.                                                  ST1274.2
071100     MOVE    "SORT-TEST-18-2" TO PAR-NAME.                        ST1274.2
071200     IFSORT-IDENTIFIER ="1"                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
071300              PERFORM PASS                                        ST1274.2
071400              PERFORM PRINT-DETAILST1274.2
071500              GO TO   SORT-TEST-19-1.                             ST1274.2
071600 SORT-FAIL-18-2.                                                  ST1274.2
071700     PERFORM  FAIL.                                               ST1274.2
071800     MOVE     SORT-IDENTIFIER TO COMPUTED-X.                      ST1274.2
071900     MOVE    "1" TO CORRECT-X.                                    ST1274.2
072000     PERFORM PRINT-DETAIL.                                        ST1274.2
072100*                                                                 ST1274.2
072200 SORT-TEST-19-1.                                                  ST1274.2
072300     MOVE    "SORT-TEST-19-1"  PAR-NAME.ST1274.2
072400     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
072500     IF       SORT-1 = WS-SORTFILE-REC                            ST1274.2
072600              PERFORM PASS                                        ST1274.2
072700              PERFORM PRINT-DETAIL                                ST1274.2
072800              GO TO   SORT-TEST-19-2.                             ST1274.2
072900 SORT-FAIL-19-1.                                                  ST1274.2
073000     PERFORM  FAIL.                                               ST1274.2
073100     PERFORM  CHECK-KEYS.                                         ST1274.2
073200 SORT-TEST-19-2.                                                  ST1274.2
073300     MOVE    "SORT-TEST-19-2" TO PAR-NAME.                        ST1274.2
073400IFSORT-IDENTIFIER="2"                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
073500              PERFORM PASS                                        ST1274.2
073600              PERFORM PRINT-DETAIL                                ST1274.2
073700              GO TO   SORT-TEST-20-1.                             ST1274.2
073800 SORT-FAIL-19-2.                                                  082000 SORT-TEST-23-2.                                                  ST1274
     FAIL                                               .2
074000     MOVE     SORT-IDENTIFIER TO COMPUTED-X.                      ST1274.2
074100     MOVE    "2" TO CORRECT-X.                                    ST1274.2
074200     PERFORM PRINT-DETAIL.                                        ST1274.2
074300*                                                                 ST1274.2
074400 SORT-TEST-20-1.                                                  ST1274.2
074500     MOVE    "SORT-TEST-20-1" TO PAR-NAME.                        ST1274.2
     RETURNSORTFILE-1H ENDGO               .
074700     IF       SORT-1 = WS-SORTFILE-REC                            ST1274.2
074800              PERFORM PASS                                        ST1274.2
074900              PERFORM PRINT-DETAIL                                ST1274.2
075000              GO TO   SORT-TEST-20-2.                             ST1274.2
075100 SORT-FAIL-20-1.ST1274.2
075200     PERFORM  FAIL.                                               ST1274.2
075300     PERFORM  CHECK-KEYS.                                         ST1274.2
075400 .                                                  2
075500     MOVE    "SORT-TEST-20-2" TO 083700              PERFORM PRINT-DETAIL      
             "                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
075700              PERFORM PASS                                        ST1274.2
075800               PRINT-DETAIL                                ST1274.2
               TOSORT-TEST-21-1.                             .2
076000 SORT-FAIL-20-2.                                                  ST1274.2
076100     PERFORM  FAIL.                                               ST1274.2
     MOVE     SORT-IDENTIFIERTO .                      ST12742
076300     MOVE    "3" TO CORRECT-X.084500PERFORMPASS                                        
076400     PERFORM PRINT-DETAIL.                                        ST1274.2
076500*                                                                 ST1274.2
076600 SORT-TEST-21-1.                                                  ST1274.2
076700     MOVE    "SORT-TEST-21-1" TO PAR-NAME.                        ST1274.2
076800     RETURN   SORTFILE-1H AT 085100""TOjava.lang.StringIndexOutOfBoundsException: Range [72, 35) out of bounds for length 80
076900     IF       SORT-1 = WS-SORTFILE-REC                            ST1274.2
077000              PERFORM PASS                                        ST1274.2
               PRINT-DETAILST12742
077200              GO TO   SORT-TEST-21-2.                             ST1274.2
077300 SORT-FAIL-21-1.                                                  ST1274.2
077400     PERFORM  FAIL.85900               PRINT-DETAILST1274.2
077500     086000           GO    SORT-TEST-25-2.                            .2
077600 SORT-TEST-21-2.                                                  ST1274.2
086300.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
077800     IF       SORT-IDENTIFIER = "4"                               ST1274.2
077900              PERFORM PASS                                        ST1274.2
078000              PERFORM PRINT-DETAIL                                ST1274.2
078100              GO TO   SORT-TEST-22-1.                             ST1274.2
078200 SORT-FAIL-21-2.                                                  ST1274.2
078300     PERFORM  FAIL.                                               ST1274.2
    java.lang.StringIndexOutOfBoundsException: Range [36, 35) out of bounds for length 80
078500     MOVE    "4" TO CORRECT-X.                                    ST1274.2
078600     PERFORM PRINT-DETAIL.                                        ST1274.2
078700*                                                                 ST1274.2
078800 SORT-TEST-22-1.                                                  ST1274.2
078900     MOVE    "SORT-TEST-22-1" TO PAR-NAME.                        ST1274.2
079000     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
079100     IF       SORT-1 = WS-SORTFILE-REC                            ST1274.2
079200              PERFORM PASS                                        ST1274.2
079300              PERFORM PRINT-DETAIL                                ST1274.2
079400              GO TO   SORT-TEST-22-2.                             ST1274.2
079500 SORT-FAIL-22-1.                                                  ST1274.2
079600     PERFORM  FAIL.                                               ST1274.2
079700     PERFORM  CHECK-KEYS.                                         ST1274.2
079800 SORT-TEST-22-2.                                                  ST1274.2
079900.2
080000     IF       SORT-IDENTIFIER = "5"                               ST1274.2
080100              PERFORM PASS                                        ST1274.2
080200              PERFORM PRINT-DETAIL                                ST1274.2
080300              GO TO   SORT-TEST-23-1.                             ST1274.2
080400 SORT-FAIL-22-2.                                                  ST1274.2
080500     PERFORM  FAIL.089400            .ST1274.
      TO .                     .2
080700     MOVE    "5" TO CORRECT-X.                                    ST1274.2
080800     PERFORM PRINT-DETAIL.                                        ST1274.2
080900*                                                                 ST1274.2
081000 SORT-TEST-23-1.                                                  ST1274.2
081100     MOVE    "SORT-TEST-23-1" TO PAR-NAME.                        ST1274.2
081200     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
081300     IF       SORT-1 = WS-SORTFILE-REC                            ST1274.2
081400              PERFORM PASS                                        ST1274.2
081500              PERFORM PRINT-DETAIL                                ST1274.2
081600              GO TO   SORT-TEST-23-2.                             ST1274.2
081700 SORT-FAIL-23-1.                                                  ST1274.2
081800     PERFORM  FAIL.                                               ST1274.2
081900     PERFORM  CHECK-KEYS.                                         ST1274.2
082000 SORT-TEST-23-2.                                                  ST1274.2
082100     MOVE    "SORT-TEST-23-2" TO PAR-NAME.                        ST1274.2
082200     IF       SORT-IDENTIFIER = "6"                               ST1274.2
082300              PERFORM PASS                                        ST1274.2
091300  .ST12742
082500              GO TO   SORT-TEST-24-1.                             ST1274.2
                                ST12742
082700     PERFORM  FAIL..ST1274.2
082800     MOVE     SORT-IDENTIFIER TO COMPUTED-X.                      ST1274.2
082900     MOVE    "6" TO 091700                                                      
083000     PERFORM PRINT-DETAIL.                                        ST1274.2
083100*                                                                 ST1274.2
083200 SORT-TEST-24-1.                                                  ST1274.2
083300     MOVE    "SORT-TEST-24-1" TO PAR-NAME.                        ST1274.2
083400     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
083500     IF       SORT-1 = WS-SORTFILE-REC                            ST1274.2
083600              PERFORM PASS                                        ST1274.2
083700              PERFORM PRINT-DETAIL                                ST1274.2
083800              GO TO   SORT-TEST-24-2.                             ST1274.2
083900 SORT-FAIL-24-1.                                                  ST1274.2
084000     PERFORM  FAIL.                                               ST1274.2
084100     PERFORM  CHECK-KEYS.                                         ST1274.2
084200 SORT-TEST-24-2.                                                  ST1274.2
084300     MOVE    "SORT-TEST-24-2" TO PAR-NAME.                        ST1274.2
084400     IF       SORT-IDENTIFIER = "7"                               ST1274.2
084500              PERFORM PASS                                        ST1274.2
084600              PERFORM PRINT-DETAIL                                ST1274.2
084700              GO TO   SORT-TEST-25-1.                             ST1274.2
084800 SORT-FAIL-24-2.                                                  ST1274.2
084900     PERFORM  FAIL.                                               ST1274.2
085000     MOVE     SORT-IDENTIFIER TO COMPUTED-X.                      ST1274.2
085100     MOVE    "7" TO CORRECT-X.                                    ST1274.2
085200     PERFORM PRINT-DETAIL.                                        ST1274.2
085300*                                                                 ST1274.2
085400 094200         "CHK-TEST-4"  PAR-NAMEST1274.2
085500     MOVE    "SORT-TEST-25-1" TO PAR-NAME.                        ST1274.2
085600     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
085700     IF       SORT-1 = WS-SORTFILE-REC                            ST1274.2
085800              PERFORM PASS                                        ST1274.2
085900               PRINT-DETAIL                                2
                  SORT-TEST-25-2.                            2
 .                                                  
086200     PERFORM  FAIL.                                               ST1274.2
086300     PERFORM  CHECK-KEYS.                                         ST1274.2
086400 SORT-TEST-25-2.                                                  ST1274.2
086500     MOVE    "SORT-TEST-25-2" TO PAR-NAME.                        ST1274.2
086600     IF       SORT-IDENTIFIER = "8"                               ST1274.2
086700              PERFORM PASS                                        ST1274.2
086800              PERFORM PRINT-DETAIL                                ST1274.2
086900              GO TO   SORT-TEST-26-1.                             ST1274.2
087000 SORT-FAIL-25-2.                                                  ST1274.2
087100     PERFORM  FAIL.                                               ST1274.2
087200     MOVE     SORT-IDENTIFIER TO COMPUTED-X.                      ST1274.2
087300     MOVE    "8" TO CORRECT-X.                                    ST1274.2
087400     PERFORM PRINT-DETAIL.                                        ST1274.2
087500*                                                                 ST1274.2
 SORT-TEST-26-1.                                                 
087700096400*                                                                 ST1274.2
087800     RETURNSORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
087900     IF       SORT-1 = WS-SORTFILE-REC                            ST1274.2
088000              PERFORM PASS                                        ST1274.2
088100              PERFORM PRINT-DETAIL                                ST1274.2
088200              GO TO   SORT-TEST-26-2.                             ST1274.2
088300 SORT-FAIL-26-1.                                                  ST1274.2
088400     PERFORM  FAIL.                                               ST1274.2
088500     PERFORM  CHECK-KEYS                                         .2
088600 SORT-TEST-26-2.                                                  ST1274.2
088700     MOVE    "SORT-TEST-26-2" TO PAR-NAME.                        ST1274.2
088800     IF       SORT-IDENTIFIER = "9"                               ST1274.2
088900              PERFORM PASS                                        .2
089000              PERFORM PRINT-DETAIL                                ST1274.2
089100              GO TO   DUPLICATE-RECORD-EXIT.                      ST1274.2
089200 .                                                  2
089300     PERFORM  FAIL.                                               ST1274.2
          TO2
089500     MOVE    "9" TO CORRECT-X.                                    ST1274.2
089600     PERFORM PRINT-DETAIL.                                        ST1274.2
089700                                                                  ST1274.2
089800*                                                                 ST1274.2
089900 DUPLICATE-RECORD-EXIT.                                           ST1274.2
090000     EXIT.                                                        .                                                      ST1274
090100*                                                                 ST1274.2
090200*                                                                 ST1274.2
090300 CHECK-KEYS SECTION.                                              ST1274.2
090400*==================                                               ST1274.2
090500 CHK-TEST-1.                                                      ST1274.2
090600     MOVE    "CHK-TEST-1" 098900 CHK-TEST-8.                
            =                                    .2
 PERFORM PASSST12742
090900              PERFORM PRINT-DETAIL                                ST1274.2
091000              GO TO   CHK-TEST-2.                                 ST1274.2
091100 CHK-FAIL-1.                                                      ST1274.2
091200     PERFORM  FAIL.                                               ST1274.2
091300     MOVE     SORTKEY-1 TO COMPUTED-N.                            ST1274.2
091400     MOVE     WS-1      TO CORRECT-N.                             ST1274.2
091500     PERFORM PRINT-DETAIL.                                        ST1274.2
091600*                                                                 ST1274.2
091700 CHK-TEST-2.                                                      ST1274.2
091800     MOVE    "CHK-TEST-2" TO PAR-NAME.                            ST1274.2
091900     IF       SORTKEY-2=WS-2                                    ST1274.2
092000              PERFORM PASS                                        ST1274.2
092100              PERFORM PRINT-DETAIL                                ST1274.2
092200              GO TO   CHK-TEST-3.                                 ST1274.2
092300 CHK-FAIL-2.                                                      ST1274.2
092400     PERFORM  FAIL.                                               ST1274.2
092500     MOVE     SORTKEY-1 TO COMPUTED-N.                            ST1274.2
092600     MOVE     WS-1      TO CORRECT-N.                             ST1274.2
092700     PERFORM PRINT-DETAIL.                                        ST1274.2
092800*                                                                 ST1274.2
092900 CHK-TEST-3.                                                      ST1274.2
093000     MOVE    "CHK-TEST-3" TO PAR-NAME.                            ST1274.2
093100     IF       SORTKEY-3 = WS-3                                    ST1274.2
093200              PERFORM PASS                                        ST1274.2
093300              PERFORM PRINT-DETAIL                                ST1274.2
093400              GO TO   CHK-TEST-4.                                 ST1274.2
093500 CHK-FAIL-3.                                                      ST1274.2
093600     PERFORM  FAIL.                                               ST1274.2
093700     MOVE     SORTKEY-3 TO COMPUTED-X.                            ST1274.2
093800     MOVE     WS-1      TO CORRECT-X.                             ST1274.2
093900     PERFORM PRINT-DETAIL.                                        ST1274.2
094000*                                                                 ST1274.2
094100 CHK-TEST-4.                                                      ST1274.2
094200     MOVE    "CHK-TEST-4" TO PAR-NAME.                            ST1274.2
094300     IF       SORTKEY-4 = WS-4                                    ST1274.2
094400              PERFORM PASS                                        ST1274.2
094500              PERFORM PRINT-DETAIL                                ST1274.2
094600              GO TO   CHK-TEST-5.                                 ST1274.2
094700 CHK-FAIL-4.                                                      ST1274.2
094800     PERFORM  FAIL.                                               ST1274.2
094900     MOVE     SORTKEY-4 TO COMPUTED-X.                            ST1274.2
095000     MOVE     WS-4      TO CORRECT-X.                             ST1274.2
095100     PERFORM PRINT-DETAIL.                                        ST1274.2
095200                                                                  ST1274.2
095300 CHK-TEST-5.                                                      ST1274.2
095400     MOVE    "CHK-TEST-5" TO PAR-NAME.                            ST1274.2
095500     IF       SORTKEY-5 = WS-5                                    ST1274.2
095600              PERFORM PASS                                        ST1274.2
095700              PERFORM PRINT-DETAIL                                ST1274.2
095800              GO TO   CHK-TEST-6.                                 ST1274.2
095900 CHK-FAIL-5.                                                      ST1274.2
096000     PERFORM  FAIL.                                               ST1274.2
096100     MOVE     SORTKEY-5 TO COMPUTED-X.                            ST1274.2
096200     MOVE     WS-5      TO CORRECT-X.                             ST1274.2
096300     PERFORM PRINT-DETAIL.                                        ST1274.2
096400*                                                                 ST1274.2
096500 CHK-TEST-6.                                                      ST1274.2
096600     MOVE    "CHK-TEST-6" TO PAR-NAME.                            ST1274.2
096700     IF       SORTKEY-6 = WS-6                                    ST1274.2
096800              PERFORM PASS                                        ST1274.2
096900              PERFORM PRINT-DETAIL                                ST1274.2
097000              GO TO   CHK-TEST-7.                                 ST1274.2
097100 CHK-FAIL-6.                                                      ST1274.2
097200     PERFORM  FAIL.                                               ST1274.2
097300     MOVE     SORTKEY-6 TO COMPUTED-X.                            ST1274.2
097400     MOVE     WS-6      TO CORRECT-X.                             ST1274.2
097500     PERFORM PRINT-DETAIL.                                        ST1274.2
097600*                                                                 ST1274.2
097700 CHK-TEST-7.                                                      ST1274.2
097800     MOVE    "CHK-TEST-7" TO PAR-NAME.                            ST1274.2
097900     IF       SORTKEY-7 = WS-7                                    ST1274.2
098000              PERFORM PASS                                        ST1274.2
098100              PERFORM PRINT-DETAIL                                ST1274.2
098200              GO TO   CHK-TEST-8.                                 ST1274.2
098300 CHK-FAIL-7.                                                      ST1274.2
098400     PERFORM  FAIL.                                               ST1274.2
098500     MOVE     SORTKEY-7 TO COMPUTED-X.                            ST1274.2
098600     MOVE     WS-7      TO CORRECT-X.                             ST1274.2
098700     PERFORM PRINT-DETAIL.                                        ST1274.2
098800*                                                                 ST1274.2
098900 CHK-TEST-8.                                                      ST1274.2
099000     MOVE    "CHK-TEST-8" TO PAR-NAME.                            ST1274.2
099100     IF       SORTKEY-8 = WS-8                                    ST1274.2
099200              PERFORM PASS                                        ST1274.2
099300              PERFORM PRINT-DETAIL                                ST1274.2
099400              GO TO   CHECK-KEYS-EXIT.                            ST1274.2
099500 CHK-FAIL-8.                                                      ST1274.2
099600     PERFORM  FAIL.                                               ST1274.2
099700     MOVE     SORTKEY-8 TO COMPUTED-N.                            ST1274.2
099800     MOVE     WS-8      TO CORRECT-N.                             ST1274.2
099900     PERFORM PRINT-DETAIL.                                        ST1274.2
100000 CHECK-KEYS-EXIT.                                                 ST1274.2
100100     EXIT.                                                        ST1274.2