| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/C/Firefox/third_party/rust/mls-rs/src/ (Firefox Browser Version 153.0.1©) Datei vom 27.6.2026 mit Größe 1 kB |
|
Quelle st108a.cob Sprache: Cobol |
|||||||||||||||
|
000100 IDENTIFICATION DIVISION. ST1084.2 . 2 000300 ST108A. ST1084.2 000400**************************************************************** ST1084.2 000500* * ST1084.2 000600* VALIDATION FOR:- * ST1084.2 000700* * ST1084.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".ST1084.2 000900* * ST1084.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".ST1084.2 001100* * ST1084.2 001200**************************************************************** ST1084.2 001300* * ST1084.2 001400* X-CARDS USED BY THIS PROGRAM ARE :- * ST1084.2 001500* * ST1084.2 001600* X-55 - SYSTEM PRINTER NAME. * ST1084.2 001700* X-82 - SOURCE COMPUTER NAME. * ST1084.2 001800* X-83 - OBJECT COMPUTER NAME. * ST1084.2 001900* * ST1084.2 002000**************************************************************** ST1084.2 002100* ST108 IS A COMPLETELY SELF-CONTAINED PROGRAM. THE INPUT ST1084.2 002200* PROCEDURE BUILDS THE EIGHT-RECORD FILE SHOWN BELOW. THE ST1084.2 002300* OUTPUT PROCEDURE CHECKS THE SORTED FILE AND GENERATES THE ST1084.2 002400* REPORT. ST1084.2 002500* SORT SORT SORT SORT SORT SORT SORT SORT ST1084.2 002600* KEY-1 KEY-2 KEY-3 KEY-4 KEY-5 KEY-6 KEY-7 KEY-8ST1084.2 002700* S9(6) A(5) SV9(16) X(10) A(20) X(10) 999 S99 ST1084.2 002800* USAGE JUST JUST USAGEST1084.2 002900* COMP RIGHT RIGHT COMP ST1084.2 003000* ST1084.2 003100* +123456 BBB -.1234 BBBBBB A AAAAAAAA 501 +99 ST1084.2 003200* -054321 X -.1234 BBBBBB A AAAAAAAA 501 +99 ST1084.2 003300* -054321 BBB +.6 BBBBBB A AAAAAAAA 501 +99 ST1084.2 003400* -054321 BBB -.1234 X A AAAAAAAA 501 +99 ST1084.2 003500* -054321 BBB -.1234 BBBBBB Z AAAAAAAA 501 +99 ST1084.2 003600* -054321 BBB -.1234 BBBBBB A Z 501 +99 ST1084.2 003700* -054321 BBB -.1234 BBBBBB A AAAAAAAA 418 +99 ST1084.2 003800* -054321 BBB -.1234 BBBBBB A AAAAAAAA 501 -14 ST1084.2 003900* ST1084.2 004000* THIS PROGRAM CHECKS THE COMPILER"S ABILITY TO HANDLE EIGHT ST1084.2 004100* ASCENDING KEYS IN ONE FILE. ST1084.2 004200 ST1084.2 004300 ENVIRONMENT DIVISION. CONFIGURATION java.lang.StringIndexOutOfBoundsException java.lang.StringIndexOutOfBoundsException: Range [28, 20) out of bounds for leng 004500 SOURCE-COMPUTER. ST1084.2 004600 Card0130. ST1084.2 004700 .ST1084.2 004800 Card0131. ST1084.2 004900 INPUT-OUTPUT SECTION. ST1084.2 005000 ST1084.2 005100 SELECT PRINT-FILE ASSIGN TO ST1084.2 005200 "C0085" . ST1084.2 SELECTSORTFILE-1HASSIGN TOST1084.2 005400 "C0039" . ST1084.2 005500 DIVISION 2 005600 FILE SECTION. ST1084.2 005700 FD PRINT-FILE. ST1084.2 005800 01 (120. ST1084.2 005900 01 DUMMY-RECORD PICTURE X(120). ST1084.2 006000 SD SORTFILE-1H005700FDPRINT-FILE 006100 DATA RECORD IS SORTFILE-REC. ST1084.2 006200 SORTFILE-REC. ST1084.2 006300 02 SORTKEY-8 PICTURE S99 COMPUTATIONAL. ST1084.2 006400 02 SORTKEY-1 PICTURE S9(6) COMPUTATIONAL. ST1084.2 006500 02 SORTKEY-7 PICTURE 999. ST1084.2 006600 02 SORTKEY-3 006000 SD SORTFILE-1H ST1084.2 006700 02 FILLER PICTURE XX. ST1084.2 006800 02 SORTKEY-4 PICTURE X(10) JUSTIFIED RIGHT. 00620001 SORTFILE-REC. ST1084.java.lan 006900 02 SORTKEY-6 PICTURE X(10). ST1084.2 007000 02 SORTKEY-2 PICTURE(05 .ST1084.java.lang.StringIndexOutOfBoundsException: In 007100 02 SORTKEY-5 PICTURE A(20). ST1084.2 007200 02FILLERPICTUREXX . 007300WORKING-STORAGESECTION . 007400 77 UTIL-CTR PICTURE 006900 02 SORTKEY-6 PICTURE X(10.2 007500 77 SPAC-E X".ST1084.2 007600 01 TEST-RESULTS. ST1084.2 007700 02 FILLER PIC X VALUE02 XXX .java.lang.StringIndexOutOfBoundsException: Index 80 007800 02 FEATURE PIC X(20) VALUE SPACE. ST1084 X"" 2 007900 02 .ST10842 X(5 2 008100 02 FILLER PIC X VALUE SPACE. ST1084.2 008200 02 PAR-NAME 02 X5 .2 008300 03 FILLER PIC X(19) VALUE00820002 ST1084.2 008400 03 PARDOT-X PIC X SPACE. ST1084.2 008500 03 DOTVALUE PIC 99 VALUE ZERO. ST1084.2 008600 02 FILLER PIC X(8) VALUE 008500 03 DOTVALUE PIC 99 VALUE ZERO. 008700 02 RE-MARK 02 X) 2 008800 01 .ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bound 008900 02 FILLER PIC (30) VALUE . ST10842 009000 02 FILLER PIC X(17) VALUE ST1084.2 009100 " COMPUTED=". ST1084.2 009200 02 COMPUTED-X. ST1084.2 009300 03 COMPUTED-A PIC X(20) VALUE SPACE. ST1084.2 009400 03 COMPUTED-N REDEFINES COMPUTED-A ST1084.2 009500 PIC -9(9).9(9). ST1084.2 009600 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). ST1084.2 009700 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). ST1084.2 009800 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). ST1084.2 009900 03 CM-18V0 REDEFINES COMPUTED-A. ST1084.2 010000 04 COMPUTED-18V0 PIC -9(18). ST1084.2 010100 04 FILLER PIC X. ST1084.2 010200 03 FILLER PIC X(50) VALUE SPACE. ST1084.2 01030001TEST-CORRECT. . 010400 02 FILLER PIC X(30) VALUE SPACE. 00920002 COMPUTED-X. .2 010500 00940003REDEFINES COMPUTED-A ST1084.2 010600 02 CORRECT-X .2 03CORRECT-A ()VALUE ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out 010800 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9)00960003COMPUTED-0V18REDEFINESCO 010900 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). ST1084.2 011000 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). ST1084.2 011100 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). ST1084.2 011200 03 CR-18V0010000 04COMPUTED-18V0PIC-(8.ST1084.2 011300 CORRECT-18V0 -() ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 011400 0401020003FILLERPIC (50 VALUESPACE 2 011500 PICX2 SPACE.ST1084 011600 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. ST1084.2 011700 01 CCVS-C-1. ST1084.2 011800 PICX(20) VALUESPACE.ST10842 -" PARAGRAPH-NAME 2 012000-"REMARKS" 2 012100 02011000 03 REDEFINESCORRECT-APIC -()9(4) . 1220001CCVS-C-2.ST1084.2 012300 02 FILLER PIC X VALUE SPACE. ST1084.2 012400 02 FILLER PIC X(6) VALUE "TESTED01130004CORRECT-18V0 -() 2 02FILLER X() SPACE. . 02 X()VALUE "AIL".ST1084. 012700 02 FILLER PIC X(01160003COR-ANSI-REFERENCEPICX(8 . . 012800 01 REC-SKL-SUB IS"FEATURE .2 012900 01 REC-CT PIC 99 VALUE ZERO. ST1084.2 01300001DELETE-COUNTERPIC 999VALUE ZERO.ST10842 013100 01ERROR-COUNTERPIC VALUE . 2 013200 01 INSPECT-COUNTER PIC 999 VALUE ZERO. ST1084.2 013300 01 PASS-COUNTER PIC 999 VALUE ZERO. ST1084.2 013400 01 TOTAL-ERROR PIC 999 VALUE ZERO. ST1084.2 013500 01 ERROR-HOLD PIC 999 VALUE ZERO. ST1084.2 013600 01 DUMMY-HOLD PIC X(120) VALUE SPACE. ST1084.2 013700 01 RECORD-COUNT PIC 9(5) VALUE ZERO. ST1084.2 013800 01 ANSI-REFERENCE PIC012800 92) VALUEZERO .2 013900 01 CCVS-H-1. java.lang.StringIndexOutOfBoundsException: Index 80 out of boun 014000 02FILLER PIC () . ST1084. 014100 02 FILLER PIC X(42) VALUE ST1084.2 014200 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". ST1084.01330001PASS-COUNTER PIC 999 V 014300 02 FILLER PIC X(39) VALUE SPACES. ST1084.2 014400 01 CCVS-H-2A. 01 DUMMY-HOLD PIC X(120) VALUE SPACE. ST1084 014500 02 FILLER PIC X(40) VALUE SPACE. ST1084.2 014600 02 FILLER PIC X(7) VALUE "CCVS85 ". ST1084.2 014700 02 FILLER PIC XXXX VALUE ST1084.2 014800 "4.2 014400 ST1084. 014900 02 FILLER PIC X(28) VALUE ST1084.2 COPY-NOT DISTRIBUTION. 2 015100 02 FILLER PIC X(41) VALUE SPACE. ST1084.2 015200 ST1084.2 015300 01 CCVS-H-2B. ST1084.2 01540002 java.lang.StringIndexOutOfBoundsException: Range [43, 19) out of bounds 015500 "TEST RESULT OF ". -FOR" 2 015600 02 TEST-ID PIC X(9). ST1084.2 015700 02 FILLER PIC X(4) VALUE ST1084.2 015800 " IN015300 01 CCVS-H-2B. ST1084.2 015900 02 FILLER PIC X(12) VALUE ST1084.2 016000 " HIGH 015600 () . 016100 02 FILLER PIC X(22) VALUE ST1084 . 16200" VALIDATION FOR . ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 o 016300 02 FILLER X58 VALUE 2 016400 O VALIDATION,NATIONALINSTITUTE OF & ..ST1084.2 016500 01 CCVS-H-3. ST1084.2 016600 X(4 VALUE .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds 016700 " FOR OFFICIAL USE ONLY ". ST1084.2 016800 02 FILLER PIC X(58) VALUE ST1084.2 016900 "COBOL 85 VERSION 4.2, Apr01660002FILLER X) .java.lang.StringIndexOutOfBoundsExc 017000 02 FILLER PIC X(28) VALUE ST1084.2 017100 " COPYRIGHT 1985 ". ST1084.2 017200 01 CCVS-E-1. ST1084.2 017300 02 FILLER PIC X(52) VALUE SPACE. ST1084.2 017400 02 FILLER PIC X(14) VALUE IS "END OF TEST- 01720001 CCVS-E-1. ST1084.2 017500 02 ID-AGAIN PIC017400 02 FILLER PIC (14)VALUE "ND TEST- ". ST1084.2 017600 02 FILLER PIC X(45) VALUE SPACES. ST1084.2 017700 01 CCVS-E-2. ST1084.2 017800 02 FILLER PIC X(31) VALUE SPACE. ST1084.2 017900 02 FILLER PIC X(21) VALUE SPACE. 017900 02 FILLER PIC X(21) VALUE SPACE. ST1084 . 018000 02 CCVS-E-2-2. ST1084.2 018100 03 ERROR-TOTAL PIC XXX VALUE SPACE. ST1084.2 018200 03 FILLER PIC X CCVS-E-3 ST1084.2 018300 ENDER-DESCPIC X(4 2 018400 "ERRORS ENCOUNTERED". ST1084.2 018500 01 CCVS-E-3. ST1084.2 018600 02 FILLER 02 PICX(58)VALUEST1084.java.lang.StringIndexOutOfBoundsException: I 018700" FOR OFFICIAL USE ONLY. .2 018800 02 FILLER PIC 019200 02 FILLER PIC X. 018900 02 FILLER PIC X(58) VALUE ST1084.2 019000 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".ST1084.2 019100 02 FILLER PIC X(0198000240 java.lang.StringIndexOutOfBoundsException: Range [7 019200 02 FILLER PIC X(15) VALUE ST1084.2 019300 " COPYRIGHT 1985". ST1084.2 019400 01 CCVS-E-4. ST1084.2 019500 XXXVALUE 2 019600 02 FILLER PIC X(4) VALUE " OF ". ST1084.2 019700 02 CCVS-E-4-2 .ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 ou 01980002PIC () 2 019900 " TESTS WERE EXECUTED SUCCESSFULLY". ST1084.2 01 020100 02 FILLER PIC 02080002 48 java.lang.StringIndexOutOfBoundsException: Range [79, 020200 "* **.ST1084.2 020300 02 INFO-TEXT. ST1084.2 020400 04 FILLER PIC X(8) 02 IS() IS *********.java.lang.StringIndexOutOfBoundsException 020500 XXCOMPUTED X20)ST10842 020600 04 FILLER PIC X(5) VALUE SPACE. ST1084.2 02070004 X20) ST1084. 020800 02 INF-ANSI-REFERENCE .ST1084. 020900 01 HYPHEN-LINE. ST1084.2 021000 02 FILLER PIC IS X 021900 SORT-PARAGRAPH. . 021100 02 FILLER PIC IS X( SORT .2 021200- "******************* ST10842 021300 02 java.lang.StringIndexOutOfBoundsException: Range [20, 6) out of bounds f 021400- "***********************022500java.lang.StringIndexOutOfBoundsException: 021500 01 022600 java.lang.StringIndexOutOfBoundsException: Range [30, 29) out of b 021600 "ST108A". ST1084.2 021700 ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds f 021800 SORT-PARA SECTION. ST1084.2 021900 SORT-PARAGRAPH. ST1084.2 022000 SORT SORTFILE-1H023200 ST1084.java.lang.StringIndexOutOfBoundsException: Ind 022100 ASCENDING KEY SORTKEY-1 ST1084.2 022200 ASCENDING SORTKEY-2 ST1084.2 022300 ASCENDING SORTKEY-3 ST1084.2 022400 SORTKEY-4 .2 022500 ASCENDING SORTKEY-5 ST1084.2 022600 ASCENDING SORTKEY-6 ST1084.2 022700 ASCENDING SORTKEY-7 ST1084.2 022800 ASCENDING SORTKEY-8 ST1084.2 022900 INPUT PROCEDURE INPROC ST1084.2 023000 OUTPUT PROCEDURE OUTPROC THRU OUTPROC-EXIT. ST1084.2 023100 STOP RUN. ST1084.2 ST1084..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for le 023300 BUILD-FILE. ST1084.2 023400 PERFORM BUILD-RECORD. ST1084.2 023500 MOVE +123456 TO SORTKEY-1 ST1084.java.lang.StringIndexOutOfBoundsException: In 023600 PERFORM RELEASE-RECORD BUILD-RECORD ST1084. 023700 PERFORM BUILD-RECORD. ST1084.2 023800 MOVE "X" TO SORTKEY-2. ST1084.025100 RELEASE-RECORD .java.lang.StringIndexOutOfB 023900 PERFORM RELEASE-RECORD. ST1084.2 024000 PERFORM BUILD-RECORD. ST1084.2 024100 MOVE +.6 TO SORTKEY-3. ST1084.2 024200 PERFORM RELEASE-RECORD. ST1084.2 024300 PERFORM BUILD-RECORD. ST1084.2 024400 MOVE "X" TO SORTKEY-4. ST1084.2 024500 PERFORM RELEASE-RECORD. ST1084.2 ST1084. 024700 MOVE "Z" TO SORTKEY-5. ST1084.2 024800 PERFORM RELEASE-RECORD. ST1084.2 024900 PERFORM BUILD-RECORD. ST1084.2 025000 MOVE "Z" TO SORTKEY-6. ST1084.2 025100 PERFORM RELEASE-RECORD. ST1084.2 025200 PERFORM BUILD-RECORD. ST1084.2 025300 MOVE +418 TO SORTKEY-7. ST1084.2 025400 PERFORM RELEASE-RECORD. 026900MOVE 99 SORTKEY-8 2 025500 PERFORM BUILD-RECORD. .ST1084java.lang.StringIndexOutOfBoundsException: Inde 025600 MOVE -14 TO SORTKEY-8. ST1084.2 025700 PERFORM 027500 OPEN-FILES. . 025800 GO java.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds 025900 BUILD-RECORD. ST1084.2 026000 MOVE -054321 TO SORTKEY-1. ST1084.2 026100 MOVE "028000 ISLESS THAN""java.lang.StringIndexOutOfBoundsException: Range [8 026200 MOVE -.1234567890123456 TO SORTKEY-3. ST1084.2 026300 SORT-INIT-A2 026400 MOVE "A" SORT .2 026500 MOVE "AAAAAAAA" TO SORTKEY-6. 028600* ORDER --- 8 7 6 5 4 3 1 2 --- THAT IS, ST1084.2 026600 501TOSORTKEY-7. .2 026700* NOTE THIS ITEM IS INTENTIONALLY MOVED TO AN UNSIGNED ST1084.2 026800* FIELD. ST1084.2 026900 MOVE +99 TO SORTKEY-8. ST1084.2 027000 RELEASE-RECORD. ST1084.2 027100 . 2 027200 BUILD-EXIT. ST1084.2 EXIT ST1084.2 027400 OUTPROC SECTION. ST1084.2 027500 OPEN-FILES. PERFORM . . 027600 OPEN OUTPUT PRINT-FILE. ST1084.2 027700 MOVE CCVS-PGM-ID 029700 SORT-WRITE-1. 2 027800 MOVE SPACE TO TEST-RESULTS. ST1084.2 027900 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. ST1084.2 028000 IF SPAC-E IS LESS THAN "B" ST1084.2 028100GOTO . .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds fo 028200 B-IS-LESS-THAN-SPACESECTION 2 NIT-A .2 028400 PASSGOTOSORT-WRITE-2 .java.lang.StringIndexOutOfBoundsException: Index 80 o 028500* NOTE THE RECORDS SHOULD BE SORTED INTO THE FOLLOWING ST1084.2 028600* ORDER --- 8 7 6 5 4 3 1 2 --- THAT IS, ST1084.2 028700* THE 8TH RECORD SORTS UP TO THE 1ST POSITION, ST1084.2 028800* THE 7TH RECORD SORTS UP TO THE 2ND POSITION, ETC. ST1084.2 028900. 2 029000 RETURN SORTFILE-1H AT END GO TO RETURN-ERROR. ST1084.2 029100 SORTKEY-7 EQUAL TO 418 .java.lang.StringIndexOutOfBoundsException: Index 80 ou 029200 PERFORMPASSGO SORT-WRITE-1 ST1084.2 029300 SORT-TEST-3. ST1084.2 029400 PERFORM FAIL. ST1084.2 29500MOVESORTKEY-7 TO COMPUTED-N. ST1084.2 029600 MOVE 418 TO CORRECT-N. ST1084.2 ST1084.2 031400 PERFORM PASS GO TO SORT-WRITE-3. ST1084java.lang.StringIndexOutOfBoundsExceptio 029900 PERFORM PRINT-DETAIL. ST1084.2 030000 SORT-TEST-2. 2 030100 RETURN SORTFILE-1H AT END GO TO RETURN-ERROR. ST1084.2 030200 IF SORTKEY-8 EQUAL TO -14 ST1084.2 030300 PERFORM PASS TOSORT-WRITE-2. ST1084.2 030400 SORT-FAIL-2. ST1084.2 030500 PERFORM FAIL. ST1084.2 030600 MOVE SORTKEY-8 TO COMPUTED-N. ST1084.2 030700 MOVE -14 TO CORRECT-N032000 "SORT-TEST-3 TO . ST1084.2 030800 SORT-WRITE-2. ST1084.2 030900 MOVE"SORT-TEST-2 "TOPAR-NAME.ST1084.2 031000 PERFORM PRINT-DETAIL. ST1084.2 031100 SORT-TEST-3. ST1084.2 031200.2 031300 IF SORTKEY-6 EQUAL TO "Z " ST1084.2 031400 PERFORM PASS GO TO SORT-WRITE-3. ST1084.2 031500 SORT-FAIL-3. ST1084.2 031600 PERFORM FAIL. . 031700 MOVE SORTKEY-6 TO COMPUTED-A. ST1084.2 MOVE Z " TO .ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bound 031900 032500PERFORMPASS GOTOSORT-WRITE-4. ST1084.2 032000 MOVE "SORT-TEST-3 " TO PAR-NAME. ST1084.2 032100 PERFORM PRINT-DETAIL. ST1084.2 032200 SORT-TEST-4. ST1084.2 032300 RETURN SORTFILE-1H AT END GO TO RETURN-ERROR. ST1084.2 032400 IF SORTKEY-5 EQUAL TO "Z " ST1084.2 032500 PERFORM PASS GO TO SORT-WRITE-4. ST1084.2 032600 SORT-FAIL-4. ST1084.2 032700 PERFORM FAIL. SORT-WRITE-4. .2 032800 MOVE SORTKEY-5 TO COMPUTED-A. 033200PERFORMPRINT-DETAIL.ST10842 AT RETURN-ERRORjava.lang.StringIndexOutOfBoundsException: Range [79, 78) out of b 033000 SORT-WRITE-4. ST1084.2 MOVE""TO . PERFORM.ST1084java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds ST1084 033400 034000"X" TOCORRECT-AST1084.java.lang.StringIndexOutOfBoundsException: Inde .2 033600 PERFORM PASS GO TO SORT-WRITE-5. ST1084.2 033700 SORT-FAIL-5. ST1084.2 033800 PERFORM FAIL. ST1084.2 033900 MOVE SORTKEY-4 TO COMPUTED-A. ST1084.2 034000 MOVE " X" TO CORRECT-A. ST1084.2 034100 034900 FAIL .2 034200 MOVE "SORT-TEST-5 " TO MOVE SORTKEY-3 TO COMPUTED-0V18.2 034300 PERFORM PRINT-DETAIL. ST1084.2 034400 . .2 034500 RETURN SORTFILE-1HAT END GO RETURN-ERROR. .2 034600 SORTKEY-3 EQUALTO+6000000000000000 . 034700 035400 PERFORM PRINT-DETAIL . ST1084.2 034800SORT-FAIL-6 . 034900 PERFORM FAIL. ST1084.2 035000 MOVE SORTKEY-3 TO COMPUTED-0V18. ST1084.2 035100 MOVE +.6000000000000000 TO CORRECT-0V18. ST1084.2 035200 SORT-WRITE-6 .2 035300 MOVE "SORT-TEST-6 " TO PAR-NAME. ST1084.2 035400 PERFORM PRINT-DETAIL. ST1084.2 035500 SORT-TEST-7. ST1084.2 035600 RETURN SORTFILE-1H AT END GO TO RETURN-ERROR. ST1084.2 035700 IF SORTKEY-2 EQUAL TO " X" ST1084.2 035800 PERFORM PASS GO TO SORT-WRITE-7. ST1084.2 035900 SORT-FAIL-7. ST1084.2 036000 PERFORM FAIL. ST1084.2 036100 MOVESORTKEY-2TOCOMPUTED-A. ST1084.2 036200036700java.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bou 036300SORT-WRITE-7ST10842 036400 MOVE "SORT-TEST-7 " TO PAR-NAME. ST1084.2 036500 PERFORM PRINT-DETAIL. ST1084.2 036600 SORT-TEST-8. ST1084 END GOTO .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for le 036800 IF SORTKEY-1 EQUAL TO +123456 ST1084.2 036900 PERFORM PASS GO TO SORT-WRITE-8. ST1084.2 037000 SORT-FAIL-8. ST1084.2 037100 PERFORM FAIL. ST1084.2 037200 MOVE SORTKEY-1 TO COMPUTED-N. ST1084.2 037300 MOVE +123456 TO CORRECT-N. ST1084.2 037400 SORT-WRITE-8. ST1084.2 037500 MOVE "SORT-TEST-8 " TO PAR-NAME. ST1084.2 037600 PERFORM PRINT-DETAIL. ST1084.2 037700SORT-REMARK-A. ST1084.2 037800 MOVE SPACE TO FEATURE. ST1084.2 037900 MOVE "THE COLLATING SEQUENCE" TO RE-MARK. ST1084.2 038000 PERFORM PRINT-DETAIL. ST1084.2 038100 MOVE "RENDERS 038500 "ORT 8 ASC.KEYS"TO ST1084.java.lang.StringIndexOutOfBoundsE 038200 PERFORM PRINT-DETAIL. ST1084.2 038300 UNNECESSARY" TO RE-MARK. .java.lang.StringIndexOutOfBoundsException: Index 80 038400 PERFORM PRINT-DETAIL. ST1084.2 038500 MOVE "SORT - 8 ASC. KEYS" TO FEATURE. ST1084.2 038600 GO TO CONTINUE-TESTING. ST1084.2 038700 SPACE-IS-LESS-THAN-B SECTION. ST1084.2 038800 SORT-REMARK-B. ST1084 MOVE "NNECESSARY"TORE-MARK ST10842 038900 MOVE "THE COLLATING SEQUENCE" TO RE-MARK. ST1084.2 039000 PERFORM PRINT-DETAIL. ST1084.2 039100 MOVE "RENDERS TESTS 1 THRU 8" TO RE-MARK. ST1084.039700* ORDER --- 8 1 7 2 6 5 3 4 --- THAT IS, 039200 PERFORM PRINT-DETAIL. ST1084.2 039300 MOVE "UNNECESSARY." TO RE-MARK. ST1084.2 039400 PERFORM PRINT-DETAIL. ST1084.2 039500 MOVE "SORT - 8 ASC. KEYS" TO FEATURE. ST1084.2 039600* NOTE THE RECORDS SHOULD BE SORTED INTO THE FOLLOWING ST1084.2 039700* ORDER --- 8 1 7 2 6 5 3 4 --- THAT IS, ST1084.2 039800* THE 1ST RECORD IS SORTED DOWN TO THE 8TH POSITION, ST1084.2 039900* THE 2ND RECORD SORTS UP TO THE 1ST POSITION, ETC. ST1084.2 040000 SORT-TEST-9. ST1084.2 040100 RETURN SORTFILE-1H AT END GO TO RETURN-ERROR. ST1084.2 040200 IF SORTKEY-2 EQUAL TO " X" ST1084.2 040300 PERFORM PASS GO TO SORT-WRITE-9. ST1084.2 040400 SORT-FAIL-9. ST1084.2 040500.2 040600 MOVE SORTKEY-2 TO COMPUTED-A. ST1084.2 040700 MOVE " X" TO SORT-WRITE-9ST1084.2 040800 SORT-WRITE-9. ST1084.2 040900 MOVE "SORT-TEST-9 " TO PAR-NAME. ST1084.2 041000 PERFORM PRINT-DETAIL. ST1084.2 041100 SORT-TEST-10. ST1084.2 041200 RETURN SORTFILE-1H AT END GO TO RETURN-ERROR. ST1084.2 IF SORTKEY-4 EQUAL TO"X .java.lang.StringIndexOutOfBoundsException: Index 80 out of 041400 PERFORM PASS GO TO SORT-WRITE-10. ST1084.2 041500 SORT-FAIL-10. ST1084.2 041600 PERFORM FAIL. ST1084.2 041700 MOVE SORTKEY-4 COMPUTED-A ST1084.2 041800 MOVE " X" TO CORRECT-A. ST1084.2 041900 SORT-WRITE-10. ST1084.2 S PAR-NAME 2 042100 .ST10842 042200 SORT-TEST-11. ST1084.2 042300 RETURN SORTFILE-1H AT 042200 SORT-TEST-11. java.lang.StringIndexOutOfBoundsExce 042400 IF SORTKEY-7 EQUAL TO 418 ST1084.2 042500 PERFORM PASS GO TO SORT-WRITE-11. ST1084.2 042600 SORT-FAIL-11. ST1084.2 042700 PERFORM FAIL. PERFORM 042800 042900MOVE418CORRECT-N ST1084. 043000SORT-WRITE-11. 2 043000 SORT-WRITE-11. ST1084.2 043100 MOVE "SORT-TEST-11" TO PAR-NAME. ST1084.2 043200 PERFORM PRINT-DETAIL. ST1084.2 043300 SORT-TEST-12. ST1084.2 043400 RETURN SORTFILE-1H AT END GO TO RETURN-ERROR. ST1084.2 043500 IF SORTKEY-8 EQUAL TO -14 ST1084.2 043600 PERFORM PASS GO TO043600 PERFORM PASS TOSORT-WRITE-12 ST1084.2 043700 SORT-FAIL-12 FAIL. 043800PERFORM FAIL.ST1084.2 043900 MOVE SORTKEY-8 TO COMPUTED-N. ST1084.2 044000 MOVE -14 TO CORRECT-N. ST1084.2 044100 SORT-WRITE-12. 2 044200 MOVE "SORT-TEST-12" TO PAR-NAME. ST1084.2 044300 PERFORM PRINT-DETAIL. ST1084.2 044400 SORT-TEST-13. ST1084.2 044500 RETURN SORTFILE-1H AT END GO TO RETURN-ERROR. ST1084.2 " ST1084.2 044700 PERFORM PASS GO044600 SORTKEY-6 EQUAL TO "Z " ST1084.2 044800 SORT-FAIL-13. ST1084.2 044900 PERFORM FAIL. ST1084.2 045000MOVE SORTKEY-6 . .2 045100 MOVE"Z " TO CORRECT-A. ST1084.2 045200 SORT-WRITE-13. ST1084.2 045300 MOVE "SORT-TEST-13" TO PAR-NAME. ST1084.2 045400 PERFORM045300 SORT-TEST-13TOPAR-NAME 2 045500 .ST1084.2 045600 RETURN SORTFILE-1H AT END GO TO RETURN-ERROR. ST1084.2 045700 IF SORTKEY-5 EQUAL TO045500SORT-TEST-14 ST1084 045800 PERFORM PASS GO TO SORT-WRITE-14. AT GOTO . ST10842 045900 SORT-FAIL-14. ST1084.2 046000 PERFORM FAIL. ST1084.2 046100 MOVE SORTKEY-5 TO COMPUTED-A. ST1084.2 046200 MOVE "Z " TO CORRECT-A. ST1084.2 046300 SORT-WRITE-14. ST1084.2 046400 MOVE "SORT-TEST-14" TO PAR-NAME. 046200MOVE" " CORRECT-AST10842 046500 PERFORM PRINT-DETAIL. ST1084.2 046600 SORT-TEST-15. ST1084.2 046700 RETURN SORTFILE-1H AT END GO TO RETURN-ERROR. ST1084.2 046800.2 046900 PERFORM PASS GO TO SORT-WRITE-15. ST1084.2 047000 046500 PERFORM.ST1084.2 . 2 MOVESORTKEY-3 COMPUTED-0V18. ST1084java.lang.StringIndexOutOfBoundsException: Inde 047300 MOVE +.6000000000000000 TO CORRECT-0V18. ST1084.2 047400 SORT-WRITE-15. ST1084.2 047500MOVESORT-TEST-15"TO. ST1084.java.lang.StringIndexOutOfBoundsException: Inde 047600 PERFORM PRINT-DETAIL. SORTKEY-3 COMPUTED-0V18 ST1084. 047700 SORT-TEST-16. . 2 047800 RETURN SORTFILE-1H AT GO TO RETURN-ERROR. ST1084.2 047900 IF SORTKEY-1 EQUAL TO +123456 ST1084.2 048000047700 SORT-TEST-16. 2 048100SORT-FAIL-16. 048200 PERFORM FAIL. ST1084.2 048300 MOVE SORTKEY-1 TO COMPUTED-N. ST1084.2 048400048000 GOTO .ST10842 048500 SORT-WRITE-16. ST1084.2 048600 MOVE "SORT-TEST-16" TO PAR-NAME. ST1084.2 048700 PERFORM PRINT-DETAIL. 2 048800 MOVE SORTKEY-1ST1084 048900 SORT-TEST-17. MOVE +123456 TO CORRECT-N. ST1084 049000 RETURN SORTFILE-1H AT END ST1084.2 049100 PERFORM PASS GO TO SORT-WRITE-17. ST1084.2 049200 SORT-FAIL-17. ST1084.2 049300 MOVE "END OF FILE NOT FOUND" TO RE-MARK049000 ENDST10842 049400PERFORM .ST10842 049500 SORT-WRITE-17. ST1084.2 049600 MOVE "SORT-TEST-17049200SORT-FAIL-17ST1084.2 049700 PERFORM PRINT-DETAIL. 049300 MOVE ENDOF NOT"TORE-MARK.ST10842 049800 GO TO OUTPROC-EXIT. ST1084.2 049900 RETURN-ERROR. ST1084.2 050000 MOVE "RETURN-ERROR" TO PAR-NAME. ST1084.2 050100 PERFORM FAIL. ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out MOVE "EOF PREMATURELY FOUND" TO RE-MARK. ST1084.2 PERFORM PRINT-DETAIL 050400 GOTOCCVS1-EXIT. ST10842 050500CLOSE-FILES .2 050600 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. 2 050700 TERMINATE-CCVS. ST1084.2 050800 EXIT PROGRAM. ST1084.2 050900 TERMINATE-CALL. ST1084.2 051000 STOP . 2 ""TO.ADD1TO INSPECT-COUNTER .2 051200050900TERMINATE-CALL. .2 051300051000STOP. 051400 .MOVE"**"TOP-OR-F 1DELETE-COUNTERST10842 051500 MOVE "****TEST DELETED****" TO RE-MARK. ST1084.2 . .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 8 051700 IF REC-CT NOT EQUAL TO ZERO ST1084.2 051800 MOVE "." TO PARDOT-X "*** RE-MARK. ST10842 051900 MOVE REC-CT TO DOTVALUE. ST1084.2 052000 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE051800MOVE"" .java.lang.String 052100 IF P-OR-F EQUAL052000MOVE TO . . 2 052200 PERFORM FAIL-ROUTINE THRU 052100 IF EQUAL F* 2 052300 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. ST1084.2 052400 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. ST1084.2 052500 MOVE SPACE TO CORRECT-X. ST1084.2 052600 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. ST1084.2 052700 MOVE SPACE TO 052800 HEAD-ROUTINE. ST1084.2 052900 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. ST1084.2 WRITE-LINE 2 TIMES. ST1084.2 053100 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. ST1084.2 053200 TO DUMMY-RECORD. WRITE-LINE 3 TIMES. .2 053300 COLUMN-NAMES-ROUTINE. ST1084.2 053400 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM DUMMY-RECORDPERFORMWRITE-LINE. .java.lang 053500 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. ST1084.2 053600 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. ST1084.2 053700 END-ROUTINE. ST1084.2 053800 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.ST1084.2 053900 END-RTN-EXIT. 053600 MOVEHYPHEN-LINE TO DUMMY-RECORD.PERFORM WRITE-LINE.ST1084 054000 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. ST1084.2 054100 END-ROUTINE-1. ST1084.2 054200 ADD ERROR-COUNTER TO java.lang.StringIndexOutOfBoundsException: Range [41, 40 054300 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. ST1084.2 054400 ADD PASS-COUNTER TO ERROR-HOLD. .2 054500* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. ST1084.2 054600 MOVE PASS-COUNTER TO CCVS-E-4-1. ST1084.2 054700 MOVE ERROR-HOLD TO 054300 ERROR-HOLD. ADD DELETE-COUNTERERROR-HOLD. ST1084.java.l 054800 MOVE CCVS-E-4 TO CCVS-E-2-2. ST1084.2 054900 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. ST1084.2 055000 END-ROUTINE-12. ST1084.2 055100 MOVE "TEST(S) FAILED" TO ENDER-DESC. ST1084.2 055200 IF ERROR-COUNTER IS EQUAL TO 054900 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM ST1084 055300 MOVE "NO " TO ERROR-TOTAL ST1084.2 055400 ELSE ST1084.2 055500 MOVE ERROR-COUNTER TO ERROR-TOTAL. ST1084.2 055600 MOVE CCVS-E-2 TO DUMMY-RECORD. ST1084.2 055700 PERFORM WRITE-LINE. ST1084.2 055800 END-ROUTINE-13. ST1084.2 055900 IF DELETE-COUNTER IS EQUAL TO ZERO ST1084.2 056000 MOVE"O" ERROR-TOTAL ELSE ST1084.2 056100 MOVE DELETE-COUNTER TO ERROR-TOTAL. 055900IF ISEQUAL TOZEROST1084.java.lang.Stri 056200 MOVE "TEST(056200 MOVE "TEST(SDELETED TO . 056300 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. ST1084.2 056400 IF INSPECT-COUNTER EQUAL TO ZERO ST1084.2 056500 MOVE "NO " TO .java.lang.StringIndexOutOfBoundsException: Range [79, 78) out o 056600 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. ST1084.2 056700 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. 056900 MOVE CCVS-E-3 TO DUMMY-RECOR 056800 MOVE057100 .ST1084 MOVE CCVS-E-3 DUMMY-RECORD PERFORMWRITE-LINE.ST10842 057000 WRITE-LINE. .2 057100 ADD 1 TO RECORD-COUNT. ST1084.2 057200 IF RECORD-COUNT GREATER 42 ST1084.2 057300 MOVE DUMMY-RECORD TO DUMMY-HOLD ST1084.2 057400 MOVE SPACE TO DUMMY-RECORD ST1084.2 WRITEDUMMY-RECORD PAGEST1084java.lang.StringIndexOutOfBoundsException: Index 80 o TO WRT-LN2TIMES. 057700 MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES ST1084.2 057800 MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES ST1084.2 057900 MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES ST1084.2 058000 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN ST1084.2 058100 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN ST1084.2 058200 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN ST1084.2 058300 MOVE DUMMY-HOLD TO DUMMY-RECORD ST1084.2 058400 MOVE ZERO TO RECORD-COUNT. ST1084.2 058500 PERFORM WRT-LN. ST1084.2 058600 WRT-LN.ST1084.2 058700 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. ST1084.2 058800 MOVESPACETODUMMY-RECORD. ST1084.2 058900 BLANK-LINE-PRINT. ST1084.2 059000 PERFORM WRT-LN. ST1084.2 059100 FAIL-ROUTINE. ST1084.2 059200 IF COMPUTED-X NOT EQUAL TO SPACE ST1084.2 059300 GO TO FAIL-ROUTINE-WRITE. ST1084.2 EQUALGO java.lang.StringIndexOutOfBoundsException: Range [72, 71) out of bounds f 059500 TO.ST1084 059600 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. ST1084.2 059700MOVE DUMMY-RECORD PERFORMWRITE-LINE 2 TIMES.ST1084. 059800 MOVE 059300 GO TOFAIL-ROUTINE-WRITE .2 FAIL-ROUTINE-EX FAIL-ROUTINE-WRITE java.lang.StringIndexOutOfBoundsException: Index 80 out of bou 060100 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE ST1084.2 060200 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. ST1084.2 060300 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. ST1084.2 060400 MOVE SPACES TO SI-REFERENCEST10842 060500 FAIL-ROUTINE-EX . .java.lang.StringIndexOutOfBoundsException: Index 80 out o .2 060700 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. ST1084.2 060800 IF060500FAIL-ROUTINE-EX .ST1084.2 060900 BAIL-OUT 061000 CORRECT-A .MOVE COMPUTED-ATO . 061100 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. ST1084.2 061200 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. 060900BAIL-OUT-WRITE .2 061300 MOVE TO INF-ANSI-REFERENCE .2 . ST10842 061500 CCVS1-EXIT. ST1084.2 061600 EXIT. ST1084.2 061700 OUTPROC-EXIT SECTION. ST1084.2 061800 EXIT-ONLY. ST1084.2 061900 . .
¤ Dauer der Verarbeitung: 0.36 Sekunden ¤*© Formatika GbR, Deutschland |
|
||||||||||||||
2026-10-11