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