Quelle nc105a.cob
Sprache: Cobol
000100 IDENTIFICATION DIVISION . NC1054.2PROGRAM-ID . NC1054.2000400**************************************************************** NC1054.2 000500* * NC1054.2 000600* VALIDATION FOR:- * NC1054.2 000700* * NC1054.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1054.2 000900* * NC1054.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1054.2 001100* * NC1054.2 001200**************************************************************** NC1054.2 001300* * NC1054.2 001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC1054.2 001500* * NC1054.2 001600* X-55 - SYSTEM PRINTER NAME. * NC1054.2 001700* X-82 - SOURCE COMPUTER NAME. * NC1054.2 001800* X-83 - OBJECT COMPUTER NAME. * NC1054.2 001900* * NC1054.2 002000**************************************************************** NC1054.2 002100* NC1054.2 002200* PROGRAM NC105A CONTAINS FURTHER TESTS OF FORMAT 1 OF NC1054.2 002300* THE MOVE STATEMENT. NC1054.2 002400* NC1054.2 002500* (SEE ALSO NC104A). NC1054.2 002600* NC1054.2 ENVIRONMENT DIVISION . NC1054.2CONFIGURATION SECTION . NC1054.2SOURCE-COMPUTER . NC1054.2OBJECT-COMPUTER . NC1054.2INPUT-OUTPUT SECTION . NC1054.2FILE-CONTROL . NC1054.2SELECT PRINT-FILE ASSIGN TO NC1054.2"C0085" . NC1054.2DATA DIVISION . NC1054.2FILE SECTION . NC1054.2FD PRINT-FILE NC1054.2LABEL RECORDS NC1054.2DATA RECORD IS PRINT-REC DUMMY-RECORD. NC1054.2PICTURE X(120). NC1054.2PICTURE X(120). NC1054.2WORKING-STORAGE SECTION . NC1054.2PICTURE 999 VALUE 000. NC1054.2PICTURE S9(5) VALUE +60666. NC1054.2PICTURE S9(5) VALUE +60667. NC1054.2PICTURE S9(5) VALUE -70717. NC1054.2PICTURE S9(5) VALUE -70718. NC1054.2PICTURE X(5) VALUE SPACE . NC1054.2PIC 9(5) COMPUTATIONAL. NC1054.2VALUE ZERO PICTURE 9(18) COMPUTATIONAL. NC1054.2VALUE ZERO PICTURE 9 COMPUTATIONAL. NC1054.2VALUE ZERO PICTURE 9(10) COMPUTATIONAL. NC1054.2VALUE ZERO PICTURE 9(18). NC1054.2VALUE ZERO PICTURE 9. NC1054.2VALUE ZERO PICTURE 9(10). NC1054.2PIC S9(8)V9(8) VALUE 832.553 COMPUTATIONAL. NC1054.2PIC S9(4)V9(8) VALUE 6382.47 COMPUTATIONAL. NC1054.2PIC S9(8)V9(8) VALUE ZERO . NC1054.2PIC S9(4)V9(8) VALUE ZERO . NC1054.2PIC ZZZ.ZZZ. NC1054.2PIC ****9. NC1054.2PIC ZZZZZZZZZZZZZZZZZ9. NC1054.2PIC -99999.99. NC1054.2PIC S999 COMPUTATIONAL. NC1054.2PICTURE 9(9)V9 VALUE 234565432.1 NC1054.2RIGHT COMPUTATIONAL. NC1054.2PICTURE 9(10) NC1054.2RIGHT COMPUTATIONAL. NC1054.2PICTURE 9B(15)99. NC1054.2PICTURE $0(10)999. NC1054.2PICTURE 999 VALUE 333. NC1054.2PICTURE 999 VALUE 916. NC1054.2PICTURE $$$,999.99. NC1054.2PICTURE $$$B999.99. NC1054.2PICTURE +++,999.99. NC1054.2PICTURE ---,999.99. NC1054.2PICTURE ***,999.99. NC1054.2PICTURE ZZZ,999.99. NC1054.2PICTURE A(26) NC1054.2VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ" . NC1054.2PICTURE 9(10) NC1054.2VALUE 0123456789. NC1054.2REDEFINES DIGITS-DU-10V00 NC1054.2PICTURE 9(6)V9999. NC1054.2PICTURE X(49) NC1054.2VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ+- =$, .()/ 0123456789" . NC1054.2PICTURE X(50) VALUE NC1054.2"ABCDEFGHIJKLMNOPQRSTUVWXYZ+- =$, .()/ 0123456789 " . NC1054.2PICTURE A(26). NC1054.2PICTURE 9(10). NC1054.2PICTURE X(49). NC1054.2PICTURE ZZZ,999.999,9. NC1054.2PICTURE Z(7),999. NC1054.2PICTURE X(26)BX(12)0X(10). NC1054.2PICTURE XX0XXBXXX. NC1054.2PICTURE 99 VALUE 99. NC1054.2PICTURE 99 VALUE 03. NC1054.2PICTURE 9A9 VALUE ZERO . NC1054.2PICTURE 9(5)V99 VALUE ZERO . NC1054.2PICTURE X(4) VALUE ZERO . NC1054.2PICTURE 999 VALUE ZERO . NC1054.2PICTURE AA VALUE "AA" . NC1054.2PICTURE X(20). NC1054.2PICTURE X(20). NC1054.2PICTURE X(20). NC1054.2PICTURE X(20). NC1054.2PICTURE X(20). NC1054.2PICTURE X(20). NC1054.2PICTURE X(20). NC1054.2PICTURE X(20). NC1054.2PICTURE X(20). NC1054.2PICTURE X(20). NC1054.2PICTURE X(20). NC1054.2PICTURE X(20). NC1054.2PICTURE X(26). NC1054.2PICTURE X(23). NC1054.2PICTURE XX VALUE HIGH-VALUE . NC1054.2FILLER PICTURE 9 VALUE 0. NC1054.2PICTURE XX VALUE HIGH-VALUE . NC1054.2FILLER PICTURE X VALUE SPACE . NC1054.2PICTURE XXX VALUE HIGH-VALUE . NC1054.2PICTURE X(10) VALUE HIGH-VALUE . NC1054.2PICTURE X(10) VALUE LOW-VALUE . NC1054.2PICTURE X(49) VALUE HIGH-VALUE . NC1054.2PICTURE X(49) VALUE LOW-VALUE . NC1054.2PICTURE X(10) VALUE QUOTE . NC1054.2PICTURE X(49) VALUE QUOTE . NC1054.2PICTURE IS 9(5) NC1054.2VALUE IS 12345. NC1054.2PICTURE IS 9(5). NC1054.2PICTURE IS 99. NC1054.2PICTURE IS 99V999. NC1054.2PICTURE IS V99999. NC1054.2PICTURE IS 9V99. NC1054.2PICTURE IS 9(5)CR. NC1054.2PICTURE IS X(4). NC1054.2PICTURE IS X(7). NC1054.2PICTURE IS 999V99 NC1054.2VALUE IS 123.45. NC1054.2PICTURE IS 9999V999. NC1054.2REDEFINES MOVE29 PICTURE IS X(7). NC1054.2VALUE IS "$123.45" . NC1054.2PICTURE IS $999.99. NC1054.2PICTURE IS X(5) NC1054.2VALUE IS "ABCDE" . NC1054.2PICTURE IS A(3). NC1054.2VALUE IS "1 A05" . NC1054.2PICTURE IS XBA09. NC1054.2PICTURE IS AAAAA NC1054.2VALUE IS "ABCDE" . NC1054.2PICTURE IS 09(4) . NC1054.2PICTURE IS 9999V9. NC1054.2PICTURE IS A(7) NC1054.2JUSTIFIED RIGHT . NC1054.2PICTURE IS 999 NC1054.2VALUE IS 123. NC1054.2PICTURE IS AAA NC1054.2VALUE IS "ABC" . NC1054.2PICTURE IS 999 NC1054.2VALUE IS 123. NC1054.2PICTURE IS AAA NC1054.2VALUE IS "ABC" . NC1054.2REDEFINES MOVE43C. NC1054.2PICTURE IS X OCCURS NC1054.2PICTURE IS 9V9(17). NC1054.2PICTURE IS 9(5) NC1054.2VALUE IS 00045. NC1054.2PICTURE IS S9(5) NC1054.2VALUE IS -12345. NC1054.2PICTURE IS S9(5) NC1054.2VALUE IS -00045. NC1054.2PICTURE IS 9(5)-. NC1054.2PICTURE IS 9(5)DB. NC1054.2PICTURE IS 9(5)+. NC1054.2PICTURE IS ++++99. NC1054.2PICTURE IS ----99. NC1054.2PICTURE IS 9(5). NC1054.2PICTURE X(20). NC1054.2PICTURE 9(10) NC1054.2VALUE 3344556677. NC1054.2PICTURE X(5)BA(10)0X. NC1054.2PICTURE 9(5). NC1054.2PIC 9(5) USAGE COMP . NC1054.2PIC 999V99 USAGE COMP . NC1054.2PIC S9(5) USAGE IS COMP . NC1054.2FILLER PIC X VALUE SPACE . NC1054.2PIC X(20) VALUE SPACE . NC1054.2FILLER PIC X VALUE SPACE . NC1054.2PIC X(5) VALUE SPACE . NC1054.2FILLER PIC X VALUE SPACE . NC1054.2FILLER PIC X(19) VALUE SPACE . NC1054.2PIC X VALUE SPACE . NC1054.2PIC 99 VALUE ZERO . NC1054.2FILLER PIC X(8) VALUE SPACE . NC1054.2PIC X(61). NC1054.2FILLER PIC X(30) VALUE SPACE . NC1054.2FILLER PIC X(17) VALUE NC1054.2" COMPUTED=" . NC1054.2PIC X(20) VALUE SPACE . NC1054.2REDEFINES COMPUTED-A NC1054.2PIC -9(9).9(9). NC1054.2REDEFINES COMPUTED-A PIC -.9(18). NC1054.2REDEFINES COMPUTED-A PIC -9(4).9(14). NC1054.2REDEFINES COMPUTED-A PIC -9(14).9(4). NC1054.2REDEFINES COMPUTED-A. NC1054.2PIC -9(18). NC1054.2FILLER PIC X. NC1054.2FILLER PIC X(50) VALUE SPACE . NC1054.2FILLER PIC X(30) VALUE SPACE . NC1054.2FILLER PIC X(17) VALUE " CORRECT =" . NC1054.2PIC X(20) VALUE SPACE . NC1054.2REDEFINES CORRECT-A PIC -9(9).9(9). NC1054.2REDEFINES CORRECT-A PIC -.9(18). NC1054.2REDEFINES CORRECT-A PIC -9(4).9(14). NC1054.2REDEFINES CORRECT-A PIC -9(14).9(4). NC1054.2REDEFINES CORRECT-A. NC1054.2PIC -9(18). NC1054.2FILLER PIC X. NC1054.2FILLER PIC X(2) VALUE SPACE . NC1054.2PIC X(48) VALUE SPACE . NC1054.2FILLER PIC IS X(99) VALUE IS " FEATURE PANC1054.2 "SS PARAGRAPH-NAME NC1054.2 " REMARKS" . NC1054.2FILLER PIC X(20) VALUE SPACE . NC1054.2FILLER PIC X VALUE SPACE . NC1054.2FILLER PIC X(6) VALUE "TESTED" . NC1054.2FILLER PIC X(15) VALUE SPACE . NC1054.2FILLER PIC X(4) VALUE "FAIL" . NC1054.2FILLER PIC X(94) VALUE SPACE . NC1054.2PIC 9(2) VALUE ZERO . NC1054.2PIC 99 VALUE ZERO . NC1054.2PIC 999 VALUE ZERO . NC1054.2PIC 999 VALUE ZERO . NC1054.2PIC 999 VALUE ZERO . NC1054.2PIC 999 VALUE ZERO . NC1054.2PIC 999 VALUE ZERO . NC1054.2PIC 999 VALUE ZERO . NC1054.2PIC X(120) VALUE SPACE . NC1054.2PIC 9(5) VALUE ZERO . NC1054.2PIC X(48) VALUE SPACES . NC1054.2FILLER PIC X(39) VALUE SPACES . NC1054.2FILLER PIC X(42) VALUE NC1054.2"OFFICIAL COBOL COMPILER VALIDATION SYSTEM" . NC1054.2FILLER PIC X(39) VALUE SPACES . NC1054.2FILLER PIC X(40) VALUE SPACE . NC1054.2FILLER PIC X(7) VALUE "CCVS85 " . NC1054.2FILLER PIC XXXX VALUE NC1054.2"4.2 " . NC1054.2FILLER PIC X(28) VALUE NC1054.2" COPY - NOT FOR DISTRIBUTION" . NC1054.2FILLER PIC X(41) VALUE SPACE . NC1054.2FILLER PIC X(15) VALUE NC1054.2"TEST RESULT OF " . NC1054.2PIC X(9). NC1054.2FILLER PIC X(4) VALUE NC1054.2" IN " . NC1054.2FILLER PIC X(12) VALUE NC1054.2" HIGH " . NC1054.2FILLER PIC X(22) VALUE NC1054.2" LEVEL VALIDATION FOR " . NC1054.2FILLER PIC X(58) VALUE NC1054.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .NC1054.2FILLER PIC X(34) VALUE NC1054.2" FOR OFFICIAL USE ONLY " . NC1054.2FILLER PIC X(58) VALUE NC1054.2"COBOL 85 VERSION 4.2, Apr 1993 SSVG " .NC1054.2FILLER PIC X(28) VALUE NC1054.2" COPYRIGHT 1985 " . NC1054.2FILLER PIC X(52) VALUE SPACE . NC1054.2FILLER PIC X(14) VALUE IS "END OF TEST- " . NC1054.2PIC X(9). NC1054.2FILLER PIC X(45) VALUE SPACES . NC1054.2FILLER PIC X(31) VALUE SPACE . NC1054.2FILLER PIC X(21) VALUE SPACE . NC1054.2PIC XXX VALUE SPACE . NC1054.2FILLER PIC X VALUE SPACE . NC1054.2PIC X(44) VALUE NC1054.2"ERRORS ENCOUNTERED" . NC1054.2FILLER PIC X(22) VALUE NC1054.2" FOR OFFICIAL USE ONLY" . NC1054.2FILLER PIC X(12) VALUE SPACE . NC1054.2FILLER PIC X(58) VALUE NC1054.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .NC1054.2FILLER PIC X(13) VALUE SPACE . NC1054.2FILLER PIC X(15) VALUE NC1054.2" COPYRIGHT 1985" . NC1054.2PIC XXX VALUE SPACE . NC1054.2FILLER PIC X(4) VALUE " OF " . NC1054.2PIC XXX VALUE SPACE . NC1054.2FILLER PIC X(40) VALUE NC1054.2" TESTS WERE EXECUTED SUCCESSFULLY" . NC1054.2FILLER PIC X(19) VALUE NC1054.2"*** INFORMATION ***" . NC1054.2FILLER PIC X(8) VALUE SPACE . NC1054.2PIC X(20). NC1054.2FILLER PIC X(5) VALUE SPACE . NC1054.2PIC X(20). NC1054.2PIC X(48). NC1054.2FILLER PIC IS X VALUE IS SPACE . NC1054.2FILLER PIC IS X(65) VALUE IS "************************NC1054.2 "*****************************************" . NC1054.2FILLER PIC IS X(54) VALUE IS "************************NC1054.2 "******************************" . NC1054.2PIC X(9) VALUE NC1054.2"NC105A" . NC1054.2PROCEDURE DIVISION . NC1054.2SECTION . NC1054.2OPEN OUTPUT PRINT-FILE. NC1054.2MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC1054.2MOVE SPACE TO TEST-RESULTS. NC1054.2PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC1054.2GO TO CCVS1-EXIT. NC1054.2PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC1054.2EXIT PROGRAM . NC1054.2STOP RUN . NC1054.2MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC1054.2MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC1054.2MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC1054.2MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC1054.2MOVE "****TEST DELETED****" TO RE-MARK. NC1054.2IF REC-CT NOT EQUAL TO ZERO NC1054.2MOVE "." TO PARDOT-X NC1054.2MOVE REC-CT TO DOTVALUE. NC1054.2MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC1054.2IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC1054.2PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC1054.2ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC1054.2MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC1054.2MOVE SPACE TO CORRECT-X. NC1054.2IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC1054.2MOVE SPACE TO RE-MARK. NC1054.2MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1054.2MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1054.2MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1054.2MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1054.2MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1054.2MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1054.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1054.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC1054.2MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1054.2ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC1054.2ADD DELETE-COUNTER TO ERROR-HOLD. NC1054.2ADD PASS-COUNTER TO ERROR-HOLD. NC1054.2041300* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC1054.2 MOVE PASS-COUNTER TO CCVS-E-4-1. NC1054.2MOVE ERROR-HOLD TO CCVS-E-4-2. NC1054.2MOVE CCVS-E-4 TO CCVS-E-2-2. NC1054.2MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC1054.2MOVE "TEST(S) FAILED" TO ENDER-DESC. NC1054.2IF ERROR-COUNTER IS EQUAL TO ZERO NC1054.2MOVE "NO " TO ERROR-TOTAL NC1054.2ELSE NC1054.2MOVE ERROR-COUNTER TO ERROR-TOTAL. NC1054.2MOVE CCVS-E-2 TO DUMMY-RECORD. NC1054.2PERFORM WRITE-LINE. NC1054.2IF DELETE-COUNTER IS EQUAL TO ZERO NC1054.2MOVE "NO " TO ERROR-TOTAL ELSE NC1054.2MOVE DELETE-COUNTER TO ERROR-TOTAL. NC1054.2MOVE "TEST(S) DELETED " TO ENDER-DESC. NC1054.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1054.2IF INSPECT-COUNTER EQUAL TO ZERO NC1054.2MOVE "NO " TO ERROR-TOTAL NC1054.2ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC1054.2MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC1054.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1054.2MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1054.2ADD 1 TO RECORD-COUNT. NC1054.2IF RECORD-COUNT GREATER 42 NC1054.2MOVE DUMMY-RECORD TO DUMMY-HOLD NC1054.2MOVE SPACE TO DUMMY-RECORD NC1054.2WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC1054.2MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1054.2MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1054.2MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1054.2MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1054.2MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC1054.2MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN NC1054.2MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC1054.2MOVE DUMMY-HOLD TO DUMMY-RECORD NC1054.2MOVE ZERO TO RECORD-COUNT. NC1054.2PERFORM WRT-LN. NC1054.2WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC1054.2MOVE SPACE TO DUMMY-RECORD. NC1054.2PERFORM WRT-LN. NC1054.2IF COMPUTED-X NOT EQUAL TO SPACE NC1054.2GO TO FAIL-ROUTINE-WRITE. NC1054.2IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC1054.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1054.2MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC1054.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1054.2MOVE SPACES TO INF-ANSI-REFERENCE. NC1054.2GO TO FAIL-ROUTINE-EX. NC1054.2MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC1054.2MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC1054.2MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC1054.2MOVE SPACES TO COR-ANSI-REFERENCE. NC1054.2EXIT . NC1054.2IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC1054.2IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC1054.2MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC1054.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1054.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1054.2MOVE SPACES TO INF-ANSI-REFERENCE. NC1054.2EXIT . NC1054.2EXIT . NC1054.2SECTION . NC1054.2MOVE "VI-102 6.18.2" TO ANSI-REFERENCE. NC1054.2MOVE "MOVE LITERAL " TO FEATURE. NC1054.2MOVE 123.45 TO MOVE40. NC1054.2IF MOVE40 EQUAL TO 123.4 NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-1. NC1054.2049600* NOTE NUMERIC LITERAL NON INTEGRAL TO NNI MOVE, TRUNCATION ON NC1054.2 049700* RIGHT, ZERO PADDIND ON LEFT. NC1054.2 GO TO MOVE-WRITE-F1-1. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-1. NC1054.2MOVE MOVE40 TO COMPUTED-N. NC1054.2MOVE 123.4 TO CORRECT-N. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-1" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 123.45 TO MOVE5. NC1054.2IF MOVE5 EQUAL TO 23.45 NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-2. NC1054.2051600* NOTE NUMERIC LITERAL NON-INTEGRAL TO NNI MOVE, TRUNCATION ON NC1054.2 051700* LEFT, ZERO PADDING ON RIGHT. NC1054.2 GO TO MOVE-WRITE-F1-2. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-2. NC1054.2MOVE MOVE5 TO COMPUTED-N. NC1054.2MOVE 23.45 TO CORRECT-N. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-2" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "ABCDE" TO MOVE21. NC1054.2IF MOVE21 EQUAL TO "ABCDE " NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-3. NC1054.2053600* NOTE NON-NUMERIC LITERAL TO AN MOVE, SPACE PADDING ON RIGHT. NC1054.2 GO TO MOVE-WRITE-F1-3. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-3. NC1054.2MOVE MOVE21 TO COMPUTED-A. NC1054.2MOVE "ABCDE " TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-3" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "ABCDE" TO MOVE20. NC1054.2IF MOVE20 EQUAL TO "ABCD" NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-4. NC1054.2055500* NOTE NON-NUMERIC LITERAL TO AN MOVE, TRUNCATION ON RIGHT. NC1054.2 GO TO MOVE-WRITE-F1-4. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-4. NC1054.2MOVE MOVE20 TO COMPUTED-A. NC1054.2MOVE "ABCD" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-4" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "MISC MOVE " TO FEATURE. NC1054.2MOVE 12345 TO MOVE1. NC1054.2MOVE MOVE1 TO TA--X. NC1054.2IF TA--X EQUAL TO 12345 NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-5. NC1054.2057700* NOTE NUMERIC LITERAL TO COMP, ZERO FILL ON LEFT. NC1054.2 GO TO MOVE-WRITE-F1-5. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-5. NC1054.2MOVE TA--X TO COMPUTED-N. NC1054.2MOVE 12345 TO CORRECT-N. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-5" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE SPACE TO MOVE20. NC1054.2IF MOVE20 EQUAL TO " " NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-6. NC1054.2059600* NOTE FIGURATIVE CONSTANT SPACE TO AN MOVE. NC1054.2 GO TO MOVE-WRITE-F1-6. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-6. NC1054.2MOVE MOVE20 TO COMPUTED-A. NC1054.2MOVE " " TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-6" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE ZERO TO MOVE2. NC1054.2IF MOVE2 EQUAL TO 00000 NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-7. NC1054.2061500* NOTE FIGURATIVE CONSTANT ZERO TO N MOVE. NC1054.2 GO TO MOVE-WRITE-F1-7. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-7. NC1054.2MOVE MOVE2 TO COMPUTED-N. NC1054.2MOVE 00000 TO CORRECT-N. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-7" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "ABCDE" TO MOVE32. NC1054.2MOVE MOVE32 TO MOVE41. NC1054.2IF MOVE41 EQUAL TO " ABCDE" NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-8. NC1054.2063600* NOTE AN TO A MOVE, JUSTIFIED RIGHT. NC1054.2 GO TO MOVE-WRITE-F1-8. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-8. NC1054.2MOVE MOVE41 TO COMPUTED-A. NC1054.2MOVE " ABCDE" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-8" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "GROUP MOVE " TO FEATURE. NC1054.2MOVE 12345 TO MOVE1. NC1054.2MOVE MOVE1 TO MOVE46. NC1054.2IF MOVE46 EQUAL TO "12345 " NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-9. NC1054.2065800* NOTE NI TO GROUP MOVE. NC1054.2 GO TO MOVE-WRITE-F1-9. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-9. NC1054.2MOVE MOVE46 TO COMPUTED-A. NC1054.2MOVE "12345 " TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-9" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 123.45 TO MOVE23. NC1054.2MOVE MOVE23 TO MOVE46. NC1054.2IF MOVE46 EQUAL TO "12345 " NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-10. NC1054.2067900* NOTE NNI TO GROUP MOVE. NC1054.2 GO TO MOVE-WRITE-F1-10. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-10. NC1054.2MOVE MOVE46 TO COMPUTED-A. NC1054.2MOVE "12345 " TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-10" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "$123.45" TO MOVE29A. NC1054.2MOVE MOVE30 TO MOVE46. NC1054.2IF MOVE46 EQUAL TO "$123.4" NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-11. NC1054.2070000* NOTE NE TO GROUP MOVE. NC1054.2 GO TO MOVE-WRITE-F1-11. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-11. NC1054.2MOVE MOVE46 TO COMPUTED-A. NC1054.2MOVE "$123.4" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-11" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "ABCDE" TO MOVE32. NC1054.2MOVE MOVE32 TO MOVE46. NC1054.2IF MOVE46 EQUAL TO "ABCDE " NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-12. NC1054.2072100* NOTE AN TO GROUP MOVE. NC1054.2 GO TO MOVE-WRITE-F1-12. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-12. NC1054.2MOVE MOVE46 TO COMPUTED-A. NC1054.2MOVE "ABCDE" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-12" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "1 A05" TO MOVE35A. NC1054.2MOVE MOVE36 TO MOVE46. NC1054.2IF MOVE46 EQUAL TO "1 A05 " NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-13. NC1054.2074200* NOTE AE TO GROUP MOVE. NC1054.2 GO TO MOVE-WRITE-F1-13. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-13. NC1054.2MOVE MOVE46 TO COMPUTED-A. NC1054.2MOVE "1 A05 " TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-13" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "ABCDE" TO MOVE37. NC1054.2MOVE MOVE37 TO MOVE46. NC1054.2IF MOVE46 EQUAL TO "ABCDE " NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-14. NC1054.2076300* NOTE A TO GROUP MOVE. NC1054.2 GO TO MOVE-WRITE-F1-14. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-14. NC1054.2MOVE MOVE46 TO COMPUTED-A. NC1054.2MOVE "ABCDE " TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-14" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "123ABC" TO MOVE43. NC1054.2MOVE MOVE43 TO MOVE46. NC1054.2IF MOVE46 EQUAL TO "123ABC" NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-15. NC1054.2078400* NOTE GROUP TO GROUP MOVE. NC1054.2 GO TO MOVE-WRITE-F1-15. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-15. NC1054.2MOVE MOVE46 TO COMPUTED-A. NC1054.2MOVE "123ABC" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-15" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "123ABC" TO MOVE43. NC1054.2MOVE MOVE43 TO MOVE3. NC1054.2IF MOVE3 EQUAL TO 12 NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-16. NC1054.2080500* NOTE GROUP TO NI MOVE. NC1054.2 GO TO MOVE-WRITE-F1-16. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-16. NC1054.2MOVE MOVE3 TO COMPUTED-N. NC1054.2MOVE 12 TO CORRECT-N. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-16" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "123ABC" TO MOVE43. NC1054.2MOVE MOVE43 TO MOVE29. NC1054.2IF MOVE29X EQUAL TO "123ABC " NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-17. NC1054.2082600* NOTE GROUP TO NNI MOVE. NC1054.2 GO TO MOVE-WRITE-F1-17. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-17. NC1054.2MOVE MOVE29X TO COMPUTED-A. NC1054.2MOVE "123ABC" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-17" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "123ABC" TO MOVE43. NC1054.2MOVE MOVE43 TO MOVE21. NC1054.2IF MOVE21 EQUAL TO "123ABC " NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-18. NC1054.2084700* NOTE GROUP TO AN MOVE SPACE PADDING ON RIGHT. NC1054.2 GO TO MOVE-WRITE-F1-18. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-18. NC1054.2MOVE MOVE21 TO COMPUTED-A. NC1054.2MOVE "123ABC" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-18" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "123ABC" TO MOVE43. NC1054.2MOVE MOVE43 TO MOVE20. NC1054.2IF MOVE20 EQUAL TO "123A" NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-19. NC1054.2086800* NOTE GROUP TO AN MOVE. NC1054.2 GO TO MOVE-WRITE-F1-19. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-19. NC1054.2MOVE MOVE20 TO COMPUTED-A. NC1054.2MOVE "123A" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-19" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "123ABC" TO MOVE43. NC1054.2MOVE MOVE43 TO MOVE39. NC1054.2IF MOVE39 NOT EQUAL TO "123ABC " NC1054.2GO TO MOVE-FAIL-F1-20. NC1054.2088700* NOTE GROUP TO AE MOVE. NC1054.2 PERFORM PASS. NC1054.2GO TO MOVE-WRITE-F1-20. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-20. NC1054.2MOVE MOVE39 TO COMPUTED-A. NC1054.2MOVE "123ABC" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-20" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "123ABC" TO MOVE43. NC1054.2MOVE MOVE43 TO MOVE35. NC1054.2IF MOVE35 EQUAL TO "123" NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-21. NC1054.2090900* NOTE GROUP TO A MOVE. NC1054.2 GO TO MOVE-WRITE-F1-21. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-21. NC1054.2MOVE MOVE35 TO COMPUTED-A. NC1054.2MOVE "123" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-21" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "EDITED MOVE " TO FEATURE. NC1054.2MOVE "12345" TO MOVE1. NC1054.2MOVE MOVE1 TO MOVE16. NC1054.2IF MOVE16 EQUAL TO "12345 " NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-22. NC1054.2093100* NOTE NI TO NE MOVE, REPORT SYMBOL CR. NC1054.2 GO TO MOVE-WRITE-F1-22. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-22. NC1054.2MOVE MOVE16 TO COMPUTED-A. NC1054.2MOVE "12345 " TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-22" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "12345" TO MOVE1. NC1054.2MOVE MOVE1 TO MOVE52. NC1054.2IF MOVE52 EQUAL TO "12345 " NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-23. NC1054.2095200* NOTE NI TO NE MOVE, REPORT SIGN -. NC1054.2 GO TO MOVE-WRITE-F1-23. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-23. NC1054.2MOVE MOVE52 TO COMPUTED-A. NC1054.2MOVE "12345 " TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-23" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE -12345 TO MOVE51. NC1054.2MOVE MOVE51 TO MOVE66. NC1054.2IF MOVE66 EQUAL TO "12345DB" NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-24. NC1054.2097300* NOTE NI TO NE MOVE, REPORT SYMBOL DB. NC1054.2 GO TO MOVE-WRITE-F1-24. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-24. NC1054.2MOVE MOVE66 TO COMPUTED-A. NC1054.2MOVE "12345DB" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-24" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 12345 TO MOVE1. NC1054.2MOVE MOVE1 TO MOVE66. NC1054.2IF MOVE66 EQUAL TO "12345 " NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-25. NC1054.2099400* NOTE NI TO NE MOVE, REPORT SYMBOL DB. NC1054.2 GO TO MOVE-WRITE-F1-25. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-25. NC1054.2MOVE MOVE66 TO COMPUTED-A. NC1054.2MOVE "12345 " TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-25" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE -12345 TO MOVE51. NC1054.2MOVE MOVE51 TO MOVE67. NC1054.2IF MOVE67 EQUAL TO "12345-" NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-26. NC1054.2101500* NOTE NI TO NE MOVE, REPORT SIGN +. NC1054.2 GO TO MOVE-WRITE-F1-26. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-26. NC1054.2MOVE MOVE67 TO COMPUTED-A. NC1054.2MOVE "12345-" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-26" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 12345 TO MOVE1. NC1054.2MOVE MOVE1 TO MOVE67. NC1054.2IF MOVE67 EQUAL TO "12345+" NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-27. NC1054.2103600* NOTE NI TO NE MOVE, REPORT SIGN +. NC1054.2 GO TO MOVE-WRITE-F1-27. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-27. NC1054.2MOVE MOVE67 TO COMPUTED-A. NC1054.2MOVE "12345+" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-27" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 45 TO MOVE49. NC1054.2MOVE MOVE49 TO MOVE68. NC1054.2IF MOVE68 EQUAL TO " +45" NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-28. NC1054.2105700* NOTE NI TO NE MOVE, FLOATING REPORT SIGN. NC1054.2 GO TO MOVE-WRITE-F1-28. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-28. NC1054.2MOVE MOVE68 TO COMPUTED-A. NC1054.2MOVE " +45" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-28" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE -45 TO MOVE51A. NC1054.2MOVE MOVE51A TO MOVE69. NC1054.2IF MOVE69 EQUAL TO " -45" NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-29. NC1054.2107800* NOTE NI TO NE MOVE, FLOATING REPORT SIGN. NC1054.2 GO TO MOVE-WRITE-F1-29. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-29. NC1054.2MOVE MOVE69 TO COMPUTED-A. NC1054.2MOVE " -45" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-29" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 12345 TO MOVE1. NC1054.2MOVE MOVE1 TO MOVE70. NC1054.2IF MOVE70 EQUAL TO 12345 NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-30. NC1054.2109900* NOTE, TO AUDIT SYNC OPTION. NC1054.2 GO TO MOVE-WRITE-F1-30. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-30. NC1054.2MOVE MOVE70 TO COMPUTED-N. NC1054.2MOVE 12345 TO CORRECT-N. NC1054.2PERFORM FAIL. NC1054.2MOVE "MISC MOVE " TO FEATURE. NC1054.2MOVE "MOVE-TEST-F1-30" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 1.11115111115111115 TO MOVE48. NC1054.2IF MOVE48 EQUAL TO 1.11115111115111115 NC1054.2PERFORM PASS NC1054.2ELSE NC1054.2GO TO MOVE-FAIL-F1-31. NC1054.2112100* NOTE MAXIMUM LENGTH NUMERIC LITERAL. NC1054.2 GO TO MOVE-WRITE-F1-31. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-31. NC1054.2MOVE MOVE48 TO COMPUTED-N. NC1054.2MOVE "1.11115111115111115" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MAXIMUM LENGTH MOVE " TO FEATURE. NC1054.2MOVE "MOVE-TEST-F1-31" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 0 TO TA--X. NC1054.2MOVE MOVE23 TO MOVE5 MOVE6 MOVE7. NC1054.2IF MOVE5 NOT EQUAL TO 23.45 NC1054.2MOVE MOVE5 TO COMPUTED-N NC1054.2MOVE 23.45 TO CORRECT-N NC1054.2PERFORM FAIL PERFORM MOVE-WRITE-F1-32 NC1054.2MOVE 1 TO TA--X. NC1054.2IF MOVE6 NOT EQUAL TO .45 NC1054.2MOVE MOVE6 TO COMPUTED-N NC1054.2MOVE .45 TO CORRECT-N NC1054.2PERFORM FAIL PERFORM MOVE-WRITE-F1-32 NC1054.2MOVE 1 TO TA--X. NC1054.2IF MOVE7 NOT EQUAL TO 3.45 NC1054.2MOVE MOVE7 TO COMPUTED-N NC1054.2MOVE 3.45 TO CORRECT-N NC1054.2GO TO MOVE-FAIL-F1-32. NC1054.2IF TA--X IS NOT EQUAL TO 0 GO TO MOVE-INIT-F1-33. NC1054.2PERFORM PASS. NC1054.2GO TO MOVE-WRITE-F1-32. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-32. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-32" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ" TO GRP-ALPHABETIC. NC1054.2MOVE GRP-GROUP-MOVE-FROM TO GRP-GROUP-MOVE-TO. NC1054.2IF ALPHABET-AN-00026 NOT EQUAL TO WRK-AN-00026 NC1054.2GO TO MOVE-FAIL-F1-33. NC1054.2IF DIGITS-DU-10V00 NOT EQUAL TO WRK-DU-10V00 NC1054.2GO TO MOVE-FAIL-F1-33. NC1054.2IF ALPHANUMERIC-XN-00049 NOT EQUAL TO WRK-XN-00049 NC1054.2GO TO MOVE-FAIL-F1-33. NC1054.2IF NE-0001 NOT EQUAL TO SPACE GO TO MOVE-FAIL-F1-33. NC1054.2IF NE-0002 NOT EQUAL TO SPACE GO TO MOVE-FAIL-F1-33. NC1054.2IF AE-0001 NOT EQUAL TO SPACE GO TO MOVE-FAIL-F1-33. NC1054.2IF AE-0002 EQUAL TO SPACE NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-33. NC1054.2GO TO MOVE-FAIL-F1-33. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-33. NC1054.2MOVE GRP-MOVE-CONSTANTS TO SEND-BREAKDOWN. NC1054.2MOVE GRP-MOVE-RECEIVING-FIELDS TO RECEIVE-BREAKDOWN. NC1054.2MOVE 119 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A120. NC1054.2MOVE "MOVE ALPHA GROUP " TO FEATURE. NC1054.2MOVE "MOVE-TEST-F1-33 " TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ" TO GRP-ALPHABETIC. NC1054.2MOVE GRP-ALPHABETIC TO WRK-AN-00026. NC1054.2IF GRP-ALPHABETIC EQUAL TO GRP-WRK-AN-00026 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-34. NC1054.2GO TO MOVE-FAIL-F1-34. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-34. NC1054.2MOVE GRP-ALPHABETIC TO SEND-BREAKDOWN. NC1054.2MOVE GRP-WRK-AN-00026 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 026 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A40. NC1054.2MOVE "MOVE-TEST-F1-34 " TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ+- =$, .()/ 0123456789" NC1054.2TO GRP-ALPHANUMERIC. NC1054.2MOVE "MOVE ALPHA-NUM GROUP" TO FEATURE. NC1054.2MOVE GRP-ALPHANUMERIC TO WRK-XN-00049. NC1054.2IF GRP-ALPHANUMERIC EQUAL TO GRP-WRK-XN-00049 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-35. NC1054.2GO TO MOVE-FAIL-F1-35. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-35. NC1054.2MOVE GRP-ALPHANUMERIC TO SEND-BREAKDOWN. NC1054.2MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 049 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A60. NC1054.2MOVE "MOVE-TEST-F1-35 " TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ+- =$, .()/ 0123456789" NC1054.2TO GRP-ALPHANUMERIC. NC1054.2MOVE "MOVE ALPHA-NUM GROUP" TO FEATURE. NC1054.2MOVE GRP-ALPHANUMERIC TO AE-0001. NC1054.2IF GRP-ALPHANUMERIC-1002 EQUAL TO GRP-AE-0001 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-36. NC1054.2GO TO MOVE-FAIL-F1-36. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-36. NC1054.2MOVE GRP-ALPHANUMERIC-1002 TO SEND-BREAKDOWN. NC1054.2MOVE GRP-AE-0001 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 049 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A60. NC1054.2MOVE "MOVE-TEST-F1-36 " TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "MOVE NUMERIC GROUP " TO FEATURE. NC1054.2MOVE 0123456789 TO GRP-NUMERIC. NC1054.2MOVE GRP-NUMERIC TO WRK-DU-10V00. NC1054.2IF GRP-NUMERIC EQUAL TO GRP-WRK-DU-10V00 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-37. NC1054.2GO TO MOVE-FAIL-F1-37. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-37. NC1054.2MOVE GRP-NUMERIC TO CORRECT-A. NC1054.2MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-37 " TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 0123456789 TO GRP-NUMERIC. NC1054.2MOVE GRP-NUMERIC TO NE-0001. NC1054.2IF "0123456789 " EQUAL TO GRP-NE-0001 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-38. NC1054.2GO TO MOVE-FAIL-F1-38. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-38. NC1054.2MOVE GRP-NUMERIC TO CORRECT-A. NC1054.2MOVE GRP-NE-0001 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-38 " TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "MOVE ALPHA ITEM " TO FEATURE. NC1054.2MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ" TO ALPHABET-AN-00026. NC1054.2MOVE ALPHABET-AN-00026 TO GRP-WRK-AN-00026. NC1054.2IF ALPHABET-AN-00026 EQUAL TO WRK-AN-00026 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-39. NC1054.2GO TO MOVE-FAIL-F1-39. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-39. NC1054.2MOVE ALPHABET-AN-00026 TO SEND-BREAKDOWN. NC1054.2MOVE GRP-WRK-AN-00026 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 026 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A40. NC1054.2MOVE "MOVE-TEST-F1-39 " TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ" TO ALPHABET-AN-00026. NC1054.2MOVE ALPHABET-AN-00026 TO WRK-AN-00026. NC1054.2IF ALPHABET-AN-00026 EQUAL TO GRP-WRK-AN-00026 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-40. NC1054.2GO TO MOVE-FAIL-F1-40. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-40. NC1054.2MOVE ALPHABET-AN-00026 TO SEND-BREAKDOWN. NC1054.2MOVE WRK-AN-00026 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 026 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A40. NC1054.2MOVE "MOVE-TEST-F1-40 " TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ" TO ALPHABET-AN-00026. NC1054.2MOVE ALPHABET-AN-00026 TO WRK-XN-00049 FIRST-26. NC1054.2MOVE SPACE TO PADD-REST. NC1054.2IF FORTY-NINE-COMPARE EQUAL TO GRP-WRK-XN-00049 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-41. NC1054.2GO TO MOVE-FAIL-F1-41. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-41. NC1054.2MOVE FORTY-NINE-COMPARE TO SEND-BREAKDOWN. NC1054.2MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 049 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A60. NC1054.2MOVE "MOVE-TEST-F1-41 " TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "MOVE ALPHA-NUM ITEM " TO FEATURE. NC1054.2MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ+- =$, .()/ 0123456789" NC1054.2TO ALPHANUMERIC-XN-00049. NC1054.2MOVE ALPHANUMERIC-XN-00049 TO GRP-WRK-XN-00049. NC1054.2IF ALPHANUMERIC-XN-00049 EQUAL TO WRK-XN-00049 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-42. NC1054.2GO TO MOVE-FAIL-F1-42. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-42. NC1054.2MOVE ALPHANUMERIC-XN-00049 TO SEND-BREAKDOWN. NC1054.2MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 049 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A60. NC1054.2MOVE "MOVE-TEST-F1-42 " TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ+- =$, .()/ 0123456789" NC1054.2TO ALPHANUMERIC-XN-00049. NC1054.2MOVE ALPHANUMERIC-XN-00049 TO WRK-AN-00026 NC1054.2MOVE SPACE TO PADD-REST. NC1054.2IF FIRST-26 EQUAL TO GRP-WRK-AN-00026 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-43. NC1054.2GO TO MOVE-FAIL-F1-43. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-43. NC1054.2MOVE GRP-WRK-AN-00026 TO RECEIVE-BREAKDOWN. NC1054.2MOVE FIRST-26 TO SEND-BREAKDOWN. NC1054.2MOVE 026 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A40. NC1054.2MOVE "MOVE-TEST-F1-43 " TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ+- =$, .()/ 0123456789" NC1054.2TO ALPHANUMERIC-XN-00049. NC1054.2MOVE ALPHANUMERIC-XN-00049 TO WRK-XN-00049. NC1054.2IF ALPHANUMERIC-XN-00049 EQUAL TO GRP-WRK-XN-00049 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-44. NC1054.2GO TO MOVE-FAIL-F1-44. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-44. NC1054.2MOVE ALPHANUMERIC-XN-00049 TO SEND-BREAKDOWN. NC1054.2MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 049 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A60. NC1054.2MOVE "MOVE-TEST-F1-44" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ+- =$, .()/ 0123456789" NC1054.2TO ALPHANUMERIC-XN-00049. NC1054.2MOVE ALPHANUMERIC-XN-00049 TO AE-0001. NC1054.2IF GRP-AE-0001 EQUAL TO "ABCDEFGHIJKLMNOPQRSTUVWXYZ +- =$, .NC1054.2 "()/0 012345678" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-45. NC1054.2GO TO MOVE-FAIL-F1-45. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-45. NC1054.2MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ +- =$, .()/0 012345678" NC1054.2TO SEND-BREAKDOWN. NC1054.2MOVE AE-0001 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 049 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A60. NC1054.2MOVE "MOVE-TEST-F1-45" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "4444444444444444440123456789" TO WRK-DU-10V00. NC1054.2IF GRP-WRK-DU-10V00 EQUAL TO "0123456789" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-46. NC1054.2GO TO MOVE-FAIL-F1-46. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-46. NC1054.2MOVE "0123456789" TO CORRECT-A. NC1054.2MOVE WRK-DU-10V00 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-46" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 3344556677 TO MOVE72. NC1054.2MOVE MOVE72 TO MOVE73. NC1054.2IF MOVE73 EQUAL TO "33445 56677 0 " NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-47. NC1054.2GO TO MOVE-FAIL-F1-47. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-47. NC1054.2MOVE MOVE73 TO COMPUTED-A. NC1054.2MOVE "33445 56677 0 " TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-47" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "*" TO AE-0002. NC1054.2IF GRP-AE-0002 EQUAL TO "* 0 " NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-48. NC1054.2GO TO MOVE-FAIL-F1-48. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-48. NC1054.2MOVE AE-0002 TO COMPUTED-A. NC1054.2MOVE "* 0 " TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A60. NC1054.2MOVE "MOVE-TEST-F1-48" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ+- =$, .()/ 0123456789" NC1054.2TO ALPHANUMERIC-XN-00049. NC1054.2MOVE ALPHANUMERIC-XN-00049 TO AE-0001. NC1054.2MOVE AE-0001 TO AE-0002. NC1054.2IF AE-0002 EQUAL TO "AB0CD EFG" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-49. NC1054.2GO TO MOVE-FAIL-F1-49. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-49. NC1054.2MOVE AE-0002 TO COMPUTED-A. NC1054.2MOVE "AB0CD EFG" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-49" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "MOVE NUMERIC ITEM " TO FEATURE. NC1054.2MOVE 0123456789 TO DIGITS-DU-10V00. NC1054.2MOVE DIGITS-DU-10V00 TO GRP-WRK-DU-10V00. NC1054.2IF WRK-DU-10V00 EQUAL TO DIGITS-DU-10V00 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-50. NC1054.2GO TO MOVE-FAIL-F1-50. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-50. NC1054.2MOVE DIGITS-DU-10V00 TO CORRECT-A. NC1054.2MOVE WRK-DU-10V00 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-50" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 0123456789 TO DIGITS-DU-10V00. NC1054.2MOVE DIGITS-DU-10V00 TO WRK-XN-00049. NC1054.2IF GRP-WRK-XN-00049 EQUAL TO "0123456789 NC1054.2 " " NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-51. NC1054.2GO TO MOVE-FAIL-F1-51. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-51. NC1054.2MOVE "0123456789 " NC1054.2TO SEND-BREAKDOWN NC1054.2MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 049 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A60. NC1054.2MOVE "MOVE-TEST-F1-51" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 0123456789 TO DIGITS-DU-10V00. NC1054.2MOVE DIGITS-DU-10V00 TO AE-0002. NC1054.2IF GRP-AE-0002 EQUAL TO "01023 456" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-52. NC1054.2GO TO MOVE-FAIL-F1-52. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-52. NC1054.2MOVE "01023 456" TO CORRECT-A. NC1054.2MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-52" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 0123456789 TO DIGITS-DU-10V00. NC1054.2MOVE DIGITS-DU-10V00 TO WRK-DU-10V00. NC1054.2IF GRP-WRK-DU-10V00 EQUAL TO DIGITS-DU-10V00 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-53. NC1054.2GO TO MOVE-FAIL-F1-53. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-53. NC1054.2MOVE DIGITS-DU-10V00 TO CORRECT-A. NC1054.2MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-53" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 0123456789 TO DIGITS-DU-10V00. NC1054.2MOVE DIGITS-DU-06V04-S TO NE-0001. NC1054.2IF GRP-NE-0001 EQUAL TO " 12,345.678,9" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-54. NC1054.2GO TO MOVE-FAIL-F1-54. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-54. NC1054.2MOVE " 12,345.678,9" TO CORRECT-A. NC1054.2MOVE GRP-NE-0001 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-54" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "MOVE NUMERIC EDITED" TO FEATURE. NC1054.2MOVE " 12,345.678,9" TO GRP-NE-0001. NC1054.2MOVE NE-0001 TO GRP-WRK-XN-00049. NC1054.2IF GRP-WRK-XN-00049 EQUAL TO NC1054.2" 12,345.678,9 " NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-55. NC1054.2GO TO MOVE-FAIL-F1-55. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-55. NC1054.2MOVE " 12,345.678,9 " NC1054.2TO SEND-BREAKDOWN. NC1054.2MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 049 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A60. NC1054.2MOVE "MOVE-TEST-F1-55" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE " 12,345.678,9" TO GRP-NE-0001. NC1054.2MOVE NE-0001 TO WRK-XN-00049. NC1054.2IF GRP-WRK-XN-00049 EQUAL TO NC1054.2" 12,345.678,9 " NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-56. NC1054.2GO TO MOVE-FAIL-F1-56. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-56. NC1054.2MOVE " 12,345.678,9 " NC1054.2TO SEND-BREAKDOWN. NC1054.2MOVE WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 049 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A60. NC1054.2MOVE "MOVE-TEST-F1-56" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE " 12,345.678,9" TO GRP-NE-0001. NC1054.2MOVE NE-0001 TO AE-0002. NC1054.2IF GRP-AE-0002 EQUAL TO " 102, 345" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-57. NC1054.2GO TO MOVE-FAIL-F1-57. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-57. NC1054.2MOVE " 102, 345" TO CORRECT-A. NC1054.2MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-57" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "MOVE ZERO LITERAL " TO FEATURE. NC1054.2MOVE ZERO TO GRP-WRK-DU-10V00. NC1054.2IF WRK-DU-10V00 EQUAL TO "0000000000" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-58. NC1054.2GO TO MOVE-FAIL-F1-58. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-58. NC1054.2MOVE "0000000000" TO CORRECT-A. NC1054.2MOVE WRK-DU-10V00 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-58" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "0000000000000000000000000000000000000000000000000" NC1054.2TO WRK-XN-00049. NC1054.2IF GRP-WRK-XN-00049 EQUAL TO ZERO NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-59. NC1054.2GO TO MOVE-FAIL-F1-59. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-59. NC1054.2MOVE "0000000000000000000000000000000000000000000000000" NC1054.2TO SEND-BREAKDOWN. NC1054.2MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 049 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A60. NC1054.2MOVE "MOVE-TEST-F1-59" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE ZERO TO AE-0002. NC1054.2IF GRP-AE-0002 EQUAL TO "00000 000" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-60. NC1054.2GO TO MOVE-FAIL-F1-60. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-60. NC1054.2MOVE "00000 000" TO CORRECT-A. NC1054.2MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-60" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE ZERO TO WRK-DU-10V00. NC1054.2IF GRP-WRK-DU-10V00 EQUAL TO "0000000000" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-61. NC1054.2GO TO MOVE-FAIL-F1-61. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-61. NC1054.2MOVE "0000000000" TO CORRECT-A. NC1054.2MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-61" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE ZERO TO NE-0001. NC1054.2IF GRP-NE-0001 EQUAL TO " 000.000,0" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-62. NC1054.2GO TO MOVE-FAIL-F1-62. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-62. NC1054.2MOVE " 000.000,0" TO CORRECT-A. NC1054.2MOVE GRP-NE-0001 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-62" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "MOVE SPACE LITERAL " TO FEATURE. NC1054.2MOVE SPACE TO GRP-WRK-DU-10V00. NC1054.2IF GRP-WRK-DU-10V00 EQUAL TO SPACE NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-63. NC1054.2GO TO MOVE-FAIL-F1-63. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-63. NC1054.2MOVE SPACE TO CORRECT-A. NC1054.2MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-63" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE SPACE TO WRK-AN-00026. NC1054.2IF GRP-WRK-AN-00026 EQUAL TO " " NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-64. NC1054.2GO TO MOVE-FAIL-F1-64. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-64. NC1054.2MOVE SPACE TO SEND-BREAKDOWN. NC1054.2MOVE GRP-WRK-AN-00026 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 026 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A40. NC1054.2MOVE "MOVE-TEST-F1-64" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE SPACE TO WRK-XN-00049. NC1054.2IF GRP-WRK-XN-00049 EQUAL TO SPACE NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-65. NC1054.2GO TO MOVE-FAIL-F1-65. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-65. NC1054.2MOVE SPACE TO SEND-BREAKDOWN. NC1054.2MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 049 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A60. NC1054.2MOVE "MOVE-TEST-F1-65" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE SPACE TO AE-0002. NC1054.2IF GRP-AE-0002 EQUAL TO " 0 " NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-66. NC1054.2GO TO MOVE-FAIL-F1-66. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-66. NC1054.2MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2MOVE " 0 " TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-66" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "MOVE HIGH-VALUE " TO FEATURE. NC1054.2MOVE HIGH-VALUE TO GRP-WRK-DU-10V00. NC1054.2IF GRP-WRK-DU-10V00 EQUAL TO HIGH-VALUE NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-67. NC1054.2GO TO MOVE-FAIL-F1-67. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-67. NC1054.2MOVE HIGH-VALU-10LONG TO CORRECT-A. NC1054.2MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-67" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE HIGH-VALUE TO WRK-XN-00049. NC1054.2IF GRP-WRK-XN-00049 EQUAL TO HIGH-VALUE NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-68. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-68. NC1054.2MOVE HIGH-VALU-49LONG TO SEND-BREAKDOWN. NC1054.2MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 049 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A60. NC1054.2MOVE "MOVE-TEST-F1-68" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE HIGH-VALUE TO AE-0002. NC1054.2IF GRP-AE-0002 EQUAL TO HIGH-VALUE-EDIT NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-69. NC1054.2GO TO MOVE-FAIL-F1-69. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-69. NC1054.2MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2MOVE HIGH-VALUE-EDIT TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-69" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "MOVE LOW-VALUE " TO FEATURE. NC1054.2MOVE LOW-VALUE TO GRP-WRK-DU-10V00. NC1054.2IF GRP-WRK-DU-10V00 EQUAL TO LOW-VALUE NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-70. NC1054.2GO TO MOVE-FAIL-F1-70. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-70. NC1054.2MOVE LOW-VALU-10LONG TO CORRECT-A. NC1054.2MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-70" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE LOW-VALUE TO WRK-XN-00049. NC1054.2IF GRP-WRK-XN-00049 EQUAL TO LOW-VALUE NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-71. NC1054.2GO TO MOVE-FAIL-F1-71. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-71. NC1054.2MOVE LOW-VALU-49LONG TO SEND-BREAKDOWN. NC1054.2MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 049 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A60. NC1054.2MOVE "MOVE-TEST-F1-71" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE LOW-VALUE TO HIGH-1 HIGH-2 HIGH-3. NC1054.2MOVE LOW-VALUE TO AE-0002. NC1054.2IF GRP-AE-0002 EQUAL TO HIGH-VALUE-EDIT NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-72. NC1054.2GO TO MOVE-FAIL-F1-72. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-72. NC1054.2MOVE HIGH-VALUE-EDIT TO CORRECT-A. NC1054.2MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-72" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "MOVE QUOTE " TO FEATURE. NC1054.2MOVE QUOTE TO GRP-WRK-DU-10V00. NC1054.2IF GRP-WRK-DU-10V00 EQUAL TO QUOTE NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-73. NC1054.2GO TO MOVE-FAIL-F1-73. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-73. NC1054.2MOVE QUOTE-10LONG TO CORRECT-A. NC1054.2MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-73" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE QUOTE TO WRK-XN-00049. NC1054.2IF GRP-WRK-XN-00049 EQUAL TO QUOTE NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-74. NC1054.2GO TO MOVE-FAIL-F1-74. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-74. NC1054.2MOVE QUOTE-49LONG TO SEND-BREAKDOWN. NC1054.2MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 049 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A60. NC1054.2MOVE "MOVE-TEST-F1-74" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE QUOTE TO HIGH-1 HIGH-2 HIGH-3. NC1054.2MOVE QUOTE TO AE-0002. NC1054.2IF GRP-AE-0002 EQUAL TO HIGH-VALUE-EDIT NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-75. NC1054.2GO TO MOVE-FAIL-F1-75. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-75. NC1054.2MOVE HIGH-VALUE-EDIT TO CORRECT-A. NC1054.2MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-75" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "A1B2C3D4E5" TO GRP-WRK-DU-10V00. NC1054.2IF GRP-WRK-DU-10V00 EQUAL TO "A1B2C3D4E5" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-76. NC1054.2GO TO MOVE-FAIL-F1-76. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-76. NC1054.2MOVE "A1B2C3D4E5" TO CORRECT-A. NC1054.2MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE ALPHNUM LITERAL" TO FEATURE. NC1054.2MOVE "MOVE-TEST-F1-76" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "ABCDEFGHIJK" TO WRK-AN-00026. NC1054.2IF GRP-WRK-AN-00026 EQUAL TO "ABCDEFGHIJK " NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-77. NC1054.2GO TO MOVE-FAIL-F1-77. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-77. NC1054.2MOVE "ABCDEFGHIJK " TO SEND-BREAKDOWN. NC1054.2MOVE GRP-WRK-AN-00026 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 026 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A40. NC1054.2MOVE "MOVE ALPHA LITERAL " TO FEATURE. NC1054.2MOVE "MOVE-TEST-F1-77" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "MOVE ALPHNUM LITERAL" TO FEATURE. NC1054.2MOVE "1A2B3C4D5E6F" TO WRK-XN-00049. NC1054.2IF GRP-WRK-XN-00049 EQUAL TO NC1054.2"1A2B3C4D5E6F " NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-78. NC1054.2GO TO MOVE-FAIL-F1-78. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-78. NC1054.2MOVE "1A2B3C4D5E6F " NC1054.2TO SEND-BREAKDOWN. NC1054.2MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 049 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A60. NC1054.2MOVE "MOVE-TEST-F1-78" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "1Z2Y3X4W5V" TO AE-0002. NC1054.2IF GRP-AE-0002 EQUAL TO "1Z02Y 3X4" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-79. NC1054.2GO TO MOVE-FAIL-F1-79. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-79. NC1054.2MOVE "1Z02Y 3X4" TO CORRECT-A. NC1054.2MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-79" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "9876543210" TO WRK-DU-10V00. NC1054.2IF GRP-WRK-DU-10V00 EQUAL TO "9876543210" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-80. NC1054.2GO TO MOVE-FAIL-F1-80. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-80. NC1054.2MOVE "9876543210" TO CORRECT-A. NC1054.2MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-80" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "9876543210" TO NE-0002. NC1054.2IF GRP-NE-0002 EQUAL TO "9876543,210" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-81. NC1054.2GO TO MOVE-FAIL-F1-81. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-81. NC1054.2MOVE "9876543,210" TO CORRECT-A. NC1054.2MOVE GRP-NE-0002 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-81" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "MOVE NUMERIC LITERAL" TO FEATURE. NC1054.2MOVE 0123456789 TO GRP-WRK-DU-10V00. NC1054.2IF GRP-WRK-DU-10V00 EQUAL TO "0123456789" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-82. NC1054.2GO TO MOVE-FAIL-F1-82. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-82. NC1054.2MOVE "0123456789" TO CORRECT-A. NC1054.2MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-82" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 0918273645 TO WRK-XN-00049. NC1054.2IF GRP-WRK-XN-00049 EQUAL TO NC1054.2"0918273645 " NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-83. NC1054.2GO TO MOVE-FAIL-F1-83. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-83. NC1054.2MOVE "0918273645 " NC1054.2TO SEND-BREAKDOWN. NC1054.2MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2MOVE 049 TO LENGTH-COUNTER. NC1054.2PERFORM FAIL. NC1054.2PERFORM A20 THRU A60. NC1054.2MOVE "MOVE-TEST-F1-82" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 019823 TO AE-0002. NC1054.2IF GRP-AE-0002 EQUAL TO "01098 23 " NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-84. NC1054.2GO TO MOVE-FAIL-F1-84. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-84. NC1054.2MOVE "01098 23 " TO CORRECT-A. NC1054.2MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-84" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 9876543210 TO WRK-DU-10V00. NC1054.2IF GRP-WRK-DU-10V00 EQUAL TO "9876543210" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-85. NC1054.2GO TO MOVE-FAIL-F1-85. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-85. NC1054.2MOVE "9876543210" TO CORRECT-A. NC1054.2MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-85" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 00012345 TO NE-0002. NC1054.2IF GRP-NE-0002 EQUAL TO " 12,345" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-86. NC1054.2GO TO MOVE-FAIL-F1-86. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-86. NC1054.2MOVE " 12,345" TO CORRECT-A. NC1054.2MOVE GRP-NE-0002 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-86" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 000011.1223 TO NE-0001. NC1054.2IF GRP-NE-0001 EQUAL TO " 011.122,3" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-87. NC1054.2GO TO MOVE-FAIL-F1-87. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-87. NC1054.2MOVE " 011.122,3" TO CORRECT-A. NC1054.2MOVE GRP-NE-0001 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE-TEST-F1-87" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE +60666 TO SPOS-LIT1. NC1054.2MOVE SPOS-LIT1 TO NUMERIC-LIT. NC1054.2IF NUMERIC-LIT EQUAL TO "60666" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-88. NC1054.2MOVE GRP-LEV-NUMERIC TO COMPUTED-A. NC1054.2MOVE 60666 TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-88. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-88" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE -70717 TO SPOS-LIT1. NC1054.2MOVE SNEG-LIT1 TO NUMERIC-LIT. NC1054.2IF NUMERIC-LIT EQUAL TO "70717" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-89. NC1054.2MOVE GRP-LEV-NUMERIC TO COMPUTED-A. NC1054.2MOVE 70717 TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-89. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-89" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE +60667 TO SPOS-LIT2. NC1054.2MOVE SPOS-LIT2 TO NUMERIC-LIT. NC1054.2IF NUMERIC-LIT EQUAL TO 60667 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-90. NC1054.2MOVE GRP-LEV-NUMERIC TO COMPUTED-A. NC1054.2MOVE 60667 TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-90. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-90" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE -70718 TO SNEG-LIT2. NC1054.2MOVE SNEG-LIT2 TO NUMERIC-LIT. NC1054.2IF NUMERIC-LIT EQUAL TO 70718 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-91. NC1054.2MOVE "+S9 MOVED TO PICTURE X " TO RE-MARK. NC1054.2MOVE NUMERIC-LIT TO COMPUTED-A. NC1054.2MOVE "70718" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-91. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-91" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE +60666 TO SPOS-LIT1. NC1054.2MOVE SPOS-LIT1 TO ALPHA-LIT. NC1054.2IF ALPHA-LIT EQUAL TO "60666" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-92. NC1054.2MOVE ALPHA-LIT TO COMPUTED-A. NC1054.2MOVE "60666" TO CORRECT-A. NC1054.2MOVE "SIGN SHOULD NOT BE MOVED" TO RE-MARK. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-92. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-92" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE -70717 TO SNEG-LIT1. NC1054.2MOVE SNEG-LIT1 TO ALPHA-LIT. NC1054.2IF ALPHA-LIT EQUAL TO "70717" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-93. NC1054.2MOVE ALPHA-LIT TO COMPUTED-A. NC1054.2MOVE "70717" TO CORRECT-A. NC1054.2MOVE "SIGN SHOULD NOT BE MOVED" TO RE-MARK. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-93. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-93" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "JUSTIFIED MOVES " TO FEATURE. NC1054.2MOVE 99 TO GRP-NUMERIC-99. NC1054.2MOVE GRP-NUMERIC-99 TO RECEIVE-1 RECEIVE-4 RECEIVE-5 NC1054.2IF RECEIVE-1 EQUAL TO "99 " NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-94. NC1054.2MOVE RECEIVE-1 TO COMPUTED-A. NC1054.2MOVE "99 " TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-94. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-94" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2IF RECEIVE-4 EQUAL TO 99.00 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-95. NC1054.2MOVE 99.00 TO CORRECT-N. NC1054.2MOVE RECEIVE-4 TO COMPUTED-N. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-95. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-95" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2IF RECEIVE-5 EQUAL TO "99 " NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-96. NC1054.2MOVE RECEIVE-5 TO COMPUTED-A. NC1054.2MOVE "99 " TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-96. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-96" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2IF RECEIVE-6 EQUAL TO "99 " NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-97. NC1054.2MOVE RECEIVE-6 TO COMPUTED-A. NC1054.2MOVE "99 " TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-97. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-97" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "MOVE (COMP/DISPLAY)" TO FEATURE. NC1054.2MOVE 798 TO WRK-CS-18V00. NC1054.2MOVE WRK-CS-18V00 TO WRK-DS-18V00. NC1054.2IF WRK-DS-18V00 EQUAL TO WRK-CS-18V00 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-98. NC1054.2MOVE WRK-CS-18V00 TO CORRECT-18V0. NC1054.2MOVE WRK-DS-18V00 TO COMPUTED-18V0. NC1054.2PERFORM FAIL. NC1054.2MOVE "FIELDS COMPARED UNEQUAL" TO RE-MARK. NC1054.2GO TO MOVE-WRITE-F1-98. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-98" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 798 TO WRK-CS-18V00. NC1054.2MOVE WRK-CS-18V00 TO WRK-DS-10V00. NC1054.2IF WRK-DS-10V00 EQUAL TO WRK-CS-18V00 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-99. NC1054.2MOVE WRK-DS-10V00 TO CORRECT-18V0. NC1054.2MOVE WRK-CS-18V00 TO COMPUTED-18V0. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-99. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-99" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 7 TO WRK-DS-18V00. NC1054.2MOVE WRK-DS-18V00 TO WRK-CS-01V00. NC1054.2IF WRK-CS-01V00 EQUAL TO WRK-DS-18V00 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-100. NC1054.2MOVE WRK-DS-18V00 TO COMPUTED-18V0 NC1054.2MOVE WRK-CS-01V00 TO CORRECT-18V0. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-100. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-100" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 0123456789 TO WRK-DS-10V00. NC1054.2MOVE WRK-DS-10V00 TO WRK-CS-18V00. NC1054.2IF WRK-DS-10V00 EQUAL TO WRK-CS-18V00 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-101. NC1054.2MOVE WRK-DS-10V00 TO COMPUTED-18V0. NC1054.2MOVE WRK-CS-18V00 TO CORRECT-18V0. NC1054.2MOVE "FIELDS COMPARED UNEQUAL" TO RE-MARK. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-101. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-101" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 3 TO WRK-CS-18V00. NC1054.2MOVE WRK-CS-18V00 TO WRK-DS-01V00. NC1054.2IF WRK-CS-18V00 EQUAL TO WRK-DS-01V00 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-102. NC1054.2MOVE WRK-CS-18V00 TO COMPUTED-18V0. NC1054.2MOVE WRK-DS-01V00 TO CORRECT-18V0. NC1054.2MOVE "FIELDS COMPARED UNEQUAL" TO RE-MARK. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-102. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-102" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 832.553 TO WRK-CS-08V08. NC1054.2MOVE WRK-CS-08V08 TO WRK-EDIT-Z3VZ3. NC1054.2IF WRK-EDIT-Z3VZ3 EQUAL TO "832.553" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-103. NC1054.2MOVE "832.553" TO CORRECT-A. NC1054.2MOVE WRK-EDIT-Z3VZ3 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-103. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-103" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 6382.47 TO WRK-CS-08V08. NC1054.2MOVE WRK-CS-04V08 TO WRK-EDIT-05V02. NC1054.2IF WRK-EDIT-05V02 EQUAL TO " 06382.47" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-104. NC1054.2MOVE " 06382.47" TO CORRECT-A. NC1054.2MOVE WRK-EDIT-05V02 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-104. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-104" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 832.553 TO WRK-CS-08V08. NC1054.2MOVE WRK-CS-08V08 TO WRK-EDIT-05V00. NC1054.2IF WRK-EDIT-05V00 EQUAL TO "**832" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-105. NC1054.2MOVE "**832" TO CORRECT-A. NC1054.2MOVE WRK-EDIT-05V00 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-105. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-105" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 6382.47 TO WRK-CS-04V08. NC1054.2MOVE WRK-CS-04V08 TO WRK-EDIT-05V02. NC1054.2IF WRK-EDIT-05V02 EQUAL TO " 06382.47" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-106. NC1054.2MOVE WRK-EDIT-05V02 TO COMPUTED-A. NC1054.2MOVE " 06382.47" TO CORRECT-A. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-106. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-106" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE ZERO TO WRK-CS-18V00. NC1054.2MOVE WRK-CS-18V00 TO WRK-EDIT-18V00. NC1054.2IF WRK-EDIT-18V00 EQUAL TO " 0" NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-107. NC1054.2MOVE " 0" TO CORRECT-A. NC1054.2MOVE WRK-EDIT-18V00 TO COMPUTED-A. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-107. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-107" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "MOVE (DISPLAY/COMP)" TO FEATURE. NC1054.2MOVE 15 TO WRK-DS-10V00. NC1054.2MOVE WRK-DS-10V00 TO WRK-CS-01V00. NC1054.2IF WRK-CS-01V00 EQUAL TO 5 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-108. NC1054.2MOVE 5 TO CORRECT-N. NC1054.2MOVE WRK-CS-01V00 TO COMPUTED-N. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-108. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-108" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 1023 TO WRK-DS-10V00. NC1054.2MOVE WRK-DS-10V00 TO WRK-CS-03V00. NC1054.2IF WRK-CS-03V00 EQUAL TO 023 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-109. NC1054.2MOVE WRK-CS-03V00 TO COMPUTED-N. NC1054.2MOVE 023 TO CORRECT-N. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-109. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-109" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE SPACE TO MOVE71. NC1054.2MOVE 00000 TO MOVE71. NC1054.2IF MOVE71 EQUAL TO "00000 " NC1054.2PERFORM PASS GO TO MOVE-WRITE-F1-110. NC1054.2GO TO MOVE-FAIL-F1-110. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-110. NC1054.2PERFORM FAIL. NC1054.2MOVE MOVE71 TO COMPUTED-A. NC1054.2MOVE "00000 " TO CORRECT-A. NC1054.2MOVE "MOVE NUMERIC" TO FEATURE. NC1054.2MOVE "MOVE-TEST-F1-110" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 234565432.1 TO MOVE74. NC1054.2MOVE MOVE74 TO MOVE75. NC1054.2IF MOVE75 EQUAL TO 234565432 NC1054.2PERFORM PASS GO TO MOVE-WRITE-F1-111. NC1054.2GO TO MOVE-FAIL-F1-111. NC1054.2PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-F1-111. NC1054.2MOVE MOVE75 TO COMPUTED-N. NC1054.2MOVE 234565432 TO CORRECT-N. NC1054.2PERFORM FAIL. NC1054.2MOVE "MOVE -- COMP, SYNC" TO FEATURE. NC1054.2MOVE "MOVE-TEST-F1-111" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "MOVE TO COMP (ABS)" TO FEATURE. NC1054.2MOVE +60666 TO SPOS-LIT1. NC1054.2MOVE SPOS-LIT1 TO CU-05V00-001. NC1054.2IF CU-05V00-001 EQUAL TO 60666 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-112. NC1054.2MOVE CU-05V00-001 TO COMPUTED-18V0. NC1054.2MOVE 60666 TO CORRECT-18V0. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-112. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-112" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE +60667 TO SPOS-LIT2. NC1054.2MOVE SPOS-LIT2 TO CU-05V00-001. NC1054.2IF CU-05V00-001 EQUAL TO 60667 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-113. NC1054.2MOVE CU-05V00-001 TO COMPUTED-18V0. NC1054.2MOVE 60667 TO CORRECT-18V0. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-113. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-113" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE SNEG-LIT1 TO CU-05V00-001. NC1054.2IF CU-05V00-001 EQUAL TO 70717 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-114. NC1054.2MOVE CU-05V00-001 TO COMPUTED-18V0. NC1054.2MOVE 70717 TO CORRECT-18V0. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-114. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-114" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE -70718 TO SNEG-LIT2. NC1054.2MOVE SNEG-LIT2 TO CU-05V00-001. NC1054.2IF CU-05V00-001 EQUAL TO 70718 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-115. NC1054.2MOVE CU-05V00-001 TO COMPUTED-18V0. NC1054.2MOVE 70718 TO CORRECT-18V0. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-115. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-115" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE +60666 TO SPOS-LIT1. NC1054.2MOVE SPOS-LIT1 TO CS-05V00-001. NC1054.2MOVE CS-05V00-001 TO CU-05V00-001. NC1054.2IF CU-05V00-001 EQUAL TO 60666 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-116. NC1054.2MOVE CU-05V00-001 TO COMPUTED-18V0. NC1054.2MOVE 60666 TO CORRECT-18V0. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-116. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-116" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE +60667 TO SPOS-LIT2. NC1054.2MOVE SPOS-LIT2 TO CS-05V00-001. NC1054.2MOVE CS-05V00-001 TO CU-05V00-001. NC1054.2IF CU-05V00-001 EQUAL TO 60667 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-117. NC1054.2MOVE CU-05V00-001 TO COMPUTED-18V0. NC1054.2MOVE 60667 TO CORRECT-18V0. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-117. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-117" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE -70717 TO SNEG-LIT1. NC1054.2MOVE SNEG-LIT1 TO CS-05V00-001. NC1054.2MOVE CS-05V00-001 TO CU-05V00-001. NC1054.2IF CU-05V00-001 EQUAL TO 70717 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-118. NC1054.2MOVE CU-05V00-001 TO COMPUTED-18V0. NC1054.2MOVE 70717 TO CORRECT-18V0. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-118. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-118" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE -70718 TO SNEG-LIT2. NC1054.2MOVE SNEG-LIT2 TO CS-05V00-001. NC1054.2MOVE CS-05V00-001 TO CU-05V00-001. NC1054.2IF CU-05V00-001 EQUAL TO 70718 NC1054.2PERFORM PASS NC1054.2GO TO MOVE-WRITE-F1-119. NC1054.2MOVE CU-05V00-001 TO COMPUTED-18V0. NC1054.2MOVE 70718 TO CORRECT-18V0. NC1054.2PERFORM FAIL. NC1054.2GO TO MOVE-WRITE-F1-119. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "MOVE-TEST-F1-119" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2283000* NC1054.2 283100* MOVE-TEST-176 THROUGH MOVE-TEST-178 CONTAIN MOVE NC1054.2 283200* STATEMENTS OF THE FORM NC1054.2 283300* MOVE ALL LITERAL TO NUMERIC DATA ITEM. NC1054.2 283400* NC1054.2 283500* REFERENCES IN X3.23-1974 NC1054.2 283600* PAGE I-85, 5.3.2.2.2.3(1) NC1054.2 283700* PAGE II-76, 5.15.4(4)B.3 NC1054.2 283800* NC1054.2 283900*MOVE-TEST-176. NC1054.2 284000* MOVE ZERO TO MOVE5. NC1054.2 284100* MOVE ALL "123" TO MOVE5. NC1054.2 284200* IF MOVE5 EQUAL TO 12 NC1054.2 284300* PERFORM PASS NC1054.2 284400* GO TO MOVE-WRITE-176 NC1054.2 284500* ELSE GO TO MOVE-FAIL-176. NC1054.2 PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-176. NC1054.2PERFORM FAIL. NC1054.2MOVE 12 TO CORRECT-N. NC1054.2MOVE MOVE5 TO COMPUTED-N. NC1054.2MOVE "*DELETED BY FCCTS*" TO FEATURE. NC1054.2MOVE "MOVE-TEST-176" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2285700*MOVE-TEST-177. NC1054.2 285800* MOVE ZERO TO MOVE5. NC1054.2 285900* MOVE ALL "ABC123" TO MOVE5. NC1054.2 286000* IF MOVE5 EQUAL TO 23 NC1054.2 286100* PERFORM PASS NC1054.2 286200* GO TO MOVE-WRITE-177 NC1054.2 286300* ELSE GO TO MOVE-FAIL-177. NC1054.2 PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-177. NC1054.2PERFORM FAIL. NC1054.2MOVE 23 TO CORRECT-N. NC1054.2MOVE MOVE5 TO COMPUTED-N. NC1054.2MOVE "*DELETED BY FCCTS*" TO FEATURE. NC1054.2MOVE "MOVE-TEST-177" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2287500*MOVE-TEST-178. NC1054.2 287600* MOVE ZERO TO MOVE7. NC1054.2 287700* MOVE ALL "2A" TO MOVE7. NC1054.2 287800* IF MOVE7 EQUAL TO 2 NC1054.2 287900* PERFORM PASS NC1054.2 288000* GO TO MOVE-WRITE-178 NC1054.2 288100* ELSE GO TO MOVE-FAIL-178. NC1054.2 PERFORM DE-LETE. NC1054.2GO TO MOVE-WRITE-178. NC1054.2PERFORM FAIL. NC1054.2MOVE 2 TO CORRECT-N. NC1054.2MOVE MOVE7 TO COMPUTED-N. NC1054.2MOVE "*DELETED BY FCCTS*" TO FEATURE. NC1054.2MOVE "MOVE-TEST-178" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "EDIT--B(N), 0(N)" TO FEATURE. NC1054.2MOVE "926" TO EDIT-PICTURE-01. NC1054.2IF EDIT-PICTURE-01 EQUAL TO "9 26" NC1054.2PERFORM PASS NC1054.2GO TO EDIT-WRITE-F1-120. NC1054.2PERFORM FAIL. NC1054.2MOVE EDIT-PICTURE-01 TO COMPUTED-A. NC1054.2MOVE "9 26" TO CORRECT-A. NC1054.2GO TO EDIT-WRITE-F1-120. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "EDIT-TEST-F1-120" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "1492" TO EDIT-PICTURE-02. NC1054.2IF EDIT-PICTURE-02 EQUAL TO "$0000000000492" NC1054.2PERFORM PASS NC1054.2GO TO EDIT-WRITE-F1-121. NC1054.2PERFORM FAIL. NC1054.2MOVE EDIT-PICTURE-02 TO COMPUTED-A. NC1054.2MOVE "$0000000000492" TO CORRECT-A. NC1054.2GO TO EDIT-WRITE-F1-121. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "EDIT-TEST-F1-121" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 333 TO EDIT-DATA-1. NC1054.2MOVE EDIT-DATA-1 TO EDIT-PICTURE-01. NC1054.2IF EDIT-PICTURE-01 EQUAL TO "3 33" NC1054.2PERFORM PASS NC1054.2GO TO EDIT-WRITE-F1-122. NC1054.2PERFORM FAIL. NC1054.2MOVE EDIT-PICTURE-01 TO COMPUTED-A. NC1054.2MOVE "3 33" TO CORRECT-A. NC1054.2GO TO EDIT-WRITE-F1-122. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "EDIT-TEST-F1-122" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE 916 TO EDIT-DATA-2. NC1054.2MOVE EDIT-DATA-2 TO EDIT-PICTURE-02. NC1054.2IF EDIT-PICTURE-02 EQUAL TO "$0000000000916" NC1054.2PERFORM PASS NC1054.2GO TO EDIT-WRITE-F1-123. NC1054.2PERFORM FAIL. NC1054.2MOVE EDIT-PICTURE-02 TO COMPUTED-A. NC1054.2MOVE "$0000000000916 " TO CORRECT-A. NC1054.2GO TO EDIT-WRITE-F1-123. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "EDIT-TEST-F1-123" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2MOVE "EDIT -- MASKED EDIT" TO FEATURE. NC1054.2MOVE 000987.65 TO EDIT-PIC-05. NC1054.2IF GRP-EDIT-PIC-05 EQUAL TO " $987.65" NC1054.2PERFORM PASS NC1054.2GO TO EDIT-WRITE-F1-124. NC1054.2PERFORM FAIL. NC1054.2MOVE EDIT-PIC-05 TO COMPUTED-A. NC1054.2MOVE " $987.65" TO CORRECT-A. NC1054.2GO TO EDIT-WRITE-F1-124. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "EDIT-TEST-F1-124" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2298000* NC1054.2 MOVE 000123.45 TO EDIT-PIC-06. NC1054.2IF GRP-EDIT-PIC-06 EQUAL TO " $123.45" NC1054.2PERFORM PASS NC1054.2GO TO EDIT-WRITE-F1-125. NC1054.2PERFORM FAIL. NC1054.2MOVE EDIT-PIC-06 TO COMPUTED-A. NC1054.2MOVE " $123.45" TO CORRECT-A. NC1054.2GO TO EDIT-WRITE-F1-125. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "EDIT-TEST-F1-125" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2299700* NC1054.2 MOVE 000321.01 TO EDIT-PIC-07. NC1054.2IF GRP-EDIT-PIC-07 EQUAL TO " +321.01" NC1054.2PERFORM PASS NC1054.2GO TO EDIT-WRITE-F1-126. NC1054.2PERFORM FAIL. NC1054.2MOVE EDIT-PIC-07 TO COMPUTED-A. NC1054.2MOVE " +321.01" TO CORRECT-A. NC1054.2GO TO EDIT-WRITE-F1-126. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "EDIT-TEST-F1-126" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2301400* NC1054.2 MOVE -0012.98 TO EDIT-PIC-08. NC1054.2IF GRP-EDIT-PIC-08 EQUAL TO " -012.98" NC1054.2PERFORM PASS NC1054.2GO TO EDIT-WRITE-F1-127. NC1054.2PERFORM FAIL. NC1054.2MOVE EDIT-PIC-08 TO COMPUTED-A. NC1054.2MOVE " -012.98" TO CORRECT-A. NC1054.2GO TO EDIT-WRITE-F1-127. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "EDIT-TEST-F1-127" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2303100* NC1054.2 MOVE 0000567.43 TO EDIT-PIC-09. NC1054.2IF GRP-EDIT-PIC-09 EQUAL TO "****567.43" NC1054.2PERFORM PASS NC1054.2GO TO EDIT-WRITE-F1-128. NC1054.2PERFORM FAIL. NC1054.2MOVE EDIT-PIC-09 TO COMPUTED-A. NC1054.2MOVE "****567.43" TO CORRECT-A. NC1054.2GO TO EDIT-WRITE-F1-128. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "EDIT-TEST-F1-128" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2304800* NC1054.2 MOVE ZERO TO EDIT-PIC-10. NC1054.2IF GRP-EDIT-PIC-10 EQUAL TO " 000.00" NC1054.2PERFORM PASS NC1054.2GO TO EDIT-WRITE-F1-129. NC1054.2PERFORM FAIL. NC1054.2MOVE EDIT-PIC-10 TO COMPUTED-A. NC1054.2MOVE " 000.00" TO CORRECT-A. NC1054.2GO TO EDIT-WRITE-F1-129. NC1054.2PERFORM DE-LETE. NC1054.2MOVE "EDIT-TEST-F1-129" TO PAR-NAME. NC1054.2PERFORM PRINT-DETAIL. NC1054.2GO TO CCVS-EXIT. NC1054.2MOVE FIRST-20S TO CORRECT-A. NC1054.2MOVE FIRST-20R TO COMPUTED-A. NC1054.2MOVE "1ST 20 POSITIONS OF RESULTS" TO RE-MARK. NC1054.2MOVE TEST-RESULTS TO PRINT-REC. NC1054.2WRITE PRINT-REC AFTER ADVANCING 1 LINES. NC1054.2SUBTRACT 20 FROM LENGTH-COUNTER. NC1054.2MOVE SECOND-20S TO CORRECT-A. NC1054.2MOVE SECOND-20R TO COMPUTED-A. NC1054.2MOVE "2ND 20 POSITIONS OF RESULTS" TO RE-MARK. NC1054.2IF LENGTH-COUNTER GREATER THAN 20 NC1054.2MOVE SPACE TO P-OR-F NC1054.2MOVE TEST-RESULTS TO PRINT-REC NC1054.2WRITE PRINT-REC AFTER ADVANCING 1 LINES NC1054.2SUBTRACT 20 FROM LENGTH-COUNTER ELSE NC1054.2MOVE 000 TO LENGTH-COUNTER. NC1054.2MOVE THIRD-20S TO CORRECT-A. NC1054.2MOVE THIRD-20R TO COMPUTED-A. NC1054.2MOVE "3RD 20 POSITIONS OF RESULTS" TO RE-MARK. NC1054.2IF LENGTH-COUNTER GREATER THAN 20 NC1054.2MOVE SPACE TO P-OR-F NC1054.2MOVE TEST-RESULTS TO PRINT-REC NC1054.2WRITE PRINT-REC AFTER ADVANCING 1 LINES NC1054.2SUBTRACT 20 FROM LENGTH-COUNTER ELSE NC1054.2MOVE 000 TO LENGTH-COUNTER. NC1054.2MOVE FOURTH-20S TO CORRECT-A. NC1054.2MOVE FOURTH-20R TO COMPUTED-A. NC1054.2MOVE "4TH 20 POSITIONS OF RESULTS" TO RE-MARK. NC1054.2IF LENGTH-COUNTER GREATER THAN 20 NC1054.2MOVE SPACE TO P-OR-F NC1054.2MOVE TEST-RESULTS TO PRINT-REC NC1054.2WRITE PRINT-REC AFTER ADVANCING 1 LINES NC1054.2SUBTRACT 20 FROM LENGTH-COUNTER ELSE NC1054.2MOVE 000 TO LENGTH-COUNTER. NC1054.2MOVE FIFTH-20S TO CORRECT-A. NC1054.2MOVE FIFTH-20R TO COMPUTED-A. NC1054.2MOVE "5TH 20 POSITIONS OF RESULTS" TO RE-MARK. NC1054.2IF LENGTH-COUNTER GREATER THAN 20 NC1054.2MOVE SPACE TO P-OR-F NC1054.2MOVE TEST-RESULTS TO PRINT-REC NC1054.2WRITE PRINT-REC AFTER ADVANCING 1 LINES. NC1054.2MOVE 000 TO LENGTH-COUNTER. NC1054.2MOVE SIXTH-20S TO CORRECT-A. NC1054.2MOVE SIXTH-20R TO COMPUTED-A. NC1054.2MOVE "6TH 20 POSITIONS OF RESULTS" TO RE-MARK. NC1054.2SECTION . NC1054.2GO TO CLOSE-FILES. NC1054.2
Messung V0.5 in Prozent C=98 H=83 G=90
¤ Dauer der Verarbeitung: 0.151 Sekunden
(vorverarbeitet am 2026-04-27)
¤ *© Formatika GbR, Deutschland
2026-05-26
