000100 IDENTIFICATION DIVISION . NC1764.2PROGRAM-ID . NC1764.2000400**************************************************************** NC1764.2 000500* * NC1764.2 000600* VALIDATION FOR:- * NC1764.2 000700* * NC1764.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1764.2 000900* * NC1764.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1764.2 001100* * NC1764.2 001200**************************************************************** NC1764.2 001300* * NC1764.2 001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC1764.2 001500* * NC1764.2 001600* X-55 - SYSTEM PRINTER NAME. * NC1764.2 001700* X-82 - SOURCE COMPUTER NAME. * NC1764.2 001800* X-83 - OBJECT COMPUTER NAME. * NC1764.2 001900* * NC1764.2 002000**************************************************************** NC1764.2 002100* NC1764.2 002200* PROGRAM NC176A TESTS FORMAT 1 OF THE ADD STATEMENT. NC1764.2 002300* VARIOUS COMBINATINS OF DATA-ITEMS AND ALL NC1764.2 002400* OPTIONAL PHRASES ARE TESTED. NC1764.2 002500* NC1764.2 ENVIRONMENT DIVISION . NC1764.2CONFIGURATION SECTION . NC1764.2SOURCE-COMPUTER . NC1764.2OBJECT-COMPUTER . NC1764.2INPUT-OUTPUT SECTION . NC1764.2FILE-CONTROL . NC1764.2SELECT PRINT-FILE ASSIGN TO NC1764.2"C0085" . NC1764.2DATA DIVISION . NC1764.2FILE SECTION . NC1764.2FD PRINT-FILE. NC1764.2PICTURE X(120). NC1764.2PICTURE X(120). NC1764.2WORKING-STORAGE SECTION . NC1764.2PICTURE 9 VALUE 1 COMPUTATIONAL. NC1764.2PICTURE 99 VALUE 1 COMPUTATIONAL. NC1764.2PICTURE 999 VALUE 1 COMPUTATIONAL. NC1764.2PICTURE 9(4) VALUE 1 COMPUTATIONAL. NC1764.2PICTURE 9(5) VALUE 1 COMPUTATIONAL. NC1764.2PICTURE 9(6) VALUE 1 COMPUTATIONAL. NC1764.2PICTURE 9(7) VALUE 1 COMPUTATIONAL. NC1764.2PICTURE 9(8) VALUE 1 COMPUTATIONAL. NC1764.2PICTURE 9(9) VALUE 1 COMPUTATIONAL. NC1764.2PICTURE 9(10) VALUE 1. NC1764.2PICTURE 9(11) VALUE 1. NC1764.2PICTURE 9(12) VALUE 1. NC1764.2PICTURE 9(13) VALUE 1. NC1764.2PICTURE 9(14) VALUE 1. NC1764.2PICTURE 9(15) VALUE 1. NC1764.2PICTURE 9(16) VALUE 1. NC1764.2PICTURE 9(17) VALUE 1. NC1764.2PICTURE 9(18) VALUE 1. NC1764.2PICTURE 9 VALUE 1. NC1764.2PICTURE 99 VALUE 1. NC1764.2PICTURE 999 VALUE 1. NC1764.2PICTURE 9(18) VALUE ZERO . NC1764.2PICTURE 9(18) VALUE ZERO . NC1764.2PICTURE 9(18) VALUE ZERO . NC1764.2PICTURE 9(18) VALUE ZERO . NC1764.2PICTURE 9(18) VALUE ZERO . NC1764.2PICTURE 9(18) VALUE ZERO . NC1764.2PICTURE 9(18) VALUE ZERO . NC1764.2PICTURE 9(18) VALUE ZERO . NC1764.2PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1764.2PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1764.2PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1764.2PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1764.2PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1764.2PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1764.2PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1764.2PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1764.2PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1764.2PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1764.2PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1764.2PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1764.2PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1764.2PICTURE X VALUE SPACE . NC1764.2PICTURE X VALUE SPACE . NC1764.2PICTURE X VALUE SPACE . NC1764.2PICTURE X VALUE SPACE . NC1764.2PICTURE S9(18) NC1764.2VALUE 222222222222222222. NC1764.2PICTURE S9(18) NC1764.2VALUE 111111111111111111. NC1764.2PICTURE S9(10). NC1764.2PICTURE S9(17) NC1764.2VALUE 22222222222222222. NC1764.2PICTURE S9(10) NC1764.2VALUE 1111111111. NC1764.2PICTURE S9(5) NC1764.2VALUE 11111. NC1764.2PICTURE S99 NC1764.2VALUE 11. NC1764.2PICTURE S9(9)V9(9). NC1764.2REDEFINES WRK-DS-09V09 NC1764.2PICTURE S9(18). NC1764.2PICTURE S999V999 NC1764.2VALUE 333.333. NC1764.2PICTURE S9(6)V9(6) NC1764.2VALUE 333333.333333. NC1764.2PICTURE S9(6)V9(6). NC1764.2REDEFINES WRK-DS-06V06 NC1764.2PICTURE S9(12). NC1764.2PICTURE SV9(5) NC1764.2VALUE .11111. NC1764.2PICTURE S9(5). NC1764.2PICTURE S99. NC1764.2PICTURE S9(12) NC1764.2VALUE 111111111111. NC1764.2PICTURE S999V9(10). NC1764.2REDEFINES WRK-DS-03V10 NC1764.2PICTURE S9(13). NC1764.2PICTURE S99 NC1764.2VALUE 99. NC1764.2PICTURE S99V9 NC1764.2VALUE 11.1. NC1764.2PICTURE S999V999 NC1764.2VALUE 111.111. NC1764.2PICTURE S99V9(6) NC1764.2VALUE 22.222222. NC1764.2PICTURE SP(8)9 NC1764.2VALUE .000000001. NC1764.2PICTURE S9(18) COMPUTATIONAL. NC1764.2PICTURE S9(18) COMPUTATIONAL NC1764.2VALUE 111111111111111111. NC1764.2PICTURE S99V99 COMPUTATIONAL. NC1764.2PICTURE S99 COMPUTATIONAL NC1764.2VALUE 99. NC1764.2PICTURE S99P. NC1764.2PICTURE S9(6). NC1764.2PICTURE S9(5)V9(5) NC1764.2VALUE ZERO . NC1764.2PICTURE S9(9)V9(9) NC1764.2VALUE +012345678.876543210. NC1764.2PICTURE X(18) NC1764.2VALUE "00ABCDEFGHI 4321 " . NC1764.2PICTURE X(18). NC1764.2PICTURE X. NC1764.2PICTURE PP9 VALUE .001. NC1764.2PICTURE 9PP VALUE 100. NC1764.2PICTURE 999V999. NC1764.2PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1764.2PIC 9 VALUE ZERO . NC1764.2PIC 9V9 VALUE 1.1. NC1764.2PIC 9V9 VALUE 2.4. NC1764.2PIC 9V999 VALUE 1.001. NC1764.2PIC 9V999 VALUE 1.001. NC1764.2PIC 9V9(5). NC1764.2PIC 9V9(17) VALUE 3.14159265358979323. NC1764.2PIC 99P(6) VALUE 99000000. NC1764.2PIC 99. NC1764.2PIC 99. NC1764.2PIC 99. NC1764.2PIC 99V9. NC1764.2PIC 99V9. NC1764.2PIC 99V9. NC1764.2PICTURE S9(18) VALUE -888888888888888888 NC1764.2PICTURE S9(18) VALUE -000022222222222222 NC1764.2PICTURE 9(18) VALUE 000000333333333333 NC1764.2PICTURE S9(18) VALUE 004444444444444444 NC1764.2PICTURE S9(18) VALUE -555555555555555555 NC1764.2PICTURE S9(18) VALUE 666666666666666666 NC1764.2PICTURE 9(18) VALUE 000000777777777777 NC1764.2PICTURE 9(18) VALUE ZERO . NC1764.2PICTURE S9(18) VALUE -333333333333333333 NC1764.2PICTURE S999 COMPUTATIONAL SYNCHRONIZED RIGHT . NC1764.2PICTURE 9 VALUE 1. NC1764.2PICTURE S99 VALUE 99. NC1764.2PICTURE S9V99 VALUE -1. NC1764.2PICTURE SPP9 VALUE .001. NC1764.2PICTURE S9PP VALUE 100. NC1764.2PICTURE 9 VALUE 1. NC1764.2PICTURE S99 VALUE 99. NC1764.2PICTURE S9V99 VALUE -9.99. NC1764.2PICTURE S999 VALUE 100. NC1764.2PICTURE S999V999. NC1764.2PICTURE IS 99999. NC1764.2PICTURE IS 9(5) NC1764.2VALUE IS 52800. NC1764.2PICTURE IS S9(9)V99 NC1764.2VALUE IS 000000001.00. NC1764.2PICTURE IS S9(7)V9(4) NC1764.2VALUE IS 0000001.0000. NC1764.2REDEFINES N-7 PICTURE IS X(11). NC1764.2PICTURE IS S99999V NC1764.2VALUE IS -00001. NC1764.2PICTURE IS 9 VALUE IS 9. NC1764.2PICTURE IS 9 VALUE IS 9. NC1764.2PICTURE IS 9(5) NC1764.2VALUE IS 99999. NC1764.2PICTURE IS 9 VALUE IS 1. NC1764.2PICTURE IS 9(16). NC1764.2PICTURE IS S999999V99 NC1764.2VALUE IS 5.90. NC1764.2PICTURE IS S9(3)V99 NC1764.2VALUE IS +3.6. NC1764.2PICTURE IS S9(10) NC1764.2VALUE IS -5. NC1764.2PICTURE IS $9.00. NC1764.2PICTURE IS S9(9) NC1764.2VALUE IS -999999999. NC1764.2PICTURE IS 9 VALUE IS 5. NC1764.2PICTURE IS 999V99 NC1764.2VALUE IS 005.55. NC1764.2PICTURE IS $$$.99CR. NC1764.2PICTURE IS 9 VALUE IS 1. NC1764.2PICTURE 9(5). NC1764.2PICTURE IS 9999V9 NC1764.2VALUE IS 9999.9. NC1764.2PICTURE IS $9999.00. NC1764.2PICTURE IS 9(7) NC1764.2VALUE IS 7777777. NC1764.2PICTURE IS 9(7) NC1764.2VALUE IS 1111111. NC1764.2PICTURE IS 9(3)P(4). NC1764.2PICTURE S9V9 VALUE +1.6. NC1764.2PICTURE S9V9 VALUE -1.6. NC1764.2PICTURE S9. NC1764.2PICTURE S9(18) VALUE -999999999999999999. NC1764.2PICTURE S9(18) VALUE -999999999999999999. NC1764.2PICTURE S9(18) VALUE +1. NC1764.2PICTURE S9(18) VALUE +999999999999999999. NC1764.2PICTURE S9(18) VALUE +999999999999999999. NC1764.2PICTURE SV9(18) VALUE -.999999999999999999. NC1764.2PICTURE SV9(18) VALUE -.999999999999999999. NC1764.2PICTURE SV9(18) VALUE +.1. NC1764.2PICTURE SV9(18) VALUE +.999999999999999999. NC1764.2PICTURE SV9(18) VALUE +.999999999999999999. NC1764.2PICTURE S9(18). NC1764.2PICTURE SV9(18). NC1764.2FILLER PIC X VALUE SPACE . NC1764.2PIC X(20) VALUE SPACE . NC1764.2FILLER PIC X VALUE SPACE . NC1764.2PIC X(5) VALUE SPACE . NC1764.2FILLER PIC X VALUE SPACE . NC1764.2FILLER PIC X(19) VALUE SPACE . NC1764.2PIC X VALUE SPACE . NC1764.2PIC 99 VALUE ZERO . NC1764.2FILLER PIC X(8) VALUE SPACE . NC1764.2PIC X(61). NC1764.2FILLER PIC X(30) VALUE SPACE . NC1764.2FILLER PIC X(17) VALUE NC1764.2" COMPUTED=" . NC1764.2PIC X(20) VALUE SPACE . NC1764.2REDEFINES COMPUTED-A NC1764.2PIC -9(9).9(9). NC1764.2REDEFINES COMPUTED-A PIC -.9(18). NC1764.2REDEFINES COMPUTED-A PIC -9(4).9(14). NC1764.2REDEFINES COMPUTED-A PIC -9(14).9(4). NC1764.2REDEFINES COMPUTED-A. NC1764.2PIC -9(18). NC1764.2FILLER PIC X. NC1764.2FILLER PIC X(50) VALUE SPACE . NC1764.2FILLER PIC X(30) VALUE SPACE . NC1764.2FILLER PIC X(17) VALUE " CORRECT =" . NC1764.2PIC X(20) VALUE SPACE . NC1764.2REDEFINES CORRECT-A PIC -9(9).9(9). NC1764.2REDEFINES CORRECT-A PIC -.9(18). NC1764.2REDEFINES CORRECT-A PIC -9(4).9(14). NC1764.2REDEFINES CORRECT-A PIC -9(14).9(4). NC1764.2REDEFINES CORRECT-A. NC1764.2PIC -9(18). NC1764.2FILLER PIC X. NC1764.2FILLER PIC X(2) VALUE SPACE . NC1764.2PIC X(48) VALUE SPACE . NC1764.2FILLER PIC IS X(99) VALUE IS " FEATURE PANC1764.2 "SS PARAGRAPH-NAME NC1764.2 " REMARKS" . NC1764.2FILLER PIC X(20) VALUE SPACE . NC1764.2FILLER PIC X VALUE SPACE . NC1764.2FILLER PIC X(6) VALUE "TESTED" . NC1764.2FILLER PIC X(15) VALUE SPACE . NC1764.2FILLER PIC X(4) VALUE "FAIL" . NC1764.2FILLER PIC X(94) VALUE SPACE . NC1764.2PIC 9(2) VALUE ZERO . NC1764.2PIC 99 VALUE ZERO . NC1764.2PIC 999 VALUE ZERO . NC1764.2PIC 999 VALUE ZERO . NC1764.2PIC 999 VALUE ZERO . NC1764.2PIC 999 VALUE ZERO . NC1764.2PIC 999 VALUE ZERO . NC1764.2PIC 999 VALUE ZERO . NC1764.2PIC X(120) VALUE SPACE . NC1764.2PIC 9(5) VALUE ZERO . NC1764.2PIC X(48) VALUE SPACES . NC1764.2FILLER PIC X(39) VALUE SPACES . NC1764.2FILLER PIC X(42) VALUE NC1764.2"OFFICIAL COBOL COMPILER VALIDATION SYSTEM" . NC1764.2FILLER PIC X(39) VALUE SPACES . NC1764.2FILLER PIC X(40) VALUE SPACE . NC1764.2FILLER PIC X(7) VALUE "CCVS85 " . NC1764.2FILLER PIC XXXX VALUE NC1764.2"4.2 " . NC1764.2FILLER PIC X(28) VALUE NC1764.2" COPY - NOT FOR DISTRIBUTION" . NC1764.2FILLER PIC X(41) VALUE SPACE . NC1764.2FILLER PIC X(15) VALUE NC1764.2"TEST RESULT OF " . NC1764.2PIC X(9). NC1764.2FILLER PIC X(4) VALUE NC1764.2" IN " . NC1764.2FILLER PIC X(12) VALUE NC1764.2" HIGH " . NC1764.2FILLER PIC X(22) VALUE NC1764.2" LEVEL VALIDATION FOR " . NC1764.2FILLER PIC X(58) VALUE NC1764.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .NC1764.2FILLER PIC X(34) VALUE NC1764.2" FOR OFFICIAL USE ONLY " . NC1764.2FILLER PIC X(58) VALUE NC1764.2"COBOL 85 VERSION 4.2, Apr 1993 SSVG " .NC1764.2FILLER PIC X(28) VALUE NC1764.2" COPYRIGHT 1985 " . NC1764.2FILLER PIC X(52) VALUE SPACE . NC1764.2FILLER PIC X(14) VALUE IS "END OF TEST- " . NC1764.2PIC X(9). NC1764.2FILLER PIC X(45) VALUE SPACES . NC1764.2FILLER PIC X(31) VALUE SPACE . NC1764.2FILLER PIC X(21) VALUE SPACE . NC1764.2PIC XXX VALUE SPACE . NC1764.2FILLER PIC X VALUE SPACE . NC1764.2PIC X(44) VALUE NC1764.2"ERRORS ENCOUNTERED" . NC1764.2FILLER PIC X(22) VALUE NC1764.2" FOR OFFICIAL USE ONLY" . NC1764.2FILLER PIC X(12) VALUE SPACE . NC1764.2FILLER PIC X(58) VALUE NC1764.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .NC1764.2FILLER PIC X(13) VALUE SPACE . NC1764.2FILLER PIC X(15) VALUE NC1764.2" COPYRIGHT 1985" . NC1764.2PIC XXX VALUE SPACE . NC1764.2FILLER PIC X(4) VALUE " OF " . NC1764.2PIC XXX VALUE SPACE . NC1764.2FILLER PIC X(40) VALUE NC1764.2" TESTS WERE EXECUTED SUCCESSFULLY" . NC1764.2FILLER PIC X(19) VALUE NC1764.2"*** INFORMATION ***" . NC1764.2FILLER PIC X(8) VALUE SPACE . NC1764.2PIC X(20). NC1764.2FILLER PIC X(5) VALUE SPACE . NC1764.2PIC X(20). NC1764.2PIC X(48). NC1764.2FILLER PIC IS X VALUE IS SPACE . NC1764.2FILLER PIC IS X(65) VALUE IS "************************NC1764.2 "*****************************************" . NC1764.2FILLER PIC IS X(54) VALUE IS "************************NC1764.2 "******************************" . NC1764.2PIC X(9) VALUE NC1764.2"NC176A" . NC1764.2PROCEDURE DIVISION . NC1764.2SECTION . NC1764.2OPEN OUTPUT PRINT-FILE. NC1764.2MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC1764.2MOVE SPACE TO TEST-RESULTS. NC1764.2PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC1764.2GO TO CCVS1-EXIT. NC1764.2PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC1764.2EXIT PROGRAM . NC1764.2STOP RUN . NC1764.2MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC1764.2MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC1764.2MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC1764.2MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC1764.2MOVE "****TEST DELETED****" TO RE-MARK. NC1764.2IF REC-CT NOT EQUAL TO ZERO NC1764.2MOVE "." TO PARDOT-X NC1764.2MOVE REC-CT TO DOTVALUE. NC1764.2MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC1764.2IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC1764.2PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC1764.2ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC1764.2MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC1764.2MOVE SPACE TO CORRECT-X. NC1764.2IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC1764.2MOVE SPACE TO RE-MARK. NC1764.2MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1764.2MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1764.2MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1764.2MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1764.2MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1764.2MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1764.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1764.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC1764.2MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1764.2ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC1764.2ADD DELETE-COUNTER TO ERROR-HOLD. NC1764.2ADD PASS-COUNTER TO ERROR-HOLD. NC1764.2043900* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC1764.2 MOVE PASS-COUNTER TO CCVS-E-4-1. NC1764.2MOVE ERROR-HOLD TO CCVS-E-4-2. NC1764.2MOVE CCVS-E-4 TO CCVS-E-2-2. NC1764.2MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC1764.2MOVE "TEST(S) FAILED" TO ENDER-DESC. NC1764.2IF ERROR-COUNTER IS EQUAL TO ZERO NC1764.2MOVE "NO " TO ERROR-TOTAL NC1764.2ELSE NC1764.2MOVE ERROR-COUNTER TO ERROR-TOTAL. NC1764.2MOVE CCVS-E-2 TO DUMMY-RECORD. NC1764.2PERFORM WRITE-LINE. NC1764.2IF DELETE-COUNTER IS EQUAL TO ZERO NC1764.2MOVE "NO " TO ERROR-TOTAL ELSE NC1764.2MOVE DELETE-COUNTER TO ERROR-TOTAL. NC1764.2MOVE "TEST(S) DELETED " TO ENDER-DESC. NC1764.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1764.2IF INSPECT-COUNTER EQUAL TO ZERO NC1764.2MOVE "NO " TO ERROR-TOTAL NC1764.2ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC1764.2MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC1764.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1764.2MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1764.2ADD 1 TO RECORD-COUNT. NC1764.2IF RECORD-COUNT GREATER 42 NC1764.2MOVE DUMMY-RECORD TO DUMMY-HOLD NC1764.2MOVE SPACE TO DUMMY-RECORD NC1764.2WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC1764.2MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1764.2MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1764.2MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1764.2MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1764.2MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC1764.2MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN NC1764.2MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC1764.2MOVE DUMMY-HOLD TO DUMMY-RECORD NC1764.2MOVE ZERO TO RECORD-COUNT. NC1764.2PERFORM WRT-LN. NC1764.2WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC1764.2MOVE SPACE TO DUMMY-RECORD. NC1764.2PERFORM WRT-LN. NC1764.2IF COMPUTED-X NOT EQUAL TO SPACE NC1764.2GO TO FAIL-ROUTINE-WRITE. NC1764.2IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC1764.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1764.2MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC1764.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1764.2MOVE SPACES TO INF-ANSI-REFERENCE. NC1764.2GO TO FAIL-ROUTINE-EX. NC1764.2MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC1764.2MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC1764.2MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC1764.2MOVE SPACES TO COR-ANSI-REFERENCE. NC1764.2EXIT . NC1764.2IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC1764.2IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC1764.2MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC1764.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1764.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1764.2MOVE SPACES TO INF-ANSI-REFERENCE. NC1764.2EXIT . NC1764.2EXIT . NC1764.2SECTION . NC1764.2MOVE "ADD" TO FEATURE. NC1764.2MOVE "VI-74 6.6.4 GR4" TO ANSI-REFERENCE. NC1764.2ADD N-5 TO N-7. NC1764.2IF N-7 IS EQUAL TO 2 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-1. NC1764.2GO TO ADD-FAIL-F1-1. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-1. NC1764.2MOVE N-7 TO COMPUTED-N. NC1764.2MOVE 2 TO CORRECT-N. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-1 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD -.6 TO N-10 ROUNDED . NC1764.2IF N-10 EQUAL TO -2 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-2. NC1764.2GO TO ADD-FAIL-F1-2. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-2. NC1764.2MOVE N-10 TO COMPUTED-N. NC1764.2MOVE -2 TO CORRECT-N. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-2 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE -2 TO N-10. NC1764.2ADD N-11 TO N-12 ON SIZE ERROR NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-3. NC1764.2GO TO ADD-FAIL-F1-3. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-3. NC1764.2MOVE N-12 TO COMPUTED-N. NC1764.2MOVE "ON SIZE ERROR NOT EXECUTED" TO RE-MARK. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-3 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1.5 TO N-13 ROUNDED ON SIZE ERROR NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-4-1. NC1764.2056700* NOTE WHEN SIZE ERROR CONDITION OCCURS, VALUE OF NC1764.2 056800* N-13 SHOULD NOT BE CHANGED. NC1764.2 GO TO ADD-FAIL-F1-4-1. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-4-1. NC1764.2MOVE N-13 TO COMPUTED-N. NC1764.2MOVE "ON SIZE ERROR NOT EXECUTED" TO RE-MARK. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-4-1 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF N-13 IS EQUAL TO 99999 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-4-2. NC1764.2GO TO ADD-FAIL-F1-4-2. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-4-2. NC1764.2MOVE N-13 TO COMPUTED-N. NC1764.2MOVE 99999 TO CORRECT-N. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-4-2 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE "ADD ---" TO FEATURE. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE " TO" TO FEATURE. NC1764.2MOVE A18TWOS-DS-18V00 TO WRK-DS-18V00. NC1764.2ADD A18ONES-DS-18V00 TO WRK-DS-18V00. NC1764.2IF WRK-DS-18V00 EQUAL TO 333333333333333333 NC1764.2PERFORM PASS GO TO ADD-WRITE-F1-5. NC1764.2GO TO ADD-FAIL-F1-5. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-5. NC1764.2MOVE WRK-DS-18V00 TO COMPUTED-18V0. NC1764.2MOVE 333333333333333333 TO CORRECT-18V0. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-5" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE ZERO TO WRK-DS-10V00. NC1764.2ADD A10ONES-DS-10V00 A05ONES-DS-05V00 TO WRK-DS-10V00. NC1764.2IF WRK-DS-10V00 EQUAL TO 1111122222 NC1764.2PERFORM PASS GO TO ADD-WRITE-F1-6. NC1764.2GO TO ADD-FAIL-F1-6. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-6. NC1764.2MOVE WRK-DS-10V00 TO COMPUTED-18V0. NC1764.2MOVE 1111122222 TO CORRECT-18V0. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-6" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE ZERO TO WRK-DS-10V00. NC1764.2ADD A02ONES-DS-02V00 NC1764.2TO WRK-DS-10V00. NC1764.2IF WRK-DS-10V00 EQUAL TO 1111122233 NC1764.2PERFORM PASS GO TO ADD-WRITE-F1-7. NC1764.2GO TO ADD-FAIL-F1-7. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-7. NC1764.2MOVE WRK-DS-10V00 TO COMPUTED-18V0. NC1764.2MOVE 1111122233 TO CORRECT-18V0. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-7" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE " ROUNDED" TO FEATURE. NC1764.2MOVE ZERO TO WRK-DS-05V00. NC1764.2ADD 55554.5 TO WRK-DS-05V00 ROUNDED . NC1764.2IF WRK-DS-05V00 EQUAL TO 55555 NC1764.2PERFORM PASS GO TO ADD-WRITE-F1-8. NC1764.2GO TO ADD-FAIL-F1-8. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-8. NC1764.2MOVE WRK-DS-05V00 TO COMPUTED-N. NC1764.2MOVE 55555 TO CORRECT-N. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-8" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE " SIZE ERROR" TO FEATURE. NC1764.2MOVE -11 TO WRK-DS-02V00. NC1764.2ADD -99 TO WRK-DS-02V00 ON SIZE ERROR NC1764.2PERFORM PASS GO TO ADD-WRITE-F1-9-1. NC1764.2GO TO ADD-FAIL-F1-9-1. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-9-1. NC1764.2MOVE "ON SIZE ERROR NOT EXECUTED" TO RE-MARK. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-9-1" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF WRK-DS-02V00 EQUAL TO -11 NC1764.2PERFORM PASS GO TO ADD-WRITE-F1-9-2. NC1764.2068600* THIS TEST DEPENDS ON THE RESULTS OF TEST-F1-9-1 ABOVE. NC1764.2 GO TO ADD-FAIL-F1-9-2. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-9-2. NC1764.2MOVE "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK. NC1764.2MOVE WRK-DS-02V00 TO COMPUTED-N. NC1764.2MOVE -11 TO CORRECT-N. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-9-2" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE " ROUNDED,SIZE ERROR" TO FEATURE. NC1764.2MOVE ZERO TO WRK-DS-05V00 NC1764.2ADD 33333 NC1764.2TO WRK-DS-05V00 ROUNDED ON SIZE ERROR NC1764.2PERFORM PASS GO TO ADD-WRITE-F1-10-1. NC1764.2GO TO ADD-FAIL-F1-10-1. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-10-1. NC1764.2MOVE "ON SIZE ERROR NOT EXECUTED" TO RE-MARK. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-10-1" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF WRK-DS-05V00 EQUAL TO ZERO NC1764.2PERFORM PASS GO TO ADD-WRITE-F1-10-2. NC1764.2072100* NOTE: THIS TEST DEPENDS UPON THE RESULT OF ADD-TEST-F1-10-1 NC1764.2 GO TO ADD-FAIL-F1-10-2. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-10-2. NC1764.2MOVE "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK. NC1764.2MOVE WRK-DS-05V00 TO COMPUTED-N. NC1764.2MOVE ZERO TO CORRECT-N. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-10-2" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE ZERO TO WRK-DS-06V06. NC1764.2ADD A12THREES-DS-06V06 NC1764.2TO WRK-DS-06V06 ROUNDED ON SIZE ERROR NC1764.2GO TO ADD-FAIL-F1-11-1. NC1764.2PERFORM PASS. NC1764.2GO TO ADD-WRITE-F1-11-1. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-11-1. NC1764.2MOVE "SIZE ERR SHOULD NOT EXECUTE" TO RE-MARK. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-11-1" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF WRK-DS-06V06 EQUAL TO 666999.666333 NC1764.2PERFORM PASS GO TO ADD-WRITE-F1-11-2. NC1764.2075500* NOTE: THIS TEST DEPENDS UPON THE RESULT OF ADD-TEST-F1-11-1 NC1764.2 GO TO ADD-FAIL-F1-11-2. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-11-2. NC1764.2MOVE WRK-DS-06V06 TO COMPUTED-N. NC1764.2MOVE 666999.666333 TO CORRECT-N. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-11-2" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE " COMP VS. DISPLAY" TO FEATURE. NC1764.2MOVE A18ONES-DS-18V00 TO WRK-CS-18V00. NC1764.2ADD A18ONES-DS-18V00 TO WRK-CS-18V00. NC1764.2IF WRK-CS-18V00 EQUAL TO 222222222222222222 NC1764.2PERFORM PASS GO TO ADD-WRITE-F1-12. NC1764.2GO TO ADD-FAIL-F1-12. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-12. NC1764.2MOVE WRK-CS-18V00 TO COMPUTED-18V0. NC1764.2MOVE 222222222222222222 TO CORRECT-18V0. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-12" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE A18ONES-DS-18V00 TO WRK-DS-18V00. NC1764.2ADD A18ONES-CS-18V00 TO WRK-DS-18V00. NC1764.2IF WRK-DS-18V00 EQUAL TO 222222222222222222 NC1764.2PERFORM PASS GO TO ADD-WRITE-F1-13. NC1764.2GO TO ADD-FAIL-F1-13. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-13. NC1764.2MOVE WRK-DS-18V00 TO COMPUTED-18V0. NC1764.2MOVE 222222222222222222 TO CORRECT-18V0. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-13" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE ZERO TO WRK-CS-02V02. NC1764.2ADD A99-CS-02V00 TO WRK-CS-02V02. NC1764.2IF WRK-CS-02V02 EQUAL TO 99.00 NC1764.2PERFORM PASS GO TO ADD-WRITE-F1-14. NC1764.2GO TO ADD-FAIL-F1-14. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-14. NC1764.2MOVE WRK-CS-02V02 TO COMPUTED-N. NC1764.2MOVE 99.00 TO CORRECT-N. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-14" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE A99-CS-02V00 TO WRK-CS-02V02. NC1764.2ADD A99-CS-02V00 TO WRK-CS-02V02 ON SIZE ERROR NC1764.2PERFORM PASS GO TO ADD-WRITE-F1-15-1. NC1764.2GO TO ADD-FAIL-F1-15-1. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-15-1. NC1764.2MOVE "ON SIZE ERROR NOT EXECUTED" TO RE-MARK. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-15-1" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF WRK-CS-02V02 EQUAL TO 99.00 NC1764.2PERFORM PASS GO TO ADD-WRITE-F1-15-2. NC1764.2083400* NOTE: THIS TEST DEPENDS UPON THE RESULT OF ADD-TEST-F1-15-1 NC1764.2 GO TO ADD-FAIL-F1-15-2. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-15-2. NC1764.2MOVE "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK. NC1764.2MOVE WRK-CS-02V02 TO COMPUTED-N. NC1764.2MOVE 99.00 TO CORRECT-N. NC1764.2PERFORM FAIL. NC1764.2MOVE "ADD-TEST-F1-15-2" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE A14TWOS-CS-18V00 TO WRK-CS-18V00. NC1764.2ADD A18FIVES-CS-18V00 TO WRK-CS-18V00. NC1764.2IF WRK-CS-18V00 EQUAL TO -555577777777777777 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-16. NC1764.2MOVE WRK-CS-18V00 TO COMPUTED-18V0. NC1764.2MOVE -555577777777777777 TO CORRECT-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-16. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-16 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE A12SEVENS-CU-18V00 TO WRK-CS-18V00. NC1764.2ADD A18SIXES-CS-18V00 TO WRK-CS-18V00. NC1764.2IF WRK-CS-18V00 EQUAL TO +666667444444444443 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-17. NC1764.2MOVE +666667444444444443 TO CORRECT-18V0. NC1764.2MOVE WRK-CS-18V00 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-17. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-17 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE A12SEVENS-CU-18V00 TO WRK-DU-18V00. NC1764.2ADD A18FIVES-CS-18V00 TO WRK-DU-18V00. NC1764.2IF WRK-DU-18V00 EQUAL TO 555554777777777778 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-18. NC1764.2MOVE WRK-DU-18V00 TO COMPUTED-18V0. NC1764.2MOVE 555554777777777778 TO CORRECT-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-18. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-18 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE +980 TO WRK-CS-03V00. NC1764.2MOVE SPACE TO SIZE-ERR. NC1764.2089500* NOTE IN THIS TEST, 1 IS ADDED TO A 3-DIGIT COMP SYNC NC1764.2 089600* FIELD UNTIL A SIZE ERROR OCCURS --- IF THE VALUE OF NC1764.2 089700* THE FIELD REACHES 1180 WITHOUT A SIZE ERROR THE NC1764.2 089800* ATTEMPTED ADDITIONS ARE TERMINATED. NC1764.2 PERFORM ADD-A-F1-19 THRU ADD-B-F1-19 200 TIMES. NC1764.2IF SIZE-ERR EQUAL TO SPACE NC1764.2MOVE "SIZE ERROR NOT ENCOUNTERED" TO RE-MARK NC1764.2MOVE "AT LEAST 1180" TO COMPUTED-A NC1764.2MOVE "999 IN PIC 999 FIELD" TO CORRECT-A NC1764.2PERFORM FAIL NC1764.2GO TO ADD-WRITE-F1-19. NC1764.2IF WRK-CS-03V00 EQUAL TO 999 NC1764.2PERFORM PASS GO TO ADD-WRITE-F1-19. NC1764.2PERFORM FAIL. NC1764.2MOVE WRK-CS-03V00 TO COMPUTED-N. NC1764.2MOVE 999 TO CORRECT-N. NC1764.2GO TO ADD-WRITE-F1-19. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-19. NC1764.2IF SIZE-ERR EQUAL TO "E" GO TO ADD-B-F1-19. NC1764.2ADD 1 TO WRK-CS-03V00 ON SIZE ERROR NC1764.2MOVE "E" TO SIZE-ERR. NC1764.2EXIT . NC1764.2MOVE "ADD, COMP, SIZE ERR" TO FEATURE. NC1764.2MOVE "ADD-TEST-F1-19" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2092500* NC1764.2 092700* ==--> NEW SIZE ERROR TESTS <--== NC1764.2 MOVE "V1-67 6.4.2" TO ANSI-REFERENCE. NC1764.2MOVE -11 TO WRK-DS-02V00. NC1764.2ADD -99 TO WRK-DS-02V00 NC1764.2NOT ON SIZE ERROR NC1764.2MOVE "NOT ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1764.2TO RE-MARK NC1764.2PERFORM FAIL NC1764.2GO TO ADD-WRITE-F1-20. NC1764.2GO TO ADD-PASS-F1-20. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-20. NC1764.2PERFORM PASS. NC1764.2MOVE "ADD-TEST-F1-20" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2094600* NC1764.2 094800* ==--> NEW SIZE ERROR TESTS <--== NC1764.2 MOVE "V1-67 6.4.2" TO ANSI-REFERENCE. NC1764.2MOVE ZERO TO WRK-DS-06V06. NC1764.2ADD A12THREES-DS-06V06 NC1764.2TO WRK-DS-06V06 ROUNDED NC1764.2NOT ON SIZE ERROR NC1764.2GO TO ADD-PASS-F1-21. NC1764.2MOVE "NOT ON SIZE ERROR SHOULD BE EXECUTED" TO RE-MARK. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-21. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-21. NC1764.2PERFORM PASS. NC1764.2MOVE "ADD-TEST-F1-21" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2096900* NC1764.2 097100* ==--> NEW SIZE ERROR TESTS <--== NC1764.2 MOVE "V1-67 6.4.2" TO ANSI-REFERENCE. NC1764.2MOVE -11 TO WRK-DS-02V00. NC1764.2ADD -99 TO WRK-DS-02V00 NC1764.2ON SIZE ERROR NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-22 NC1764.2NOT ON SIZE ERROR NC1764.2MOVE "NOT ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1764.2TO RE-MARK NC1764.2PERFORM FAIL NC1764.2GO TO ADD-WRITE-F1-22. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-22" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2098900* NC1764.2 099100* ==--> NEW SIZE ERROR TESTS <--== NC1764.2 MOVE "V1-67 6.4.2" TO ANSI-REFERENCE. NC1764.2MOVE ZERO TO WRK-DS-06V06. NC1764.2ADD A12THREES-DS-06V06 NC1764.2TO WRK-DS-06V06 ROUNDED NC1764.2ON SIZE ERROR NC1764.2MOVE "ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1764.2TO RE-MARK NC1764.2PERFORM FAIL NC1764.2GO TO ADD-WRITE-F1-23 NC1764.2NOT ON SIZE ERROR NC1764.2GO TO ADD-PASS-F1-23. NC1764.2PERFORM DE-LETE. NC1764.2GO TO ADD-WRITE-F1-23. NC1764.2PERFORM PASS. NC1764.2MOVE "ADD-TEST-F1-23" TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2101400* NC1764.2 101600* ==--> MULTIPLE OPERANDS <--== NC1764.2 MOVE "V1-67 6.4.2" TO ANSI-REFERENCE. NC1764.2MOVE "ADD LIMIT TESTS " TO FEATURE. NC1764.2MOVE 1 TO DNAME1 DNAME2 DNAME3 DNAME4 DNAME5. NC1764.2MOVE 1 TO DNAME6 DNAME7 DNAME8 DNAME9 DNAME10. NC1764.2MOVE 1 TO DNAME11 DNAME12 DNAME13 DNAME14 DNAME15. NC1764.2MOVE 1 TO DNAME16 DNAME17 DNAME18 DNAME19 DNAME20. NC1764.2MOVE 1 TO DNAME21. NC1764.2MOVE 0 TO DNAME22. NC1764.2102500* THE FOLLOWING 22 TESTS VERIFY THE ABILITY OF THE COMPILER NC1764.2 102600* TO HANDLE A MAXIMUM OF 42 OPERANDS. A DELETION IN THIS NC1764.2 102700* PARAGRAPH WILL SKIP THE LIMIT TESTS. NC1764.2 GO TO ADD-TEST-F1-24. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-24 TO F1-45" TO PAR-NAME. NC1764.2MOVE "ADD LIMIT TESTS " TO FEATURE. NC1764.2ADD 21 TO DELETE-COUNTER. NC1764.2PERFORM PRINT-DETAIL. NC1764.2GO TO ADD-INIT-F1-46. NC1764.2ADD DNAME1 NC1764.2TO DNAME22. NC1764.2105900* THE NUMBER OF OPERANDS CAPABLE OF BEING ADDED TO ONE NC1764.2 106000* DATANAME WILL BE REFLECTED BY THE COMPUTED-ANSWER. NC1764.2 IF DNAME22 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-24. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME22 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-24. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-24 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2MOVE ZERO TO DNAME22 DNAME23 DNAME24 DNAME25 DNAME26. NC1764.2MOVE ZERO TO DNAME27 DNAME28 DNAME29 DNAME30 DNAME31. NC1764.2MOVE ZERO TO DNAME32 DNAME33 DNAME34 DNAME35 DNAME36. NC1764.2MOVE ZERO TO DNAME37 DNAME38 DNAME39 DNAME40 DNAME41. NC1764.2MOVE ZERO TO DNAME42. NC1764.2ADD DNAME1 NC1764.2TO DNAME22 NC1764.2IF DNAME22 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-25. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME22 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-25. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-25 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME23 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-26. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME23 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-26. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-26 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME24 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-27. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME24 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-27. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-27 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME25 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-28. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME25 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-28. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-28 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME26 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-29. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME26 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-29. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-29 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME27 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-30. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME27 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-30. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-30 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME28 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-31. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME28 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-31. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-31 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME29 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-32. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME29 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-32. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-32 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME30 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-33. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME30 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-33. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-33 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME31 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-34. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME31 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-34. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-34 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME32 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-35. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME32 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-35. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-35 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME33 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-36. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME33 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-36. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-36 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME34 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-37. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME34 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-37. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-37 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME35 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-38. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME35 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-38. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-38 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME36 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-39. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME36 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-39. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-39 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME37 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-40. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME37 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-40. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-40 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME38 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-41. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME38 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-41. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-41 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME39 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-42. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME39 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-42. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-42 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME40 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-43. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME40 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-43. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-43 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME41 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-44. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME41 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-44. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-44 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2IF DNAME42 EQUAL TO 21 NC1764.2PERFORM PASS NC1764.2GO TO ADD-WRITE-F1-45. NC1764.2MOVE 21 TO CORRECT-18V0. NC1764.2MOVE DNAME42 TO COMPUTED-18V0. NC1764.2PERFORM FAIL. NC1764.2GO TO ADD-WRITE-F1-45. NC1764.2PERFORM DE-LETE. NC1764.2MOVE "ADD-TEST-F1-45 " TO PAR-NAME. NC1764.2PERFORM PRINT-DETAIL. NC1764.2139400* NC1764.2 139600* ==--> MULTIPLE RESULT FIELDS <--== NC1764.2 MOVE "VI-74 6.6.4 GR1" TO ANSI-REFERENCE. NC1764.2MOVE "ADD-TEST-F1-46" TO PAR-NAME. NC1764.2MOVE "ADD-TO-SERIES" TO FEATURE. NC1764.2MOVE ZERO TO WRK-DU-2V1-1 WRK-DU-2V0-1 WRK-DU-2V1-2 NC1764.2MOVE 1.1 TO WRK-DU-1V1-1. NC1764.2MOVE 2.4 TO WRK-DU-1V1-2. NC1764.2MOVE 1 TO REC-CT. NC1764.2ADD WRK-DU-1V1-1 WRK-DU-1V1-2 6 TO WRK-DU-2V1-1, NC1764.2ROUNDED WRK-DU-2V1-2 WRK-DU-2V0-2 ROUNDED NC1764.2GO TO ADD-TEST-F1-46-1. NC1764.2PERFORM DE-LETE. NC1764.2PERFORM PRINT-DETAIL. NC1764.2GO TO ADD-INIT-F1-47. NC1764.2IF WRK-DU-2V1-1 = 9.5 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-1 TO COMPUTED-N MOVE 9.5 NC1764.2TO CORRECT-N PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2IF WRK-DU-2V0-1 = 10 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-1 TO COMPUTED-N MOVE 10 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2IF WRK-DU-2V1-2 = 9.5 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-2 TO COMPUTED-N MOVE 9.5 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2IF WRK-DU-2V0-2 = 10 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-2 TO COMPUTED-N MOVE 10 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2IF WRK-DU-2V1-3 = 9.5 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-3 TO COMPUTED-N MOVE 9.5 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2IF WRK-DU-2V0-3 = 9 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-3 TO COMPUTED-N MOVE 9 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2144900* NC1764.2 145100* ==--> MULTIPLE RESULT FIELDS <--== NC1764.2 145200* ==--> NEW SIZE ERROR TESTS <--== NC1764.2 MOVE "VI-67 6.4.2" TO ANSI-REFERENCE. NC1764.2MOVE "ADD-TEST-F1-47" TO PAR-NAME. NC1764.2MOVE ZERO TO WRK-DU-2V1-1 WRK-DU-2V0-1 WRK-DU-2V1-2 NC1764.2MOVE 1.1 TO WRK-DU-1V1-1. NC1764.2MOVE 2.4 TO WRK-DU-1V1-2. NC1764.2MOVE "0" TO WRK-XN-00001. NC1764.2MOVE 1 TO REC-CT. NC1764.2ADD WRK-DU-1V1-1 WRK-DU-1V1-2 6 TO WRK-DU-2V1-1, NC1764.2ROUNDED WRK-DU-2V1-2 WRK-DU-2V0-2 ROUNDED NC1764.2ON SIZE ERROR NC1764.2MOVE "1" TO WRK-XN-00001. NC1764.2GO TO ADD-TEST-F1-47-1. NC1764.2PERFORM DE-LETE. NC1764.2PERFORM PRINT-DETAIL. NC1764.2GO TO ADD-INIT-F1-48. NC1764.2MOVE "ADD-TEST-F1-47-1" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-1 = 9.5 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-1 TO COMPUTED-N MOVE 9.5 NC1764.2TO CORRECT-N PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-47-2" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-1 = 10 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-1 TO COMPUTED-N MOVE 10 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-47-3" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-2 = 9.5 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-2 TO COMPUTED-N MOVE 9.5 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-47-4" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-2 = 10 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-2 TO COMPUTED-N MOVE 10 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-47-5" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-3 = 9.5 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-3 TO COMPUTED-N MOVE 9.5 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-47-6" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-3 = 9 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-3 TO COMPUTED-N MOVE 9 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-47-7" TO PAR-NAME. NC1764.2IF WRK-XN-00001 = "0" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "SIZE ERROR SHOULD NOT BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE "0" TO CORRECT-X NC1764.2MOVE WRK-XN-00001 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2152600* NC1764.2 152800* ==--> MULTIPLE RESULT FIELDS <--== NC1764.2 152900* ==--> NEW SIZE ERROR TESTS <--== NC1764.2 MOVE "VI-67 6.4.2" TO ANSI-REFERENCE. NC1764.2MOVE "ADD-TEST-F1-48" TO PAR-NAME. NC1764.2MOVE ZERO TO WRK-DU-2V1-1 WRK-DU-2V0-1 WRK-DU-2V1-2 NC1764.2MOVE 1.1 TO WRK-DU-1V1-1. NC1764.2MOVE 2.4 TO WRK-DU-1V1-2. NC1764.2MOVE "0" TO WRK-XN-00001. NC1764.2MOVE 1 TO REC-CT. NC1764.2ADD A17TWOS-DS-17V00 NC1764.2TO WRK-DU-2V1-1 NC1764.2ROUNDED NC1764.2ROUNDED NC1764.2ON SIZE ERROR NC1764.2MOVE "1" TO WRK-XN-00001. NC1764.2GO TO ADD-TEST-F1-48-1. NC1764.2PERFORM DE-LETE. NC1764.2PERFORM PRINT-DETAIL. NC1764.2GO TO ADD-INIT-F1-49. NC1764.2MOVE "ADD-TEST-F1-48-1" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-1 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-1 TO COMPUTED-N MOVE 0 NC1764.2TO CORRECT-N PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-48-2" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-1 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-1 TO COMPUTED-N MOVE 0 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-48-3" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-2 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-2 TO COMPUTED-N MOVE 0 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-48-4" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-2 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-2 TO COMPUTED-N MOVE 0 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-48-5" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-3 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-3 TO COMPUTED-N MOVE 0 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-48-6" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-3 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-3 TO COMPUTED-N MOVE 0 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-48-7" TO PAR-NAME. NC1764.2IF WRK-XN-00001 = "1" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "SIZE ERROR NOT EXECUTED" TO RE-MARK NC1764.2MOVE "1" TO CORRECT-X NC1764.2MOVE WRK-XN-00001 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2160700* NC1764.2 160900* ==--> MULTIPLE RESULT FIELDS <--== NC1764.2 161000* ==--> NEW SIZE ERROR TESTS <--== NC1764.2 MOVE "VI-67 6.4.2" TO ANSI-REFERENCE. NC1764.2MOVE "ADD-TEST-F1-49" TO PAR-NAME. NC1764.2MOVE ZERO TO WRK-DU-2V1-1 WRK-DU-2V0-1 WRK-DU-2V1-2 NC1764.2MOVE 1.1 TO WRK-DU-1V1-1. NC1764.2MOVE 2.4 TO WRK-DU-1V1-2. NC1764.2MOVE "0" TO WRK-XN-00001. NC1764.2MOVE 1 TO REC-CT. NC1764.2ADD WRK-DU-1V1-1 WRK-DU-1V1-2 6 TO WRK-DU-2V1-1, NC1764.2ROUNDED WRK-DU-2V1-2 WRK-DU-2V0-2 ROUNDED NC1764.2NOT ON SIZE ERROR NC1764.2MOVE "1" TO WRK-XN-00001. NC1764.2GO TO ADD-TEST-F1-49-1. NC1764.2PERFORM DE-LETE. NC1764.2PERFORM PRINT-DETAIL. NC1764.2GO TO ADD-INIT-F1-50. NC1764.2MOVE "ADD-TEST-F1-49-1" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-1 = 9.5 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-1 TO COMPUTED-N MOVE 9.5 NC1764.2TO CORRECT-N PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-49-2" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-1 = 10 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-1 TO COMPUTED-N MOVE 10 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-49-3" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-2 = 9.5 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-2 TO COMPUTED-N MOVE 9.5 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-49-4" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-2 = 10 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-2 TO COMPUTED-N MOVE 10 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-49-5" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-3 = 9.5 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-3 TO COMPUTED-N MOVE 9.5 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-49-6" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-3 = 9 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-3 TO COMPUTED-N MOVE 9 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-49-7" TO PAR-NAME. NC1764.2IF WRK-XN-00001 = "1" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "NOT ON SIZE ERROR SHOULD BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE "1" TO CORRECT-X NC1764.2MOVE WRK-XN-00001 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2168400* NC1764.2 168600* ==--> MULTIPLE RESULT FIELDS <--== NC1764.2 168700* ==--> NEW SIZE ERROR TESTS <--== NC1764.2 MOVE "VI-67 6.4.2" TO ANSI-REFERENCE. NC1764.2MOVE "ADD-TEST-F1-50" TO PAR-NAME. NC1764.2MOVE ZERO TO WRK-DU-2V1-1 WRK-DU-2V0-1 WRK-DU-2V1-2 NC1764.2MOVE 1.1 TO WRK-DU-1V1-1. NC1764.2MOVE 2.4 TO WRK-DU-1V1-2. NC1764.2MOVE "0" TO WRK-XN-00001. NC1764.2MOVE 1 TO REC-CT. NC1764.2ADD A17TWOS-DS-17V00 NC1764.2TO WRK-DU-2V1-1 NC1764.2ROUNDED NC1764.2ROUNDED NC1764.2NOT ON SIZE ERROR NC1764.2MOVE "1" TO WRK-XN-00001. NC1764.2GO TO ADD-TEST-F1-50-1. NC1764.2PERFORM DE-LETE. NC1764.2PERFORM PRINT-DETAIL. NC1764.2GO TO ADD-INIT-F1-51. NC1764.2MOVE "ADD-TEST-F1-50-1" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-1 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-1 TO COMPUTED-N MOVE 0 NC1764.2TO CORRECT-N PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-50-2" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-1 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-1 TO COMPUTED-N MOVE 0 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-50-3" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-2 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-2 TO COMPUTED-N MOVE 0 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-50-4" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-2 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-2 TO COMPUTED-N MOVE 0 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-50-5" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-3 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-3 TO COMPUTED-N MOVE 0 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-50-6" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-3 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-3 TO COMPUTED-N MOVE 0 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-50-7" TO PAR-NAME. NC1764.2IF WRK-XN-00001 = "0" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "NOT ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE "0" TO CORRECT-X NC1764.2MOVE WRK-XN-00001 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2176600* NC1764.2 176800* ==--> MULTIPLE RESULT FIELDS <--== NC1764.2 176900* ==--> NEW SIZE ERROR TESTS <--== NC1764.2 MOVE "VI-67 6.4.2" TO ANSI-REFERENCE. NC1764.2MOVE "ADD-TEST-F1-51" TO PAR-NAME. NC1764.2MOVE ZERO TO WRK-DU-2V1-1 WRK-DU-2V0-1 WRK-DU-2V1-2 NC1764.2MOVE 1.1 TO WRK-DU-1V1-1. NC1764.2MOVE 2.4 TO WRK-DU-1V1-2. NC1764.2MOVE "0" TO WRK-XN-00001. NC1764.2MOVE 1 TO REC-CT. NC1764.2ADD WRK-DU-1V1-1 WRK-DU-1V1-2 6 TO WRK-DU-2V1-1, NC1764.2ROUNDED WRK-DU-2V1-2 WRK-DU-2V0-2 ROUNDED NC1764.2ON SIZE ERROR NC1764.2MOVE "1" TO WRK-XN-00001 NC1764.2NOT ON SIZE ERROR NC1764.2MOVE "2" TO WRK-XN-00001. NC1764.2GO TO ADD-TEST-F1-51-1. NC1764.2PERFORM DE-LETE. NC1764.2PERFORM PRINT-DETAIL. NC1764.2GO TO ADD-INIT-F1-52. NC1764.2MOVE "ADD-TEST-F1-51-1" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-1 = 9.5 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-1 TO COMPUTED-N MOVE 9.5 NC1764.2TO CORRECT-N PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-51-2" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-1 = 10 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-1 TO COMPUTED-N MOVE 10 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-51-3" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-2 = 9.5 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-2 TO COMPUTED-N MOVE 9.5 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-51-4" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-2 = 10 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-2 TO COMPUTED-N MOVE 10 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-51-5" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-3 = 9.5 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-3 TO COMPUTED-N MOVE 9.5 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-51-6" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-3 = 9 PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-3 TO COMPUTED-N MOVE 9 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-51-7" TO PAR-NAME. NC1764.2IF WRK-XN-00001 = "2" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "NOT ON SIZE ERROR SHOULD BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE "2" TO CORRECT-X NC1764.2MOVE WRK-XN-00001 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2184500* NC1764.2 184700* ==--> MULTIPLE RESULT FIELDS <--== NC1764.2 184800* ==--> NEW SIZE ERROR TESTS <--== NC1764.2 MOVE "VI-67 6.4.2" TO ANSI-REFERENCE. NC1764.2MOVE "ADD-TEST-F1-52" TO PAR-NAME. NC1764.2MOVE ZERO TO WRK-DU-2V1-1 WRK-DU-2V0-1 WRK-DU-2V1-2 NC1764.2MOVE 1.1 TO WRK-DU-1V1-1. NC1764.2MOVE 2.4 TO WRK-DU-1V1-2. NC1764.2MOVE "0" TO WRK-XN-00001. NC1764.2MOVE 1 TO REC-CT. NC1764.2ADD A17TWOS-DS-17V00 NC1764.2TO WRK-DU-2V1-1 NC1764.2ROUNDED NC1764.2ROUNDED NC1764.2ON SIZE ERROR NC1764.2MOVE "1" TO WRK-XN-00001 NC1764.2NOT ON SIZE ERROR NC1764.2MOVE "2" TO WRK-XN-00001. NC1764.2GO TO ADD-TEST-F1-52-1. NC1764.2PERFORM DE-LETE. NC1764.2PERFORM PRINT-DETAIL. NC1764.2GO TO ADD-INIT-F1-53. NC1764.2MOVE "ADD-TEST-F1-52-1" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-1 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-1 TO COMPUTED-N MOVE 0 NC1764.2TO CORRECT-N PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-52-2" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-1 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-1 TO COMPUTED-N MOVE 0 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-52-3" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-2 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-2 TO COMPUTED-N MOVE 0 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-52-4" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-2 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-2 TO COMPUTED-N MOVE 0 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-52-5" TO PAR-NAME. NC1764.2IF WRK-DU-2V1-3 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V1-3 TO COMPUTED-N MOVE 0 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-52-6" TO PAR-NAME. NC1764.2IF WRK-DU-2V0-3 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2PERFORM FAIL MOVE WRK-DU-2V0-3 TO COMPUTED-N MOVE 0 TO NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-52-7" TO PAR-NAME. NC1764.2IF WRK-XN-00001 = "1" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "ON SIZE ERROR SHOULD BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE "1" TO CORRECT-X NC1764.2MOVE WRK-XN-00001 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2192900* NC1764.2 193100* ==--> EXPLICIT SCOPE TERMINATOR<--== NC1764.2 MOVE "IV-41 6.4.3" TO ANSI-REFERENCE. NC1764.2MOVE "ADD-TEST-F1-53" TO PAR-NAME. NC1764.2MOVE SPACE TO WRK-XN-00001. NC1764.2MOVE SPACE TO SIZE-ERR2. NC1764.2MOVE SPACE TO SIZE-ERR3. NC1764.2MOVE SPACE TO SIZE-ERR4. NC1764.2MOVE -11 TO WRK-DS-02V00. NC1764.2MOVE 1 TO REC-CT. NC1764.2ADD -99 TO WRK-DS-02V00 NC1764.2ON SIZE ERROR NC1764.2MOVE "1" TO WRK-XN-00001 NC1764.2MOVE "A" TO SIZE-ERR2 NC1764.2MOVE "B" TO SIZE-ERR3 NC1764.2END-ADD NC1764.2MOVE "C" TO SIZE-ERR4. NC1764.2GO TO ADD-TEST-F1-53-1. NC1764.2PERFORM DE-LETE. NC1764.2PERFORM PRINT-DETAIL. NC1764.2GO TO ADD-INIT-F1-54. NC1764.2MOVE "ADD-TEST-F1-53-1" TO PAR-NAME. NC1764.2IF WRK-XN-00001 = "1" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "ON SIZE ERROR SHOULD BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE "1" TO CORRECT-X NC1764.2MOVE WRK-XN-00001 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-53-2" TO PAR-NAME. NC1764.2IF SIZE-ERR2 = "A" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "ON SIZE ERROR SHOULD BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE "A" TO CORRECT-X NC1764.2MOVE SIZE-ERR2 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-53-3" TO PAR-NAME. NC1764.2IF SIZE-ERR3 = "B" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "ON SIZE ERROR SHOULD BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE "B" TO CORRECT-X NC1764.2MOVE SIZE-ERR3 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-53-4" TO PAR-NAME. NC1764.2IF SIZE-ERR4 = "C" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "SCOPE TERMINATOR IGNORED" NC1764.2TO RE-MARK NC1764.2MOVE "C" TO CORRECT-X NC1764.2MOVE SIZE-ERR4 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-53-5" TO PAR-NAME. NC1764.2IF WRK-DS-02V00 = -11 NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "WRONGLY AFFECTED BY SIZE ERROR" NC1764.2TO RE-MARK NC1764.2MOVE -11 TO CORRECT-N NC1764.2MOVE WRK-DS-02V00 TO COMPUTED-N NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2201700* NC1764.2 201900* ==--> EXPLICIT SCOPE TERMINATOR<--== NC1764.2 MOVE "IV-41 6.4.3" TO ANSI-REFERENCE. NC1764.2MOVE "ADD-TEST-F1-54" TO PAR-NAME. NC1764.2MOVE SPACE TO WRK-XN-00001. NC1764.2MOVE SPACE TO SIZE-ERR2. NC1764.2MOVE SPACE TO SIZE-ERR3. NC1764.2MOVE SPACE TO SIZE-ERR4. NC1764.2MOVE ZERO TO WRK-DS-06V06. NC1764.2MOVE 1 TO REC-CT. NC1764.2ADD A12THREES-DS-06V06 NC1764.2TO WRK-DS-06V06 ROUNDED NC1764.2ON SIZE ERROR NC1764.2MOVE "1" TO WRK-XN-00001 NC1764.2MOVE "A" TO SIZE-ERR2 NC1764.2MOVE "B" TO SIZE-ERR3 NC1764.2END-ADD NC1764.2MOVE "C" TO SIZE-ERR4. NC1764.2GO TO ADD-TEST-F1-54-1. NC1764.2PERFORM DE-LETE. NC1764.2PERFORM PRINT-DETAIL. NC1764.2GO TO ADD-INIT-F1-55. NC1764.2MOVE "ADD-TEST-F1-54-1" TO PAR-NAME. NC1764.2IF WRK-XN-00001 = SPACE NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE SPACE TO CORRECT-X NC1764.2MOVE WRK-XN-00001 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-54-2" TO PAR-NAME. NC1764.2IF SIZE-ERR2 = SPACE NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE SPACE TO CORRECT-X NC1764.2MOVE SIZE-ERR2 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-54-3" TO PAR-NAME. NC1764.2IF SIZE-ERR3 = SPACE NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "NOT ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE SPACE TO CORRECT-X NC1764.2MOVE SIZE-ERR3 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-54-4" TO PAR-NAME. NC1764.2IF SIZE-ERR4 = "C" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "SCOPE TERMINATOR IGNORED" NC1764.2TO RE-MARK NC1764.2MOVE "C" TO CORRECT-X NC1764.2MOVE SIZE-ERR4 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-54-5" TO PAR-NAME. NC1764.2IF WRK-DS-06V06 = 666999.666333 NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "WRONGLY AFFECTED BY SIZE ERROR" NC1764.2TO RE-MARK NC1764.2MOVE 666999.666333 TO CORRECT-N NC1764.2MOVE WRK-DS-06V06 TO COMPUTED-N NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2210800* NC1764.2 211000* ==--> EXPLICIT SCOPE TERMINATOR<--== NC1764.2 MOVE "IV-41 6.4.3" TO ANSI-REFERENCE. NC1764.2MOVE "ADD-TEST-F1-55" TO PAR-NAME. NC1764.2MOVE SPACE TO WRK-XN-00001. NC1764.2MOVE SPACE TO SIZE-ERR2. NC1764.2MOVE SPACE TO SIZE-ERR3. NC1764.2MOVE SPACE TO SIZE-ERR4. NC1764.2MOVE -11 TO WRK-DS-02V00. NC1764.2MOVE 1 TO REC-CT. NC1764.2ADD -99 TO WRK-DS-02V00 NC1764.2NOT ON SIZE ERROR NC1764.2MOVE "1" TO WRK-XN-00001 NC1764.2MOVE "A" TO SIZE-ERR2 NC1764.2MOVE "B" TO SIZE-ERR3 NC1764.2END-ADD NC1764.2MOVE "C" TO SIZE-ERR4. NC1764.2GO TO ADD-TEST-F1-55-1. NC1764.2PERFORM DE-LETE. NC1764.2PERFORM PRINT-DETAIL. NC1764.2GO TO ADD-INIT-F1-56. NC1764.2MOVE "ADD-TEST-F1-55-1" TO PAR-NAME. NC1764.2IF WRK-XN-00001 = SPACE NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "NOT ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE SPACE TO CORRECT-X NC1764.2MOVE WRK-XN-00001 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-55-2" TO PAR-NAME. NC1764.2IF SIZE-ERR2 = SPACE NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "NOT ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE SPACE TO CORRECT-X NC1764.2MOVE SIZE-ERR2 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-55-3" TO PAR-NAME. NC1764.2IF SIZE-ERR3 = SPACE NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "NOT ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE SPACE TO CORRECT-X NC1764.2MOVE SIZE-ERR3 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-55-4" TO PAR-NAME. NC1764.2IF SIZE-ERR4 = "C" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "SCOPE TERMINATOR IGNORED" NC1764.2TO RE-MARK NC1764.2MOVE "C" TO CORRECT-X NC1764.2MOVE SIZE-ERR4 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-55-5" TO PAR-NAME. NC1764.2IF WRK-DS-02V00 = -11 NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "WRONGLY AFFECTED BY SIZE ERROR" NC1764.2TO RE-MARK NC1764.2MOVE -11 TO CORRECT-N NC1764.2MOVE WRK-DS-02V00 TO COMPUTED-N NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2219600* NC1764.2 219800* ==--> EXPLICIT SCOPE TERMINATOR<--== NC1764.2 MOVE "IV-41 6.4.3" TO ANSI-REFERENCE. NC1764.2MOVE "ADD-TEST-F1-56" TO PAR-NAME. NC1764.2MOVE SPACE TO WRK-XN-00001. NC1764.2MOVE SPACE TO SIZE-ERR2. NC1764.2MOVE SPACE TO SIZE-ERR3. NC1764.2MOVE SPACE TO SIZE-ERR4. NC1764.2MOVE ZERO TO WRK-DS-06V06. NC1764.2MOVE 1 TO REC-CT. NC1764.2ADD A12THREES-DS-06V06 NC1764.2TO WRK-DS-06V06 ROUNDED NC1764.2NOT ON SIZE ERROR NC1764.2MOVE "1" TO WRK-XN-00001 NC1764.2MOVE "A" TO SIZE-ERR2 NC1764.2MOVE "B" TO SIZE-ERR3 NC1764.2END-ADD NC1764.2MOVE "C" TO SIZE-ERR4. NC1764.2GO TO ADD-TEST-F1-56-1. NC1764.2PERFORM DE-LETE. NC1764.2PERFORM PRINT-DETAIL. NC1764.2GO TO ADD-INIT-F1-57. NC1764.2MOVE "ADD-TEST-F1-56-1" TO PAR-NAME. NC1764.2IF WRK-XN-00001 = "1" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "NOT ON SIZE ERROR SHOULD BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE "1" TO CORRECT-X NC1764.2MOVE WRK-XN-00001 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-56-2" TO PAR-NAME. NC1764.2IF SIZE-ERR2 = "A" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "NOT ON SIZE ERROR SHOULD BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE "A" TO CORRECT-X NC1764.2MOVE SIZE-ERR2 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-56-3" TO PAR-NAME. NC1764.2IF SIZE-ERR3 = "B" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "NOT ON SIZE ERROR SHOULD BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE "B" TO CORRECT-X NC1764.2MOVE SIZE-ERR3 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-56-4" TO PAR-NAME. NC1764.2IF SIZE-ERR4 = "C" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "SCOPE TERMINATOR IGNORED" NC1764.2TO RE-MARK NC1764.2MOVE "C" TO CORRECT-X NC1764.2MOVE SIZE-ERR4 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-56-5" TO PAR-NAME. NC1764.2IF WRK-DS-06V06 = 666999.666333 NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "WRONGLY AFFECTED BY SIZE ERROR" NC1764.2TO RE-MARK NC1764.2MOVE 666999.666333 TO CORRECT-N NC1764.2MOVE WRK-DS-06V06 TO COMPUTED-N NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2228700* NC1764.2 228900* ==--> EXPLICIT SCOPE TERMINATOR<--== NC1764.2 MOVE "IV-41 6.4.3" TO ANSI-REFERENCE. NC1764.2MOVE "ADD-TEST-F1-57" TO PAR-NAME. NC1764.2MOVE "0" TO WRK-XN-00001. NC1764.2MOVE "0" TO SIZE-ERR2. NC1764.2MOVE "0" TO SIZE-ERR3. NC1764.2MOVE "0" TO SIZE-ERR4. NC1764.2MOVE -11 TO WRK-DS-02V00. NC1764.2MOVE 1 TO REC-CT. NC1764.2ADD -99 TO WRK-DS-02V00 NC1764.2ON SIZE ERROR NC1764.2MOVE SPACE TO WRK-XN-00001 NC1764.2NOT ON SIZE ERROR NC1764.2MOVE "1" TO WRK-XN-00001 NC1764.2END-ADD NC1764.2MOVE "C" TO SIZE-ERR4. NC1764.2GO TO ADD-TEST-F1-57-1. NC1764.2PERFORM DE-LETE. NC1764.2PERFORM PRINT-DETAIL. NC1764.2GO TO ADD-INIT-F1-58. NC1764.2MOVE "ADD-TEST-F1-57-1" TO PAR-NAME. NC1764.2IF WRK-XN-00001 = SPACE NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "ON SIZE ERROR SHOULD BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE SPACE TO CORRECT-X NC1764.2MOVE WRK-XN-00001 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-57-2" TO PAR-NAME. NC1764.2IF SIZE-ERR4 = "C" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "SCOPE TERMINATOR IGNORED" NC1764.2TO RE-MARK NC1764.2MOVE "C" TO CORRECT-X NC1764.2MOVE SIZE-ERR4 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-57-3" TO PAR-NAME. NC1764.2IF WRK-DS-02V00 = -11 NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "WRONGLY AFFECTED BY SIZE ERROR" NC1764.2TO RE-MARK NC1764.2MOVE -11 TO CORRECT-N NC1764.2MOVE WRK-DS-02V00 TO COMPUTED-N NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2234900* NC1764.2 235100* ==--> EXPLICIT SCOPE TERMINATOR<--== NC1764.2 MOVE "IV-41 6.4.3" TO ANSI-REFERENCE. NC1764.2MOVE "ADD-TEST-F1-58" TO PAR-NAME. NC1764.2MOVE SPACE TO WRK-XN-00001. NC1764.2MOVE SPACE TO SIZE-ERR2. NC1764.2MOVE SPACE TO SIZE-ERR3. NC1764.2MOVE SPACE TO SIZE-ERR4. NC1764.2MOVE ZERO TO WRK-DS-06V06. NC1764.2MOVE 1 TO REC-CT. NC1764.2ADD A12THREES-DS-06V06 NC1764.2TO WRK-DS-06V06 ROUNDED NC1764.2ON SIZE ERROR NC1764.2MOVE "X" TO WRK-XN-00001 NC1764.2NOT ON SIZE ERROR NC1764.2MOVE "1" TO WRK-XN-00001 NC1764.2END-ADD NC1764.2MOVE "C" TO SIZE-ERR4. NC1764.2GO TO ADD-TEST-F1-58-1. NC1764.2PERFORM DE-LETE. NC1764.2PERFORM PRINT-DETAIL. NC1764.2GO TO CCVS-EXIT. NC1764.2MOVE "ADD-TEST-F1-58-1" TO PAR-NAME. NC1764.2IF WRK-XN-00001 = "1" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "NOT ON SIZE ERROR SHOULD BE EXECUTED" NC1764.2TO RE-MARK NC1764.2MOVE "1" TO CORRECT-X NC1764.2MOVE WRK-XN-00001 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-58-2" TO PAR-NAME. NC1764.2IF SIZE-ERR4 = "C" NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "SCOPE TERMINATOR IGNORED" NC1764.2TO RE-MARK NC1764.2MOVE "C" TO CORRECT-X NC1764.2MOVE SIZE-ERR4 TO COMPUTED-X NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2ADD 1 TO REC-CT. NC1764.2MOVE "ADD-TEST-F1-58-3" TO PAR-NAME. NC1764.2IF WRK-DS-06V06 = 666999.666333 NC1764.2PERFORM PASS NC1764.2PERFORM PRINT-DETAIL NC1764.2ELSE NC1764.2MOVE "WRONGLY AFFECTED BY SIZE ERROR" NC1764.2TO RE-MARK NC1764.2MOVE 666999.666333 TO CORRECT-N NC1764.2MOVE WRK-DS-06V06 TO COMPUTED-N NC1764.2PERFORM FAIL NC1764.2PERFORM PRINT-DETAIL. NC1764.2241400* NC1764.2 SECTION . NC1764.2GO TO CLOSE-FILES. NC1764.2
Messung V0.5 in Prozent C=97 H=92 G=94
¤ 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.0.60Bemerkung:
(vorverarbeitet am 2026-05-01)
¤ *© Formatika GbR, Deutschland
