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