Quelle  st127a.cob   Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         ST1274.2
000200 PROGRAM-ID.                                                      ST1274.2
000300     ST127A.                                                      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
006000 OBJECT-COMPUTER.                                                 ST1274.2
006100     Card0131.                                                    ST1274.2
006200 INPUT-OUTPUT SECTION.                                            ST1274.2
006300 FILE-CONTROL.                                                    ST1274.2
006400     SELECT PRINT-FILE ASSIGN TO                                  ST1274.2
006500     "C0085" .                                                    ST1274.2
006600     SELECT   SORTFILE-1H ASSIGN TO                               ST1274.2
006700     "C0039" .                                                    ST1274.2
006800 DATA DIVISION.                                                   ST1274.2
006900 FILE SECTION.                                                    ST1274.2
007000 FD  PRINT-FILE.                                                  ST1274.2
007100 01  PRINT-REC PICTURE X(120).                                    ST1274.2
007200 01  DUMMY-RECORD PICTURE X(120).                                 ST1274.2
007300 SD  SORTFILE-1H                                                  ST1274.2
007400     DATA RECORD IS SORTFILE-REC.                                 ST1274.2
007500 01  SORTFILE-REC.                                                ST1274.2
007600   05 SORT-1.                                                     ST1274.2
007700     10 SORTKEY-8       PICTURE S99 COMPUTATIONAL.                ST1274.2
007800     10 SORTKEY-1       PICTURE S9(6) COMPUTATIONAL.              ST1274.2
007900     10 SORTKEY-7       PICTURE 999.                              ST1274.2
008000     10 SORTKEY-3       PICTURE SV9(16).                          ST1274.2
008100     10 FILLER          PICTURE XX.                               ST1274.2
008200     10 SORTKEY-4       PICTURE X(10) JUSTIFIED RIGHT.            ST1274.2
008300     10 SORTKEY-6       PICTURE X(10).                            ST1274.2
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-IDENTIFIER PICTURE X.                                ST1274.2
008800 WORKING-STORAGE SECTION.                                         ST1274.2
008900 77  WS-IDENTIFIER      PIC 9.                                    ST1274.2
009000 01  WS-SORTFILE-REC.                                             ST1274.2
009100     02 WS-8            PICTURE S99 COMPUTATIONAL.                ST1274.2
009200     02 WS-1            PICTURE S9(6) COMPUTATIONAL.              ST1274.2
009300     02 WS-7            PICTURE 999.                              ST1274.2
009400     02 WS-3            PICTURE SV9(16).                          ST1274.2
009500     02 FILLER          PICTURE XX.                               ST1274.2
009600     02 WS-4            PICTURE X(10) JUSTIFIED RIGHT.            ST1274.2
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
010000     02 FILLER          PICTURE XXX.                              ST1274.2
010100 77  UTIL-CTR           PICTURE S99999.                           ST1274.2
010200 77  SPAC-E             PICTURE X VALUE " ".                      ST1274.2
010300 01  TEST-RESULTS.                                                ST1274.2
010400     02 FILLER                   PIC X      VALUE SPACE.          ST1274.2
010500     02 FEATURE                  PIC X(20)  VALUE SPACE.          ST1274.2
010600     02 FILLER                   PIC X      VALUE SPACE.          ST1274.2
010700     02 P-OR-F                   PIC X(5)   VALUE SPACE.          ST1274.2
010800     02 FILLER                   PIC X      VALUE SPACE.          ST1274.2
010900     02  PAR-NAME.                                                ST1274.2
011000       03 FILLER                 PIC X(19)  VALUE SPACE.          ST1274.2
011100       03  PARDOT-X              PIC X      VALUE SPACE.          ST1274.2
011200       03 DOTVALUE               PIC 99     VALUE ZERO.           ST1274.2
011300     02 FILLER                   PIC X(8)   VALUE SPACE.          ST1274.2
011400     02 RE-MARK                  PIC X(61).                       ST1274.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               REDEFINES COMPUTED-A             ST1274.2
012200                                 PIC -9(9).9(9).                  ST1274.2
012300     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         ST1274.2
012400     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     ST1274.2
012500     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     ST1274.2
012600     03       CM-18V0 REDEFINES COMPUTED-A.                       ST1274.2
012700         04 COMPUTED-18V0                    PIC -9(18).          ST1274.2
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) VALUE " CORRECT =".                ST1274.2
013300     02 CORRECT-X.                                                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.2
013600     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         ST1274.2
013700     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     ST1274.2
013800     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     ST1274.2
013900     03      CR-18V0 REDEFINES CORRECT-A.                         ST1274.2
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-    "SS PARAGRAPH-NAME ST1274.2
014700-    " REMARKS".                                            ST1274.2
014800     02 FILLER                     PIC X(20)    VALUE SPACE.      ST1274.2
014900 01  CCVS-C-2.                                                    ST1274.2
015000     02 FILLER                     PIC X        VALUE SPACE.      ST1274.2
015100     02 FILLER                     PIC X(6)     VALUE "TESTED".   ST1274.2
015200     02 FILLER                     PIC X(15)    VALUE SPACE.      ST1274.2
015300     02 FILLER                     PIC X(4)     VALUE "FAIL".     ST1274.2
015400     02 FILLER                     PIC X(94)    VALUE SPACE.      ST1274.2
015500 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       ST1274.2
015600 01  REC-CT                        PIC 99       VALUE ZERO.       ST1274.2
015700 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       ST1274.2
015800 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       ST1274.2
015900 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       ST1274.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 X(39)    VALUE SPACES.     ST1274.2
016800     02  FILLER                    PIC X(42)    VALUE             ST1274.2
016900     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 ST1274.2
017000     02  FILLER                    PIC X(39)    VALUE SPACES.     ST1274.2
017100 01  CCVS-H-2A.                                                   ST1274.2
017200   02  FILLER                        PIC X(40)  VALUE SPACE.      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             ST1274.2
017700            " COPY - NOT FOR DISTRIBUTION".                       ST1274.2
017800   02  FILLER                        PIC X(41)  VALUE SPACE.      ST1274.2
017900                                                                  ST1274.2
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(12)  VALUE             ST1274.2
018700     " HIGH ".                                              ST1274.2
018800   02  FILLER                        PIC X(22)  VALUE             ST1274.2
018900            " LEVEL VALIDATION FOR ".                             ST1274.2
019000   02  FILLER                        PIC X(58)  VALUE             ST1274.2
019100     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".ST1274.2
019200 01  CCVS-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.2
019700     02  FILLER                      PIC X(28)  VALUE             ST1274.2
019800            " COPYRIGHT 1985 ".                                ST1274.2
019900 01  CCVS-E-1.                                                    ST1274.2
020000     02 FILLER                       PIC X(52)  VALUE SPACE.      ST1274.2
020100     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              ST1274.2
020200     02 ID-AGAIN                     PIC X(9).                    ST1274.2
020300     02 FILLER                       PIC X(45)  VALUE SPACES.     ST1274.2
020400 01  CCVS-E-2.                                                    ST1274.2
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
020800         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      ST1274.2
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 SPACE.      ST1274.2
021600     02  FILLER                      PIC X(58)  VALUE             ST1274.2
021700     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".ST1274.2
021800     02  FILLER                      PIC X(13)  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 " OF ".     ST1274.2
022400     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      ST1274.2
022500     02 FILLER                       PIC X(40)  VALUE             ST1274.2
022600      " TESTS WERE EXECUTED SUCCESSFULLY".                       ST1274.2
022700 01  XXINFO.                                                      ST1274.2
022800     02 FILLER                       PIC X(19)  VALUE             ST1274.2
022900            "*** INFORMATION ***".                                ST1274.2
023000     02 INFO-TEXT.                                                ST1274.2
023100       04 FILLER                     PIC X(8)   VALUE SPACE.      ST1274.2
023200       04 XXCOMPUTED                 PIC X(20).                   ST1274.2
023300       04 FILLER                     PIC X(5)   VALUE SPACE.      ST1274.2
023400       04 XXCORRECT                  PIC X(20).                   ST1274.2
023500     02 INF-ANSI-REFERENCE           PIC X(48).                   ST1274.2
023600 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 "************************ST1274.2
023900-    "*****************************************".                 ST1274.2
024000     02 FILLER  PIC IS X(54)    VALUE IS "************************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.2
024700     MOVE    "XI-18 4.4.4 GR(3)b" TO ANSI-REFERENCE.              ST1274.2
024800     SORT     SORTFILE-1H ON                                      ST1274.2
024900              ASCENDING KEY SORTKEY-1                             ST1274.2
025000              ASCENDING SORTKEY-2                                 ST1274.2
025100              ASCENDING SORTKEY-3                                 ST1274.2
025200              ASCENDING SORTKEY-4                                 ST1274.2
025300              ASCENDING SORTKEY-5                                 ST1274.2
025400              ASCENDING SORTKEY-6                                 ST1274.2
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
026200 BUILD-FILE.                                                      ST1274.2
026300     MOVE     ZERO TO WS-IDENTIFIER.                              ST1274.2
026400     PERFORM  BUILD-RECORD.                                       ST1274.2
026500     MOVE     SORT-1              TO WS-SORTFILE-REC.             ST1274.2
026600     ADD      1 TO WS-IDENTIFIER.                                 ST1274.2
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     PERFORM  RELEASE-RECORD.                                     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.2
028100     PERFORM  RELEASE-RECORD.                                     ST1274.2
028200     PERFORM  BUILD-RECORD.                                       ST1274.2
028300     MOVE     +.6                 TO SORTKEY-3.                   ST1274.2
028400     PERFORM  RELEASE-RECORD.                                     ST1274.2
028500     MOVE     WS-SORTFILE-REC     TO SORTFILE-REC.                ST1274.2
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     MOVE     "X"                 TO SORTKEY-4.                   ST1274.2
029100     PERFORM  RELEASE-RECORD.                                     ST1274.2
029200     MOVE     WS-SORTFILE-REC     TO SORTFILE-REC.                ST1274.2
029300     ADD      1 TO WS-IDENTIFIER.                                 ST1274.2
029400     MOVE     WS-IDENTIFIER       TO SORT-IDENTIFIER.             ST1274.2
029500     PERFORM  RELEASE-RECORD.                                     ST1274.2
029600     PERFORM  BUILD-RECORD.                                       ST1274.2
029700     MOVE     "Z"                 TO SORTKEY-5.                   ST1274.2
029800     PERFORM  RELEASE-RECORD.                                     ST1274.2
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 SORTKEY-6.                   ST1274.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       TO SORT-IDENTIFIER.             ST1274.2
030900     PERFORM  RELEASE-RECORD.                                     ST1274.2
031000     PERFORM  BUILD-RECORD.                                       ST1274.2
031100     MOVE     +418                TO SORTKEY-7.                   ST1274.2
031200     PERFORM  RELEASE-RECORD.                                     ST1274.2
031300     MOVE     WS-SORTFILE-REC     TO SORTFILE-REC.                ST1274.2
0140     ADD1 TO.                                 ST12742
3100MOVE       TO SORT-IDENTIFIER             ST1274
031600     PERFORM  RELEASE-RECORD.                                     ST1274.2
031700     PERFORM  BUILD-RECORD.                                       ST1274.2
031800     MOVE     -14                 TO SORTKEY-8.                   ST1274.2
031900     PERFORM000700001000*    "COBOL 85 VERSION 4.2, Apr 1993001100* * ST1274.2
0001300*                                                              *  ST1274.2
032100     ADD      1 TO WS-IDENTIFIER.                                 ST1274.2
032200     MOVE     WS-IDENTIFIER       TO 001800*        X-83  - OBJECT COMPUTER001900*        X-27  - SORT-FILE-NAME-1                              *  ST1274.02000*                                                              *  ST1274.2
032300     PERFORM003000*    COMP    RIGHT          RIGHT                      003100*                                                                 ST1274.2
032400     GO003800*    -054321  BBB  -003900*    -054321  BBB  -.1234       X A     AAAAAAAA004000*    -054321  BBB  -.1234  BBBBBB Z     AAAAAAAA  501  +99        ST1274.2
032500 BUILD-RECORD004600*    -054321  004700*    -054321  BBB  -.1234  BBBBBB004800*    -054321  BBB  -.1234  BBBBBB004900*                                                                 ST1274.2
032600     MOVE     -054005400*    TO THE "SORT" STATEMENT.                                     ST1274.2
320     MOVE     "BBB TOSORTKEY-2 .2
0280     MOVE-.27136TO .                   ST1274
032900     MOVE     "BBBBBB"            TO SORTKEY-4580 SOURCE-COMPUTERST1274.2
0300         "A TOSORTKEY-5 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
70DUMMY-RECORD 1)                                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30     -0 TO.                   .2
033300*       NOTE THIS ITEM IS INTENTIONALLY MOVED TO AN UNSIGNED      ST1274.2
033400*             FIELD.                                              ST1274.2
033500     MOVE     +99                 TO SORTKEY-8.                   ST127470   0 .                                                     .2
360MOVE              TO.             .2
033700 RELEASE-RECORD.                                                  0800     0SORTKEY-3PICTURE(16).                          .2
033800     RELEASE  SORTFILE-REC00     0SORTKEY-4 X1) RIGHTST1274
                                          ST1274
03400EXITST1274.2
034100 OUTPROC SECTION.                                                 ST1274.2
034200601           PICTURE.                              .2
034300     OPEN     OUTPUT PRINT-FILE.                                  080WORKING-STORAGE.                                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040      CCVS-PGM-ID. MOVE TO.   ST1274
034500     MOVE    SPACE00             PICTURE(6) COMPUTATIONALST1274
034600     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             ST1274.2
0370     IF IS  THANB"ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0380GO SPACE-IS-LESS-THAN-BST1274
034900 B-IS-LESS-THAN-SPACE SECTION.                                    ST1274.0600             PICTURE(0 RIGHTST1274
035000 SORT-INIT-A.                                                     8     2            PICTURE) RIGHT.2
0     SORT " FEATURE ST12742
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
0360.                                                     
035700     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.00300  .                                                .2
035800     IF       SORTKEY-7 EQUAL TO 418                              ST1274.2
100 P-OR-FPIC)VALUE          .2
300SORT-FAIL-1ST12742
036100     PERFORM  FAIL.                                               ST1274.2
036200     MOVE     SORTKEY-7 TO COMPUTED-N000     2  PAR-NAMEST1274
330MOVE     48TO CORRECT-NST1274
036400 SORT-WRITE-1.                                                    00                PIC       SPACE.2
00100                     X8)    SPACE.2
03660       PRINT-DETAILST1274
036700 SORT-TEST-2 1TEST-COMPUTEDST1274
036800     RETURN   010                          X3) SPACEST1274
036900     IF       SORTKEY-8 EQUAL TO -14                              ST1274180" =".                                   ST1274
037000              PERFORM PASS GO TO SORT-WRITE-2.                    ST1274.2
0370 .                                                     2
320PERFORM.                                               2
330MOVE TOCOMPUTED-NST1274
037400     MOVE     -14 TO5       COMPUTED-A-(1)9(4)     ST1274
3750SORT-WRITE-2ST1274
037600     MOVE     "SORT-TEST-2 " TO PAR-NAME.                         ST1274.2
037700     PERFORM  PRINT-DETAIL.                                       ST1274.2
037800 SORT-TEST-3.                                                     ST1274.2
037900     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
03800IFSORTKEY-6  "Z "ST1274
038100              PERFORM PASS GO TO SORT-WRITE-3.                    ST1274.2
038200SORT-FAIL-3ST1274.2
038300     PERFORM  FAIL.                                               ST1274.2
038400     MOVE     SORTKEY-6 TO COMPUTED-A.                            ST1274.2
038500     MOVE     "Z "           TO030     0                  PIC(0)VALUE.         ST1274
030     3CORRECT-0V18  CORRECT-A .(8.ST1274
PAR-NAME.2
03883800 CORRECT-14V4 CORRECT-A-(1)9()     .2
038900 019     3CR-18V0.                         ST1274
ST1274.2
039100     IF       SORTKEY-5 EQUAL TO "Z "           ST12741 04FILLERPICST1274
039200              PERFORM PASS GO TO SORT-WRITE-4.                    ST1274.2
039300 SORT-FAIL-4.                                                     ST1274.2
039400     PERFORM50     0 FILLER  PICIS(9     IS "FEATUREPAST1274.
03950400           .                                            ST1274
039600     MOVE     1900  CCVS-C-2ST1274
03900SORT-WRITE-4ST1274
039800     MOVE     "SORT-TEST-4 " TO                           PICX6      "TESTED"   .2
039900     PERFORM  PRINT-DETAIL.                                       3     02F                     PICX4     VALUEFAIL.2
040000 SORT-TEST-5.                                                     ST1274.2
040100     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR1700  DELETE-COUNTER                 99VALUE.       ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040200     IF1000  PASS-COUNTERPICVALUE.       .2
430PERFORM GO  SORT-WRITE-5ST1274
440 SORT-FAIL-5.ST1274.2
040500     PERFORM  FAIL.                                                1DUMMY-HOLDX1)VALUE.      .2
040600     MOVE     SORTKEY-4 TO COMPUTED-A.                            ST12745 0                  PIC()VALUE.ST1274
060     2                     X3) SPACES.2
040800 SORT-WRITE-5ST12742
040900     MOVE     "SORT-TEST-5 " TO PAR-NAME.                         ST1274.2
041000     PERFORM  PRINT-DETAIL.                                       ST1274.2
410 SORT-TEST-6.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041200     RETURN   SORTFILE-1H AT 017100 01  CCVS-H-2A.                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041300     IF       SORTKEY-3 EQUAL TO +.6000000000000000               ST1274   2FILLER X()   " ".  ST1274
041400              PERFORM PASS GO TO SORT-WRITE-6.                    070     ". " ST1274
041500 SORT-FAIL-6.                                                     ST1274.2
041600     PERFORM  FAIL.                                               800                           X(1  VALUE.      .2
470MOVE TOCOMPUTED-0V18.2
410          +.00000000TO.             ST1274java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041900 SORT-WRITE-6.                                                    ST1274.2
042000     MOVESORT-TEST-6 TO.                         ST1274
042100     PERFORMPRINT-DETAILST1274.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 PASS00                           X()VALUE.2
04260SORT-FAIL-7ST1274.
042700     PERFORM  FAIL.                                               ST1274.2
042800090   2FILLER X(8               ST1274
04290110ON-SITENATIONAL        .ST1274
400 .                                                    
043100     MOVE     "SORT-TEST-7 " TO PAR-NAME.                         ST1274.2140             USE.                         ST1274
420       PRINT-DETAIL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043300 SORT-TEST-8.                                                     ST1274.2
043400     RETURN0990                                                    
5IF java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00PERFORM GO SORT-WRITE-8.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030 .                                                     
0480PERFORM                                               2
043900     MOVE     SORTKEY-1 TO COMPUTED-N.                            ST1274.2000   .                                                    2
00700 .                                               
044100 SORT-WRITE-8.                                                    ST1274.09         3                    X SPACE
044200     MOVE     "SORT-TEST-8 " TO PAR-NAME01CCVS-E-3ST1274
040       PRINT-DETAIL.2
044400 SORT-REMARK-A.                                                   ST1274.2
04405     FILLER ()VALUE.2
200FILLERPIC               ST1274
470PERFORM2
044800     MOVE     "RENDERS TESTS 9 THRU 16" 080FILLER X3   SPACEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
4       PRINT-DETAIL.2
0450020 1.                                                    2
40P  PRINT-DETAIL.2
045200     MOVE     "SORT - 8 ASC. KEYS" TO FEATURE.                    ST1274.20                              (    "OF "     .2
045300     GO       TO CONTINUE-TESTING.                                ST1274.2
050SPACE-IS-LESS-THAN-B.ST1274
045500 SORT-REMARK-B.                                                   ST1274.2
045600          "THE SEQUENCE"TO.                ST1274
045700     PERFORM  PRINT-DETAIL.                                       ST1274.2
045800     MOVE     "RENDERS TESTS 1 THRU 8" TO RE-MARK.030     2INFO-TEXTST1274
0590PERFORM.                                       .2
046000     MOVE     "UNNECESSARY." TO RE-MARK.200                       X) SPACE.2
046100     PERFORM  PRINT-DETAIL.                                       ST127400INF-ANSI-REFERENCE()ST1274
046200     MOVE     "SORT - 8 ASC. KEYS" TO FEATURE.                    ST127402FILLER IS  IS.                          .2
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-91                      X()             ST1274
046800     RETURN   SORTFILE-1H AT END00SORT-PARAST1274
       SORTKEY-2 "X java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
40 PERFORM  TO                    .2
070SORT-FAIL-9.2
047200     PERFORM  FAIL.                                               ST1274.2
047300     MOVE     SORTKEY-2 TO COMPUTED-A0SORTKEY-3.2
0402              SORTKEY-4.2
0475 .                                                    
047600     MOVE     "SORT-TEST-9 " 5                                               .2
04070WITH                             .2
047800*                                                                 ST1274.2
047900*    PERFORM  RETURN-DUPLICATE-RECORDS.                           ST1274.2
048000*                                                                 ST1274.2
.                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048200     RETURN   SORTFILE-1H AT 060     PERFORM.ST1274
ST1274
048400              026600     ADD      1.                                 .2
048500 SORT-FAIL-10.                                                    ST127428       RELEASE-RECORD.2
048600     PERFORM  FAIL.                                               ST1274.2
048700     MOVE0MOVE     TO.ST1274
048800     MOVE     " X" TO CORRECT-A.                          ST1274070MOVE        SORT-IDENTIFIER.2
0800SORT-WRITE-10ST1274
049000     MOVE     "SORT-TEST-10" TO PAR-NAME.                         ST1274.2
090       PRINT-DETAILST1274
049200 SORT-TEST-110MOVE" TOSORTKEY-2.ST12742
049300     RETURN   SORTFILE-1H AT END GO TO RETURN-ERRORPERFORM.                                     .2
0440IF EQUAL 48ST1274
049500              PERFORM PASS00          WS-IDENTIFIER.             .2
049600 SORT-FAIL-11.                                                    ST1274.2
490     PERFORM.                                               .2
0050MOVE      SORTFILE-REC2
049900     MOVE     418 TO CORRECT-N.                                   ST1274A      1 WS-IDENTIFIER.2
050000 SORT-WRITE-11290PERFORM                                       .
000          "SORT-TEST-11"PAR-NAME
050200     PERFORM  PRINT-DETAILPERFORM  .                                     .2
050300 SORT-TEST-1220MOVE        .ST1274
0540RETURN  GO .              .2
050500     IF6PERFORM ST1274
000PERFORM GOTO.                   .2
050700 SORT-FAIL-12.ST1274
50       FAILST1274java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050900     MOVE     SORTKEY-800000ADD       TO.                                 ST1274java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051000     MOVE     -000     PERFORM.                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051100 SORT-WRITE-12.00PERFORM.ST1274
051000          WS-SORTFILE-REC.                .2
051300     PERFORM  PRINT-DETAIL.                                       ST1274.2
05140009       RELEASE-RECORDST1274
05150030PERFORM.                                       .2
051600        SORTFILE-1H AT  GOTO.              ST12742
051700     IF       SORTKEY-6 EQUAL TO "Z "                     ST1274.2
051800              PERFORM PASS GO0130MOVE     TO.ST1274
051900 SORT-FAIL-13.                                                    ST1274.2
052000     PERFORM  FAILPERFORM.                                     2
052100     MOVE     SORTKEY-6 TO30       BUILD-RECORD.2
020     " .ST1274.
020 SORT-WRITE-13ST1274
052400     MOVE     "SORT-TEST-13" TO PAR-NAME.                         ST1274.2
052500     PERFORM  PRINT-DETAIL.                                       032100     ADD      1 TO WS-IDENTIFIER.                                 ST1274
0020     GOTOST1274
0503200BUILD-RECORDST1274
052803600         -0431TO.                   ST1274
052900              PERFORM PASS GO TO SORT-WRITE-14.                   ST1274.2
053000 032900     MOVE    TO.                   .2
053100     PERFORM  FAIL.                                               ST1274.2
053200     MOVE     SORTKEY-5 TO COMPUTED-A.                            ST1274030     MOVE5                 SORTKEY-7.2
053300     MOVE     "Z " TO0     +9                 TO .                   ST1274
053370 .                                                  .
053500     090BUILD-EXIT.2
0530     .                                                        
0537040 .                                                      .2
053800     RETURN00      CCVS-PGM-ID TEST-ID TO.   .2
0300IF EQUAL +0000000               .2
054000              PERFORM PASS  HEAD-ROUTINE COLUMN-NAMES-ROUTINE.2
0540 .                                                    .2
054040               TO.ST1274
54300MOVE TO.                         .2
054400     MOVE     +.6000000000000000     TO0SORT-INIT-AST1274
040 .                                                   .
0035300*             ORDER --- 8 7 6 5 4 3 1 2 --- THAT IS035400*             THE 8TH RECORD SORTS UP035500*             THE 7TH RECORD SORTS UP .                                                     2
000 SORT-FAIL-1ST1274
054800 SORT-TEST-1610PERFORM.                                               .2
054900     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274          48TO.                                   .2
055000     IF       SORTKEY-1 EQUAL TO1245                          ST1274.2
0510               PASSTO.                   .2
055200 SORT-FAIL-16.                                                           PRINT-DETAILST1274
055300     PERFORM  FAIL.                                               ST1274.2
055400     MOVE     SORTKEY-109     IFSORTKEY-8 -4ST1274
05500          146 CORRECT-N.2
055600 SORT-WRITE-16.                                                   ST1274.2310SORT-FAIL-2ST1274
055700     MOVE     "SORT-TEST-16" TO PAR-NAME.                         ST1274.2
58       PRINT-DETAIL.
055900 CONTINUE-TESTING SECTION70 SORT-WRITE-2.ST1274
500SORT-TEST-17ST1274java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056100     RETURN   SORTFILE-1H AT END                                  ST12740 PASS SORT-WRITE-3.2
520PERFORM GO TO.                   ST1274.
056300 SORT-FAIL-17.                                                    038300     PERFORM  FAIL.                                               ST1274
056400     MOVE     "END OF FILE080SORT-WRITE-3.ST1274.2
060PERFORMFAIL                                               
056600 SORT-WRITE-17.                                                   ST1274.2
56          "" TO.                         .2
056800     PERFORM  PRINT-DETAIL.                                       ST1274.2
056900     GO       TO0SORT-FAIL-4ST1274
500RETURN-ERRORST12742
057100     MOVE     "RETURN-ERROR"30MOVE TO.ST1274
057200     PERFORM  FAIL.                                               ST1274.2
057300          " "  PAR-NAME2
057400     PERFORM  PRINT-DETAIL.                                       ST1274.2
057500     GO TO CCVS1-EXIT.                                            ST1274.2
057600 CLOSE-FILES010RETURN AT ENDEND  RETURN-ERROR.2
070      END-ROUTINE . CLOSE.   ST1274
057800 TERMINATE-CCVS.                                                  ST1274.2
00      PROGRAMST1274
058000 TERMINATE-CALL.                                                  ST1274.2
058100     STOP     RUN.                                                ST1274.2
080 . MOVE INSPT. ADD TO.         ST1274
0.   " "  P-OR-F1           .2
058400 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          ST1274.2
058500 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      ST1274.2
058600     MOVE "****TEST DELETED****" TO RE-MARK.                      0400     PERFORMPRINT-DETAIL.                                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
058700 PRINT-DETAIL.                                                    ST1274.2
058800     IF REC-CT NOT EQUAL TO ZERO                                  ST127410PERFORMPASS GO TO.                    .2
590MOVE  PARDOT-XST1274
059000             MOVE REC-CT TO DOTVALUE.                             ST1274.2
9      TO.PERFORM.2
059200     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               ST12740MOVE.6000000000TO.             ST1274
0PERFORM  FAIL-ROUTINE-EX.2
05940010      PRINT-DETAILST1274
059500     MOVE SPACE 0200 SORT-TEST-7.                                                     
059600     MOVE SPACE TO CORRECT-X.                                     ST1274.2
059700     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO04200 PASS  SORT-WRITE-7ST1274
090          SPACE RE-MARKST1274
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 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  ST1274.2
060200      CCVS-H-2BTODUMMY-RECORD PERFORM WRITE-LINE 3TIMESST1274
060300     MOVE CCVS-H-3  TO400SORT-WRITE-7ST1274.2
060400 COLUMN-NAMES-ROUTINE.                                            ST1274.2
060500     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM030       PRINT-DETAIL                                       .2
0MOVE TO. PERFORM 2 .   ST1274
060700     MOVE HYPHEN-LINE450IFSORTKEY-1 TO+1356                          .2
060800 END-ROUTINE460              PERFORM GO TOSORT-WRITE-8ST12742
690      HYPHEN-LINETO. PERFORM WRITE-LINE.ST1274.2
6100END-RTN-EXITST1274.2
061100     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1274.2
061200 END-ROUTINE-1.                                                   ST1274.2
6100      ADDERROR-COUNTER TO  ADD INSPECT-COUNTERTO.2
061400      . ADD DELETE-COUNTER ERROR-HOLDST1274
061500      ADD PASS-COUNTER TO ERROR-HOLD0400SORT-WRITE-8ST1274
061600*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   ST1274.2
6100MOVE TO CCVS-E-4-1ST1274
061800      MOVE ERROR-HOLD TO CCVS-E-4-2.                              ST1274.2
061900     MOVE CCVS-E-4 .                                ST1274.2
0200      MOVE TO DUMMY-RECORD WRITE-LINE           ST1274.2
0610  .                                                 .2
0200MOVETEST)FAILED ENDER-DESCST1274
062300     IF       ERROR-COUNTER IS EQUAL4470PERFORM.                                       .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
0280     PERFORM.                                          
0690END-ROUTINE-13ST1274
063000     IF DELETE-COUNTER IS EQUAL TO ZERO                           ST1274.2
00          "NO"TO  ELSEST1274
620 DELETE-COUNTERTO.                      ST1274
630     MOVE(S) DELETEDTO.ST1274
063400     MOVE CCVS-E-2 TO DUMMY-RECORD.0570PERFORM.                                       ST1274
063500      IF   INSPECT-COUNTER EQUAL 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
0390MOVE .PERFORMST1274
0046300*        NOTE THE RECORDS SHOULD BE SORTED INTO THE FOLLOWING     ST1274046400*             ORDER --- 8 1 7 2 6 5 3 4 --- THAT IS,              ST1274.2
4 .                                                      ST1274
0400     ADD  RECORD-COUNTST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
6430IF GREATER 42ST12742
064400         MOVE DUMMY-RECORD TO DUMMY-HOLD                          ST1274.2
064500         MOVE SPACE470               PASS TO.                    ST1274
0460          DUMMY-RECORD AFTERADVANCINGPAGEST1274
064700         MOVE CCVS-H-1  TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    ST1274.2
064800         MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    ST1274.2
0690         MOVE TO DUMMY-RECORDPERFORMWRT-LN 3 TIMES    ST1274.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-2TODUMMY-RECORD PERFORM WRT-LN.2
065300         MOVE HYPHEN-LINE460MOVESORT-TEST-9TO PAR-NAME.2
065400         MOVE DUMMY-HOLD TO DUMMY-RECORD                          4770     PERFORM  PRINT-DETAILST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
065500         MOVE ZERO TO RECORD-COUNT.                               ST1274.2
065600     PERFORM WRT-LN.048000*                                                                 ST1274.2
6700 .                                                          .2
065800         DUMMY-RECORD AFTERADVANCING1LINESST1274.2
065900     MOVE SPACE TO DUMMY-RECORD.                                  ST1274.2
066000 BLANK-LINE-PRINT.                                                ST1274.2
066100     PERFORM0440               PASSGO SORT-WRITE-10                   .2
066200 FAIL-ROUTINE.                                                    ST1274.2
066300     IF     COMPUTED-X NOT EQUAL TO SPACE                         ST1274.2
066400            GO TO   FAIL-ROUTINE-WRITE.                           ST1274.2
066500IFCORRECT-X EQUALTO GO  FAIL-ROUTINE-WRITE.ST1274.2
066600     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 ST1274.2
066700     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   ST1274.2
08        XXINFO . PERFORM 2 TIMES   .2
066900     MOVE   SPACES TO 0MOVE"TO. ST1274.2
0670      TO.                                      .2
067100 FAIL-ROUTINE-WRITESORT-TEST-11                                                    .2
2         TO PERFORM         ST1274
06730940IF EQUAL  418                              ST1274
067400     MOVE   TEST-CORRECT TO PRINT-REC PERFORM60.                                                    .2
067500     MOVE   SPACES090MOVE     SORTKEY-7TO                             .2
067600 FAIL-ROUTINE-EX. EXIT.                                           ST1274.2
067700 BAIL-OUT.                                                        000 .                                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
70          COMPUTED-A TO GO BAIL-OUT-WRITE.2
067900     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           ST1274.2
068000 BAIL-OUT-WRITE.                                                  ST1274.2
068100     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  ST1274.060PERFORMPASS TO.                  .2
068200     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE0PERFORM.                                               .2
068300     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 010          -1  CORRECT-NST1274
068400     MOVE   SPACES TO INF-ANSI-REFERENCE.                         ST1274.2
068500 BAIL-OUT-EX. EXIT.                                               ST1274.2
068600 CCVS1-EXIT PERFORM.                           ST12742
068700     EXIT.                                                        ST1274.2
068800*                                                                 ST1274.2
068900 OUTPROC-EXIT010RETURN AT END TO.              ST1274
069000EXIT-ONLYST1274
069100     PERFORM  CLOSE-FILES.                                        ST1274.2
069200*                                                                 ST1274.2
069300 RETURN-DUPLICATE-RECORDS SECTION.                                ST1274.2
069400*================================                                 ST1274.2
06950SORT-INIT-18ST1274.
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 SORT-TEST-18-1.                                                  ST1274.2
070100     MOVE    "SORT-TEST-18-1020 . ST1274.2
0720RETURNAT GO RETURN-ERROR.2
070300     IF       SORT-1 = WS-SORTFILE-REC                            ST1274.2
070400              PERFORM PASS                                        ST1274.2
070500              PERFORM PRINT-DETAIL                                ST1274.2
070600              GO TO   SORT-TEST-18-2.                             ST1274.2
070700 SORT-FAIL-18-1.                                                  ST1274.2
070800     PERFORM  FAIL.                                               ST1274.2
070900     PERFORM30 .                                                   .2
071000 SORT-TEST-18-2.                                                  ST1274030       PRINT-DETAILST1274
010         "SORT-TEST-18-2 PAR-NAME. ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
071200     IF       SORT-IDENTIFIER = "1"                               ST1274.030            SORTKEY-3 +.600000000               .2
10PERFORM                                        ST1274
071400              PERFORM PRINT-DETAIL                                ST1274.2
750              GO   SORT-TEST-19-1.ST1274
071600 SORT-FAIL-18-20MOVE600000      CORRECT-0V18ST1274
0710       FAILST1274.
071800     MOVE     SORT-IDENTIFIER TO COMPUTED-X.                      ST1274.2
7190MOVE1 TOST1274
700PERFORM.                                        .2
072100*                                                                 ST1274.2
072200 SORT-TEST-19-1.                                                  ST1274.2
03         "" TO.                        .2
740       SORTFILE-1H  TO.              ST1274
072500     IF       SORT-1 = WS-SORTFILE-REC                            3       .                                               .2
760              PASS.2
072700              PERFORM PRINT-DETAIL                                ST12740SORT-WRITE-16ST1274
780               TO.                             2
072900 SORT-FAIL-19-1  PRINT-DETAILST1274
073000     0CONTINUE-TESTING.                                        .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
073400     IF       SORT-IDENTIFIER50          "ENDOFFILENOTFOUND"TO.                 ST1274
073500              PERFORM PASS                                        ST1274.2
07360060          "SORT-TEST-17 . ST12742
0770GO   SORT-TEST-20-1ST1274
073800 SORT-FAIL-19-2.                                                  ST1274.2
70       FAILST1274
074000     MOVE     SORT-IDENTIFIER TO 070 .                                                    .2
074100     MOVE    "2" TO CORRECT-XST1274
720PERFORM.                                        .2
074300*                                                                 ST1274.2
074400 SORT-TEST-20-1.                                                  ST1274.2
740         "SORT-TEST-20-1 TOPAR-NAME .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
074600     RETURN   SORTFILE-1H070 .                                                     .2
074700     IF       SORT-1 = WS-SORTFILE-REC                            ST1274.2
074800              PERFORM PASS                                        ST127470     EXIT .                                                .2
074900              PERFORM PRINT-DETAIL                                ST127450 . MOVEINSPT P-OR-F1TO.         .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 SORT-TEST-20-2.                                                  ST1274.2
050     MOVE    "SORT-TEST-20-2" TO.                        .2
075600     IF       SORT-IDENTIFIER = "3"                               ST1274.2
075700              PERFORM PASS                                        ST1274.2
075800              PERFORM PRINT-DETAIL                                ST1274.2
07900              TO.                             .2
076000 SORT-FAIL-20-2090          TEST-RESULTS PRINT-REC WRITE-LINE.2
0610       FAILST1274
076200     MOVE     SORT-IDENTIFIER TO COMPUTED-X530PERFORM  THRUFAIL-ROUTINE-EX                 ST1274.2
076300     MOVE    "3" TO CORRECT-X.                                    ST12740940          ELSE PERFORM THRU .                 ST1274
07640PERFORM.                                        ST1274.2
076500*                                                                 ST1274.2
7660SORT-TEST-21-1ST1274
076700     MOVE    "SORT-TEST-21-1" TO90HEAD-ROUTINEST1274.2
076800     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
790     IFSORT-1                            ST1274
07700               PASSST1274
077100              PERFORM0MOVE TO. PERFORM 3 TIMES.2
0720               TO.                             .2
ST1274
077400     PERFORM60      CCVS-C-1 DUMMY-RECORD WRITE-LINE.2
07750PERFORM.                                         .2
077600 SORT-TEST-21-2.080END-ROUTINE.ST12742
077700     MOVE    "SORT-TEST-21-2" 090MOVE TO. WRITE-LINE.ST1274
077800     IF       SORT-IDENTIFIER = "4"                               ST1274.2
077900              PERFORM PASS                                        ST1274.2
078000              PERFORM PRINT-DETAIL061300      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-CO       ST1274
078100              GO TO   SORT-TEST-22-1.                             ST1274.2
078200 SORT-FAIL-21-2.                                                  ST1274.061600*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   ST1274MOVEPASS-COUNTER .                            .2
0PERFORM.                                               .2
078400     MOVE     SORT-IDENTIFIER TO COMPUTED-X.                      ST1274.2
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
00        SORTFILE-1H  TO.              .2
079100     IF       SORT-1 = WS-SORTFILE-REC                            ST1274.2
079200              PERFORM PASS                                        ST1274.2
079300              PERFORM PRINT-DETAIL                                ST1274.2
090               TO.                             ST12742
079500 SORT-FAIL-22-1.030          DELETE-COUNTER .                      ST1274
0760PERFORM.                                               .2
770     PERFORM  .                                         ST1274
079800 SORT-TEST-22-2.6600           "NO ST1274.2
079900     MOVE    "SORT-TEST-22-2" TO PAR-NAME.                        ST1274.2
080000     IF       60       "(S) REQUIRE INSPECTION" TO.            ST1274java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0800               PASSST1274
080200              PERFORM PRINT-DETAIL10.                                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
830              GOTO.                             .2
060  TO                          .2
080500     PERFORM  FAIL.                                               ST1274.2
80          SORT-IDENTIFIER COMPUTED-X.ST1274
870MOVE  CORRECT-XST1274
09           TOWRT-LN.2
080900*                                                                 ST1274.2
--> --------------------

--> maximum size reached

--> --------------------