| products/sources/formale sprachen/Cobol/Test-Suite/COBOL/NC/ |
|
Quellcode-Bibliothek© Kompilation durch diese Firma[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]Datei: nc211a.cob Sprache: Cobol |
|
||||||
|
000100 IDENTIFICATION DIVISION. NC2114.2
000200 PROGRAM-ID. NC2114.2 000300 NC211A. NC2114.2 000400**************************************************************** NC2114.2 000500* * NC2114.2 000600* VALIDATION FOR:- * NC2114.2 000700* * NC2114.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2114.2 000900* * NC2114.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2114.2 001100* * NC2114.2 001200**************************************************************** NC2114.2 001300* * NC2114.2 001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC2114.2 001500* * NC2114.2 001600* X-55 - SYSTEM PRINTER NAME. * NC2114.2 001700* X-82 - SOURCE COMPUTER NAME. * NC2114.2 001800* X-83 - OBJECT COMPUTER NAME. * NC2114.2 001900* * NC2114.2 002000**************************************************************** NC2114.2 002100* NC2114.2 002200* * NC2114.2 002300* PROGRAM NC211A TESTS THE GENERAL FORMAT OF THE "IF" * NC2114.2 002400* STATEMENT USING COMPOUND CONDITIONAL STATEMENTS WITH * NC2114.2 002500* ABREVIATED CONDITIONS, CONDITION NAMES AND QUALIFIED * NC2114.2 002600* DATA-NAMES. * NC2114.2 002700* * NC2114.2 002800**************************************************************** NC2114.2 002900 ENVIRONMENT DIVISION. NC2114.2 003000 CONFIGURATION SECTION. NC2114.2 003100 SOURCE-COMPUTER. NC2114.2 003200 Card0130. NC2114.2 003300 OBJECT-COMPUTER. NC2114.2 003400 Card0131. NC2114.2 003500 SPECIAL-NAMES. NC2114.2 003600 C0081 NC2114.2 003700 IS WRK-SWITCH-1 NC2114.2 003800 ON STATUS IS ON-WRK-SWITCH-1 NC2114.2 003900 OFF STATUS IS OFF-WRK-SWITCH-1 NC2114.2 004000 C0082 NC2114.2 004100 IS WRK-SWITCH-2 NC2114.2 004200 OFF STATUS IS OFF-WRK-SWITCH-2. NC2114.2 004300 INPUT-OUTPUT SECTION. NC2114.2 004400 FILE-CONTROL. NC2114.2 004500 SELECT PRINT-FILE ASSIGN TO NC2114.2 004600 "C0085" . NC2114.2 004700 DATA DIVISION. NC2114.2 004800 FILE SECTION. NC2114.2 004900 FD PRINT-FILE. NC2114.2 005000 01 PRINT-REC PICTURE X(120). NC2114.2 005100 01 DUMMY-RECORD PICTURE X(120). NC2114.2 005200 WORKING-STORAGE SECTION. NC2114.2 005300 77 WRK-DS-02V00 PICTURE S99. NC2114.2 005400 88 TEST-2NUC-COND-99 VALUE 99. NC2114.2 005500 77 WRK-DS-06V06 PICTURE 9(6)V9(6). NC2114.2 005600 77 WRK-DS-12V00-S REDEFINES WRK-DS-06V06 NC2114.2 005700 PICTURE S9(12). NC2114.2 005800 77 A02TWOS-DS-02V00 PICTURE S99 VALUE 22. NC2114.2 005900 77 WRK-DS-01V00 PICTURE S9. NC2114.2 006000 77 A02TWOS-DS-03V02 PICTURE S999V99 VALUE +022.00. NC2114.2 006100 77 A990-DS-0201P PICTURE S99P VALUE 990. NC2114.2 006200 77 A02ONES-DS-02V00 PICTURE S99 VALUE 11. NC2114.2 006300 77 A01ONE-DS-P0801 PICTURE SP(8)9 VALUE .000000001.NC2114.2 006400 77 ATWO-DS-01V00 PICTURE S9 VALUE 2. NC2114.2 006500 77 WRK-XN-00001 PICTURE X. NC2114.2 006600 77 WRK-XN-00005 PICTURE X(5). NC2114.2 006700 77 MINUS-TWO PICTURE S9 VALUE -2. NC2114.2 006800 77 MINUS-ONE PICTURE S9 VALUE -1. NC2114.2 006900 77 MINUS-UNO PICTURE S9 VALUE -1. NC2114.2 007000 77 NAUGHT PICTURE S9 VALUE 0. NC2114.2 007100 77 NOTHING PICTURE S9 VALUE ZERO. NC2114.2 007200 77 ONE PICTURE S9 VALUE 1. NC2114.2 007300 77 UNO PICTURE S9 VALUE +1. NC2114.2 007400 77 TWO PICTURE 9 VALUE 2. NC2114.2 007500 77 DOS PICTURE S9 VALUE +2. NC2114.2 007600 77 THREE PICTURE 9 VALUE 3. NC2114.2 007700 77 TRES PICTURE S9 VALUE +3. NC2114.2 007800 77 FOUR PICTURE S9 VALUE 4. NC2114.2 007900 77 QUATROS PICTURE S9 VALUE +4. NC2114.2 008000 77 FIVE PICTURE S9 VALUE 5. NC2114.2 008100 77 SIX PICTURE S9 VALUE 6. NC2114.2 008200 77 SEVEN PICTURE 9 VALUE 7. NC2114.2 008300 77 EIGHT PICTURE S9 VALUE 8. NC2114.2 008400 77 NINE PICTURE 9 VALUE 9. NC2114.2 008500 77 TEN PICTURE 99 VALUE 10. NC2114.2 008600 77 ONE-THIRD PIC SV9(18) VALUE +.333333333333333333. NC2114.2 008700 77 THREE-SEVENTHS PIC SV9(10) VALUE +.4285714286. NC2114.2 008800 77 ALTERCOUNT PICTURE 999 VALUE ZERO. NC2114.2 008900 77 XRAY PICTURE IS X. NC2114.2 009000 77 IF-D1 PICTURE S9(4)V9(2) VALUE 0. NC2114.2 009100 77 IF-D2 PICTURE S9(4)V9(2) VALUE ZERO. NC2114.2 009200 77 IF-D3 PICTURE X(10) VALUE "0000000000". NC2114.2 009300 77 IF-D4 PICTURE X(15) VALUE " ". NC2114.2 009400 77 IF-D5 PICTURE X(10) VALUE ALL QUOTE. NC2114.2 009500 77 IF-D6 PICTURE A(10) VALUE "BABABABABA". NC2114.2 009600 77 IF-D7 PICTURE S9(6)V9(4) VALUE +123.45. NC2114.2 009700 77 IF-D8 PICTURE 9(6)V9(4) VALUE 12300. NC2114.2 009800 77 IF-D9 PICTURE X(3) VALUE "123". NC2114.2 009900 77 IF-D11 PICTURE X(6) VALUE "ABCDEF". NC2114.2 010000 77 IF-D13 PICTURE 9(6)V9(4) VALUE 12300. NC2114.2 010100 77 IF-D14 PICTURE S9(4)V9(2) VALUE +123.45. NC2114.2 010200 77 IF-D15 PICTURE S999PP VALUE 12300. NC2114.2 010300 77 IF-D16 PICTURE PP99 VALUE .0012. NC2114.2 010400 77 IF-D17 PICTURE SV9(4) VALUE .0012. NC2114.2 010500 77 IF-D18 PICTURE X(10) VALUE "BABABABABA". NC2114.2 010600 77 IF-D19 PICTURE X(10) VALUE "ABCDEF ". NC2114.2 010700 77 IF-D23 PICTURE $9,9B9.90+. NC2114.2 010800 77 IF-D24 PICTURE X(10) VALUE "l1,2 3.40+". NC2114.2 010900 77 IF-D25 PICTURE ABABX0A. NC2114.2 011000 77 IF-D26 PICTURE X(8) VALUE "A C D0E". NC2114.2 011100 77 IF-D27 PICTURE IS 9(6)V9(4) VALUE IS 2137.45 NC2114.2 011200 USAGE IS COMPUTATIONAL. NC2114.2 011300 77 IF-D28 PICTURE IS 999999V9999 VALUE IS 2137.45. NC2114.2 011400 77 IF-D31 PICTURE S9(6) VALUE -123. NC2114.2 011500 77 IF-D32 PICTURE S9(4)V99. NC2114.2 011600 88 A; VALUE 1. NC2114.2 011700 88 B VALUES ARE 2 THRU 4. NC2114.2 011800 88 C VALUE IS ZERO. NC2114.2 011900 88 D VALUE IS +12.34. NC2114.2 012000 88 E VALUE IS .01, .11, .21 .81. NC2114.2 012100 88 F VALUE IS 100 THRU 128 1000 THRU 1280 -9 THRU -2. NC2114.2 012200 88 G VALUE IS 8765.43 1234 THRU 5678 5 -9999 THRU 10. NC2114.2 012300 77 IF-D33 PICTURE X(4). NC2114.2 012400 88 B VALUE QUOTE. NC2114.2 012500 88 C VALUE SPACE. NC2114.2 012600 88 D VALUE ALL "BAC". NC2114.2 012700 77 IF-D34 PICTURE A(4). NC2114.2 012800 88 B VALUE "A A ". NC2114.2 012900 77 IF-D37 PICTURE 9(5) VALUE 12345. NC2114.2 013000 77 IF-D38 PICTURE X(9) VALUE "12345 ". NC2114.2 013100 77 CCON-1 PICTURE 99 VALUE 11. NC2114.2 013200 77 CCON-2 PICTURE 99 VALUE 12. NC2114.2 013300 77 CCON-3 PICTURE 99 VALUE 13. NC2114.2 013400 77 CCON-4 PICTURE 99 VALUE 14. NC2114.2 013500 77 CLASS-1 PICTURE X(5). NC2114.2 013600 77 CLASS-2 PICTURE X(5). NC2114.2 013700 77 CLASS-3 PICTURE X(5). NC2114.2 013800 77 SIGN-1 PICTURE S9(5). NC2114.2 013900 77 SIGN-2 PICTURE S9(5). NC2114.2 014000 77 SIGN-3 PICTURE S9(5). NC2114.2 014100 77 AZE PICTURE X(5) VALUE "AAAAA". NC2114.2 014200 77 BEEZE PICTURE X(5) VALUE "BBBBB". NC2114.2 014300 77 CEEZE PICTURE X(5) VALUE "CCCCC". NC2114.2 014400 01 SUBSCRIPT-6 PICTURE 99999 VALUE ZERO. NC2114.2 014500 01 IF-TABLE. NC2114.2 014600 02 IF-ELEM PICTURE X OCCURS 12 TIMES. NC2114.2 014700 01 QUOTE-DATA. NC2114.2 014800 02 QU-1 PICTURE X(3) VALUE "123". NC2114.2 014900 02 QU-2 PICTURE X VALUE QUOTE. NC2114.2 015000 02 QU-3 PICTURE X(6) VALUE "ABC456". NC2114.2 015100 01 IF-D10. NC2114.2 015200 02 D1 PICTURE X(2) VALUE "01". NC2114.2 015300 02 D2 PICTURE X(2) VALUE "23". NC2114.2 015400 02 D3. NC2114.2 015500 03 D4 PICTURE X(4) VALUE "4567". NC2114.2 015600 03 D5 PICTURE X(4) VALUE "8912". NC2114.2 015700 01 IF-D12. NC2114.2 015800 02 D1 PICTURE X(3) VALUE "ABC". NC2114.2 015900 02 D2. NC2114.2 016000 03 D3. NC2114.2 016100 04 D4 PICTURE XX VALUE "DE". NC2114.2 016200 04 D5 PICTURE X VALUE "F". NC2114.2 016300 01 IF-D20. NC2114.2 016400 02 FILLER PICTURE 9(5) VALUE ZERO. NC2114.2 016500 02 D1 PICTURE 9(2) VALUE 12. NC2114.2 016600 02 D2 PICTURE 9 VALUE 3. NC2114.2 016700 02 D3 PICTURE 9(2) VALUE 45. NC2114.2 016800 01 IF-D21. NC2114.2 016900 02 D1 PICTURE 9(5) VALUE ZEROS. NC2114.2 017000 02 D2 PICTURE 9(5) VALUE 12345. NC2114.2 017100 01 IF-D22. NC2114.2 017200 02 D1 PICTURE A(2) VALUE "AB". NC2114.2 017300 02 D2 PICTURE A(4) VALUE "CDEF". NC2114.2 017400 01 IF-D35. NC2114.2 017500 02 AA PICTURE X(2). NC2114.2 017600 88 A1 VALUE "AA". NC2114.2 017700 88 A2 VALUE "AB". NC2114.2 017800 02 BB PICTURE IS X(2). NC2114.2 017900 88 B1 VALUE "CC". NC2114.2 018000 88 B2 VALUE "CD". NC2114.2 018100 02 BB-2 REDEFINES BB. NC2114.2 018200 03 AAA PICTURE X. NC2114.2 018300 88 AA1 VALUE "A". NC2114.2 018400 88 AA2 VALUE "C". NC2114.2 018500 03 BBB PICTURE X. NC2114.2 018600 88 BB1 VALUE "B". NC2114.2 018700 88 BB2 VALUE "D". NC2114.2 018800 01 IF-D36 PICTURE X(120) VALUE IS "ABCDEFGHIJKLMNOPQRSTUVWXYNC2114.2 018900- "Z1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ABCDEFGHIJKLMNC2114.2 019000- "NOPQRSTUVWXYZ1234567890ABCDEFGHIJKL". NC2114.2 019100 01 IF-D40 PICTURE 9(5) VALUE 12345 NC2114.2 019200 COMPUTATIONAL SYNCHRONIZED RIGHT. NC2114.2 019300 88 IF-D40A VALUE ZERO THRU 10000. NC2114.2 019400 88 IF-D40B VALUE 10001 THRU 99999. NC2114.2 019500 88 IF-D40C VALUE 99999. NC2114.2 019600 01 PERFORM1 PICTURE XXX VALUE SPACES. NC2114.2 019700 01 PERFORM2 PICTURE S999 VALUE 20. NC2114.2 019800 01 PERFORM3 PICTURE 9 VALUE 5. NC2114.2 019900 01 PERFORM4 PICTURE S99V9. NC2114.2 020000 01 PERFORM5 PICTURE S99V9 VALUE 10.0. NC2114.2 020100 01 PERFORM6 PICTURE 99V9. NC2114.2 020200 01 PERFORM7. NC2114.2 020300 02 PERFORM8 OCCURS 7 TIMES PICTURE 99V9. NC2114.2 020400 01 PERFORM9 PICTURE 9 VALUE 3. NC2114.2 020500 01 PERFORM10 PICTURE S9 VALUE -1. NC2114.2 020600 01 PERFORM11 PICTURE 99 VALUE 6. NC2114.2 020700 01 PERFORM12. NC2114.2 020800 02 PERFORM13 OCCURS 4 TIMES. NC2114.2 020900 03 PERFORM14 OCCURS 20 TIMES PICTURE 99V9. NC2114.2 021000 03 PERFORM15 OCCURS 10 TIMES. NC2114.2 021100 04 PERFORM16 OCCURS 5 TIMES PICTURE 99V9. NC2114.2 021200 01 PERFORM-KEY PICTURE 9. NC2114.2 021300 01 RECEIVING-TABLE. NC2114.2 021400 03 TBL-ELEMEN-A. NC2114.2 021500 05 TBL-ELEMEN-B PICTURE X(18). NC2114.2 021600 05 TBL-ELEMEN-C PICTURE X(18). NC2114.2 021700 03 TBL-ELEMEN-D. NC2114.2 021800 05 TBL-ELEMEN-E PICTURE X OCCURS 36 TIMES. NC2114.2 021900 01 LITERAL-SPLITTER. NC2114.2 022000 02 PART1 PICTURE X(20). NC2114.2 022100 02 PART2 PICTURE X(20). NC2114.2 022200 02 PART3 PICTURE X(20). NC2114.2 022300 02 PART4 PICTURE X(20). NC2114.2 022400 01 LITERAL-TABLE REDEFINES LITERAL-SPLITTER. NC2114.2 022500 02 80PARTS PICTURE X OCCURS 80 TIMES. NC2114.2 022600 01 GRP-FOR-88-LEVELS. NC2114.2 022700 03 WRK-DS-02V00-COND PICTURE 99. NC2114.2 022800 88 COND-1 VALUE IS 01 THRU 05. NC2114.2 022900 88 COND-2 VALUES ARE 06 THRU 10 NC2114.2 023000 16 THRU 20 00. NC2114.2 023100 88 COND-3 VALUES 11 THRU 15. NC2114.2 023200 01 GRP-MOVE-CONSTANTS. NC2114.2 023300 03 GRP-GROUP-MOVE-FROM. NC2114.2 023400 04 GRP-ALPHABETIC. NC2114.2 023500 05 ALPHABET-AN-00026 PICTURE A(26) NC2114.2 023600 VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ". NC2114.2 023700 04 GRP-NUMERIC. NC2114.2 023800 05 DIGITS-DV-10V00 PICTURE 9(10) VALUE 0123456789. NC2114.2 023900 05 DIGITS-DU-06V04-S REDEFINES DIGITS-DV-10V00 NC2114.2 024000 PICTURE 9(6)V9999. NC2114.2 024100 04 GRP-ALPHANUMERIC. NC2114.2 024200 05 ALPHANUMERIC-XN-00049 PICTURE X(50) NC2114.2 024300 VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ+-><=l,;.()/* 0123456789". NC2114.2 024400 05 FILLER PICTURE X VALUE QUOTE. NC2114.2 024500 01 GRP-FOR-2N058. NC2114.2 024600 02 SUB-GRP-FOR-2N058-A. NC2114.2 024700 03 ELEM-FOR-2N058-A PICTURE 999 VALUE ZEROES. NC2114.2 024800 03 ELEM-FOR-2N058-B PICTURE XXX VALUE ZEROS. NC2114.2 024900 03 ELEM-FOR-2N058-C PICTURE XXX VALUE SPACES. NC2114.2 025000 03 ELEM-FOR-2N058-D PICTURE X(6) VALUE ALL "ABC". NC2114.2 025100 03 ELEM-FOR-2N058-E PICTURE XXX VALUE ALL "Z". NC2114.2 025200 03 ELEM-FOR-2N058-F PICTURE XXX VALUE ALL SPACES. NC2114.2 025300 03 ELEM-FOR-2N058-G PICTURE XXX VALUE ALL ZEROES. NC2114.2 025400 03 ELEM-FOR-2N058-H PICTURE 999 VALUE ALL ZEROS. NC2114.2 025500 03 ELEM-FOR-2N058-I PICTURE XXX VALUE QUOTES. NC2114.2 025600 03 ELEM-FOR-2N058-J PICTURE XXX VALUE ALL QUOTES. NC2114.2 025700 03 ELEM-FOR-2N058-K PICTURE XXX VALUE ALL HIGH-VALUES. NC2114.2 025800 03 ELEM-FOR-2N058-L PICTURE XXX VALUE ALL LOW-VALUES. NC2114.2 025900 03 ELEM-FOR-2N058-M PICTURE XXX VALUE HIGH-VALUES. NC2114.2 026000 03 ELEM-FOR-2N058-N PICTURE XXX VALUE LOW-VALUES. NC2114.2 026100 02 SUB-GRP-FOR-2N058-B. NC2114.2 026200 03 SUB-SUB-BA. NC2114.2 026300 04 ELEM-FOR-2N058-A PICTURE 999. NC2114.2 026400 04 ELEM-FOR-2N058-B PICTURE XXX. NC2114.2 026500 04 ELEM-FOR-2N058-C PICTURE XXX. NC2114.2 026600 04 ELEM-FOR-2N058-D PICTURE X(6). NC2114.2 026700 03 SUB-SUB-BB. NC2114.2 026800 04 ELEM-FOR-2N058-E PICTURE XXX. NC2114.2 026900 04 ELEM-FOR-2N058-F PICTURE XXX. NC2114.2 027000 04 ELEM-FOR-2N058-G PICTURE XXX. NC2114.2 027100 04 ELEM-FOR-2N058-H PICTURE 999. NC2114.2 027200 03 SUB-SUB-BC. NC2114.2 027300 04 ELEM-FOR-2N058-I PICTURE XXX. NC2114.2 027400 04 ELEM-FOR-2N058-J PICTURE XXX. NC2114.2 027500 04 ELEM-FOR-2N058-K PICTURE XXX. NC2114.2 027600 04 ELEM-FOR-2N058-L PICTURE XXX. NC2114.2 027700 04 ELEM-FOR-2N058-M PICTURE XXX. NC2114.2 027800 04 ELEM-FOR-2N058-N PICTURE XXX. NC2114.2 027900 01 CHARACTER-BREAKDOWN-S. NC2114.2 028000 02 FIRST-20S PICTURE X(20). NC2114.2 028100 02 SECOND-20S PICTURE X(20). NC2114.2 028200 02 THIRD-20S PICTURE X(20). NC2114.2 028300 02 FOURTH-20S PICTURE X(20). NC2114.2 028400 02 FIFTH-20S PICTURE X(20). NC2114.2 028500 02 SIXTH-20S PICTURE X(20). NC2114.2 028600 02 SEVENTH-20S PICTURE X(20). NC2114.2 028700 02 EIGHTH-20S PICTURE X(20). NC2114.2 028800 02 NINTH-20S PICTURE X(20). NC2114.2 028900 02 TENTH-20S PICTURE X(20). NC2114.2 029000 01 CHARACTER-BREAKDOWN-R. NC2114.2 029100 02 FIRST-20R PICTURE X(20). NC2114.2 029200 02 SECOND-20R PICTURE X(20). NC2114.2 029300 02 THIRD-20R PICTURE X(20). NC2114.2 029400 02 FOURTH-20R PICTURE X(20). NC2114.2 029500 02 FIFTH-20R PICTURE X(20). NC2114.2 029600 02 SIXTH-20R PICTURE X(20). NC2114.2 029700 02 SEVENTH-20R PICTURE X(20). NC2114.2 029800 02 EIGHTH-20R PICTURE X(20). NC2114.2 029900 02 NINTH-20R PICTURE X(20). NC2114.2 030000 02 TENTH-20R PICTURE X(20). NC2114.2 030100 01 TABLE-80. NC2114.2 030200 02 ELMT OCCURS 3 TIMES PIC 9. NC2114.2 030300 88 A80 VALUES ARE ZERO THRU 7. NC2114.2 030400 88 B80 VALUE 8. NC2114.2 030500 88 C80 VALUES ARE 7, 8 THROUGH 9. NC2114.2 030600 NC2114.2 030700 01 TABLE-86. NC2114.2 030800 88 A86 VALUE "ABC". NC2114.2 030900 88 B86 VALUE "ABCABC". NC2114.2 031000 88 C86 VALUE " ABC". NC2114.2 031100 02 DATANAME-86 PIC XXX VALUE "ABC". NC2114.2 031200 02 DNAME-86. NC2114.2 031300 03 FILLER PIC X VALUE "A". NC2114.2 031400 03 FILLER PIC X VALUE "B". NC2114.2 031500 03 FILLER PIC X VALUE "C". NC2114.2 031600 01 DNAME-SWITCH PICTURE 9 VALUE 1. NC2114.2 031700 88 ON-WRK-SWITCH-1 VALUE 1. NC2114.2 031800 88 OFF-WRK-SWITCH-1 VALUE 0. NC2114.2 031900 01 DNAME-SWITCH2 PICTURE 9 VALUE 0. NC2114.2 032000 88 ON-WRK-SWITCH-2 VALUE 1. NC2114.2 032100 88 OFF-WRK-SWITCH-2 VALUE 0. NC2114.2 032200 01 FIGCON-DATA. NC2114.2 032300 02 SPACE-X PICTURE X(10) VALUE " ". NC2114.2 032400 02 QUOTE-X PICTURE X(5) VALUE QUOTE. NC2114.2 032500 02 LOW-VAL PICTURE X(5) VALUE LOW-VALUE. NC2114.2 032600 02 ABC PICTURE XXX VALUE "ABC". NC2114.2 032700 02 ONE23 PICTURE 9999 VALUE 123. NC2114.2 032800 02 ZERO-C PICTURE 9(10) VALUE 0 COMPUTATIONAL. NC2114.2 032900 02 ZERO-D PICTURE 9 VALUE ZERO USAGE DISPLAY. NC2114.2 033000 01 XX-TALLY PIC S9(5) USAGE COMP. NC2114.2 033100 01 TEST-RESULTS. NC2114.2 033200 02 FILLER PIC X VALUE SPACE. NC2114.2 033300 02 FEATURE PIC X(20) VALUE SPACE. NC2114.2 033400 02 FILLER PIC X VALUE SPACE. NC2114.2 033500 02 P-OR-F PIC X(5) VALUE SPACE. NC2114.2 033600 02 FILLER PIC X VALUE SPACE. NC2114.2 033700 02 PAR-NAME. NC2114.2 033800 03 FILLER PIC X(19) VALUE SPACE. NC2114.2 033900 03 PARDOT-X PIC X VALUE SPACE. NC2114.2 034000 03 DOTVALUE PIC 99 VALUE ZERO. NC2114.2 034100 02 FILLER PIC X(8) VALUE SPACE. NC2114.2 034200 02 RE-MARK PIC X(61). NC2114.2 034300 01 TEST-COMPUTED. NC2114.2 034400 02 FILLER PIC X(30) VALUE SPACE. NC2114.2 034500 02 FILLER PIC X(17) VALUE NC2114.2 034600 " COMPUTED=". NC2114.2 034700 02 COMPUTED-X. NC2114.2 034800 03 COMPUTED-A PIC X(20) VALUE SPACE. NC2114.2 034900 03 COMPUTED-N REDEFINES COMPUTED-A NC2114.2 035000 PIC -9(9).9(9). NC2114.2 035100 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC2114.2 035200 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). NC2114.2 035300 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC2114.2 035400 03 CM-18V0 REDEFINES COMPUTED-A. NC2114.2 035500 04 COMPUTED-18V0 PIC -9(18). NC2114.2 035600 04 FILLER PIC X. NC2114.2 035700 03 FILLER PIC X(50) VALUE SPACE. NC2114.2 035800 01 TEST-CORRECT. NC2114.2 035900 02 FILLER PIC X(30) VALUE SPACE. NC2114.2 036000 02 FILLER PIC X(17) VALUE " CORRECT =". NC2114.2 036100 02 CORRECT-X. NC2114.2 036200 03 CORRECT-A PIC X(20) VALUE SPACE. NC2114.2 036300 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). NC2114.2 036400 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). NC2114.2 036500 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC2114.2 036600 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). NC2114.2 036700 03 CR-18V0 REDEFINES CORRECT-A. NC2114.2 036800 04 CORRECT-18V0 PIC -9(18). NC2114.2 036900 04 FILLER PIC X. NC2114.2 037000 03 FILLER PIC X(2) VALUE SPACE. NC2114.2 037100 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC2114.2 037200 01 CCVS-C-1. NC2114.2 037300 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC2114.2 037400- "SS PARAGRAPH-NAME NC2114.2 037500- " REMARKS". NC2114.2 037600 02 FILLER PIC X(20) VALUE SPACE. NC2114.2 037700 01 CCVS-C-2. NC2114.2 037800 02 FILLER PIC X VALUE SPACE. NC2114.2 037900 02 FILLER PIC X(6) VALUE "TESTED". NC2114.2 038000 02 FILLER PIC X(15) VALUE SPACE. NC2114.2 038100 02 FILLER PIC X(4) VALUE "FAIL". NC2114.2 038200 02 FILLER PIC X(94) VALUE SPACE. NC2114.2 038300 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC2114.2 038400 01 REC-CT PIC 99 VALUE ZERO. NC2114.2 038500 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC2114.2 038600 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC2114.2 038700 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC2114.2 038800 01 PASS-COUNTER PIC 999 VALUE ZERO. NC2114.2 038900 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC2114.2 039000 01 ERROR-HOLD PIC 999 VALUE ZERO. NC2114.2 039100 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC2114.2 039200 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC2114.2 039300 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC2114.2 039400 01 CCVS-H-1. NC2114.2 039500 02 FILLER PIC X(39) VALUE SPACES. NC2114.2 039600 02 FILLER PIC X(42) VALUE NC2114.2 039700 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2114.2 039800 02 FILLER PIC X(39) VALUE SPACES. NC2114.2 039900 01 CCVS-H-2A. NC2114.2 040000 02 FILLER PIC X(40) VALUE SPACE. NC2114.2 040100 02 FILLER PIC X(7) VALUE "CCVS85 ". NC2114.2 040200 02 FILLER PIC XXXX VALUE NC2114.2 040300 "4.2 ". NC2114.2 040400 02 FILLER PIC X(28) VALUE NC2114.2 040500 " COPY - NOT FOR DISTRIBUTION". NC2114.2 040600 02 FILLER PIC X(41) VALUE SPACE. NC2114.2 040700 NC2114.2 040800 01 CCVS-H-2B. NC2114.2 040900 02 FILLER PIC X(15) VALUE NC2114.2 041000 "TEST RESULT OF ". NC2114.2 041100 02 TEST-ID PIC X(9). NC2114.2 041200 02 FILLER PIC X(4) VALUE NC2114.2 041300 " IN ". NC2114.2 041400 02 FILLER PIC X(12) VALUE NC2114.2 041500 " HIGH ". NC2114.2 041600 02 FILLER PIC X(22) VALUE NC2114.2 041700 " LEVEL VALIDATION FOR ". NC2114.2 041800 02 FILLER PIC X(58) VALUE NC2114.2 041900 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2114.2 042000 01 CCVS-H-3. NC2114.2 042100 02 FILLER PIC X(34) VALUE NC2114.2 042200 " FOR OFFICIAL USE ONLY ". NC2114.2 042300 02 FILLER PIC X(58) VALUE NC2114.2 042400 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2114.2 042500 02 FILLER PIC X(28) VALUE NC2114.2 042600 " COPYRIGHT 1985 ". NC2114.2 042700 01 CCVS-E-1. NC2114.2 042800 02 FILLER PIC X(52) VALUE SPACE. NC2114.2 042900 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC2114.2 043000 02 ID-AGAIN PIC X(9). NC2114.2 043100 02 FILLER PIC X(45) VALUE SPACES. NC2114.2 043200 01 CCVS-E-2. NC2114.2 043300 02 FILLER PIC X(31) VALUE SPACE. NC2114.2 043400 02 FILLER PIC X(21) VALUE SPACE. NC2114.2 043500 02 CCVS-E-2-2. NC2114.2 043600 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC2114.2 043700 03 FILLER PIC X VALUE SPACE. NC2114.2 043800 03 ENDER-DESC PIC X(44) VALUE NC2114.2 043900 "ERRORS ENCOUNTERED". NC2114.2 044000 01 CCVS-E-3. NC2114.2 044100 02 FILLER PIC X(22) VALUE NC2114.2 044200 " FOR OFFICIAL USE ONLY". NC2114.2 044300 02 FILLER PIC X(12) VALUE SPACE. NC2114.2 044400 02 FILLER PIC X(58) VALUE NC2114.2 044500 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2114.2 044600 02 FILLER PIC X(13) VALUE SPACE. NC2114.2 044700 02 FILLER PIC X(15) VALUE NC2114.2 044800 " COPYRIGHT 1985". NC2114.2 044900 01 CCVS-E-4. NC2114.2 045000 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC2114.2 045100 02 FILLER PIC X(4) VALUE " OF ". NC2114.2 045200 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC2114.2 045300 02 FILLER PIC X(40) VALUE NC2114.2 045400 " TESTS WERE EXECUTED SUCCESSFULLY". NC2114.2 045500 01 XXINFO. NC2114.2 045600 02 FILLER PIC X(19) VALUE NC2114.2 045700 "*** INFORMATION ***". NC2114.2 045800 02 INFO-TEXT. NC2114.2 045900 04 FILLER PIC X(8) VALUE SPACE. NC2114.2 046000 04 XXCOMPUTED PIC X(20). NC2114.2 046100 04 FILLER PIC X(5) VALUE SPACE. NC2114.2 046200 04 XXCORRECT PIC X(20). NC2114.2 046300 02 INF-ANSI-REFERENCE PIC X(48). NC2114.2 046400 01 HYPHEN-LINE. NC2114.2 046500 02 FILLER PIC IS X VALUE IS SPACE. NC2114.2 046600 02 FILLER PIC IS X(65) VALUE IS "************************NC2114.2 046700- "*****************************************". NC2114.2 046800 02 FILLER PIC IS X(54) VALUE IS "************************NC2114.2 046900- "******************************". NC2114.2 047000 01 CCVS-PGM-ID PIC X(9) VALUE NC2114.2 047100 "NC211A". NC2114.2 047200 PROCEDURE DIVISION. NC2114.2 047300 CCVS1 SECTION. NC2114.2 047400 OPEN-FILES. NC2114.2 047500 OPEN OUTPUT PRINT-FILE. NC2114.2 047600 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC2114.2 047700 MOVE SPACE TO TEST-RESULTS. NC2114.2 047800 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC2114.2 047900 GO TO CCVS1-EXIT. NC2114.2 048000 CLOSE-FILES. NC2114.2 048100 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC2114.2 048200 TERMINATE-CCVS. NC2114.2 048300 EXIT PROGRAM. NC2114.2 048400 TERMINATE-CALL. NC2114.2 048500 STOP RUN. NC2114.2 048600 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC2114.2 048700 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC2114.2 048800 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC2114.2 048900 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC2114.2 049000 MOVE "****TEST DELETED****" TO RE-MARK. NC2114.2 049100 PRINT-DETAIL. NC2114.2 049200 IF REC-CT NOT EQUAL TO ZERO NC2114.2 049300 MOVE "." TO PARDOT-X NC2114.2 049400 MOVE REC-CT TO DOTVALUE. NC2114.2 049500 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC2114.2 049600 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC2114.2 049700 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC2114.2 049800 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC2114.2 049900 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC2114.2 050000 MOVE SPACE TO CORRECT-X. NC2114.2 050100 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC2114.2 050200 MOVE SPACE TO RE-MARK. NC2114.2 050300 HEAD-ROUTINE. NC2114.2 050400 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2114.2 050500 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2114.2 050600 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2114.2 050700 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2114.2 050800 COLUMN-NAMES-ROUTINE. NC2114.2 050900 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2114.2 051000 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2114.2 051100 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2114.2 051200 END-ROUTINE. NC2114.2 051300 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2114.2 051400 END-RTN-EXIT. NC2114.2 051500 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2114.2 051600 END-ROUTINE-1. NC2114.2 051700 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC2114.2 051800 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC2114.2 051900 ADD PASS-COUNTER TO ERROR-HOLD. NC2114.2 052000* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC2114.2 052100 MOVE PASS-COUNTER TO CCVS-E-4-1. NC2114.2 052200 MOVE ERROR-HOLD TO CCVS-E-4-2. NC2114.2 052300 MOVE CCVS-E-4 TO CCVS-E-2-2. NC2114.2 052400 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC2114.2 052500 END-ROUTINE-12. NC2114.2 052600 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC2114.2 052700 IF ERROR-COUNTER IS EQUAL TO ZERO NC2114.2 052800 MOVE "NO " TO ERROR-TOTAL NC2114.2 052900 ELSE NC2114.2 053000 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC2114.2 053100 MOVE CCVS-E-2 TO DUMMY-RECORD. NC2114.2 053200 PERFORM WRITE-LINE. NC2114.2 053300 END-ROUTINE-13. NC2114.2 053400 IF DELETE-COUNTER IS EQUAL TO ZERO NC2114.2 053500 MOVE "NO " TO ERROR-TOTAL ELSE NC2114.2 053600 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC2114.2 053700 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC2114.2 053800 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2114.2 053900 IF INSPECT-COUNTER EQUAL TO ZERO NC2114.2 054000 MOVE "NO " TO ERROR-TOTAL NC2114.2 054100 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC2114.2 054200 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC2114.2 054300 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2114.2 054400 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2114.2 054500 WRITE-LINE. NC2114.2 054600 ADD 1 TO RECORD-COUNT. NC2114.2 054700 IF RECORD-COUNT GREATER 50 NC2114.2 054800 MOVE DUMMY-RECORD TO DUMMY-HOLD NC2114.2 054900 MOVE SPACE TO DUMMY-RECORD NC2114.2 055000 WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC2114.2 055100 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC2114.2 055200 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC2114.2 055300 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC2114.2 055400 MOVE DUMMY-HOLD TO DUMMY-RECORD NC2114.2 055500 MOVE ZERO TO RECORD-COUNT. NC2114.2 055600 PERFORM WRT-LN. NC2114.2 055700 WRT-LN. NC2114.2 055800 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC2114.2 055900 MOVE SPACE TO DUMMY-RECORD. NC2114.2 056000 BLANK-LINE-PRINT. NC2114.2 056100 PERFORM WRT-LN. NC2114.2 056200 FAIL-ROUTINE. NC2114.2 056300 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2114.2 056400 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2114.2 056500 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2114.2 056600 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC2114.2 056700 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2114.2 056800 MOVE SPACES TO INF-ANSI-REFERENCE. NC2114.2 056900 GO TO FAIL-ROUTINE-EX. NC2114.2 057000 FAIL-ROUTINE-WRITE. NC2114.2 057100 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC2114.2 057200 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC2114.2 057300 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2114.2 057400 MOVE SPACES TO COR-ANSI-REFERENCE. NC2114.2 057500 FAIL-ROUTINE-EX. EXIT. NC2114.2 057600 BAIL-OUT. NC2114.2 057700 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC2114.2 057800 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC2114.2 057900 BAIL-OUT-WRITE. NC2114.2 058000 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC2114.2 058100 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2114.2 058200 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2114.2 058300 MOVE SPACES TO INF-ANSI-REFERENCE. NC2114.2 058400 BAIL-OUT-EX. EXIT. NC2114.2 058500 CCVS1-EXIT. NC2114.2 058600 EXIT. NC2114.2 058700 SECT-NC211A-001 SECTION. NC2114.2 058800 NC-211A-001. NC2114.2 058900 CC--INIT-GF-1. NC2114.2 059000 MOVE "CC--TEST-GF-1 " TO PAR-NAME. NC2114.2 059100 MOVE "COMPOUND CONDITIONS" TO FEATURE. NC2114.2 059200 MOVE "VI-89 6.15.3/4" TO ANSI-REFERENCE. NC2114.2 059300 PERFORM PRINT-DETAIL. NC2114.2 059400 MOVE " NOT ABBREVIATED " TO FEATURE. NC2114.2 059500 MOVE 11 TO CCON-1. NC2114.2 059600 MOVE 12 TO CCON-2. NC2114.2 059700 MOVE 13 TO CCON-3. NC2114.2 059800 CC--TEST-GF-1. NC2114.2 059900 IF CCON-1 IS LESS THAN CCON-2 AND CCON-3 IS GREATER THAN 10 NC2114.2 060000 PERFORM PASS NC2114.2 060100 GO TO CC--WRITE-GF-1. NC2114.2 060200 GO TO CC--FAIL-GF-1. NC2114.2 060300 CC--DELETE-GF-1. NC2114.2 060400 PERFORM DE-LETE. NC2114.2 060500 GO TO CC--WRITE-GF-1. NC2114.2 060600 CC--FAIL-GF-1. NC2114.2 060700 PERFORM FAIL. NC2114.2 060800 CC--WRITE-GF-1. NC2114.2 060900 PERFORM PRINT-DETAIL. NC2114.2 061000* NC2114.2 061100 CC--INIT-GF-2. NC2114.2 061200 MOVE "CC--TEST-GF-2 " TO PAR-NAME. NC2114.2 061300 MOVE "VI-89 6.15.3/4" TO ANSI-REFERENCE. NC2114.2 061400 MOVE 11 TO CCON-1. NC2114.2 061500 MOVE 12 TO CCON-2. NC2114.2 061600 MOVE 13 TO CCON-3. NC2114.2 061700 CC--TEST-GF-2. NC2114.2 061800 IF CCON-2 GREATER THAN CCON-1 AND 20 LESS THAN CCON-3 NC2114.2 061900 GO TO CC--FAIL-GF-2. NC2114.2 062000 PERFORM PASS. NC2114.2 062100 GO TO CC--WRITE-GF-2. NC2114.2 062200 CC--DELETE-GF-2. NC2114.2 062300 PERFORM DE-LETE. NC2114.2 062400 GO TO CC--WRITE-GF-2. NC2114.2 062500 CC--FAIL-GF-2. NC2114.2 062600 PERFORM FAIL. NC2114.2 062700 CC--WRITE-GF-2. NC2114.2 062800 PERFORM PRINT-DETAIL. NC2114.2 062900* NC2114.2 063000 CC--INIT-GF-3. NC2114.2 063100 MOVE "CC--TEST-GF-3 " TO PAR-NAME. NC2114.2 063200 MOVE "VI-89 6.15.3/4" TO ANSI-REFERENCE. NC2114.2 063300 MOVE 11 TO CCON-1. NC2114.2 063400 MOVE 12 TO CCON-2. NC2114.2 063500 MOVE 13 TO CCON-3. NC2114.2 063600 CC--TEST-GF-3. NC2114.2 063700 IF CCON-1 GREATER THAN CCON-2 AND 20 GREATER THAN CCON-3 NC2114.2 063800 GO TO CC--FAIL-GF-3. NC2114.2 063900 PERFORM PASS. NC2114.2 064000 GO TO CC--WRITE-GF-3. NC2114.2 064100 CC--DELETE-GF-3. NC2114.2 064200 PERFORM DE-LETE. NC2114.2 064300 GO TO CC--WRITE-GF-3. NC2114.2 064400 CC--FAIL-GF-3. NC2114.2 064500 PERFORM FAIL. NC2114.2 064600 CC--WRITE-GF-3. NC2114.2 064700 PERFORM PRINT-DETAIL. NC2114.2 064800* NC2114.2 064900 CC--INIT-GF-4. NC2114.2 065000 MOVE "CC--TEST-GF-4 " TO PAR-NAME. NC2114.2 065100 MOVE "VI-89 6.15.3/4" TO ANSI-REFERENCE. NC2114.2 065200 MOVE 11 TO CCON-1. NC2114.2 065300 MOVE 13 TO CCON-3. NC2114.2 065400 CC--TEST-GF-4. NC2114.2 065500 IF CCON-1 GREATER THAN 10 OR 20 LESS THAN CCON-3 NC2114.2 065600 PERFORM PASS NC2114.2 065700 GO TO CC--WRITE-GF-4. NC2114.2 065800 GO TO CC--FAIL-GF-4. NC2114.2 065900 CC--DELETE-GF-4. NC2114.2 066000 PERFORM DE-LETE. NC2114.2 066100 GO TO CC--WRITE-GF-4. NC2114.2 066200 CC--FAIL-GF-4. NC2114.2 066300 PERFORM FAIL. NC2114.2 066400 CC--WRITE-GF-4. NC2114.2 066500 PERFORM PRINT-DETAIL. NC2114.2 066600* NC2114.2 066700 CC--INIT-GF-5. NC2114.2 066800 MOVE "CC--TEST-GF-5 " TO PAR-NAME. NC2114.2 066900 MOVE "VI-89 6.15.3/4" TO ANSI-REFERENCE. NC2114.2 067000 MOVE 11 TO CCON-1. NC2114.2 067100 MOVE 12 TO CCON-2. NC2114.2 067200 MOVE 13 TO CCON-3. NC2114.2 067300 CC--TEST-GF-5. NC2114.2 067400 IF CCON-3 LESS THAN CCON-2 OR 20 GREATER THAN CCON-1 NC2114.2 067500 PERFORM PASS NC2114.2 067600 GO TO CC--WRITE-GF-5. NC2114.2 067700 GO TO CC--FAIL-GF-5. NC2114.2 067800 CC--DELETE-GF-5. NC2114.2 067900 PERFORM DE-LETE. NC2114.2 068000 GO TO CC--WRITE-GF-5. NC2114.2 068100 CC--FAIL-GF-5. NC2114.2 068200 PERFORM FAIL. NC2114.2 068300 CC--WRITE-GF-5. NC2114.2 068400 PERFORM PRINT-DETAIL. NC2114.2 068500* NC2114.2 068600 CC--INIT-GF-6. NC2114.2 068700 MOVE "CC--TEST-GF-6 " TO PAR-NAME. NC2114.2 068800 MOVE "VI-89 6.15.3/4" TO ANSI-REFERENCE. NC2114.2 068900 MOVE 11 TO CCON-1. NC2114.2 069000 MOVE 12 TO CCON-2. NC2114.2 069100 MOVE 13 TO CCON-3. NC2114.2 069200 CC--TEST-GF-6. NC2114.2 069300 IF CCON-1 EQUAL TO 11 AND CCON-3 GREATER THAN 12 OR CCON-2 NC2114.2 069400 LESS THAN 20 AND CCON-1 GREATER THAN 12 NC2114.2 069500 PERFORM PASS NC2114.2 069600 GO TO CC--WRITE-GF-6. NC2114.2 069700 GO TO CC--FAIL-GF-6. NC2114.2 069800 CC--DELETE-GF-6. NC2114.2 069900 PERFORM DE-LETE. NC2114.2 070000 GO TO CC--WRITE-GF-6. NC2114.2 070100 CC--FAIL-GF-6. NC2114.2 070200 PERFORM FAIL. NC2114.2 070300 CC--WRITE-GF-6. NC2114.2 070400 PERFORM PRINT-DETAIL. NC2114.2 070500* NC2114.2 070600 CC--INIT-GF-7. NC2114.2 070700 MOVE "CC--TEST-GF-7 " TO PAR-NAME. NC2114.2 070800 MOVE "VI-89 6.15.3/4" TO ANSI-REFERENCE. NC2114.2 070900 MOVE 11 TO CCON-1. NC2114.2 071000 MOVE 12 TO CCON-2. NC2114.2 071100 MOVE 13 TO CCON-3. NC2114.2 071200 CC--TEST-GF-7. NC2114.2 071300 IF CCON-1 LESS THAN 9 AND CCON-3 GREATER THAN 12 OR CCON-2 NC2114.2 071400 GREATER THAN 10 AND CCON-1 GREATER THAN 8 NC2114.2 071500 PERFORM PASS NC2114.2 071600 GO TO CC--WRITE-GF-7. NC2114.2 071700 GO TO CC--FAIL-GF-7. NC2114.2 071800 CC--DELETE-GF-7. NC2114.2 071900 PERFORM DE-LETE. NC2114.2 072000 GO TO CC--WRITE-GF-7. NC2114.2 072100 CC--FAIL-GF-7. NC2114.2 072200 PERFORM FAIL. NC2114.2 072300 CC--WRITE-GF-7. NC2114.2 072400 PERFORM PRINT-DETAIL. NC2114.2 072500* NC2114.2 072600 CC--INIT-GF-8. NC2114.2 072700 MOVE "CC--TEST-GF-8 " TO PAR-NAME. NC2114.2 072800 MOVE "VI-89 6.15.3/4" TO ANSI-REFERENCE. NC2114.2 072900 MOVE 11 TO CCON-1. NC2114.2 073000 MOVE 12 TO CCON-2. NC2114.2 073100 CC--TEST-GF-8. NC2114.2 073200 IF CCON-1 NOT EQUAL TO 11 OR CCON-2 NOT LESS THAN 10 NC2114.2 073300 PERFORM PASS ELSE PERFORM FAIL. NC2114.2 073400 GO TO CC--WRITE-GF-8. NC2114.2 073500 CC--DELETE-GF-8. NC2114.2 073600 PERFORM DE-LETE. NC2114.2 073700 GO TO CC--WRITE-GF-8. NC2114.2 073800 CC--FAIL-GF-8. NC2114.2 073900 PERFORM FAIL. NC2114.2 074000 CC--WRITE-GF-8. NC2114.2 074100 PERFORM PRINT-DETAIL. NC2114.2 074200* NC2114.2 074300 CC--INIT-GF-9. NC2114.2 074400 MOVE "CC--TEST-GF-9 " TO PAR-NAME. NC2114.2 074500 MOVE "VI-89 6.15.3/4" TO ANSI-REFERENCE. NC2114.2 074600 MOVE 11 TO CCON-1. NC2114.2 074700 MOVE 12 TO CCON-2. NC2114.2 074800 MOVE 13 TO CCON-3. NC2114.2 074900 CC--TEST-GF-9. NC2114.2 075000 IF CCON-2 NOT EQUAL TO CCON-3 AND CCON-1 NOT GREATER THAN 12 NC2114.2 075100 PERFORM PASS NC2114.2 075200 GO TO CC--WRITE-GF-9. NC2114.2 075300 GO TO CC--FAIL-GF-9. NC2114.2 075400 CC--DELETE-GF-9. NC2114.2 075500 PERFORM DE-LETE. NC2114.2 075600 GO TO CC--WRITE-GF-9. NC2114.2 075700 CC--FAIL-GF-9. NC2114.2 075800 PERFORM FAIL. NC2114.2 075900 CC--WRITE-GF-9. NC2114.2 076000 PERFORM PRINT-DETAIL. NC2114.2 076100* NC2114.2 076200 CC--INIT-GF-10. NC2114.2 076300 MOVE "CC--TEST-GF-10" TO PAR-NAME. NC2114.2 076400 MOVE "VI-89 6.15.3/4" TO ANSI-REFERENCE. NC2114.2 076500 MOVE 12 TO CCON-2. NC2114.2 076600 MOVE 13 TO CCON-3. NC2114.2 076700 CC--TEST-GF-10. NC2114.2 076800 IF CCON-3 NOT EQUAL TO 13 OR CCON-2 NOT LESS THAN 13 NC2114.2 076900 GO TO CC--FAIL-GF-10. NC2114.2 077000 PERFORM PASS. NC2114.2 077100 GO TO CC--WRITE-GF-10. NC2114.2 077200 CC--DELETE-GF-10. NC2114.2 077300 PERFORM DE-LETE. NC2114.2 077400 GO TO CC--WRITE-GF-10. NC2114.2 077500 CC--FAIL-GF-10. NC2114.2 077600 PERFORM FAIL. NC2114.2 077700 CC--WRITE-GF-10. NC2114.2 077800 PERFORM PRINT-DETAIL. NC2114.2 077900* NC2114.2 078000 CC--INIT-GF-11. NC2114.2 078100 MOVE "CC--TEST-GF-11" TO PAR-NAME. NC2114.2 078200 MOVE "VI-89 6.15.3/4" TO ANSI-REFERENCE. NC2114.2 078300 MOVE " ABBREVIATED " TO FEATURE. NC2114.2 078400 MOVE 13 TO CCON-3. NC2114.2 078500 CC--TEST-GF-11. NC2114.2 078600 IF CCON-3 NOT EQUAL TO 12 AND GREATER THAN 10 NC2114.2 078700 PERFORM PASS NC2114.2 078800 GO TO CC--WRITE-GF-11. NC2114.2 078900 GO TO CC--FAIL-GF-11. NC2114.2 079000 CC--DELETE-GF-11. NC2114.2 079100 PERFORM DE-LETE. NC2114.2 079200 GO TO CC--WRITE-GF-11. NC2114.2 079300 CC--FAIL-GF-11. NC2114.2 079400 PERFORM FAIL. NC2114.2 079500 CC--WRITE-GF-11. NC2114.2 079600 PERFORM PRINT-DETAIL. NC2114.2 079700* NC2114.2 079800 CC--INIT-GF-12. NC2114.2 079900 MOVE "CC--TEST-GF-12" TO PAR-NAME. NC2114.2 080000 MOVE "VI-89 6.15.3/4" TO ANSI-REFERENCE. NC2114.2 080100 MOVE 12 TO CCON-2. NC2114.2 080200 CC--TEST-GF-12. NC2114.2 080300 IF CCON-2 LESS THAN 10 OR EQUAL TO 12 PERFORM PASS NC2114.2 080400 GO TO CC--WRITE-GF-12. NC2114.2 080500 GO TO CC--FAIL-GF-12. NC2114.2 080600 CC--DELETE-GF-12. NC2114.2 080700 PERFORM DE-LETE. NC2114.2 080800 GO TO CC--WRITE-GF-12. NC2114.2 080900 CC--FAIL-GF-12. NC2114.2 --> -------------------- --> maximum size reached --> -------------------- ¤ Dauer der Verarbeitung: 0.58 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.Bot Zugriff |
