Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/NC/     Datei vom 4.1.2008 mit Größe 166 kB image not shown  

SSL nc175a.cob   Sprache: Cobol

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

--> maximum size reached

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

92%


¤ Dauer der Verarbeitung: 0.35 Sekunden  (vorverarbeitet)  ¤

*© Formatika GbR, Deutschland




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.