|
000100 IDENTIFICATION DIVISION. NC2524.2
000200 PROGRAM-ID. NC2524.2
000300 NC252A. NC2524.2
000400**************************************************************** NC2524.2
000500* * NC2524.2
000600* VALIDATION FOR:- * NC2524.2
000700* * NC2524.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2524.2
000900* * NC2524.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2524.2
001100* * NC2524.2
001200**************************************************************** NC2524.2
001300* * NC2524.2
001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC2524.2
001500* * NC2524.2
001600* X-55 - SYSTEM PRINTER NAME. * NC2524.2
001700* X-82 - SOURCE COMPUTER NAME. * NC2524.2
001800* X-83 - OBJECT COMPUTER NAME. * NC2524.2
001900* * NC2524.2
002000**************************************************************** NC2524.2
002100* * NC2524.2
002200* THIS PROGRAM TESTS THE "REDEFINES" AND "RENAMES" CLAUSES. * NC2524.2
002300* * NC2524.2
002400**************************************************************** NC2524.2
002500 ENVIRONMENT DIVISION. NC2524.2
002600 CONFIGURATION SECTION. NC2524.2
002700 SOURCE-COMPUTER. NC2524.2
002800 Card0130. NC2524.2
002900 OBJECT-COMPUTER. NC2524.2
003000 Card0131. NC2524.2
003100 INPUT-OUTPUT SECTION. NC2524.2
003200 FILE-CONTROL. NC2524.2
003300 SELECT PRINT-FILE ASSIGN TO NC2524.2
003400 "C0085" . NC2524.2
003500 DATA DIVISION. NC2524.2
003600 FILE SECTION. NC2524.2
003700 FD PRINT-FILE. NC2524.2
003800 01 PRINT-REC PICTURE X(120). NC2524.2
003900 01 DUMMY-RECORD PICTURE X(120). NC2524.2
004000 WORKING-STORAGE SECTION. NC2524.2
004100 01 WS-REMAINDERS. NC2524.2
004200 03 WS-REM PIC 99 OCCURS 20. NC2524.2
004300 01 WRK-XN-00001-1 PIC X. NC2524.2
004400 01 WRK-XN-00001-2 PIC X. NC2524.2
004500 01 WS-46. NC2524.2
004600 03 WS-1-20 PIC X(20). NC2524.2
004700 03 WS-21-40 PIC X(20). NC2524.2
004800 03 WS-41-46 PIC X(6). NC2524.2
004900 77 11A PICTURE 9999 VALUE 9. NC2524.2
005000 77 11B PICTURE 99; VALUE 8. NC2524.2
005100 77 1111C PICTURE 99 VALUE 9. NC2524.2
005200 77 WRK-DS-02V00 PICTURE S99. NC2524.2
005300 88 TEST-2NUC-COND-99 VALUE 99. NC2524.2
005400 77 A99-DS-02V00 PICTURE S99 VALUE 99. NC2524.2
005500 77 WRK-DS-18V00 PICTURE S9(18). NC2524.2
005600 77 A18ONES-DS-18V00 PICTURE S9(18) NC2524.2
005700 VALUE 111111111111111111. NC2524.2
005800 77 A18TWOS-DS-18V00 PICTURE S9(18) NC2524.2
005900 VALUE 222222222222222222. NC2524.2
006000 77 WRK-DS-05V00 PICTURE S9(5). NC2524.2
006100 77 A02TWOS-DU-02V00 PICTURE 99 VALUE 22. NC2524.2
006200 77 A02TWOS-DS-03V02 PICTURE S999V99 VALUE +022.00. NC2524.2
006300 77 ATWO-DS-01V00 PICTURE S9 VALUE 2. NC2524.2
006400 77 AZERO-DS-05V05 PICTURE S9(5)V9(5) VALUE ZERO. NC2524.2
006500 77 WRK-DS-06V06 PICTURE S9(6)V9(6). NC2524.2
006600 77 WRK-DS-0201P PICTURE S99P. NC2524.2
006700 77 A05ONES-DS-05V00 PICTURE S9(5) VALUE 11111. NC2524.2
006800 77 WRK-DS-09V00 PICTURE S9(9). NC2524.2
006900 77 WRK-DS-09V09 PICTURE S9(9)V9(9). NC2524.2
007000 77 WRK-DS-18V00-S REDEFINES WRK-DS-09V09 NC2524.2
007100 PICTURE S9(18). NC2524.2
007200 77 XRAY PICTURE IS X. NC2524.2
007300 77 W-1 PICTURE IS 9. NC2524.2
007400 77 W-2 PICTURE IS 99. NC2524.2
007500 77 W-3 PICTURE IS 999. NC2524.2
007600 77 W-5 PICTURE 99 VALUE ZERO. NC2524.2
007700 77 W-9 PICTURE 999. NC2524.2
007800 77 W-11 PICTURE S99V9. NC2524.2
007900 77 D-1 PICTURE S9V99 VALUE 1.06. NC2524.2
008000 77 D-7 PICTURE S99V99 VALUE 1.09. NC2524.2
008100 77 ONE PICTURE IS 9 VALUE IS 1. NC2524.2
008200 77 TWO PICTURE IS S9 VALUE IS 2. NC2524.2
008300 77 THREE PICTURE IS S9 VALUE IS 3. NC2524.2
008400 77 FOUR PICTURE IS S9 VALUE IS 4. NC2524.2
008500 77 FIVE PICTURE IS S9 VALUE IS 5. NC2524.2
008600 77 SIX PICTURE IS S9 VALUE IS 6. NC2524.2
008700 77 SEVEN PICTURE IS S9 VALUE IS 7. NC2524.2
008800 77 EIGHT PICTURE IS 9 VALUE IS 8. NC2524.2
008900 77 NINE PICTURE IS S9 VALUE IS 9. NC2524.2
009000 77 TEN PICTURE IS S99 VALUE IS 10. NC2524.2
009100 77 FIFTEEN PICTURE IS S99 VALUE IS 15. NC2524.2
009200 77 TWENTY PICTURE IS S99 VALUE IS 20. NC2524.2
009300 77 TWENTY-5 PICTURE IS S99 VALUE IS 25. NC2524.2
009400 1 COMPUTE-DATA. NC2524.2
009500 02NC2524.2
009600 COMPUTE-1 PICTURE 999V9999 VALUE ZERO. NC2524.2
009700 2 COMPUTE-1A PICTURE 9(3)V9(4) VALUE 654.1873. NC2524.2
009800 2 COMPUTE-2 PICTURE 9999V9 VALUE ZERO. NC2524.2
009900 02 COMPUTE-3 PICTURE 999V99 VALUE ZERO. NC2524.2
010000 2 COMPUTE-3A PICTURE 999V99 VALUE 86.14. NC2524.2
010100 2 COMPUTE-3B PICTURE 999V99 VALUE 33.75. NC2524.2
010200 2 COMPUTE-4 PICTURE 999 VALUE ZERO. NC2524.2
010300 2 COMPUTE-4A PICTURE 999 VALUE 124. NC2524.2
010400 2 COMPUTE-4B PICTURE 999 VALUE 217. NC2524.2
010500 2 COMPUTE-5 PICTURE 9999V99 VALUE ZERO. NC2524.2
010600 02 COMPUTE-5A PICTURE 999V9 VALUE 11.1. NC2524.2
010700 2 COMPUTE-6 PICTURE 999V9 VALUE ZERO. NC2524.2
010800 2 COMPUTE-6A PICTURE 999V9 VALUE 374.4. NC2524.2
010900 2 COMPUTE-7 PICTURE 999 VALUE ZERO. NC2524.2
011000 2 COMPUTE-8 PICTURE 999 VALUE ZERO. NC2524.2
011100 02 COMPUTE-9 PICTURE 9999 VALUE ZERO. NC2524.2
011200 2 COMPUTE-10 PICTURE 999V9999 VALUE ZERO. NC2524.2
011300 2 COMPUTE-11 PICTURE 999V9 VALUE ZERO. NC2524.2
011400 2 COMPUTE-11A PICTURE 999V9 VALUE 371.2. NC2524.2
011500 2 COMPUTE-11B PICTURE 999V9 VALUE 468.9. NC2524.2
011600 2 COMPUTE-12 PICTURE 99V99 VALUE ZERO. NC2524.2
011700 2 COMPUTE-12A PICTURE 999V9 VALUE 336.4. NC2524.2
011800 2 COMPUTE-12B PICTURE 999V9 VALUE 281.7. NC2524.2
011900 01 RENAMES-DATA. NC2524.2
012000 02 NAME1. NC2524.2
012100 03 NAME1A PICTURE XX VALUE SPACE. NC2524.2
012200 03 NAME1B PICTURE XXX VALUE SPACE. NC2524.2
012300 02 NAME2 PICTURE X(10) VALUE SPACE. NC2524.2
012400 02 NAME3. NC2524.2
012500 09 NAME3A PICTURE XXX VALUE SPACE. NC2524.2
012600 09 NAME3B PICTURE XX VALUE SPACE. NC2524.2
012700 66 RENAME1 RENAMES NAME1 THRU NAME3. NC2524.2
012800 66 RENAME2 RENAMES NAME1A THRU NAME1B. NC2524.2
012900 66 RENAME3 RENAMES NAME2. NC2524.2
013000 66 RENAME4 RENAMES NAME1. NC2524.2
013100 01 GRP-FOR-RENAMES. NC2524.2
013200 03 SUB-GRP-FOR-RENAMES-1. NC2524.2
013300 05 ELEM-FOR-RENAMES-1 PICTURE X VALUE "X". NC2524.2
013400 05 FILLER PICTURE XX VALUE SPACE. NC2524.2
013500 03 SUB-GRP-FOR-RENAMES-2. NC2524.2
013600 49 ELEM-FOR-RENAMES-2 PICTURE 999 VALUE 123. NC2524.2
013700 49 FILLER PICTURE 9 VALUE ZERO. NC2524.2
013800 49 ELEM-FOR-RENAMES-3 PICTURE XXXX VALUE ZERO. NC2524.2
013900 66 RENAMES-TEST-1 RENAMES ELEM-FOR-RENAMES-2. NC2524.2
014000 66 RENAMES-TEST-2 RENAMES SUB-GRP-FOR-RENAMES-1 NC2524.2
014100 OF GRP-FOR-RENAMES. NC2524.2
014200 66 RENAMES-TEST-3 RENAMES SUB-GRP-FOR-RENAMES-1 NC2524.2
014300 THRU ELEM-FOR-RENAMES-2. NC2524.2
014400 66 RENAMES-TEST-4 RENAMES ELEM-FOR-RENAMES-1 NC2524.2
014500 THRU ELEM-FOR-RENAMES-2 IN GRP-FOR-RENAMES. NC2524.2
014600 01 T-RENAMES-DATA. NC2524.2
014700 02 TAG-1. NC2524.2
014800 03 TAG-1A PICTURE XXXX. NC2524.2
014900 03 TAG-1B PICTURE XXXXXX. NC2524.2
015000 02 NAME-2 PICTURE XXXXXXX. NC2524.2
015100 66 RENAME-5 RENAMES TAG-1A THRU TAG-1B. NC2524.2
015200 66 RENAME-6 RENAMES TAG-1A THRU NAME-2 OF T-RENAMES-DATA. NC2524.2
015300 01 U-RENAMES-DATA. NC2524.2
015400 02 UNIT-1. NC2524.2
015500 03 UNIT-1A PICTURE XXXXXXX VALUE "VERMONT". NC2524.2
015600 03 UNIT-1B PICTURE XXXX VALUE "OHIO". NC2524.2
015700 02 NAME-2 PICTURE XXXXX VALUE "MAINE". NC2524.2
015800 66 RENAME-5 RENAMES UNIT-1A THROUGH UNIT-1B. NC2524.2
015900 66 RENAME-6 RENAMES UNIT-1A THRU NAME-2 OF U-RENAMES-DATA. NC2524.2
016000 01 V-RENAMES-DATA. NC2524.2
016100 02 ITEM-1 PICTURE X(5). NC2524.2
016200 02 TABLE-2. NC2524.2
016300 03 TABLE-ITEM-2 PICTURE XXX OCCURS 5 TIMES. NC2524.2
016400 66 RENAME-7 RENAMES ITEM-1 THRU TABLE-2. NC2524.2
016500 01 W-RENAMES-DATA. NC2524.2
016600 02 WIDGET-1 PICTURE 99V9. NC2524.2
016700 02 WIDGET-2 PICTURE ***,***.**. NC2524.2
016800 02 WIDGET-3 PICTURE XXXX. NC2524.2
016900 02 WIDGET-4 PICTURE 9(4). NC2524.2
017000 02 WIDGET-5 PICTURE 9(4). NC2524.2
017100 66 RENAME-8 RENAMES WIDGET-1 THRU WIDGET-3. NC2524.2
017200 66 RENAME-9 RENAMES WIDGET-3 THRU WIDGET-5. NC2524.2
017300 66 RENAME-10 RENAMES WIDGET-4 THRU WIDGET-5. NC2524.2
017400 66 RENAME-11 RENAMES WIDGET-2. NC2524.2
017500 66 RENAME-12 RENAMES WIDGET-4. NC2524.2
017600 01 REDEF10. NC2524.2
017700 02 RDFDATA1 PICTURE X(10) VALUE "ABC98765DE".NC2524.2
017800 02 RDFDATA2 PICTURE 9(4)V99 VALUE 9116.44. NC2524.2
017900 02 RDFDATA3. NC2524.2
018000 08 RDFDATA4 PICTURE X(6) VALUE "ALLDON". NC2524.2
018100 08 RDFDATA5 PICTURE XX99 VALUE "XX66". NC2524.2
018200 02 RDF3 REDEFINES RDFDATA3. NC2524.2
018300 03 RDF3-4 PICTURE X(8). NC2524.2
018400 03 RDF3-5 PIC 99. NC2524.2
018500 03 RDF3-5-1 REDEFINES RDF3-5. NC2524.2
018600 04 RDF3-5-14 PIC 9. NC2524.2
018700 04 RDF3-5-15 PIC 9. NC2524.2
018800 88 HARD VALUE 0. NC2524.2
018900 88 SOFT VALUE 1. NC2524.2
019000 02 RDFDATA6 PICTURE A(20) VALUE NC2524.2
019100 "ZYXWVUTSRQPONMLKJIHG". NC2524.2
019200 66 RDF3-5-16 RENAMES RDF3-5. NC2524.2
019300 01 REDEF11 REDEFINES REDEF10. NC2524.2
019400 02 RDFDATA7 PICTURE X(20). NC2524.2
019500 02 RDF8. NC2524.2
019600 03 RDFDATA8 OCCURS 36 TIMES PICTURE XX. NC2524.2
019700 02 RDEF8 REDEFINES RDF8. NC2524.2
019800 03 RDF8-1 PICTURE X(50). NC2524.2
019900 03 RDF8-2 PIC X(9). NC2524.2
020000 03 RDF8-3 REDEFINES RDF8-2. NC2524.2
020100 04 RDF8-4 PIC X(5). NC2524.2
020200 04 RDF8-5 PICTURE XX. NC2524.2
020300 04 RDF8-6 PIC XX. NC2524.2
020400 03 RDF8-8 PIC X(13). NC2524.2
020500 66 RDF8-7 RENAMES RDF8-5 THRU RDF8-6. NC2524.2
020600 01 REDEF12 REDEFINES REDEF10. NC2524.2
020700 02 RDFDATA9 PICTURE A(3). NC2524.2
020800 02 RDFDATA10 PIC 9(5). NC2524.2
020900 02 RDFDATA11. NC2524.2
021000 03 RDFDATA12. NC2524.2
021100 04 RDFDATA13 PICTURE XX. NC2524.2
021200 04 RDFDATA14 OCCURS 6 TIMES PICTURE 9. NC2524.2
021300 03 RDFDATA15 PICTURE X(8). NC2524.2
021400 02 RDFDATA16 PICTURE 99. NC2524.2
021500 02 RDFDATA17 PICTURE X(80). NC2524.2
021600 02 RDFDATA18 PICTURE X(14). NC2524.2
021700 01 GRP-REDEF125 REDEFINES REDEF10. NC2524.2
021800 02 AN0020-X-0001 PIC X(26). NC2524.2
021900 02 AN0002-O036F-X-0002 PIC XX OCCURS 36 TIMES. NC2524.2
022000 01 WRK-DU-05V00-0001 PIC 9(5). NC2524.2
022100 01 WRK-DS-05V00-0002 PIC S9(5). NC2524.2
022200 01 WRK-CS-05V00-0003 PIC S9(5) COMP. NC2524.2
022300 01 WRK-DU-04V02-0004 PIC 9(4)V9(2). NC2524.2
022400 01 WRK-DS-04V01-0005 PIC S9(4)V9. NC2524.2
022500 01 NE-0008 PIC $9(4).99-. NC2524.2
022600 01 NE-0009 PIC ***99. NC2524.2
022700 01 NE-04V01-0006 PIC ****.9. NC2524.2
022800 01 GRP-0010. NC2524.2
022900 02 WRK-DU-03V00-L-0011 PIC 9(03) SYNC LEFT. NC2524.2
023000 02 WRK-O005F-0012 OCCURS 5 TIMES. NC2524.2
023100 03 WRK-O003F-0013 OCCURS 3 TIMES. NC2524.2
023200 05 WRK-DS-03V04-0003F-0014 PIC S9(3)V9999 NC2524.2
023300 OCCURS 3 TIMES. NC2524.2
023400 01 DS-02V00-0001 PIC S99 VALUE 16. NC2524.2
023500 01 DS-03V00-0002 PIC S999 VALUE 174. NC2524.2
023600 01 CS-05V00-0003 PIC S9(5) COMP VALUE 10. NC2524.2
023700 01 TA--X PIC 9(5) COMP VALUE ZERO. NC2524.2
023800 01 REDEF13. NC2524.2
023900 02 FILLER PICTURE X(57) VALUE NC2524.2
024000 "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA". NC2524.2
024100 02 FILLER PICTURE X(57) VALUE NC2524.2
024200 "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA". NC2524.2
024300 02 FILLER PICTURE X(6) VALUE "AAAAAA". NC2524.2
024400 01 MINUS-NAMES. NC2524.2
024500 02 WHOLE-FIELD PICTURE S9(18). NC2524.2
024600 02 PLUS-NAME1 PICTURE S9(18) VALUE +333333333333333333. NC2524.2
024700 02 EVEN-NAME1 PICTURE S9(18) VALUE +1. NC2524.2
024800 02 PLUS-NAME2 PICTURE S9(18) VALUE +999999999999999999. NC2524.2
024900 02 ALPHA-LIT PICTURE X(5) VALUE SPACE. NC2524.2
025000 02 SNEG-LIT2 PICTURE S9(5) VALUE -70718. NC2524.2
025100 01 TEST-RESULTS. NC2524.2
025200 02 FILLER PIC X VALUE SPACE. NC2524.2
025300 02 FEATURE PIC X(20) VALUE SPACE. NC2524.2
025400 02 FILLER PIC X VALUE SPACE. NC2524.2
025500 02 P-OR-F PIC X(5) VALUE SPACE. NC2524.2
025600 02 FILLER PIC X VALUE SPACE. NC2524.2
025700 02 PAR-NAME. NC2524.2
025800 03 FILLER PIC X(19) VALUE SPACE. NC2524.2
025900 03 PARDOT-X PIC X VALUE SPACE. NC2524.2
026000 03 DOTVALUE PIC 99 VALUE ZERO. NC2524.2
026100 02 FILLER PIC X(8) VALUE SPACE. NC2524.2
026200 02 RE-MARK PIC X(61). NC2524.2
026300 01 TEST-COMPUTED. NC2524.2
026400 02 FILLER PIC X(30) VALUE SPACE. NC2524.2
026500 02 FILLER PIC X(17) VALUE NC2524.2
026600 " COMPUTED=". NC2524.2
026700 02 COMPUTED-X. NC2524.2
026800 03 COMPUTED-A PIC X(20) VALUE SPACE. NC2524.2
026900 03 COMPUTED-N REDEFINES COMPUTED-A NC2524.2
027000 PIC -9(9).9(9). NC2524.2
027100 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC2524.2
027200 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). NC2524.2
027300 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC2524.2
027400 03 CM-18V0 REDEFINES COMPUTED-A. NC2524.2
027500 04 COMPUTED-18V0 PIC -9(18). NC2524.2
027600 04 FILLER PIC X. NC2524.2
027700 03 FILLER PIC X(50) VALUE SPACE. NC2524.2
027800 01 TEST-CORRECT. NC2524.2
027900 02 FILLER PIC X(30) VALUE SPACE. NC2524.2
028000 02 FILLER PIC X(17) VALUE " CORRECT =". NC2524.2
028100 02 CORRECT-X. NC2524.2
028200 03 CORRECT-A PIC X(20) VALUE SPACE. NC2524.2
028300 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). NC2524.2
028400 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). NC2524.2
028500 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC2524.2
028600 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). NC2524.2
028700 03 CR-18V0 REDEFINES CORRECT-A. NC2524.2
028800 04 CORRECT-18V0 PIC -9(18). NC2524.2
028900 04 FILLER PIC X. NC2524.2
029000 03 FILLER PIC X(2) VALUE SPACE. NC2524.2
029100 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC2524.2
029200 01 CCVS-C-1. NC2524.2
029300 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC2524.2
029400- "SS PARAGRAPH-NAME NC2524.2
029500- " REMARKS". NC2524.2
029600 02 FILLER PIC X(20) VALUE SPACE. NC2524.2
029700 01 CCVS-C-2. NC2524.2
029800 02 FILLER PIC X VALUE SPACE. NC2524.2
029900 02 FILLER PIC X(6) VALUE "TESTED". NC2524.2
030000 02 FILLER PIC X(15) VALUE SPACE. NC2524.2
030100 02 FILLER PIC X(4) VALUE "FAIL". NC2524.2
030200 02 FILLER PIC X(94) VALUE SPACE. NC2524.2
030300 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC2524.2
030400 01 REC-CT PIC 99 VALUE ZERO. NC2524.2
030500 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC2524.2
030600 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC2524.2
030700 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC2524.2
030800 01 PASS-COUNTER PIC 999 VALUE ZERO. NC2524.2
030900 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC2524.2
031000 01 ERROR-HOLD PIC 999 VALUE ZERO. NC2524.2
031100 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC2524.2
031200 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC2524.2
031300 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC2524.2
031400 01 CCVS-H-1. NC2524.2
031500 02 FILLER PIC X(39) VALUE SPACES. NC2524.2
031600 02 FILLER PIC X(42) VALUE NC2524.2
031700 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2524.2
031800 02 FILLER PIC X(39) VALUE SPACES. NC2524.2
031900 01 CCVS-H-2A. NC2524.2
032000 02 FILLER PIC X(40) VALUE SPACE. NC2524.2
032100 02 FILLER PIC X(7) VALUE "CCVS85 ". NC2524.2
032200 02 FILLER PIC XXXX VALUE NC2524.2
032300 "4.2 ". NC2524.2
032400 02 FILLER PIC X(28) VALUE NC2524.2
032500 " COPY - NOT FOR DISTRIBUTION". NC2524.2
032600 02 FILLER PIC X(41) VALUE SPACE. NC2524.2
032700 NC2524.2
032800 01 CCVS-H-2B. NC2524.2
032900 02 FILLER PIC X(15) VALUE NC2524.2
033000 "TEST RESULT OF ". NC2524.2
033100 02 TEST-ID PIC X(9). NC2524.2
033200 02 FILLER PIC X(4) VALUE NC2524.2
033300 " IN ". NC2524.2
033400 02 FILLER PIC X(12) VALUE NC2524.2
033500 " HIGH ". NC2524.2
033600 02 FILLER PIC X(22) VALUE NC2524.2
033700 " LEVEL VALIDATION FOR ". NC2524.2
033800 02 FILLER PIC X(58) VALUE NC2524.2
033900 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2524.2
034000 01 CCVS-H-3. NC2524.2
034100 02 FILLER PIC X(34) VALUE NC2524.2
034200 " FOR OFFICIAL USE ONLY ". NC2524.2
034300 02 FILLER PIC X(58) VALUE NC2524.2
034400 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2524.2
034500 02 FILLER PIC X(28) VALUE NC2524.2
034600 " COPYRIGHT 1985 ". NC2524.2
034700 01 CCVS-E-1. NC2524.2
034800 02 FILLER PIC X(52) VALUE SPACE. NC2524.2
034900 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC2524.2
035000 02 ID-AGAIN PIC X(9). NC2524.2
035100 02 FILLER PIC X(45) VALUE SPACES. NC2524.2
035200 01 CCVS-E-2. NC2524.2
035300 02 FILLER PIC X(31) VALUE SPACE. NC2524.2
035400 02 FILLER PIC X(21) VALUE SPACE. NC2524.2
035500 02 CCVS-E-2-2. NC2524.2
035600 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC2524.2
035700 03 FILLER PIC X VALUE SPACE. NC2524.2
035800 03 ENDER-DESC PIC X(44) VALUE NC2524.2
035900 "ERRORS ENCOUNTERED". NC2524.2
036000 01 CCVS-E-3. NC2524.2
036100 02 FILLER PIC X(22) VALUE NC2524.2
036200 " FOR OFFICIAL USE ONLY". NC2524.2
036300 02 FILLER PIC X(12) VALUE SPACE. NC2524.2
036400 02 FILLER PIC X(58) VALUE NC2524.2
036500 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2524.2
036600 02 FILLER PIC X(13) VALUE SPACE. NC2524.2
036700 02 FILLER PIC X(15) VALUE NC2524.2
036800 " COPYRIGHT 1985". NC2524.2
036900 01 CCVS-E-4. NC2524.2
037000 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC2524.2
037100 02 FILLER PIC X(4) VALUE " OF ". NC2524.2
037200 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC2524.2
037300 02 FILLER PIC X(40) VALUE NC2524.2
037400 " TESTS WERE EXECUTED SUCCESSFULLY". NC2524.2
037500 01 XXINFO. NC2524.2
037600 02 FILLER PIC X(19) VALUE NC2524.2
037700 "*** INFORMATION ***". NC2524.2
037800 02 INFO-TEXT. NC2524.2
037900 04 FILLER PIC X(8) VALUE SPACE. NC2524.2
038000 04 XXCOMPUTED PIC X(20). NC2524.2
038100 04 FILLER PIC X(5) VALUE SPACE. NC2524.2
038200 04 XXCORRECT PIC X(20). NC2524.2
038300 02 INF-ANSI-REFERENCE PIC X(48). NC2524.2
038400 01 HYPHEN-LINE. NC2524.2
038500 02 FILLER PIC IS X VALUE IS SPACE. NC2524.2
038600 02 FILLER PIC IS X(65) VALUE IS "************************NC2524.2
038700- "*****************************************". NC2524.2
038800 02 FILLER PIC IS X(54) VALUE IS "************************NC2524.2
038900- "******************************". NC2524.2
039000 01 CCVS-PGM-ID PIC X(9) VALUE NC2524.2
039100 "NC252A". NC2524.2
039200 PROCEDURE DIVISION. NC2524.2
039300 CCVS1 SECTION. NC2524.2
039400 OPEN-FILES. NC2524.2
039500 OPEN OUTPUT PRINT-FILE. NC2524.2
039600 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC2524.2
039700 MOVE SPACE TO TEST-RESULTS. NC2524.2
039800 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC2524.2
039900 GO TO CCVS1-EXIT. NC2524.2
040000 CLOSE-FILES. NC2524.2
040100 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC2524.2
040200 TERMINATE-CCVS. NC2524.2
040300 STOP RUN. NC2524.2
040400 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC2524.2
040500 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC2524.2
040600 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC2524.2
040700 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC2524.2
040800 MOVE "****TEST DELETED****" TO RE-MARK. NC2524.2
040900 PRINT-DETAIL. NC2524.2
041000 IF REC-CT NOT EQUAL TO ZERO NC2524.2
041100 MOVE "." TO PARDOT-X NC2524.2
041200 MOVE REC-CT TO DOTVALUE. NC2524.2
041300 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC2524.2
041400 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC2524.2
041500 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC2524.2
041600 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC2524.2
041700 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC2524.2
041800 MOVE SPACE TO CORRECT-X. NC2524.2
041900 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC2524.2
042000 MOVE SPACE TO RE-MARK. NC2524.2
042100 HEAD-ROUTINE. NC2524.2
042200 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2524.2
042300 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2524.2
042400 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2524.2
042500 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2524.2
042600 COLUMN-NAMES-ROUTINE. NC2524.2
042700 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2524.2
042800 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2524.2
042900 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2524.2
043000 END-ROUTINE. NC2524.2
043100 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2524.2
043200 END-RTN-EXIT. NC2524.2
043300 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2524.2
043400 END-ROUTINE-1. NC2524.2
043500 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC2524.2
043600 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC2524.2
043700 ADD PASS-COUNTER TO ERROR-HOLD. NC2524.2
043800* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC2524.2
043900 MOVE PASS-COUNTER TO CCVS-E-4-1. NC2524.2
044000 MOVE ERROR-HOLD TO CCVS-E-4-2. NC2524.2
044100 MOVE CCVS-E-4 TO CCVS-E-2-2. NC2524.2
044200 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC2524.2
044300 END-ROUTINE-12. NC2524.2
044400 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC2524.2
044500 IF ERROR-COUNTER IS EQUAL TO ZERO NC2524.2
044600 MOVE "NO " TO ERROR-TOTAL NC2524.2
044700 ELSE NC2524.2
044800 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC2524.2
044900 MOVE CCVS-E-2 TO DUMMY-RECORD. NC2524.2
045000 PERFORM WRITE-LINE. NC2524.2
045100 END-ROUTINE-13. NC2524.2
045200 IF DELETE-COUNTER IS EQUAL TO ZERO NC2524.2
045300 MOVE "NO " TO ERROR-TOTAL ELSE NC2524.2
045400 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC2524.2
045500 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC2524.2
045600 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2524.2
045700 IF INSPECT-COUNTER EQUAL TO ZERO NC2524.2
045800 MOVE "NO " TO ERROR-TOTAL NC2524.2
045900 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC2524.2
046000 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC2524.2
046100 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2524.2
046200 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2524.2
046300 WRITE-LINE. NC2524.2
046400 ADD 1 TO RECORD-COUNT. NC2524.2
046500 IF RECORD-COUNT GREATER 50 NC2524.2
046600 MOVE DUMMY-RECORD TO DUMMY-HOLD NC2524.2
046700 MOVE SPACE TO DUMMY-RECORD NC2524.2
046800 WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC2524.2
046900 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC2524.2
047000 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC2524.2
047100 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC2524.2
047200 MOVE DUMMY-HOLD TO DUMMY-RECORD NC2524.2
047300 MOVE ZERO TO RECORD-COUNT. NC2524.2
047400 PERFORM WRT-LN. NC2524.2
047500 WRT-LN. NC2524.2
047600 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC2524.2
047700 MOVE SPACE TO DUMMY-RECORD. NC2524.2
047800 BLANK-LINE-PRINT. NC2524.2
047900 PERFORM WRT-LN. NC2524.2
048000 FAIL-ROUTINE. NC2524.2
048100 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2524.2
048200 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2524.2
048300 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2524.2
048400 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC2524.2
048500 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2524.2
048600 MOVE SPACES TO INF-ANSI-REFERENCE. NC2524.2
048700 GO TO FAIL-ROUTINE-EX. NC2524.2
048800 FAIL-ROUTINE-WRITE. NC2524.2
048900 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC2524.2
049000 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC2524.2
049100 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2524.2
049200 MOVE SPACES TO COR-ANSI-REFERENCE. NC2524.2
049300 FAIL-ROUTINE-EX. EXIT. NC2524.2
049400 BAIL-OUT. NC2524.2
049500 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC2524.2
049600 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC2524.2
049700 BAIL-OUT-WRITE. NC2524.2
049800 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC2524.2
049900 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2524.2
050000 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2524.2
050100 MOVE SPACES TO INF-ANSI-REFERENCE. NC2524.2
050200 BAIL-OUT-EX. EXIT. NC2524.2
050300 CCVS1-EXIT. NC2524.2
050400 EXIT. NC2524.2
050500 SECT-NC252A-001 SECTION. NC2524.2
050600 RDF-INIT. NC2524.2
050700 MOVE "REDEFINES " TO FEATURE. NC2524.2
050800 RDF-TEST-1. NC2524.2
050900 IF HARD NC2524.2
051000 MOVE RDF3-5-15 TO COMPUTED-A NC2524.2
051100 MOVE 6 TO CORRECT-A NC2524.2
051200 PERFORM FAIL NC2524.2
051300 GO TO RDF-WRITE-1. NC2524.2
051400* NOTE 88 LEVEL CONDITION TEST ON REDEFINED FIELD. NC2524.2
051500 PERFORM PASS. NC2524.2
051600 GO TO RDF-WRITE-1. NC2524.2
051700 RDF-DELETE-1. NC2524.2
051800 PERFORM DE-LETE. NC2524.2
051900 RDF-WRITE-1. NC2524.2
052000 MOVE "RDF-TEST-1 " TO PAR-NAME. NC2524.2
052100 PERFORM PRINT-DETAIL. NC2524.2
052200 RDF-TEST-2. NC2524.2
052300 IF RDF3-5-16 EQUAL TO 66 NC2524.2
052400 PERFORM PASS NC2524.2
052500 GO TO RDF-WRITE-2. NC2524.2
052600* NOTE USING A RENAMES DATANAME THAT IS ALSO REDEFINED. NC2524.2
052700 MOVE RDF3-5-16 TO COMPUTED-A. NC2524.2
052800 MOVE 66 TO CORRECT-A. NC2524.2
052900 PERFORM FAIL. NC2524.2
053000 GO TO RDF-WRITE-2. NC2524.2
053100 RDF-DELETE-2. NC2524.2
053200 PERFORM DE-LETE. NC2524.2
053300 RDF-WRITE-2. NC2524.2
053400 MOVE "RDF-TEST-2 " TO PAR-NAME. NC2524.2
053500 PERFORM PRINT-DETAIL. NC2524.2
053600 RDF-TEST-003. NC2524.2
053700 IF AN0002-O036F-X-0002 (8) EQUAL TO "LK" NC2524.2
053800 PERFORM PASS NC2524.2
053900 GO TO RDF-WRITE-003. NC2524.2
054000* NC2524.2
054100* NOTE REFERENCING SUBSCRIPTED DATA ITEM WHICH IS NC2524.2
054200* SUBORDINATE TO A REDEFINES CLAUSE. NC2524.2
054300* NC2524.2
054400 MOVE AN0002-O036F-X-0002 (8) TO COMPUTED-A. NC2524.2
054500 MOVE "LK" TO CORRECT-A. NC2524.2
054600 PERFORM FAIL. NC2524.2
054700 GO TO RDF-WRITE-003. NC2524.2
054800 RDF-DELETE-003. NC2524.2
054900 PERFORM DE-LETE. NC2524.2
055000 RDF-WRITE-003. NC2524.2
055100 MOVE "RDF-TEST-003" TO PAR-NAME. NC2524.2
055200 PERFORM PRINT-DETAIL. NC2524.2
055300 RDF-TEST-4. NC2524.2
055400 IF RDFDATA7 EQUAL TO "ABC98765DE911644ALLD" NC2524.2
055500 PERFORM PASS NC2524.2
055600 GO TO RDF-WRITE-4. NC2524.2
055700* NOTE THIS IS THE FIRST REFERENCE TO THESE REDEFINED NC2524.2
055800* DATANAMES, SO, THE FIELDS CONTAIN THE WORKING-STORAGE NC2524.2
055900* ASSIGNED VALUES. NC2524.2
056000 MOVE RDFDATA7 TO COMPUTED-A. NC2524.2
056100 MOVE "ABC98765DE911644ALLD" TO CORRECT-A. NC2524.2
056200 PERFORM FAIL. NC2524.2
056300 GO TO RDF-WRITE-4. NC2524.2
056400 RDF-DELETE-4. NC2524.2
056500 PERFORM DE-LETE. NC2524.2
056600 RDF-WRITE-4. NC2524.2
056700 MOVE "RDF-TEST-4 " TO PAR-NAME. NC2524.2
056800 PERFORM PRINT-DETAIL. NC2524.2
056900 RDF-TEST-5. NC2524.2
057000 IF RDFDATA8 (13) EQUAL TO "HG" NC2524.2
057100 PERFORM PASS NC2524.2
057200 GO TO RDF-WRITE-5. NC2524.2
057300 MOVE "HG" TO CORRECT-A. NC2524.2
057400 MOVE RDFDATA8 (13) TO COMPUTED-A. NC2524.2
057500 PERFORM FAIL. NC2524.2
057600 GO TO RDF-WRITE-5. NC2524.2
057700 RDF-DELETE-5. NC2524.2
057800 PERFORM DE-LETE. NC2524.2
057900 RDF-WRITE-5. NC2524.2
058000 MOVE "RDF-TEST-5 " TO PAR-NAME. NC2524.2
058100 PERFORM PRINT-DETAIL. NC2524.2
058200 RDF-TEST-6. NC2524.2
058300 IF RDFDATA2 EQUAL TO 9116.44 NC2524.2
058400 PERFORM PASS NC2524.2
058500 GO TO RDF-WRITE-6. NC2524.2
058600 MOVE 9116.44 TO COMPUTED-N. NC2524.2
058700 MOVE RDFDATA2 TO CORRECT-N. NC2524.2
058800 PERFORM FAIL. NC2524.2
058900 GO TO RDF-WRITE-6. NC2524.2
059000 RDF-DELETE-6. NC2524.2
059100 PERFORM DE-LETE. NC2524.2
059200 RDF-WRITE-6. NC2524.2
059300 MOVE "RDF-TEST-6 " TO PAR-NAME. NC2524.2
059400 PERFORM PRINT-DETAIL. NC2524.2
059500 RDF-TEST-7. NC2524.2
059600 IF RDFDATA16 EQUAL TO 66 NC2524.2
059700 PERFORM PASS NC2524.2
059800 GO TO RDF-WRITE-7. NC2524.2
059900 MOVE RDFDATA16 TO COMPUTED-A. NC2524.2
060000 MOVE 66 TO CORRECT-A. NC2524.2
060100 PERFORM FAIL. NC2524.2
060200 GO TO RDF-WRITE-7. NC2524.2
060300 RDF-DELETE-7. NC2524.2
060400 PERFORM DE-LETE. NC2524.2
060500 RDF-WRITE-7. NC2524.2
060600 MOVE "RDF-TEST-7 " TO PAR-NAME. NC2524.2
060700 PERFORM PRINT-DETAIL. NC2524.2
060800 RDF-TEST-8. NC2524.2
060900 MOVE SPACE TO REDEF12. NC2524.2
061000 IF REDEF11 EQUAL TO SPACE NC2524.2
061100 PERFORM PASS NC2524.2
061200 GO TO RDF-WRITE-8. NC2524.2
061300 MOVE "SPACE EXPECTED " TO CORRECT-A. NC2524.2
061400 MOVE "NON BLANK CHARACTERS" TO COMPUTED-A. NC2524.2
061500 MOVE "REDEF11 CONTAINS NON BLANKS" TO RE-MARK. NC2524.2
061600 PERFORM FAIL. NC2524.2
061700 GO TO RDF-WRITE-8. NC2524.2
061800 RDF-DELETE-8. NC2524.2
061900 PERFORM DE-LETE. NC2524.2
062000 RDF-WRITE-8. NC2524.2
062100 MOVE "RDF-TEST-8 " TO PAR-NAME. NC2524.2
062200 PERFORM PRINT-DETAIL. NC2524.2
062300 RDF-TEST-9. NC2524.2
062400 MOVE ZERO TO REDEF12. NC2524.2
062500 MOVE SPACE TO REDEF11. NC2524.2
062600* NOTE CHECKS RDFDATA18 WHICH SHOULD NOT BE DISTURBED BY THE NC2524.2
062700* MOVE SPACE STATEMENT TO A SHORTER REDEFINED AREA. NC2524.2
062800 IF RDFDATA18 EQUAL TO ZERO NC2524.2
062900 PERFORM PASS NC2524.2
063000 GO TO RDF-WRITE-9. NC2524.2
063100 MOVE "00000000000000" TO CORRECT-A. NC2524.2
063200 MOVE RDFDATA18 TO COMPUTED-A. NC2524.2
063300 PERFORM FAIL. NC2524.2
063400 GO TO RDF-WRITE-9. NC2524.2
063500 RDF-DELETE-9. NC2524.2
063600 PERFORM DE-LETE. NC2524.2
063700 RDF-WRITE-9. NC2524.2
063800 MOVE "RDF-TEST-9 " TO PAR-NAME. NC2524.2
063900 PERFORM PRINT-DETAIL. NC2524.2
064000 RDF-TEST-10. NC2524.2
064100 MOVE ZERO TO REDEF12. NC2524.2
064200 MOVE "MOVING DATA TO A REDEFINED FIELD CAN BE RISKY " NC2524.2
064300 TO REDEF10. NC2524.2
064400 IF RDFDATA8 (14) EQUAL TO "00" NC2524.2
064500 PERFORM PASS NC2524.2
064600 GO TO RDF-WRITE-10. NC2524.2
064700 MOVE 00 TO CORRECT-A. NC2524.2
064800 MOVE RDFDATA8 (14) TO COMPUTED-A. NC2524.2
064900 PERFORM FAIL. NC2524.2
065000 GO TO RDF-WRITE-10. NC2524.2
065100 RDF-DELETE-10. NC2524.2
065200 PERFORM DE-LETE. NC2524.2
065300 RDF-WRITE-10. NC2524.2
065400 MOVE "RDF-TEST-10 " TO PAR-NAME. NC2524.2
065500 PERFORM PRINT-DETAIL. NC2524.2
065600 RDF-INIT-11. NC2524.2
065700 MOVE REDEF13 TO REDEF12. NC2524.2
065800 MOVE "RDF-TEST-11 " TO PAR-NAME. NC2524.2
065900 RDF-TEST-11. NC2524.2
066000 IF REDEF10 EQUAL TO NC2524.2
066100 "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" NC2524.2
066200 PERFORM PASS NC2524.2
066300 PERFORM PRINT-DETAIL NC2524.2
066400 GO TO RDF-TEST-12. NC2524.2
066500 MOVE 1 TO REC-CT. NC2524.2
066600 MOVE REDEF10 TO WS-46. NC2524.2
066700 MOVE "AAAAAAAAAAAAAAAAAAAA" TO CORRECT-A. NC2524.2
066800 MOVE WS-1-20 TO COMPUTED-A. NC2524.2
066900 MOVE "FIELDS DIDNT COMPARE EQUAL " TO RE-MARK. NC2524.2
067000 PERFORM FAIL. NC2524.2
067100 PERFORM PRINT-DETAIL. NC2524.2
067200 ADD 1 TO REC-CT. NC2524.2
067300 MOVE "AAAAAAAAAAAAAAAAAAAA" TO CORRECT-A. NC2524.2
067400 MOVE WS-21-40 TO COMPUTED-A. NC2524.2
067500 MOVE "FIELDS DIDNT COMPARE EQUAL " TO RE-MARK. NC2524.2
067600 PERFORM FAIL. NC2524.2
067700 PERFORM PRINT-DETAIL. NC2524.2
067800 ADD 1 TO REC-CT. NC2524.2
067900 MOVE "AAAAAA" TO CORRECT-A. NC2524.2
068000 MOVE WS-41-46 TO COMPUTED-A. NC2524.2
068100 MOVE "FIELDS DIDNT COMPARE EQUAL " TO RE-MARK. NC2524.2
068200 PERFORM FAIL. NC2524.2
068300 PERFORM PRINT-DETAIL. NC2524.2
068400 GO TO RDF-TEST-12. NC2524.2
068500 RDF-DELETE-11. NC2524.2
068600 PERFORM DE-LETE. NC2524.2
068700 RDF-TEST-12. NC2524.2
068800 MOVE 11 TO RDFDATA16. NC2524.2
068900* NOTE 88 LEVEL TEST ON REDEFINED AREA. NC2524.2
069000 IF SOFT NC2524.2
069100 PERFORM PASS NC2524.2
069200 ELSE NC2524.2
069300 MOVE "CONDITION-NAME TEST" TO RE-MARK NC2524.2
069400 PERFORM FAIL. NC2524.2
069500 GO TO RDF-WRITE-12. NC2524.2
069600 RDF-DELETE-12. NC2524.2
069700 PERFORM DE-LETE. NC2524.2
069800 RDF-WRITE-12. NC2524.2
069900 MOVE "RDF-TEST-12" TO PAR-NAME. NC2524.2
070000 PERFORM PRINT-DETAIL. NC2524.2
070100 RDF-TEST-13. NC2524.2
070200 MOVE REDEF13 TO REDEF12. NC2524.2
070300 MOVE SPACE TO REDEF10. NC2524.2
070400 IF RDF8-7 EQUAL TO SPACE NC2524.2
070500 MOVE RDF8-7 TO COMPUTED-A NC2524.2
070600 MOVE "AAAA" TO CORRECT-A NC2524.2
070700 PERFORM FAIL NC2524.2
070800 GO TO RDF-WRITE-13. NC2524.2
070900 PERFORM PASS. NC2524.2
071000 GO TO RDF-WRITE-13. NC2524.2
071100 RDF-DELETE-13. NC2524.2
071200 PERFORM DE-LETE. NC2524.2
071300 RDF-WRITE-13. NC2524.2
071400 MOVE "RDF-TEST-13 " TO PAR-NAME. NC2524.2
071500 PERFORM PRINT-DETAIL. NC2524.2
071600 RDF-TEST-14. NC2524.2
071700 MOVE SPACE TO REDEF12. NC2524.2
071800 MOVE REDEF13 TO REDEF10. NC2524.2
071900 IF RDF8-3 EQUAL TO "AAAAAAAAA" NC2524.2
072000 MOVE RDF8-3 TO COMPUTED-A NC2524.2
072100 MOVE SPACE TO CORRECT-A NC2524.2
072200 PERFORM FAIL NC2524.2
072300 GO TO RDF-WRITE-14. NC2524.2
072400 PERFORM PASS. NC2524.2
072500 GO TO RDF-WRITE-14. NC2524.2
072600 RDF-DELETE-14. NC2524.2
072700 PERFORM DE-LETE. NC2524.2
072800 RDF-WRITE-14. NC2524.2
072900 MOVE "RDF-TEST-14 " TO PAR-NAME. NC2524.2
073000 PERFORM PRINT-DETAIL. NC2524.2
073100 RNM-INIT. NC2524.2
073200 PERFORM END-ROUTINE. NC2524.2
073300 MOVE "RENAMES" TO FEATURE. NC2524.2
073400 RENAM-TEST-1. NC2524.2
073500 MOVE "AB" TO NAME1A. NC2524.2
073600 MOVE "CD" TO NAME1B. NC2524.2
073700 IF RENAME4 EQUAL TO "ABCD " NC2524.2
073800 PERFORM PASS NC2524.2
073900 GO TO RNM-WRITE-1. NC2524.2
074000 MOVE RENAME4 TO COMPUTED-A. NC2524.2
074100 MOVE "ABCD" TO CORRECT-A. NC2524.2
074200* NOTE CORRECT ANSWER IS ABCD-BLANK. NC2524.2
074300 PERFORM FAIL. NC2524.2
074400 GO TO RNM-WRITE-1. NC2524.2
074500 RNM-DELETE-1. NC2524.2
074600 PERFORM DE-LETE. NC2524.2
074700 RNM-WRITE-1. NC2524.2
074800 MOVE "RENAM-TEST-1" TO PAR-NAME. NC2524.2
074900 PERFORM PRINT-DETAIL. NC2524.2
075000 RENAM-TEST-2. NC2524.2
075100 MOVE ALL "A" TO RENAMES-DATA. NC2524.2
075200 IF RENAME3 EQUAL TO "AAAAAAAAAA" NC2524.2
075300 PERFORM PASS NC2524.2
075400 GO TO RNM-WRITE-2. NC2524.2
075500 MOVE RENAME3 TO COMPUTED-A. NC2524.2
075600 MOVE "AAAAAAAAAA" TO CORRECT-A. NC2524.2
075700 PERFORM FAIL. NC2524.2
075800 GO TO RNM-WRITE-2. NC2524.2
075900 RNM-DELETE-2. NC2524.2
076000 PERFORM DE-LETE. NC2524.2
076100 RNM-WRITE-2. NC2524.2
076200 MOVE "RENAM-TEST-2" TO PAR-NAME. NC2524.2
076300 PERFORM PRINT-DETAIL. NC2524.2
076400 RENAM-TEST-3. NC2524.2
076500 MOVE ALL "A" TO RENAMES-DATA. NC2524.2
076600 MOVE ALL "X" TO RENAME1. NC2524.2
076700 IF NAME1 NOT EQUAL TO "XXXXX" GO TO RNM-FAIL-3. NC2524.2
076800 IF NAME2 NOT EQUAL TO "XXXXXXXXXX" GO TO RNM-FAIL-3. NC2524.2
076900 IF NAME3 NOT EQUAL TO "XXXXX" GO TO RNM-FAIL-3. NC2524.2
077000 PERFORM PASS. NC2524.2
077100 GO TO RNM-WRITE-3. NC2524.2
077200 RNM-DELETE-3. NC2524.2
077300 PERFORM DE-LETE. NC2524.2
077400 GO TO RNM-WRITE-3. NC2524.2
077500 RNM-FAIL-3. NC2524.2
077600 MOVE RENAMES-DATA TO COMPUTED-A. NC2524.2
077700 MOVE "XXXXXXXXXXXXXXXXXXXX" TO CORRECT-A. NC2524.2
077800 PERFORM FAIL. NC2524.2
077900 RNM-WRITE-3. NC2524.2
078000 MOVE "RENAM-TEST-3" TO PAR-NAME. NC2524.2
078100 PERFORM PRINT-DETAIL. NC2524.2
078200 RENAM-TEST-4. NC2524.2
078300 IF RENAMES-TEST-1 EQUAL TO 123 NC2524.2
078400 PERFORM PASS NC2524.2
078500 GO TO RENAM-WRITE-4. NC2524.2
078600 MOVE RENAMES-TEST-1 TO COMPUTED-A. NC2524.2
078700 MOVE 123 TO CORRECT-A. NC2524.2
078800 PERFORM FAIL. NC2524.2
078900 GO TO RENAM-WRITE-4. NC2524.2
079000 RENAM-DELETE-4. NC2524.2
079100 PERFORM DE-LETE. NC2524.2
079200 RENAM-WRITE-4. NC2524.2
079300 MOVE "RENAM-TEST-4" TO PAR-NAME. NC2524.2
079400 PERFORM PRINT-DETAIL. NC2524.2
079500 RENAM-TEST-5. NC2524.2
079600 IF RENAMES-TEST-3 EQUAL TO "X 123" NC2524.2
079700 PERFORM PASS NC2524.2
079800 GO TO RENAM-WRITE-5. NC2524.2
079900 MOVE RENAMES-TEST-3 TO COMPUTED-A. NC2524.2
080000 MOVE "X 123" TO CORRECT-A. NC2524.2
080100 PERFORM FAIL. NC2524.2
080200 GO TO RENAM-WRITE-5. NC2524.2
080300 RENAM-DELETE-5. NC2524.2
080400 PERFORM DE-LETE. NC2524.2
080500 RENAM-WRITE-5. NC2524.2
080600 MOVE "RENAM-TEST-5" TO PAR-NAME. NC2524.2
080700 PERFORM PRINT-DETAIL. NC2524.2
080800 RENAM-TEST-6. NC2524.2
080900 IF RENAMES-TEST-4 EQUAL TO "X 123" NC2524.2
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.116 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.
|
