Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/Cobol/Test-Suite/CLBRY/ Datei vom 4.1.2008 mit Größe 246 B

Impressum nc174a.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         NC1744.2
000200 PROGRAM-ID.                                                      NC1744.2
000300     NC174A.                                                      NC1744.2
000400****************************************************************  NC1744.2
000500*                                                              *  NC1744.2
000600*    VALIDATION FOR:-                                          *  NC1744.2
000700*                                                              *  NC1744.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC1744.2
000900*                                                              *  NC1744.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC1744.2
001100*                                                              *  NC1744.2
001200****************************************************************  NC1744.2
001300*                                                              *  NC1744.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC1744.2
001500*                                                              *  NC1744.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  NC1744.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  NC1744.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  NC1744.2
001900*                                                              *  NC1744.2
002000****************************************************************  NC1744.2
002100*                                                                 NC1744.2
002200*    PROGRAM NC174A TESTS THE FOLLOWING GENERAL FEATURES:         NC1744.2
002300*              RELATIONAL OPERATORS                               NC1744.2
002400*              CLASS CONDITIONS                                   NC1744.2
002500*              SWITCH SETTINGS                                    NC1744.2
002600*                                                                 NC1744.2
002700 ENVIRONMENT DIVISION.                                            NC1744.2
002800 CONFIGURATION SECTION.                                           NC1744.2
002900 SOURCE-COMPUTER.                                                 NC1744.2
003000     Card0130.                                                    NC1744.2
003100 OBJECT-COMPUTER.                                                 NC1744.2
003200     Card0131.                                                    NC1744.2
003300 SPECIAL-NAMES.                                                   NC1744.2
003400     C0081                                                        NC1744.2
003500     IS SW-1                                                      NC1744.2
003600         ON STATUS IS ON-SWITCH-1                                 NC1744.2
003700         OFF STATUS IS OFF-SWITCH-1                               NC1744.2
003800     C0082                                                        NC1744.2
003900     IS SW-2                                                      NC1744.2
004000           ON IS ON-SWITCH-2                                      NC1744.2
004100           OFF IS OFF-SWITCH-2                                    NC1744.2
004200     CLASS   ORDINAL-A-ONLY IS                                    NC1744.2
004300     "A"                                                          NC1744.2
004400     CLASS   ORDINAL-A-THROUGH-D IS                               NC1744.2
004500     "A"                                                          NC1744.2
004600     THROUGH                                                      NC1744.2
004700     "A"                                                          NC1744.2
004800     CLASS   ORDINAL-D-THRU-A                                     NC1744.2
004900     "A"                                                          NC1744.2
005000     THRU                                                         NC1744.2
005100     "A"                                                          NC1744.2
005200     CLASS   ACTUAL-A-ONLY "A"                                    NC1744.2
005300     CLASS   ACTUAL-A-THRU-D IS "A" THRU "D"                      NC1744.2
005400     CLASS   ACTUAL-D-THROUGH-A IS "D" THROUGH "A"                NC1744.2
005500     CLASS   ACTUAL-ABCD "ABCD".                                  NC1744.2
005600 INPUT-OUTPUT SECTION.                                            NC1744.2
005700 FILE-CONTROL.                                                    NC1744.2
005800     SELECT PRINT-FILE ASSIGN TO                                  NC1744.2
005900     "C0085" .                                                    NC1744.2
006000 DATA DIVISION.                                                   NC1744.2
006100 FILE SECTION.                                                    NC1744.2
006200 FD  PRINT-FILE.                                                  NC1744.2
006300 01  PRINT-REC PICTURE X(120).                                    NC1744.2
006400 01  DUMMY-RECORD PICTURE X(120).                                 NC1744.2
006500 WORKING-STORAGE SECTION.                                         NC1744.2
006600 01  WS-A                        PIC X.                           NC1744.2
006700 01  WS-B                        PIC X(5).                        NC1744.2
006800 01  IF-D1                              PICTURE IS S9(4)V9(2)     NC1744.2
006900     VALUE IS 0.                                                  NC1744.2
007000 01  IF-D2                              PICTURE IS S9(4)V9(2)     NC1744.2
007100     VALUE IS ZERO.                                               NC1744.2
007200 01  IF-D3                              PICTURE IS X(10)          NC1744.2
007300     VALUE IS "0000000000".                                       NC1744.2
007400 01  IF-D4                              PICTURE IS X(15)          NC1744.2
007500     VALUE IS " ".                                  NC1744.2
007600 01  IF-D6                              PICTURE IS A(10)          NC1744.2
007700     VALUE IS "BABABABABA".                                       NC1744.2
007800 01  IF-D7                              PICTURE IS S9(6)V9(4)     NC1744.2
007900     VALUE IS +123.45.                                            NC1744.2
008000 01  IF-D8                              PICTURE IS 9(6)V9(4)      NC1744.2
008100     VALUE IS 12300.                                              NC1744.2
008200 01  IF-D9                              PICTURE IS X(3)           NC1744.2
008300     VALUE IS "123".                                              NC1744.2
008400 01  IF-D11                             PICTURE IS X(6)           NC1744.2
008500     VALUE IS "ABCDEF".                                           NC1744.2
008600 01  IF-D13                             PICTURE IS 9(6)V9(4)      NC1744.2
008700     VALUE IS 12300.                                              NC1744.2
008800 01  IF-D14                             PICTURE IS S9(4)V9(2)     NC1744.2
008900     VALUE IS +123.45.                                            NC1744.2
009000 01  IF-D15                             PICTURE IS S999PP         NC1744.2
009100     VALUE IS 12300.                                              NC1744.2
009200 01  IF-D16                             PICTURE IS PP99           NC1744.2
009300     VALUE IS .0012.                                              NC1744.2
009400 01  IF-D17                             PICTURE IS SV9(4)         NC1744.2
009500     VALUE IS .0012.                                              NC1744.2
009600 01  IF-D18                             PICTURE IS X(10)          NC1744.2
009700     VALUE IS "BABABABABA".                                       NC1744.2
009800 01  IF-D19                             PICTURE IS X(10)          NC1744.2
009900     VALUE IS "ABCDEF ".                                       NC1744.2
010000 01  IF-D23                             PICTURE IS $9,9B9.90+.    NC1744.2
010100 01  IF-D24                             PICTURE IS X(10)          NC1744.2
010200     VALUE IS "$1,2 3.40+".                                       NC1744.2
010300 01  IF-D25                             PICTURE IS ABABX0A.       NC1744.2
010400 01  IF-D26  PIC X(7)                                             NC1744.2
010500     VALUE IS "A C D0E".                                          NC1744.2
010600 01  IF-D27             PICTURE 9(6)V9(4)  VALUE 2137.45          NC1744.2
010700     USAGE IS COMPUTATIONAL.                                      NC1744.2
010800 01  IF-D28                             PICTURE IS 999999V9999    NC1744.2
010900     VALUE IS 2137.45.                                            NC1744.2
011000 01  IF-D32                             PICTURE IS 9 VALUE IS 0.  NC1744.2
011100 01  IF-D33 PICTURE S9 VALUE -0.                                  NC1744.2
011200 01  IF-D34 PICTURE S9 VALUE +0.                                  NC1744.2
011300 01  IF-D37             PICTURE 9(5)  VALUE 0001234.              NC1744.2
011400 01  IF-D38             PICTURE X(20) VALUE " BABBAGE".           NC1744.2
011500 01  ALPHA-UPPER        PIC X(20)     VALUE " UPPERCASE CHARS".   NC1744.2
011600 01  ALPHA-LOWER        PIC X(20)     VALUE " lowercase chars".   NC1744.2
011700 01  NON-COBOL-CHARACTERS  PICTURE X(8) VALUE                     NC1744.2
011800     4711    .                                                    NC1744.2
011900 01  AZERO-DS-05V05              PICTURE S9(5)V9(5) VALUE ZERO.   NC1744.2
012000 01  A18ONES-DS-18V00            PICTURE S9(18)                   NC1744.2
012100                                 VALUE 111111111111111111.        NC1744.2
012200 01  ONES-XN-00018               PICTURE X(18)                    NC1744.2
012300     VALUE "111111111111111111".                                  NC1744.2
012400 01  A99-DS-02V00                PICTURE S99  VALUE 99.           NC1744.2
012500 01  WRK-DU-02V00                PICTURE 99.                      NC1744.2
012600 01  TWOS-XN-00002               PICTURE XX   VALUE "22".         NC1744.2
012700 01  A18ONES-DS-09V09            PICTURE S9(9)V9(9)               NC1744.2
012800                                 VALUE 111111111.111111111.       NC1744.2
012900 01  ONES-XN-00002               PICTURE XX   VALUE "11".         NC1744.2
013000 01  A02TWOS-DU-02V00            PICTURE 99   VALUE 22.           NC1744.2
013100 01  A01ONE-DS-P0801             PICTURE SP(8)9 VALUE .000000001. NC1744.2
013200 01  A990-DS-0201P               PICTURE S99P  VALUE +990.        NC1744.2
013300 01  XDATA-XN-00018              PICTURE X(18)                    NC1744.2
013400                                 VALUE "00ABCDEFGHI 4321 ".      NC1744.2
013500 01  XDATA-DS-18V00-S REDEFINES XDATA-XN-00018 PICTURE S9(18).    NC1744.2
013600 01  YADATA-XN-00010             PICTURE X(10) VALUE "ABCDEFGHIJ".NC1744.2
013700 01  YADATA-XN-00010-U-AND-L     PICTURE X(10) VALUE "AbCdEfGhIj".NC1744.2
013800 01  DUMMY-DS-00001     PICTURE S9 VALUE -1.                      NC1744.2
013900 01  A02TWOS-DS-03V02            PICTURE S999V99  VALUE +022.00.  NC1744.2
014000 01  WRK-DS-18V0-1               PIC S9(18)     VALUE             NC1744.2
014100            -123456789012345678.                                  NC1744.2
014200 01  WRK-XN-18-2                 PIC  X(18)     VALUE             NC1744.2
014300            "123456789012345678".                                 NC1744.2
014400                                                                  NC1744.2
014500 01  IF-D10.                                                      NC1744.2
014600     02 FILLER          PICTURE XX VALUE "01".                    NC1744.2
014700     02 FILLER          PICTURE XX VALUE "23".                    NC1744.2
014800     02 IF-D10A.                                                  NC1744.2
014900       03 FILLER        PICTURE XXXX VALUE "4567".                NC1744.2
015000       03 FILLER        PICTURE XXXX VALUE "8912".                NC1744.2
015100 01  IF-D12.                                                      NC1744.2
015200     02 FILLER          PICTURE XXX VALUE "ABC".                  NC1744.2
015300     02 IF-D12A.                                                  NC1744.2
015400       03 IF-D12B.                                                NC1744.2
015500         04 FILLER      PICTURE XX VALUE "DE".                    NC1744.2
015600         04 FILLER      PICTURE X  VALUE "F".                     NC1744.2
015700 01  IF-D20.                                                      NC1744.2
015800     02 FILLER          PICTURE 9(5) VALUE ZERO.                  NC1744.2
015900     02 FILLER          PICTURE 99   VALUE 12.                    NC1744.2
016000     02 FILLER          PICTURE 9    VALUE 3.                     NC1744.2
016100     02 FILLER          PICTURE 99   VALUE 45.                    NC1744.2
016200 01  IF-D21.                                                      NC1744.2
016300     02 FILLER          PICTURE 9(5) VALUE ZERO.                  NC1744.2
016400     02 FILLER          PICTURE 9(5) VALUE 12345.                 NC1744.2
016500 01  IF-D22.                                                      NC1744.2
016600     02 FILLER          PICTURE AA   VALUE "AB".                  NC1744.2
016700     02 FILLER          PICTURE AAAA VALUE "CDEF".                NC1744.2
016800 01  IF-D35.                                                      NC1744.2
016900     02 IF-D35A                             VALUE "*ASTERISK".    NC1744.2
017000       03 FILLER        PICTURE A(6).                             NC1744.2
017100       03 FILLER        PICTURE AAA.                              NC1744.2
017200     02 IF-D35B                            VALUE "/SLASH".        NC1744.2
017300       03 FILLER        PICTURE 9(6).                             NC1744.2
017400 01  IF-D36 REDEFINES IF-D35.                                     NC1744.2
017500     02 IF-D36A         PICTURE X(6).                             NC1744.2
017600     02 IF-D36B         PICTURE XXX.                              NC1744.2
017700     02 IF-D36C         PICTURE X(6).                             NC1744.2
017800 01  IF-D39.                                                      NC1744.2
017900     02  FILLER   PICTURE A(6) VALUE "ABCDEF".                    NC1744.2
018000     02  FILLER  PICTURE A(4) VALUE SPACE.                        NC1744.2
018100 01  LEVEL-01.                                                    NC1744.2
018200     02 LEVEL-02.                                                 NC1744.2
018300     03 LEVEL-03.                                                 NC1744.2
018400     04 LEVEL-04.                                                 NC1744.2
018500     05 LEVEL-05.                                                 NC1744.2
018600     06 LEVEL-06.                                                 NC1744.2
018700     07 LEVEL-07.                                                 NC1744.2
018800     08 LEVEL-08.                                                 NC1744.2
018900     09 LEVEL-09.                                                 NC1744.2
019000     10 LEVEL-10                        PICTURE IS X VALUE IS "R".NC1744.2
019100 01  LEVEL-RECEIVER                     PICTURE IS X VALUE IS     NC1744.2
019200     SPACE.                                                       NC1744.2
019300 01  LEVEL-SENDER PICTURE X VALUE "S".                            NC1744.2
019400 01  VAL                                PICTURE IS 9 VALUE IS 0.  NC1744.2
019500 01  A-2                                PICTURE IS A VALUE IS "A".NC1744.2
019600 01  N-27                               PICTURE IS 9999V9         NC1744.2
019700     VALUE IS 9999.9.                                             NC1744.2
019800 01  N-30                               PICTURE IS 9V9            NC1744.2
019900     VALUE IS 2.                                                  NC1744.2
020000 01  N-31                               PICTURE IS 9(6).          NC1744.2
020100 01  X-32 REDEFINES N-31                PICTURE IS X(6).          NC1744.2
020200 01  N-33                               PICTURE IS 9(5)           NC1744.2
020300     VALUE IS 29.                                                 NC1744.2
020400 01  A-37                               PICTURE IS A VALUE IS "X".NC1744.2
020500 01  X-38 REDEFINES A-37                PICTURE IS X.             NC1744.2
020600 01  X-43 PIC X(10) VALUE " l75.63".                           NC1744.2
020700 01  N-84                               PICTURE IS 9999999999.    NC1744.2
020800 01  NUMERIC-GRP-TEST.                                            NC1744.2
020900     02  NUMERIC-1                PICTURE 9 VALUE 0.              NC1744.2
021000     02  NUMERIC-2.                                               NC1744.2
021100         03  NUMERIC-3            PICTURE 9(1)V9(1) VALUE ZERO.   NC1744.2
021200         03  NUMERIC-4.                                           NC1744.2
021300             04  NUMERIC-5       PICTURE 9(18) VALUE 1.           NC1744.2
021400     02  NUMERIC-6.                                               NC1744.2
021500         03  NUMERIC-7            PICTURE X VALUE "7".            NC1744.2
021600         03  NUMERIC-8            PICTURE 9  VALUE 8.             NC1744.2
021700 01  NUM-GRP.                                                     NC1744.2
021800     02  NUM-SUB-GRP  PIC 9.                                      NC1744.2
021900 01  GROUP-1000.                                                  NC1744.2
022000     02  FILLER  PIC X.                                           NC1744.2
022100     02  GROUP-X1000.                                             NC1744.2
022200         03  GROUP-1000-1 PIC X(500) VALUE ZERO.                  NC1744.2
022300         03  XNAME        PICTURE X(100) VALUE QUOTE.             NC1744.2
022400         03  GROUP-1000-2 PICTURE X(399) VALUE SPACE.             NC1744.2
022500         03  GROUP-1000-3 PICTURE X VALUE ".".                    NC1744.2
022600     02  GROUP-X500-2.                                            NC1744.2
022700         03  GROUP-X500-A        PICTURE X(500) VALUE ZERO.       NC1744.2
022800         03  GROUP-X500-1.                                        NC1744.2
022900             04  GROUP-X500-1-1  PICTURE X(50) VALUE QUOTE.       NC1744.2
023000             04  GROUP-X500-1-2  PICTURE X(50) VALUE QUOTE.       NC1744.2
023100             04  GROUP-X500-1-3  PICTURE X(398) VALUE SPACE.      NC1744.2
023200             04  GROUP-X500-1-4  PICTURE XX VALUE " .".           NC1744.2
023300 01  HI-LO-VALUES.                                                NC1744.2
023400     02  LOW-VAL  PIC X VALUE LOW-VALUE.                          NC1744.2
023500     02 ZERO-01  PICTURE 9(18) VALUE 1.                           NC1744.2
023600     02  ABC      PICTURE XXX VALUE "ABC".                        NC1744.2
023700     02  NINE-17-8 PICTURE 9(18) VALUE 999999999999999998.        NC1744.2
023800     02  ZERO-NULL PIC 9(9) VALUE 0.                              NC1744.2
023900     02  ZERO-ZERO PICTURE 9(9)V9(9) VALUE 0.0.                   NC1744.2
024000 01  COMP-DATA.                                                   NC1744.2
024100     02  COMP-DATA1 PICTURE 9(18) COMPUTATIONAL VALUE 300.        NC1744.2
024200     02  COMP-DATA2  PICTURE 9(10) COMPUTATIONAL VALUE  100000.   NC1744.2
024300     02  COMP-DATA3  PICTURE 9     COMPUTATIONAL VALUE 9.         NC1744.2
024400     02  COMP-DATA4  PICTURE 9(9)V9(7) COMPUTATIONAL VALUE 3.3.   NC1744.2
024500     02  COMP-DATA5  PICTURE 9(5)V9(2) COMPUTATIONAL VALUE 52.25. NC1744.2
024600     02  COMP-DATA6  PICTURE 9V9       COMPUTATIONAL VALUE 8.8.   NC1744.2
024700     02  COMP-DATA7  PICTURE 9(3)V9(2) COMPUTATIONAL VALUE 300.00.NC1744.2
024800     02  COMP-DATA8  PICTURE 9V9(9) COMPUTATIONAL VALUE 3.3000000.NC1744.2
024900     02  COMP-DATA9  PICTURE 9(8)  COMPUTATIONAL VALUE 100000.    NC1744.2
025000 01  DISP-DATA.                                                   NC1744.2
025100     02  DISP-DATA1  PICTURE 9(18) VALUE 300.                     NC1744.2
025200     02  DISP-DATA2  PICTURE 9(8)  VALUE 100000.                  NC1744.2
025300     02  DISP-DATA3  PICTURE 9     VALUE 9.                       NC1744.2
025400     02  DISP-DATA4  PICTURE 9(7)V9(9) VALUE 3.3.                 NC1744.2
025500     02  DISP-DATA5  PICTURE 9(2)V9(2) VALUE 52.25.               NC1744.2
025600     02  DISP-DATA6  PICTURE 9V9   VALUE 8.8.                     NC1744.2
025700 01  DATA-5          PICTURE 9     VALUE 5.                       NC1744.2
025800 01  DATA-99999      PICTURE S9(5) VALUE +99999.                  NC1744.2
025900 01  DATA-Z          PICTURE X     VALUE "Z".                     NC1744.2
026000 01  DATA-4          PICTURE 9     VALUE 4.                       NC1744.2
026100 01  DATA-Y          PICTURE X     VALUE "Y".                     NC1744.2
026200 01  DATA-VWXYZ      PICTURE X(5)  VALUE "VWXYZ".                 NC1744.2
026300 01  DATA-ADCBA      PICTURE X(5)  VALUE "ADCBA".                 NC1744.2
026400 01  TEST-RESULTS.                                                NC1744.2
026500     02 FILLER                   PIC X      VALUE SPACE.          NC1744.2
026600     02 FEATURE                  PIC X(20)  VALUE SPACE.          NC1744.2
026700     02 FILLER                   PIC X      VALUE SPACE.          NC1744.2
026800     02 P-OR-F                   PIC X(5)   VALUE SPACE.          NC1744.2
026900     02 FILLER                   PIC X      VALUE SPACE.          NC1744.2
027000     02  PAR-NAME.                                                NC1744.2
027100       03 FILLER                 PIC X(19)  VALUE SPACE.          NC1744.2
027200       03  PARDOT-X              PIC X      VALUE SPACE.          NC1744.2
027300       03 DOTVALUE               PIC 99     VALUE ZERO.           NC1744.2
027400     02 FILLER                   PIC X(8)   VALUE SPACE.          NC1744.2
027500     02 RE-MARK                  PIC X(61).                       NC1744.2
027600 01  TEST-COMPUTED.                                               NC1744.2
027700     02 FILLER                   PIC X(30)  VALUE SPACE.          NC1744.2
027800     02 FILLER                   PIC X(17)  VALUE                 NC1744.2
027900            " COMPUTED=".                                   NC1744.2
028000     02 COMPUTED-X.                                               NC1744.2
028100     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          NC1744.2
028200     03 COMPUTED-N               REDEFINES COMPUTED-A             NC1744.2
028300                                 PIC -9(9).9(9).                  NC1744.2
028400     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         NC1744.2
028500     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     NC1744.2
028600     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     NC1744.2
028700     03       CM-18V0 REDEFINES COMPUTED-A.                       NC1744.2
028800         04 COMPUTED-18V0                    PIC -9(18).          NC1744.2
028900         04 FILLER                           PIC X.               NC1744.2
029000     03 FILLER PIC X(50) VALUE SPACE.                             NC1744.2
029100 01  TEST-CORRECT.                                                NC1744.2
029200     02 FILLER PIC X(30) VALUE SPACE.                             NC1744.2
029300     02 FILLER PIC X(17) VALUE " CORRECT =".                NC1744.2
029400     02 CORRECT-X.                                                NC1744.2
029500     03 CORRECT-A                  PIC X(20) VALUE SPACE.         NC1744.2
029600     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      NC1744.2
029700     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         NC1744.2
029800     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     NC1744.2
029900     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     NC1744.2
030000     03      CR-18V0 REDEFINES CORRECT-A.                         NC1744.2
030100         04 CORRECT-18V0                     PIC -9(18).          NC1744.2
030200         04 FILLER                           PIC X.               NC1744.2
030300     03 FILLER PIC X(2) VALUE SPACE.                              NC1744.2
030400     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     NC1744.2
030500 01  CCVS-C-1.                                                    NC1744.2
030600     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PANC1744.2
030700-    "SS PARAGRAPH-NAME NC1744.2
030800-    " REMARKS".                                            NC1744.2
030900     02 FILLER                     PIC X(20)    VALUE SPACE.      NC1744.2
031000 01  CCVS-C-2.                                                    NC1744.2
031100     02 FILLER                     PIC X        VALUE SPACE.      NC1744.2
031200     02 FILLER                     PIC X(6)     VALUE "TESTED".   NC1744.2
031300     02 FILLER                     PIC X(15)    VALUE SPACE.      NC1744.2
031400     02 FILLER                     PIC X(4)     VALUE "FAIL".     NC1744.2
031500     02 FILLER                     PIC X(94)    VALUE SPACE.      NC1744.2
031600 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       NC1744.2
031700 01  REC-CT                        PIC 99       VALUE ZERO.       NC1744.2
031800 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       NC1744.2
031900 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       NC1744.2
032000 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       NC1744.2
032100 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       NC1744.2
032200 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       NC1744.2
032300 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       NC1744.2
032400 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      NC1744.2
032500 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       NC1744.2
032600 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     NC1744.2
032700 01  CCVS-H-1.                                                    NC1744.2
032800     02  FILLER                    PIC X(39)    VALUE SPACES.     NC1744.2
032900     02  FILLER                    PIC X(42)    VALUE             NC1744.2
033000     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 NC1744.2
033100     02  FILLER                    PIC X(39)    VALUE SPACES.     NC1744.2
033200 01  CCVS-H-2A.                                                   NC1744.2
033300   02  FILLER                        PIC X(40)  VALUE SPACE.      NC1744.2
033400   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  NC1744.2
033500   02  FILLER                        PIC XXXX   VALUE             NC1744.2
033600     "4.2 ".                                                      NC1744.2
033700   02  FILLER                        PIC X(28)  VALUE             NC1744.2
033800            " COPY - NOT FOR DISTRIBUTION".                       NC1744.2
033900   02  FILLER                        PIC X(41)  VALUE SPACE.      NC1744.2
034000                                                                  NC1744.2
034100 01  CCVS-H-2B.                                                   NC1744.2
034200   02  FILLER                        PIC X(15)  VALUE             NC1744.2
034300            "TEST RESULT OF ".                                    NC1744.2
034400   02  TEST-ID                       PIC X(9).                    NC1744.2
034500   02  FILLER                        PIC X(4)   VALUE             NC1744.2
034600            " IN ".                                               NC1744.2
034700   02  FILLER                        PIC X(12)  VALUE             NC1744.2
034800     " HIGH ".                                              NC1744.2
034900   02  FILLER                        PIC X(22)  VALUE             NC1744.2
035000            " LEVEL VALIDATION FOR ".                             NC1744.2
035100   02  FILLER                        PIC X(58)  VALUE             NC1744.2
035200     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1744.2
035300 01  CCVS-H-3.                                                    NC1744.2
035400     02  FILLER                      PIC X(34)  VALUE             NC1744.2
035500            " FOR OFFICIAL USE ONLY ".                         NC1744.2
035600     02  FILLER                      PIC X(58)  VALUE             NC1744.2
035700     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1744.2
035800     02  FILLER                      PIC X(28)  VALUE             NC1744.2
035900            " COPYRIGHT 1985 ".                                NC1744.2
036000 01  CCVS-E-1.                                                    NC1744.2
036100     02 FILLER                       PIC X(52)  VALUE SPACE.      NC1744.2
036200     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              NC1744.2
036300     02 ID-AGAIN                     PIC X(9).                    NC1744.2
036400     02 FILLER                       PIC X(45)  VALUE SPACES.     NC1744.2
036500 01  CCVS-E-2.                                                    NC1744.2
036600     02  FILLER                      PIC X(31)  VALUE SPACE.      NC1744.2
036700     02  FILLER                      PIC X(21)  VALUE SPACE.      NC1744.2
036800     02 CCVS-E-2-2.                                               NC1744.2
036900         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      NC1744.2
037000         03 FILLER                   PIC X      VALUE SPACE.      NC1744.2
037100         03 ENDER-DESC               PIC X(44)  VALUE             NC1744.2
037200            "ERRORS ENCOUNTERED".                                 NC1744.2
037300 01  CCVS-E-3.                                                    NC1744.2
037400     02  FILLER                      PIC X(22)  VALUE             NC1744.2
037500            " FOR OFFICIAL USE ONLY".                             NC1744.2
037600     02  FILLER                      PIC X(12)  VALUE SPACE.      NC1744.2
037700     02  FILLER                      PIC X(58)  VALUE             NC1744.2
037800     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1744.2
037900     02  FILLER                      PIC X(13)  VALUE SPACE.      NC1744.2
038000     02 FILLER                       PIC X(15)  VALUE             NC1744.2
038100             " COPYRIGHT 1985".                                   NC1744.2
038200 01  CCVS-E-4.                                                    NC1744.2
038300     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      NC1744.2
038400     02 FILLER                       PIC X(4)   VALUE " OF ".     NC1744.2
038500     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      NC1744.2
038600     02 FILLER                       PIC X(40)  VALUE             NC1744.2
038700      " TESTS WERE EXECUTED SUCCESSFULLY".                       NC1744.2
038800 01  XXINFO.                                                      NC1744.2
038900     02 FILLER                       PIC X(19)  VALUE             NC1744.2
039000            "*** INFORMATION ***".                                NC1744.2
039100     02 INFO-TEXT.                                                NC1744.2
039200       04 FILLER                     PIC X(8)   VALUE SPACE.      NC1744.2
039300       04 XXCOMPUTED                 PIC X(20).                   NC1744.2
039400       04 FILLER                     PIC X(5)   VALUE SPACE.      NC1744.2
039500       04 XXCORRECT                  PIC X(20).                   NC1744.2
039600     02 INF-ANSI-REFERENCE           PIC X(48).                   NC1744.2
039700 01  HYPHEN-LINE.                                                 NC1744.2
039800     02 FILLER  PIC IS X VALUE IS SPACE.                          NC1744.2
039900     02 FILLER  PIC IS X(65)    VALUE IS "************************NC1744.2
040000-    "*****************************************".                 NC1744.2
040100     02 FILLER  PIC IS X(54)    VALUE IS "************************NC1744.2
040200-    "******************************".                            NC1744.2
040300 01  CCVS-PGM-ID                     PIC X(9)   VALUE             NC1744.2
040400     "NC174A".                                                    NC1744.2
040500 PROCEDURE DIVISION.                                              NC1744.2
040600 CCVS1 SECTION.                                                   NC1744.2
040700 OPEN-FILES.                                                      NC1744.2
040800     OPEN     OUTPUT PRINT-FILE.                                  NC1744.2
040900     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   NC1744.2
041000     MOVE    SPACE TO TEST-RESULTS.                               NC1744.2
041100     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             NC1744.2
041200     GO TO CCVS1-EXIT.                                            NC1744.2
041300 CLOSE-FILES.                                                     NC1744.2
041400     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   NC1744.2
041500 TERMINATE-CCVS.                                                  NC1744.2
041600     EXIT PROGRAM.                                                NC1744.2
041700 TERMINATE-CALL.                                                  NC1744.2
041800     STOP     RUN.                                                NC1744.2
041900 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         NC1744.2
042000 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           NC1744.2
042100 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          NC1744.2
042200 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      NC1744.2
042300     MOVE "****TEST DELETED****" TO RE-MARK.                      NC1744.2
042400 PRINT-DETAIL.                                                    NC1744.2
042500     IF REC-CT NOT EQUAL TO ZERO                                  NC1744.2
042600             MOVE "." TO PARDOT-X                                 NC1744.2
042700             MOVE REC-CT TO DOTVALUE.                             NC1744.2
042800     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      NC1744.2
042900     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               NC1744.2
043000        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 NC1744.2
043100          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 NC1744.2
043200     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              NC1744.2
043300     MOVE SPACE TO CORRECT-X.                                     NC1744.2
043400     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         NC1744.2
043500     MOVE     SPACE TO RE-MARK.                                   NC1744.2
043600 HEAD-ROUTINE.                                                    NC1744.2
043700     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC1744.2
043800     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC1744.2
043900     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC1744.2
044000     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC1744.2
044100 COLUMN-NAMES-ROUTINE.                                            NC1744.2
044200     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1744.2
044300     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1744.2
044400     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        NC1744.2
044500 END-ROUTINE.                                                     NC1744.2
044600     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC1744.2
044700 END-RTN-EXIT.                                                    NC1744.2
044800     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1744.2
044900 END-ROUTINE-1.                                                   NC1744.2
045000      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      NC1744.2
045100      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               NC1744.2
045200      ADD PASS-COUNTER TO ERROR-HOLD.                             NC1744.2
045300*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC1744.2
045400      MOVE PASS-COUNTER TO CCVS-E-4-1.                            NC1744.2
045500      MOVE ERROR-HOLD TO CCVS-E-4-2.                              NC1744.2
045600      MOVE CCVS-E-4 TO CCVS-E-2-2.                                NC1744.2
045700      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           NC1744.2
045800  END-ROUTINE-12.                                                 NC1744.2
045900      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        NC1744.2
046000     IF       ERROR-COUNTER IS EQUAL TO ZERO                      NC1744.2
046100         MOVE "NO " TO ERROR-TOTAL                                NC1744.2
046200         ELSE                                                     NC1744.2
046300         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC1744.2
046400     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           NC1744.2
046500     PERFORM WRITE-LINE.                                          NC1744.2
046600 END-ROUTINE-13.                                                  NC1744.2
046700     IF DELETE-COUNTER IS EQUAL TO ZERO                           NC1744.2
046800         MOVE "NO " TO ERROR-TOTAL  ELSE                          NC1744.2
046900         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      NC1744.2
047000     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   NC1744.2
047100     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1744.2
047200      IF   INSPECT-COUNTER EQUAL TO ZERO                          NC1744.2
047300          MOVE "NO " TO ERROR-TOTAL                               NC1744.2
047400      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   NC1744.2
047500      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            NC1744.2
047600      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          NC1744.2
047700     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1744.2
047800 WRITE-LINE.                                                      NC1744.2
047900     ADD 1 TO RECORD-COUNT.                                       NC1744.2
048000     IF RECORD-COUNT GREATER 42                                   NC1744.2
048100         MOVE DUMMY-RECORD TO DUMMY-HOLD                          NC1744.2
048200         MOVE SPACE TO DUMMY-RECORD                               NC1744.2
048300         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  NC1744.2
048400         MOVE CCVS-H-1  TO DUMMY-RECORD  PERFORM WRT-LN 2 TIMES   NC1744.2
048500         MOVE CCVS-H-2A TO DUMMY-RECORD  PERFORM WRT-LN 2 TIMES   NC1744.2
048600         MOVE CCVS-H-2B TO DUMMY-RECORD  PERFORM WRT-LN 3 TIMES   NC1744.2
048700         MOVE CCVS-H-3  TO DUMMY-RECORD  PERFORM WRT-LN 3 TIMES   NC1744.2
048800         MOVE CCVS-C-1  TO DUMMY-RECORD  PERFORM WRT-LN           NC1744.2
048900         MOVE CCVS-C-2  TO DUMMY-RECORD  PERFORM WRT-LN           NC1744.2
049000         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          NC1744.2
049100         MOVE DUMMY-HOLD TO DUMMY-RECORD                          NC1744.2
049200         MOVE ZERO TO RECORD-COUNT.                               NC1744.2
049300     PERFORM WRT-LN.                                              NC1744.2
049400 WRT-LN.                                                          NC1744.2
049500     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               NC1744.2
049600     MOVE SPACE TO DUMMY-RECORD.                                  NC1744.2
049700 BLANK-LINE-PRINT.                                                NC1744.2
049800     PERFORM WRT-LN.                                              NC1744.2
049900 FAIL-ROUTINE.                                                    NC1744.2
050000     IF     COMPUTED-X NOT EQUAL TO SPACE                         NC1744.2
050100            GO TO FAIL-ROUTINE-WRITE.                             NC1744.2
050200     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC1744.2
050300     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC1744.2
050400     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   NC1744.2
050500     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1744.2
050600     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC1744.2
050700     GO TO  FAIL-ROUTINE-EX.                                      NC1744.2
050800 FAIL-ROUTINE-WRITE.                                              NC1744.2
050900     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         NC1744.2
051000     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 NC1744.2
051100     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC1744.2
051200     MOVE   SPACES TO COR-ANSI-REFERENCE.                         NC1744.2
051300 FAIL-ROUTINE-EX. EXIT.                                           NC1744.2
051400 BAIL-OUT.                                                        NC1744.2
051500     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   NC1744.2
051600     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           NC1744.2
051700 BAIL-OUT-WRITE.                                                  NC1744.2
051800     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  NC1744.2
051900     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC1744.2
052000     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1744.2
052100     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC1744.2
052200 BAIL-OUT-EX. EXIT.                                               NC1744.2
052300 CCVS1-EXIT.                                                      NC1744.2
052400     EXIT.                                                        NC1744.2
052500 SECT-NC174A-001 SECTION.                                         NC1744.2
052600*                                                                 NC1744.2
052700*                                                                 NC1744.2
052800 NEXT-INIT-GF-1.                                                  NC1744.2
052900*    ==-->     NEXT SENTENCE           <--==                      NC1744.2
053000     MOVE   "V1-89 6.15.4 GR2 " TO ANSI-REFERENCE.                NC1744.2
053100     MOVE    "A" TO A-2.                                          NC1744.2
053200 NEXT-TEST-GF-1.                                                  NC1744.2
053300     IF       A-2 EQUAL TO "A"                                    NC1744.2
053400              NEXT SENTENCE                                       NC1744.2
053500              ELSE                                                NC1744.2
053600              NEXT SENTENCE.                                      NC1744.2
053700     PERFORM  PASS.                                               NC1744.2
053800     GO TO    NEXT-WRITE-GF-1.                                    NC1744.2
053900 NEXT-DELETE-GF-1.                                                NC1744.2
054000     PERFORM  DE-LETE.                                            NC1744.2
054100 NEXT-WRITE-GF-1.                                                 NC1744.2
054200     MOVE "NEXT-TEST-1" TO PAR-NAME.                              NC1744.2
054300     PERFORM  PRINT-DETAIL.                                       NC1744.2
054400*                                                                 NC1744.2
054500*                                                                 NC1744.2
054600 ANOTHER-REMARK.                                                  NC1744.2
054700     MOVE     SPACE TO TEST-RESULTS.                              NC1744.2
054800     MOVE "THE FOLLOWING TESTS " TO RE-MARK.               NC1744.2
054900     PERFORM  PRINT-DETAIL.                                       NC1744.2
055000     MOVE "TEST THE COMPARISONS IN " TO RE-MARK.               NC1744.2
055100     PERFORM  PRINT-DETAIL.                                       NC1744.2
055200     MOVE "SWITCH-STATUS, RELATION " TO RE-MARK.               NC1744.2
055300     PERFORM  PRINT-DETAIL.                                       NC1744.2
055400     MOVE "AND CLASS CONDITIONALS. " TO RE-MARK.               NC1744.2
055500     PERFORM  PRINT-DETAIL.                                       NC1744.2
055600 SWH-INIT-GF-1.                                                   NC1744.2
055700     MOVE   "V1-13 4.5.2" TO ANSI-REFERENCE.                      NC1744.2
055800     MOVE "SWITCH-STATUS" TO FEATURE.                             NC1744.2
055900 SWH-TEST-GF-1.                                                   NC1744.2
056000     IF      ON-SWITCH-1                                          NC1744.2
056100             PERFORM PASS                                         NC1744.2
056200     ELSE                                                         NC1744.2
056300             PERFORM FAIL.                                        NC1744.2
056400     GO TO   SWH-WRITE-GF-1.                                      NC1744.2
056500 SWH-DELETE-GF-1.                                                 NC1744.2
056600     MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                  NC1744.2
056700     PERFORM  DE-LETE.                                            NC1744.2
056800 SWH-WRITE-GF-1.                                                  NC1744.2
056900     MOVE "SWH-TEST-GF-1" TO PAR-NAME.                            NC1744.2
057000     PERFORM  PRINT-DETAIL.                                       NC1744.2
057100 SWH-INIT-GF-2.                                                   NC1744.2
057200     MOVE   "V1-13 4.5.2" TO ANSI-REFERENCE.                      NC1744.2
057300 SWH-TEST-GF-2.                                                   NC1744.2
057400     IF       OFF-SWITCH-1                                        NC1744.2
057500              PERFORM FAIL                                        NC1744.2
057600              ELSE                                                NC1744.2
057700              PERFORM PASS.                                       NC1744.2
057800     GO TO    SWH-WRITE-GF-2.                                     NC1744.2
057900 SWH-DELETE-GF-2.                                                 NC1744.2
058000     MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                  NC1744.2
058100     PERFORM  DE-LETE.                                            NC1744.2
058200 SWH-WRITE-GF-2.                                                  NC1744.2
058300     MOVE "SWH-TEST-GF-2" TO PAR-NAME.                            NC1744.2
058400     PERFORM  PRINT-DETAIL.                                       NC1744.2
058500 SWH-INIT-GF-3.                                                   NC1744.2
058600     MOVE   "V1-13 4.5.2" TO ANSI-REFERENCE.                      NC1744.2
058700 SWH-TEST-GF-3.                                                   NC1744.2
058800     IF       OFF-SWITCH-2                                        NC1744.2
058900              PERFORM PASS                                        NC1744.2
059000              ELSE                                                NC1744.2
059100              PERFORM FAIL.                                       NC1744.2
059200     GO TO    SWH-WRITE-GF-3.                                     NC1744.2
059300 SWH-DELETE-GF-3.                                                 NC1744.2
059400     MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                  NC1744.2
059500     PERFORM  DE-LETE.                                            NC1744.2
059600 SWH-WRITE-GF-3.                                                  NC1744.2
059700     MOVE "SWH-TEST-GF-3" TO PAR-NAME.                            NC1744.2
059800     PERFORM  PRINT-DETAIL.                                       NC1744.2
059900 SWH-INIT-GF-4.                                                   NC1744.2
060000     MOVE   "V1-13 4.5.2" TO ANSI-REFERENCE.                      NC1744.2
060100 SWH-TEST-GF-4.                                                   NC1744.2
060200     IF       ON-SWITCH-2                                         NC1744.2
060300              PERFORM FAIL                                        NC1744.2
060400              ELSE                                                NC1744.2
060500              PERFORM PASS.                                       NC1744.2
060600     GO TO    SWH-WRITE-GF-4.                                     NC1744.2
060700 SWH-DELETE-GF-4.                                                 NC1744.2
060800     MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                  NC1744.2
060900     PERFORM  DE-LETE.                                            NC1744.2
061000 SWH-WRITE-GF-4.                                                  NC1744.2
061100     MOVE "SWH-TEST-GF-4" TO PAR-NAME.                            NC1744.2
061200     PERFORM  PRINT-DETAIL.                                       NC1744.2
061300 SWH-TEST-5.                                                      NC1744.2
061400* DELETE THE NEXT LINE TO DELETE THIS TEST                        NC1744.2
061500     GO TO SWH-TEST-5-B.                                          NC1744.2
061600 SWH-TEST-5-A.                                                    NC1744.2
061700     GO TO SWH-DELETE-5.                                          NC1744.2
061800 SWH-TEST-5-B.                                                    NC1744.2
061900     IF NOT ON-SWITCH-1                                           NC1744.2
062000         MOVE "SWITCH-1 OFF " TO COMPUTED-A                      NC1744.2
062100         MOVE "SWITCH-1 EXPECTED ON" TO CORRECT-A                 NC1744.2
062200         PERFORM FAIL                                             NC1744.2
062300         GO TO SWH-WRITE-5.                                       NC1744.2
062400     PERFORM PASS.                                                NC1744.2
062500     GO TO SWH-WRITE-5.                                           NC1744.2
062600 SWH-DELETE-5.                                                    NC1744.2
062700     MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                  NC1744.2
062800     PERFORM DE-LETE.                                             NC1744.2
062900 SWH-WRITE-5.                                                     NC1744.2
063000     MOVE "SWH-TEST-5" TO PAR-NAME.                               NC1744.2
063100     PERFORM PRINT-DETAIL.                                        NC1744.2
063200 SWH-TEST-6.                                                      NC1744.2
063300* DELETE THE NEXT LINE TO DELETE THIS TEST                        NC1744.2
063400     GO TO SWH-TEST-6-B.                                          NC1744.2
063500 SWH-TEST-6-A.                                                    NC1744.2
063600     GO TO SWH-DELETE-6.                                          NC1744.2
063700 SWH-TEST-6-B.                                                    NC1744.2
063800     IF NOT OFF-SWITCH-1                                          NC1744.2
063900         PERFORM PASS                                             NC1744.2
064000         GO TO SWH-WRITE-6.                                       NC1744.2
064100     MOVE "SWITCH-1 OFF " TO COMPUTED-A.                         NC1744.2
064200     MOVE "SWITCH-1 EXPECTED ON" TO CORRECT-A.                    NC1744.2
064300     PERFORM FAIL.                                                NC1744.2
064400     GO TO SWH-WRITE-6.                                           NC1744.2
064500 SWH-DELETE-6.                                                    NC1744.2
064600     MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                  NC1744.2
064700     PERFORM DE-LETE.                                             NC1744.2
064800 SWH-WRITE-6.                                                     NC1744.2
064900     MOVE "SWH-TEST-6" TO PAR-NAME.                               NC1744.2
065000     PERFORM PRINT-DETAIL.                                        NC1744.2
065100 SWH-TEST-7.                                                      NC1744.2
065200     GO TO SWH-DELETE-7.                                          NC1744.2
065300     IF NOT ON-SWITCH-2                                           NC1744.2
065400         PERFORM PASS                                             NC1744.2
065500         GO TO SWH-WRITE-7.                                       NC1744.2
065600     MOVE "SWITCH-2 ON " TO COMPUTED-A.                          NC1744.2
065700     MOVE "SWITCH2 EXPECTED OFF" TO CORRECT-A.                    NC1744.2
065800     PERFORM FAIL.                                                NC1744.2
065900     GO TO SWH-WRITE-7.                                           NC1744.2
066000 SWH-DELETE-7.                                                    NC1744.2
066100     MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                  NC1744.2
066200     PERFORM DE-LETE.                                             NC1744.2
066300 SWH-WRITE-7.                                                     NC1744.2
066400     MOVE "SWH-TEST-7" TO PAR-NAME.                               NC1744.2
066500     PERFORM PRINT-DETAIL.                                        NC1744.2
066600 SWH-TEST-8.                                                      NC1744.2
066700* DELETE THE NEXT LINE TO DELETE THIS TEST                        NC1744.2
066800     GO TO SWH-TEST-8-B.                                          NC1744.2
066900 SWH-TEST-8-A.                                                    NC1744.2
067000     GO TO SWH-DELETE-8.                                          NC1744.2
067100 SWH-TEST-8-B.                                                    NC1744.2
067200     IF NOT OFF-SWITCH-2                                          NC1744.2
067300         MOVE "SWITCH-2 ON " TO COMPUTED-A                       NC1744.2
067400         MOVE "SWITCH2 EXPECTED OFF" TO CORRECT-A                 NC1744.2
067500         PERFORM FAIL                                             NC1744.2
067600         GO TO SWH-WRITE-8.                                       NC1744.2
067700     PERFORM PASS.                                                NC1744.2
067800     GO TO  SWH-WRITE-8.                                          NC1744.2
067900 SWH-DELETE-8.                                                    NC1744.2
068000     MOVE  "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                 NC1744.2
068100     PERFORM DE-LETE.                                             NC1744.2
068200 SWH-WRITE-8.                                                     NC1744.2
068300     MOVE  "SWH-TEST-8" TO PAR-NAME.                              NC1744.2
068400     PERFORM PRINT-DETAIL.                                        NC1744.2
068500*                                                                 NC1744.2
068600*                                                                 NC1744.2
068700 SWH-INIT-GF-9.                                                   NC1744.2
068800     MOVE   "SET SWITCH ON/OFF" TO FEATURE.                       NC1744.2
068900     MOVE   "V1-126 6.22.1(2)"  TO ANSI-REFERENCE.                NC1744.2
069000     SET     SW-1 TO ON.                                          NC1744.2
069100 SWH-TEST-GF-9.                                                   NC1744.2
069200     IF      ON-SWITCH-1                                          NC1744.2
069300             PERFORM PASS                                         NC1744.2
069400     ELSE                                                         NC1744.2
069500             PERFORM FAIL.                                        NC1744.2
069600     GO TO   SWH-WRITE-GF-9.                                      NC1744.2
069700 SWH-DELETE-GF-9.                                                 NC1744.2
069800     MOVE   "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                NC1744.2
069900     PERFORM DE-LETE.                                             NC1744.2
070000 SWH-WRITE-GF-9.                                                  NC1744.2
070100     MOVE   "SWH-TEST-GF-9" TO PAR-NAME.                          NC1744.2
070200     PERFORM PRINT-DETAIL.                                        NC1744.2
070300*                                                                 NC1744.2
070400*                                                                 NC1744.2
070500 SWH-INIT-GF-10.                                                  NC1744.2
070600     MOVE   "SET SWITCH ON/OFF" TO FEATURE.                       NC1744.2
070700     MOVE   "V1-126 6.22.1(2)"  TO ANSI-REFERENCE.                NC1744.2
070800     SET     SW-1 SW-2 TO OFF.                                    NC1744.2
070900 SWH-TEST-GF-10-1.                                                NC1744.2
071000     IF      OFF-SWITCH-1                                         NC1744.2
071100             PERFORM PASS                                         NC1744.2
071200     ELSE                                                         NC1744.2
071300             PERFORM FAIL.                                        NC1744.2
071400     GO TO   SWH-WRITE-GF-10-1.                                   NC1744.2
071500 SWH-DELETE-GF-10-1.                                              NC1744.2
071600     MOVE   "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                NC1744.2
071700     PERFORM DE-LETE.                                             NC1744.2
071800 SWH-WRITE-GF-10-1.                                               NC1744.2
071900     MOVE   "SWH-TEST-GF-10-1" TO PAR-NAME.                       NC1744.2
072000     PERFORM PRINT-DETAIL.                                        NC1744.2
072100 SWH-TEST-GF-10-2.                                                NC1744.2
072200     IF      OFF-SWITCH-2                                         NC1744.2
072300             PERFORM PASS                                         NC1744.2
072400     ELSE                                                         NC1744.2
072500             PERFORM FAIL.                                        NC1744.2
072600     GO TO   SWH-WRITE-GF-10-2.                                   NC1744.2
072700 SWH-DELETE-GF-10-2.                                              NC1744.2
072800     MOVE   "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                NC1744.2
072900     PERFORM DE-LETE.                                             NC1744.2
073000 SWH-WRITE-GF-10-2.                                               NC1744.2
073100     MOVE   "SWH-TEST-GF-10-2" TO PAR-NAME.                       NC1744.2
073200     PERFORM PRINT-DETAIL.                                        NC1744.2
073300*                                                                 NC1744.2
073400*                                                                 NC1744.2
073500 SWH-INIT-GF-11.                                                  NC1744.2
073600     MOVE   "SET SWITCH ON/OFF" TO FEATURE.                       NC1744.2
073700     MOVE   "V1-126 6.22.1(2)"  TO ANSI-REFERENCE.                NC1744.2
073800     SET     SW-1 TO ON                                           NC1744.2
073900             SW-2 TO OFF.                                         NC1744.2
074000 SWH-TEST-GF-11-1.                                                NC1744.2
074100     IF      ON-SWITCH-1                                          NC1744.2
074200             PERFORM PASS                                         NC1744.2
074300     ELSE                                                         NC1744.2
074400             PERFORM FAIL.                                        NC1744.2
074500     GO TO   SWH-WRITE-GF-11-1.                                   NC1744.2
074600 SWH-DELETE-GF-11-1.                                              NC1744.2
074700     MOVE   "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                NC1744.2
074800     PERFORM DE-LETE.                                             NC1744.2
074900 SWH-WRITE-GF-11-1.                                               NC1744.2
075000     MOVE   "SWH-TEST-GF-11-1" TO PAR-NAME.                       NC1744.2
075100     PERFORM PRINT-DETAIL.                                        NC1744.2
075200 SWH-TEST-GF-11-2.                                                NC1744.2
075300     IF      OFF-SWITCH-2                                         NC1744.2
075400             PERFORM PASS                                         NC1744.2
075500     ELSE                                                         NC1744.2
075600             PERFORM FAIL.                                        NC1744.2
075700     GO TO   SWH-WRITE-GF-11-2.                                   NC1744.2
075800 SWH-DELETE-GF-11-2.                                              NC1744.2
075900     MOVE   "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                NC1744.2
076000     PERFORM DE-LETE.                                             NC1744.2
076100 SWH-WRITE-GF-11-2.                                               NC1744.2
076200     MOVE   "SWH-TEST-GF-11-2" TO PAR-NAME.                       NC1744.2
076300     PERFORM PRINT-DETAIL.                                        NC1744.2
076400*                                                                 NC1744.2
076500*                                                                 NC1744.2
076600 SWH-INIT-GF-12.                                                  NC1744.2
076700     MOVE   "SET SWITCH ON/OFF" TO FEATURE.                       NC1744.2
076800     MOVE   "V1-126 6.22.1(2)"  TO ANSI-REFERENCE.                NC1744.2
076900     SET     SW-2 TO OFF.                                         NC1744.2
077000 SWH-TEST-GF-12.                                                  NC1744.2
077100     IF      OFF-SWITCH-2                                         NC1744.2
077200             PERFORM PASS                                         NC1744.2
077300     ELSE                                                         NC1744.2
077400             PERFORM FAIL.                                        NC1744.2
077500     GO TO   SWH-WRITE-GF-12.                                     NC1744.2
077600 SWH-DELETE-GF-12.                                                NC1744.2
077700     MOVE   "SWITCHES NOT IMPLEMENTED" TO RE-MARK.                NC1744.2
077800     PERFORM DE-LETE.                                             NC1744.2
077900 SWH-WRITE-GF-12.                                                 NC1744.2
078000     MOVE   "SWH-TEST-GF-12" TO PAR-NAME.                         NC1744.2
078100     PERFORM PRINT-DETAIL.                                        NC1744.2
078200*                                                                 NC1744.2
078300*                                                                 NC1744.2
078400 RELAT-INIT-GF-1.                                                 NC1744.2
078500     MOVE   "RELATION"          TO FEATURE.                       NC1744.2
078600     MOVE   "V1-54 6.3.1.1"     TO ANSI-REFERENCE.                NC1744.2
078700     MOVE     ZERO TO VAL.                                        NC1744.2
078800     MOVE    "A"   TO A-2.                                        NC1744.2
078900 RELAT-TEST-GF-1.                                                 NC1744.2
079000     IF "Z"   GREATER THAN A-2                                    NC1744.2
079100              ADD 1 VAL GIVING VAL.                               NC1744.2
079200                                                                  NC1744.2
079300     IF       A-2 GREATER THAN "Z"                                NC1744.2
079400              GO TO RELAT-CHECK-GF-1.                             NC1744.2
079500     ADD      2 VAL GIVING VAL.                                   NC1744.2
079600     GO TO    RELAT-CHECK-GF-1.                                   NC1744.2
079700 RELAT-DELETE-GF-1.                                               NC1744.2
079800     PERFORM  DE-LETE.                                            NC1744.2
079900     GO TO    RELAT-WRITE-GF-1.                                   NC1744.2
080000 RELAT-CHECK-GF-1.                                                NC1744.2
080100     IF       VAL EQUAL TO 3                                      NC1744.2
080200             PERFORM PASS                                         NC1744.2
080300             GO TO RELAT-WRITE-GF-1.                              NC1744.2
080400     MOVE VAL TO COMPUTED-A.                                      NC1744.2
080500     MOVE 3 TO CORRECT-A.                                         NC1744.2
080600     PERFORM FAIL.                                                NC1744.2
080700 RELAT-WRITE-GF-1.                                                NC1744.2
080800     MOVE "RELAT-TEST-GF-1" TO PAR-NAME.                          NC1744.2
080900     PERFORM PRINT-DETAIL.                                        NC1744.2
--> --------------------

--> maximum size reached

--> --------------------

quality95%

¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.22Angebot Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können ¤

*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.