Quelle nc113m.cob Sprache: Cobol

1IDENTIFICATION.NC1134
000200    PROGRAM-ID.                                                   NC113400    PROGRAM-ID.                                                   .2
000500*                                                              *  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
002600    ENVIRONMENT DIVISION.                                         NC1134.2
07     SECTION.2
002800    SOURCE-COMPUTER.                                              NC1134.2
090    .                                                    .2
000OBJECT-COMPUTERNC1134
003100     Card0131.                                                    030     Card0131.NC1134
00320     SECTION.2
003300    FILE-CONTROL.                                                 NC1134.2
003400     SELECT PRINT-FILE ASSIGN TO030      PRINT-FILEASSIGNT                                  .2
003500     "C0085" .                                                    NC113430                                                              .2
00360
00 .                                                .2
030FILE                                                 .2
003900    FD PRINT-FILE.                                                NC1134 0  DUMMY-RECORD PICTURE X(120).                              .2
00      PICTUREX1                                  .2
0040001DUMMY-RECORD X10.NC1134
004200 WORKING-STORAGE SECTION.                                         NC1134.2
0043007   PICTURE IS  IS ZERO.
004400    77  DELETE-CNT                PICTURE 999  VALUE02FILLER X VALUES.          NC1134
004500    01  TEST-RESULTS.                                             NC1134                       X SPACE
004600    02 FILLER                     PICTURE X 0500   2F                      PICTURE   SPACE.2
004700  02  FEATURE                PICTURE X(20).                       NC1134   2FILLER X  SPACENC1134
048 02FILLERPICTURE SPACE.          NC1134.2
004900  02  P-OR-F                       XXXXX                  NC1134
005000   02 FILLER                      PICTURE X  VALUE SPACE.         NC1134.2
005100    2PAR-NAME X(19)                  .2
005200   02 FILLER                      PICTURE X VALUE SPACE.          NC1134.2
0                      PICTURE                  .2
005400   02 COMPUTED-N050     02CORRECT-A2)                  .2
005500     02 FILLER50  2CORRECT-N CORRECT-A -9.()            .2
060     0                  PICTUREX2)                  .2
00702CORRECT-N  PICTURE-()99).            NC1134.2
005800       02 FILLER                  PICTURE XX VALUE SPACE.         NC1134.2
005900  02 RE-MARK                      PICTURE X(27).                  NC1134.2
006000   01  HEADER-LINE-1.                                             NC1134.2
006100       02  PAGE-CONTROL-4 PICTURE IS X   VALUE IS "1".            NC1134.2
006200       02  FILLER         PICTURE X(42)  VALUE00600   01  HEADER-LINE-1NC1134.2
006300     00600       2  PAGE-CONTROL-4 IS X   VALUEIS1". NC1134.2
0640 02FILLERPICTUREX(2) VALUENC1134.
006500     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM ".                NC1134.2
006600 02 FILLERPICTURE X(5) VALUE.2
006700     SPACE.                                                       NC1134.2
006800    01HEADER-LINE-2NC1134.2
006900  02 FILLER PICTURE IS X(52) VALUE IS SPACE00600"OFFICIALCOBOL VALIDATION SYSTEM ".                NC1134.2
.2
007100    02 TEST-ID IS(9.NC11342
007200   02 FILLER PICTURE IS X(40) VALUE IS SPACE.                     NC1134.2
007300   01 HEADER-LINE-300670     SPACENC1134.2
007400  02 FILLER PICTURE X(34) VALUE                                   NC1134.2
007500     " FOR OFFICIAL USE ONLY ".                                NC1134.2
X(58) VALUE.2
007700     " ". NC1134.2
08        PICTURE8VALUE.2
00     PICTURE9.NC1134
008000    01  COLUMNS-LINE-1.                                           00 FILLERPICTURE (0  IS SPACE.2
008100  020400  PICTURE3)                                    .2
008200  02 FILLER IS X(9)VALUE" PASNC1134.2
0070     2FILLER PICTUREX5)VALUE.2
0000"". NC1134
008500  02 FILLER PICTURE702FILLER X(8                               NC1134
008600   01  COLUMNS-LINE-2.                                            NC113480    0  .                                           NC1134
008700   02 FILLERPICTURE X VALUESPACENC1134
008800   02 FILLER PICTURE IS X(0020  2FILLER IS (9)VALUE IS " PASNC1134.2
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009000   002FILLERIS IS.                         .2
00   0  PICTURE (4  IS SPACE                     .2
0200        .                                       NC1134
030    0       PICTURE X5)VALUE  SPACENC1134
009400    02        FILLER PICTURE00900   02 FILLER PICTUREIS (4 VALUE IS .                     NC1134
009500    02         ID-AGAIN   0300      FILLER ISX5)VALUE.               NC1134
009600   0          PICTURE X4)VALUE.            NC1134
009700  01 ENDER-LINE-290    2ID-AGAIN  X(9.NC1134
009800  02 FILLER                       PICTURE X(3090    2         FILLER PICTURE  X(5  IS .            NC1134
0090.
010000  02 FILLER000  2FILLER     X2)   IS.          .2
011100 ERROR-TOTAL S     VALUE SPACE.2
0102000120  0 FILLER ISX IS .                          .2
010300    02      ENDER-DESC           PICTURE X(31) VALUE IS "ERRORS ENNC1134.2
010400-    "COUNTERED"                                                 .2
015002FILLER IS X(3)  IS SPACE.                   C1134
010600    01 ENDER-LINE-3.0050     2FILLER PICTUREIS X(33) VALUE)VALUESPACENC1134
17002 PICTURE2)                                  NC11342
1080     " FOR USE "                                    2
010900  PICTURE2  SPACE                            .2
011000   02 FILLER PICTURE X(58)010900  02 FILLER PICTURE X(12) V SPACE.                            NC1134
0110    0 FILLERPICTURE3  SPACE                          NC1134
011200     02  FILLER PICTURE X(15) VALUE "01002FILLERPICTURE (3 . .2
0130  1.                                                .2
011400     0 FILLER ISXVALUE  SPACENC1134
011500     02 FILLER PICTURE IS X(65) VALUE IS "---------------------01002FILLERPICTURE IS X VALUE IS SPACE.NC1134.2
160    "------------------------".NC1134
011700     001100    "-------------------------------".                NC1134
1180-    "---------------------"                            NC1134
1100PROCEDURE2
012000      DIVISION                                                    190    PROCEDURE                                                     NC1134
0210               .                                                  .2
012200    OPEN-FILES.                                                   NC1134.2
00220OPEN-FILESNC1134
012400     MOVE " NC113M" TO TEST-ID.                                  01230     OPENOUTPUT.                                  .2
012500     MOVE50MOVE TO.                                NC1134
0120  HEAD-ROUTINECOLUMN-NAMES-ROUTINE.2
012700     MOVE     SPACE0270          SPACE  TEST-RESULTS.                              .2
0200MOVE TESTING FEATURE                            .2
012900     PERFORM MAR-TEST-1.                                          NC11341200PERFORM.                                          NC1134.2
0130    .                                                   .2
013100     MOVE "VISUALLY CHECKED" 030      "MAR-TEST-2"      PAR-NAMENC1134
01320030      PRINT-DETAIL                                        .2
013300     PERFORM.                                        NC1134.2
013400     GO TO  MAR-TEST-3.                                           NC1134.2
013500    MAR-TEST-15.                                                  NC1134.2
013600     MOVEMAR-TEST-15 PAR-NAME.NC1134
013700     PERFORM PRINT-DETAIL.                                        NC1134.2
013800    MAR-TEST-7                                                   .2
013900     MOVEMAR-TEST-7 PAR-NAME.NC1134
014000     PERFORM PRINT-DETAIL.                                        NC1134.2
014100*    GO TO MAR-TEST-8.                                            NC1134.2
014200    MAR-TEST-12.                                                  NC1134.2
0143013900     MOVE"MAR-TEST-7 TO PAR-NAME. NC1134.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014100*    GO TO MAR-TEST-8.                                            NC1134.2
014500GO TO MAR-TEST-13.                                           .2
014600    MAR-TEST-4NC1134.2
014700     MOVE "MAR-TEST-4"     TO PAR-NAME.                           NC1134.2
014800     PERFORM PRINT-DETAIL.                                        NC1134.2
014900  MAR-TEST-9.                                                     40     PERFORM.                                        NC11342
015000     MOVE "MAR-TEST-9"     TO PAR-NAME.                           NC113440    MAR-TEST-4.                                                   .2
015100     PERFORM PRINT-DETAIL.                                        NC1134.2
0152000180     PERFORM.                                        NC1134.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015300     MOVE "MAR-TEST-8"     TO PAR-NAME.                           NC1134.2
01400PERFORM.                                        NC1134.2
015500     PERFORM MAR-TEST-9.                                          NC1134.2
015600     GO TO MAR-TEST-10.                                           NC1134.2
015700    MAR-TEST-1.                                                   NC1134MOVE      PAR-NAMENC1134
015800     MOVE "ANSWERS MUST BE"  TO0 MAR-TEST-9.2
015900     MOVE "MAR-TEST-1"     TO050      TO.                                           NC1134
10      PRINT-DETAILNC1134
016100    MAR-TEST-5.                                                   NC1134 "MAR-TEST-1 PAR-NAME.NC11342
016200     MOVETESTSSEQUENTIAL TO RE-MARK                  .2
016300     MOVE "MAR-TEST-5"     TO PAR-NAME01600    MAR-TEST-5NC1134.2
016400     PERFORM PRINT-DETAIL.                                        NC1134.2
016500     GO TO   MAR-TEST-6.                                          NC1134120      "TESTS MUST BE " TO.                  NC1134
016600060      PRINT-DETAILNC1134
016700     MOVE150GO   MAR-TEST-6NC1134
016800060MAR-TEST-13NC1134
016900     GO TO MAR-TEST-14.                                           170MOVE""    TO.                           .2
017000    MAR-TEST-3.                                                   00.
0110MOVE RE-MARK.2
017200     MOVE "MAR-TEST-3"     TO PAR-NAME.                           0 PRINT-DETAIL.2
017300     PERFORM PRINT-DETAIL.                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017400     PERFORM700     MAR-TEST-15NC11342
017500     GO TO MAR-TEST-5.                                            NC1134.2
017600    MAR-TEST-14NC1134
017700     MOVE "MAR-TEST-14"    TO PAR-NAME.                           NC11341.                                                  .2
0180PERFORM.                                        NC1134
017900     PERFORM MAR-TEST-15.                                         8GO MAR-TEST-12NC1134
100GO CLOSE-FILESNC1134
018100    MAR-TEST-11.                                                  NC1134.2
018200     MOVE "MAR-TEST-11"    TO PAR-NAME      PRINT-DETAILNC1134
01830 PRINT-DETAILNC1134
018400     GO TO MAR-TEST-12.                                           NC1134MAR-TEST-6NC1134
01850090      "MAR-TEST-6 TOPAR-NAME..
1MOVE    TO.                           .2
180      PRINT-DETAILNC1134
018800     GO TO MAR-TEST-11100GO MAR-TEST-8NC1134java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018900    MAR-TEST-60950     PERFORM THRU.                      .2
090     MOVE""     TO.                           NC1134
0110     PERFORMPRINT-DETAILNC1134
019200     PERFORM MAR-TEST-7.                                          NC1134.2
0930     GO MAR-TEST-8NC1134
019400    CLOSE-FILES.                                                   PASS.NC1134
019500     PERFORM END-ROUTINE THRU END-ROUTINE-3.                      NC1134.2
019600     CLOSE    PRINT-FILE.                                         NC1134.2
1970     STOP.                                                .
1PASSNC1134
019900     MOVE "PASS" TO P-OR-F.                                       NC1134.2
000    .                                                         NC1134
20     ADD1TO.                                 NC1134
020200     MOVE "FAIL*" TO P-OR-F         ****  CORRECT-A
000    DE-LETE.2
020400     MOVE     SPACE TO P-OR-F.                                    NC1134.2
020500     MOVE     " ************ " TO COMPUTED-A20.                                                 .2
020600     MOVE     " ************ " TO CORRECT-A10WRITE                             .NC1134
02070     MOVE"**TEST DELETED**** RE-MARK. NC1134.2
020800     010          SPACE PAR-NAME.2
020900    PRINT-DETAIL.                                                 0          SPACE COMPUTED-ANC1134
021000     MOVE      TO PRINT-REC.2
021100     WRITE    PRINT-REC                             AFTER 1.      NC1134.2
2100MOVESPACE P-OR-F.NC11342
021300     MOVE     SPACE TO PAR-NAME.0270    HEAD-ROUTINENC1134
0280PERFORM 15 TIMESNC1134
021500     MOVE SPACE0100    MOVE      TOD.                      NC1134
021600MOVE TO.                                   .2
021700    HEAD-ROUTINE.                                                 NC1134.2
021800     PERFORM  BLANK-LINE-PRINT 020     HEADER-LINE-2.                      .2
02192        4TIMES
02MOVE DUMMY-RECORD.2
022100     PERFORM  BLANK-LINE-PRINT      DUMMY-RECORDAFTER      .2
220MOVE TO.                      .2
20     WRITE                           1      .2
022400PERFORM 4 TIMES.2
022500     MOVE HEADER-LINE-3 TO DUMMY-RECORD.                          0         DUMMY-RECORDAFTER1      .2
260      DUMMY-RECORDAFTER1NC1134
022700     PERFORM BLANK-LINE-PRINT 2 TIMES.                            NC11340MOVE TO.                     .2
022800    COLUMN-NAMES-ROUTINE.                                         2
02290MOVE TO.                     .2
023000     WRITE    DUMMY-RECORD                          AFTER 1.060WRITE                          .NC1134
023100     MOVE280MOVE TO.                        NC1134
023200     MOVE     COLUMNS-LINE-2 TO DUMMY-RECORD.                     NC1134.2000PARA-ZNC1134
230WRITE                              AFTER 1.NC1134
030       BLANK-LINE-PRINTNC1134
023500     MOVE     HYPHEN-LINE TO DUMMY-RECORD.                        NC1134.2
023600     WRITE    DUMMY-RECORD                          AFTER 1.      NC1134040.                                                .2
02370026 MOVE   INSPECTION ENDER-DESC.2
230          HYPHEN-LINE DUMMY-RECORDNC1134
02390040      "1" .NC1134
0400PARA-ZNC1134
024100     PERFORM  BLANK-LINE-PRINT 4 TIMES0MOVE TO.                       NC1134
02420          ENDER-LINE-1 DUMMY-RECORD.2
024300     WRITE    DUMMY-RECORD                          AFTER 1.      NC1134.2
0240    .                                                .2
E-PRINT                                   .2
260     MOVE REQUIRE  ENDER-DESCNC1134.
024700    050      "TESTS DELETED"TO.                     NC1134
02800MOVE1" TO . NC11342
024900    END-ROUTINE-3.                                                NC1134.2
025000     MOVE     ENDER-LINE-2 TO DUMMY-RECORD050     WRITE                              .NC1134
025100     WRITE    DUMMY-RECORD                          AFTER025900     WRITE                             AFTER 1.      NC1134.2
025200     IF     SPACE DUMMY-RECORDNC1134
025300         MOVE " NO" TO ERROR-TOTAL  ELSE                          NC1134.2
002600         DUMMY-RECORD                          .NC1134
025500     MOVE "TESTS DELETED " TO ENDER-DESC.                     NC1134.2
025600     MOVE ENDER-LINE-2 TO DUMMY-RECORD.                           NC1134.2
025700     WRITE DUMMY-RECORD                             AFTER 1.      NC1134.2
025800     MOVE ENDER-LINE-3 TO DUMMY-RECORD.                           NC1134.2
025900     WRITE DUMMY-RECORD                             AFTER 1.      NC1134.2
026000    BLANK-LINE-PRINT.                                             NC1134.2
026100     MOVE     SPACE TO DUMMY-RECORD.                              NC1134.2
026200     WRITE    DUMMY-RECORD                          AFTER 1.      NC1134.2

quality95%

¤ 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.0.2Bemerkung: (vorverarbeitet) ¤

*Bot Zugriff

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.