| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/NC/ Datei vom 4.1.2008 mit Größe 162 kB |
|
Quelle nc107a.cobSprache: Cobol |
|||||||||||||||
|
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 081000 SEP-WRITE-3. NC1074.2 081100 MOVE "SEP-TEST-3" TO PAR-NAME. NC1074.2 081200 PERFORM PRINT-DETAIL. NC1074.2 081300 SEP-TEST-4. NC1074.2 081400 MOVE "IV-4 4.2.1" TO ANSI-REFERENCE. NC1074.2 081500 PERFORM FAIL. NC1074.2 081600 NC1074.2 081700 NC1074.2 081800 NC1074.2 081900 NC1074.2 082000 NC1074.2 082100 NC1074.2 082200 NC1074.2 082300 NC1074.2 082400 NC1074.2 082500 NC1074.2 082600 NC1074.2 082700 NC1074.2 082800 NC1074.2 082900 NC1074.2 083000 NC1074.2 083100 NC1074.2 083200 NC1074.2 083300 NC1074.2 083400 NC1074.2 083500 NC1074.2 083600 NC1074.2 083700 NC1074.2 083800 NC1074.2 083900 NC1074.2 084000 NC1074.2 084100 NC1074.2 084200 NC1074.2 084300 NC1074.2 084400 NC1074.2 084500 NC1074.2 084600 NC1074.2 084700 NC1074.2 084800 NC1074.2 084900 NC1074.2 085000 NC1074.2 085100 NC1074.2 085200 NC1074.2 085300 NC1074.2 085400 NC1074.2 085500 NC1074.2 085600 NC1074.2 085700 NC1074.2 085800 NC1074.2 085900 NC1074.2 086000 NC1074.2 086100 NC1074.2 086200 NC1074.2 086300 NC1074.2 086400 NC1074.2 086500 NC1074.2 086600 NC1074.2 086700 NC1074.2 086800 NC1074.2 086900 NC1074.2 087000 NC1074.2 087100 NC1074.2 087200 NC1074.2 087300 NC1074.2 087400 NC1074.2 087500 NC1074.2 087600 NC1074.2 087700 NC1074.2 087800 NC1074.2 087900 NC1074.2 088000 NC1074.2 088100 NC1074.2 088200 NC1074.2 088300 NC1074.2 088400 NC1074.2 088500 NC1074.2 088600 NC1074.2 088700 NC1074.2 088800 NC1074.2 088900 NC1074.2 089000 NC1074.2 089100 NC1074.2 089200 NC1074.2 089300 NC1074.2 089400 NC1074.2 089500 NC1074.2 089600 NC1074.2 089700 NC1074.2 089800 NC1074.2 089900 NC1074.2 090000 NC1074.2 090100 NC1074.2 090200 NC1074.2 090300 NC1074.2 090400 NC1074.2 090500 NC1074.2 090600 NC1074.2 090700 NC1074.2 090800 NC1074.2 090900 NC1074.2 091000 NC1074.2 091100 NC1074.2 091200 NC1074.2 091300 NC1074.2 091400 NC1074.2 091500 NC1074.2 091600 NC1074.2 091700 SUBTRACT NC1074.2 091800 1 FROM ERROR-COUNTER. NC1074.2 091900 PERFORM PASS. NC1074.2 092000 GO TO SEP-WRITE-4. NC1074.2 092100 SEP-DELETE-4. NC1074.2 092200 PERFORM DE-LETE. NC1074.2 092300 SEP-WRITE-4. NC1074.2 092400 MOVE "SEP-TEST-4" TO PAR-NAME. NC1074.2 092500 PERFORM PRINT-DETAIL. NC1074.2 092600 SEP-TEST-5 SECTION. NC1074.2 092700 SEP-TEST-5-PARA. NC1074.2 092800* ==--> SEMICOLON AS SEPARATOR <--== NC1074.2 092900 MOVE "IV-4 4.2.1(2)" TO ANSI-REFERENCE. NC1074.2 093000 S5. PERFORM PASS, IF P-OR-F EQUAL TO "PASS " GO TO NC1074.2 093100 SEP-WRITE-5 ELSE PERFORM FAIL, GO TO SEP-WRITE-5. NC1074.2 093200 SEP-DELETE-5. NC1074.2 093300 PERFORM DE-LETE. NC1074.2 093400 SEP-WRITE-5. NC1074.2 093500 MOVE "SEP-TEST-5" TO PAR-NAME. NC1074.2 093600 PERFORM PRINT-DETAIL. NC1074.2 093700 JUST-INIT-01. NC1074.2 093800 MOVE "IV-24 5.6.4" TO ANSI-REFERENCE. NC1074.2 093900* NC1074.2 094000* INITIALIZATION TAKES PLACE INDEPENDENT OF ANY JUSTIFIED NC1074.2 094100* CLAUSE. NC1074.2 094200* REFERENCE - X3.23-1985, PAGE VI-49, 5.15.4(1)C. NC1074.2 094300* NC1074.2 094400 MOVE "JUST WITH VALUE" TO FEATURE. NC1074.2 094500 MOVE "JUST-TEST-01" TO PAR-NAME. NC1074.2 094600 JUST-TEST-01-1. NC1074.2 094700 IF XJ-00002 EQUAL TO "AB" NC1074.2 094800 PERFORM PASS NC1074.2 094900 GO TO JUST-WRITE-01-1 NC1074.2 095000 ELSE GO TO JUST-FAIL-01-1. NC1074.2 095100 JUST-DELETE-01-1. NC1074.2 095200 PERFORM DE-LETE. NC1074.2 095300 GO TO JUST-WRITE-01-1. NC1074.2 095400 JUST-FAIL-01-1. NC1074.2 095500 PERFORM FAIL. NC1074.2 095600 MOVE XJ-00002 TO COMPUTED-A. NC1074.2 095700 MOVE "AB" TO CORRECT-A. NC1074.2 095800 JUST-WRITE-01-1. NC1074.2 095900 MOVE 1 TO REC-CT. NC1074.2 096000 PERFORM PRINT-DETAIL. NC1074.2 096100 JUST-TEST-01-2. NC1074.2 096200 IF XJ-00003 EQUAL TO "XY " NC1074.2 096300 PERFORM PASS NC1074.2 096400 GO TO JUST-WRITE-01-2 NC1074.2 096500 ELSE GO TO JUST-FAIL-01-2. NC1074.2 096600 JUST-DELETE-01-2. NC1074.2 096700 PERFORM DE-LETE. NC1074.2 096800 GO TO JUST-WRITE-01-2. NC1074.2 096900 JUST-FAIL-01-2. NC1074.2 097000 PERFORM FAIL. NC1074.2 097100 MOVE XJ-00003 TO COMPUTED-A. NC1074.2 097200 MOVE "XY " TO CORRECT-A. NC1074.2 097300 JUST-WRITE-01-2. NC1074.2 097400 MOVE 2 TO REC-CT. NC1074.2 097500 PERFORM PRINT-DETAIL. NC1074.2 097600 JUST-INIT-02. NC1074.2 097700 MOVE "IV-24 5.6.4" TO ANSI-REFERENCE. NC1074.2 097800* NC1074.2 097900* JUSTIFIED RECEIVING ITEM TESTS NC1074.2 098000* IF THE SENDING ITEM IS LARGER THAN THE RECEIVING ITEM, NC1074.2 098100* THEN THE LEFTMOST CHARACTERS ARE TRUNCATED. IF THE SENDING NC1074.2 098200* ITEM IS SMALLER THAN THE RECEIVING ITEM, THEN THE DATA IS NC1074.2 098300* ALIGNED TO THE RIGHT WITH SPACES IN THE LEFTMOST CHARACTER NC1074.2 098400* POSITIONS. NC1074.2 098500* REFERENCE - X3.23-1985, PAGE VI-24, 6.5.4.(1) NC1074.2 098600* NC1074.2 098700* JUST-TEST-02 CONTAINS STATEMENTS OF THE FORM NC1074.2 098800* MOVE ALPHANUMERIC LITERAL TO ALPHANUMERIC JUSTIFIED ITEM.NC1074.2 098900* NC1074.2 099000 MOVE "MOVE - JUST REC ITEM" TO FEATURE. NC1074.2 099100 MOVE "JUST-TEST-02" TO PAR-NAME. NC1074.2 099200 JUST-TEST-02-1-0. NC1074.2 099300 MOVE "ABC" TO XJ-00005. NC1074.2 099400 JUST-TEST-02-1-1. NC1074.2 099500 IF XJ-00005 EQUAL TO " ABC" NC1074.2 099600 PERFORM PASS NC1074.2 099700 GO TO JUST-WRITE-02-1 NC1074.2 099800 ELSE GO TO JUST-FAIL-02-1. NC1074.2 099900 JUST-DELETE-02-1. NC1074.2 100000 PERFORM DE-LETE. NC1074.2 100100 GO TO JUST-WRITE-02-1. NC1074.2 100200 JUST-FAIL-02-1. NC1074.2 100300 PERFORM FAIL. NC1074.2 100400 MOVE " ABC" TO CORRECT-A. NC1074.2 100500 MOVE XJ-00005 TO COMPUTED-A. NC1074.2 100600 JUST-WRITE-02-1. NC1074.2 100700 MOVE 1 TO REC-CT. NC1074.2 100800 PERFORM PRINT-DETAIL. NC1074.2 100900 JUST-TEST-02-2-0. NC1074.2 101000 MOVE "ABCDEFGHI" TO XJ-00005. NC1074.2 101100 JUST-TEST-02-2-1. NC1074.2 101200 IF XJ-00005 EQUAL TO "EFGHI" NC1074.2 101300 PERFORM PASS NC1074.2 101400 GO TO JUST-WRITE-02-2 NC1074.2 101500 ELSE GO TO JUST-FAIL-02-2. NC1074.2 101600 JUST-DELETE-02-2. NC1074.2 101700 PERFORM DE-LETE. NC1074.2 101800 GO TO JUST-WRITE-02-2. NC1074.2 101900 JUST-FAIL-02-2. NC1074.2 102000 PERFORM FAIL. NC1074.2 102100 MOVE "EFGHI" TO CORRECT-A. NC1074.2 102200 MOVE XJ-00005 TO COMPUTED-A. NC1074.2 102300 JUST-WRITE-02-2. NC1074.2 102400 MOVE 2 TO REC-CT. NC1074.2 102500 PERFORM PRINT-DETAIL. NC1074.2 102600 JUST-TEST-02-3-0. NC1074.2 102700 MOVE "CDEFG" TO XJ-00005. NC1074.2 102800 JUST-TEST-02-3-1. NC1074.2 102900 IF XJ-00005 EQUAL TO "CDEFG" NC1074.2 103000 PERFORM PASS NC1074.2 103100 GO TO JUST-WRITE-02-3 NC1074.2 103200 ELSE GO TO JUST-FAIL-02-3. NC1074.2 103300 JUST-DELETE-02-3. NC1074.2 103400 PERFORM DE-LETE. NC1074.2 103500 GO TO JUST-WRITE-02-3. NC1074.2 103600 JUST-FAIL-02-3. NC1074.2 103700 PERFORM FAIL. NC1074.2 103800 MOVE "CDEFG" TO CORRECT-A. NC1074.2 103900 MOVE XJ-00005 TO COMPUTED-A. NC1074.2 104000 JUST-WRITE-02-3. NC1074.2 104100 MOVE 3 TO REC-CT. NC1074.2 104200 PERFORM PRINT-DETAIL. NC1074.2 104300 JUST-INIT-03. NC1074.2 104400 MOVE "IV-24 5.6.4" TO ANSI-REFERENCE. NC1074.2 104500* NC1074.2 104600* JUST-TEST-03 CONTAINS STATEMENTS OF THE FORM NC1074.2 104700* MOVE ALPHANUMERIC ITEM TO ALPHABETIC JUSTIFIED ITEM. NC1074.2 104800* NC1074.2 104900 MOVE "MOVE - JUST REC ITEM" TO FEATURE. NC1074.2 105000 MOVE "JUST-TEST-03" TO PAR-NAME. NC1074.2 105100 JUST-TEST-03-1-0. NC1074.2 105200 MOVE NJUST-XN-3 TO AJ-00005. NC1074.2 105300 JUST-TEST-03-1-1. NC1074.2 105400 IF AJ-00005 EQUAL TO " ABC" NC1074.2 105500 PERFORM PASS NC1074.2 105600 GO TO JUST-WRITE-03-1 NC1074.2 105700 ELSE GO TO JUST-FAIL-03-1. NC1074.2 105800 JUST-DELETE-03-1. NC1074.2 105900 PERFORM DE-LETE. NC1074.2 106000 GO TO JUST-WRITE-03-1. NC1074.2 106100 JUST-FAIL-03-1. NC1074.2 106200 PERFORM FAIL. NC1074.2 106300 MOVE " ABC" TO CORRECT-A. NC1074.2 106400 MOVE AJ-00005 TO COMPUTED-A. NC1074.2 106500 JUST-WRITE-03-1. NC1074.2 106600 MOVE 1 TO REC-CT. NC1074.2 106700 PERFORM PRINT-DETAIL. NC1074.2 106800 JUST-TEST-03-2-0. NC1074.2 106900 MOVE NJUST-XN-5 TO AJ-00005. NC1074.2 107000 JUST-TEST-03-2-1. NC1074.2 107100 IF AJ-00005 EQUAL TO "CDEFG" NC1074.2 107200 PERFORM PASS NC1074.2 107300 GO TO JUST-WRITE-03-2 NC1074.2 107400 ELSE GO TO JUST-FAIL-03-2. NC1074.2 107500 JUST-DELETE-03-2. NC1074.2 107600 PERFORM DE-LETE. NC1074.2 107700 GO TO JUST-WRITE-03-2. NC1074.2 107800 JUST-FAIL-03-2. NC1074.2 107900 PERFORM FAIL. NC1074.2 108000 MOVE "CDEFG" TO CORRECT-A. NC1074.2 108100 MOVE AJ-00005 TO COMPUTED-A. NC1074.2 108200 JUST-WRITE-03-2. NC1074.2 108300 MOVE 2 TO REC-CT. NC1074.2 108400 PERFORM PRINT-DETAIL. NC1074.2 108500 JUST-TEST-03-3-0. NC1074.2 108600 MOVE NJUST-XN-15 TO AJ-00005. NC1074.2 108700 JUST-TEST-03-3-1. NC1074.2 108800 IF AJ-00005 EQUAL TO "KLMNO" NC1074.2 108900 PERFORM PASS NC1074.2 109000 GO TO JUST-WRITE-03-3 NC1074.2 109100 ELSE GO TO JUST-FAIL-03-3. NC1074.2 109200 JUST-DELETE-03-3. NC1074.2 109300 PERFORM DE-LETE. NC1074.2 109400 GO TO JUST-WRITE-03-3. NC1074.2 109500 JUST-FAIL-03-3. NC1074.2 109600 PERFORM FAIL. NC1074.2 109700 MOVE "KLMNO" TO CORRECT-A. NC1074.2 109800 MOVE AJ-00005 TO COMPUTED-A. NC1074.2 109900 JUST-WRITE-03-3. NC1074.2 110000 MOVE 3 TO REC-CT. NC1074.2 110100 PERFORM PRINT-DETAIL. NC1074.2 110200 JUST-INIT-04. NC1074.2 110300 MOVE "IV-24 5.6.4" TO ANSI-REFERENCE. NC1074.2 110400* NC1074.2 110500* JUST-TEST-04 CONTAINS STATEMENTS OF THE FORM NC1074.2 110600* MOVE GROUP ITEM TO ALPHABETIC JUSTIFIED ITEM. NC1074.2 110700* NC1074.2 110800 MOVE "MOVE - JUST REC ITEM" TO FEATURE. NC1074.2 110900 MOVE "JUST-TEST-04" TO PAR-NAME. NC1074.2 111000 JUST-TEST-04-1-0. NC1074.2 111100 MOVE GROUP-TO-JUST-1 TO AJ-00007. NC1074.2 111200 JUST-TEST-04-1-1. NC1074.2 111300 IF AJ-00007 EQUAL TO " ABC" NC1074.2 111400 PERFORM PASS NC1074.2 111500 GO TO JUST-WRITE-04-1 NC1074.2 111600 ELSE GO TO JUST-FAIL-04-1. NC1074.2 111700 JUST-DELETE-04-1. NC1074.2 111800 PERFORM DE-LETE. NC1074.2 111900 GO TO JUST-WRITE-04-1. NC1074.2 112000 JUST-FAIL-04-1. NC1074.2 112100 PERFORM FAIL. NC1074.2 112200 MOVE " ABC" TO CORRECT-A. NC1074.2 112300 MOVE AJ-00007 TO COMPUTED-A. NC1074.2 112400 JUST-WRITE-04-1. NC1074.2 112500 MOVE 1 TO REC-CT. NC1074.2 112600 PERFORM PRINT-DETAIL. NC1074.2 112700 JUST-TEST-04-2-0. NC1074.2 112800 MOVE GROUP-TO-JUST-21 TO AJ-00007. NC1074.2 112900 JUST-TEST-04-2-1. NC1074.2 113000 IF AJ-00007 EQUAL TO "ABCDEFG" NC1074.2 113100 PERFORM PASS NC1074.2 113200 GO TO JUST-WRITE-04-2 NC1074.2 113300 ELSE GO TO JUST-FAIL-04-2. NC1074.2 113400 JUST-DELETE-04-2. NC1074.2 113500 PERFORM DE-LETE. NC1074.2 113600 GO TO JUST-WRITE-04-2. NC1074.2 113700 JUST-FAIL-04-2. NC1074.2 113800 PERFORM FAIL. NC1074.2 113900 MOVE "ABCDEFG" TO CORRECT-A. NC1074.2 114000 MOVE AJ-00007 TO COMPUTED-A. NC1074.2 114100 JUST-WRITE-04-2. NC1074.2 114200 MOVE 2 TO REC-CT. NC1074.2 114300 PERFORM PRINT-DETAIL. NC1074.2 114400 JUST-TEST-04-3-0. NC1074.2 114500 MOVE GROUP-TO-JUST-2 TO AJ-00007. NC1074.2 114600 JUST-TEST-04-3-1. NC1074.2 114700 IF AJ-00007 EQUAL TO "IJKLMNO" NC1074.2 114800 PERFORM PASS NC1074.2 114900 GO TO JUST-WRITE-04-3 NC1074.2 115000 ELSE GO TO JUST-FAIL-04-3. NC1074.2 115100 JUST-DELETE-04-3. NC1074.2 115200 PERFORM DE-LETE. NC1074.2 115300 GO TO JUST-WRITE-04-3. NC1074.2 115400 JUST-FAIL-04-3. NC1074.2 115500 PERFORM FAIL. NC1074.2 115600 MOVE "IJKLMNO" TO CORRECT-A. NC1074.2 115700 MOVE AJ-00007 TO COMPUTED-A. NC1074.2 115800 JUST-WRITE-04-3. NC1074.2 115900 MOVE 3 TO REC-CT. NC1074.2 116000 PERFORM PRINT-DETAIL. NC1074.2 116100 JUST-INIT-05. NC1074.2 116200 MOVE "IV-24 5.6.4" TO ANSI-REFERENCE. NC1074.2 116300* NC1074.2 116400* JUST-TEST-05 CONTAINS MOVE STATEMENTS WITH A JUSTIFIED NC1074.2 116500* SENDING ITEM. NC1074.2 116600* NC1074.2 116700 MOVE "MOVE-JUST SEND ITEM" TO FEATURE. NC1074.2 116800 MOVE "JUST-TEST-05" TO PAR-NAME. NC1074.2 116900 MOVE "12345ABCDEFGHUXYZ PQR" TO GROUP-WITH-JUST-ITEMS. NC1074.2 117000 MOVE SPACE TO GROUP-FOR-JUST-TESTS. NC1074.2 117100 JUST-TEST-05-1-0. NC1074.2 117200 MOVE AJ-00009 TO NJUST-XN-15. NC1074.2 117300 JUST-TEST-05-1-1. NC1074.2 117400 IF NJUST-XN-15 EQUAL TO "XYZ PQR " NC1074.2 117500 PERFORM PASS NC1074.2 117600 GO TO JUST-WRITE-05-1 NC1074.2 117700 ELSE GO TO JUST-FAIL-05-1. NC1074.2 117800 JUST-DELETE-05-1. NC1074.2 117900 PERFORM DE-LETE. NC1074.2 118000 GO TO JUST-WRITE-05-1. NC1074.2 118100 JUST-FAIL-05-1. NC1074.2 118200 PERFORM FAIL. NC1074.2 118300 MOVE "XYZ PQR " TO CORRECT-A. NC1074.2 118400 MOVE NJUST-XN-15 TO COMPUTED-A. NC1074.2 118500 JUST-WRITE-05-1. NC1074.2 118600 MOVE 1 TO REC-CT. NC1074.2 118700 PERFORM PRINT-DETAIL. NC1074.2 118800 JUST-TEST-05-2-0. NC1074.2 118900 MOVE XJ-00009 TO NJUST-XN-3. NC1074.2 119000 JUST-TEST-05-2-1. NC1074.2 119100 IF NJUST-XN-3 EQUAL TO "ABC" NC1074.2 119200 PERFORM PASS NC1074.2 119300 GO TO JUST-WRITE-05-2 NC1074.2 119400 ELSE GO TO JUST-FAIL-05-2. NC1074.2 119500 JUST-DELETE-05-2. NC1074.2 119600 PERFORM DE-LETE. NC1074.2 119700 GO TO JUST-WRITE-05-2. NC1074.2 119800 JUST-FAIL-05-2. NC1074.2 119900 PERFORM FAIL. NC1074.2 120000 MOVE NJUST-XN-3 TO COMPUTED-A. NC1074.2 120100 MOVE "ABC" TO CORRECT-A. NC1074.2 120200 JUST-WRITE-05-2. NC1074.2 120300 MOVE 2 TO REC-CT. NC1074.2 120400 PERFORM PRINT-DETAIL. NC1074.2 120500 JUST-INIT-06. NC1074.2 120600 MOVE "IV-24 5.6.4" TO ANSI-REFERENCE. NC1074.2 120700* NC1074.2 120800* JUST-TEST-06 CONTAINS MOVE STATEMENTS WITH A JUSTIFIED NC1074.2 120900* SENDING ITEM AND A JUSTIFIED RECEIVING ITEM. NC1074.2 121000* NC1074.2 121100 MOVE "MOVE - JUST TO JUST" TO FEATURE. NC1074.2 121200 MOVE "JUST-TEST-06" TO PAR-NAME. NC1074.2 121300 MOVE "12345ABCDEFGHIXYZ PQR" TO GROUP-WITH-JUST-ITEMS. NC1074.2 121400 JUST-TEST-06-0. NC1074.2 121500 MOVE SPACE TO XJ-00005. NC1074.2 121600 JUST-TEST-06-1. NC1074.2 121700 MOVE XJ-00009 TO XJ-00005. NC1074.2 121800 IF XJ-00005 EQUAL TO "EFGHI" NC1074.2 121900 PERFORM PASS NC1074.2 122000 GO TO JUST-WRITE-06-1 NC1074.2 122100 ELSE GO TO JUST-FAIL-06-1. NC1074.2 122200 JUST-DELETE-06-1. NC1074.2 122300 PERFORM DE-LETE. NC1074.2 122400 GO TO JUST-WRITE-06-1. NC1074.2 122500 JUST-FAIL-06-1. NC1074.2 122600 PERFORM FAIL. NC1074.2 122700 MOVE "EFGHI" TO CORRECT-A. NC1074.2 122800 MOVE XJ-00005 TO COMPUTED-A. NC1074.2 122900 JUST-WRITE-06-1. NC1074.2 123000 MOVE 1 TO REC-CT. NC1074.2 123100 PERFORM PRINT-DETAIL. NC1074.2 123200 JUST-INIT-06-2. NC1074.2 123300 MOVE SPACE TO AJ-00005. NC1074.2 123400 JUST-TEST-06-2. NC1074.2 123500 MOVE AJ-00009 TO AJ-00005. NC1074.2 123600 IF AJ-00005 EQUAL TO " PQR" NC1074.2 123700 PERFORM PASS NC1074.2 123800 GO TO JUST-WRITE-06-2 NC1074.2 123900 ELSE GO TO JUST-FAIL-06-2. NC1074.2 124000 JUST-DELETE-06-2. NC1074.2 124100 PERFORM DE-LETE. NC1074.2 124200 GO TO JUST-WRITE-06-2. NC1074.2 124300 JUST-FAIL-06-2. NC1074.2 124400 PERFORM FAIL. NC1074.2 124500 MOVE " PQR" TO CORRECT-A. NC1074.2 124600 MOVE AJ-00005 TO COMPUTED-A. NC1074.2 124700 JUST-WRITE-06-2. NC1074.2 124800 MOVE 2 TO REC-CT. NC1074.2 124900 PERFORM PRINT-DETAIL. NC1074.2 125000 JUST-INIT-06-3. NC1074.2 125100 MOVE "ABCDEFG" TO XJ-00007. NC1074.2 125200 MOVE SPACE TO AJ-00007. NC1074.2 125300 JUST-TEST-06-3. NC1074.2 125400 MOVE XJ-00007 TO AJ-00007. NC1074.2 125500 IF AJ-00007 EQUAL TO "ABCDEFG" NC1074.2 125600 PERFORM PASS NC1074.2 125700 GO TO JUST-WRITE-06-3 NC1074.2 125800 ELSE GO TO JUST-FAIL-06-3. NC1074.2 125900 JUST-DELETE-06-3. NC1074.2 126000 PERFORM DE-LETE. NC1074.2 126100 GO TO JUST-WRITE-06-3. NC1074.2 126200 JUST-FAIL-06-3. NC1074.2 126300 PERFORM FAIL. NC1074.2 126400 MOVE "ABCDEFG" TO CORRECT-A. NC1074.2 126500 MOVE AJ-00007 TO COMPUTED-A. NC1074.2 126600 JUST-WRITE-06-3. NC1074.2 126700 MOVE 3 TO REC-CT. NC1074.2 126800 PERFORM PRINT-DETAIL. NC1074.2 126900 JUST-INIT-06-4. NC1074.2 127000 MOVE SPACE TO XJ-00005. NC1074.2 127100 JUST-TEST-06-4. NC1074.2 127200 MOVE XJ-00007 TO XJ-00005. NC1074.2 127300 IF XJ-00005 EQUAL TO "CDEFG" NC1074.2 127400 PERFORM PASS NC1074.2 127500 GO TO JUST-WRITE-06-4 NC1074.2 127600 ELSE GO TO JUST-FAIL-06-4. NC1074.2 127700 JUST-DELETE-06-4. NC1074.2 127800 PERFORM DE-LETE. NC1074.2 127900 GO TO JUST-WRITE-06-4. NC1074.2 128000 JUST-FAIL-06-4. NC1074.2 128100 PERFORM FAIL. NC1074.2 128200 MOVE "CDEFG" TO CORRECT-A. NC1074.2 128300 MOVE XJ-00005 TO COMPUTED-A. NC1074.2 128400 JUST-WRITE-06-4. NC1074.2 128500 MOVE 4 TO REC-CT. NC1074.2 128600 PERFORM PRINT-DETAIL. NC1074.2 128700 JUST-INIT-06-5. NC1074.2 128800 MOVE SPACE TO XJ-00009. NC1074.2 128900 JUST-TEST-06-5. NC1074.2 129000 MOVE XJ-00007 TO XJ-00009. NC1074.2 129100 IF XJ-00009 EQUAL TO " ABCDEFG" NC1074.2 129200 PERFORM PASS NC1074.2 129300 GO TO JUST-WRITE-06-5 NC1074.2 129400 ELSE GO TO JUST-FAIL-06-5. NC1074.2 129500 JUST-DELETE-06-5. NC1074.2 129600 PERFORM DE-LETE. NC1074.2 129700 GO TO JUST-WRITE-06-5. NC1074.2 129800 JUST-FAIL-06-5. NC1074.2 129900 PERFORM FAIL. NC1074.2 130000 MOVE " ABCDEFG" TO CORRECT-A. NC1074.2 130100 MOVE XJ-00009 TO COMPUTED-A. NC1074.2 130200 JUST-WRITE-06-5. NC1074.2 130300 MOVE 5 TO REC-CT. NC1074.2 130400 PERFORM PRINT-DETAIL. NC1074.2 130500 MOVE 0 TO REC-CT. NC1074.2 130600 SYNC-TEST-1. NC1074.2 130700 MOVE "VI-44 5.13.4" TO ANSI-REFERENCE. NC1074.2 130800 IF DATA-G EQUAL TO DATA-H NC1074.2 130900 PERFORM PASS NC1074.2 131000 ELSE NC1074.2 131100 PERFORM FAIL. NC1074.2 131200 GO TO SYNC-WRITE-1. NC1074.2 131300 SYNC-DELETE-1. NC1074.2 131400 PERFORM DE-LETE. NC1074.2 131500 SYNC-WRITE-1. NC1074.2 131600 MOVE "SYNCHRONIZED" TO FEATURE. NC1074.2 131700 MOVE "SYNC-TEST-1" TO PAR-NAME. NC1074.2 131800 PERFORM PRINT-DETAIL. NC1074.2 131900 BZERO-INIT. NC1074.2 132000 MOVE "VI-22 5.4" TO ANSI-REFERENCE. NC1074.2 132100 MOVE "BLANK WHEN ZERO" TO FEATURE. NC1074.2 132200 BZERO-TEST-1-0. NC1074.2 132300 MOVE 0000000000 TO DATA-F. NC1074.2 132400 BZERO-TEST-1-1. NC1074.2 132500 IF DATA-F EQUAL TO " " NC1074.2 132600 PERFORM PASS NC1074.2 132700 ELSE NC1074.2 132800 GO TO BZERO-FAIL-1. NC1074.2 132900 GO TO BZERO-WRITE-1. NC1074.2 133000 BZERO-DELETE-1. NC1074.2 133100 PERFORM DE-LETE. NC1074.2 133200 GO TO BZERO-WRITE-1. NC1074.2 133300 BZERO-FAIL-1. NC1074.2 133400 MOVE DATA-F TO COMPUTED-A. NC1074.2 133500 MOVE "SHOULD BE BLANK" TO CORRECT-A. NC1074.2 133600 PERFORM FAIL. NC1074.2 133700 BZERO-WRITE-1. NC1074.2 133800 MOVE "BZERO-TEST-1" TO PAR-NAME. NC1074.2 133900 PERFORM PRINT-DETAIL. NC1074.2 134000 BZERO-INIT-2. NC1074.2 134100 MOVE "VI-22 5.4" TO ANSI-REFERENCE. NC1074.2 134200 MOVE 0000 TO DATA-M. NC1074.2 134300 BZERO-TEST-2. NC1074.2 134400 IF DATA-M EQUAL TO SPACE NC1074.2 134500 PERFORM PASS NC1074.2 134600 GO TO BZERO-WRITE-2. NC1074.2 134700 GO TO BZERO-FAIL-2. NC1074.2 134800 BZERO-DELETE-2. NC1074.2 134900 PERFORM DE-LETE. NC1074.2 135000 GO TO BZERO-WRITE-2. NC1074.2 135100 BZERO-FAIL-2. NC1074.2 135200 MOVE DATA-M TO COMPUTED-A. NC1074.2 135300 MOVE "SHOULD BE BLANK" TO CORRECT-A. NC1074.2 135400 PERFORM FAIL. NC1074.2 135500 BZERO-WRITE-2. NC1074.2 135600 MOVE "BZERO-TEST-2" TO PAR-NAME. NC1074.2 135700 PERFORM PRINT-DETAIL. NC1074.2 135800 BZERO-INIT-3. NC1074.2 135900 MOVE "VI-22 5.4" TO ANSI-REFERENCE. NC1074.2 136000 BZERO-TEST-3. NC1074.2 136100 IF DATA-P1 EQUAL TO "000" NC1074.2 136200 PERFORM PASS GO TO BZERO-WRITE-3. NC1074.2 136300 GO TO BZERO-FAIL-3. NC1074.2 136400 BZERO-DELETE-3. NC1074.2 136500 PERFORM DE-LETE. NC1074.2 136600 GO TO BZERO-WRITE-3. NC1074.2 136700 BZERO-FAIL-3. NC1074.2 136800 PERFORM FAIL. NC1074.2 136900 MOVE DATA-P1 TO COMPUTED-A. NC1074.2 137000 MOVE "000" TO CORRECT-A. NC1074.2 137100 BZERO-WRITE-3. NC1074.2 137200 MOVE "BZERO-TEST-3" TO PAR-NAME. NC1074.2 137300 PERFORM PRINT-DETAIL. NC1074.2 137400 LONG-PARAGRAPH-NAME-----INIT-1. NC1074.2 137500 MOVE "IV-9 4.2.2.2.1" TO ANSI-REFERENCE. NC1074.2 137600 LONG-PARAGRAPH-NAME-----TEST-1. NC1074.2 137700 PERFORM PASS. NC1074.2 137800 GO TO LONG-WRITE-1. NC1074.2 137900 LONG-DELETE-1. NC1074.2 138000 PERFORM DE-LETE. NC1074.2 138100 LONG-WRITE-1. NC1074.2 138200 MOVE "LONG PARAGRAPH-NAME" TO FEATURE. NC1074.2 138300 MOVE "LONG-PARAGRAPH---ETC" TO PAR-NAME. NC1074.2 138400 PERFORM PRINT-DETAIL. NC1074.2 138500 LONG-INIT-2. NC1074.2 138600 MOVE "IV-9 4.2.2.2.1" TO ANSI-REFERENCE. NC1074.2 138700 LONG-TEST-2. NC1074.2 138800 MOVE SPACE TO A-DATA-NAME-30-CHARACTERS-LONG. NC1074.2 138900 PERFORM PASS. NC1074.2 139000 GO TO LONG-WRITE-2. NC1074.2 139100 LONG-DELETE-2. NC1074.2 139200 PERFORM DE-LETE. NC1074.2 139300 LONG-WRITE-2. NC1074.2 139400 MOVE "LONG DATA-NAME" TO FEATURE. NC1074.2 139500 MOVE "LONG-TEST-2" TO PAR-NAME. NC1074.2 139600 PERFORM PRINT-DETAIL. NC1074.2 139700 LONG-INIT-3. NC1074.2 139800 MOVE "IV-9 4.2.2.2.1" TO ANSI-REFERENCE. NC1074.2 139900 LONG-TEST-3. NC1074.2 140000 MOVE SPACE TO LONG-PICTURE. NC1074.2 140100 PERFORM PASS. NC1074.2 140200 GO TO LONG-WRITE-3. NC1074.2 140300 LONG-DELETE-3. NC1074.2 140400 PERFORM DE-LETE. NC1074.2 140500 LONG-WRITE-3. NC1074.2 140600 MOVE "LONG PICTURE" TO FEATURE. NC1074.2 140700 MOVE "LONG-TEST-3" TO PAR-NAME. NC1074.2 140800 PERFORM PRINT-DETAIL. NC1074.2 140900 LONG-INIT-4. NC1074.2 141000 MOVE "IV-9 4.2.2.2.1" TO ANSI-REFERENCE. NC1074.2 141100 LONG-TEST-4. NC1074.2 141200 MOVE "LONG-TEST-4" TO PAR-NAME. NC1074.2 141300 IF LONG-LITERAL EQUAL TO "STANDARD COMPILERS MUST ALLOWNC1074.2 141400- " NON-NUMERIC LITERALS OF AT LEAST 120 CHARACTERS AND NUMERICNC1074.2 141500- " LITERALS OF AT LEAST 18 DIGITS BUT NOW EXTENDED UPTO 160 DINC1074.2 141600- "GITS FOR 8X" NC1074.2 141700 PERFORM PASS NC1074.2 141800 ELSE NC1074.2 141900 GO TO LONG-FAIL-4. NC1074.2 142000 GO TO LONG-WRITE-4. NC1074.2 142100 LONG-DELETE-4. NC1074.2 142200 MOVE "LONG-TEST-4" TO PAR-NAME. NC1074.2 142300 PERFORM DE-LETE. NC1074.2 142400 GO TO LONG-WRITE-4. NC1074.2 142500 LONG-FAIL-4. NC1074.2 142600 PERFORM FAIL. NC1074.2 142700 MOVE SPACE TO TEST-RESULTS. NC1074.2 142800 MOVE LONG20 TO COMPUTED-A. NC1074.2 142900 PERFORM PRINT-DETAIL. NC1074.2 143000 MOVE LONG40 TO COMPUTED-A. NC1074.2 143100 PERFORM PRINT-DETAIL. NC1074.2 143200 MOVE LONG60 TO COMPUTED-A. NC1074.2 143300 PERFORM PRINT-DETAIL. NC1074.2 143400 MOVE LONG80 TO COMPUTED-A. NC1074.2 143500 PERFORM PRINT-DETAIL. NC1074.2 143600 MOVE LONG100 TO COMPUTED-A. NC1074.2 143700 PERFORM PRINT-DETAIL. NC1074.2 143800 MOVE LONG120 TO COMPUTED-A. NC1074.2 143900 PERFORM PRINT-DETAIL. NC1074.2 144000 MOVE LONG140 TO COMPUTED-A. NC1074.2 144100 PERFORM PRINT-DETAIL. NC1074.2 144200 MOVE LONG160 TO COMPUTED-A. NC1074.2 144300 PERFORM PRINT-DETAIL. NC1074.2 144400 MOVE "SEE PROGRAM" TO RE-MARK. NC1074.2 144500 LONG-WRITE-4. NC1074.2 144600 MOVE "LONG NON-NUM LITERAL" TO FEATURE. NC1074.2 144700 PERFORM PRINT-DETAIL. NC1074.2 144800 LONG-INIT-5. NC1074.2 144900 MOVE "IV-9 4.2.2.2.1" TO ANSI-REFERENCE. NC1074.2 145000 MOVE 211113411,114311112 TO LONG-NUMBER. NC1074.2 145100 LONG-TEST-5. NC1074.2 145200 IF LONG-NUMBER EQUAL TO 211113411,114311112 PERFORM PASS NC1074.2 145300 ELSE GO TO LONG-FAIL-5. NC1074.2 145400 GO TO LONG-WRITE-5. NC1074.2 145500 LONG-DELETE-5. NC1074.2 145600 PERFORM DE-LETE. NC1074.2 145700 GO TO LONG-WRITE-5. NC1074.2 145800 LONG-FAIL-5. NC1074.2 145900 MOVE LONG-NUMBER TO COMPUTED-N. NC1074.2 146000 MOVE " 211113411,114311112" TO CORRECT-A. NC1074.2 146100 PERFORM FAIL. NC1074.2 146200 LONG-WRITE-5. NC1074.2 146300 MOVE "LONG NUMERIC LITERAL" TO FEATURE. NC1074.2 146400 MOVE "LONG-TEST-5" TO PAR-NAME. NC1074.2 146500 PERFORM PRINT-DETAIL. NC1074.2 146600 LONG-INIT-6. NC1074.2 146700 MOVE "IV-9 4.2.2.2.1" TO ANSI-REFERENCE. NC1074.2 146800 MOVE "ABCDEFGHIJKLMNOPQRST" TO LONG-PICTURE-A. NC1074.2 146900 LONG-TEST-6. NC1074.2 147000 MOVE LONG-PICTURE-A TO LONG-PICTURE-B. NC1074.2 147100 MOVE LONG-PICTURE-B TO LONG-PICTURE-C. NC1074.2 147200 IF LONG-PICTURE-C EQUAL TO "FGHIJKLMNO" NC1074.2 147300 PERFORM PASS GO TO LONG-WRITE-6. NC1074.2 147400 GO TO LONG-FAIL-6. NC1074.2 147500 LONG-DELETE-6. NC1074.2 147600 PERFORM DE-LETE. NC1074.2 147700 GO TO LONG-WRITE-6. NC1074.2 147800 LONG-FAIL-6. NC1074.2 147900 MOVE LONG-PICTURE-C TO COMPUTED-A. NC1074.2 148000 MOVE "FGHIJKLMNO" TO CORRECT-A. NC1074.2 148100 PERFORM FAIL. NC1074.2 148200 LONG-WRITE-6. NC1074.2 148300 MOVE "LONG PICTURE" TO FEATURE. NC1074.2 148400 MOVE "LONG-TEST-6" TO PAR-NAME. NC1074.2 148500 PERFORM PRINT-DETAIL. NC1074.2 148600 RDF-INIT-1. NC1074.2 148700 MOVE "VI-38 5.10" TO ANSI-REFERENCE. NC1074.2 148800 MOVE "REDEFINES" TO FEATURE. NC1074.2 148900 RDF-TEST-1-0. NC1074.2 149000 MOVE "5" TO REDEF2. NC1074.2 149100 RDF-TEST-1-1. NC1074.2 149200 IF REDEF1 EQUAL TO 5 PERFORM PASS GO TO RDF-WRITE-1. NC1074.2 149300 GO TO RDF-FAIL-1. NC1074.2 149400 RDF-DELETE-1. NC1074.2 149500 PERFORM DE-LETE. NC1074.2 149600 GO TO RDF-WRITE-1. NC1074.2 149700 RDF-FAIL-1. NC1074.2 149800 MOVE REDEF1 TO COMPUTED-A. NC1074.2 149900 MOVE "5" TO CORRECT-A. NC1074.2 150000 PERFORM FAIL. NC1074.2 150100 RDF-WRITE-1. NC1074.2 150200 MOVE "RDF-TEST-1" TO PAR-NAME. NC1074.2 150300 PERFORM PRINT-DETAIL. NC1074.2 150400 RDF-INIT-2. NC1074.2 150500 MOVE "VI-38 5.10" TO ANSI-REFERENCE. NC1074.2 150600 RDF-TEST-2-0. NC1074.2 150700 MOVE "W" TO REDEF4. NC1074.2 150800 RDF-TEST-2-1. NC1074.2 150900 IF REDEF3 EQUAL TO "WBC" PERFORM PASS GO TO RDF-WRITE-2. NC1074.2 151000 GO TO RDF-FAIL-2. NC1074.2 151100 RDF-DELETE-2. NC1074.2 151200 PERFORM DE-LETE. NC1074.2 151300 GO TO RDF-WRITE-2. NC1074.2 151400 RDF-FAIL-2. NC1074.2 151500 MOVE REDEF3 TO COMPUTED-A. NC1074.2 151600 MOVE "WBC" TO CORRECT-A. NC1074.2 151700 PERFORM FAIL. NC1074.2 151800 RDF-WRITE-2. NC1074.2 151900 MOVE "RDF-TEST-2" TO PAR-NAME. NC1074.2 152000 PERFORM PRINT-DETAIL. NC1074.2 152100 RDF-INIT-3. NC1074.2 152200 MOVE "VI-38 5.10" TO ANSI-REFERENCE. NC1074.2 152300 MOVE 123456 TO REDEF6. NC1074.2 152400 MOVE "AB" TO REDEF8A. NC1074.2 152500 MOVE "EF" TO REDEF8C. NC1074.2 152600 RDF-TEST-3. NC1074.2 152700 IF REDEF5 EQUAL TO "AB34EF" PERFORM PASS GO TO RDF-WRITE-3. NC1074.2 152800 GO TO RDF-FAIL-3. NC1074.2 152900 RDF-DELETE-3. NC1074.2 153000 PERFORM DE-LETE. NC1074.2 153100 GO TO RDF-WRITE-3. NC1074.2 153200 RDF-FAIL-3. NC1074.2 153300 MOVE REDEF5 TO COMPUTED-A. NC1074.2 153400 MOVE "AB34EF" TO CORRECT-A. NC1074.2 153500 PERFORM FAIL. NC1074.2 153600 RDF-WRITE-3. NC1074.2 153700 MOVE "RDF-TEST-3" TO PAR-NAME. NC1074.2 153800 PERFORM PRINT-DETAIL. NC1074.2 153900 RDF-INIT-4. NC1074.2 154000 MOVE "VI-38 5.10" TO ANSI-REFERENCE. NC1074.2 154100 RDF-TEST-4. NC1074.2 154200 IF RDFDATA7 EQUAL TO "ABC98765DE911644ALLD" NC1074.2 154300 PERFORM PASS NC1074.2 154400 GO TO RDF-WRITE-4. NC1074.2 154500 MOVE RDFDATA7 TO COMPUTED-A. NC1074.2 154600 MOVE "ABC98765DE911644ALLD" TO CORRECT-A. NC1074.2 154700 PERFORM FAIL. NC1074.2 154800 GO TO RDF-WRITE-4. NC1074.2 154900 RDF-DELETE-4. NC1074.2 155000 PERFORM DE-LETE. NC1074.2 155100 RDF-WRITE-4. NC1074.2 155200 MOVE "RDF-TEST-4 " TO PAR-NAME. NC1074.2 155300 PERFORM PRINT-DETAIL. NC1074.2 155400 RDF-INIT-5. NC1074.2 155500 MOVE "VI-38 5.10" TO ANSI-REFERENCE. NC1074.2 155600 RDF-TEST-5. NC1074.2 155700 IF RDFDATA8 (13) EQUAL TO "HG" NC1074.2 155800 PERFORM PASS NC1074.2 155900 GO TO RDF-WRITE-5. NC1074.2 156000 MOVE "HG" TO CORRECT-A. NC1074.2 156100 MOVE RDFDATA8 (13) TO COMPUTED-A. NC1074.2 156200 PERFORM FAIL. NC1074.2 156300 GO TO RDF-WRITE-5. NC1074.2 156400 RDF-DELETE-5. NC1074.2 156500 PERFORM DE-LETE. NC1074.2 156600 RDF-WRITE-5. NC1074.2 156700 MOVE "RDF-TEST-5 " TO PAR-NAME. NC1074.2 156800 PERFORM PRINT-DETAIL. NC1074.2 156900 RDF-INIT-6. NC1074.2 157000 MOVE "VI-38 5.10" TO ANSI-REFERENCE. NC1074.2 157100 RDF-TEST-6. NC1074.2 157200 IF RDFDATA2 EQUAL TO 9116,44 NC1074.2 157300 PERFORM PASS NC1074.2 157400 GO TO RDF-WRITE-6. NC1074.2 157500 MOVE 9116,44 TO COMPUTED-N. NC1074.2 157600 MOVE RDFDATA2 TO CORRECT-N. NC1074.2 157700 PERFORM FAIL. NC1074.2 157800 GO TO RDF-WRITE-6. NC1074.2 157900 RDF-DELETE-6. NC1074.2 158000 PERFORM DE-LETE. NC1074.2 158100 RDF-WRITE-6. NC1074.2 158200 MOVE "RDF-TEST-6 " TO PAR-NAME. NC1074.2 158300 PERFORM PRINT-DETAIL. NC1074.2 158400 RDF-INIT-7. NC1074.2 158500 MOVE "VI-38 5.10" TO ANSI-REFERENCE. NC1074.2 158600 RDF-TEST-7. NC1074.2 158700 IF RDFDATA16 EQUAL TO 66 NC1074.2 158800 PERFORM PASS NC1074.2 158900 GO TO RDF-WRITE-7. NC1074.2 159000 MOVE RDFDATA16 TO COMPUTED-A. NC1074.2 159100 MOVE 66 TO CORRECT-A. NC1074.2 159200 PERFORM FAIL. NC1074.2 159300 GO TO RDF-WRITE-7. NC1074.2 159400 RDF-DELETE-7. NC1074.2 159500 PERFORM DE-LETE. NC1074.2 159600 RDF-WRITE-7. NC1074.2 159700 MOVE "RDF-TEST-7 " TO PAR-NAME. NC1074.2 159800 PERFORM PRINT-DETAIL. NC1074.2 159900 RDF-INIT-8. NC1074.2 160000 MOVE "VI-38 5.10" TO ANSI-REFERENCE. NC1074.2 160100 MOVE SPACE TO REDEF12. NC1074.2 160200 RDF-TEST-8. NC1074.2 160300 IF REDEF11 EQUAL TO SPACE NC1074.2 160400 PERFORM PASS NC1074.2 160500 GO TO RDF-WRITE-8. NC1074.2 160600 MOVE "SPACE EXPECTED " TO CORRECT-A. NC1074.2 160700 MOVE "NON BLANK CHARACTERS" TO COMPUTED-A. NC1074.2 160800 MOVE "REDEF11 CONTAINS NON BLANKS" TO RE-MARK. NC1074.2 160900 PERFORM FAIL. NC1074.2 161000 GO TO RDF-WRITE-8. NC1074.2 161100 RDF-DELETE-8. NC1074.2 161200 PERFORM DE-LETE. NC1074.2 161300 RDF-WRITE-8. NC1074.2 161400 MOVE "RDF-TEST-8 " TO PAR-NAME. NC1074.2 161500 PERFORM PRINT-DETAIL. NC1074.2 161600 RDF-INIT-9. NC1074.2 161700 MOVE "VI-38 5.10" TO ANSI-REFERENCE. NC1074.2 161800 MOVE ZERO TO REDEF12. NC1074.2 161900 MOVE SPACE TO REDEF11. NC1074.2 162000 RDF-TEST-9. NC1074.2 162100 IF RDFDATA18 EQUAL TO ZERO NC1074.2 162200 PERFORM PASS NC1074.2 162300 GO TO RDF-WRITE-9. NC1074.2 162400 MOVE "00000000000000" TO CORRECT-A. NC1074.2 162500 MOVE RDFDATA18 TO COMPUTED-A. NC1074.2 162600 PERFORM FAIL. NC1074.2 162700 GO TO RDF-WRITE-9. NC1074.2 162800 RDF-DELETE-9. NC1074.2 162900 PERFORM DE-LETE. NC1074.2 163000 RDF-WRITE-9. NC1074.2 163100 MOVE "RDF-TEST-9 " TO PAR-NAME. NC1074.2 163200 PERFORM PRINT-DETAIL. NC1074.2 163300 RDF-INIT-10. NC1074.2 163400 MOVE "VI-38 5.10" TO ANSI-REFERENCE. NC1074.2 163500 MOVE ZERO TO REDEF12. NC1074.2 163600 MOVE "MOVING DATA TO A REDEFINED FIELD CAN BE RISKY " NC1074.2 163700 TO REDEF10. NC1074.2 163800 RDF-TEST-10. NC1074.2 163900 IF RDFDATA8 (14) EQUAL TO "00" NC1074.2 164000 PERFORM PASS NC1074.2 164100 GO TO RDF-WRITE-10. NC1074.2 164200 MOVE 00 TO CORRECT-A. NC1074.2 164300 MOVE RDFDATA8 (14) TO COMPUTED-A. NC1074.2 164400 PERFORM FAIL. NC1074.2 164500 GO TO RDF-WRITE-10. NC1074.2 164600 RDF-DELETE-10. NC1074.2 164700 PERFORM DE-LETE. NC1074.2 164800 RDF-WRITE-10. NC1074.2 164900 MOVE "RDF-TEST-10 " TO PAR-NAME. NC1074.2 165000 PERFORM PRINT-DETAIL. NC1074.2 165100 RDF-INIT-11. NC1074.2 165200 MOVE "VI-38 5.10" TO ANSI-REFERENCE. NC1074.2 165300 RDF-TEST-11. NC1074.2 165400 MOVE REDEF13 TO REDEF12. NC1074.2 165500 IF REDEF10 EQUAL TO NC1074.2 165600 "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" NC1074.2 165700 PERFORM PASS NC1074.2 165800 GO TO RDF-WRITE-11. NC1074.2 165900 MOVE "ALPHABETIC A 46 LONG" TO CORRECT-A COMPUTED-A. NC1074.2 166000 MOVE "FIELDS DIDNT COMPARE EQUAL " TO RE-MARK. NC1074.2 166100 PERFORM FAIL. NC1074.2 166200 GO TO RDF-WRITE-11. NC1074.2 166300 RDF-DELETE-11. NC1074.2 166400 PERFORM DE-LETE. NC1074.2 166500 RDF-WRITE-11. NC1074.2 166600 MOVE "RDF-TEST-11 " TO PAR-NAME. NC1074.2 166700 PERFORM PRINT-DETAIL. NC1074.2 166800 RDF-INIT-12. NC1074.2 166900 MOVE "VI-38 5.10.3 SR6" TO ANSI-REFERENCE. NC1074.2 167000 MOVE "ABC98765DE" TO REDEF20. NC1074.2 167100 RDF-TEST-12. NC1074.2 167200 IF REDEF22 = "ABC98765DE" NC1074.2 167300 PERFORM PASS NC1074.2 167400 GO TO RDF-WRITE-12. NC1074.2 167500 GO TO RDF-FAIL-12. NC1074.2 167600 RDF-DELETE-12. NC1074.2 167700 PERFORM DE-LETE. NC1074.2 167800 GO TO RDF-WRITE-12. NC1074.2 167900 RDF-FAIL-12. NC1074.2 168000 MOVE REDEF22 TO COMPUTED-A. NC1074.2 168100 MOVE "ABC98765DE" TO CORRECT-A. NC1074.2 168200 PERFORM FAIL. NC1074.2 168300 RDF-WRITE-12. NC1074.2 168400 MOVE "RDF-TEST-12 " TO PAR-NAME. NC1074.2 168500 PERFORM PRINT-DETAIL. NC1074.2 168600 RDF-INIT-13. NC1074.2 168700 MOVE "VI-38 5.10.3 SR6" TO ANSI-REFERENCE. NC1074.2 168800 MOVE "0987654321" TO REDEF22. NC1074.2 168900 RDF-TEST-13. NC1074.2 169000 IF REDEF23 = "098765432" NC1074.2 169100 PERFORM PASS NC1074.2 169200 GO TO RDF-WRITE-13. NC1074.2 169300 GO TO RDF-FAIL-13. NC1074.2 169400 RDF-DELETE-13. NC1074.2 169500 PERFORM DE-LETE. NC1074.2 169600 GO TO RDF-WRITE-13. NC1074.2 169700 RDF-FAIL-13. NC1074.2 169800 MOVE REDEF22 TO COMPUTED-A. NC1074.2 169900 MOVE "098765432" TO CORRECT-A. NC1074.2 170000 PERFORM FAIL. NC1074.2 170100 RDF-WRITE-13. NC1074.2 170200 MOVE "RDF-TEST-13" TO PAR-NAME. NC1074.2 170300 PERFORM PRINT-DETAIL. NC1074.2 170400 USAGE-INIT-1. NC1074.2 170500 MOVE "VI-46 5.14" TO ANSI-REFERENCE. NC1074.2 170600 MOVE "USAGE" TO FEATURE. NC1074.2 170700 USAGE-TEST-1. NC1074.2 170800 IF U2 GREATER THAN U7 PERFORM PASS ELSE PERFORM FAIL. NC1074.2 170900 GO TO USAGE-WRITE-1. NC1074.2 171000 USAGE-DELETE-1. NC1074.2 171100 PERFORM DE-LETE. NC1074.2 171200 USAGE-WRITE-1. NC1074.2 171300 MOVE "USAGE-TEST-1" TO PAR-NAME. NC1074.2 171400 PERFORM PRINT-DETAIL. NC1074.2 171500 USAGE-INIT-2. NC1074.2 171600 MOVE "VI-46 5.14" TO ANSI-REFERENCE. NC1074.2 171700 USAGE-TEST-2. NC1074.2 171800 IF U2 EQUAL TO U4 PERFORM PASS ELSE PERFORM FAIL. NC1074.2 171900 GO TO USAGE-WRITE-2. NC1074.2 172000 USAGE-DELETE-2. NC1074.2 172100 PERFORM DE-LETE. NC1074.2 172200 USAGE-WRITE-2. NC1074.2 172300 MOVE "USAGE-TEST-2" TO PAR-NAME. NC1074.2 172400 PERFORM PRINT-DETAIL. NC1074.2 172500 USAGE-INIT-3. NC1074.2 172600 MOVE "VI-46 5.14" TO ANSI-REFERENCE. NC1074.2 172700 USAGE-TEST-3. NC1074.2 172800 IF U3 EQUAL TO U4 PERFORM PASS ELSE PERFORM FAIL. NC1074.2 172900 GO TO USAGE-WRITE-3. NC1074.2 173000 USAGE-DELETE-3. NC1074.2 173100 PERFORM DE-LETE. NC1074.2 173200 USAGE-WRITE-3. NC1074.2 173300 MOVE "USAGE-TEST-3" TO PAR-NAME. NC1074.2 173400 PERFORM PRINT-DETAIL. NC1074.2 173500 USAGE-INIT-4. NC1074.2 173600 MOVE "VI-46 5.14" TO ANSI-REFERENCE. NC1074.2 173700 USAGE-TEST-4-0. NC1074.2 173800 MOVE U5 TO U9. NC1074.2 173900 USAGE-TEST-4-1. NC1074.2 174000 IF U6 EQUAL TO U10 NC1074.2 174100 PERFORM PASS NC1074.2 174200 GO TO USAGE-WRITE-4. NC1074.2 174300 GO TO USAGE-FAIL-4. NC1074.2 174400 USAGE-DELETE-4. NC1074.2 174500 PERFORM DE-LETE. NC1074.2 174600 GO TO USAGE-WRITE-4. NC1074.2 174700 USAGE-FAIL-4. NC1074.2 174800 MOVE U10 TO COMPUTED-N. NC1074.2 174900 MOVE U6 TO CORRECT-N. NC1074.2 175000 PERFORM FAIL. NC1074.2 175100 USAGE-WRITE-4. NC1074.2 175200 MOVE "USAGE-TEST-4" TO PAR-NAME. NC1074.2 175300 PERFORM PRINT-DETAIL. NC1074.2 175400 USAGE-INIT-5. NC1074.2 175500 MOVE "VI-46 5.14" TO ANSI-REFERENCE. NC1074.2 175600 USAGE-TEST-5-0. NC1074.2 175700 MOVE U5 TO U9. NC1074.2 175800 USAGE-TEST-5-1. NC1074.2 175900 IF U7 EQUAL TO U11 NC1074.2 176000 PERFORM PASS NC1074.2 176100 GO TO USAGE-WRITE-5. NC1074.2 176200 MOVE U7 TO CORRECT-N. NC1074.2 176300 MOVE U11 TO COMPUTED-N. NC1074.2 176400 PERFORM FAIL. NC1074.2 176500 GO TO USAGE-WRITE-5. NC1074.2 176600 USAGE-DELETE-5. NC1074.2 176700 PERFORM DE-LETE. NC1074.2 176800 USAGE-WRITE-5. NC1074.2 176900 MOVE "USAGE-TEST-5" TO PAR-NAME. NC1074.2 177000 PERFORM PRINT-DETAIL. NC1074.2 177100 USAGE-INIT-6. NC1074.2 177200 MOVE "VI-47 5.14.4 GR3 GR9" TO ANSI-REFERENCE. NC1074.2 177300 USAGE-TEST-6. NC1074.2 177400 IF U22 GREATER THAN U12 PERFORM PASS ELSE PERFORM FAIL. NC1074.2 177500 GO TO USAGE-WRITE-6. NC1074.2 177600 USAGE-DELETE-6. NC1074.2 177700 PERFORM DE-LETE. NC1074.2 177800 USAGE-WRITE-6. NC1074.2 177900 MOVE "USAGE-TEST-6" TO PAR-NAME. NC1074.2 178000 PERFORM PRINT-DETAIL. NC1074.2 178100 USAGE-INIT-7. NC1074.2 178200 MOVE "VI-47 5.14.4 GR3 GR9" TO ANSI-REFERENCE. NC1074.2 178300 USAGE-TEST-7. NC1074.2 178400 IF U23 GREATER THAN U13 PERFORM PASS ELSE PERFORM FAIL. NC1074.2 178500 GO TO USAGE-WRITE-7. NC1074.2 178600 USAGE-DELETE-7. NC1074.2 178700 PERFORM DE-LETE. NC1074.2 178800 USAGE-WRITE-7. NC1074.2 178900 MOVE "USAGE-TEST-7" TO PAR-NAME. NC1074.2 179000 PERFORM PRINT-DETAIL. NC1074.2 179100 VALUE-INIT-1. NC1074.2 179200 MOVE "VI-50 5.15.6 (6)" TO ANSI-REFERENCE. NC1074.2 179300 MOVE "VALUE FOR OCCURS FIELD" TO FEATURE. NC1074.2 179400 MOVE "VALUE TESTS 1, 2 & 3" TO PAR-NAME. NC1074.2 179500 VALUE-TEST-1. NC1074.2 179600 MOVE 1 TO SUB1. NC1074.2 179700 PERFORM VALUE-TEST-2 NC1074.2 179800 UNTIL SUB1 > 10. NC1074.2 179900 GO TO CURR-TEST-1. NC1074.2 180000 VALUE-TEST-2. NC1074.2 180100 MOVE 1 TO SUB2. NC1074.2 180200 PERFORM VALUE-TEST-3 NC1074.2 180300 UNTIL SUB2 > 10. NC1074.2 180400 ADD 1 TO SUB1. NC1074.2 180500 VALUE-TEST-3. NC1074.2 180600 MOVE SUB1 TO TAB1. NC1074.2 180700 MOVE SUB2 TO TAB2. NC1074.2 180800 MOVE TAB-LOC TO PAR-NAME. NC1074.2 180900 IF VALUE-TABLE-2 (SUB1 SUB2) = "AZ" NC1074.2 181000 PERFORM PASS NC1074.2 181100 ELSE NC1074.2 181200 MOVE VALUE-TABLE-2 (SUB1 SUB2) TO COMPUTED-A NC1074.2 181300 MOVE "AZ" TO CORRECT-A NC1074.2 181400 PERFORM FAIL. NC1074.2 181500 PERFORM PRINT-DETAIL. NC1074.2 181600 ADD 1 TO SUB2. NC1074.2 181700 VALUE-DELETE-1. NC1074.2 181800 PERFORM DE-LETE. NC1074.2 181900 PERFORM PRINT-DETAIL. NC1074.2 182000 CURR-TEST-1. NC1074.2 182100 MOVE DATA-I TO DATA-J. NC1074.2 182200 IF DATA-J EQUAL TO " W12" PERFORM PASS GO TO CURR-WRITE-1. NC1074.2 182300 GO TO CURR-FAIL-1. NC1074.2 182400 CURR-DELETE-1. NC1074.2 182500 PERFORM DE-LETE. NC1074.2 182600 GO TO CURR-WRITE-1. NC1074.2 182700 CURR-FAIL-1. NC1074.2 182800 MOVE DATA-J TO COMPUTED-A. NC1074.2 182900 MOVE " W12" TO CORRECT-A. NC1074.2 183000 PERFORM FAIL. NC1074.2 183100 CURR-WRITE-1. NC1074.2 183200 MOVE "CURRENCY SIGN IS" TO FEATURE. NC1074.2 183300 MOVE "CURR-TEST-1" TO PAR-NAME. NC1074.2 183400 PERFORM PRINT-DETAIL. NC1074.2 183500 DCOM-TEST-1. NC1074.2 183600 MOVE DATA-K TO DATA-L. NC1074.2 183700 IF DATA-L EQUAL TO "1.234.567,89" PERFORM PASS NC1074.2 183800 GO TO DCOM-WRITE-1. NC1074.2 183900 GO TO DCOM-FAIL-1. NC1074.2 184000 DCOM-DELETE-1. NC1074.2 184100 PERFORM DE-LETE. NC1074.2 184200 GO TO DCOM-WRITE-1. NC1074.2 184300 DCOM-FAIL-1. NC1074.2 184400 MOVE DATA-L TO COMPUTED-A. NC1074.2 184500 MOVE "1.234.567,89" TO CORRECT-A. NC1074.2 184600 PERFORM FAIL. NC1074.2 184700 DCOM-WRITE-1. NC1074.2 184800 MOVE "DECIMAL IS COMMA" TO FEATURE. NC1074.2 184900 MOVE "DCOM-TEST-1" TO PAR-NAME. NC1074.2 185000 PERFORM PRINT-DETAIL. NC1074.2 185100 DCOM-INIT-2. NC1074.2 185200 MOVE "123456789." TO TEST-FIELD. NC1074.2 185300 DCOM-TEST-2-1. NC1074.2 185400 IF TEST-FIELD = "123456789." NC1074.2 185500 PERFORM PASS NC1074.2 185600 GO TO DCOM-WRITE-2. NC1074.2 185700 GO TO DCOM-FAIL-2. NC1074.2 185800 DCOM-DELETE-2. NC1074.2 185900 PERFORM DE-LETE. NC1074.2 186000 GO TO DCOM-WRITE-2. NC1074.2 186100 DCOM-FAIL-2. NC1074.2 186200 MOVE TEST-FIELD TO COMPUTED-A. NC1074.2 186300 MOVE "123456789." TO CORRECT-A. NC1074.2 186400 PERFORM FAIL. NC1074.2 186500 DCOM-WRITE-2. NC1074.2 186600 MOVE "DCOM-TEST-2" TO PAR-NAME. NC1074.2 186700 PERFORM PRINT-DETAIL. NC1074.2 186800 DCOM-INIT-3. NC1074.2 186900 MOVE "123456789," TO TEST-FIELD. NC1074.2 187000 DCOM-TEST-3-1. NC1074.2 187100 IF TEST-FIELD = "123456789," NC1074.2 187200 PERFORM PASS NC1074.2 187300 GO TO DCOM-WRITE-3. NC1074.2 187400 GO TO DCOM-FAIL-3. NC1074.2 187500 DCOM-DELETE-3. NC1074.2 187600 PERFORM DE-LETE. NC1074.2 187700 GO TO DCOM-WRITE-3. NC1074.2 187800 DCOM-FAIL-3. NC1074.2 187900 MOVE TEST-FIELD TO COMPUTED-A. NC1074.2 188000 MOVE "123456789," TO CORRECT-A. NC1074.2 188100 PERFORM FAIL. NC1074.2 188200 DCOM-WRITE-3. NC1074.2 188300 MOVE "DCOM-TEST-3" TO PAR-NAME. NC1074.2 188400 PERFORM PRINT-DETAIL. NC1074.2 188500 NUM-INIT-A. NC1074.2 188600 MOVE "NUMERIC PARA-NAMES" TO FEATURE. NC1074.2 188700 PERFORM PRINT-DETAIL. NC1074.2 188800 NUM-TEST-2. NC1074.2 188900 MOVE 3 TO NUM-UTILITY. NC1074.2 189000 GO TO l3 l4 l5 DEPENDING ON NUM-UTILITY. NC1074.2 189100 PERFORM FAIL. NC1074.2 189200 MOVE "GO TO DEPENDING IGNORED" TO RE-MARK. NC1074.2 189300 GO TO NUM-WRITE-2. NC1074.2 189400 NUM-DELETE-2. NC1074.2 189500 PERFORM DE-LETE. NC1074.2 189600 GO TO NUM-WRITE-2. NC1074.2 189700 l4. NC1074.2 189800 PERFORM FAIL. NC1074.2 189900 MOVE "PARAGRAPH 4 ENTERED" TO RE-MARK NC1074.2 190000 GO TO NUM-WRITE-2. NC1074.2 190100 l5. NC1074.2 190200 PERFORM PASS. NC1074.2 190300 GO TO NUM-WRITE-2. NC1074.2 190400 l3. NC1074.2 190500 PERFORM FAIL. NC1074.2 190600 MOVE "PARAGRAPH 3 ENTERED" TO RE-MARK. NC1074.2 190700 NUM-WRITE-2. NC1074.2 190800 MOVE " GO TO DEPENDING" TO FEATURE. NC1074.2 190900 MOVE "NUM-TEST-2" TO PAR-NAME. NC1074.2 191000 PERFORM PRINT-DETAIL. NC1074.2 191100 NUM-TEST-3. NC1074.2 191200 MOVE ZERO TO NUM-UTILITY. NC1074.2 191300 PERFORM l000000000000000000000000001 THRU NC1074.2 191400 l00000000000000000000000000001 2 TIMES. NC1074.2 191500 IF NUM-UTILITY EQUAL TO 220 NC1074.2 191600 PERFORM PASS GO TO NUM-WRITE-3. NC1074.2 191700 GO TO NUM-FAIL-3. NC1074.2 191800 NUM-DELETE-3. NC1074.2 191900 PERFORM DE-LETE. NC1074.2 192000 GO TO NUM-WRITE-3. NC1074.2 192100 NUM-FAIL-3. NC1074.2 192200 PERFORM FAIL. NC1074.2 192300 MOVE NUM-UTILITY TO COMPUTED-N. NC1074.2 192400 MOVE 220 TO CORRECT-N. NC1074.2 192500 NC1074.2 192600 NUM-WRITE-3. NC1074.2 192700 MOVE " PERFORM THRU TIMES" TO FEATURE. NC1074.2 192800 MOVE "NUM-TEST-3" TO PAR-NAME. NC1074.2 192900 PERFORM PRINT-DETAIL. NC1074.2 193000 NC1074.2 193100 NUM-TEST-4. NC1074.2 193200 MOVE ZERO TO NUM-UTILITY. NC1074.2 193300 PERFORM l0000000000000000000000000001. NC1074.2 193400 IF NUM-UTILITY EQUAL TO 1100 NC1074.2 193500 PERFORM PASS GO TO NUM-WRITE-4. NC1074.2 193600 GO TO NUM-FAIL-4. NC1074.2 193700 NUM-DELETE-4. NC1074.2 193800 PERFORM DE-LETE. NC1074.2 193900 GO TO NUM-WRITE-4. NC1074.2 194000 NUM-FAIL-4. NC1074.2 194100 PERFORM FAIL. NC1074.2 194200 MOVE NUM-UTILITY TO COMPUTED-N. NC1074.2 194300 MOVE 1100 TO CORRECT-N. NC1074.2 194400 NUM-WRITE-4. NC1074.2 194500 MOVE " PERFORM SECT-NAME" TO FEATURE. NC1074.2 194600 MOVE "NUM-TEST-4" TO PAR-NAME. NC1074.2 194700 PERFORM PRINT-DETAIL. NC1074.2 194800 GO TO NUM-EXIT. NC1074.2 194900 l0000000000000000000000001 SECTION. NC1074.2 195000 l00000000000000000000000001. NC1074.2 195100 ADD 1 TO NUM-UTILITY ON SIZE ERROR GO TO NUM-ERROR. NC1074.2 195200 NC1074.2 195300 l000000000000000000000000001. NC1074.2 195400 ADD 10 TO NUM-UTILITY ON SIZE ERROR GO TO NUM-ERROR. NC1074.2 195500 l0000000000000000000000000001 SECTION. NC1074.2 195600 l00000000000000000000000000001. NC1074.2 195700 ADD 100 TO NUM-UTILITY ON SIZE ERROR GO TO NUM-ERROR. NC1074.2 195800 l000000000000000000000000000001. NC1074.2 195900 ADD 1000 TO NUM-UTILITY ON SIZE ERROR GO TO NUM-ERROR. NC1074.2 196000 NUM-EXIT-SECT SECTION. NC1074.2 196100 NUM-ERROR. NC1074.2 196200 MOVE " PERFORM" TO FEATURE. NC1074.2 196300 MOVE "NUM-TEST-4 " TO PAR-NAME. NC1074.2 196400 PERFORM FAIL. NC1074.2 196500 MOVE NUM-UTILITY TO COMPUTED-N. NC1074.2 196600 MOVE "SIZE ERROR ENCOUNTERED" TO RE-MARK. NC1074.2 196700 PERFORM PRINT-DETAIL. NC1074.2 196800 NUM-EXIT. NC1074.2 196900 EXIT. NC1074.2 197000 NUM-TEST-5. NC1074.2 197100 MOVE " GO TO " TO FEATURE. NC1074.2 197200 GO TO l000000000000000000000000000002. NC1074.2 197300 NUM-DELETE-5. NC1074.2 197400 PERFORM DE-LETE. NC1074.2 197500 GO TO NUM-WRITE-5. NC1074.2 197600 l000000000000000000000000000002. NC1074.2 197700 MOVE 2222 TO NUM-UTILITY. NC1074.2 197800 COMPARE-TEST-5. NC1074.2 197900 IF NUM-UTILITY EQUAL TO 2222 NC1074.2 198000 PERFORM PASS NC1074.2 198100 GO TO NUM-WRITE-5. NC1074.2 198200 MOVE 2222 TO CORRECT-A. NC1074.2 198300 MOVE "GO TO PARAGRAPH NOT ENTERED" TO RE-MARK. NC1074.2 198400 PERFORM FAIL. NC1074.2 198500 NUM-WRITE-5. NC1074.2 198600 MOVE "NUM-TEST-5 " TO PAR-NAME. NC1074.2 198700 PERFORM PRINT-DETAIL. NC1074.2 198800 CONT-INIT-1. NC1074.2 198900 MOVE "ABCDEFGHIJ" TO TEST-FIELD. NC1074.2 199000 MOVE "CONTINUE STATEMENT" TO FEATURE. NC1074.2 199100 MOVE "VI-77 6.9" TO ANSI-REFERENCE. NC1074.2 199200 CONT-TEST-1-1. NC1074.2 199300 IF TEST-FIELD = "ABCDEFGHIJ" NC1074.2 199400 CONTINUE NC1074.2 199500 ELSE NC1074.2 199600 GO TO CONT-FAIL-1. NC1074.2 199700 PERFORM PASS. NC1074.2 199800 GO TO CONT-WRITE-1. NC1074.2 199900 CONT-DELETE-1. NC1074.2 200000 PERFORM DE-LETE. NC1074.2 200100 GO TO CONT-WRITE-1. NC1074.2 200200 CONT-FAIL-1. NC1074.2 200300 MOVE "CONTINUE STATEMENT" TO FEATURE. NC1074.2 200400 MOVE TEST-FIELD TO COMPUTED-A. NC1074.2 200500 MOVE "123456789." TO CORRECT-A. NC1074.2 200600 PERFORM FAIL. NC1074.2 200700 CONT-WRITE-1. NC1074.2 200800 MOVE "CONT-TEST-1" TO PAR-NAME. NC1074.2 200900 PERFORM PRINT-DETAIL. NC1074.2 201000 CONT-INIT-2. NC1074.2 201100 MOVE "ABCDEFGHIJ" TO TEST-FIELD. NC1074.2 201200 MOVE "CONTINUE STATEMENT" TO FEATURE. NC1074.2 201300 MOVE "VI-77 6.9" TO ANSI-REFERENCE. NC1074.2 201400 CONT-TEST-2-1. NC1074.2 201500 IF TEST-FIELD = "ABCDEFGHIJ" NC1074.2 201600 PERFORM PASS NC1074.2 201700 GO TO CONT-WRITE-2 NC1074.2 201800 ELSE NC1074.2 201900 CONTINUE. NC1074.2 202000 GO TO CONT-FAIL-2. NC1074.2 202100 CONT-DELETE-2. NC1074.2 202200 PERFORM DE-LETE. NC1074.2 202300 GO TO CONT-WRITE-2. NC1074.2 202400 CONT-FAIL-2. NC1074.2 202500 MOVE TEST-FIELD TO COMPUTED-A. NC1074.2 202600 MOVE "123456789." TO CORRECT-A. NC1074.2 202700 PERFORM FAIL. NC1074.2 202800 CONT-WRITE-2. NC1074.2 202900 MOVE "CONT-TEST-2" TO PAR-NAME. NC1074.2 203000 PERFORM PRINT-DETAIL. NC1074.2 203100 CCVS-EXIT SECTION. NC1074.2 203200 CCVS-999999. NC1074.2 203300 GO TO CLOSE-FILES. NC1074.2
¤ Dauer der Verarbeitung: 0.85 Sekunden (vorverarbeitet am 2026-04-30) ¤*© Formatika GbR, Deutschland |
|
||||||||||||||
2026-05-26