Quelle nc103a.cob Sprache: Cobol

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

--> maximum size reached

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

quality96%

¤ Dauer der Verarbeitung: 0.26 Sekunden (vorverarbeitet) ¤

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.