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