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