|
000100 IDENTIFICATION DIVISION. NC1074.2
000200 PROGRAM-ID. NC1074.2
000300 NC107A. NC1074.2
000400**************************************************************** NC1074.2
000500* * NC1074.2
000600* VALIDATION FOR:- * NC1074.2
000700* * NC1074.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1074.2
000900* * NC1074.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1074.2
001100* * NC1074.2
001200**************************************************************** NC1074.2
001300* * NC1074.2
001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC1074.2
001500* * NC1074.2
001600* X-55 - SYSTEM PRINTER NAME. * NC1074.2
001700* X-82 - SOURCE COMPUTER NAME. * NC1074.2
001800* X-83 - OBJECT COMPUTER NAME. * NC1074.2
001900* * NC1074.2
002000**************************************************************** NC1074.2
002100* NC1074.2
002200* PROGRAM NC107A TESTS THE FOLLOWING FEATURES: NC1074.2
002300* NC1074.2
002400* FIGURATIVE CONSTANTS NC1074.2
002500* CONTINUATION LINES NC1074.2
002600* SEPARATORS NC1074.2
002700* JUSTIFIED CLAUSE NC1074.2
002800* SYNCHRONISED CLAUSE NC1074.2
002900* BLANK WHEN ZERO CLAUSE NC1074.2
003000* MAXIMUM LENGTH DATA-NAMES, LITERALS NC1074.2
003100* AND PARAGRAPH-NAMES. NC1074.2
003200* REDEFINES CLAUSE NC1074.2
003300* USAGE CLAUSE NC1074.2
003400* VALUE CLAUSE NC1074.2
003500* CURRENCY SIGN CLAUSE NC1074.2
003600* DECIMAL-POINT IS COMMA CLAUSE NC1074.2
003700* NUMERIC PARAGRAPH NAMES NC1074.2
003800* CONTINUE STATEMENT NC1074.2
003900 NC1074.2
004000 ENVIRONMENT DIVISION. NC1074.2
004100 CONFIGURATION SECTION. NC1074.2
004200 SOURCE-COMPUTER. NC1074.2
004300 Card0130. NC1074.2
004400 OBJECT-COMPUTER. NC1074.2
004500 Card0131. NC1074.2
004600 SPECIAL-NAMES. NC1074.2
004700 CURRENCY SIGN IS "W" NC1074.2
004800 DECIMAL-POINT IS COMMA. NC1074.2
004900 INPUT-OUTPUT SECTION. NC1074.2
005000 FILE-CONTROL. NC1074.2
005100 SELECT PRINT-FILE ASSIGN TO NC1074.2
005200 "C0085" . NC1074.2
005300 DATA DIVISION. NC1074.2
005400 FILE SECTION. NC1074.2
005500 FD PRINT-FILE. NC1074.2
005600 01 PRINT-REC PICTURE X(120). NC1074.2
005700 01 DUMMY-RECORD PICTURE X(120). NC1074.2
005800 WORKING-STORAGE SECTION. NC1074.2
005900 01 SUB1 PIC S9(3) COMP. NC1074.2
006000 01 SUB2 PIC S9(3) COMP. NC1074.2
006100 01 TAB-LOC. NC1074.2
006200 03 FILLER PIC X(16) VALUE "TABLE LOCATION: ". NC1074.2
006300 03 TAB1 PIC ZZ9. NC1074.2
006400 03 FILLER PIC XX VALUE ", ". NC1074.2
006500 03 TAB2 PIC ZZ9. NC1074.2
006600 77 DATA-A PICTURE IS X(10). NC1074.2
006700 77 DATA-B PICTURE IS 9(5). NC1074.2
006800 77 DATA-C PICTURE IS 9(5). NC1074.2
006900 77 DATA-D PICTURE IS X(10) NC1074.2
007000 JUSTIFIED RIGHT. NC1074.2
007100 77 DATA-E PICTURE IS A(9) NC1074.2
007200 JUSTIFIED. NC1074.2
007300 77 DATA-F PICTURE IS 9(10) NC1074.2
007400 BLANK WHEN ZERO. NC1074.2
007500 77 DATA-G SYNCHRONIZED RIGHT PICTURE X(5) NC1074.2
007600 VALUE IS "VWXYZ". NC1074.2
007700 77 DATA-H PICTURE IS X(5) NC1074.2
007800 VALUE IS "VWXYZ". NC1074.2
007900 77 DATA-I PICTURE IS 9999 NC1074.2
008000 VALUE IS 12. NC1074.2
008100 77 DATA-J PICTURE IS XXXXX. NC1074.2
008200 77 DATA-K PICTURE IS 9999999V99 NC1074.2
008300 VALUE IS 1234567,89. NC1074.2
008400 77 DATA-L PICTURE IS 9.999.999,99. NC1074.2
008500 77 DATA-M PICTURE IS X9999 NC1074.2
008600 BLANK WHEN ZERO. NC1074.2
008700 77 DATA-N PICTURE IS X(16) NC1074.2
008800 VALUE IS "4 SPACES ON LEFT". NC1074.2
008900 77 DATA-O PICTURE IS X(20) NC1074.2
009000 JUSTIFIED RIGHT. NC1074.2
009100 77 DATA-P PICTURE 999 VALUE "000" BLANK WHEN ZERO. NC1074.2
009200 77 DATA-P1 REDEFINES DATA-P PICTURE XXX. NC1074.2
009300 77 DATA-Q VALUE "QUOTE IN COL. 72"NC1074.2
009400 PICTURE X(16). NC1074.2
009500 77 DATA-R VALUE "LITERAL ENDS AT 72NC1074.2
009600- "" NC1074.2
009700 PICTURE X(18). NC1074.2
009800 77 DATA-S PICTURE X(20) VALUE "OFFSET NC1074.2
009900- "CONTINUATION ". NC1074.2
010000 77 DATA-T PICTURE X(20) VALUE "OFFSET CONTINUATION NC1074.2
010100- "". NC1074.2
010200 77 DATA-U PICTURE X(20) VALUE "OFFNC1074.2
010300- "SETNC1074.2
010400- " CONC1074.2
010500- "NTINC1074.2
010600- "NUANC1074.2
010700- "TNC1074.2
010800- "IONNC1074.2
010900- " ".NC1074.2
011000 77 DATA-V PICTURE X(20) VALUE SPACE. NC1074.2
011100 77 DATA-W PICTURE X(20) VALUE NC1074.2
011200 "OFFSET CONTINUATION ". NC1074.2
011300 77 NUM-UTILITY PICTURE 9999 NC1074.2
011400 VALUE ZERO. NC1074.2
011500 01 WRK-XN-160-1 PIC X(160) VALUE NC1074.2
011600 """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""NC1074.2
011700- """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""NC1074.2
011800- """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""NC1074.2
011900- """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""NC1074.2
012000- """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""NC1074.2
012100- """""""""""""""""""""". NC1074.2
012200 01 CHARACTER-BREAKDOWN-R. NC1074.2
012300 02 FIRST-20R PICTURE X(20). NC1074.2
012400 02 SECOND-20R PICTURE X(20). NC1074.2
012500 02 THIRD-20R PICTURE X(20). NC1074.2
012600 02 FOURTH-20R PICTURE X(20). NC1074.2
012700 01 CHARACTER-BREAKDOWN-S. NC1074.2
012800 02 FIRST-20S PICTURE X(20). NC1074.2
012900 02 SECOND-20S PICTURE X(20). NC1074.2
013000 02 THIRD-20S PICTURE X(20). NC1074.2
013100 02 FOURTH-20S PICTURE X(20). NC1074.2
013200 01 X80-CHARACTER-FIELD. NC1074.2
013300 02 FILLER PICTURE X(80). NC1074.2
013400 01 A-DATA-NAME-30-CHARACTERS-LONG PICTURE IS X. NC1074.2
013500 01 LONG-PICTURE PICTURE IS NC1074.2
013600 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. NC1074.2
013700 01 LONG-NUMBER PICTURE 999999999V999999999 NC1074.2
013800 VALUE IS 211113411,114311112. NC1074.2
013900 01 LONG-LITERAL. NC1074.2
014000 02 LONG20 PICTURE IS X(20) NC1074.2
014100 VALUE IS "STANDARD COMPILERS M". NC1074.2
014200 02 LONG40 PICTURE IS X(20) NC1074.2
014300 VALUE IS "UST ALLOW NON-NUMERI". NC1074.2
014400 02 LONG60 PICTURE IS X(20) NC1074.2
014500 VALUE IS "C LITERALS OF AT LEA". NC1074.2
014600 02 LONG80 PICTURE IS X(20) NC1074.2
014700 VALUE IS "ST 120 CHARACTERS AN". NC1074.2
014800 02 LONG100 PICTURE IS X(20) NC1074.2
014900 VALUE IS "D NUMERIC LITERALS O". NC1074.2
015000 02 LONG120 PICTURE IS X(20) NC1074.2
015100 VALUE IS "F AT LEAST 18 DIGITS". NC1074.2
015200 02 LONG140 PICTURE IS X(20) NC1074.2
015300 VALUE IS " BUT NOW EXTENDED UP". NC1074.2
015400 02 LONG160 PICTURE IS X(20) NC1074.2
015500 VALUE IS "TO 160 DIGITS FOR 8X". NC1074.2
015600 01 LONG-PICTURE-A PICTURE X(000000000000000020). NC1074.2
015700 01 LONG-PICTURE-B PICTURE X(15) JUSTIFIED RIGHT. NC1074.2
015800 01 LONG-PICTURE-C PICTURE X(000000000000000010). NC1074.2
015900 01 REDEF1 PICTURE IS 9 VALUE IS 9. NC1074.2
016000 01 REDEF2 REDEFINES REDEF1 PICTURE IS X. NC1074.2
016100 01 REDEF3 PICTURE IS XXX NC1074.2
016200 VALUE IS "ABC". NC1074.2
016300 01 REDEF4 REDEFINES REDEF3 PICTURE IS A. NC1074.2
016400 01 REDEF5 PICTURE IS X(6) NC1074.2
016500 VALUE IS "UVWXYZ". NC1074.2
016600 01 REDEF6 REDEFINES REDEF5 PICTURE IS 9(6). NC1074.2
016700 01 REDEF7 REDEFINES REDEF5 PICTURE IS A(6). NC1074.2
016800 01 REDEF8 REDEFINES REDEF5. NC1074.2
016900 02 REDEF8X. NC1074.2
017000 03 REDEF8A PICTURE IS XX. NC1074.2
017100 03 REDEF8B PICTURE IS 99. NC1074.2
017200 02 REDEF8C PICTURE IS AA. NC1074.2
017300 01 REDEF9 REDEFINES REDEF5 PICTURE IS X(6). NC1074.2
017400 01 REDEF10. NC1074.2
017500 02 RDFDATA1 PICTURE X(10) VALUE "ABC98765DE".NC1074.2
017600 02 RDFDATA2 PIC 9(4)V99 VALUE 9116,44. NC1074.2
017700 02 RDFDATA3. NC1074.2
017800 08 RDFDATA4 PICTURE X(6) VALUE "ALLDON". NC1074.2
017900 08 RDFDATA5 PICTURE XX99 VALUE "XX66". NC1074.2
018000 02 RDFDATA6 PICTURE A(20) VALUE NC1074.2
018100 NC1074.2
018200 "ZYXWVUTSRQPONMLKJIHG". NC1074.2
018300 01 REDEF11 REDEFINES REDEF10. NC1074.2
018400 02 RDFDATA7 PICTURE X(20). NC1074.2
018500 02 RDF8. NC1074.2
018600 03 RDFDATA8 OCCURS 36 TIMES PICTURE XX. NC1074.2
018700 01 REDEF12 REDEFINES REDEF10. NC1074.2
018800 02 RDFDATA9 PICTURE A(3). NC1074.2
018900 02 RDFDATA10 PICTURE 9(5). NC1074.2
019000 02 RDFDATA11. NC1074.2
019100 03 RDFDATA12. NC1074.2
019200 04 RDFDATA13 PICTURE XX. NC1074.2
019300 04 RDFDATA14 OCCURS 6 TIMES PICTURE 9. NC1074.2
019400 03 RDFDATA15 PICTURE X(8). NC1074.2
019500 02 RDFDATA16 PICTURE 99. NC1074.2
019600 02 RDFDATA17 PICTURE X(80). NC1074.2
019700 02 RDFDATA18 PICTURE X(14). NC1074.2
019800 01 REDEF13. NC1074.2
019900 02 FILLER PICTURE X(57) VALUE NC1074.2
020000 "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA". NC1074.2
020100 02 FILLER PICTURE X(57) VALUE NC1074.2
020200 "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA". NC1074.2
020300 02 FILLER PICTURE X(6) VALUE "AAAAAA". NC1074.2
020400 01 REDEF20. NC1074.2
020500 03 REDEF21 PICTURE X(10). NC1074.2
020600 03 REDEF22 REDEFINES REDEF21 NC1074.2
020700 PIC X(10). NC1074.2
020800 03 REDEF23 REDEFINES REDEF21 NC1074.2
020900 PIC X(9). NC1074.2
021000 01 U1. NC1074.2
021100 02 U2 PICTURE 9 USAGE IS NC1074.2
021200 DISPLAY VALUE IS 9. NC1074.2
021300 02 U3 PICTURE IS 9 USAGE IS NC1074.2
021400 COMPUTATIONAL VALUE IS 9. NC1074.2
021500 02 U4 PICTURE IS 9 USAGE IS NC1074.2
021600 DISPLAY VALUE IS 9. NC1074.2
021700 02 U5 USAGE IS COMPUTATIONAL. NC1074.2
021800 03 U6 PICTURE IS 9 USAGE IS NC1074.2
021900 COMPUTATIONAL VALUE IS 5. NC1074.2
022000 03 U7 PICTURE IS 9 VALUE IS 6. NC1074.2
022100 02 U8 PICTURE IS X. NC1074.2
022200 01 U9 USAGE COMPUTATIONAL. NC1074.2
022300 02 U10 PICTURE 9. NC1074.2
022400 02 U11 PICTURE 9 COMPUTATIONAL. NC1074.2
022500 01 U12. NC1074.2
022600 02 U13 PICTURE 9 USAGE IS BINARY NC1074.2
022700 VALUE 3. NC1074.2
022800 02 U14 PICTURE 9 USAGE IS BINARY NC1074.2
022900 VALUE 3. NC1074.2
023000 01 U22. NC1074.2
023100 02 U23 PICTURE 9 USAGE IS BINARY NC1074.2
023200 VALUE 4. NC1074.2
023300 02 U24 PICTURE 9 USAGE IS BINARY NC1074.2
023400 VALUE 4. NC1074.2
023500* NC1074.2
023600* TWO-DIMENSIONAL TABLE USED IN VALUE CLAUSE: NC1074.2
023700* NC1074.2
023800 01 VALUE-TABLE. NC1074.2
023900 03 VALUE-TABLE-1 OCCURS 10. NC1074.2
024000 05 VALUE-TABLE-2 OCCURS 10 NC1074.2
024100 PIC XX VALUE "AZ". NC1074.2
024200* NC1074.2
024300* NC1074.2
024400 01 TEST-FIELD PIC X(10). NC1074.2
024500* NC1074.2
024600* NC1074.2
024700 01 SEP-01. 02 SEP-02. 03 SEP-03. 04 SEP-04 PICTURE X(9) VALUE NC1074.2
024800 "SEPARATOR". NC1074.2
024900* NC1074.2
025000* GROUP ITEMS USED IN JUSTIFIED TESTS. NC1074.2
025100* NC1074.2
025200 01 GROUP-TO-JUST-1. NC1074.2
025300 02 FILLER PICTURE X VALUE "A". NC1074.2
025400 02 FILLER PICTURE X VALUE "B". NC1074.2
025500 02 FILLER PICTURE X VALUE "C". NC1074.2
025600 01 GROUP-TO-JUST-2. NC1074.2
025700 02 GROUP-TO-JUST-21. NC1074.2
025800 03 FILLER PICTURE X(5) VALUE "ABCDE". NC1074.2
025900 03 FILLER PICTURE X(2) VALUE "FG". NC1074.2
026000 02 FILLER PICTURE X(8) VALUE "HIJKLMNO". NC1074.2
026100 01 GROUP-FOR-JUST-TESTS. NC1074.2
026200 02 NJUST-XN-3 PICTURE X(3) VALUE "ABC". NC1074.2
026300 02 NJUST-XN-5 PICTURE X(5) VALUE "CDEFG". NC1074.2
026400 02 NJUST-XN-15 PICTURE X(15) VALUE "ABCDEFGHIJKLMNO". NC1074.2
026500* NC1074.2
026600* DATA ITEMS WITH JUSTIFIED CLAUSE. NC1074.2
026700* NC1074.2
026800 01 XJ-00005 PICTURE X(5) JUSTIFIED RIGHT. NC1074.2
026900 01 AJ-00005 PICTURE A(5) JUSTIFIED RIGHT. NC1074.2
027000 01 XJ-00007 PICTURE X(7) JUST RIGHT. NC1074.2
027100 01 AJ-00007 PICTURE A(7) JUSTIFIED. NC1074.2
027200 01 GROUP-WITH-JUST-ITEMS. NC1074.2
027300 02 XN-00005-NJUST PICTURE X(5). NC1074.2
027400 02 XJ-00009 PICTURE X(9) JUST. NC1074.2
027500 02 AJ-00009 PICTURE A(9) JUST. NC1074.2
027600* NC1074.2
027700* INITIALIZATION TAKES PLACE INDEPENDENT OF ANY NC1074.2
027800* JUSTIFIED CLAUSE. NC1074.2
027900* NC1074.2
028000 01 XJ-00002 PICTURE X(2) JUST VALUE "AB". NC1074.2
028100 01 XJ-00003 PICTURE X(3) JUST VALUE "XY". NC1074.2
028200 01 TEST-RESULTS. NC1074.2
028300 02 FILLER PIC X VALUE SPACE. NC1074.2
028400 02 FEATURE PIC X(20) VALUE SPACE. NC1074.2
028500 02 FILLER PIC X VALUE SPACE. NC1074.2
028600 02 P-OR-F PIC X(5) VALUE SPACE. NC1074.2
028700 02 FILLER PIC X VALUE SPACE. NC1074.2
028800 02 PAR-NAME. NC1074.2
028900 03 FILLER PIC X(19) VALUE SPACE. NC1074.2
029000 03 PARDOT-X PIC X VALUE SPACE. NC1074.2
029100 03 DOTVALUE PIC 99 VALUE ZERO. NC1074.2
029200 02 FILLER PIC X(8) VALUE SPACE. NC1074.2
029300 02 RE-MARK PIC X(61). NC1074.2
029400 01 TEST-COMPUTED. NC1074.2
029500 02 FILLER PIC X(30) VALUE SPACE. NC1074.2
029600 02 FILLER PIC X(17) VALUE NC1074.2
029700 " COMPUTED=". NC1074.2
029800 02 COMPUTED-X. NC1074.2
029900 03 COMPUTED-A PIC X(20) VALUE SPACE. NC1074.2
030000 03 COMPUTED-N REDEFINES COMPUTED-A NC1074.2
030100 PIC -9(9),9(9). NC1074.2
030200 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -,9(18). NC1074.2
030300 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4),9(14). NC1074.2
030400 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14),9(4). NC1074.2
030500 03 CM-18V0 REDEFINES COMPUTED-A. NC1074.2
030600 04 COMPUTED-18V0 PIC -9(18). NC1074.2
030700 04 FILLER PIC X. NC1074.2
030800 03 FILLER PIC X(50) VALUE SPACE. NC1074.2
030900 01 TEST-CORRECT. NC1074.2
031000 02 FILLER PIC X(30) VALUE SPACE. NC1074.2
031100 02 FILLER PIC X(17) VALUE " CORRECT =". NC1074.2
031200 02 CORRECT-X. NC1074.2
031300 03 CORRECT-A PIC X(20) VALUE SPACE. NC1074.2
031400 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9),9(9). NC1074.2
031500 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -,9(18). NC1074.2
031600 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4),9(14). NC1074.2
031700 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14),9(4). NC1074.2
031800 03 CR-18V0 REDEFINES CORRECT-A. NC1074.2
031900 04 CORRECT-18V0 PIC -9(18). NC1074.2
032000 04 FILLER PIC X. NC1074.2
032100 03 FILLER PIC X(2) VALUE SPACE. NC1074.2
032200 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC1074.2
032300 01 CCVS-C-1. NC1074.2
032400 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC1074.2
032500- "SS PARAGRAPH-NAME NC1074.2
032600- " REMARKS". NC1074.2
032700 02 FILLER PIC X(20) VALUE SPACE. NC1074.2
032800 01 CCVS-C-2. NC1074.2
032900 02 FILLER PIC X VALUE SPACE. NC1074.2
033000 02 FILLER PIC X(6) VALUE "TESTED". NC1074.2
033100 02 FILLER PIC X(15) VALUE SPACE. NC1074.2
033200 02 FILLER PIC X(4) VALUE "FAIL". NC1074.2
033300 02 FILLER PIC X(94) VALUE SPACE. NC1074.2
033400 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC1074.2
033500 01 REC-CT PIC 99 VALUE ZERO. NC1074.2
033600 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC1074.2
033700 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC1074.2
033800 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC1074.2
033900 01 PASS-COUNTER PIC 999 VALUE ZERO. NC1074.2
034000 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC1074.2
034100 01 ERROR-HOLD PIC 999 VALUE ZERO. NC1074.2
034200 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC1074.2
034300 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC1074.2
034400 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC1074.2
034500 01 CCVS-H-1. NC1074.2
034600 02 FILLER PIC X(39) VALUE SPACES. NC1074.2
034700 02 FILLER PIC X(42) VALUE NC1074.2
034800 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC1074.2
034900 02 FILLER PIC X(39) VALUE SPACES. NC1074.2
035000 01 CCVS-H-2A. NC1074.2
035100 02 FILLER PIC X(40) VALUE SPACE. NC1074.2
035200 02 FILLER PIC X(7) VALUE "CCVS85 ". NC1074.2
035300 02 FILLER PIC XXXX VALUE NC1074.2
035400 "4.2 ". NC1074.2
035500 02 FILLER PIC X(28) VALUE NC1074.2
035600 " COPY - NOT FOR DISTRIBUTION". NC1074.2
035700 02 FILLER PIC X(41) VALUE SPACE. NC1074.2
035800 NC1074.2
035900 01 CCVS-H-2B. NC1074.2
036000 02 FILLER PIC X(15) VALUE NC1074.2
036100 "TEST RESULT OF ". NC1074.2
036200 02 TEST-ID PIC X(9). NC1074.2
036300 02 FILLER PIC X(4) VALUE NC1074.2
036400 " IN ". NC1074.2
036500 02 FILLER PIC X(12) VALUE NC1074.2
036600 " HIGH ". NC1074.2
036700 02 FILLER PIC X(22) VALUE NC1074.2
036800 " LEVEL VALIDATION FOR ". NC1074.2
036900 02 FILLER PIC X(58) VALUE NC1074.2
037000 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1074.2
037100 01 CCVS-H-3. NC1074.2
037200 02 FILLER PIC X(34) VALUE NC1074.2
037300 " FOR OFFICIAL USE ONLY ". NC1074.2
037400 02 FILLER PIC X(58) VALUE NC1074.2
037500 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1074.2
037600 02 FILLER PIC X(28) VALUE NC1074.2
037700 " COPYRIGHT 1985 ". NC1074.2
037800 01 CCVS-E-1. NC1074.2
037900 02 FILLER PIC X(52) VALUE SPACE. NC1074.2
038000 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC1074.2
038100 02 ID-AGAIN PIC X(9). NC1074.2
038200 02 FILLER PIC X(45) VALUE SPACES. NC1074.2
038300 01 CCVS-E-2. NC1074.2
038400 02 FILLER PIC X(31) VALUE SPACE. NC1074.2
038500 02 FILLER PIC X(21) VALUE SPACE. NC1074.2
038600 02 CCVS-E-2-2. NC1074.2
038700 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC1074.2
038800 03 FILLER PIC X VALUE SPACE. NC1074.2
038900 03 ENDER-DESC PIC X(44) VALUE NC1074.2
039000 "ERRORS ENCOUNTERED". NC1074.2
039100 01 CCVS-E-3. NC1074.2
039200 02 FILLER PIC X(22) VALUE NC1074.2
039300 " FOR OFFICIAL USE ONLY". NC1074.2
039400 02 FILLER PIC X(12) VALUE SPACE. NC1074.2
039500 02 FILLER PIC X(58) VALUE NC1074.2
039600 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1074.2
039700 02 FILLER PIC X(13) VALUE SPACE. NC1074.2
039800 02 FILLER PIC X(15) VALUE NC1074.2
039900 " COPYRIGHT 1985". NC1074.2
040000 01 CCVS-E-4. NC1074.2
040100 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC1074.2
040200 02 FILLER PIC X(4) VALUE " OF ". NC1074.2
040300 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC1074.2
040400 02 FILLER PIC X(40) VALUE NC1074.2
040500 " TESTS WERE EXECUTED SUCCESSFULLY". NC1074.2
040600 01 XXINFO. NC1074.2
040700 02 FILLER PIC X(19) VALUE NC1074.2
040800 "*** INFORMATION ***". NC1074.2
040900 02 INFO-TEXT. NC1074.2
041000 04 FILLER PIC X(8) VALUE SPACE. NC1074.2
041100 04 XXCOMPUTED PIC X(20). NC1074.2
041200 04 FILLER PIC X(5) VALUE SPACE. NC1074.2
041300 04 XXCORRECT PIC X(20). NC1074.2
041400 02 INF-ANSI-REFERENCE PIC X(48). NC1074.2
041500 01 HYPHEN-LINE. NC1074.2
041600 02 FILLER PIC IS X VALUE IS SPACE. NC1074.2
041700 02 FILLER PIC IS X(65) VALUE IS "************************NC1074.2
041800- "*****************************************". NC1074.2
041900 02 FILLER PIC IS X(54) VALUE IS "************************NC1074.2
042000- "******************************". NC1074.2
042100 01 CCVS-PGM-ID PIC X(9) VALUE NC1074.2
042200 "NC107A". NC1074.2
042300 PROCEDURE DIVISION. NC1074.2
042400 CCVS1 SECTION. NC1074.2
042500 OPEN-FILES. NC1074.2
042600 OPEN OUTPUT PRINT-FILE. NC1074.2
042700 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC1074.2
042800 MOVE SPACE TO TEST-RESULTS. NC1074.2
042900 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC1074.2
043000 GO TO CCVS1-EXIT. NC1074.2
043100 CLOSE-FILES. NC1074.2
043200 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC1074.2
043300 TERMINATE-CCVS. NC1074.2
043400 EXIT PROGRAM. NC1074.2
043500 TERMINATE-CALL. NC1074.2
043600 STOP RUN. NC1074.2
043700 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC1074.2
043800 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC1074.2
043900 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC1074.2
044000 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC1074.2
044100 MOVE "****TEST DELETED****" TO RE-MARK. NC1074.2
044200 PRINT-DETAIL. NC1074.2
044300 IF REC-CT NOT EQUAL TO ZERO NC1074.2
044400 MOVE "." TO PARDOT-X NC1074.2
044500 MOVE REC-CT TO DOTVALUE. NC1074.2
044600 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC1074.2
044700 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC1074.2
044800 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC1074.2
044900 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC1074.2
045000 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC1074.2
045100 MOVE SPACE TO CORRECT-X. NC1074.2
045200 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC1074.2
045300 MOVE SPACE TO RE-MARK. NC1074.2
045400 HEAD-ROUTINE. NC1074.2
045500 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1074.2
045600 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1074.2
045700 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1074.2
045800 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1074.2
045900 COLUMN-NAMES-ROUTINE. NC1074.2
046000 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1074.2
046100 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1074.2
046200 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1074.2
046300 END-ROUTINE. NC1074.2
046400 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC1074.2
046500 END-RTN-EXIT. NC1074.2
046600 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1074.2
046700 END-ROUTINE-1. NC1074.2
046800 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC1074.2
046900 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC1074.2
047000 ADD PASS-COUNTER TO ERROR-HOLD. NC1074.2
047100* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC1074.2
047200 MOVE PASS-COUNTER TO CCVS-E-4-1. NC1074.2
047300 MOVE ERROR-HOLD TO CCVS-E-4-2. NC1074.2
047400 MOVE CCVS-E-4 TO CCVS-E-2-2. NC1074.2
047500 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC1074.2
047600 END-ROUTINE-12. NC1074.2
047700 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC1074.2
047800 IF ERROR-COUNTER IS EQUAL TO ZERO NC1074.2
047900 MOVE "NO " TO ERROR-TOTAL NC1074.2
048000 ELSE NC1074.2
048100 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC1074.2
048200 MOVE CCVS-E-2 TO DUMMY-RECORD. NC1074.2
048300 PERFORM WRITE-LINE. NC1074.2
048400 END-ROUTINE-13. NC1074.2
048500 IF DELETE-COUNTER IS EQUAL TO ZERO NC1074.2
048600 MOVE "NO " TO ERROR-TOTAL ELSE NC1074.2
048700 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC1074.2
048800 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC1074.2
048900 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1074.2
049000 IF INSPECT-COUNTER EQUAL TO ZERO NC1074.2
049100 MOVE "NO " TO ERROR-TOTAL NC1074.2
049200 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC1074.2
049300 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC1074.2
049400 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1074.2
049500 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1074.2
049600 WRITE-LINE. NC1074.2
049700 ADD 1 TO RECORD-COUNT. NC1074.2
049800 IF RECORD-COUNT GREATER 42 NC1074.2
049900 MOVE DUMMY-RECORD TO DUMMY-HOLD NC1074.2
050000 MOVE SPACE TO DUMMY-RECORD NC1074.2
050100 WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC1074.2
050200 MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1074.2
050300 MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1074.2
050400 MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1074.2
050500 MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1074.2
050600 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC1074.2
050700 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN NC1074.2
050800 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC1074.2
050900 MOVE DUMMY-HOLD TO DUMMY-RECORD NC1074.2
051000 MOVE ZERO TO RECORD-COUNT. NC1074.2
051100 PERFORM WRT-LN. NC1074.2
051200 WRT-LN. NC1074.2
051300 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC1074.2
051400 MOVE SPACE TO DUMMY-RECORD. NC1074.2
051500 BLANK-LINE-PRINT. NC1074.2
051600 PERFORM WRT-LN. NC1074.2
051700 FAIL-ROUTINE. NC1074.2
051800 IF COMPUTED-X NOT EQUAL TO SPACE NC1074.2
051900 GO TO FAIL-ROUTINE-WRITE. NC1074.2
052000 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC1074.2
052100 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1074.2
052200 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC1074.2
052300 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1074.2
052400 MOVE SPACES TO INF-ANSI-REFERENCE. NC1074.2
052500 GO TO FAIL-ROUTINE-EX. NC1074.2
052600 FAIL-ROUTINE-WRITE. NC1074.2
052700 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC1074.2
052800 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC1074.2
052900 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC1074.2
053000 MOVE SPACES TO COR-ANSI-REFERENCE. NC1074.2
053100 FAIL-ROUTINE-EX. EXIT. NC1074.2
053200 BAIL-OUT. NC1074.2
053300 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC1074.2
053400 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC1074.2
053500 BAIL-OUT-WRITE. NC1074.2
053600 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC1074.2
053700 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1074.2
053800 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1074.2
053900 MOVE SPACES TO INF-ANSI-REFERENCE. NC1074.2
054000 BAIL-OUT-EX. EXIT. NC1074.2
054100 CCVS1-EXIT. NC1074.2
054200 EXIT. NC1074.2
054300 SECT-NC107A-001 SECTION. NC1074.2
054400*REMARKS-TEST. NC1074.2
054500* MOVE "IV-11 7.2.4" TO ANSI-REFERENCE. NC1074.2
054600* MOVE "COBOL REMARKS PARA" TO FEATURE. NC1074.2
054700* MOVE "REMARKS" TO PAR-NAME. NC1074.2
054800* MOVE "PHONY LINES SHOULDNT EXECUT" TO RE-MARK. NC1074.2
054900* PERFORM PRINT-DETAIL. NC1074.2
055000*NOTE-TEST-1. NC1074.2
055100* PERFORM FAIL. NC1074.2
055200* NOTE ENTER GO TO NOTE-WRITE-1 NC1074.2
055300* USE GO TO NOTE-WRITE-1 NC1074.2
055400* DECLARATIVES GO TO NOTE-WRITE-1 NC1074.2
055500* DATA DIVISION GO TO NOTE-WRITE-1 NC1074.2
055600* COPY (SEE ALSO PROGRAM LB104) GO TO NOTE-WRITE-1 NC1074.2
055700* THE COMPILER SHOULD "IGNORE" THE ABOVE WORDS. NC1074.2
055800* PERFORM PASS NC1074.2
055900* GO TO NOTE-WRITE-1. NC1074.2
056000*NOTE-DELETE-1. NC1074.2
056100* PERFORM DE-LETE. NC1074.2
056200 NOTE-WRITE-1. NC1074.2
056300 MOVE "NOTE RESERVED WORDS" TO FEATURE. NC1074.2
056400 MOVE "NOTE-TEST-1" TO PAR-NAME. NC1074.2
056500 PERFORM PRINT-DETAIL. NC1074.2
056600 FIG-INIT. NC1074.2
056700 MOVE "IV-11 4.2.2.2.3" TO ANSI-REFERENCE. NC1074.2
056800 MOVE SPACE TO TEST-RESULTS. NC1074.2
056900 MOVE "PLEASE CHECK THE COMPUTED" TO RE-MARK. NC1074.2
057000 PERFORM PRINT-DETAIL. NC1074.2
057100 MOVE "COLUMN TO BE CERTAIN THAT" TO RE-MARK. NC1074.2
057200 PERFORM PRINT-DETAIL. NC1074.2
057300 MOVE "THE CORRECT VALUES FOR THE" TO RE-MARK. NC1074.2
057400 PERFORM PRINT-DETAIL. NC1074.2
057500 MOVE "FIGURATIVE CONSTANTS ARE" TO RE-MARK. NC1074.2
057600 PERFORM PRINT-DETAIL. NC1074.2
057700 MOVE "SHOWN" TO RE-MARK. NC1074.2
057800 PERFORM PRINT-DETAIL. NC1074.2
057900 MOVE "FIGURATIVE CONSTANTS" TO FEATURE. NC1074.2
058000 FIG-TEST-1. NC1074.2
058100 MOVE ZERO TO COMPUTED-18V0. NC1074.2
058200 MOVE "ZERO " TO CORRECT-A. NC1074.2
058300 PERFORM INSPT. NC1074.2
058400 GO TO FIG-WRITE-1. NC1074.2
058500 FIG-DELETE-1. NC1074.2
058600 PERFORM DE-LETE. NC1074.2
058700 FIG-WRITE-1. NC1074.2
058800 MOVE "FIG-TEST-1" TO PAR-NAME. NC1074.2
058900 PERFORM PRINT-DETAIL. NC1074.2
059000 FIG-TEST-2. NC1074.2
059100 MOVE "IV-11 4.2.2.2.3" TO ANSI-REFERENCE. NC1074.2
059200 MOVE SPACE TO COMPUTED-A. NC1074.2
059300 MOVE "SPACE " TO CORRECT-A. NC1074.2
059400 PERFORM INSPT. NC1074.2
059500 GO TO FIG-WRITE-2. NC1074.2
059600 FIG-DELETE-2. NC1074.2
059700 PERFORM DE-LETE. NC1074.2
059800 FIG-WRITE-2. NC1074.2
059900 MOVE "FIG-TEST-2" TO PAR-NAME. NC1074.2
060000 PERFORM PRINT-DETAIL. NC1074.2
060100 FIG-TEST-3. NC1074.2
060200 MOVE "IV-11 4.2.2.2.3" TO ANSI-REFERENCE. NC1074.2
060300 MOVE QUOTE TO COMPUTED-A. NC1074.2
060400 MOVE "QUOTE " TO CORRECT-A. NC1074.2
060500 PERFORM INSPT. NC1074.2
060600 GO TO FIG-WRITE-3. NC1074.2
060700 FIG-DELETE-3. NC1074.2
060800 PERFORM DE-LETE. NC1074.2
060900 FIG-WRITE-3. NC1074.2
061000 MOVE "FIG-TEST-3" TO PAR-NAME. NC1074.2
061100 PERFORM PRINT-DETAIL. NC1074.2
061200 FIG-TEST-4. NC1074.2
061300 MOVE "IV-11 4.2.2.2.3" TO ANSI-REFERENCE. NC1074.2
061400 MOVE HIGH-VALUE TO COMPUTED-A. NC1074.2
061500 MOVE "HIGH-VALUE" TO CORRECT-A. NC1074.2
061600 PERFORM INSPT. NC1074.2
061700 GO TO FIG-WRITE-4. NC1074.2
061800 FIG-DELETE-4. NC1074.2
061900 PERFORM DE-LETE. NC1074.2
062000 FIG-WRITE-4. NC1074.2
062100 MOVE "FIG-TEST-4" TO PAR-NAME. NC1074.2
062200 PERFORM PRINT-DETAIL. NC1074.2
062300 FIG-TEST-5. NC1074.2
062400 MOVE "IV-11 4.2.2.2.3" TO ANSI-REFERENCE. NC1074.2
062500 MOVE LOW-VALUE TO COMPUTED-A. NC1074.2
062600 MOVE "LOW-VALUE " TO CORRECT-A. NC1074.2
062700 PERFORM INSPT. NC1074.2
062800 GO TO FIG-WRITE-5. NC1074.2
062900 FIG-DELETE-5. NC1074.2
063000 PERFORM DE-LETE. NC1074.2
063100 FIG-WRITE-5. NC1074.2
063200 MOVE "FIG-TEST-5" TO PAR-NAME. NC1074.2
063300 PERFORM PRINT-DETAIL. NC1074.2
063400 CONTIN-INIT-A. NC1074.2
063500 MOVE "CONTINUE A.N. LITRLS" TO FEATURE. NC1074.2
063600 MOVE "IV-44 7.2.2" TO ANSI-REFERENCE. NC1074.2
063700 MOVE "ABCDEFNC1074.2
063800- "GHIJ" TO DATA-A. NC1074.2
063900 CONTIN-TEST-1. NC1074.2
064000 IF DATA-A EQUAL TO "ABCDEFGHIJ" NC1074.2
064100 PERFORM PASS NC1074.2
064200 GO TO CONTIN-WRITE-1. NC1074.2
064300 GO TO CONTIN-FAIL-1. NC1074.2
064400 CONTIN-DELETE-1. NC1074.2
064500 PERFORM DE-LETE. NC1074.2
064600 GO TO CONTIN-WRITE-1. NC1074.2
064700 CONTIN-FAIL-1. NC1074.2
064800 MOVE DATA-A TO COMPUTED-A. NC1074.2
064900 MOVE "ABCDEFGHIJ" TO CORRECT-A. NC1074.2
065000 PERFORM FAIL. NC1074.2
065100 CONTIN-WRITE-1. NC1074.2
065200 MOVE "CONTIN-TEST-1" TO PAR-NAME. NC1074.2
065300 PERFORM PRINT-DETAIL. NC1074.2
065400 CONTIN-TEST-2. NC1074.2
065500 IF DATA-Q EQUAL TO "QUOTE IN COL. 72"NC1074.2
065600 PERFORM PASS NC1074.2
065700 GO TO CONTIN-WRITE-2. NC1074.2
065800 PERFORM FAIL. NC1074.2
065900 MOVE DATA-Q TO COMPUTED-A. NC1074.2
066000 MOVE "QUOTE IN COL. 72" TO CORRECT-A. NC1074.2
066100 GO TO CONTIN-WRITE-2. NC1074.2
066200 CONTIN-DELETE-2. NC1074.2
066300 PERFORM DE-LETE. NC1074.2
066400 CONTIN-WRITE-2. NC1074.2
066500 MOVE "CONTIN-TEST-2" TO PAR-NAME. NC1074.2
066600 PERFORM PRINT-DETAIL. NC1074.2
066700 CONTIN-TEST-3. NC1074.2
066800 MOVE "IV-44 7.2.2" TO ANSI-REFERENCE. NC1074.2
066900 IF DATA-R EQUAL TO "LITERAL ENDS AT 72NC1074.2
067000- "" NC1074.2
067100 PERFORM PASS NC1074.2
067200 GO TO CONTIN-WRITE-3. NC1074.2
067300 PERFORM FAIL. NC1074.2
067400 MOVE DATA-R TO COMPUTED-A. NC1074.2
067500 MOVE "LITERAL ENDS AT 72" TO CORRECT-A. NC1074.2
067600 GO TO CONTIN-WRITE-3. NC1074.2
067700 CONTIN-DELETE-3. NC1074.2
067800 PERFORM DE-LETE. NC1074.2
067900 CONTIN-WRITE-3. NC1074.2
068000 MOVE "CONTIN-TEST-3" TO PAR-NAME. NC1074.2
068100 PERFORM PRINT-DETAIL. NC1074.2
068200 CONTIN-TEST-4. NC1074.2
068300 MOVE "IV-44 7.2.2" TO ANSI-REFERENCE. NC1074.2
068400 IF DATA-W EQUAL TO DATA-S NC1074.2
068500 PERFORM PASS GO TO CONTIN-WRITE-4. NC1074.2
068600 PERFORM FAIL. NC1074.2
068700 MOVE DATA-S TO COMPUTED-A. NC1074.2
068800 MOVE DATA-W TO CORRECT-A. NC1074.2
068900 GO TO CONTIN-WRITE-4. NC1074.2
069000 CONTIN-DELETE-4. NC1074.2
069100 PERFORM DE-LETE. NC1074.2
069200 CONTIN-WRITE-4. NC1074.2
069300 MOVE "CONTIN-TEST-4" TO PAR-NAME NC1074.2
069400 PERFORM PRINT-DETAIL. NC1074.2
069500 CONTIN-TEST-5. NC1074.2
069600 MOVE "IV-44 7.2.2" TO ANSI-REFERENCE. NC1074.2
069700 IF DATA-W EQUAL TO DATA-T NC1074.2
069800 PERFORM PASS GO TO CONTIN-WRITE-5. NC1074.2
069900 PERFORM FAIL. NC1074.2
070000 MOVE DATA-T TO COMPUTED-A. NC1074.2
070100 MOVE DATA-W TO CORRECT-A. NC1074.2
070200 GO TO CONTIN-WRITE-5. NC1074.2
070300 CONTIN-DELETE-5. NC1074.2
070400 PERFORM DE-LETE. NC1074.2
070500 CONTIN-WRITE-5. NC1074.2
070600 MOVE "CONTIN-TEST-5" TO PAR-NAME NC1074.2
070700 PERFORM PRINT-DETAIL. NC1074.2
070800 CONTIN-TEST-6. NC1074.2
070900 MOVE "IV-44 7.2.2" TO ANSI-REFERENCE. NC1074.2
071000 IF DATA-W EQUAL TO DATA-U NC1074.2
071100 PERFORM PASS GO TO CONTIN-WRITE-6. NC1074.2
071200 PERFORM FAIL. NC1074.2
071300 MOVE DATA-U TO COMPUTED-A. NC1074.2
071400 MOVE DATA-W TO CORRECT-A. NC1074.2
071500 GO TO CONTIN-WRITE-6. NC1074.2
071600 CONTIN-DELETE-6. NC1074.2
071700 PERFORM DE-LETE. NC1074.2
071800 CONTIN-WRITE-6. NC1074.2
071900 MOVE "CONTIN-TEST-6" TO PAR-NAME NC1074.2
072000 PERFORM PRINT-DETAIL. NC1074.2
072100 CONTIN-TEST-7. NC1074.2
072200 MOVE "IV-44 7.2.2" TO ANSI-REFERENCE. NC1074.2
072300 MOVE DATA-S TO DATA-V. NC1074.2
072400 IF DATA-W EQUAL TO DATA-V NC1074.2
072500 PERFORM PASS GO TO CONTIN-WRITE-7. NC1074.2
072600 PERFORM FAIL. NC1074.2
072700 MOVE DATA-V TO COMPUTED-A. NC1074.2
072800 MOVE DATA-W TO CORRECT-A. NC1074.2
072900 GO TO CONTIN-WRITE-7. NC1074.2
073000 CONTIN-DELETE-7. NC1074.2
073100 PERFORM DE-LETE. NC1074.2
073200 CONTIN-WRITE-7. NC1074.2
073300 MOVE "CONTIN-TEST-7" TO PAR-NAME NC1074.2
073400 PERFORM PRINT-DETAIL. NC1074.2
073500 CONTIN-TEST-8. NC1074.2
073600 MOVE "IV-44 7.2.2" TO ANSI-REFERENCE. NC1074.2
073700 IF DATA-S EQUAL TO "OFFSET CONTINUATION NC1074.2
073800- ""NC1074.2
073900 PERFORM PASS GO TO CONTIN-WRITE-8. NC1074.2
074000 PERFORM FAIL. NC1074.2
074100 MOVE "OFFSET CONTINUATION NC1074.2
074200- ""NC1074.2
074300 TO COMPUTED-A. NC1074.2
074400 MOVE DATA-S TO CORRECT-A. NC1074.2
074500 GO TO CONTIN-WRITE-8. NC1074.2
074600 CONTIN-DELETE-8. NC1074.2
074700 PERFORM DE-LETE. NC1074.2
074800 CONTIN-WRITE-8. NC1074.2
074900 MOVE "CONTIN-TEST-8" TO PAR-NAME NC1074.2
075000 PERFORM PRINT-DETAIL. NC1074.2
075100 CONTIN-TEST-9. NC1074.2
075200 MOVE "IV-10 4.2.2.2.1.2 (2) AND IV-9 4.2.2.2.1" NC1074.2
075300 TO ANSI-REFERENCE. NC1074.2
075400 IF WRK-XN-160-1 EQUAL TO NC1074.2
075500 """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""NC1074.2
075600- """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""NC1074.2
075700- """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""NC1074.2
075800- """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""NC1074.2
075900- """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""NC1074.2
076000- """""""""""""""""""""" PERFORM PASS NC1074.2
076100 ELSE PERFORM FAIL. NC1074.2
076200 GO TO CONTIN-WRITE-9. NC1074.2
076300 CONTIN-DELETE-9. NC1074.2
076400 PERFORM DE-LETE. NC1074.2
076500 CONTIN-WRITE-9. NC1074.2
076600 MOVE "CONTIN-TEST-9" TO PAR-NAME. NC1074.2
076700 MOVE "160 PAIRS OF QUOTES" TO FEATURE. NC1074.2
076800 PERFORM PRINT-DETAIL. NC1074.2
076900 SEP-INIT-A. NC1074.2
077000 MOVE "IV-4 4.2.1" TO ANSI-REFERENCE. NC1074.2
077100 MOVE "SEPARATORS (SPACES)" TO FEATURE. NC1074.2
077200 SEP-TEST-1. NC1074.2
077300 PERFORM PASS.NC1074.2
077400 GONC1074.2
077500 TONC1074.2
077600 SEP-WRITE-1.NC1074.2
077700 SEP-TEST-1-1. NC1074.2
077800 PERFORM FAIL.NC1074.2
077900 GO TO SEP-WRITE-1.NC1074.2
078000* NOTENC1074.2
078100* SEP-TEST-1NC1074.2
078200* ENTIRE PARAGRAPH IS "NC1074.2
078300* RIGHT-JUSTIFIED, TO MARGIN R.NC1074.2
078400 SEP-DELETE-1. NC1074.2
078500 PERFORM DE-LETE. NC1074.2
078600 SEP-WRITE-1. NC1074.2
078700 MOVE "SEP-TEST-1" TO PAR-NAME. NC1074.2
078800 PERFORM PRINT-DETAIL. NC1074.2
078900 SEP-TEST-2 SECTION. NC1074.2
079000 SEP-TEST-2-PARA. NC1074.2
079100 MOVE "IV-4 4.2.1" TO ANSI-REFERENCE. NC1074.2
079200 S2. PERFORM PASS. IF P-OR-F EQUAL TO "PASS " GO TO NC1074.2
079300 SEP-WRITE-2. PERFORM FAIL. GO TO SEP-WRITE-2. NC1074.2
079400 SEP-DELETE-2. NC1074.2
079500 PERFORM DE-LETE. NC1074.2
079600 SEP-WRITE-2. NC1074.2
079700 MOVE "SEP-TEST-2" TO PAR-NAME. NC1074.2
079800 PERFORM PRINT-DETAIL. NC1074.2
079900 SEP-TEST-3. NC1074.2
080000 MOVE "IV-4 4.2.1" TO ANSI-REFERENCE. NC1074.2
080100 IF SEP-03 EQUAL TO "SEPARATOR" NC1074.2
080200 PERFORM PASS NC1074.2
080300 GO TO SEP-WRITE-3. NC1074.2
080400 PERFORM FAIL. NC1074.2
080500 MOVE SEP-03 TO COMPUTED-A. NC1074.2
080600 MOVE "SEPARATOR" TO CORRECT-A. NC1074.2
080700 GO TO SEP-WRITE-3. NC1074.2
080800 SEP-DELETE-3. NC1074.2
080900 PERFORM DE-LETE. NC1074.2
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.85 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.
|
