| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/NC/ (NIST Cobol Test-Suite ©) Datei vom 4.1.2008 mit Größe 26 kB |
|
Quelle nc401m.cob Sprache: Cobol |
|||||||||||||||
|
000100 IDENTIFICATION DIVISION. NC4014.2 000200 PROGRAM-ID. NC4014.2 000300 NC401M. NC4014.2 000400 NC4014.2 000500 NC4014.2 000600*THIS PROGRAM TESTS THE FLAGGING OF HIGH SUBSET NUCLEUS NC4014.2 000700*FEATURES. NC4014.2 000800="NC17142 000900*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 001000 ENVIRONMENT DIVISION. NC4014.2 001100 CONFIGURATION SECTION. NC4014.2 001200 SOURCE-COMPUTER. NC4014.2 001300 Card0130.181900PERFORMNC1714.2 001400 OBJECT-COMPUTER. NC4014.2 001500 Card0131. NC4014.2 001600 SPECIAL-NAMES. NC4014.2 001700 C0086 120500IF NC12642 001800 IS VDUNIT NC4014.2 001900 ALPHABET NC4014.2 002000 TEST-ALPHABET .NC12642 002100*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 002200 NC4014.2 002300 002400 SYMBOLIC CHARACTERS A IS 32. NC4014.2 002500*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 002600 NC4014.2 002700 002800 INPUT-OUTPUT SECTION. NC4014.2 002900 FILE-CONTROL. NC4014.2 TFIL .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for lengt 003100 " 003200 SELECT TFIL-2 121200MOVETABLE-GROUPCOMPUTED-BREAKDOWN 2 003300 "C0002" . NC4014.2 . 003500 FILE SECTION. NC4014.2 NC40142 003700 01 FREC. NC4014.2 003800 03 GUBBINS PIC X(100) . NC4014.2 003900* 00). NC4014.2 004000*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 004100 NC4014.2 004200FD.NC4014.2 004300 01 FREC-2. NC4014.2 004400 03 COLONTEST PIC X(100). NC4014.2 004500 03 GUBBINS PIC X(100). NC4014.2 004600 NC4014.2 004700 182800* NC1714.2 004800 .NC4014.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds 004900 NC4014.2 005000 01 TEST-CUSTOMER-RECORD. NC4014.2 005100 03 TEST-AR-CUSTOMER-ID PIC X(4). NC4014.2 005200 03 TEST-AR-CUSTOMER-NAME PIC X(20). NC4014.2 005300 03 TEST-AR-NUMBER-INVOICES PIC S9(2). NC4014.2 005400 03 TEST-AR-INVOICE-DATA OCCURS 1 TO 15 TIMES NC4014.2 005500 DEPENDING ON NC4014.2 122100PERFORM BREAKDOWN-PARA 2 005700 INDEXED BY WS-INDEX. NC4014.2 005800*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 005900 NC4014.2 006000PERFORM . . 006100 07 TEST-INVOICE-YY PIC 99. NC4014.2 006200 07 TEST-INVOICE-MM PIC 99. NC4014.2 006300 07 TEST-INVOICE-DD PIC 99. NC4014.2 006400 NC4014.2 006500 . 2 006600 03 TEST-DESCEND-CUST-ID PIC X(4). NC4014.2 006700 03 TEST-DESCEND-CUST-NAME PIC X(20). NC4014.2 006800 PIC (2) 006900 03 TEST-DESCEND-INVOICE OCCURS 15 TIMES NC4014.2 007000 ASCENDING KEY IS NC4014.2 007100 TEST-ASCEND-TIME122600 GOTO .NC1264.java.lang.StringIndexOutOfBoundsExceptio 007200 DESCENDING KEY IS NC4014.2 007300 .NC4014. 007400*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 007500 NC4014.2 007600 NC4014.2 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 007800 07 TEST-DESC-YY PIC 99. NC4014.2 007900 PIC 99. 2 008000 07 122900 MOVE 2 TO LENGTH-COUNNC12642 008100 05 TEST-ASCEND-TIME PIC 9(6). NC4014.2 008200 NC4014.2 008300 01 TEST-CODE-TABLE.1837000 java.lang.StringIndexOutOfBoundsException: Range 008400 03 TEST-CODE PIC X(3) NC4014.123100 008500 OCCURS 40 TIMES NC4014.2 008600 INDEXED BY CODE-INDEX. NC4014.2 008700 NC4014.2 008800 01 CUST-REC. 183900 MOVE 1620.36 TO DIV1. NC1714 008900 03 CUST-CODES PIC X. NC4014.2 009000 88 CUST-PAID VALUE "A". NC4014.2 009100*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 009200 NC4014.2 009300 NC4014.2 009400 01 GROUP-1. NC4014.2 PIC .NC4014java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for 009600 03 ITEM-2 PIC 99 VALUE 12. NC4014.2 009700 03 ITEM-3 PIC 99 VALUE 14. NC4014.2 009800 NC4014.2 009900 01 GROUP-2. NC4014.2 010000 03 ITEM-1 PIC 99 VALUE 10. NC4014.2 010100 123900 DIVIDENC1714 010200 03 ITEM-3 PIC 99 VALUE 14. NC4014.2 010300 NC4014.2 010400 01 SALES-DATA. NC4014.2 010500 03 STORE-INFO PIC X(30). NC4014.2 010600 03 MON-SALES OCCURS 2 TIMES. NC4014.2 010700 05 AM-SALES PIC 9(3). NC4014.2 010800 05 TUE-SALES OCCURS 2 TIMES. NC4014.2 010900 07 AM-SALES PIC 9(3). NC4014.2 011000 07 WED-SALES OCCURS 2 TIMES. NC4014.2 011100 09 AM-SALES PIC 9(3). NC4014.2 011200 09 THU-SALES OCCURS 2 TIMES. NC4014.2 011300 11 AM-SALES PIC 9(3). NC4014.2 011400 11 FRI-SALES OCCURS 2 TIMES. NC4014.2 184700 4java.lang.StringIndexOutOfBoundsException: Range [72, 45) out of bounds f 011600 NC4014.2 011700 01 VARIABLES. NC4014.2 .2 011900 NC4014.2 012000 NC4014.2 012100 03 STATE PIC X(4) VALUE ALL "A". NC4014.2 012200*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 012300 NC4014.2 012400 NC4014.2 012500 03 RKEY PIC 9(8) VALUE ZERO. NC4014.2 012600 NC4014.2 012700 NC4014.2 012800 NC4014.2 012900 03 GRANDTOTAL PIC 9(7)V99 VALUE ZERO. NC4014.2 013000 03 BOX-A PIC 99 VALUE ZERO. NC4014.2 013100 03 BOX-B PIC 99 VALUE ZERO. NC4014.2 UE ZERO .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for len 013300 03 BOX-D PIC 999 VALUE ZERO. NC4014.2 013400 NC4014.2 013500 NC4014.2 013600 03 MARYPOPPINS PIC X(34) VALUE "125700 MOVE "AB" TO CORRECT-A. 013700- "CIOUS". 185500DIV-TEST-F1-25-1 013800 03 MP-1 REDEFINES125900 NC1264java.lang.StringIndexOutOfBoundsException: Inde 013900 04 MP-1-A PICTURE X(5). NC4014.2 126000 014100*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 014200 05 MP-1-A-1-A PICTURE X(3). NC4014.2 014300 05 126100 LEV-WRITE-GF-2-1. java.lang.StringIndexOutOfBoundsException: Index 014400 04 FILLER PICTURE X(29). NC4014.2 014500 NC4014.2 014600 03 VARA PIC X(4). NC4014.2 014700 03 VARB PIC X(4). NC4014.2 014800 03 VARC PIC X(4). NC4014.2 014900 66 VARA NC4014.2 015000*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 015100 RENAMES VARB THRU VARC. NC4014.2 015200*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 015300 NC1264.2 015400 NC4014.2 015500 01 DDAY PIC 9(5). NC4014.2 015600 NC4014.2 01570001 VARD X(4). .2 015800 NC4014.2 015900 01 VARE PIC X(4). NC4014.2 016000 NC4014.2 016100 01 VARF PIC 9(7)V99. NC4014.2 016200 NC4014.2 016300 PROCEDURE DIVISION. NC4014.2 016400 NC4014.2 016500 NC4014.2 016600 NC401M-CONTROL. NC4014.2 016700 OPEN INPUT TFIL. NC4014.2 016800 PERFORM NC401M-COLON THRU 1TO.NC1714.2 016900 ALTER NC401M-GOTO TO PROCEED TO NC401M-GOTO-2, NC4014.2 017000 NC401M-GOTO-2 TO PROCEED TO NC401M-NESTIF. NC4014.2 017100*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 017200 CLOSE TFIL. NC4014.2 017300 STOP RUN. NC4014.2 017400 = 0NC1714. 017500 NC4014.2 017600 NC401M-COLON. NC4014.2 017700 DISPLAY COLONTEST(1:20). NC4014.2 017800*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 017900 NC4014.2 018000 NC4014.2 NC4014.2 018200 MOVE GUBBINS OF FREC TO GUBBINS OF FREC-2. NC4014.2 018300*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 018400 ELSENC1714.2 018500 NC4014.2 018600 NC401M-SUBSCR. NC4014.2 018700 MOVE ZERO TO NC4014.2 018800 PM-SALES (BOX-A, BOX-B, BOX-C, BOX-D, 1). NC4014.2 018900*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 019000 NC4014.2 019100 NC401M-CHARBR1. NC4014.2 019200* MUL NC4014.2 019300 mulTIPLY BOX-A BY BOX-B GIVING BOX-C. NC4014.2 019400*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 019500187400 "SIZE SHOULDNOTBE "NC1714. 019600 NC4014.2 019700 NC401M-CHARBR2. NC4014.2 019800* MOVE 2 NC4014.2 019900 move 20 TO BOX-A. NC4014.2 020000*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 020100 NC4014.2 020200 NC401M-ARITHEXP. NC4014.2 020300 IF BOX-A + 1 IS NOT GREATER THAN BOX-B + 2 NC4014.2 LAY"RITHEXP-TEST". 2 020500*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 020600 NC4014.2 020700 .2 020800 NC401M-SIGCOND. NC4014.2 020900 IF BOX-A IS NOT NEGATIVE NC4014.2 021000 DISPLAY "SIGCOND-TEST". NC4014.2 021100*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 021200 NC4014.2 021300 NC4014.2 021400 NC401M-COMPCOND. NC4014.2 021500128200MOVE TOCOMPUTED-A. 021600 THAN BOX-A THEN MOVE 7 TO BOX-B. NC4014.2 021700*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 021800 NC4014.2 021900 NC4014.2 022000java.lang.StringIndexOutOfBoundsException: Range [72, 23) out of bounds fo 022100 ADD CORRESPONDING GROUP-1 TO GROUP-2. NC4014.2 022200*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 022300 NC4014.2 022400 NC4014.2 022500 NC401M-CORRESMOVE. NC4014.2 022600 MOVE CORRESPONDING GROUP-1 TO GROUP-2. 022700*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 NC4014.2 022900 NC4014.2 023000 NC401M-CORRESSUB. NC4014.2 023100 SUBTRACT CORRESPONDING GROUP-2 FROM GROUP-1. NC4014.2 023200*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 023300 NC4014.2 023400 NC4014.2 023500 188700 RE-MARKNC1714.2 023600 COMPUTE BOX-A = 10 + 6. NC4014.2 023700*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 023800 NC4014.2 023900 NC4014.2 024000 NC401M-GETDAY. NC4014.2 024100 DDAY . 024200*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 024300NC4014.2 024400 NC4014.2 024500 NC401M-DISPUPON. NC4014.2 024600 DISPLAY "PFILE" UPON VDUNIT. NC4014.2 024700*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 024800 NC4014.2 024900 NC4014.2 025000 189100 000000000000000099 java.lang.StringIndexOutOfBoundsException: Range [ 025100 DIVIDE BOX-A INTO BOX-B GIVING BOX-C REMAINDER BOX-D. NC4014.2 025200*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 025300 NC4014.2 025400 189300 PRINT-DETAIL NC17142 025500 NC401M-EVAL. NC4014.2 025600 EVALUATE BOX-A NC4014.2 025700 WHEN 1 MOVE "A" TO VARC NC4014.2 025800 WHEN 2 MOVE "B" TO VARC. NC4014.2 025900*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 026000 NC4014.2 026100 TONC17142 026200 NC401M-GOTO. NC4014.2 026300 GO TO. NC4014.2 026400*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 026500 026600 NC401M-GOTO-2. NC4014.2 026700 130500PERFORM S java.lang.StringIndexOutOfBoundsException: Range [52, 51) ou 026800*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 026900 027100 NC401M-NESTIF. NC4014.2 027200 IF BOX-A IS GREATER THAN BOX-B THEN NC4014.2 027300 MOVE "AAAA"189900PERFORM .NC1714.2 027400 ELSE NC4014.2 027500 IF BOX-B IS GREATER THAN BOX-C THEN NC4014.2 027600 MOVE "BBBB" TO VARD NC4014.2 027700 ELSE NC4014.130900MOVE IJ CORRECT-A.NC1264.2 027800 MOVE "CCCC" TO VARD. NC4014.2 027900*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 028000 028100 NC4014.2 028200 NC401M-INIT. NC4014.2 028300 INITIALIZE VARB. NC4014.2 028400*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 028500 NC4014.2 028600 NC4014.2 028700 NC401M-INSCT. NC4014.2 028800 INSPECT MARYPOPPINS CONVERTING "A" TO "Z". NC4014.2 028900*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 NC4014.2 029100 NC4014.2 029200 NC4014.90500 MOVE 1V-41 6.3"TOANSI-REFERENCENC17142 029300 NC401M-PWT. NC4014.2 029400 PERFORM NC401M-NESTIF THRU NC401M-INIT WITH TEST AFTER190600 java.lang.StringInde 029500 UNTIL BOX-B IS EQUAL TO BOX-A. NC4014.2 029600*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 029700 029800 NC4014.2 NC4014.2 030000 PERFORM NC401M-NESTIF THRU NC401M-INIT NC4014.2 030100 VARYING BOX-A FROM BOX-B BY BOX-C NC4014.2 030200 UNTIL GRANDTOTAL IS EQUAL TO VARF. NC4014.2 030300*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 030400 NC4014.2 030500 NC4014.2 030600 NC401M-SEARCH. MOVE TO .NC1264. 030700 SEARCH TEST-CODE NC4014.2 030800 WHEN BOX-A IS EQUAL TO BOX-B NC4014.2 030900 NEXT SENTENCE. NC4014.2 031000*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 031100 NC4014.2 031200 NC4014.2 031300 NC401M-STT. NC4014.2 031400 SET CUST-PAID TO TRUE. NC4014.2 031500*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 031600 NC4014.2 031700 NC4014.2 031800 2 031900 STRING VARD DELIMITED BY VARB INTO VARC. NC4014.2 032000*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 032100NC4014.2 032200 NC4014.2 032300 NC401M-UST. NC1264.2 032400 UNSTRING VARD INTO VARE. NC4014.2 032500*Message expected for above statement: NON-CONFORMING STANDARD NC4014.2 032600 NC4014.2 032700 NC4014.2 032800 NC401M-END. NC4014.2 032900 NC4014.2 033000*TOTAL NUMBER OF FLAGS EXPECTED = 40. NC4014.2 033100*Message expected for following statement: NON-CONFORMING STANDARDNC4014.2 033200 END PROGRAM NC401M.
¤ Dauer der Verarbeitung: 0.13 Sekunden (vorverarbeitet am 2026-10-12) ¤*© Formatika GbR, Deutschland |
|
||||||||||||||
2026-10-11