Quelle nc113m.cob Sprache: Cobol

000000     DIVISION                                      .2
0020PROGRAM-IDNC1134
000300     NC113M.                                                      NC1134.2
000400****************************************************************  NC1134.2
000500*                                                              *  NC1134.2
000600*    VALIDATION FOR:-                                          *  NC1134.2
000700*                                                              *  NC1134.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC1134.2
000900*                                                              *  NC1134.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC1134.2
001100*                                                              *  NC1134.2
001200****************************************************************  NC1134.2
001300*                                                              *  NC1134.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC1134.2
001500*                                                              *  NC1134.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  NC1134.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  NC1134.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  NC1134.2
001900*                                                              *  NC1134.2
002000****************************************************************  NC1134.2
002100*                                                                 NC1134.2
002200*   PROGRAM NC113M VERIFIES CORRECT USE OF AREA A WITHIN          NC1134.2
002300*                      A PROGRAM.                                 NC1134.2
002400*                                                                 NC1134.2
002500*                                                                 NC1134.2
0002300*                      A PROGRAM.                                 NC1134.2
002700    CONFIGURATION SECTION.                                        NC1134002500*                                                                 NC1134.2
002800    SOURCE-COMPUTER0200CONFIGURATION.                                        NC1134
002900     Card0130.                                                    NC1134020 Card0130NC1134
0030    .                                              .2
010     Card0131                                                    .2
003200    INPUT-OUTPUT20INPUT-OUTPUT.                                         NC1134
003300    FILE-CONTROL.                                                 NC1134.2
040SELECT  ONC1134
003500     "C0085" .                                                    NC1134.2
00600DATANC1134
003700     DIVISION.                                                    NC1134.2
003800    FILE SECTION.                                                 0DATANC1134.2
003900    FDPRINT-FILENC1134
004000    01 PRINT-REC PICTURE 030     SECTION.                                                 NC1134
004100   1  DUMMY-RECORDNC1134
004200 WORKING-STORAGE SECTION.                                         NC1134.2
004300    77  000001PRINT-REC (20).NC1134
004400    77  DELETE-CNT                PICTURE 999  VALUE1       PICTURE(2)                              .2
004500    01  TEST-RESULTS.                                                 7ERROR-COUNTER  999VALUE.               NC11342
00460    0                      PICTUREVALUE PACE.2
004700  02  FEATURE                PICTURE X(20).                       NC1134.2
004800  02 FILLERPICTURE  VALUE.          NC1134.2
004900  02  P-OR-F                      PICTURE XXXXX.                  NC1134.2
0500   0 ILLER XVALUE.         NC1134
005100    02 PAR-NAME                   PICTURE X(19).                  NC1134.2
005200   0                       PICTUREVALUE.          .2
005300  02 COMPUTED-A                   PICTURE X(20).                  080 0                         X VALUEPICTURE..2
005400   02 COMPUTED-N REDEFINES COMPUTED-A PICTURE00                    PICTURE.NC1134
005500     02 FILLER                    PICTURE XX VALUE SPACE.         0530002COMPUTED-A X(20).NC1134
06002                  PICTURE X(0.                  NC1134
00700  REDEFINES PICTURE-()99.            NC1134
0058050     2CORRECT-A (0.NC1134
005900  02 RE-MARK                      50  0  REDEFINESCORRECT-A 9(.(java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
6  .
10 PICTURE  " .
006060    4                                    .
006300     SPACE                         3)            NC1134
006400 02 FILLER1.                                             .
6      COMPILER
006600 02 FILLER                        PICTURE X(35)  VALUE            007000   02 FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS SET-  ".     NC1134 PICTURE X9                                   .
0.
006800    01 HEADER-LINE-2.                                             NC1134.2
006900  02 FILLER PICTURE 007600     02  FILLER PICTURE                               NC1134
007000   02 FILLER 078002 FILLER X(2)                               NC1134
0710002 TEST-ID IS X()                                   .2
00720   2FILLER  ISX4)VALUE.                     NC1134
007300   01 HEADER-LINE-3.                                              NC1134.2
070  2FILLER X(4) VALUENC1134
007500     " FOR OFFICIAL USE ONLY "802   PICTURE X(9  IS FEATURE
0600  FILLERPICTURE (8                                NC1134
0770                                                              .2
00800      0  PICTURE2)VALUE.2
007900     " COPYRIGHT 1985 ".                              NC1134.2
00001COLUMNS-LINE-1.2
008100  02 PAGE-CONTROL-C PICTURE IS X VALUE  IS IS .                         .2
800     PICTUREX99) VALUEFEATURE
008300-    "S PARAGRAPH NAME 008900 02 FILLER PICTURE IS X(15) VALUE IS SPACE. NC1134.2
008400-    " REMARKS".                                           NC1134.2
008500  02 FILLER PICTURE IS X(20) VALUE IS SPACE.                      NC1134.2
008600   01  COLUMNS-LINE-2.                                            NC1134.2
00870   0  PICTURE  X VALUE SPACENC1134
008800001002FILLER ISX9)VALUESPACE.NC1134
008900   02 FILLER 090    1ENDER-LINE-1.2
009000   02 FILLER PICTURE IS X(4) VALUE IS09002FILLER IS(2 VALUEIS.               .2
9FILLER SX9)VALUEISSPACE.2
009200    01        ENDER-LINE-1.                                       NC1134.2
090    2 PICTURE (2  IS SPACE.2
009400    02        FILLER PICTURE IS X(14) VALUE0   2FILLER IS(5  IS SPACE.2
00500            PICTUREIS(9)                        .2
06002         FILLER PICTUREIS4)VALUESPACE.2
009700  01 ENDER-LINE-2.                                                NC1134.2
009800  02 FILLER                       PICTURE90     SPACENC1134.2
009900     SPACE.                                                       NC1134.2
1000  0 FILLER     PICTUREX(1    VALUE   SPACENC1134
0000   2ERROR-TOTAL PICTUREI         XXX IS.      NC1134
10  2  PICTURE  VALUESPACENC1134
010.NC1134
010400-    "COUNTERED".                                                 NC113400       PICTURE3VALUEN.2
1002FILLER ISX(33  IS .                   .2
010600    01 ENDER-LINE-3000    FILLER X(2 VALUENC1134.
010700   02000     " OFFICIALONLY. NC1134.2
010800     " FOR OFFICIAL USE ONLY".                                    NC11340  2FILLER X(1)VALUE.NC1134
ALUE                            .2
011000   02 FILLER PICTURE X(58) VALUE010    2 FILLER  X(1)VALUE.                          .2
0110      X()VALUE SPACENC1134
011200     02  010  0  HYPHEN-LINENC1134
011300  01  HYPHEN-LINE.                                                0  PICTURE  VALUEIS.                       .2
140       PICTUREX VALUE
011500     010---------------------                 .2
16-"------------ .2
01100    ---------..2
011800-    "------09 NC1134.
010PROCEDURE.2
012000      DIVISION                                                    NC1134.2
012100               11                                                                 NC1134
10    .                                                   .2
3      PRINT-FILENC1134
012400     MOVE " NC113M" TO TEST-ID.                                  NC1134.2
01250          TEST-ID ID-AGAIN.2
012600     PERFORM  HEAD-ROUTINE THRU60     PERFORM THRU .             NC1134
10MOVETONC1134
012800     MOVE "MARGIN TESTING" TO FEATURE08      "MARGINTESTING" TO.NC1134
09      MAR-TEST-12
013000    MAR-TEST-2.                                                   NC1134.2
013100     MOVE "VISUALLY CHECKED" TO RE-MARK.                          NC113400MAR-TEST-2NC1134
020MOVETO.                           .2
130PERFORM.NC1134
013400     GO TO  MAR-TEST-3 PRINT-DETAIL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013500    MAR-TEST-15 ""    TO                           .2
013600     MOVE "MAR-TEST-15"    TO PAR-NAME.NC1134
013700     PERFORM PRINT-DETAIL ""     TO                           .2
013800    MAR-TEST-7.                                                   NC1134.2
" 2
014000     PERFORM PRINT-DETAIL.                                        NC1134.2
014100*    GO TO MAR-TEST-8.                                            NC1134.2
0     TONC1134
014300     MOVE.                                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0140      PRINT-DETAIL.
014500     GO TO MAR-TEST-13.                                           NC1134.2
0160   MAR-TEST-4NC1134
014700     MOVE "MAR-TEST-4"     TO PAR-NAME.                           NC1134.2
40 PRINT-DETAIL2
014900  MAR-TEST-9.                                                     NC1134.2
015      PRINT-DETAIL.
015100     java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015200 MAR-TEST-8.                                                      NC1134.2
015300      "MAR-TEST-8"TO.                           .2
015400     PERFORM PRINT-DETAIL.                                        NC1134.2
015500    PERFORM.                                          NC1134
160GO MAR-TEST-10.2
015700    MAR-TEST-1.                                                   NC1134.2
015800     0600PERFORM.                                        .2
015900     MOVE"TO .
016000     PERFORM PRINT-DETAIL.                                        NC1134 " MUST BE " TORE-MARK.NC1134
1.                                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060MOVESEQUENTIAL RE-MARK.2
016300     MOVE "MAR-TEST-5"     TO PAR-NAME.                           NC1134.2
1400     PERFORM.                                        .2
060      TO.                                          .2
060    .                                                  .2
060     MOVE MAR-TEST-13 PAR-NAMENC1134
016800     PERFORM PRINT-DETAIL.                                        NC1134.2
016900     GO TO MAR-TEST-14.                                           NC1134.2
1700    MAR-TEST-3NC1134.2
017100     MOVE "FOR CORRECTNESS"  TO RE-MARK.                          NC1134.2
017200     MOVE "MAR-TEST-3"     TO PAR-NAME.                           NC113470      "FOR CORRECTNESS"  TO.                          NC11342
01730     PERFORM.                                        NC1134
017400     PERFORM MAR-TEST-4.                                          NC1134.2
NC1134.2
017600    MAR-TEST-14.                                                  NC1134.2
017700     MOVE "MAR-TEST-14"    TO PAR-NAME.                           NC1134.2
017800     PERFORM PRINT-DETAIL.                                        NC1134.2
0190    PERFORM.                                         .
018000     GO TO    .                                                  .2
08100    MAR-TEST-11NC1134
018200     MOVE "MAR-TEST-11"    TO PAR-NAME.                           NC1134.2
018300     PERFORM PRINT-DETAIL.                                        NC113470      PRINT-DETAIL                                        .2
01400      TO.                                           .2
018500   MAR-TEST-10080      TO.                                           .2
018600     MOVE "MAR-TEST-10"    TO PAR-NAME.                           NC1134.2
018700     PERFORM.                                        .2
018800     GO30     PERFORM.                                        .2
018900    .                                                   .2
100MOVE" PAR-NAME. NC11342
0108600      "MAR-TEST-10"     PAR-NAMENC1134
019200     PERFORM MAR-TEST-70870PERFORM.                                        .2
0130      TO.                                            .2
019400    CLOSE-FILES.                                                  NC1134.2
150 END-ROUTINE END-ROUTINE-3NC1134
019600     CLOSE    PRINT-FILE100MOVE MAR-TEST-6 PAR-NAME.2
019700     STOP     RUN.                                                90PERFORM .                                        .2
0198090      TO.                                            .2
019900     MOVE"" TO P-OR-F                                       .2
00     RUNNC1134.
020100     ADD      1 TO ERROR-COUNTER09800    .                                                         .2
020200     MOVE "FAIL*" TO P-OR-F.                                      NC1134.2
020300    DE-LETE.                                                      2000FAIL.2
020010        ERROR-COUNTER.2
020500     MOVE     " ************ " TO COMPUTED-A.               NC1134.2
020600     MOVE"******** "TO.                NC1134.2
020700     MOVE "****TEST DELETED****" 200    .                                                      NC1134
020800     ADD 1 TO DELETE-CNT.                                         NC1134.2
0290    PRINT-DETAILNC1134
021000     MOVE     TEST-RESULTS TO PRINT-REC.                          NC1134.2
0210         PRINT-RECAFTER 1      .2
021200     MOVE     SPACE TO P-OR-F0MOVE **TEST*TONC1134
230MOVE TO.                                  NC1134
02140MOVE TO.                                .2
021500     MOVE SPACE TO CORRECT-A     TEST-RESULTS .                          NC1134
0216002           TO                                    .
10    .                                                 .2
10       BLANK-LINE-PRINT.                          .2
290    MOVEHEADER-LINE-1 UMMY-RECORD.2
022000     WRITE    DUMMY-RECORD                          AFTER 1.      NC1134          SPACE RE-MARKNC1134
022100     PERFORM  BLANK-LINE-PRINT.                                   NC1134.2
220     MOVE TO DUMMY-RECORDNC1134
022300     WRITE    DUMMY-RECORD                          AFTER 1.      NC1134.2
02400PERFORMBLANK-LINE-PRINT .                           NC1134.2
02500     MOVE HEADER-LINE-3 TO.                          NC1134
022600     WRITE                              1.NC1134
0020          HEADER-LINE-2 DUMMY-RECORDNC1134
022800    0230         DUMMY-RECORDAFTER 1.NC1134
022900     MOVE     COLUMNS-LINE-10       BLANK-LINE-PRINT.                           NC1134
02300WRITE                           .      NC1134
023100     MOVE     SPACE TO PAGE-CONTROL-C.020     WRITE                             AFTER 1      .2
023200         COLUMNS-LINE-2 DUMMY-RECORDNC1134
023300     WRITE    DUMMY-RECORD                          AFTER 1.      NC1134.2
NC1134.2
023500     MOVE     HYPHEN-LINE TO DUMMY-RECORD20          COLUMNS-LINE-1 DUMMY-RECORDNC1134
230         DUMMY-RECORDAFTER 1      .2
023700    END-ROUTINE.                                                  NC1134.2
030          HYPHEN-LINE DUMMY-RECORD.2
023900     WRITE    DUMMY-RECORD                          AFTER 1.      NC1134.2
040    .                                                       .2
0230     WRITEDUMMY-RECORD.      .2
024200     MOVE     ENDER-LINE-1 TO DUMMY-RECORD240PERFORM.                                   .2
024300     WRITE    DUMMY-RECORD                          AFTER 1.      NC1134.2
0240    END-ROUTINE-1NC1134
024500     PERFORM  BLANK-LINE-PRINT.                                   NC1134.2
0400       "TESTSREQUIREVISUALINSPECTION" TO.      NC1134
0280MOVE TO.                        .2
280MOVE 5"TOERROR-TOTAL .2
024900    END-ROUTINE-3200   .                                                       .2
02500          ENDER-LINE-2 DUMMY-RECORD.2
025100     WRITE    DUMMY-RECORD                          AFTER 1.      NC11340MOVE TO.                       NC1134
025200     IF DELETE-CNT40END-ROUTINE-1NC1134
025300         MOVE " NO" TO E-PRINT.NC1134
040        "TESTS VISUAL INSPECTION"TO.      NC11342
250MOVE       ENDER-DESC.2
025600     MOVE ENDER-LINE-2 TO DUMMY-RECORD40      " 5ERROR-TOTAL .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
270 DUMMY-RECORDAFTER1      .2
025800     MOVE ENDER-LINE-3 TO DUMMY-RECORD.                           NC1134.2
      DUMMY-RECORDNC11342
026000    BLANK-LINE-PRINT.                                             NC1134.2
VE TO.                              .2
2WRITEAFTER 1      .2

quality95%

¤ Dauer der Verarbeitung: 0.9 Sekunden ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.