| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/SQ/ Datei vom 4.1.2008 mit Größe 35 kB |
|
Quelle sq202a.cob Sprache: Cobol |
|||||||||
|
00000100IDENTIFICATION. SQ2024.SQ20243 .SQ2024.2
0003SQ20240* .2 000300 SQ202A. 000600* VALIDATION FOR:- * SQ2024.2 000400**************************************************************** SQ2024.2 000500* * SQ2024.2 000600* VALIDATION FOR:- * SQ2024.2 000700* " HIGH ". SQ2024.2 000800* * SQ2024.2 000900* CREATION DATE / VALIDATION DATE * SQ2024.2 001000* "4.2 ". SQ2024.2 001100* * SQ2024.2 001200* THE ROUTINE SQ202A (OLD SQ203) CREATES A MAGNETIC TAPE FILE ANDSQ2024.2 001300* PASSES IT ON TO SQ203A TO BE OPENED AS INPUT UNDER A SELECT SQ2024.2 001400* OPTIONAL CLAUSE. SQ2024.2 001500 ENVIRONMENT DIVISION. SQ2024.2 0060CONFIGURATIONSQ2024 001700 SOURCE-COMPUTER.0100SOURCE-COMPUTER. SQ2024SOURCE-COMPUTER.2 001800 Card0130. . 001900 OBJECT-COMPUTER0180 Card0130SQ2024I SECTIONSQ2024 002000 Card0131. SQ2024.2 002100 INPUT-OUTPUT SECTION. SQ2024.2 002200 FILE-CONTROL. SQ2024000Card0131SQ2024 3 RAW-DATASQ2024 002400 "C0098" SQ2024.2 002500 ORGANIZATION IS INDEXED SQ2024.2 002600ACCESS ISRANDOMSQ2024 002700 RECORD KEY IS RAW-DATA-KEY. SQ2024.2 002800 SELECT PRINT-FILE ASSIGN TO SQ2024.2 0029 SQ2024 0030000 KEY RAW-DATA-KEY. SQ2024.2 010XXXXP001SQ2024.2 00300DATA. .2 003300 FILE SECTION. SQ20240200 SELECT ASSIGN TOSQ2024 4 TOSQ20242 0035000 SQ-FS1 ASSIGN SQ2024.2 003600 SQ2024.2 003700 01 RAW-DATA-SATZ. SQ2024.2 003800 05 RAW-DATA-KEY PIC X(6). SQ2024.2 003900 05 C-DATE PIC 9(6). SQ2024.2 004000 05 C-TIME PIC 9(8). 004100 05 C-NO-OF-TESTS PIC 99. SQ2024.2 004200 05 C-OK PIC 999. SQ2024.2 004300 05 C-ALL PIC 999. SQ2024.2 004400 05 C-FAIL PIC 999. SQ2024.2 004500 05 C-DELETED PIC 999. SQ2024.2 004600 05 C-INSPECT PIC 999. SQ2024.2 004700 05 C-NOTE4000 98) SQ2024.2 004800 05 C-INDENT PIC X.004100 05 C-NO-OF-TESTS PIC 99. PIC99 004900 05 C-ABORT PIC X(8). SQ2024.2 005000 FD PRINT-FILE SQ2024.2 005100 LABEL RECORDS03900 05 C-DATE PIC 9(6). 0 5 C-TIME PIC98.0700 C-NOTE X(3 005200 Card0132 SQ2024.2 005300 DATA RECORD IS PRINT-REC DUMMY-RECORD020Card0132SQ2024.2 005400 . SQ2024.2 00501 (2) SQ2024.2 005600 01 DUMMY-RECORD PICTURE X(120). SQ2024.2 00570 005800 LABEL RECORD STANDARD SQ2024.2 005900 BLOCK CONTAINS 120 CHARACTERS. SQ2024.2 00000 PICX10. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds f 1 . D-OUT-COUNT 9SQ2024.2 006300 77 RECORDS-IN-ERROR PIC 999. 000 9.SQ2024.2 006500 01 FILE-RECORD-INFORMATION-REC. SQ2024.2 006600 03 FILE-RECORD-INFO-SKELETON. SQ2024.2 006700 05 FILLER PICTURE X(48) VALUE SQ2024.2 008 =,RECORD /,=000UPDT=060 0java.lang.StringIndexOutOfBoundsException: Range [24, 006900 05 FILLER PICTURE X(46) VALUE 0 X4)VALUESQ20242 007100 05 FILLER PICTURE X(26) VALUE SQ2024.2600 (6 . 0020"LFIL000,= LBLR " 2 007300 FILLER (7) VALUESQ2024 007400 ",RECKEY= ". SQ2024.2 (8 . 000 ,= 2 007700 05 FILLER PICTURE X(38) VALUE SQ2024.2 007800 ",ALTKEY2= ". SQ2024.2 000 PICTUREX() VALUE80 1 008000 03 FILE-RECORD-INFO OCCURS 10 TIMES. 800 FILLER PIC ()SQ2024.2 008100 05 FILE-RECORD-INFO-P1-120. SQ2024.2 008200 07 FILLER PIC X(080 96.SQ2024. 008300 07 XFILE-NAME PIC X(6)080 05FILE-RECORD-INFO-P1-120 SQ20242 008400 07 FILLER PIC X(8). SQ2024.2 008500 07 XRECORD-NAME 90 7 (5) 008600 07 FILLER PIC X(1). SQ2024.2 00880 7 REELUNIT-NUMBER PIC91) SQ2024java.lang.StringIndexOutOfBoundsException: Inde 008800 07 FILLER PIC X(7). SQ2024.2 008900 07 XRECORD-NUMBER PIC 9(6). SQ2024.2 009000 07 FILLER PIC X(6). SQ2024.2 009100 07 UPDATE-NUMBER PIC 9(2). SQ2024.2 090 0 PIC X(). 2 009300 07 ODO-NUMBER PIC 9(4). SQ2024.2 009400 07 FILLER PIC X(5). SQ2024.2 00959 X5 2 009600 607FILLER (7.SQ2024.2 009700 07 XRECORD-LENGTH PIC 9(6). SQ2024.2 009800 07 FILLER PIC X(7). 090 CHARS-OR-RECORDSPICX() SQ20242 010000 07 FILLER PIC X(1). SQ2024.2 010100 07 XBLOCK-SIZE PIC 9(4). SQ2024.2 010200 07 FILLER PIC X(6). SQ2024.2 010300 07 RECORDS-IN-FILE PIC 9(6). SQ2024.2 010400 07 FILLER PIC 130 0 PICX9.4 X5)SQ20242 010500 07 XFILE-ORGANIZATION PIC X( XFILE-ORGANIZATION(SQ2024. 010600 07 FILLER01400 7 ALTERNATE-KEY2 PICX(9.SQ2024.2 .2 010800 05 FILE-RECORD-INFO-P121-240. SQ2024.2 010900 07 FILLER PICX8. SQ20242 0100 XRECORD-KEYPICX(9) SQ20242 011100 07 FILLER PIC X(9). SQ2024.2 011200 07 ALTERNATE-KEY1 PIC X(29). SQ2024.2 011300 07 FILLER PIC X(9). SQ2024.01170 02 FILLER X VALUESPACE . 011400 07 ALTERNATE-KEY2 PIC X(29). SQ2024.2 011500 07 FILLER PIC X(7). SQ2024.2 011600 01 TEST-RESULTS. .SQ2024.2 01700 .SQ2024. 080 0 X2)VALUE. Q2024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bo 0190 02 FILLER PICTURE XVALUESPACE . 012000 02 P-OR-F PICTURE X(5) VALUE SPACE. SQ2024.2 0120 2FILLER PICTUREX VALUE SPACE .2 020 2PAR-NAME SQ2024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bo 012300 03 FILLER PICTURE X(12) VALUE SPACE. 012400 03 PARDOT-X PICTURE X VALUE SPACE. SQ2024.2 012500 03 DOTVALUE PICTURE 99 VALUE ZERO. SQ2024.2 01260 3 X(5) SPACE 2 00 0 FILLERjava.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds 08002PICX6) 012900 01 TEST-COMPUTED. SQ2024.2 013000 02 FILLER PIC X(30) VALUE SPACE. SQ2024.2 013100 02 FILLER PIC X(17) VALUE " COMPUTED=". SQ2024.2 013200 02 COMPUTED-X. SQ2024.2 060 3 COMPUTED-APICTURE-()91) SQ20242 013400 03 COMPUTED-N3700 03 COMPUTED-14 1 01TEST-CORRECTSQ20242 030003COMPUTED-0V18REDEFINES -91) .2 0360 0COMPUTED-4V14REDEFINESCOMPUTED-APICTURE10 1) . 013700 03 COMPUTED-14V4 REDEFINES COMPUTED-A PICTURE -9(14).9(4). SQ2024.2 013800 03 CM-18V0 REDEFINES COMPUTED-A. SQ2024.2 030 COMPUTED-18V0PICTURE -(1).SQ20242 014000 04 FILLER PICTURE X. SQ2024.2 014100 03 FILLER PIC X(50) VALUE SPACE. SQ2024.2 0142000 (0 .SQ2024.2 014300 02 FILLER PIC X(30) VALUE SPACE. SQ2024.2 014400 02 FILLER PIC X(17) VALUE " CORRECT =". 10 .01900 REDEFINESCORRECT-APICTURE4. 13CR-18V0 .SQ2024.2 014600 03 CORRECT-A PICTURE X(20) VALUE SPACE. SQ2024.2 014700 03 CORRECT-N .() 2 014800 03 CORRECT-0V18 REDEFINES 1903 -()91).2 040 000 PIC5) .SQ2024.2 015000 03 CORRECT-14V4 REDEFINES CORRECT-A PICTURE -9(14).9(4). SQ2024.2 015100 03 CR-18V0 REDEFINES50 . 050 4 (1) Q2024.2 015300 04 FILLER 015800- " REMARKS". 015400 03 FILLER PIC X(50) VALUE SPACE. SQ2024.2 015500 01 CCVS-C-1. SQ2024.2 015600 02 FILLER PICTURE 500 REMARKS" 0 FILLERPICTURE IS XVALUEIS 19 0PICTUREX()VALUEIS java 015700-650 () .SQ20242 015800- " REMARKS". ()VALUE .SQ2024.2 015900 02 FILLER PICTURE IS X(20) VALUE IS SPACE. SQ2024.2 016000 01 60 01 PICTURE 9 IS ZERO 2 016100 02 FILLER PICTURE IS X VALUE IS SPACE. SQ2024.2 016201100 0PASS-COUNTERPIC 990 1 9 .SQ20242 016300 02 FILLER PICTURE IS X(15) VALUE IS SPACE. SQ2024.2 010 java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for l 016500 02 FILLER PICTURE IS X(94) VALUE IS SPACE. SQ2024.2 016600 01 17500 01 RECORD-COUNT5 ZERO SQ20242 016700 01 REC-CT PICTUREPICTURE9 VALUE0 1CCVS-H-1 2 016800 01 DELETE-CNT PICTURE 999 VALUE ZERO. SQ2024.2 016900 01 ERROR-COUNTER PICTURE IS 999 VALUE IS ZERO. SQ2024.2 017000 01 INSPECT-COUNTER PIC 999 VALUE ZERO. - SYSTEM.SQ2024.2 017100 01 PASS-COUNTER PIC 999 VALUE ZERO. SQ2024.2 0200 9 ZERO SQ2024.2 017300 01 ERROR-HOLD PIC 999 VALUE ZERO. 0 " FEDERAL10 2 (2 VALUE 017400 10 02TEST-IDPICTUREIS(). 017500 01 18700 02 FILLERX4VALUESPACE. java.lang.StringIndexOutOfBoundsException: Ind 017600 01 CCVS-H-1. SQ2024.2 017700 02 10 5)VALUESQ2024.2 0170 02 PICTUREX(7 017900 " FEDERAL SOFTWARE TESTING CENTER COBOL COMPILER VALIDATION SQ2024.2 01800-"SYSTEM" 01100 PICTURE (2) VALUE SPACE. . 018200 01 CCVS-H-2. SQ2024.2 018300 02 FILLER PICTURE X(52) VALUE IS SQ2024.2 018400 "CCVS85 180 2ID-AGAINPICTUREIS)SQ2024 018500 02 FILLER PICTURE IS X(19) VALUE IS 1900FILLER (500"OFFICIAL" 018600 02 TEST-ID PICTURE IS X(9). SQ2024.2 018700 02 FILLER PICTURE IS X(40) VALUE IS SPACE. SQ2024.2 018800 01 CCVS-H-3. SQ2024.2 018900 02 FILLER PICTURE X(34) VALUE SQ2024.2 019000 " FOR OFFICIAL USE ONLY ". SQ2024.2 019100 02 FILLER PICTURE X(58) VALUE SQ2024.2 019200 "COBOL 85 VERSION 4.0 FILLER PICTURE IS X(2) IS . SQ20242 SQ2024.2 090" 18 ".SQ2024.2 019500 01 CCVS-E-1.19800 02 ID-AGAIN PICTURE IS X(9). SQ2024.2 0160 2FILLER (2 . 2 019700 02 FILLER PICTURE IS X(14) VALUE IS "END OF TEST- ". SQ2024.2 01800 ID-AGAIN PICTURE IS X(9.SQ2024.2 019900 02 FILLER PICTURE X(45) VALUE IS 1 2PICTUREX22SQ2024.2 00 COBOL8" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 020200 02 FILLER " .. 020300 SPACE. SQ2024.2 00 FILLERPICTURE X2 VALUESPACE SQ20242 020500 02 CCVS-E-2-2. SPACE SQ2024.2 020600 03 ERROR-TOTAL 2900 CCVS-E-3. 020700 03 FILLER PICTURE IS X VALUE IS SPACE. SQ2024.2 020800 03 ENDER-DESC PIC X(46) VALUE "ERRORS ENCOUNTERED". SQ2024.2 020900 01 CCVS-E-3. 2100 02FILLER PICTUREX(5 VALUE .java.lang.StringIndexOutOfBoundsExc 021000 02 FILLER PICTURE X(2) VALUE SQ20242 021100 " FOR OFFICIAL USE ONLY". SQ2024.2 020270 1CCVS-E-4 SQ2024. 021300 02 021300 02 FILLER PICXXXVALUESPACE.21 2 IS IS 021400 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ2024.2 021500 02 FILLER PICTURE X(13) VALUE SPACE02200 02CCVS-E-4-2 040 2FILLER (4VALUE"*2 021600 02 FILLER PIC X(15) VALUE " COPYRIGHT 1985". SQ2024.2 20 1CCVS-E-4.SQ2024.2 021800 02 CCVS-E-4-1 PIC XXX VALUE SPACE. SQ2024.2 021900 02 FILLER PIC XXXX VALUE " OF ". SQ2024.2 022000 02 CCVS-E-4-2 PIC XXX VALUE SPACE. SQ2024.2 022100 02.SQ2024.2 022200 " TESTS WERE EXECUTED SUCCESSFULLY". SQ2024.2 022300 01 XXINFO. 020 02FILLERPICX3)VALUE *.SQ20242 020 .SQ2024.2 022600 04 FILLER PIC X(20) VALUE SPACE. SQ2024.2 022700 04 XXCOMPUTED PIC X(20). SQ2024.2 020290 X2). 2 0200 4 XXCORRECTPIC X20.SQ2024.2 02340ACCEPT .SQ2024.2 023100 02 FILLER PICTURE IS X VALUE IS SPACE210 2FILLER PICTURE SPACE SQ2024.2 030 2FILLERPICTURE X400 023300-023400 00 PICTUREISX(5)VALUEIS"************SQ20242 20 0 PICTUREISX5 **********.java.lang.StringIndexOutOfBoundsException: Index 80 out 030 **************" 2600 CCVS-PGM-IDPIC6 VALUESQ2024.2 023600 01 CCVS-PGM-ID PIC X(6) VALUE SQ2024.2 023700 "SQ202A". SQ2024.2 023800 PROCEDURE DIVISION. .SQ2024.2 023900 CCVS1 SECTION. SQ2024.2 024000 OPEN-FILES. SQ2024.2 024100 OPEN I-O RAW-DATA. SQ2024.2 024200 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. SQ2024.2 024300 READ RAW-DATA INVALID KEY GO TO END-E-1. SQ2024.2 024400 MOVE "ABORTED " TO C-ABORT. 0 MOVEABORTED"TO C-ABORT 040 ADD 1 . 2 02460 ACCEPT 6 CCVS-PGM-IDTO.SQ2024.2 047 C-TIME TIME 00 REWRITERAW-DATA-SATZINVALIDKEYGOTOEND-E-1 . 024900 END-E-1. SQ2024.2 025000 CLOSE RAW-DATA. SQ202402100 OPEN OUTPUT . 0250 OUTPUTPRINT-FILE 025200 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID50 ZERO TOREC-SKL-SUBSQ2024.2 025300 MOVE SPACE TO TEST-RESULTS. SQ2024.2 2 025500 MOVE ZERO TO REC-SKL-SUB. SQ2024.2 025600 PERFORM CCVS-INIT-FILE 9 TIMES. SQ2024.2 025700 CCVS-INIT-FILE. SQ2024.2 025800 ADD 1 TO REC-SKL-SUB. SQ2024.2 025900 MOVE FILE-RECORD-INFO-SKELETON TO SQ2024.2 0200FILE-RECORD-INFO80 P-OR-Fjava.lang.StringIndexOutOfBoundsException: Range [42 026100 CCVS-INIT-EXIT. SQ2024.2 026200 GO TO CCVS1-EXIT. SQ2024.2 026300260 RAW-DATA-KEYSQ2024.2 026400 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. SQ2024.2 060 RAW-DATA SQ2024.2 026600 280 MOVE""TOPARDOT-XSQ2024.2 060 RAW-DATAINVALIDKEY TO END-E-2 . 020 "." .SQ2024.2 026900200MOVETEST-RESULTSTOPRINT-REC WRITE-LINE .java.lang.StringIndexOutOfBoundsE 027000 MOVE ERROR-HOLD TO C-ALL. SQ2024.2 027100 MOVE ERROR-COUNTER TO C-FAIL. SQ2024.2 027200 MOVE DELETE-CNT TO C-DELETED. SQ2024.2 027300 MOVE INSPECT-COUNTER TO C-INSPECT. SQ2024.2 0740 KEYGOTOEND-E-2 .2 027500 END-E-2. .70 CLOSERAW-DATA SQ2024.java.lang.StringIndexOutOfBoundsException: 027600 CLOSE RAW-DATA. SQ2024.2 070 TERMINATE-CCVSSQ20242 027800 028000 STOP00 STOP RUN.SQ2024.2 027900 TERMINATE-CALL. SQ2024.2 028000 STOP RUN. SQ2024.2 028100 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 300HYPHEN-LINE .PERFORM 2 080 .MOVE" . .SQ2024java.lang.StringIndexOutOfBoundsException: Index 80 out of boun 028300 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. SQ2024.2 028400 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-CNT380.SQ2024.2 028500 MOVE "****TEST DELETED****" TO RE-MARK. NOTEQUAL TOZERO 028600 PRINT-DETAIL. 0MOVE TO . . 028700 IF REC-CT NOT EQUAL TO ZERO SQ2024.2 028800 MOVE I2200 350 TO.SQ2024.2 0. SQ20242 029000 37MOVE . 029100 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE SQ2024.2 029200 PERFORM FAIL-ROUTINE THRU 010 . SQ2024 029300 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. SQ2024.2 029400 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. SQ2024.2 029500 MOVE02900 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE2 .SQ20242 029600 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. SQ2024.2 029700 MOVE SPACE TO RE-MARK. SQ2024.2 029800 HEAD-ROUTINE. SQ2024.2 029900 MOVE CCVS-H-1DUMMY-RECORD 2.SQ20242 030000 MOVE CCVS-H-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES. SQ2024.2 030100 MOVE CCVS-H-3 DUMMY-RECORDPERFORM 3 TIMES. SQ20242 030200 COLUMN-NAMES-ROUTINE. SQ2024.2 030300 MOVE CCVS-C-1 TO DUMMY-RECORD. 30 TEST) .SQ20242 030400 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2024.2 030500 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2024.2 000 END-ROUTINE. 030700 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES30 ELSEMOVE .SQ2024.2 000 .SQ2024.2 03090 . PERFORMWRITE-LINE . SQ20242 031000 END-ROUTINE-1. SQ20247 CCVS-E-2 PERFORM 2 0310 ADD TOERROR-HOLDADD INSPECT-COUNTER . 031200 ERROR-HOLD. ADD DELETE-CNT TO ERROR-HOLD. SQ20242 031300 ADD PASS-COUNTER TO ERROR-HOLD. SQ2024.2 031400* IF PASS-COUNTER EQUALTOERROR-HOLDGOTO END-ROUTINE-12.SQ20242 031500 MOVE PASS-COUNTER TO CCVS-E-4-1. SQ2024.2 031600 MOVE ERROR-HOLD TO CCVS-E-4-2. SQ2024.2 031700 MOVE CCVS-E-4 TO CCVS-E-2-2. SQ2024.2 030 PERFORM .SQ20242 031900 END-ROUTINE-12. SQ2024.28 MOVEDUMMY-HOLD 2 032000 MOVE "TEST(S) FAILED" TO ENDER-DESC. SQ2024.2 032100 IF ERROR-COUNTER IS EQUAL TO ZERO SQ2024.2 032200 MOVE "NO " TO ERROR-TOTAL SQ2024.2 0200 ELSE SQ2024.2 032400 MOVE ERROR-COUNTER TO ERROR-TOTAL. SQ2024.2 032500 MOVE CCVS-E-2 TO DUMMY-RECORD. SQ2024 032600 PERFORM WRITE-LINE. SQ2024.2 03270ICOMPUTED-XNOT SPACEGOTOFAIL-ROUTINE-WRITE.SQ20242 032800 IF DELETE-CNT IS EQUAL TO ZERO SQ2024.2 032900 MOVE "NO " TO ERROR-TOTAL ELSE SQ2024.2 30 MOVEDELETE-CNTTOERROR-TOTAL java.lang.StringIndexOutOfBoundsException: Index 80 033100 MOVE "TEST(S) DELETED03300 MOVE "TEST() REQUIREINSPECTION" TO ENDER-DESC. SQ202460 033200 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2024.2 0330IF EQUALZERO . 033400 MOVE "NO " TO ERROR-TOTAL SQ2024.2 033500 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. SQ2024.2 0300 MOVE "(S) REQUIREINSPECTION"TO ENDER-DESC. SQ20242 0370 MOVE CCVS-E-2 TO DUMMY-RECORDPERFORM WRITE-LINE. .2 033800 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2024.2 033900 WRITE-LINE. SQ2024.2 034000 ADD 1 TO . 034100 IF RECORD-COUNT GREATER SQ2024.2 034200 35 SECTION-SQ202A-0001SQ2024.2 0330 MOVE SPACE TODUMMY-RECORDSQ2024.2 034400 WRITE DUMMY-RECORD AFTER ADVANCING PAGE SQ2024.2 03450 MOVECCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN . 034600 MOVE 03460 MOVE"F-G"OXRECORD-NAME(.SQ2024.2 034700 MOVE HYPHEN-LINE370 HYPHEN-LINETODUMMY-RECORD WRT-LNSQ20242 034800 MOVE DUMMY-HOLD TO DUMMY-RECORD SQ2024.2 034900 MOVE ZERO TO RECORD-COUNT. SQ2024.2 05000 . 035100 WRT-LN. SQ2024.2 035200 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. SQ2024.2 035300 MOVE SPACE TO DUMMY-RECORD. SQ2024.2 035400 BLANK-LINE-PRINT. SQ2024.2 035500 PERFORM WRT-LN. SQ2024.2 035600 FAIL-ROUTINE. SQ2024.2 0370IF SPACEGOTO FAIL-ROUTINE-WRITESQ2024.java.lang.StringIndexOutOfBoundsExceptio 0FCORRECT-XEQUALTO TO SQ20242 035900 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. SQ2024.2 036000 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2024.390 MOVE NO ,SEEPROGR 036100 GO TO FAIL-ROUTINE-EX. SQ2024.2 036200 FAIL-ROUTINE-WRITESQ2024.2 036300 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE SQ2024.2 036400 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. SQ2024.2 036500 FAIL-ROUTINE-EX. EXIT.java.lang.StringIndexOutOfBoundsException: Range [80, 036600 BAIL-OUT. SQ2024.2 036700 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. SQ2024.2 036800 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. SQ2024.2 036900 BAIL-OUT-WRITE. SQ2024.2 037000 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. SQ2024.2 037100 MOVE XXINFO TO DUMMY-RECORD. PERFORM .SQ20242 037200700MOVECORRECT-A TOXXCORRECT.MOVE COMPUTED-ATOXXCOMPUTED .java.lang.StringInd 037300 CCVS1-EXIT. SQ2024.2 037400 EXIT. SQ2024.2 0.2 03700 WRI-INIT-001. SQ2024.2 037700 MOVE ""TOXFILE-NAME1.SQ2024.2 037800 MOVE "R1-F-G" TO XRECORD-NAME (1). SQ2024.2 037900 MOVE "SQ202A" TO XPROGRAM-NAME (1). SQ2024.2000 CLOSE SQ-FS1 038000 MOVE 120 TO XRECORD-LENGTH (1). SQ2024.2 038100 MOVE "RC" TO CHARS-OR-RECORDS (1). SQ2024.2 038200 MOVE 1 TO XBLOCK-SIZE (1). SQ2024.2 038300 MOVE 750 TO RECORDS-IN-FILE (1). SQ2024.2 34 Q ()SQ20242 038500 MOVE "S" TO XLABEL-TYPE (1). SQ2024.2 3830 70TORECORDS-IN-FILE() 038700 OPEN OUTPUT SQ-FS1. SQ2024.2 038800 WRI-TEST-001. SQ2024.2 0ECORD-INFO-P1-120(1) SQ-FS1R1-F-G-120 .java.lang.StringIndexOutOfBoundsException: 039000 WRITE SQ-FS1R1-F-G-120. SQ2024.2 039100 IF XRECORD-NUMBER (1) EQUAL TO 750 SQ2024.2 039200 GO TO WRI-WRITE-001.03900 FILE-RECORD-INFO-P1-120() TOSQ-FS1R1-F-G-120 . 039300 ADD 1 TO XRECORD-NUMBER (1). SQ2024.2 039400 GO TO WRI-TEST-001. SQ2024.2 3 .SQ2024.2 039600 MOVE "CREATE FILE SQ-FS1" TO FEATURE. SQ2024.2 039700 MOVE "WRI-TEST-001" TO PAR-NAME. SQ2024.2 039800 MOVE " CREATED 039900 MOVE XRECORD-NUMBER (1) TO CORRECT-18V0. SQ2024.2 040000 PERFORM PRINT-DETAIL. SQ2024.2 040100 WRI-CLOSE-001. CREATED,RECS = COMPUTED-A . 040200 CLOSE SQ-FS1. SQ2024.2 040300 READ-INIT-001. SQ2024.2 040400 MOVE 0 TO RECORD-OUT-COUNT, RECORDS-IN-ERROR. SQ2024.2 040500 OPEN INPUT SQ-FS1. 0020 CLOSE . 040600 READ-TEST-001. SQ2024.2 040700 READ SQ-FS1 AT END GO TO READ-TEST-001-01. SQ2024.2 040800 MOVE SQ-FS1R1-F-G-120 TO FILE-RECORD-INFO-P1-120 (1). SQ2024.2 040900 ADD 1 TO RECORD-OUT-COUNT SQ2024.0070 READSQ-FS1 AT ENDGOTOREAD-TEST-001-01 SQ2024 041000 IF RECORD-OUT-COUNT GREATER THAN 750 SQ2024.2 040 READ-CLOSE-001SQ2024.2 041200 GO TO READ-FAIL-001. SQ2024.2 041300 IF RECORD-OUT-COUNT NOT EQUAL TO XRECORD-NUMBER (1) SQ2024.2 0040SQ202A-END-ROUTINE. SQ2024.2 041500 GO TO READ-TEST-001TESTS TOPRINT-REC . 041600 IF XFILE-NAME (1) NOT EQUAL TO "SQ-FS1" SQ2024.2 041700 ADD 1 TO RECORDS-IN-ERROR SQ2024.2 041800 GO TO READ-TEST-001. SQ2024. 019 IF ()NOTEQUAL TOS .java.lang.StringIndexOutOfBoundsException: Index 80 out of bo 042000 ADD 1 TO RECORDS-IN-ERROR. SQ2024.2 042100 042000 ADD 1 TO . 2 042200 READ-TEST-001-01. SQ2024.2 042300 2 042400 GO TO READ-PASS-001. SQ2024.2 042500 MOVE "ERRORS IN READING SQ-FS1" TO RE-MARK. SQ2024.2 042600 READ-FAIL-001. SQ2024.2 042700 MOVE "RECORDS IN ERROR" TO COMPUTED-A. SQ2024.2 042800 MOVE RECORDS-IN-ERROR TO CORRECT-18V0. SQ2024.2 042900 PERFORM FAIL. SQ2024.2 043000 GO TO READ-WRITE-001. SQ2024.2 043100 READ-PASS-001. SQ2024.2 043200 PERFORM PASS. SQ2024.2 043300 MOVE "FILE VERIFIED RECS =" TO COMPUTED-A. SQ2024.2 043400 MOVE RECORD-OUT-COUNT TO CORRECT-18V0. SQ2024.2 043500 READ-WRITE-001. SQ2024.2 043600 MOVE "READ-TEST-001" TO PAR-NAME. SQ2024.2 043700 MOVE "VERIFY FILE SQ-FS1" TO FEATURE. SQ2024.2 043800 PERFORM PRINT-DETAIL. SQ2024.2 043900 READ-CLOSE-001. SQ2024.2 044000 CLOSE SQ-FS1.043800 PERFORM PRINT-SQ2024.2 040 . 40CLOSESQ-FS1. SQ2024.java.lang.StringIndexOutOfBoundsException: Index 80 out of 4WRITEAFTER LINE.SQ20242 044400 TERMINATE-SQ202A. SQ2024.2 044500 EXIT. SQ2024.2 0404400 . 044700 CCVS-999999. SQ2024.2 044800 GO TO CLOSE-FILES. TO CLOSE-FILES ¤ Dauer der Verarbeitung: 0.16 Sekunden ¤*© Formatika GbR, Deutschland |
|
2026-03-28