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