| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/SQ/ Datei vom 4.1.2008 mit Größe 41 kB |
|
Quelle sq130a.cob Sprache: Cobol |
|||||||||
|
000100 IDENTIFICATION 001300* * SQ1304.2
000200 PROGRAM-ID. SQ1304.2 0001400*00100 IDENTIFICATION DIVISION. 01500* * SQ1304 000400**************************************************************** SQ1304.2 000500* * SQ1304.2 000600* VALIDATION FOR:- * SQ1304.2 000700* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ1304.2 000800* USING CCVS85 VERSION 1.0 ISSUED IN JANUARY 1986. * SQ1304.2 000900* REVISED 1986, AUGUST * SQ1304.2 001000* * SQ1304.2 001100* CREATION DATE / VALIDATION DATE * SQ1304.2 001200* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ1304.2 001300* * SQ1304.2 001400**************************************************************** SQ1304.2 001500* * SQ1304.2 001600* X-CARDS USED BY THIS PROGRAM ARE :- * SQ1304.2 001700* * SQ1304.2 001800* X-14 SEQUENTIAL MASS STORAGE FILE * SQ1304.2 001900* X-55 SYSTEM PRINTER * SQ1304.2 002000* X-82 SOURCE-COMPUTER * SQ1304.2 002100* X-83 OBJECT-COMPUTER. * SQ1304.2 002200* * SQ1304.2 002300* * SQ1304.2 002400**************************************************************** SQ1304.2 002500* * SQ1304.2 002600* SQ130A ATTEMPTS TO OPEN FOR INPUT-OUTPUT A MASS STORAGE * SQ1304.2 002700* FILE WHICH IS NOT PRESENT. THIS SHOULD RESULT IN A * SQ1304.2 002800* PERMANENT ERROR AND AN I-O STATUS OF "35". THE PROGRAM * SQ1304.2 002900* DOES NOT CONTAIN AN APPLICABLE DECLARATIVE PROCEDURE. IN * SQ1304.2 003000* THESE CIRCUMSTANCES THE STANDARD ALLOWS THE IMPLEMENTOR * SQ1304.2 003100* TO TERMINATE EXECUTION OF THE PROGRAM OR TO CONTINUE. * SQ1304.2 003200* * SQ1304.2 003300**************************************************************** SQ1304.2 003400* SQ1304.2 3 ICHIS PRESENT SHOULD0200 ERROR AND AN002900 DOES AN003000* THESE CIRCUMSTANCES0100*TO EXE 00600 CONFIGURATIONSECTIONSQ1304.2 0370 SOURCE-COMPUTERSQ1304.2 003800 Card013060 CONFIGURATION SECTION. SQ1304.2 0030OBJECT-COMPUTERSQ1304 003800Card0130SQ1304.2 004100* SQ1304.2 004200003900OBJECT-COMPUTER .2 004300 FILE-CONTROL 004400 SELECT PRINT-FILE000 . .2 004500 "C0085" . SQ1304040 INPUT-OUTPUT . SQ13042 004600* SQ1304.2 004700 SELECT RAW-DATA ASSIGN TO SQ1304.2 004800 "C0098" SQ1304.2 00490004600* .2 0030SELECT ASSIGNTO.2 00540"C0020" 00500 STATUS ISSQ-FS1-STATUSSQ13042 005600* SQ1304.2 005700* SQ1304.2 008 . SQ1304 0059004900 ORGANIZATIONISINDEXEDSQ1304Card0132SQ1304 006000 FD PRINT-FILE SQ1304.2 0060 RECORDS.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds fo 00620800 F . 006300 DATA600 050 STATUS. .2 60 .SQ1304 006500 01 PRINT-REC07050*SQ1304.2 0066000 . 07 006800 FD RAW-DATA006800 FD 0060 0C-OK9.SQ1304 010LABELSQ1304 007000006200 SQ130470 5 999 .2 007100 05 C-DATE 650001 PRINT-REC PICTURE(20)9 5C-NOTEPIC1)SQ1304 70C-TIME (.SQ1304 007300 05 NO-OF-TESTS PIC0105 PIC X() .2 0700070SQ1304 007500 0500600FDRAW-DATA800java.lang.StringIndexOutOfBoundsException: Range [17, 70CFAIL 99. 060 1 . .java.lang.StringIndexOutOfBoundsException: Index 80 out of bound 00770 05C-DELETED 999SQ130480 WORKING-STORAGE. SQ1304 007800 05 C-INSPECT 99SQ1304 007008900* SQ1304.2 0080 590* DATA9300* * SQ1304900950*SQ1304 080 5 PIC(8.SQ1304 008200* SQ1304.2 008300 FD SQ-FS1 SQ13040500 PIC 9090 SQ1304 008400 LABEL RECORD IS010400* * SQ1304010500***********010600* SQ13049 5 9 .2 80 0080 1SQ-FS1R1-F-G-120 X1) SQ1304 008700* SQ1304.2 00850 . SQ1304 008900* SQ1304.2 009000*************************************************************** SQ1304.2 009100* * SQ1304.2 009200* WORKING-STORAGE DATA ITEMS SPECIFIC TO THIS TEST SUITE * SQ1304.2 009300* * SQ1304.2 009400*************************************************************** SQ1304.2 009500* SQ1304.2 00960001 . 80, SQ1304 00970 0 PIC java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for l 009800 03 SQ-FS1-KEY-2 PIC009400****************009500* SQ1304.2 010000* SQ1304.2 010100*************************************************************** SQ1304.2 010200* * SQ1304.2 010300* WORKING-STORAGE DATA ITEMS USED BY THE CCVS * SQ1304.2 010400* * SQ1304.2 010500*************************************************************** SQ1304.2 010600* SQ1304.2 010700 01 REC-SKEL-SUB PIC 99. 70 PIC9.SQ1304 010800* SQ1304.2 190 0 FILE-RECORD-INFORMATION-REC.SQ1304 011000 03 FILE-RECORD-INFO-SKELETON0 0 PIC X .2 011100 05 FILLER PICTURE X(48) VALUE SQ1304.2 011200 "080050.SQ1304.2 0800 PIC(1. .2 011400 ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000". SQ1304800. SQ1304 011500 0500860 1 SQ-FS1R1-F-G-120 PIC ***********************090* * SQ1304 009300008700* SQ1304.2 0009500* SQ1304.2 01180"RECKEY= " SQ1304 011900 05 FILLER 008900* SQ13040003SQ-FS1-KEY-1 X.SQ1304.2 012000 ",ALTKEY1= ". SQ1304.2 012100 05 FILLER PICTURE009300* * SQ1304.2 01200",ALTKEY2= ". 096001 . 012300 05 FILLER PICTURE X(7) VALUE09800 PIC 0900 SQ1304 012400 03 FILE-RECORD-INFO OCCURS 10 TIMES. SQ1304.2 012500 05 SQ1304.2 012600 07 FILLER 010200* * SQ1304010300* WORKING-STORAGE DATA 010300* WORKING-STORAGE DATA 20 6.2 01100 X6 010 ,=0=,=000BLKSIZ.2 010 0 FILLERX(6 VALUE.2 013100 0100,=00,=,=. .java.lang.StringIndexOutOfBoundsException: Index 80 out of b 01320 0 18 ,= .SQ1304 0130 7XRECORD-NUMBER () .2 013400 07 FILLER PIC 012000 ",ALTKEY1= SQ1304 013500 07 UPDATE-NUMBER PIC 9020"ALTKEY2= ".SQ1304 0160 0 PIC5 .SQ1304 01370020 3FILE-RECORD-INFO X3 SQ1304 Q1304 19007 PICX5)SQ1304 20 PICX6. . 141 0 PIC96.SQ1304 014200 07 FILLER PIC X(7). SQ1304.20130 5FILLERPICTURE X()VALUE.SQ1304 0140 0 PIC2 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for 0.2 0145002600 FILLERPICX5.SQ1304 014600 07 FILLER013100 07 REELUNIT PIC91.SQ1304 01400 7ECORDS-IN-FILE96 &n16600 02 FILLER1 -1 2 06000.SQ1304 016800 03 60 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 0 VALUE 0171203 60.SQ1304 017200 02 RE-MARK PIC X(610270 2 PIC VALUE. .2 070 1TEST-COMPUTED .2 .2 01709003CORRECT-14V42000 PICX "FAIL.SQ1304java.lang.StringIndexOutOfBoundsExceptio 017600 02 COMPUTED-X96010 R 92)VALUE SQ1304 0700 COMPUTED-A X2)VALUE .2 100 P99 ZERO 017900 03 COMPUTED-0V18 REDEFINES 003O PIC(4)VALUE. SQ1304. 0100 3COMPUTED-4V14 COMPUTED-A -. 018100 03 COMPUTED-14V4 REDEFINES COMPUTED-A00 22 PIC ( FEATURE 018200 03 CM-18V02012 SPACE 8 82 0FILLERSQ1304 0700 2 6..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 0 1FILLERVALUE PIC 9CORRECT-X 019000 03 CORRECT-A10 PIC99 ZERO .2 01003 CORRECT-N REDEFINES PIC(.() .2 019200 03 CORRECT-0V18 2000 X() " ". .2 019300 03 CORRECT-4V142 4101 9VALUE 140 0 -(1.4) 2 0150TOTAL-ERROR 9 ZERO.2 019600 04 CORRECT-18V0 PIC -9(18). SQ1304.2 019700 101ERROR-HOLD 9 VALUE. .2 01800 PIC() VALUE. .2 090 03 PIC(8) SPACE0 CCVS-H-2BSQ1304 0223C.Q1304 02000 FILLERPIC()VALUE00FILLER X3) SPACES2 0020002 20 X1) . 000-6 java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for 0240 REMARKS CVS-H-2A . 02500 05 FILLER X) SQ1304 000 020700 02 FILLER PIC XXXX VALUE040003 java.lang.StringIndexOutOfBoundsException: Index PICSPACE. 0023600* 021040 2 PIC20FILLERX4 OF 0 SQ1304 ) . 0SQ1304 .. 021500 01 ERROR-COUNTER2 2 SPACE 0 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 1700 0 PASS-COUNTER FILLER .2 08 0PIC9 ZERO2 090 9ZERO2 0230" 19807 CCVS-E-3 .2 02100 RECORD-COUNT01 CCVS-E-1.java.lang.StringIndexOutOfBoundsException: Index 80 20 1 ANSI-REFERENCE X8VALUE. .java.lang.StringIndexOutOfBoundsException: Index 80 ou 02230 01CCVS-H-1SQ1304 02200 02FILLERPICX(9) VALUESPACES2100PIC8 ..2 02500 700 FILLERPIC)SPACE2 0240 X2) 020 2FILLERX( SPACES2 022800 01 CCVS-H-2A.06 1 . .2 020 2FILLER X(0 SPACE0 PICXXXVALUE SPACESQ1304 0200 2FILLER X(7) "CCVS850220 CCVS-E-2-2 023100 02 FILLER PIC XXXX VALUE SQ1304.2 023200 "4.2 ". SQ130480ENDER-DESC X(4 .2 023300 02 FILLER PIC X(28) VALUE SQ1304CCVS-E-3 ) * 040 - DISTRIBUTION 025060 (20) 023600* SQ1304.2 0237070 2ILLER X5 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bound 0289001HYPHEN-LINE. .2 03900TEST-ID) *****06 CCVS-E-4 27 XXXSPACE2 21002 7800 FILLER X(4 " " .2 220 " HIGH ". . 0240290 . 040 "LEVELVALIDATIONFOR" 0 PROCEDURE. 2 04000 SQ13042 000 . 2 024700080 2INFO-TEXT. 024800000 ILLER()VALUE .SQ1304 2600 4XXCOMPUTEDREAD KEY END-E-1 025000 02 FILLER PIC7 FILLERX5 VALUESQ13042 01 COBOL 42 9 ".2 02520080002 00 FROM DATE SQ1304 RIGHT8516.SQ1304 025400 01 2 RAW-DATA-SATZKEY.2 0090 0- .2 0 FILLER ) IST . 2 07 2 PIC.SQ1304 025800 02 FILLER340MOVE********" SQ1304. 0500 1 CCVS-E-2 SQ130410 CCVS-PGM-ID ID-AGAINSQ1304 0Q1304.2 026100 02 FILLER PIC X(21) VALUE SPACE. SQ1304.2 026200 02 CCVS-E-2-2 TO .java.lang.StringIndexOutOfBoundsException: Index 80 out of 0032100* SQ1304.2 026400 03 FILLER PIC X VALUE SPACE. 21SQ1304 026500 03 ENDER-DESC0PROCEDURE. 2 0260ERRORS" 026600 "ERRORS ENCOUNTERE 060 1CCVS-E-3SQ1304 026800 02 FILLER 290CLOSEPRINT-FILE.2 02690 "FOROFFICIAL USE ONLY".SQ1304 027000 02 FILLER PIC X(12) VALUE SPACE330 RAW-DATASQ1304 027100 02 FILLERPICX58 ND-E-2 SQ1304 00330 ". "T . SQ13042 02700 0 PIC(8 VALUE. SQ1304 PIC2 SQ1304 027500 0360 ERROR-COUNTER TO2 027600 01 CCVS-E-40MOVE 08CDATEFROMDATESQ1304 0700 VALUESQ1304 027839 KEY. .2 027900 02 CCVS-E-4-2 PIC XXX VALUE SPACE300END-E-2SQ130421. 080320TERMINATE-CCVS.java.lang.StringIndexOutOfBoundsException: Index 80 out of 028100 " TESTS WERE EXECUTED SUCCESSFULLY".0 RUNSQ1304 028200 03035*SQ1304.2 028300 02 FILLER PIC X(19) VALUE "*** INFORMATION ***". SQ1304.2 02840002 INFO-TEXTSQ130480MOVE TO.java.lang.StringIndexOutOfBoundsException: Range 0370MOVEINSPT30 TO. . 026004XXCOMPUTED X(2) .2 028700 04 FILLER PIC X(5) VALUE SPACE. SQ1304.2 028800 04 XXCORRECT PIC X(20). SQ1304.2 028900 02 INF-ANSI-REFERENCE PIC X(48). SQ1304.2 029000 01 HYPHEN-LINE. 0303500ADD1T PASS-COUNTER. .2 0900 2 PIC050* .2 09200 PIC X020 PRINT-FILE.2 03000OPENI-O. SQ1304 029400 02 FILLER PIC IS X(3230ADD TOERROR-COUNTER.2 02950MOVE."TOC-ABORT SQ1304. 02340 PASS-COUNTER C-OK.2 029700 "SQ130A". 036000* java.lang.StringIndexOutOfBoundsException: Index 80 out of 029800* SQ1304.2 029900* SQ1304.2 000. 0.SQ1304 320. 2 03030 70 RTO 0340MOVE TO. .2 030500 READ0350 . java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds 030600 MOVE "ABORTED340PERFORM SQ1304.2 030700 ADD034500* 50PERFORM THRU6INSPT FROM.SQ1304 000 CTIMETIME0TOSQ1304 0310340 PERFORM0 TO.SQ1304 031100 END-E-1MOVE TO. SQ1304.2 031200 CLOSE RAW-DATA. SQ1304.2 031300 OPEN OUTPUT PRINT-FILE. SQ1304.2 031400 050java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for l 0340 HEAD-ROUTINESQ13040 PRINT-DETAIL.java.lang.StringIndexOutOfBoundsException: I 031600 MOVE SPACE 35 CCVS-H-1 DUMMY-RECORDSQ1304 0370 ERFORM COLUMN-NAMES-ROUTINESQ1304 031800 MOVE ZERO TO008 ERROR-COUNTERSQ1304 031900 PERFORM CCVS-INIT-FILE 10 TIMES036000* SQ1304.2 020 .SQ1304 032100* SQ1304.2 032200 CCVS-INIT-FILE4031 CCVS-C-2. WRITE-LINE. 2 0323009 TO.PERFORM SQ1304 03240 FILE-RECORD-INFO-SKELETON TO SQ1304 025 (. SQ1304 032600* SQ1304.2 032700 CLOSE-FILES. SQ1304.2 032800 PERFORM END-ROUTINE THRU END-ROUTINE-13. SQ1304.2 032900 CLOSE PRINT-FILE. SQ1304.2 033000 OPEN I-O RAW-DATA00PERFORM. &r> 033600 MOVE ERROR-COUNTER TO0620 MOVE "***TESTDELETED**"TO. SQ1304.2 003300MOVE" .SQ13042 30 TO .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for lengt 033900 REWRITE RAW-DATA-SATZ INVALID0360PRINT-DETAILSQ1304 0340IF NOTTO310CCVS1 2 034100 CLOSE RAW-DATA. 00 OPEN30MOVE .SQ1304 034200 TERMINATE-CCVS. 000PERFORM.2 034300 EXIT PROGRAM. SQ1304.2 340STOP.SQ1304.2 034500* SQ1304.2 30INSPTSQ1304 034700 MOVE "INSPT" TO P-OR-F. SQ1304 034800 ADD 1 090ACCEPT - FROM .380MOVE P-OR-F. 0390 030 MOVESPACE java.lang.StringIndexOutOfBoundsException: Index 80 out of bound 035000* SQ1304.2 0310PASS .2 3530M SPACERE-MARKSQ1304 035300 ADD 1 TO PASS-COUNTER038300* SQ1304.2 0340 PERFORM. 2 035500* SQ1304.2 360FAIL2 035700 MOVE "FAIL*" TO P-OR-F10P HEAD-ROUTINETHRU. .2 0580ADD1TO 2 350 PERFORM PRINT-DETAILSQ1304 036000* SQ1304.2 SQ1304.2 036300GO &nbsbsp; SQ1304java.lang.StringIndexOutOfBoundsException: Index 80 out of bound 036400 ADD 40 MOVE . .. 036500 PERFORM0MOVE30. 2 036600* SQ1304.2 370PRINT-DETAILSQ1304 036800 IF REC-CT NOT EQUAL TO ZERO SQ1304.2 036900 MOVE4041 ERROR-COUNTER S. 0730 AFTERADVANCING 2 037100 MOVE TEST-RESULTS TO PRINT-REC90 MOVE CCVS-C-10 ETO . 0720PERFORM .2 370 IF EQUAL FAIL. 037400 PERFORM470END-ROUTINE-134200 MOVE TO DUMMY-RECORDSQ13042 037500 PERFORMFAIL-ROUTINETHRU SQ1304.2 037600 ELSE SQ1304.2 30 THRU..2 037800 MOVE SPACE044500* SQ1304.2 037900 MOVE40WRITE20ELSE.2 03800MOVE TOCORRECT-X 038100 IF REC-CT EQUAL TO ZERO MOVE200 ERFORMSQ1304 038200 MOVE SPACE TO RE-MARK. SQ1304.2 038300* SQ1304.2 038400 HEAD-ROUTINE. SQ1304.2 038500 MOVE CCVS-H-1 TO DUMMY-RECORD0 " FURTHER INFORMATION060 MOVE " ERROR-TO 038600 MOVE560MOVEXXINFO . .2 087 CCVS-H-2B DUMMY-RECORD.P WRITE-LINE. .java.lang.StringIndexOutOfBoundsException: 038800 MOVE CCVS-H-3490MOVE TEST04 GO FAIL-ROUTINE-EX.java.lang.StringIndexOutOfBound 038900 COLUMN-NAMES-ROUTINE. SQ1304.2 SQ1304 1 46300 MOVE ANSI-REFERENCE.java.lang.StringIndexOutOfBoundsException: Index 80 out 0390 450 PERFORM 2 . java.lang.StringIndexOutOfBoundsException: Index 80 out of bound 090END-ROUTINESQ1304 039400 MOVE HYPHEN-LINE4704670FAIL-ROUTINE-EX.java.lang.StringIndexOutOfBoundsExce PERFORM TIMES.2 039600 END-RTN-EXIT. SQ1304390 MOVE460 BAIL-OUTSQ1304 3970MOVETO SQ1304 039800 PERFORM WRITE-LINE 470 010MOVE DUMMY-RECORDPERFORMSQ1304 039900* SQ1304.2 040000 END-ROUTINE-1. SQ1304.2 04470 OVECOMPUTED-A XXCOMPUTED450*SQ1304.2 040200 ADD0460 WRT-LNSQ1304 0430 ADDDELETE-COUNTER AFTER1 S.2 040400 SPACE DUMMY-RECORD SQ1304 040500 MOVE40 BLANK-LINE-PRINT. .2 040600 MOVE TOCCVS-E-4-2SQ1304 040700 MOVE CCVS-E-4 TO CCVS-E-2-2. 410FAIL-ROUTINESQ1304.2 040800 MOVE CCVS-E-2 TO4500 IFCOMPUTED-X NOTEQUAL080 java.lang.StringIndexOutOfBoundsE 040900 PERFORM WRITE-LINE40 MOVE ANSI-REFERENCE2 041000 MOVE "TEST(S) FAILED" TO ENDER-DESC. SQ1304.2 010 ERROR-COUNTEREQUALZS.java.lang.StringIndexOutOfBoundsException: Index 81 out 0100 "NO "TO ERROR-TOTAL.2 041300 ELSE SQ1304.2 4400MOVE TO. SQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bou 041500 MOVE450 SPACES 0480** SQ1304.2 041600 PERFORM WRITE-LINE. SQ1304.2 047041 ECT-SQ130A-MAIN.SQ1304 0480 090 2 041900 MOVE "NO " TO ERROR-TOTAL SQ1304.2 04200 LEWHICHIS PRESENTAVAILABLE IT. SQ1304049600* SQ1304.2 042100 MOVE DELETE-COUNTER4620 OPEN TOSQ1304 0220MOVE"TEST() " TO. 90 ""TPAR-NAME2 042300 MOVE440MOVE TOPRINT-REC.2 042400 PERFORM042400 PERFORM 2 TIMES .2 042500 IFINSPECT-COUNTER TO ZEROSQ1304 2 NO SQ1304 0470 ELSESQ1304 042800 MOVE INSPECT-COUNTER TO ERROR-TOTALMOVE0 TEST "TOENDER-DESC SQ13042 04070BAIL-OUT-WRITE.2 0430 MOVE TO. PERFORM. SQ1304 043200* SQ1304.2 043300 WRITE-LINE. SQ1304.2 043400 ADD 1 TO 460 XXINFO DUMMY-RECORD SQ1304 0350IF GREATER5 .2 0460 DUMMY-RECORD0IF NOT"5 .java.lang.StringIndexO 043700 MOVE SPACE TO DUMMY-RECORD SQ130440 00EXITSQ1304 0480 WRITEDUMMY-RECORDPAGE2 043900 MOVE CCVS-C-110 SQ-FS1-STATUS COMPUTED-A0..2 044000 MOVE CCVS-C-2 TO510 0830 .2 0400 HYPHEN-LINETO450 044200 MOVE TO DUMMY-RECORDSQ13042048600* THIS POINT MARKS THE 048700*052000* SQ1304.2 04430049000* SQ1304.2 044400 PERFORM90 . .2 044500* SQ1304.2 044090*SQ1304 044700 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. 49700 MOVE 1 TO REC-CT SQ1304.2 044800 MOVE SPACE TO DUMMY-RECORD. SQ1304.2 044900 BLANK-LINE-PRINT. SQ1304049800 MOVE "OPEN ABSENT FILE I-O" TO FEATURE SQ1304.2 045000 PERFORM WRT-LN. SQ1304.2 045100 FAIL-ROUTINE. SQ1304.2 045200 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ1304.2 045300 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ1304.2 045400 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. SQ1304.2 045500 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. SQ1304.2 045600 MOVE XXINFO TO DUMMY-RECORD. SQ1304.2 045700 PERFORM WRITE-LINE 2 TIMES. SQ1304.2 050 MOVESPACESTO. .2 045900 GO TO FAIL-ROUTINE-EX. SQ1304.2 046000 FAIL-ROUTINE-WRITE. SQ1304.2 0410 TEST-COMPUTED SQ1304 046200 PERFORM WRITE-LINE 000 WRITE-LINE SQ1304 0630 ANSI-REFERENCE TO. .2 04640 TEST-CORRECT PRINT-REC.2 046500 PERFORM WRITE-LINE 2 TIMES. SQ1304.2 046600 MOVE SPACES TO COR-ANSI-REFERENCE. SQ1304.2 046700 FAIL-ROUTINE-EX. SQ1304.2 046800 EXIT. SQ130400OPEN-TEST-01SQ1304 04690 BAIL-OUT. . 0ACEGOTO. SQ1304.java.lang.StringIndexOutOfBoundsException: Index 80 out of bound 04100IFC EQUALTOSPACE TO. SQ1304 070BAIL-OUT-WRITESQ1304 04550MOVE3" CORRECT-A SQ13042 04740010 MOVE TO COMPUTED-ASQ1304 047500 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE0 PERFORM .2 047600 MOVE XXINFO TO DUMMY-RECORD900PERFORM. .2 047700 PERFORM WRITE-LINE 2 TIMES. SQ1304.2 047800 MOVE SPACES20 SECTION SQ1304 04790 . .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for len 04800 EXIT java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for l 048100 CCVS1-EXIT. SQ1304.2 048200 EXIT. SQ1304.2 048300* SQ1304.2 048400**************************************************************** SQ1304.2 048500* * SQ1304.2 048600* THIS POINT MARKS THE END OF THE CCVS MONITOR ROUTINES AND * SQ1304.2 048700* THE START OF THE TESTS OF SPECIFIC COBOL FEATURES. * SQ1304.2 048800* * SQ1304.2 048900**************************************************************** SQ1304.2 049000* SQ1304.2 049100 SECT-SQ130A-MAIN SECTION. SQ1304.2 049200 OPEN-INIT-01. SQ1304.2 049300* SQ1304.2 049400* THIS PROGRAM ATTEMPTS TO OPEN IN THE INPUT-OUTPUT MODE SQ1304.2 049500* A FILE WHICH IS NOT PRESENT AND AVAILABLE TO IT. SQ1304.2 049600* SQ1304.2 049700 MOVE 1 TO REC-CT SQ1304.2 049800 MOVE "OPEN ABSENT FILE I-O" TO FEATURE SQ1304.2 049900 MOVE "OPEN-TEST-01" TO PAR-NAME SQ1304.2 050000 MOVE "**" TO SQ-FS1-STATUS. SQ1304.2 050100* SQ1304.2 050200 MOVE SPACE TO DUMMY-RECORD. SQ1304.2 050300 PERFORM WRITE-LINE. SQ1304.2 050400 MOVE "ABNORMAL TERMINATION AT THIS POINT IS ACCEPTABLE" SQ1304.2 050500 TO DUMMY-RECORD. SQ1304.2 050600 PERFORM WRITE-LINE. SQ1304.2 050700 MOVE SPACE TO DUMMY-RECORD. SQ1304.2 050800 PERFORM WRITE-LINE 3 TIMES. SQ1304.2 050900* SQ1304.2 051000 OPEN-TEST-01. SQ1304.2 051100 OPEN I-O SQ-FS1. SQ1304.2 051200 IF SQ-FS1-STATUS NOT = "35" SQ1304.2 051300 MOVE "INCORRECT STATUS CODE RETURNED" TO RE-MARK SQ1304.2 051400 MOVE "VII-4, 1.5.3(3)C" TO ANSI-REFERENCE SQ1304.2 051500 MOVE "35" TO CORRECT-A SQ1304.2 051600 MOVE SQ-FS1-STATUS TO COMPUTED-A SQ1304.2 051700 PERFORM FAIL SQ1304.2 051800 ELSE SQ1304.2 051900 PERFORM PASS. SQ1304.2 052000* SQ1304.2 052100* SQ1304.2 052200 CCVS-EXIT SECTION. SQ1304.2 052300 CCVS-999999. SQ1304.2 052400 GO TO CLOSE-FILES. SQ1304.2 br> 052200 CCVS-EXIT SECTION. SECTION SQ13042 052300 CCVS-999999. SQ1304.2 052400 GO TO049500* A FILE WHICH IS NOT PRESENT AND AVAILABLE0460 .2 ¤ Dauer der Verarbeitung: 0.20 Sekunden (vorverarbeitet) ¤*© Formatika GbR, Deutschland |
|
2026-03-28