| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/COBOL/Test-Suite/COBOL/ST/ Datei vom 4.1.2008 mit Größe 80 kB |
|
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 FOLLOWIN 0035400* THE 8TH RECORD SORTS UP TO THE 1ST POSITION, ST1274.035500* THE 7TH RECORD SORTS UP TO T 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 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: I 016900 "010SORT-TEST-6. ST127 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. 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.StringIndexOutOfBound 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. 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 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 o 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 027400 PERFORM RELEASE-RECORD. 4800 . .2 020410PERFORM. .2 02760 "X TO .java.lang.StringIndexOutOfBoundsE 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 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: Ind 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.Str 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 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-FI 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. ST 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-L 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- 030 EQUAL +24 ST1274 030 PASS . .2 0437000MOVE DUMMY-RECORD 5 TIMES 043800 PERFORM00 . java.lang.StringIndexOutOfBoundsException: Index 80 out of bound 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 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. 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 bou 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 o 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 WRI 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: 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 T 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 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.StringIndexOutOfB 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.StringIndexO 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 --> --------------------
¤ Dauer der Verarbeitung: 0.17 Sekunden (vorverarbeitet) ¤*© Formatika GbR, Deutschland |
|
||||||||||||||
2026-04-02