Quelle nc118a.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         NC1184.2
000200 PROGRAM-ID.                                                      NC1184.2
000300     NC118A.                                                      NC1184.2
000400****************************************************************  NC1184.2
000500*                                                              *  NC1184.2
000600*    VALIDATION FOR:-                                          *  NC1184.2
000700*                                                              *  NC1184.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC1184.2
000900*                                                              *  NC1184.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC1184.2
001100*                                                              *  NC1184.2
001200****************************************************************  NC1184.2
001300*                                                              *  NC1184.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC1184.2
001500*                                                              *  NC1184.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  NC1184.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  NC1184.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  NC1184.2
001900*                                                              *  NC1184.2
002000****************************************************************  NC1184.2
002100*                                                                 NC1184.2
002200*    PROGRAM NC118A TESTS THE USE OF THE "SIGN" CLAUSE USING      NC1184.2
002300*    FORMATS 1 AND 2 OF THE ADD STATEMENT.  ALL COMBINATIONS      NC1184.2
002400*    OF THE SIGN CLAUSE PHRASES ARE TESTED USING DATA ITEMS       NC1184.2
002500*    OF VARIOUS LENGTHS.                                          NC1184.2
002600*                                                                 NC1184.2
002700                                                                  NC1184.2
002800 ENVIRONMENT DIVISION.                                            NC1184.2
002900 CONFIGURATION SECTION.                                           NC1184.2
003000 SOURCE-COMPUTER.                                                 NC1184.2
003100     Card0130.                                                    NC1184.2
003200 OBJECT-COMPUTER.                                                 NC1184.2
003300     Card0131.                                                    NC1184.2
003400 INPUT-OUTPUT SECTION.                                            NC1184.2
003500 FILE-CONTROL.                                                    NC1184.2
003600     SELECT PRINT-FILE ASSIGN TO                                  NC1184.2
003700     "C0085" .                                                    NC1184.2
003800 DATA DIVISION.                                                   NC1184.2
003900 FILE SECTION.                                                    NC1184.2
004000 FD  PRINT-FILE.                                                  NC1184.2
004100 01  PRINT-REC PICTURE X(120).                                    NC1184.2
004200 01  DUMMY-RECORD PICTURE X(120).                                 NC1184.2
004300 WORKING-STORAGE SECTION.                                         NC1184.2
004400 77  SIZE-ERR                     PICTURE X  VALUE SPACE.         NC1184.2
004500 77  A18TWOS-DS-LS-18V00             PICTURE S9(18)               NC1184.2
004600             SIGN IS LEADING SEPARATE                             NC1184.2
004700                                  VALUE 222222222222222222.       NC1184.2
004800 77  A18ONES-DS-TS-18V00             PICTURE S9(18)               NC1184.2
004900            SIGN IS TRAILING SEPARATE                             NC1184.2
005000                                  VALUE 111111111111111111.       NC1184.2
005100 77  WRK-DS-10V00                 PICTURE S9(10) TRAILING.        NC1184.2
005200 77  A10ONES-DS-T-10V00             PICTURE S9(10)                NC1184.2
005300            SIGN TRAILING                                         NC1184.2
005400                                  VALUE 1111111111.               NC1184.2
005500 77  A05ONES-DS-L-05V00             PICTURE S9(5)                 NC1184.2
005600           SIGN LEADING                                           NC1184.2
005700                                  VALUE 11111.                    NC1184.2
005800 77  A02ONES-DS-LS-02V00             PICTURE S99                  NC1184.2
005900           LEADING SEPARATE                                       NC1184.2
006000                                  VALUE 11.                       NC1184.2
006100 77  WRK-DS-09V09                 PICTURE S9(9)V9(9) TRAILING.    NC1184.2
006200 77  WRK-DS-T-18V00 REDEFINES WRK-DS-09V09                        NC1184.2
006300                                  PICTURE S9(18) TRAILING.        NC1184.2
006400 77  A06THREES-DS-03V03           PICTURE S999V999                NC1184.2
006500                                  VALUE 333.333.                  NC1184.2
006600 77  A12THREES-DS-06V06           PICTURE S9(6)V9(6)              NC1184.2
006700                                  VALUE 333333.333333.            NC1184.2
006800 77  WRK-DS-TS-06V06                 PICTURE S9(6)V9(6)           NC1184.2
006900           SIGN IS TRAILING SEPARATE CHARACTER.                   NC1184.2
007000 77  WRK-DS-TS-12V00-S REDEFINES WRK-DS-TS-06V06                  NC1184.2
007100         TRAILING SEPARATE                                        NC1184.2
007200                                  PICTURE S9(12).                 NC1184.2
007300 77  A05ONES-DS-LS-00V05             PICTURE SV9(5)               NC1184.2
007400         LEADING SEPARATE                                         NC1184.2
007500                                  VALUE .11111.                   NC1184.2
007600 77  WRK-DS-T-05V00              PICTURE S9(5) TRAILING.          NC1184.2
007700 77  WRK-DS-T-06V00                 PICTURE S9(6) TRAILING.       NC1184.2
007800 77  WRK-DS-02V00                 PICTURE S99.                    NC1184.2
007900 77  A12ONES-DS-L-12V00             PICTURE S9(12)                NC1184.2
008000              USAGE IS DISPLAY SIGN IS LEADING                    NC1184.2
008100                                  VALUE 111111111111.             NC1184.2
008200 77  WRK-DS-03V10                 PICTURE S999V9(10).             NC1184.2
008300 77  WRK-DS-13V00-S REDEFINES WRK-DS-03V10                        NC1184.2
008400                                  PICTURE S9(13).                 NC1184.2
008500 77  A99-DS-T-02V00                 PICTURE S99                   NC1184.2
008600             USAGE IS DISPLAY SIGN IS TRAILING                    NC1184.2
008700                                  VALUE 99.                       NC1184.2
008800 77  A03ONES-DS-02V01             PICTURE S99V9                   NC1184.2
008900                                  VALUE 11.1.                     NC1184.2
009000 77  A06ONES-DS-TS-03V03             PICTURE S999V999             NC1184.2
009100             USAGE IS DISPLAY TRAILING SEPARATE                   NC1184.2
009200                                  VALUE 111.111.                  NC1184.2
009300 77  A08TWOS-DS-02V06             PICTURE S99V9(6)                NC1184.2
009400                                  VALUE 22.222222.                NC1184.2
009500 77  A01ONES-DS-LS-P0801              PICTURE SP(8)9              NC1184.2
009600             SIGN IS LEADING SEPARATE                             NC1184.2
009700                                  VALUE .000000001.               NC1184.2
009800 77  WRK-CS-18V00                 PICTURE S9(18) COMPUTATIONAL.   NC1184.2
009900 77  A18ONES-CS-18V00             PICTURE S9(18) COMPUTATIONAL    NC1184.2
010000                                  VALUE 111111111111111111.       NC1184.2
010100 77  WRK-CS-02V02                 PICTURE S99V99 COMPUTATIONAL.   NC1184.2
010200 77  A99-CS-02V00                 PICTURE S99 COMPUTATIONAL       NC1184.2
010300                                  VALUE 99.                       NC1184.2
010400 77  WRK-DS-TS-0201P            PICTURE S99P TRAILING SEPARATE.   NC1184.2
010500 77  WRK-DS-06V00                 PICTURE S9(6).                  NC1184.2
010600 77  AZERO-DS-LS-05V05               PICTURE S9(5)V9(5)           NC1184.2
010700             SIGN IS LEADING SEPARATE USAGE DISPLAY               NC1184.2
010800                                  VALUE ZERO.                     NC1184.2
010900 77  NDATA-DS-09V09               PICTURE S9(9)V9(9)              NC1184.2
011000                                  VALUE +012345678.876543210.     NC1184.2
011100 77  XDATA-XN-00018               PICTURE X(18)                   NC1184.2
011200                                  VALUE "00ABCDEFGHI 4321 ".     NC1184.2
011300 77  WRK-XN-00018                 PICTURE X(18).                  NC1184.2
011400 77  ADD-12    PICTURE PP9        VALUE .001.                     NC1184.2
011500 77  ADD-13    PICTURE 9PP        VALUE 100.                      NC1184.2
011600 77  ADD-14    PICTURE 999V999.                                   NC1184.2
011700 77  WRK-CU-18V00      PICTURE 9(18) VALUE ZERO COMPUTATIONAL.    NC1184.2
011800 77  A18EIGHTS-CS-18V00 PICTURE S9(18) VALUE -888888888888888888  NC1184.2
011900             COMPUTATIONAL.                                       NC1184.2
012000 77  A14TWOS-CS-18V00  PICTURE S9(18) VALUE -000022222222222222   NC1184.2
012100             COMPUTATIONAL.                                       NC1184.2
012200 77  A12THREES-CU-18V00 PICTURE 9(18) VALUE 000000333333333333    NC1184.2
012300             COMPUTATIONAL.                                       NC1184.2
012400 77  A16FOURS-CS-18V00 PICTURE S9(18) VALUE 004444444444444444    NC1184.2
012500             COMPUTATIONAL.                                       NC1184.2
012600 77  A18FIVES-CS-18V00 PICTURE S9(18) VALUE -555555555555555555   NC1184.2
012700             COMPUTATIONAL.                                       NC1184.2
012800 77  A18SIXES-CS-18V00 PICTURE S9(18) VALUE 666666666666666666    NC1184.2
012900             COMPUTATIONAL.                                       NC1184.2
013000 77  A12SEVENS-CU-18V00 PICTURE 9(18) VALUE 000000777777777777    NC1184.2
013100             COMPUTATIONAL.                                       NC1184.2
013200 77  WRK-DU-18V00      PICTURE 9(18) VALUE ZERO.                  NC1184.2
013300 77  A18THREES-CS-18V00 PICTURE S9(18) VALUE -333333333333333333  NC1184.2
013400             COMPUTATIONAL.                                       NC1184.2
013500 77  WRK-CS-03V00 PICTURE S999 COMPUTATIONAL SYNCHRONIZED RIGHT.  NC1184.2
013600 01  SUBTRACT-DATA SIGN IS LEADING SEPARATE DISPLAY.              NC1184.2
013700     02  SUBTR-1    PICTURE 9         VALUE 1.                    NC1184.2
013800     02  SUBTR-2    PICTURE S99       VALUE 99.                   NC1184.2
013900     02  SUBTR-3    PICTURE S9V99     VALUE -1.                   NC1184.2
014000     02  SUBTR-4    PICTURE SPP9      VALUE .001.                 NC1184.2
014100     02  SUBTR-5    PICTURE S9PP      VALUE 100.                  NC1184.2
014200     02  SUBTR-6    PICTURE 9  VALUE 1.                           NC1184.2
014300     02  SUBTR-7    PICTURE S99  VALUE 99.                        NC1184.2
014400     02  SUBTR-8    PICTURE S9V99  VALUE -9.99.                   NC1184.2
014500     02  SUBTR-10    PICTURE S999  VALUE 100.                     NC1184.2
014600     02  SUBTR-11   PICTURE S999V999.                             NC1184.2
014700 01  N-3                                PICTURE IS 99999.         NC1184.2
014800 01  N-4                                PICTURE IS 9(5)           NC1184.2
014900     VALUE IS 52800.                                              NC1184.2
015000 01  N-5                                PICTURE IS S9(9)V99       NC1184.2
015100             SIGN IS LEADING SEPARATE                             NC1184.2
015200     VALUE IS 000000001.00.                                       NC1184.2
015300 01  N-7                                PICTURE IS S9(7)V9(4)     NC1184.2
015400             SIGN IS LEADING SEPARATE CHARACTER                   NC1184.2
015500     VALUE IS 0000001.0000.                                       NC1184.2
015600 01  X-8 REDEFINES N-7                  PICTURE IS X(11).         NC1184.2
015700 01  N-10                               PICTURE IS S99999V        NC1184.2
015800     VALUE IS -00001.                                             NC1184.2
015900 01  N-11                               PICTURE IS 9 VALUE IS 9.  NC1184.2
016000 01  N-12                               PICTURE IS 9 VALUE IS 9.  NC1184.2
016100 01  N-13                               PICTURE IS 9(5)           NC1184.2
016200     VALUE IS 99999.                                              NC1184.2
016300 01  N-14                               PICTURE IS 9 VALUE IS 1.  NC1184.2
016400 01  N-15                               PICTURE IS 9(16).         NC1184.2
016500 01  N-16                               PICTURE IS S999999V99     NC1184.2
016600     VALUE IS 5.90.                                               NC1184.2
016700 01  N-17                               PICTURE IS S9(3)V99       NC1184.2
016800     VALUE IS +3.6.                                               NC1184.2
016900 01  N-18                               PICTURE IS S9(10)         NC1184.2
017000     VALUE IS -5.                                                 NC1184.2
017100 01  N-19                               PICTURE IS $9.00.         NC1184.2
017200 01  N-20                               PICTURE IS S9(9)          NC1184.2
017300     VALUE IS -999999999.                                         NC1184.2
017400 01  N-21                               PICTURE IS 9 VALUE IS 5.  NC1184.2
017500 01  N-22                               PICTURE IS 999V99         NC1184.2
017600     VALUE IS 005.55.                                             NC1184.2
017700 01  N-23                               PICTURE IS $$$.99CR.      NC1184.2
017800 01  N-25                               PICTURE IS 9 VALUE IS 1.  NC1184.2
017900 01  N-26               PICTURE 9(5).                             NC1184.2
018000 01  N-27                               PICTURE IS 9999V9         NC1184.2
018100     VALUE IS 9999.9.                                             NC1184.2
018200 01  N-28                               PICTURE IS $9999.00.      NC1184.2
018300 01  N-40                               PICTURE IS 9(7)           NC1184.2
018400     VALUE IS 7777777.                                            NC1184.2
018500 01  N-41                               PICTURE IS 9(7)           NC1184.2
018600     VALUE IS 1111111.                                            NC1184.2
018700 01  N-42                               PICTURE IS 9(3)P(4).      NC1184.2
018800 01  TRUNC-DATA.                                                  NC1184.2
018900     02 N-43  PICTURE S9V9 VALUE +1.6.                            NC1184.2
019000     02 N-44  PICTURE S9V9 VALUE -1.6.                            NC1184.2
019100     02 N-45  PICTURE S9.                                         NC1184.2
019200 01  MINUS-NAMES SIGN IS TRAILING SEPARATE CHARACTER.             NC1184.2
019300     02  MINUS-NAME1 PICTURE S9(18) VALUE -999999999999999999.    NC1184.2
019400     02  MINUS-NAME2 PICTURE S9(18) VALUE -999999999999999999.    NC1184.2
019500     02  EVEN-NAME1  PICTURE S9(18) VALUE +1.                     NC1184.2
019600     02  PLUS-NAME1  PICTURE S9(18) VALUE +999999999999999999.    NC1184.2
019700     02  PLUS-NAME2  PICTURE S9(18) VALUE +999999999999999999.    NC1184.2
019800     02  MINUS-NAME3 PICTURE SV9(18) VALUE -.999999999999999999.  NC1184.2
019900     02  MINUS-NAME4 PICTURE SV9(18) VALUE -.999999999999999999.  NC1184.2
020000     02  EVEN-NAME2  PICTURE SV9(18)  VALUE +.1.                  NC1184.2
020100     02  PLUS-NAME3  PICTURE SV9(18) VALUE +.999999999999999999.  NC1184.2
020200     02  PLUS-NAME4  PICTURE SV9(18) VALUE +.999999999999999999.  NC1184.2
020300     02  WHOLE-FIELD   PICTURE S9(18).                            NC1184.2
020400     02  DECMAL-FIELD  PICTURE SV9(18).                           NC1184.2
020500 01  TEST-RESULTS.                                                NC1184.2
020600     02 FILLER                   PIC X      VALUE SPACE.          NC1184.2
020700     02 FEATURE                  PIC X(20)  VALUE SPACE.          NC1184.2
020800     02 FILLER                   PIC X      VALUE SPACE.          NC1184.2
020900     02 P-OR-F                   PIC X(5)   VALUE SPACE.          NC1184.2
021000     02 FILLER                   PIC X      VALUE SPACE.          NC1184.2
021100     02  PAR-NAME.                                                NC1184.2
021200       03 FILLER                 PIC X(19)  VALUE SPACE.          NC1184.2
021300       03  PARDOT-X              PIC X      VALUE SPACE.          NC1184.2
021400       03 DOTVALUE               PIC 99     VALUE ZERO.           NC1184.2
021500     02 FILLER                   PIC X(8)   VALUE SPACE.          NC1184.2
021600     02 RE-MARK                  PIC X(61).                       NC1184.2
021700 01  TEST-COMPUTED.                                               NC1184.2
021800     02 FILLER                   PIC X(30)  VALUE SPACE.          NC1184.2
021900     02 FILLER                   PIC X(17)  VALUE                 NC1184.2
022000            " COMPUTED=".                                   NC1184.2
022100     02 COMPUTED-X.                                               NC1184.2
022200     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          NC1184.2
022300     03 COMPUTED-N               REDEFINES COMPUTED-A             NC1184.2
022400                                 PIC -9(9).9(9).                  NC1184.2
022500     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         NC1184.2
022600     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     NC1184.2
022700     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     NC1184.2
022800     03       CM-18V0 REDEFINES COMPUTED-A.                       NC1184.2
022900         04 COMPUTED-18V0                    PIC -9(18).          NC1184.2
023000         04 FILLER                           PIC X.               NC1184.2
023100     03 FILLER PIC X(50) VALUE SPACE.                             NC1184.2
023200 01  TEST-CORRECT.                                                NC1184.2
023300     02 FILLER PIC X(30) VALUE SPACE.                             NC1184.2
023400     02 FILLER PIC X(17) VALUE " CORRECT =".                NC1184.2
023500     02 CORRECT-X.                                                NC1184.2
023600     03 CORRECT-A                  PIC X(20) VALUE SPACE.         NC1184.2
023700     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      NC1184.2
023800     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         NC1184.2
023900     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     NC1184.2
024000     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     NC1184.2
024100     03      CR-18V0 REDEFINES CORRECT-A.                         NC1184.2
024200         04 CORRECT-18V0                     PIC -9(18).          NC1184.2
024300         04 FILLER                           PIC X.               NC1184.2
024400     03 FILLER PIC X(2) VALUE SPACE.                              NC1184.2
024500     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     NC1184.2
024600 01  CCVS-C-1.                                                    NC1184.2
024700     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PANC1184.2
024800-    "SS PARAGRAPH-NAME NC1184.2
024900-    " REMARKS".                                            NC1184.2
025000     02 FILLER                     PIC X(20)    VALUE SPACE.      NC1184.2
025100 01  CCVS-C-2.                                                    NC1184.2
025200     02 FILLER                     PIC X        VALUE SPACE.      NC1184.2
025300     02 FILLER                     PIC X(6)     VALUE "TESTED".   NC1184.2
025400     02 FILLER                     PIC X(15)    VALUE SPACE.      NC1184.2
025500     02 FILLER                     PIC X(4)     VALUE "FAIL".     NC1184.2
025600     02 FILLER                     PIC X(94)    VALUE SPACE.      NC1184.2
025700 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       NC1184.2
025800 01  REC-CT                        PIC 99       VALUE ZERO.       NC1184.2
025900 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       NC1184.2
026000 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       NC1184.2
026100 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       NC1184.2
026200 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       NC1184.2
026300 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       NC1184.2
026400 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       NC1184.2
026500 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      NC1184.2
026600 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       NC1184.2
026700 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     NC1184.2
026800 01  CCVS-H-1.                                                    NC1184.2
026900     02  FILLER                    PIC X(39)    VALUE SPACES.     NC1184.2
027000     02  FILLER                    PIC X(42)    VALUE             NC1184.2
027100     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 NC1184.2
027200     02  FILLER                    PIC X(39)    VALUE SPACES.     NC1184.2
027300 01  CCVS-H-2A.                                                   NC1184.2
027400   02  FILLER                        PIC X(40)  VALUE SPACE.      NC1184.2
027500   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  NC1184.2
027600   02  FILLER                        PIC XXXX   VALUE             NC1184.2
027700     "4.2 ".                                                      NC1184.2
027800   02  FILLER                        PIC X(28)  VALUE             NC1184.2
027900            " COPY - NOT FOR DISTRIBUTION".                       NC1184.2
028000   02  FILLER                        PIC X(41)  VALUE SPACE.      NC1184.2
028100                                                                  NC1184.2
028200 01  CCVS-H-2B.                                                   NC1184.2
028300   02  FILLER                        PIC X(15)  VALUE             NC1184.2
028400            "TEST RESULT OF ".                                    NC1184.2
028500   02  TEST-ID                       PIC X(9).                    NC1184.2
028600   02  FILLER                        PIC X(4)   VALUE             NC1184.2
028700            " IN ".                                               NC1184.2
028800   02  FILLER                        PIC X(12)  VALUE             NC1184.2
028900     " HIGH ".                                              NC1184.2
029000   02  FILLER                        PIC X(22)  VALUE             NC1184.2
029100            " LEVEL VALIDATION FOR ".                             NC1184.2
029200   02  FILLER                        PIC X(58)  VALUE             NC1184.2
029300     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1184.2
029400 01  CCVS-H-3.                                                    NC1184.2
029500     02  FILLER                      PIC X(34)  VALUE             NC1184.2
029600            " FOR OFFICIAL USE ONLY ".                         NC1184.2
029700     02  FILLER                      PIC X(58)  VALUE             NC1184.2
029800     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1184.2
029900     02  FILLER                      PIC X(28)  VALUE             NC1184.2
030000            " COPYRIGHT 1985 ".                                NC1184.2
030100 01  CCVS-E-1.                                                    NC1184.2
030200     02 FILLER                       PIC X(52)  VALUE SPACE.      NC1184.2
030300     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              NC1184.2
030400     02 ID-AGAIN                     PIC X(9).                    NC1184.2
030500     02 FILLER                       PIC X(45)  VALUE SPACES.     NC1184.2
030600 01  CCVS-E-2.                                                    NC1184.2
030700     02  FILLER                      PIC X(31)  VALUE SPACE.      NC1184.2
030800     02  FILLER                      PIC X(21)  VALUE SPACE.      NC1184.2
030900     02 CCVS-E-2-2.                                               NC1184.2
031000         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      NC1184.2
031100         03 FILLER                   PIC X      VALUE SPACE.      NC1184.2
031200         03 ENDER-DESC               PIC X(44)  VALUE             NC1184.2
031300            "ERRORS ENCOUNTERED".                                 NC1184.2
031400 01  CCVS-E-3.                                                    NC1184.2
031500     02  FILLER                      PIC X(22)  VALUE             NC1184.2
031600            " FOR OFFICIAL USE ONLY".                             NC1184.2
031700     02  FILLER                      PIC X(12)  VALUE SPACE.      NC1184.2
031800     02  FILLER                      PIC X(58)  VALUE             NC1184.2
031900     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1184.2
032000     02  FILLER                      PIC X(13)  VALUE SPACE.      NC1184.2
032100     02 FILLER                       PIC X(15)  VALUE             NC1184.2
032200             " COPYRIGHT 1985".                                   NC1184.2
032300 01  CCVS-E-4.                                                    NC1184.2
032400     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      NC1184.2
032500     02 FILLER                       PIC X(4)   VALUE " OF ".     NC1184.2
032600     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      NC1184.2
032700     02 FILLER                       PIC X(40)  VALUE             NC1184.2
032800      " TESTS WERE EXECUTED SUCCESSFULLY".                       NC1184.2
032900 01  XXINFO.                                                      NC1184.2
033000     02 FILLER                       PIC X(19)  VALUE             NC1184.2
033100            "*** INFORMATION ***".                                NC1184.2
033200     02 INFO-TEXT.                                                NC1184.2
033300       04 FILLER                     PIC X(8)   VALUE SPACE.      NC1184.2
033400       04 XXCOMPUTED                 PIC X(20).                   NC1184.2
033500       04 FILLER                     PIC X(5)   VALUE SPACE.      NC1184.2
033600       04 XXCORRECT                  PIC X(20).                   NC1184.2
033700     02 INF-ANSI-REFERENCE           PIC X(48).                   NC1184.2
033800 01  HYPHEN-LINE.                                                 NC1184.2
033900     02 FILLER  PIC IS X VALUE IS SPACE.                          NC1184.2
034000     02 FILLER  PIC IS X(65)    VALUE IS "************************NC1184.2
034100-    "*****************************************".                 NC1184.2
034200     02 FILLER  PIC IS X(54)    VALUE IS "************************NC1184.2
034300-    "******************************".                            NC1184.2
034400 01  CCVS-PGM-ID                     PIC X(9)   VALUE             NC1184.2
034500     "NC118A".                                                    NC1184.2
034600 PROCEDURE DIVISION.                                              NC1184.2
034700 CCVS1 SECTION.                                                   NC1184.2
034800 OPEN-FILES.                                                      NC1184.2
034900     OPEN     OUTPUT PRINT-FILE.                                  NC1184.2
035000     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   NC1184.2
035100     MOVE    SPACE TO TEST-RESULTS.                               NC1184.2
035200     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             NC1184.2
035300     GO TO CCVS1-EXIT.                                            NC1184.2
035400 CLOSE-FILES.                                                     NC1184.2
035500     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   NC1184.2
035600 TERMINATE-CCVS.                                                  NC1184.2
035700     EXIT PROGRAM.                                                NC1184.2
035800 TERMINATE-CALL.                                                  NC1184.2
035900     STOP     RUN.                                                NC1184.2
036000 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         NC1184.2
036100 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           NC1184.2
036200 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          NC1184.2
036300 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      NC1184.2
036400     MOVE "****TEST DELETED****" TO RE-MARK.                      NC1184.2
036500 PRINT-DETAIL.                                                    NC1184.2
036600     IF REC-CT NOT EQUAL TO ZERO                                  NC1184.2
036700             MOVE "." TO PARDOT-X                                 NC1184.2
036800             MOVE REC-CT TO DOTVALUE.                             NC1184.2
036900     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      NC1184.2
037000     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               NC1184.2
037100        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 NC1184.2
037200          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 NC1184.2
037300     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              NC1184.2
037400     MOVE SPACE TO CORRECT-X.                                     NC1184.2
037500     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         NC1184.2
037600     MOVE     SPACE TO RE-MARK.                                   NC1184.2
037700 HEAD-ROUTINE.                                                    NC1184.2
037800     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC1184.2
037900     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC1184.2
038000     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC1184.2
038100     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC1184.2
038200 COLUMN-NAMES-ROUTINE.                                            NC1184.2
038300     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1184.2
038400     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1184.2
038500     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        NC1184.2
038600 END-ROUTINE.                                                     NC1184.2
038700     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC1184.2
038800 END-RTN-EXIT.                                                    NC1184.2
038900     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1184.2
039000 END-ROUTINE-1.                                                   NC1184.2
039100      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      NC1184.2
039200      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               NC1184.2
039300      ADD PASS-COUNTER TO ERROR-HOLD.                             NC1184.2
039400*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC1184.2
039500      MOVE PASS-COUNTER TO CCVS-E-4-1.                            NC1184.2
039600      MOVE ERROR-HOLD TO CCVS-E-4-2.                              NC1184.2
039700      MOVE CCVS-E-4 TO CCVS-E-2-2.                                NC1184.2
039800      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           NC1184.2
039900  END-ROUTINE-12.                                                 NC1184.2
040000      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        NC1184.2
040100     IF       ERROR-COUNTER IS EQUAL TO ZERO                      NC1184.2
040200         MOVE "NO " TO ERROR-TOTAL                                NC1184.2
040300         ELSE                                                     NC1184.2
040400         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC1184.2
040500     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           NC1184.2
040600     PERFORM WRITE-LINE.                                          NC1184.2
040700 END-ROUTINE-13.                                                  NC1184.2
040800     IF DELETE-COUNTER IS EQUAL TO ZERO                           NC1184.2
040900         MOVE "NO " TO ERROR-TOTAL  ELSE                          NC1184.2
041000         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      NC1184.2
041100     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   NC1184.2
041200     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1184.2
041300      IF   INSPECT-COUNTER EQUAL TO ZERO                          NC1184.2
041400          MOVE "NO " TO ERROR-TOTAL                               NC1184.2
041500      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   NC1184.2
041600      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            NC1184.2
041700      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          NC1184.2
041800     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1184.2
041900 WRITE-LINE.                                                      NC1184.2
042000     ADD 1 TO RECORD-COUNT.                                       NC1184.2
042100     IF RECORD-COUNT GREATER 42                                   NC1184.2
042200         MOVE DUMMY-RECORD TO DUMMY-HOLD                          NC1184.2
042300         MOVE SPACE TO DUMMY-RECORD                               NC1184.2
042400         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  NC1184.2
042500         MOVE CCVS-H-1  TO DUMMY-RECORD  PERFORM WRT-LN 2 TIMES   NC1184.2
042600         MOVE CCVS-H-2A TO DUMMY-RECORD  PERFORM WRT-LN 2 TIMES   NC1184.2
042700         MOVE CCVS-H-2B TO DUMMY-RECORD  PERFORM WRT-LN 3 TIMES   NC1184.2
042800         MOVE CCVS-H-3  TO DUMMY-RECORD  PERFORM WRT-LN 3 TIMES   NC1184.2
042900         MOVE CCVS-C-1  TO DUMMY-RECORD  PERFORM WRT-LN           NC1184.2
043000         MOVE CCVS-C-2  TO DUMMY-RECORD  PERFORM WRT-LN           NC1184.2
043100         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          NC1184.2
043200         MOVE DUMMY-HOLD TO DUMMY-RECORD                          NC1184.2
043300         MOVE ZERO TO RECORD-COUNT.                               NC1184.2
043400     PERFORM WRT-LN.                                              NC1184.2
043500 WRT-LN.                                                          NC1184.2
043600     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               NC1184.2
043700     MOVE SPACE TO DUMMY-RECORD.                                  NC1184.2
043800 BLANK-LINE-PRINT.                                                NC1184.2
043900     PERFORM WRT-LN.                                              NC1184.2
044000 FAIL-ROUTINE.                                                    NC1184.2
044100     IF     COMPUTED-X NOT EQUAL TO SPACE                         NC1184.2
044200            GO TO FAIL-ROUTINE-WRITE.                             NC1184.2
044300     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC1184.2
044400     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC1184.2
044500     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   NC1184.2
044600     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1184.2
044700     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC1184.2
044800     GO TO  FAIL-ROUTINE-EX.                                      NC1184.2
044900 FAIL-ROUTINE-WRITE.                                              NC1184.2
045000     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         NC1184.2
045100     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 NC1184.2
045200     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC1184.2
045300     MOVE   SPACES TO COR-ANSI-REFERENCE.                         NC1184.2
045400 FAIL-ROUTINE-EX. EXIT.                                           NC1184.2
045500 BAIL-OUT.                                                        NC1184.2
045600     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   NC1184.2
045700     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           NC1184.2
045800 BAIL-OUT-WRITE.                                                  NC1184.2
045900     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  NC1184.2
046000     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC1184.2
046100     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1184.2
046200     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC1184.2
046300 BAIL-OUT-EX. EXIT.                                               NC1184.2
046400 CCVS1-EXIT.                                                      NC1184.2
046500     EXIT.                                                        NC1184.2
046600 SECT-NC118A-001 SECTION.                                         NC1184.2
046700 SIG-INIT-GF-1.                                                   NC1184.2
046800     MOVE   "VI-42 5.12.4" TO ANSI-REFERENCE.                     NC1184.2
046900     MOVE   "ADD " TO FEATURE.                                    NC1184.2
047000     MOVE    000000001.00   TO N-5.                               NC1184.2
047100     MOVE    0000001.0000   TO N-7.                               NC1184.2
047200 SIG-TEST-GF-1-0.                                                 NC1184.2
047300     ADD     N-5 TO N-7.                                          NC1184.2
047400 SIG-TEST-GF-1-1.                                                 NC1184.2
047500     IF      N-7 = 2                                              NC1184.2
047600             PERFORM PASS GO TO SIG-WRITE-GF-1.                   NC1184.2
047700     GO      TO SIG-FAIL-GF-1.                                    NC1184.2
047800 SIG-DELETE-GF-1.                                                 NC1184.2
047900     PERFORM DE-LETE.                                             NC1184.2
048000     GO      TO SIG-WRITE-GF-1.                                   NC1184.2
048100 SIG-FAIL-GF-1.                                                   NC1184.2
048200     MOVE    N-7 TO COMPUTED-N                                    NC1184.2
048300     MOVE    2   TO CORRECT-N.                                    NC1184.2
048400     PERFORM  FAIL.                                               NC1184.2
048500 SIG-WRITE-GF-1.                                                  NC1184.2
048600     MOVE     "SIG-TEST-GF-1" TO PAR-NAME.                        NC1184.2
048700     PERFORM  PRINT-DETAIL.                                       NC1184.2
048800 SIG-INIT-GF-2.                                                   NC1184.2
048900     MOVE   "VI-42 5.12.4" TO ANSI-REFERENCE.                     NC1184.2
049000     MOVE "ADD ---" TO FEATURE.                                   NC1184.2
049100     PERFORM  PRINT-DETAIL.                                       NC1184.2
049200     MOVE " TO" TO FEATURE.                                      NC1184.2
049300     MOVE     A18TWOS-DS-LS-18V00 TO WRK-DS-T-18V00.              NC1184.2
049400 SIG-TEST-GF-2-0.                                                 NC1184.2
049500     ADD      A18ONES-DS-TS-18V00 TO WRK-DS-T-18V00.              NC1184.2
049600 SIG-TEST-GF-2-1.                                                 NC1184.2
049700     IF       WRK-DS-T-18V00 EQUAL TO 333333333333333333          NC1184.2
049800              PERFORM PASS GO TO SIG-WRITE-GF-2.                  NC1184.2
049900     GO       TO SIG-FAIL-GF-2.                                   NC1184.2
050000 SIG-DELETE-GF-2.                                                 NC1184.2
050100     PERFORM  DE-LETE.                                            NC1184.2
050200     GO       TO SIG-WRITE-GF-2.                                  NC1184.2
050300 SIG-FAIL-GF-2.                                                   NC1184.2
050400     MOVE     WRK-DS-T-18V00 TO COMPUTED-18V0.                    NC1184.2
050500     MOVE     333333333333333333   TO CORRECT-18V0.               NC1184.2
050600     PERFORM  FAIL.                                               NC1184.2
050700 SIG-WRITE-GF-2.                                                  NC1184.2
050800     MOVE     "SIG-TEST-GF-2" TO PAR-NAME.                        NC1184.2
050900     PERFORM  PRINT-DETAIL.                                       NC1184.2
051000 SIG-INIT-GF-3.                                                   NC1184.2
051100     MOVE   "VI-42 5.12.4" TO ANSI-REFERENCE.                     NC1184.2
051200     MOVE     ZERO TO WRK-DS-10V00.                               NC1184.2
051300 SIG-TEST-GF-3-0.                                                 NC1184.2
051400     ADD      A10ONES-DS-T-10V00  A05ONES-DS-L-05V00              NC1184.2
051500                     TO  WRK-DS-10V00.                            NC1184.2
051600 SIG-TEST-GF-3-1.                                                 NC1184.2
051700     IF       WRK-DS-10V00 EQUAL TO 1111122222                    NC1184.2
051800              PERFORM PASS GO TO SIG-WRITE-GF-3.                  NC1184.2
051900     GO       TO SIG-FAIL-GF-3.                                   NC1184.2
052000 SIG-DELETE-GF-3.                                                 NC1184.2
052100     PERFORM  DE-LETE.                                            NC1184.2
052200     GO       TO SIG-WRITE-GF-3.                                  NC1184.2
052300 SIG-FAIL-GF-3.                                                   NC1184.2
052400     MOVE     WRK-DS-10V00 TO COMPUTED-18V0.                      NC1184.2
052500     MOVE     1111122222   TO CORRECT-18V0.                       NC1184.2
052600     PERFORM  FAIL.                                               NC1184.2
052700 SIG-WRITE-GF-3.                                                  NC1184.2
052800     MOVE     "SIG-TEST-GF-3" TO PAR-NAME.                        NC1184.2
052900     PERFORM  PRINT-DETAIL.                                       NC1184.2
053000 SIG-INIT-GF-4.                                                   NC1184.2
053100     MOVE   "VI-42 5.12.4" TO ANSI-REFERENCE.                     NC1184.2
053200     MOVE     ZERO TO WRK-DS-10V00.                               NC1184.2
053300 SIG-TEST-GF-4-0.                                                 NC1184.2
053400     ADD      A02ONES-DS-LS-02V00                                 NC1184.2
053500              A10ONES-DS-T-10V00                                  NC1184.2
053600              A05ONES-DS-L-05V00 TO WRK-DS-10V00.                 NC1184.2
053700 SIG-TEST-GF-4-1.                                                 NC1184.2
053800     IF       WRK-DS-10V00 EQUAL TO 1111122233                    NC1184.2
053900              PERFORM PASS GO TO SIG-WRITE-GF-4.                  NC1184.2
054000     GO       TO SIG-FAIL-GF-4.                                   NC1184.2
054100 SIG-DELETE-GF-4.                                                 NC1184.2
054200     PERFORM  DE-LETE.                                            NC1184.2
054300     GO       TO SIG-WRITE-GF-4.                                  NC1184.2
054400 SIG-FAIL-GF-4.                                                   NC1184.2
054500     MOVE     WRK-DS-10V00 TO COMPUTED-18V0.                      NC1184.2
054600     MOVE     1111122233   TO CORRECT-18V0.                       NC1184.2
054700     PERFORM  FAIL.                                               NC1184.2
054800 SIG-WRITE-GF-4.                                                  NC1184.2
054900     MOVE     "SIG-TEST-GF-4" TO PAR-NAME.                        NC1184.2
055000     PERFORM  PRINT-DETAIL.                                       NC1184.2
055100 SIG-INIT-GF-10.                                                  NC1184.2
055200     MOVE   "VI-42 5.12.4" TO ANSI-REFERENCE.                     NC1184.2
055300     MOVE " GIVING" TO FEATURE.                                  NC1184.2
055400     MOVE     ZERO TO WRK-DS-09V09.                               NC1184.2
055500 SIG-TEST-GF-10-0.                                                NC1184.2
055600     ADD      A06THREES-DS-03V03                                  NC1184.2
055700              A12THREES-DS-06V06 GIVING WRK-DS-09V09.             NC1184.2
055800 SIG-TEST-GF-10-1.                                                NC1184.2
055900     IF       WRK-DS-09V09 EQUAL TO 000333666.666333000           NC1184.2
056000              PERFORM PASS GO TO SIG-WRITE-GF-10.                 NC1184.2
056100     GO       TO SIG-FAIL-GF-10.                                  NC1184.2
056200 SIG-DELETE-GF-10.                                                NC1184.2
056300     PERFORM  DE-LETE.                                            NC1184.2
056400     GO       TO SIG-WRITE-GF-10.                                 NC1184.2
056500 SIG-FAIL-GF-10.                                                  NC1184.2
056600     MOVE     WRK-DS-09V09 TO COMPUTED-N.                         NC1184.2
056700     MOVE     000333666.666333000 TO CORRECT-N.                   NC1184.2
056800     PERFORM  FAIL.                                               NC1184.2
056900 SIG-WRITE-GF-10.                                                 NC1184.2
057000     MOVE     "SIG-TEST-GF-10" TO PAR-NAME.                       NC1184.2
057100     PERFORM  PRINT-DETAIL.                                       NC1184.2
057200 SIG-INIT-GF-11.                                                  NC1184.2
057300     MOVE   "VI-42 5.12.4" TO ANSI-REFERENCE.                     NC1184.2
057400     MOVE     ZERO TO WRK-DS-TS-06V06.                            NC1184.2
057500 SIG-TEST-GF-11-0.                                                NC1184.2
057600     ADD      A05ONES-DS-L-05V00                                  NC1184.2
057700              A05ONES-DS-LS-00V05                                 NC1184.2
057800              A12THREES-DS-06V06                                  NC1184.2
057900              A06THREES-DS-03V03 GIVING WRK-DS-TS-06V06.          NC1184.2
058000 SIG-TEST-GF-11-1.                                                NC1184.2
058100     IF       WRK-DS-TS-06V06 EQUAL TO 344777.777443              NC1184.2
058200              PERFORM PASS GO TO SIG-WRITE-GF-11.                 NC1184.2
058300     GO       TO SIG-FAIL-GF-11.                                  NC1184.2
058400 SIG-DELETE-GF-11.                                                NC1184.2
058500     PERFORM  DE-LETE.                                            NC1184.2
058600     GO       TO SIG-WRITE-GF-11.                                 NC1184.2
058700 SIG-FAIL-GF-11.                                                  NC1184.2
058800     MOVE     WRK-DS-TS-06V06 TO COMPUTED-N.                      NC1184.2
058900     MOVE     344777.777443 TO CORRECT-N.                         NC1184.2
059000     PERFORM  FAIL.                                               NC1184.2
059100 SIG-WRITE-GF-11.                                                 NC1184.2
059200     MOVE     "SIG-TEST-GF-11" TO PAR-NAME.                       NC1184.2
059300     PERFORM PRINT-DETAIL.                                        NC1184.2
059400 SIG-INIT-GF-5.                                                   NC1184.2
059500     MOVE   "VI-42 5.12.4" TO ANSI-REFERENCE.                     NC1184.2
059600     MOVE " ROUNDED" TO FEATURE.                                 NC1184.2
059700     MOVE     ZERO TO WRK-DS-T-05V00.                             NC1184.2
059800 SIG-TEST-GF-5-0.                                                 NC1184.2
059900     ADD      55554.5 TO WRK-DS-T-05V00 ROUNDED.                  NC1184.2
060000 SIG-TEST-GF-5-1.                                                 NC1184.2
060100     IF       WRK-DS-T-05V00 EQUAL TO 55555                       NC1184.2
060200              PERFORM PASS GO TO SIG-WRITE-GF-5.                  NC1184.2
060300     GO       TO SIG-FAIL-GF-5.                                   NC1184.2
060400 SIG-DELETE-GF-5.                                                 NC1184.2
060500     PERFORM  DE-LETE.                                            NC1184.2
060600     GO       TO SIG-WRITE-GF-5.                                  NC1184.2
060700 SIG-FAIL-GF-5.                                                   NC1184.2
060800     MOVE     WRK-DS-T-05V00 TO COMPUTED-N.                       NC1184.2
060900     MOVE     55555 TO CORRECT-N.                                 NC1184.2
061000     PERFORM  FAIL.                                               NC1184.2
061100 SIG-WRITE-GF-5.                                                  NC1184.2
061200     MOVE     "SIG-TEST-GF-5" TO PAR-NAME.                        NC1184.2
061300     PERFORM  PRINT-DETAIL.                                       NC1184.2
061400 SIG-INIT-GF-12.                                                  NC1184.2
061500     MOVE   "VI-42 5.12.4" TO ANSI-REFERENCE.                     NC1184.2
061600     MOVE     ZERO TO WRK-DS-T-06V00.                             NC1184.2
061700 SIG-TEST-GF-12-0.                                                NC1184.2
061800     ADD      A05ONES-DS-LS-00V05                                 NC1184.2
061900              A12THREES-DS-06V06                                  NC1184.2
062000              A05ONES-DS-LS-00V05 GIVING WRK-DS-T-06V00 ROUNDED.  NC1184.2
062100 SIG-TEST-GF-12-1.                                                NC1184.2
062200     IF      WRK-DS-T-06V00 EQUAL TO 333334                       NC1184.2
062300     PERFORM PASS GO TO SIG-WRITE-GF-12.                          NC1184.2
062400     GO      TO SIG-FAIL-GF-12.                                   NC1184.2
062500 SIG-DELETE-GF-12.                                                NC1184.2
062600     PERFORM  DE-LETE.                                            NC1184.2
062700     GO       TO SIG-WRITE-GF-12.                                 NC1184.2
062800 SIG-FAIL-GF-12.                                                  NC1184.2
062900     MOVE    WRK-DS-T-06V00 TO COMPUTED-N.                        NC1184.2
063000     MOVE    333334 TO CORRECT-N.                                 NC1184.2
063100     PERFORM FAIL.                                                NC1184.2
063200 SIG-WRITE-GF-12.                                                 NC1184.2
063300     MOVE     "SIG-TEST-GF-12" TO PAR-NAME.                       NC1184.2
063400     PERFORM  PRINT-DETAIL.                                       NC1184.2
063500 SIG-INIT-GF-13.                                                  NC1184.2
063600     MOVE   "VI-42 5.12.4" TO ANSI-REFERENCE.                     NC1184.2
063700     MOVE     ZERO TO WRK-DS-10V00.                               NC1184.2
063800 SIG-TEST-GF-13-1-0.                                              NC1184.2
063900     ADD      A12ONES-DS-L-12V00                                  NC1184.2
064000              ZERO GIVING WRK-DS-10V00 ON SIZE ERROR              NC1184.2
064100              PERFORM PASS GO TO SIG-WRITE-GF-13-1.               NC1184.2
064200     GO       TO SIG-FAIL-GF-13-1.                                NC1184.2
064300 SIG-DELETE-GF-13-1.                                              NC1184.2
064400     PERFORM  DE-LETE.                                            NC1184.2
064500     GO       TO SIG-WRITE-GF-13-1.                               NC1184.2
064600 SIG-FAIL-GF-13-1.                                                NC1184.2
064700     MOVE     "ON SIZE ERROR NOT EXECUTED" TO RE-MARK.            NC1184.2
064800     PERFORM  FAIL.                                               NC1184.2
064900 SIG-WRITE-GF-13-1.                                               NC1184.2
065000     MOVE     "SIG-TEST-GF-13-1" TO PAR-NAME.                     NC1184.2
065100     PERFORM  PRINT-DETAIL.                                       NC1184.2
065200 SIG-TEST-GF-13-2.                                                NC1184.2
065300     IF       WRK-DS-10V00 EQUAL TO ZERO                          NC1184.2
065400              PERFORM PASS GO TO SIG-WRITE-GF-13-2.               NC1184.2
065500*    NOTE: THIS TEST DEPENDS UPON THE RESULT OF SIG-TEST-GF-13-1  NC1184.2
065600     GO       TO SIG-FAIL-GF-13-2.                                NC1184.2
065700 SIG-DELETE-GF-13-2.                                              NC1184.2
065800     PERFORM  DE-LETE.                                            NC1184.2
065900     GO       TO SIG-WRITE-GF-13-2.                               NC1184.2
066000 SIG-FAIL-GF-13-2.                                                NC1184.2
066100     MOVE   "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK.          NC1184.2
066200     MOVE     WRK-DS-10V00 TO COMPUTED-14V4.                      NC1184.2
066300     MOVE     ZERO TO CORRECT-14V4.                               NC1184.2
066400     PERFORM  FAIL.                                               NC1184.2
066500 SIG-WRITE-GF-13-2.                                               NC1184.2
066600     MOVE     "SIG-TEST-GF-13-2" TO PAR-NAME.                     NC1184.2
066700     PERFORM  PRINT-DETAIL.                                       NC1184.2
066800 SIG-INIT-GF-6.                                                   NC1184.2
066900     MOVE   "VI-42 5.12.4" TO ANSI-REFERENCE.                     NC1184.2
067000     MOVE " ROUNDED,SIZE ERROR" TO FEATURE.                      NC1184.2
067100     MOVE     ZERO TO WRK-DS-T-05V00.                             NC1184.2
067200 SIG-TEST-GF-6-1.                                                 NC1184.2
067300     ADD      33333                                               NC1184.2
067400              A06THREES-DS-03V03                                  NC1184.2
067500              A12THREES-DS-06V06                                  NC1184.2
067600              TO WRK-DS-T-05V00 ROUNDED ON SIZE ERROR             NC1184.2
067700              PERFORM PASS GO TO SIG-WRITE-GF-6-1.                NC1184.2
067800     GO       TO SIG-FAIL-GF-6-1.                                 NC1184.2
067900 SIG-DELETE-GF-6-1.                                               NC1184.2
068000     PERFORM  DE-LETE.                                            NC1184.2
068100     GO       TO SIG-WRITE-GF-6-1.                                NC1184.2
068200 SIG-FAIL-GF-6-1.                                                 NC1184.2
068300     MOVE     "ON SIZE ERROR NOT EXECUTED" TO RE-MARK.            NC1184.2
068400     PERFORM  FAIL.                                               NC1184.2
068500 SIG-WRITE-GF-6-1.                                                NC1184.2
068600     MOVE     "SIG-TEST-GF-6-1" TO PAR-NAME.                      NC1184.2
068700     PERFORM  PRINT-DETAIL.                                       NC1184.2
068800 SIG-TEST-GF-6-2.                                                 NC1184.2
068900     IF       WRK-DS-T-05V00 EQUAL TO ZERO                        NC1184.2
069000              PERFORM PASS GO TO SIG-WRITE-GF-6-2.                NC1184.2
069100*    NOTE: THIS TEST DEPENDS UPON THE RESULT OF SIG-TEST-GF-6-1   NC1184.2
069200     GO       TO SIG-FAIL-GF-6-2.                                 NC1184.2
069300 SIG-DELETE-GF-6-2.                                               NC1184.2
069400     PERFORM  DE-LETE.                                            NC1184.2
069500     GO       TO SIG-WRITE-GF-6-2.                                NC1184.2
069600 SIG-FAIL-GF-6-2.                                                 NC1184.2
069700     MOVE   "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK.          NC1184.2
069800     MOVE     WRK-DS-T-05V00 TO COMPUTED-N.                       NC1184.2
069900     MOVE     ZERO TO CORRECT-N.                                  NC1184.2
070000     PERFORM  FAIL.                                               NC1184.2
070100 SIG-WRITE-GF-6-2.                                                NC1184.2
070200     MOVE     "SIG-TEST-GF-6-2" TO PAR-NAME.                      NC1184.2
070300     PERFORM  PRINT-DETAIL.                                       NC1184.2
070400 SIG-INIT-GF-7.                                                   NC1184.2
070500     MOVE   "VI-42 5.12.4" TO ANSI-REFERENCE.                     NC1184.2
070600     MOVE     ZERO TO WRK-DS-TS-06V06.                            NC1184.2
070700 SIG-TEST-GF-7-1.                                                 NC1184.2
070800     ADD      A12THREES-DS-06V06                                  NC1184.2
070900              333333                                              NC1184.2
071000              A06THREES-DS-03V03                                  NC1184.2
071100              TO WRK-DS-TS-06V06 ROUNDED ON SIZE ERROR            NC1184.2
071200              GO TO SIG-FAIL-GF-7-1.                              NC1184.2
071300     PERFORM  PASS.                                               NC1184.2
071400     GO TO SIG-WRITE-GF-7-1.                                      NC1184.2
071500 SIG-DELETE-GF-7-1.                                               NC1184.2
071600     PERFORM  DE-LETE.                                            NC1184.2
071700     GO       TO SIG-WRITE-GF-7-1.                                NC1184.2
071800 SIG-FAIL-GF-7-1.                                                 NC1184.2
071900     MOVE     "SIZE ERR SHOULD NOT EXECUTE" TO RE-MARK.           NC1184.2
072000     PERFORM  FAIL.                                               NC1184.2
072100 SIG-WRITE-GF-7-1.                                                NC1184.2
072200     MOVE     "SIG-TEST-GF-7-1" TO PAR-NAME.                      NC1184.2
072300     PERFORM  PRINT-DETAIL.                                       NC1184.2
072400 SIG-TEST-GF-7-2.                                                 NC1184.2
072500     IF       WRK-DS-TS-06V06 EQUAL TO 666999.666333              NC1184.2
072600              PERFORM PASS GO TO SIG-WRITE-GF-7-2.                NC1184.2
072700*    NOTE     THIS TEST DEPENDS UPON THE RESULT OF SIG-TEST-GF-7-1NC1184.2
072800     GO       TO SIG-FAIL-GF-7-2.                                 NC1184.2
072900 SIG-DELETE-GF-7-2.                                               NC1184.2
073000     PERFORM  DE-LETE.                                            NC1184.2
073100     GO       TO SIG-WRITE-GF-7-2.                                NC1184.2
073200 SIG-FAIL-GF-7-2.                                                 NC1184.2
073300     MOVE     WRK-DS-TS-06V06 TO COMPUTED-N.                      NC1184.2
073400     MOVE     666999.666333 TO CORRECT-N.                         NC1184.2
073500     PERFORM  FAIL.                                               NC1184.2
073600 SIG-WRITE-GF-7-2.                                                NC1184.2
073700     MOVE     "SIG-TEST-GF-7-2" TO PAR-NAME.                      NC1184.2
073800     PERFORM  PRINT-DETAIL.                                       NC1184.2
073900 SIG-INIT-GF-14.                                                  NC1184.2
074000     MOVE   "VI-42 5.12.4" TO ANSI-REFERENCE.                     NC1184.2
074100     MOVE     ZERO TO WRK-DS-T-05V00.                             NC1184.2
074200 SIG-TEST-GF-14-1.                                                NC1184.2
074300     ADD      33333                                               NC1184.2
074400              A06THREES-DS-03V03                                  NC1184.2
074500              A12THREES-DS-06V06                                  NC1184.2
074600              GIVING WRK-DS-T-05V00 ROUNDED ON SIZE ERROR         NC1184.2
074700              PERFORM PASS GO TO SIG-WRITE-GF-14-1.               NC1184.2
074800     GO       TO SIG-FAIL-GF-14-1.                                NC1184.2
074900 SIG-DELETE-GF-14-1.                                              NC1184.2
075000     PERFORM  DE-LETE.                                            NC1184.2
075100     GO       TO SIG-WRITE-GF-14-1.                               NC1184.2
075200 SIG-FAIL-GF-14-1.                                                NC1184.2
075300     MOVE     "ON SIZE ERROR NOT EXECUTED" TO RE-MARK.            NC1184.2
075400     PERFORM  FAIL.                                               NC1184.2
075500 SIG-WRITE-GF-14-1.                                               NC1184.2
075600     MOVE     "SIG-TEST-GF-14-1" TO PAR-NAME.                     NC1184.2
075700     PERFORM  PRINT-DETAIL.                                       NC1184.2
075800 SIG-TEST-GF-14-2.                                                NC1184.2
075900     IF       WRK-DS-T-05V00 EQUAL TO ZERO                        NC1184.2
076000              PERFORM PASS GO TO SIG-WRITE-GF-14-2.               NC1184.2
076100     GO       TO SIG-FAIL-GF-14-2.                                NC1184.2
076200*    NOTE: THIS TEST DEPENDS UPON THE RESULT OF SIG-TEST-GF-14-1  NC1184.2
076300 SIG-DELETE-GF-14-2.                                              NC1184.2
076400     PERFORM  DE-LETE.                                            NC1184.2
076500     GO       TO SIG-WRITE-GF-14-2.                               NC1184.2
076600 SIG-FAIL-GF-14-2.                                                NC1184.2
076700     MOVE   "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK.          NC1184.2
076800     MOVE     WRK-DS-T-05V00 TO COMPUTED-N.                       NC1184.2
076900     MOVE     ZERO TO CORRECT-N.                                  NC1184.2
077000     PERFORM  FAIL.                                               NC1184.2
077100 SIG-WRITE-GF-14-2.                                               NC1184.2
077200     MOVE     "SIG-TEST-GF-14-2" TO PAR-NAME.                     NC1184.2
077300     PERFORM  PRINT-DETAIL.                                       NC1184.2
077400 SIG-INIT-GF-15.                                                  NC1184.2
077500     MOVE   "VI-42 5.12.4" TO ANSI-REFERENCE.                     NC1184.2
077600     MOVE     ZERO TO WRK-DS-TS-06V06.                            NC1184.2
077700 SIG-TEST-GF-15-1-0.                                              NC1184.2
077800     ADD      A12THREES-DS-06V06                                  NC1184.2
077900              333333                                              NC1184.2
078000              A06THREES-DS-03V03                                  NC1184.2
078100              GIVING WRK-DS-TS-06V06 ROUNDED ON SIZE ERROR        NC1184.2
078200              GO TO SIG-FAIL-GF-15-1.                             NC1184.2
078300     PERFORM  PASS.                                               NC1184.2
078400     GO       TO SIG-WRITE-GF-15-1.                               NC1184.2
078500 SIG-DELETE-GF-15-1.                                              NC1184.2
078600     PERFORM  DE-LETE.                                            NC1184.2
078700     GO       TO SIG-WRITE-GF-15-1.                               NC1184.2
078800 SIG-FAIL-GF-15-1.                                                NC1184.2
078900     MOVE     "SIZE ERR SHOULD NOT EXECUTE" TO RE-MARK.           NC1184.2
079000     PERFORM  FAIL.                                               NC1184.2
079100 SIG-WRITE-GF-15-1.                                               NC1184.2
079200     MOVE     "SIG-TEST-GF-15-1" TO PAR-NAME.                     NC1184.2
079300     PERFORM  PRINT-DETAIL.                                       NC1184.2
079400 SIG-TEST-GF-15-2.                                                NC1184.2
079500     IF       WRK-DS-TS-06V06 EQUAL TO 666999.666333              NC1184.2
079600              PERFORM PASS GO TO SIG-WRITE-GF-15-2.               NC1184.2
079700*    NOTE: THIS TEST DEPENDS UPON THE RESULT OF SIG-TEST-GF-15-1  NC1184.2
079800     GO       TO SIG-FAIL-GF-15-2.                                NC1184.2
079900 SIG-DELETE-GF-15-2.                                              NC1184.2
080000     PERFORM  DE-LETE.                                            NC1184.2
080100     GO       TO SIG-WRITE-GF-15-2.                               NC1184.2
080200 SIG-FAIL-GF-15-2.                                                NC1184.2
080300     MOVE     WRK-DS-TS-06V06 TO COMPUTED-N.                      NC1184.2
080400     MOVE     666999.666333 TO CORRECT-N.                         NC1184.2
080500     PERFORM  FAIL.                                               NC1184.2
080600 SIG-WRITE-GF-15-2.                                               NC1184.2
080700     MOVE     "SIG-TEST-GF-15-2" TO PAR-NAME.                     NC1184.2
080800     PERFORM  PRINT-DETAIL.                                       NC1184.2
080900 SIG-INIT-GF-16.                                                  NC1184.2
--> --------------------

--> maximum size reached

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

quality95%

¤ Dauer der Verarbeitung: 0.43 Sekunden ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

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

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.