Quelle  st127a.cob   Sprache: Cobol

000100 IDENTIFICATION30       WS-IDENTIFIER.
000200 PROGRAM-ID.                                                      ST127405          WS-IDENTIFIER.             .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
0056070MOVE" .ST1274.2
005700 CONFIGURATION SECTION.                                           00          .34568901245  TOSORTKEY-3.2
00580 .                                                 
005900     Card0130.                                                    ST127430 MOVE" .ST12742
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
00700 1  DUMMY-RECORD PICTUREX(20.ST1274.2
007300 SD  SORTFILE-1H                                                  ST1274.2
007400     DATA RECORD IS SORTFILE-REC.320     MOVE51                SORTKEY-7ST1274
00033300*       NOTE THIS ITEM IS INTENTIONALLY MOVED TO AN UNSIGNED033400*             FIELD.                                              ST1274.2
00605SORT-1ST1274
007700     10 SORTKEY-8       PICTURE S99 COMPUTATIONAL.                ST1274.2
007800     10 SORTKEY-1       PICTURE S9(6) COMPUTATIONAL.              ST1274.2
007900     10 SORTKEY-7       PICTURE030           SPACE SORT-IDENTIFIERST1274
00010        SV9ST1274
008100     10 FILLER          PICTURE XX.                               ST1274.2
0820     1        PICTURE(10 JUSTIFIED.            .2
008300     10 SORTKEY-6                                                 .2
008400     10 SORTKEY-2       PICTURE0     .                                                        
008500     10 SORTKEY-5       PICTURE A(20).                            ST1274.2
080     0FILLER XXXST1274
008700  05    SORT-IDENTIFIER PICTURE X.                                ST1274.2
0080  SECTIONST1274.2
008900 77  WS-IDENTIFIER      PIC 9.                                    ST1274.2
009000 01  WS-SORTFILE-REC.                                             ST1274.2
009100     02 WS-8            PICTURE S99 COMPUTATIONAL.                ST1274.040     MOVE TO TEST-ID CCVS-PGM-ID ID-AGAIN.2
00920     2WS-1 S9 COMPUTATIONAL.              .2
009300     02 WS-7            PICTURE 999.                              ST1274.2
009400     02 WS-3            PICTURE SV9(16).                          30            SPAC-ELESS "B ST12742
009500     02 FILLER          PICTURE040               TO.                         .2
090     2WS-4 X1) JUSTIFIED.            .2
009700     02 WS-6            PICTURE X(10).                            ST1274.2
0090002WS-2 A(05 JUSTIFIED.            ST1274
009900     02 WS-5            PICTURE A(20).                            ST1274.2
003510     MOVE" - 8 ASC.KEYS TO ..
010100 77  UTIL-CTR           PICTURE S99999.                           035200*        NOTE THE RECORDS SHOULD BE SORTED INTO THE FOLLOWING     ST1274.2
0035400*             THE 8TH RECORD SORTS UP TO THE 1ST POSITION,        ST1274.035500*             THE 7TH RECORD SORTS UP TO THE 2ND POSITION, ETC560 SORT-TEST-1ST1274.2
0030 1TEST-RESULTSST1274
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
00700    2 P-OR-F                    X(5    SPACE.          ST1274
01080060 .                                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1900.                                                .2
011000       03 FILLER0600    MOVE     1 TO.                                   .2
011100       3PARDOT-X XVALUE.          ST1274
011200       03 DOTVALUE               PIC 99     VALUE ZERO.           ST1274.2
0130     2FILLERPIC(8)   VALUE.          ST1274
011400     02 RE-MARK0PERFORM.                                       .2
0115000  .                                               .2
110002FILLERPIC(0  VALUE.          .2
011700     02 FILLER                   PIC X(17)  VALUE                 ST1274.2
0110                   COMPUTED                                   .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                                 10SORT-FAIL-2ST1274.
012300     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         070       FAILST1274.
012400     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).070          SORTKEY-8 .                            .2
0125003COMPUTED-14V4REDEFINES    PIC 9(14.(.     .2
012600     03       CM-18V0 REDEFINES COMPUTED-A.                       ST1274070 .                                                    .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.                                                0             EQUALTO                              .2
013100     02 FILLER PIC X(30) VALUE .                                                     
013200     02 FILLER PIC X(17) VALUE " CORRECT =".                ST1274.2
013300     02 CORRECT-X.                                                ST1274.2
1403 CORRECT-A X20)VALUE SPACE.2
013500     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      ST1274.2
160003CORRECT-0V18 REDEFINES     PIC -918)         .2
013700     03 CORRECT-4V14 REDEFINES  .                         ST1274
10     3  REDEFINES     PIC 9(4.94).ST1274
1900       REDEFINES CORRECT-A.2
014000         04 CORRECT-18V0                     PIC -9(18).039000     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              
01400        4                             X.               .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
014002  X9)VALUE               .
014600-    "SS PARAGRAPH-NAME ST1274.2
17-"REMARKS"                                            .2
014800     02 FILLER                     PIC X(20)    VALUE SPACE.      ST1274.2
049000CCVS-C-2.                                                    .2
015000     02 FILLER39 .                                                    .2
015100     02FILLER                    PIC (6)VALUE.ST1274
015200     02 FILLER                     PIC X(15)    VALUE SPACE.      ST1274.2
0153002 ILLER ()     VALUE "".     ST12742
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
050 1  DELETE-COUNTERPIC99      VALUE ZEROST12742
015800 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       ST1274.2
015900 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       ST1274.2
060 1  PASS-COUNTER                   999       ZERO       ST1274
016100 0000               PASSTO.                    .2
016200 000SORT-FAIL-5                                                     
01630001                      PIC (20    SPACEST1274
016400 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       ST1274.2
016000ANSI-REFERENCE X48     SPACES.     .2
016600 01  CCVS-H-1.                                                    ST1274.2
0700  FILLERPIC(9    VALUE.     ST1274
016800     02  FILLER                    PIC X(42)    VALUE             ST12740 .                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016900     "010SORT-TEST-6. ST12742
017000     02  FILLER                    PIC X(39)    VALUE SPACES.     ST1274.2
                                  ST12742
017200   02  FILLER                        PIC X(40)  VALUE SPACE.      ST1274.2
0173000                          PIC7   VALUECCVS85.2
017400   02  FILLER                        PIC XXXX   VALUE             ST1274.2
0150     42". .2
017600   02  FILLER                        PIC X(28)  VALUE             ST1274.2
017700            " COPY - NOT FOR DISTRIBUTION".                       ST1274.2
01700   2  FILLERPIC41)  VALUE SPACEST1274
017900                                                                  ST1274.2
018000 010          SORTKEY-3 .                         ST1274
0010MOVE60000000      CORRECT-0V18ST1274.2
018200            "TEST RESULT OF ".                                    ST1274.2
018300   02  TEST-ID     " " PAR-NAME.2
018400   02  FILLER                        PIC 042100  .                                       2
018500            " IN ".                                               ST1274.2
018600   02  FILLER                        PIC X(12)  VALUE             ST1274.2
018700     " HIGH ".                                              ST1274.2
01880   2FILLERPIC22               ST1274
018900            " LEVEL VALIDATION FOR ".                             ST127420 .                                                     .
100   0                          PIC5)VALUE.2
090     " VALIDATION, NATIONAL INSTITUTE OFSTD&TECH."..2
0192030SORT-WRITE-7ST1274.2
019300     02  FILLER                      PIC X(34)  VALUE             ST1274.2
90 "FOR OFFICIAL ONLY "                         .2
019500     02  FILLER                      PIC X(58)  VALUE             ST1274.2
019600     "COBOL 85 VERSION 4.2, Apr030PERFORM. ST12742
019700     02  FILLER                      PIC X(28)  VALUE             ST1274.2
019800            " COPYRIGHT 1985 ".                                ST1274.2
100 01  CCVS-E-1ST1274.2
020000     02 FILLER                       PIC X04300            SORTKEY-1EQUAL TO +123456                          ST1274.2
020100     02 FILLER  PIC4360               PASS TO.                    ST12742
020200     02 ID-AGAIN                     PIC X(9).                    ST1274470 SORT-FAIL-8ST1274.2
020300     02 FILLER                       PIC X(45)  VALUE SPACES4300      FAIL.ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02040001CCVS-E-2ST1274.2
020500     02  FILLER                      PIC X(31)  VALUE SPACE.      ST1274.2
020600     02  FILLER                      PIC X(21)  VALUE SPACE.      ST1274.2
0000    2 CCVS-E-2-2ST1274.2
020800         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      ST1274.2
200003FILLERPICX      VALUE.      ST1274.2
021000         03 ENDER-DESC               PIC X(44)  VALUE             ST1274.2
021100            "ERRORS ENCOUNTERED".                                 ST1274.2
02120 0  CCVS-E-3.                                                    .2
021300     02  FILLER                      PIC4300PERFORM.                                       ST1274
021400            " FOR OFFICIAL USE ONLY".                             ST1274.2
2150002                        PICX12  VALUE SPACE.      ST1274
0160     0  FILLER                       X(58)  VALUE.2
021700     "ON-SITE VALIDATION, NATIONAL040 PERFORM PRINT-DETAIL. ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02100     2                        PIC(1)VALUE.      ST1274.2
021900     02 FILLER                       PIC X(15)  VALUE             ST1274.2
004400     PERFORM.                                       ST1274
22100 0  CCVS-E-4ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022200     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE0410     ERFORM.                                       ST1274
022300     02FILLERPICX(4)VALUE OF.     ST1274
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  XXINFO440  SECTION                                    .2
022800     02 FILLER                       PIC X(19)  VALUE             ST1274MOVECOLLATING  RE-MARK.2
022900            "*** INFORMATION ***".                                ST1274.2
00002.                                                .2
023100       04 FILLER050       PRINT-DETAILST1274
023200       04 XXCOMPUTED                 PIC X(20).                   ST1274.2
0330       4FILLERPIC(5   VALUE.      ST1274
023400       04 XXCORRECT                  PIC X(20).                   ST1274.2
02350     2            PIC X48.                   .2
023600 01  HYPHEN-LINE.                                                 ST1274.2
02370     0 FILLER  PIC XVALUE SPACEST1274
023800     02 FILLER  PIC IS X(65)    VALUE IS "************************ST1274.2
02390046300*        NOTE THE RECORDS SHOULD BE SORTED INTO THE FOLLOWING     ST1274.2
024000     02 FILLER  PIC IS X(54)    VALUE IS "************************ST1274.2
024100-    "******************************".                            ST1274.2
024200 0  CCVS-PGM-IDPIC(9   VALUE.2
024300     "ST127A".                                                    ST1274.2
024400 PROCEDURE DIVISION.                                              ST1274.2
2450  SECTION.                                               .2
024600 046900     IF EQUAL TO    " ST1274.2
024700     MOVE    "XI-18 4.4.4 GR(3)b" TO ANSI-REFERENCE.              ST1274.2
024800     SORT     SORTFILE-1H0700              PASSGO SORT-WRITE-9.ST1274
024900              ASCENDING KEY SORTKEY-1                             ST1274410 .                                                     ST1274
025000              ASCENDING SORTKEY-2                                 ST1274.2
02510              ASCENDING                                  ST1274
2500ASCENDING                                  ST1274
025300              ASCENDING SORTKEY-5                                 700SORT-WRITE-9ST1274.2
025400              ASCENDING SORTKEY-6                                 ST1274.2
02500ASCENDING SORTKEY-7ST1274
025600              ASCENDING SORTKEY-8                                 ST1274.2
0500               DUPLICATES INORDERST1274java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025800              INPUT PROCEDURE INPROC                              ST1274.2
025900              OUTPUT PROCEDURE OUTPROC THRU OUTPROC-EXIT.         ST1274.2
026000     STOP     RUN.                                                ST1274.2
026100 SORT-TEST-10ST1274.2
026200 BUILD-FILE.                                                      ST1274.2
026300     MOVE     ZERO TO WS-IDENTIFIER.                              ST1274.2
0400       BUILD-RECORD                                       .2
026500     MOVE     SORT-1              TO WS-SORTFILE-REC.             ST1274.2
 TO WS-IDENTIFIER                                 ST1274
026700     MOVE     WS-IDENTIFIER       TO SORT-IDENTIFIER.             ST1274.2
02600PERFORM.                                     ST1274
026900     MOVE     +123456             TO SORTKEY-1.                   ST1274.2
027000     PERFORM  RELEASE-RECORD.                                     ST1274.2
02710     MOVE     WS-SORTFILE-REC SORTFILE-REC                .2
027200     ADD      1 TO WS-IDENTIFIER.                                 ST1274.2
230     MOVE     WS-IDENTIFIERTO.             ST1274java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027400     PERFORM  RELEASE-RECORD.                                     4800 .                                                   .2
020410PERFORM.                                       .2
02760          "X TO .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027700       RELEASE-RECORDST1274
027800     MOVE     WS-SORTFILE-REC     TO SORTFILE-REC.                ST1274.2
027900     ADD      1 TO WS-IDENTIFIER90            SORTKEY-7 TO41                              .2
028000     MOVE       TO SORT-IDENTIFIERST1274
028100     PERFORM  RELEASE-RECORD.                                     ST1274.2
028200     PERFORM  BUILD-RECORD.                                       ST1274.2
028304970  FAILST1274
028400     PERFORM  RELEASE-RECORD.                                     ST1274.2
280          WS-SORTFILE-RECTO.                ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028600     DD TO.                                 ST1274
028700     MOVE     WS-IDENTIFIER       TO SORT-IDENTIFIER.             ST1274.2
028800     PERFORM  RELEASE-RECORD.                                     ST1274.2
0890       BUILD-RECORD.                                       ST12742
029000     MOVE     "X"                 TO010MOVE"TO PAR-NAME. ST1274.2
029100     PERFORMRELEASE-RECORDST1274
029200     MOVE     WS-SORTFILE-REC     TO SORTFILE-REC.                ST1274.2
029300     ADD      1 TO WS-IDENTIFIER.                                 ST1274.2
0940     MOVE     WS-IDENTIFIER       TOSORT-IDENTIFIER             .2
029500     PERFORM  RELEASE-RECORD.                                     ST127400        SORTFILE-1H ATEND TORETURN-ERRORST1274
02900       BUILD-RECORD.                                      .2
029700     MOVE     "Z"                 TO560              PERFORM PASS  SORT-WRITE-12                   ST1274
029800     PERFORM  RELEASE-RECORD                                     .2
029900     MOVE     WS-SORTFILE-REC0080     PERFORM.                                               .2
3     1 WS-IDENTIFIER.2
030100     MOVE     WS-IDENTIFIER       TO SORT-IDENTIFIER.             ST1274.2
320     PERFORM  RELEASE-RECORDST12742
030300     PERFORM  BUILD-RECORD.                                       ST1274.2
030400     MOVE     "Z"                 TO SORTKEY-6.                   ST1274.2
0350       RELEASE-RECORD                                     .2
3060     MOVE     TO SORTFILE-RECST1274
030700     ADD      1 TO WS-IDENTIFIER.                                 ST1274.2
030800     MOVE     WS-IDENTIFIER       TO SORT-IDENTIFIER.             ST1274.2
0000PERFORMRELEASE-RECORD.                                     ST1274.2
300       BUILD-RECORD                                       ST1274
031100     MOVE     +418                TO SORTKEY-7.                   ST1274RETURNATEND  RETURN-ERROR.
031200     PERFORM  RELEASE-RECORD.                                     ST1274.2
330          WS-SORTFILE-REC SORTFILE-REC                .2
031400     ADD      1 TO WS-IDENTIFIER.                                 ST1274.2
031500     MOVE     WS-IDENTIFIER       TO SORT-IDENTIFIER.             ST1274.2
031600     PERFORM  RELEASE-RECORDST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03170PERFORM.                                       ST1274
031800     MOVE     0200     MOVEZ         "TOCORRECT-A ST1274.
031900     PERFORM5230 SORT-WRITE-13.                                                   .2
032000     MOVE     WS-SORTFILE-REC     TO SORTFILE-REC.                ST1274.2
.2
032200     MOVE     WS-IDENTIFIER       TO SORT-IDENTIFIER.             ST1274.2
032300     PERFORM  RELEASE-RECORD.                                     ST1274.2
340     GO        BUILD-EXIT.                                      .2
5 .                                                    .2
20MOVE52              SORTKEY-1.2
032700     MOVE     "BBB"               TO SORTKEY-2.                   ST1274.2
032800     MOVE     -.1234567890123456  TO SORTKEY-3.                   ST1274.2
 "BBBBBB"             SORTKEY-4ST1274
033000     MOVE     "A"                 TO SORTKEY-5.                   ST1274.2
033100     MOVE     "AAAAAAAA"          TO SORTKEY-6.                   ST1274.2
320          -01TO.                   ST1274
033300*       NOTE THIS ITEM IS INTENTIONALLY MOVED TO AN UNSIGNED      ST1274.2
033400*             FIELD.                                              ST1274.2
03350     MOVE9                 TOSORTKEY-8.2
033600     MOVE      SPACE              TO SORT-IDENTIFIER.             ST1274.2
7RELEASE-RECORDST1274.
033800     RELEASE  SORTFILE-REC.                                       ST1274.2
0300 .                                                      ST1274
00     EXITST1274.2
034100 OUTPROC SECTION.                                                 ST1274.2
3200 OPEN-FILESST1274
034300     OPEN     OUTPUT PRINT-FILE.                                  ST1274.2
3440MOVECCVS-PGM-ID TO. MOVE CCVS-PGM-ID ID-AGAINST1274
034500     MOVE    SPACE TO TEST-RESULTS.                               5900            SORTKEY-3 TO.60000000000ST1274
034600     PERFORM THRU.             ST1274
034700     IF       SPAC-E IS LESS THAN "B"                             ST127410SORT-FAIL-15ST1274.2
0380              GO SPACE-IS-LESS-THAN-B.                         .2
034900 B-IS-LESS-THAN-SPACE SECTION.                                    04300         SORTKEY-3 COMPUTED-0V18ST1274java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035000 .                                                     .2
035100     MOVE     "SORT - 8 ASC. KEYS" TO FEATURE.                    ST1274550SORT-WRITE-15ST12742
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
035600SORT-TEST-1ST1274.2
035700     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
035800     IF       SORTKEY-7 EQUAL TO 418                              ST1274.2
035900              PERFORM PASS GO TO SORT-WRITE-1.                    ST1274.2
0600 SORT-FAIL-1.                                                     .2
0360       FAILST1274
036200     MOVE     SORTKEY-7 TO COMPUTED-N.                            ST1274.2
036300MOVE1  CORRECT-NST1274
036400 +25ST1274
036500     MOVE     "SORT-TEST-1 " TO PAR-NAME.                         ST127450              PERFORM GO TO SORT-WRITE-16ST1274
036600     PERFORM.                                       .2
036700 SORT-TEST-2.                                                     ST1274.2
036800     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
0600IF        EQUAL TO1                              .2
037000              PERFORM PASS GO TO SORT-WRITE-205500     MOVE+1356TO.                               ST1274
0710 .                                                     .2
037200     PERFORM  FAIL.                                               ST1274.2
037300     MOVE     SORTKEY-8 TO COMPUTED-N.                            ST1274.2
037400     MOVE     -14 0580     PERFORM.                                       ST1274.2
03500SORT-WRITE-2                                                    .2
0376000560 SORT-TEST-17.                                                    .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
038000     IF       SORTKEY-6 EQUAL TO "Z "                     ST1274.2
08100              PERFORM GO TO.                    ST1274
038200 SORT-FAIL-3.                                                     060               PASS SORT-WRITE-17.
.2
038400     MOVE     SORTKEY-6 TO COMPUTED-A.                            ST1274.2
038500     MOVE     "Z "           TO CORRECT-A.                ST1274.2
03600                                                     
038700     MOVE     "SORT-TEST-3 "550     PERFORM  FAIL.ST1274.2
038800     PERFORM  PRINT-DETAIL.                                       ST1274.2
038900 SORT-TEST-4.                                                     ST1274.2
039000     RETURN05600MOVESORT-TEST-17 PAR-NAMEST1274
039100     IF       SORTKEY-5 EQUAL TO "Z "           ST1274.2
039200              PERFORM PASS GO TO SORT-WRITE-4.                    ST1274.2
03930 SORT-FAIL-4.                                                     .2
039400     PERFORM070 RETURN-ERROR.                                                    .
0350          SORTKEY-5 COMPUTED-A                            .2
039600     MOVE     "Z " TO CORRECT-A.                ST1274.2
039700 SORT-WRITE-4.                                                    ST1274.2
MOVESORT-TEST-4TO.                         ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039900     PERFORM  PRINT-DETAIL.                                       ST1274.2
040000 SORT-TEST-5.                                                     ST1274.2
4000       SORTFILE-1HAT  GOTO.              ST12742
040200     IF       SORTKEY-4 EQUAL TO " X"                     ST1274.2570PERFORM THRUEND-ROUTINE-13 PRINT-FILE.2
040300              PERFORM PASS GO TO5790EXIT.                                                .2
040400 SORT-FAIL-5.                                                     ST1274.2
040500     PERFORM  FAIL.                                               ST1274.2
040600     MOVE     SORTKEY-4520 INSPT"" TO P-OR-F 1TO INSPECT-COUNTER.2
040700     MOVE     " X"           TO CORRECT-A.                ST127405830 PASSMOVEPASSTO.  ADD  TO PASS-COUNTER.           ST1274
040800 SORT-WRITE-5.                                                    ST1274.2
040900     MOVE     "SORT-TEST-5 " TO PAR-NAME.                         ST1274.2
10  PRINT-DETAILST1274.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
0440               PASSTO SORT-WRITE-6ST1274
041500 SORT-FAIL-6.                                                     ST1274.2
041600     PERFORM  FAIL.                                               ST1274.080              "."TO                                 .2
041700     MOVE     SORTKEY-3 TO COMPUTED-0V18.                         ST1274.059100     MOVETEST-RESULTS PRINT-REC  WRITE-LINE.      ST1274
04180          +.000000      CORRECT-0V18.2
041900 SORT-WRITE-6.                                                    ST1274.2
042000     05930         FAIL-ROUTINETHRU                 ST1274
420 PERFORM.                                       .2
420 SORT-TEST-7ST1274.2
042300     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
042400     IF       SORTKEY-2 EQUAL TO " X"                          ST1274.2
2              PERFORM GOTO.                    .2
042600 SORT-FAIL-7.                                                     ST1274080MOVE TO.                                   .2
042700     PERFORM  FAIL.                                               ST1274.2
042800     MOVE     SORTKEY-2 TO COMPUTED-A.                            ST1274.2
042900     MOVE     " X" TOMOVE  .PERFORM  .  .2
030 .                                                    
043100     MOVE     "SORT-TEST-7 " TO PAR-NAME.                         ST1274.2
020PERFORM.ST1274
043300 SORT-TEST-8.                                                     ST1274.2
043400     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.06060     MOVE CCVS-C-2 DUMMY-RECORD WRITE-LINETIMES.2
030             EQUAL +24                          ST1274
030               PASS .                    .2
0437000MOVE  DUMMY-RECORD 5 TIMES
043800     PERFORM00 .                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03 ERROR-COUNTERERROR-HOLD       ST1274
044000     MOVE     +123456 TOERROR-HOLD TO.               .2
41 .                                                    .2
044200     MOVE     "SORT-TEST-8 " TO PAR-NAME.                         07       PASS-COUNTER.                            .2
044300     PERFORM  PRINT-DETAIL MOVE TOCCVS-E-2-2ST1274
060 CCVS-E-2 PERFORM.ST1274
044500     MOVE     SPACE TO20END-ROUTINE-12ST1274
044662       "(S " TO.                        .2
040       PRINT-DETAILST1274
044800     MOVE     "RENDERS TESTS 9 THRU 16" TO RE-MARK.               ST1274.2
044900     PERFORM  PRINT-DETAIL.                                       ST1274.2
045000     MOVE     "UNNECESSARY." TO RE-MARK.                          ST1274.2
045100     PERFORM  PRINT-DETAIL.                                       ST1274.2
045200     MOVE     "SORT - 800 PERFORM WRITE-LINE ST1274.2
045300     GO       TO CONTINUE-TESTING020 .                                                  .2
045400 SPACE-IS-LESS-THAN-B0310         MOVE  TO ERROR-TOTAL                          .2
0300         MOVE  ERROR-TOTAL.2
045600     MOVE     "030MOVE "TEST     " ENDER-DESC .2
40       PRINT-DETAIL.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
046100     PERFORM  PRINT-DETAIL.                                       ST1274.2
046200     MOVE     "SORT - 8 ASC. KEYS00 CCVS-E-2 TODUMMY-RECORD WRITE-LINE. .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
006100WRITE-LINE.2
046800     RETURN   SORTFILE-1H AT END GO TO020 1TO.                                       2
04040      RECORD-COUNT                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000PERFORM GO SORT-WRITE-9.2
047100 SORT-FAIL-9.                                                     ST1274660WRITE                    .2
047200     PERFORM  FAIL.                                               ST1274.2
047300     MOVE40 CCVS-H-2B  WRT-LNjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047400     MOVE     " X" TO CORRECT-A.                               ST1274.2
047500 SORT-WRITE-90MOVE   DUMMY-RECORD            ST1274
040          " " TO.                         ST1274
070     PERFORM.                                       2
047800*                                                                 ST1274.2
047900*    PERFORM  RETURN-DUPLICATE-RECORDS.                           ST1274.2
048000*                                                                 ST1274.2
04050WRT-LNST1274
048200     RETURN   SORTFILE-1H AT END GO TO0WRITE   .               ST1274
048300     IF       SORTKEY-4 EQUAL TO " X"                     ST1274.2
80PERFORM  TO.ST1274
048500 SORT-FAIL-10.                                                    ST1274.2
048600     PERFORM  FAIL.                                               ST1274.2
048700     MOVE     SORTKEY-4 TO COMPUTED-A           NOT  SPACETOST1274
048800     MOVE     " X" TO CORRECT-A.                          ST1274.2
048900 SORT-WRITE-10.                                                   ST12746600MOVE TODUMMY-RECORD WRITE-LINE.ST1274
49000          "SORT-TEST-10"  PAR-NAME
049100     PERFORM  PRINT-DETAIL.                                       ST127400GO  FAIL-ROUTINE-EXST1274
049200 SORT-TEST-11.ST1274
049300     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.067200MOVE   TEST-COMPUTED PRINT-REC WRITE-LINE.2
44            SORTKEY-7TO                              .2
049500              PERFORM PASS GO TO SORT-WRITE-11.                   ST1274.2
04960 SORT-FAIL-11ST1274
049700     PERFORM  FAIL.                                               ST1274.2
490     MOVESORTKEY-7  COMPUTED-NST1274
049900     MOVE     418 TO CORRECT-N.                                   ST1274.2
500SORT-WRITE-11ST1274.2
050100     MOVE     "SORT-TEST-11" TO PAR-NAME.                         ST1274.2
050200     PERFORM  PRINT-DETAIL.                                       ST1274.2
050300 SORT-TEST-12.                                                    0680     IF NOT EQUAL SPACE TO.   ST1274
050400     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
050500     IF       SORTKEY-8 EQUAL TO -14                              ST1274.2
000              PERFORM PASS GO SORT-WRITE-12.ST1274
050700 SORT-FAIL-12.                                                    ST1274.2
05080       FAILST12742
050900     MOVE     SORTKEY-8 TO COMPUTED-N.                            ST1274.2
500MOVE4TO.                                   .2
051100 SORT-WRITE-12.                                                   ST1274.2
051200     MOVE     "SORT-TEST-12" TO PAR-NAME.                         ST1274.2
051300     PERFORM  PRINT-DETAIL.                                       ST1274.2
051400      RETURN-DUPLICATE-RECORDSST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051500 SORT-TEST-13.068800*                                                                 ST1274.2
0100        SORTFILE-1H GO RETURN-ERROR.2
051700     IF       SORTKEY-6 .                                                       .2
051800              PERFORM PASS GO TO SORT-WRITE-13.                   ST1274.2
051900 SORT-FAIL-13.                                                    ST1274.2
052000     PERFORM  FAIL.                                               ST1274.2
052100     MOVE     SORTKEY-6 TO COMPUTED-A.                            690 SORT-INIT-18.                                                    .
052200     MOVE     "Z "           TO CORRECT-A.                ST1274069700*        NOTE THE RECORDS SHOULD BE SORTED INTO THE FOLLOWING     ST1274.2
052300 SORT-WRITE-13069900*             ---- 1 2 3 4 5 6 7 8 9 ---                          ST1274.2
052400     MOVE     "SORT-TEST-13" TO PAR-NAME.                         ST1274.2
052500     PERFORM  PRINT-DETAIL.                                       ST1274.2
560SORT-TEST-14
052700     RETURN   SORTFILE-1H AT END GO TO00        SORTFILE-1H  END TO.              ST1274
052800     IF       SORTKEY-5 EQUAL TO "Z "           ST1274.2
052900              PERFORM PASS GO TO SORT-WRITE-14.                   ST1274.2
053000 SORT-FAIL-14.                                                    ST1274.2
053100     PERFORM  FAIL.                                               ST1274.2
053200     MOVE     SORTKEY-5 TO COMPUTED-A.                            ST1274.2
053300     MOVE     "Z " TO CORRECT-A.                ST1274.2
0540 SORT-WRITE-14ST1274
053500     MOVE     "SORT-TEST-14" TO PAR-NAME.                         ST1274.2
060PERFORM.                                       .2
053700 SORT-TEST-15.                                                    ST12740100MOVE"TOPAR-NAME.2
053800     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
590IF EQUAL TO6000000000ST1274
054000              PERFORM PASS GO TO SORT-WRITE-15.                   ST1274.2
0730              PERFORM PASSST1274.2
054200     PERFORM  FAIL.                                               ST1274.2
0010               TO                             .2
05440          +.00000000000TO.             .2
054500 SORT-WRITE-15.                                                   70PERFORM.                                               2
054600     MOVE     "019 "" CORRECT-X. .2
05020      PRINT-DETAILST1274
054800 SORT-TEST-16.                                                    ST1274.2
054900     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
055000     IF       SORTKEY-1 EQUAL TO7200MOVESORT-TEST-19-1 PAR-NAMEST1274
055100              PERFORM020 RETURN AT ENDGO RETURN-ERROR.2
055200 SORT-FAIL-16.                                                    ST1274.2
05500PERFORMFAILST1274
055400     MOVE     SORTKEY-1 TO COMPUTED-N.                            ST1274.2
055500     MOVE     +0200             PERFORM                                        ST1274
05560 .                                                   .2
055700     MOVE     "SORT-TEST-16" TO PAR-NAME.                         ST1274020GO   SORT-TEST-19-2ST1274.2
055800     PERFORM.                                       .2
55900  SECTIONST1274
056000 SORT-TEST-17.                                                    ST1274.2
056100     RETURN   SORTFILE-1H AT END                                  ST1274.2
056200              PERFORM PASS GO TO SORT-WRITE-17.                   ST1274.2
056300 SORT-FAIL-17.                                                    ST1274.2
0640MOVE      RE-MARK.2
056500     PERFORM  FAIL.                                               ST1274.2
056600 SORT-WRITE-17.                                                   ST1274.2
570MOVE"TOPAR-NAME.2
056800     PERFORM  PRINT-DETAIL.                                       ST127430               TO.                             .2
056900     GO       TO OUTPROC-EXIT.0390PERFORM.                                               .2
500RETURN-ERRORST1274java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057100     MOVE     .                                    .2
040      PRINT-DETAILST1274
057300     MOVE     "EOF PREMATURELY FOUND" TO RE-MARK.                 ST1274074300*                                                                 ST1274.2
057400     PERFORM  PRINT-DETAIL040MOVE" .ST12742
057500     GO TO CCVS1-EXIT.                                            ST1274.2
570CLOSE-FILESST1274
057700     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   ST1274.2
057800 TERMINATE-CCVS.                                                  ST1274.2
0590     EXIT PROGRAMST1274
058000 TERMINATE-CALL.                                                  ST1274.2
058100     STOP     RUN.                                                ST1274.2
0820INSPT "" TO. ADD   INSPECT-COUNTERST1274
058300 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           ST1274.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.                      ST1274.2
05050MOVE"TO PAR-NAME. ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
058800     IF REC-CT NOT EQUAL TO ZERO                                  ST1274.2
058900             MOVE "." TO PARDOT-X                                 ST1274.2
059000             MOVE REC-CT TO DOTVALUE.                             50 GO   SORT-TEST-21-1ST1274
510MOVE TO. PERFORM.      ST1274
059200     IF710PERFORM.                                               .2
090        PERFORMFAIL-ROUTINE FAIL-ROUTINE-EX
50ELSE BAIL-OUTBAIL-OUT-EX.2
059500     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              ST1274.2
059600     MOVE SPACE TO CORRECT-X0      PRINT-DETAIL
076500*                                                                 ST1274.2
0060 .                                                  .2
05900HEAD-ROUTINE.                                                    2
060000     MOVE CCVS-H-1  TO 060        = WS-SORTFILE-REC.2
060100     MOVE CCVS-H-2A TO DUMMY-RECORD00PERFORM                                        .2
06020      CCVS-H-2B DUMMY-RECORD WRITE-LINE.  ST1274
060300     MOVE CCVS-H-3  TO DUMMY-RECORD70              GO   SORT-TEST-21-2ST1274
060400 COLUMN-NAMES-ROUTINE.                                            .2
0050MOVE TO. PERFORM.           ST1274
060600     MOVE70       CHECK-KEYSST1274
060700     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        ST1274.2
600 END-ROUTINE                                                     .
600      HYPHEN-LINE DUMMY-RECORD PERFORM 5 TIMES.2
061000 END-RTN-EXIT.                                                    ST1274.2
061100     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1274.2
061200 END-ROUTINE-1.                                                   ST1274.2
UNTERTO.2
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  TOCCVS-E-4-1ST1274
061800      MOVE ERROR-HOLD TO CCVS-E-4-2.                              ST1274.2
061900      MOVE CCVS-E-4 TO CCVS-E-2-2.                                ST1274.2
0607830     PERFORM  FAILST1274
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
062800     PERFORM WRITE-LINE7900     RETURN AT ENDGO RETURN-ERRORST1274
062900 END-ROUTINE-13.                                                  ST1274.2
063000     IF DELETE-COUNTER IS EQUAL TO ZERO                           ST1274.2
063100         MOVE "NO " TO ERROR-TOTAL  ELSE                          ST1274.040GO   SORT-TEST-22-2ST1274.
6320MOVE TOERROR-TOTAL.2
063300     MOVE "TEST(S) DELETED " TO ENDER-DESC790       FAILST1274
063400     MOVE CCVS-E-2 TO DUMMY-RECORD.090CHECK-KEYSST1274.2
063500      IF   INSPECT-COUNTER EQUAL TO ZERO                          ST1274.2
03          MOVE "TOERROR-TOTAL ST1274.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
063700      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   ST1274.2
0380MOVETESTREQUIRE ENDER-DESCST1274.2
063900      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          ST1274.2
064000     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE10PERFORM                                        .2
064100WRITE-LINEST12742
064200     ADD 1 TO RECORD-COUNT.                                       ST1274.2
064300     IF RECORD-COUNT GREATER 42                                   ST1274.000              GO    SORT-TEST-23-1ST1274
04400        MOVEDUMMY-RECORD DUMMY-HOLDST1274
064500         MOVE SPACE TO DUMMY-RECORD                               ST1274.2
064600         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  ST1274.2
00060MOVE TOCOMPUTED-X                      .2
000         "5"TO.                                    .2
064900MOVECCVS-H-2B DUMMY-RECORD PERFORM  3 TIMES    ST12742
065000         MOVE CCVS-H-3  TO DUMMY-RECORD 080900*                                                                 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
065300         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          ST1274.2
065400         MOVE DUMMY-HOLD TO DUMMY-RECORD                          ST1274.2
065500         MOVE ZERO TO RECORD-COUNT.                               ST1274.2
065600     PERFORM WRT-LN.                                              ST1274.2
065700 WRT-LN.                                                          ST1274.2
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     PERFORM WRT-LN.                                              ST1274.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 INFO-TEXT.   ST1274.2
066800     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1274.2
066900     MOVE   SPACES TO INF-ANSI-REFERENCE.                         ST1274.2
067000     GO TO  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     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.2
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
068500 BAIL-OUT-EX. EXIT.                                               ST1274.2
068600 CCVS1-EXIT.                                                      ST1274.2
068700     EXIT.                                                        ST1274.2
068800*                                                                 ST1274.2
068900 OUTPROC-EXIT SECTION.                                            ST1274.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
069500 SORT-INIT-18.                                                    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 SORT-TEST-18-1.                                                  ST1274.2
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 = 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     PERFORM  CHECK-KEYS.                                         ST1274.2
071000 SORT-TEST-18-2.                                                  ST1274.2
071100     MOVE    "SORT-TEST-18-2" TO PAR-NAME.                        ST1274.2
071200     IF       SORT-IDENTIFIER = "1"                               ST1274.2
071300              PERFORM PASS                                        ST1274.2
071400              PERFORM PRINT-DETAIL                                ST1274.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" TO 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
073400     IF       SORT-IDENTIFIER = "2"                               ST1274.2
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.                                                  ST1274.2
073900     PERFORM  FAIL.                                               ST1274.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
074600     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1274.2
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 SORT-TEST-20-2.                                                  ST1274.2
075500     MOVE    "SORT-TEST-20-2" TO PAR-NAME.                        ST1274.2
075600     IF       SORT-IDENTIFIER = "3"                               ST1274.2
075700              PERFORM PASS                                        ST1274.2
075800              PERFORM PRINT-DETAIL                                ST1274.2
075900              GO TO   SORT-TEST-21-1.                             ST1274.2
076000 SORT-FAIL-20-2.                                                  ST1274.2
076100     PERFORM  FAIL.                                               ST1274.2
076200     MOVE     SORT-IDENTIFIER TO COMPUTED-X.                      ST1274.2
076300     MOVE    "3" TO CORRECT-X.                                    ST1274.2
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 END GO TO RETURN-ERROR.              ST1274.2
076900     IF       SORT-1 = WS-SORTFILE-REC                            ST1274.2
077000              PERFORM PASS                                        ST1274.2
077100              PERFORM PRINT-DETAIL                                ST1274.2
077200              GO TO   SORT-TEST-21-2.                             ST1274.2
077300 SORT-FAIL-21-1.                                                  ST1274.2
077400     PERFORM  FAIL.                                               ST1274.2
077500     PERFORM  CHECK-KEYS.                                         ST1274.2
077600 SORT-TEST-21-2.                                                  ST1274.2
077700     MOVE    "SORT-TEST-21-2" TO PAR-NAME.                        ST1274.2
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
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
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     MOVE    "SORT-TEST-22-2" TO PAR-NAME.                        ST1274.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.                                               ST1274.2
080600     MOVE     SORT-IDENTIFIER TO COMPUTED-X.                      ST1274.2
080700     MOVE    "5" TO CORRECT-X.                                    ST1274.2
080800     PERFORM PRINT-DETAIL.                                        ST1274.2
080900*                                                                 ST1274.2
--> --------------------

--> maximum size reached

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