000100 IDENTIFICATION DIVISION . NC1244.2PROGRAM-ID . NC1244.2000500**************************************************************** NC1244.2 000600* * NC1244.2 000700* VALIDATION FOR:- * NC1244.2 000800* * NC1244.2 000900* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1244.2 001000* * NC1244.2 001100* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1244.2 001200* * NC1244.2 001300**************************************************************** NC1244.2 001400* * NC1244.2 001500* X-CARDS USED BY THIS PROGRAM ARE :- * NC1244.2 001600* * NC1244.2 001700* X-55 - SYSTEM PRINTER NAME. * NC1244.2 001800* X-82 - SOURCE COMPUTER NAME. * NC1244.2 001900* X-83 - OBJECT COMPUTER NAME. * NC1244.2 002000* * NC1244.2 002100**************************************************************** NC1244.2 002200* NC1244.2 002300* PROGRAM NC124A TESTS THE USE OF NC1244.2 002400* PICTURE CHARACTERS P, S, +, -, Z AND *. NC1244.2 002500* NC1244.2 ENVIRONMENT DIVISION . NC1244.2CONFIGURATION SECTION . NC1244.2SOURCE-COMPUTER . NC1244.2OBJECT-COMPUTER . NC1244.2INPUT-OUTPUT SECTION . NC1244.2FILE-CONTROL . NC1244.2SELECT PRINT-FILE ASSIGN TO NC1244.2"C0085" . NC1244.2DATA DIVISION . NC1244.2FILE SECTION . NC1244.2FD PRINT-FILE. NC1244.2PICTURE X(120). NC1244.2PICTURE X(120). NC1244.2WORKING-STORAGE SECTION . NC1244.2PICTURE 9 VALUE 0. NC1244.2PICTURE 99 VALUE 12. NC1244.2PICTURE S99 VALUE -12. NC1244.2PICTURE S999 VALUE 123. NC1244.2PICTURE S999 VALUE -123. NC1244.2PICTURE 9999 VALUE 1234. NC1244.2PICTURE S9999 VALUE -1234. NC1244.2PICTURE S99V99 VALUE 12.34. NC1244.2PICTURE S99V99 VALUE -12.34. NC1244.2PICTURE 9 VALUE 0. NC1244.2PICTURE V99 VALUE .02. NC1244.2PICTURE 99 VALUE 12. NC1244.2PICTURE 99V99 VALUE 12.34. NC1244.2PICTURE 9999 VALUE 1234. NC1244.2PICTURE 9999V99 VALUE 1234.56. NC1244.2PICTURE 9 VALUE 0. NC1244.2PICTURE 99 VALUE 13. NC1244.2PICTURE 999 VALUE 123. NC1244.2PICTURE 9999 VALUE 2010. NC1244.2PICTURE 9999V9 VALUE 1010.2. NC1244.2PICTURE V99 VALUE .01. NC1244.2PICTURE 9 VALUE 0. NC1244.2PICTURE 9V99 VALUE 1.01. NC1244.2PICTURE 999V VALUE 217. NC1244.2PICTURE 9999V99 VALUE 1010.20. NC1244.2PICTURE V99 VALUE .01. NC1244.2PICTURE S9PP VALUE 200. NC1244.2PICTURE X(3) VALUE SPACE . NC1244.2PICTURE 999 VALUE 567. NC1244.2PICTURE S9PP VALUE ZERO . NC1244.2PICTURE 999 VALUE 123. NC1244.2PICTURE 9PP VALUE ZERO . NC1244.2PICTURE X(3) VALUE SPACE . NC1244.2PICTURE 999PP VALUE 00900. NC1244.2PICTURE ZZZPP VALUE ZERO . NC1244.2PICTURE 999PP VALUE 01200. NC1244.2PICTURE ZZZPP VALUE ZERO . NC1244.2PICTURE X(5) VALUE SPACE . NC1244.2PICTURE PP9 VALUE .001. NC1244.2PICTURE V999 VALUE ZERO . NC1244.2PICTURE V999 VALUE .567. NC1244.2PICTURE PP9 VALUE ZERO . NC1244.2PICTURE V999 VALUE .123. NC1244.2PICTURE PP9 VALUE ZERO . NC1244.2PICTURE V999 VALUE ZERO . NC1244.2PICTURE +9999. NC1244.2PICTURE -9999. NC1244.2PICTURE ++++9. NC1244.2PICTURE ----9. NC1244.2PICTURE +++++. NC1244.2PICTURE -----. NC1244.2PICTURE +++++.++. NC1244.2PICTURE --,---.--. NC1244.2PICTURE $$99. NC1244.2PICTURE $$$$9. NC1244.2PICTURE $$$$$.99. NC1244.2PICTURE $$,$$$.$$. NC1244.2PICTURE *999. NC1244.2PICTURE **99. NC1244.2PICTURE ***9. NC1244.2PICTURE **.**. NC1244.2PICTURE *,***.**. NC1244.2PICTURE 9999. NC1244.2PICTURE Z999. NC1244.2PICTURE ZZ99. NC1244.2PICTURE ZZZ9. NC1244.2PICTURE ZZZZ. NC1244.2PICTURE ZZ.ZZ. NC1244.2PICTURE Z,ZZZ. NC1244.2FILLER PIC X VALUE SPACE . NC1244.2PIC X(20) VALUE SPACE . NC1244.2FILLER PIC X VALUE SPACE . NC1244.2PIC X(5) VALUE SPACE . NC1244.2FILLER PIC X VALUE SPACE . NC1244.2FILLER PIC X(19) VALUE SPACE . NC1244.2PIC X VALUE SPACE . NC1244.2PIC 99 VALUE ZERO . NC1244.2FILLER PIC X(8) VALUE SPACE . NC1244.2PIC X(61). NC1244.2FILLER PIC X(30) VALUE SPACE . NC1244.2FILLER PIC X(17) VALUE NC1244.2" COMPUTED=" . NC1244.2PIC X(20) VALUE SPACE . NC1244.2REDEFINES COMPUTED-A NC1244.2PIC -9(9).9(9). NC1244.2REDEFINES COMPUTED-A PIC -.9(18). NC1244.2REDEFINES COMPUTED-A PIC -9(4).9(14). NC1244.2REDEFINES COMPUTED-A PIC -9(14).9(4). NC1244.2REDEFINES COMPUTED-A. NC1244.2PIC -9(18). NC1244.2FILLER PIC X. NC1244.2FILLER PIC X(50) VALUE SPACE . NC1244.2FILLER PIC X(30) VALUE SPACE . NC1244.2FILLER PIC X(17) VALUE " CORRECT =" . NC1244.2PIC X(20) VALUE SPACE . NC1244.2REDEFINES CORRECT-A PIC -9(9).9(9). NC1244.2REDEFINES CORRECT-A PIC -.9(18). NC1244.2REDEFINES CORRECT-A PIC -9(4).9(14). NC1244.2REDEFINES CORRECT-A PIC -9(14).9(4). NC1244.2REDEFINES CORRECT-A. NC1244.2PIC -9(18). NC1244.2FILLER PIC X. NC1244.2FILLER PIC X(2) VALUE SPACE . NC1244.2PIC X(48) VALUE SPACE . NC1244.2FILLER PIC IS X(99) VALUE IS " FEATURE PANC1244.2 "SS PARAGRAPH-NAME NC1244.2 " REMARKS" . NC1244.2FILLER PIC X(20) VALUE SPACE . NC1244.2FILLER PIC X VALUE SPACE . NC1244.2FILLER PIC X(6) VALUE "TESTED" . NC1244.2FILLER PIC X(15) VALUE SPACE . NC1244.2FILLER PIC X(4) VALUE "FAIL" . NC1244.2FILLER PIC X(94) VALUE SPACE . NC1244.2PIC 9(2) VALUE ZERO . NC1244.2PIC 99 VALUE ZERO . NC1244.2PIC 999 VALUE ZERO . NC1244.2PIC 999 VALUE ZERO . NC1244.2PIC 999 VALUE ZERO . NC1244.2PIC 999 VALUE ZERO . NC1244.2PIC 999 VALUE ZERO . NC1244.2PIC 999 VALUE ZERO . NC1244.2PIC X(120) VALUE SPACE . NC1244.2PIC 9(5) VALUE ZERO . NC1244.2PIC X(48) VALUE SPACES . NC1244.2FILLER PIC X(39) VALUE SPACES . NC1244.2FILLER PIC X(42) VALUE NC1244.2"OFFICIAL COBOL COMPILER VALIDATION SYSTEM" . NC1244.2FILLER PIC X(39) VALUE SPACES . NC1244.2FILLER PIC X(40) VALUE SPACE . NC1244.2FILLER PIC X(7) VALUE "CCVS85 " . NC1244.2FILLER PIC XXXX VALUE NC1244.2"4.2 " . NC1244.2FILLER PIC X(28) VALUE NC1244.2" COPY - NOT FOR DISTRIBUTION" . NC1244.2FILLER PIC X(41) VALUE SPACE . NC1244.2FILLER PIC X(15) VALUE NC1244.2"TEST RESULT OF " . NC1244.2PIC X(9). NC1244.2FILLER PIC X(4) VALUE NC1244.2" IN " . NC1244.2FILLER PIC X(12) VALUE NC1244.2" HIGH " . NC1244.2FILLER PIC X(22) VALUE NC1244.2" LEVEL VALIDATION FOR " . NC1244.2FILLER PIC X(58) VALUE NC1244.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .NC1244.2FILLER PIC X(34) VALUE NC1244.2" FOR OFFICIAL USE ONLY " . NC1244.2FILLER PIC X(58) VALUE NC1244.2"COBOL 85 VERSION 4.2, Apr 1993 SSVG " .NC1244.2FILLER PIC X(28) VALUE NC1244.2" COPYRIGHT 1985 " . NC1244.2FILLER PIC X(52) VALUE SPACE . NC1244.2FILLER PIC X(14) VALUE IS "END OF TEST- " . NC1244.2PIC X(9). NC1244.2FILLER PIC X(45) VALUE SPACES . NC1244.2FILLER PIC X(31) VALUE SPACE . NC1244.2FILLER PIC X(21) VALUE SPACE . NC1244.2PIC XXX VALUE SPACE . NC1244.2FILLER PIC X VALUE SPACE . NC1244.2PIC X(44) VALUE NC1244.2"ERRORS ENCOUNTERED" . NC1244.2FILLER PIC X(22) VALUE NC1244.2" FOR OFFICIAL USE ONLY" . NC1244.2FILLER PIC X(12) VALUE SPACE . NC1244.2FILLER PIC X(58) VALUE NC1244.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .NC1244.2FILLER PIC X(13) VALUE SPACE . NC1244.2FILLER PIC X(15) VALUE NC1244.2" COPYRIGHT 1985" . NC1244.2PIC XXX VALUE SPACE . NC1244.2FILLER PIC X(4) VALUE " OF " . NC1244.2PIC XXX VALUE SPACE . NC1244.2FILLER PIC X(40) VALUE NC1244.2" TESTS WERE EXECUTED SUCCESSFULLY" . NC1244.2FILLER PIC X(19) VALUE NC1244.2"*** INFORMATION ***" . NC1244.2FILLER PIC X(8) VALUE SPACE . NC1244.2PIC X(20). NC1244.2FILLER PIC X(5) VALUE SPACE . NC1244.2PIC X(20). NC1244.2PIC X(48). NC1244.2FILLER PIC IS X VALUE IS SPACE . NC1244.2FILLER PIC IS X(65) VALUE IS "************************NC1244.2 "*****************************************" . NC1244.2FILLER PIC IS X(54) VALUE IS "************************NC1244.2 "******************************" . NC1244.2PIC X(9) VALUE NC1244.2"NC124A" . NC1244.2PROCEDURE DIVISION . NC1244.2SECTION . NC1244.2OPEN OUTPUT PRINT-FILE. NC1244.2MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC1244.2MOVE SPACE TO TEST-RESULTS. NC1244.2PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC1244.2GO TO CCVS1-EXIT. NC1244.2PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC1244.2EXIT PROGRAM . NC1244.2STOP RUN . NC1244.2MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC1244.2MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC1244.2MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC1244.2MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC1244.2MOVE "****TEST DELETED****" TO RE-MARK. NC1244.2IF REC-CT NOT EQUAL TO ZERO NC1244.2MOVE "." TO PARDOT-X NC1244.2MOVE REC-CT TO DOTVALUE. NC1244.2MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC1244.2IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC1244.2PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC1244.2ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC1244.2MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC1244.2MOVE SPACE TO CORRECT-X. NC1244.2IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC1244.2MOVE SPACE TO RE-MARK. NC1244.2MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1244.2MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1244.2MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1244.2MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1244.2MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1244.2MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1244.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1244.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC1244.2MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1244.2ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC1244.2ADD DELETE-COUNTER TO ERROR-HOLD. NC1244.2ADD PASS-COUNTER TO ERROR-HOLD. NC1244.2030000* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC1244.2 MOVE PASS-COUNTER TO CCVS-E-4-1. NC1244.2MOVE ERROR-HOLD TO CCVS-E-4-2. NC1244.2MOVE CCVS-E-4 TO CCVS-E-2-2. NC1244.2MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC1244.2MOVE "TEST(S) FAILED" TO ENDER-DESC. NC1244.2IF ERROR-COUNTER IS EQUAL TO ZERO NC1244.2MOVE "NO " TO ERROR-TOTAL NC1244.2ELSE NC1244.2MOVE ERROR-COUNTER TO ERROR-TOTAL. NC1244.2MOVE CCVS-E-2 TO DUMMY-RECORD. NC1244.2PERFORM WRITE-LINE. NC1244.2IF DELETE-COUNTER IS EQUAL TO ZERO NC1244.2MOVE "NO " TO ERROR-TOTAL ELSE NC1244.2MOVE DELETE-COUNTER TO ERROR-TOTAL. NC1244.2MOVE "TEST(S) DELETED " TO ENDER-DESC. NC1244.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1244.2IF INSPECT-COUNTER EQUAL TO ZERO NC1244.2MOVE "NO " TO ERROR-TOTAL NC1244.2ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC1244.2MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC1244.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1244.2MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1244.2ADD 1 TO RECORD-COUNT. NC1244.2IF RECORD-COUNT GREATER 42 NC1244.2MOVE DUMMY-RECORD TO DUMMY-HOLD NC1244.2MOVE SPACE TO DUMMY-RECORD NC1244.2WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC1244.2MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1244.2MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1244.2MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1244.2MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1244.2MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC1244.2MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN NC1244.2MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC1244.2MOVE DUMMY-HOLD TO DUMMY-RECORD NC1244.2MOVE ZERO TO RECORD-COUNT. NC1244.2PERFORM WRT-LN. NC1244.2WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC1244.2MOVE SPACE TO DUMMY-RECORD. NC1244.2PERFORM WRT-LN. NC1244.2IF COMPUTED-X NOT EQUAL TO SPACE NC1244.2GO TO FAIL-ROUTINE-WRITE. NC1244.2IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC1244.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1244.2MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC1244.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1244.2MOVE SPACES TO INF-ANSI-REFERENCE. NC1244.2GO TO FAIL-ROUTINE-EX. NC1244.2MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC1244.2MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC1244.2MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC1244.2MOVE SPACES TO COR-ANSI-REFERENCE. NC1244.2EXIT . NC1244.2IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC1244.2IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC1244.2MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC1244.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1244.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1244.2MOVE SPACES TO INF-ANSI-REFERENCE. NC1244.2EXIT . NC1244.2EXIT . NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PICTRE-TST-1" TO PAR-NAME. NC1244.2MOVE "PICTURE + AND -" TO FEATURE. NC1244.2MOVE 0 TO WORK-AREA-1. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-1 TO EDIT-AREA-1 EDIT-AREA-2 EDIT-AREA-3 NC1244.2GO TO PICTURE-TEST-1-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-2. NC1244.2IF EDIT-AREA-1 EQUAL TO "+0000" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-1 TO COMPUTED-A NC1244.2MOVE "+0000" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-2 EQUAL TO " 0000" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-2 TO COMPUTED-A NC1244.2MOVE " 0000" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-3 EQUAL TO " +0" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-3 TO COMPUTED-A NC1244.2MOVE " +0" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-4 EQUAL TO " 0" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-4 TO COMPUTED-A NC1244.2MOVE " 0" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-5 EQUAL TO " " NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-5 TO COMPUTED-A NC1244.2MOVE "SPACES" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-6 EQUAL TO " " NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-6 TO COMPUTED-A NC1244.2MOVE "SPACES" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-7 EQUAL TO " " NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-7 TO COMPUTED-A NC1244.2MOVE "SPACES" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-8 EQUAL TO " " NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-8 TO COMPUTED-A NC1244.2MOVE "SPACES" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PICTRE-TST-2" TO PAR-NAME. NC1244.2MOVE "PICTURE + AND -" TO FEATURE. NC1244.2MOVE 12 TO WORK-AREA-2. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-2 TO EDIT-AREA-1 EDIT-AREA-2 EDIT-AREA-3 NC1244.2GO TO PICTURE-TEST-2-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-3. NC1244.2IF EDIT-AREA-1 EQUAL TO "+0012" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-1 TO COMPUTED-A NC1244.2MOVE "+0012" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-2 EQUAL TO " 0012" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-2 TO COMPUTED-A NC1244.2MOVE " 0012" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-3 EQUAL TO " +12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-3 TO COMPUTED-A NC1244.2MOVE " +12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-4 EQUAL TO " 12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-4 TO COMPUTED-A NC1244.2MOVE " 12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-5 EQUAL TO " +12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-5 TO COMPUTED-A NC1244.2MOVE " +12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-6 EQUAL TO " 12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-6 TO COMPUTED-A NC1244.2MOVE " 12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-7 EQUAL TO " +12.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-7 TO COMPUTED-A NC1244.2MOVE " +12.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-8 EQUAL TO " 12.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-8 TO COMPUTED-A NC1244.2MOVE " 12.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PICTRE-TST-3" TO PAR-NAME. NC1244.2MOVE "PICTURE + AND -" TO FEATURE. NC1244.2MOVE -12 TO WORK-AREA-3. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-3 TO EDIT-AREA-1 EDIT-AREA-2 EDIT-AREA-3 NC1244.2GO TO PICTURE-TEST-3-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-4. NC1244.2IF EDIT-AREA-1 EQUAL TO "-0012" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-1 TO COMPUTED-A NC1244.2MOVE "-0012" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-2 EQUAL TO "-0012" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-2 TO COMPUTED-A NC1244.2MOVE "-0012" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-3 EQUAL TO " -12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-3 TO COMPUTED-A NC1244.2MOVE " -12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-4 EQUAL TO " -12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-4 TO COMPUTED-A NC1244.2MOVE " -12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-5 EQUAL TO " -12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-5 TO COMPUTED-A NC1244.2MOVE " -12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-6 EQUAL TO " -12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-6 TO COMPUTED-A NC1244.2MOVE " -12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-7 EQUAL TO " -12.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-7 TO COMPUTED-A NC1244.2MOVE " -12.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-8 EQUAL TO " -12.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-8 TO COMPUTED-A NC1244.2MOVE " -12.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PICTRE-TST-4" TO PAR-NAME. NC1244.2MOVE "PICTURE + AND -" TO FEATURE. NC1244.2MOVE 123 TO WORK-AREA-4. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-4 TO EDIT-AREA-1 EDIT-AREA-2 EDIT-AREA-3 NC1244.2GO TO PICTURE-TEST-4-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-5. NC1244.2IF EDIT-AREA-1 EQUAL TO "+0123" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-1 TO COMPUTED-A NC1244.2MOVE "+0123" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-2 EQUAL TO " 0123" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-2 TO COMPUTED-A NC1244.2MOVE " 0123" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-3 EQUAL TO " +123" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-3 TO COMPUTED-A NC1244.2MOVE " +123" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-4 EQUAL TO " 123" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-4 TO COMPUTED-A NC1244.2MOVE " 123" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-5 EQUAL TO " +123" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-5 TO COMPUTED-A NC1244.2MOVE " +123" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-6 EQUAL TO " 123" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-6 TO COMPUTED-A NC1244.2MOVE " 123" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-7 EQUAL TO " +123.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-7 TO COMPUTED-A NC1244.2MOVE " +123.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-8 EQUAL TO " 123.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-8 TO COMPUTED-A NC1244.2MOVE " 123.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PICTRE-TST-5" TO PAR-NAME. NC1244.2MOVE "PICTURE + AND -" TO FEATURE. NC1244.2MOVE -123 TO WORK-AREA-5. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-5 TO EDIT-AREA-1 EDIT-AREA-2 EDIT-AREA-3 NC1244.2GO TO PICTURE-TEST-5-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-6. NC1244.2IF EDIT-AREA-1 EQUAL TO "-0123" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-1 TO COMPUTED-A NC1244.2MOVE "-0123" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-2 EQUAL TO "-0123" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-2 TO COMPUTED-A NC1244.2MOVE "-0123" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-3 EQUAL TO " -123" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-3 TO COMPUTED-A NC1244.2MOVE " -123" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-4 EQUAL TO " -123" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-4 TO COMPUTED-A NC1244.2MOVE " -123" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-5 EQUAL TO " -123" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-5 TO COMPUTED-A NC1244.2MOVE " -123" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-6 EQUAL TO " -123" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-6 TO COMPUTED-A NC1244.2MOVE " -123" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-7 EQUAL TO " -123.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-7 TO COMPUTED-A NC1244.2MOVE " -123.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-8 EQUAL TO " -123.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-8 TO COMPUTED-A NC1244.2MOVE " -123.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PICTRE-TST-6" TO PAR-NAME. NC1244.2MOVE "PICTURE + AND -" TO FEATURE. NC1244.2MOVE 1234 TO WORK-AREA-6. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-6 TO EDIT-AREA-1 EDIT-AREA-2 EDIT-AREA-3 NC1244.2GO TO PICTURE-TEST-6-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-7. NC1244.2IF EDIT-AREA-1 EQUAL TO "+1234" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-1 TO COMPUTED-A NC1244.2MOVE "+1234" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-2 EQUAL TO " 1234" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-2 TO COMPUTED-A NC1244.2MOVE " 1234" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-3 EQUAL TO "+1234" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-3 TO COMPUTED-A NC1244.2MOVE "+1234" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-4 EQUAL TO " 1234" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-4 TO COMPUTED-A NC1244.2MOVE " 1234" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-5 EQUAL TO "+1234" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-5 TO COMPUTED-A NC1244.2MOVE "+1234" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-6 EQUAL TO " 1234" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-6 TO COMPUTED-A NC1244.2MOVE " 1234" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-7 EQUAL TO "+1234.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-7 TO COMPUTED-A NC1244.2MOVE "+1234.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-8 EQUAL TO " 1,234.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-8 TO COMPUTED-A NC1244.2MOVE " 1,234.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PICTRE-TST-7" TO PAR-NAME. NC1244.2MOVE "PICTURE + AND -" TO FEATURE. NC1244.2MOVE -1234 TO WORK-AREA-7. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-7 TO EDIT-AREA-1 EDIT-AREA-2 EDIT-AREA-3 NC1244.2GO TO PICTURE-TEST-7-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-8. NC1244.2IF EDIT-AREA-1 EQUAL TO "-1234" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-1 TO COMPUTED-A NC1244.2MOVE "-1234" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-2 EQUAL TO "-1234" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-2 TO COMPUTED-A NC1244.2MOVE "-1234" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-3 EQUAL TO "-1234" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-3 TO COMPUTED-A NC1244.2MOVE "-1234" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-4 EQUAL TO "-1234" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-4 TO COMPUTED-A NC1244.2MOVE "-1234" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-5 EQUAL TO "-1234" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-5 TO COMPUTED-A NC1244.2MOVE "-1234" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-6 EQUAL TO "-1234" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-6 TO COMPUTED-A NC1244.2MOVE "-1234" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-7 EQUAL TO "-1234.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-7 TO COMPUTED-A NC1244.2MOVE "-1234.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-8 EQUAL TO "-1,234.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-8 TO COMPUTED-A NC1244.2MOVE "-1,234.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PICTRE-TST-8" TO PAR-NAME. NC1244.2MOVE "PICTURE + AND -" TO FEATURE. NC1244.2MOVE 12.34 TO WORK-AREA-8. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-8 TO EDIT-AREA-1 EDIT-AREA-2 EDIT-AREA-3 NC1244.2GO TO PICTURE-TEST-8-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-9. NC1244.2IF EDIT-AREA-1 EQUAL TO "+0012" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-1 TO COMPUTED-A NC1244.2MOVE "+0012" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-2 EQUAL TO " 0012" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-2 TO COMPUTED-A NC1244.2MOVE " 0012" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-3 EQUAL TO " +12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-3 TO COMPUTED-A NC1244.2MOVE " +12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-4 EQUAL TO " 12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-4 TO COMPUTED-A NC1244.2MOVE " 12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-5 EQUAL TO " +12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-5 TO COMPUTED-A NC1244.2MOVE " +12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-6 EQUAL TO " 12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-6 TO COMPUTED-A NC1244.2MOVE " 12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-7 EQUAL TO " +12.34" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-7 TO COMPUTED-A NC1244.2MOVE " +12.34" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-8 EQUAL TO " 12.34" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-8 TO COMPUTED-A NC1244.2MOVE " 12.34" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PICTRE-TST-9" TO PAR-NAME. NC1244.2MOVE "PICTURE + AND -" TO FEATURE. NC1244.2MOVE -12.34 TO WORK-AREA-9. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-9 TO EDIT-AREA-1 EDIT-AREA-2 EDIT-AREA-3 NC1244.2GO TO PICTURE-TEST-9-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-10. NC1244.2IF EDIT-AREA-1 EQUAL TO "-0012" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-1 TO COMPUTED-A NC1244.2MOVE "-0012" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-2 EQUAL TO "-0012" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-2 TO COMPUTED-A NC1244.2MOVE "-0012" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-3 EQUAL TO " -12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-3 TO COMPUTED-A NC1244.2MOVE " -12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-4 EQUAL TO " -12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-4 TO COMPUTED-A NC1244.2MOVE " -12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-5 EQUAL TO " -12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-5 TO COMPUTED-A NC1244.2MOVE " -12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-6 EQUAL TO " -12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-6 TO COMPUTED-A NC1244.2MOVE " -12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-7 EQUAL TO " -12.34" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-7 TO COMPUTED-A NC1244.2MOVE " -12.34" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-8 EQUAL TO " -12.34" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-8 TO COMPUTED-A NC1244.2MOVE " -12.34" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PCTRE-TST-10" TO PAR-NAME. NC1244.2MOVE "PICTURE CHARACTER l" TO FEATURE. NC1244.2MOVE 0 TO WORK-AREA-10. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-10 TO EDIT-AREA-9 EDIT-AREA-10 NC1244.2GO TO PICTURE-TEST-10-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-11. NC1244.2IF EDIT-AREA-9 EQUAL TO " $00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-9 TO COMPUTED-A NC1244.2MOVE " $00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-10 EQUAL TO " $0" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-10 TO COMPUTED-A NC1244.2MOVE " $0" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-11 EQUAL TO " $.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-11 TO COMPUTED-A NC1244.2MOVE " $.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-12 EQUAL TO " " NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-12 TO COMPUTED-A NC1244.2MOVE "SPACES" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PCTRE-TST-11" TO PAR-NAME. NC1244.2MOVE "PICTURE CHARACTER l" TO FEATURE. NC1244.2MOVE .02 TO WORK-AREA-11. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-11 TO EDIT-AREA-9 EDIT-AREA-10 NC1244.2GO TO PICTURE-TEST-11-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-12. NC1244.2IF EDIT-AREA-9 EQUAL TO " $00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-9 TO COMPUTED-A NC1244.2MOVE " $00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-10 EQUAL TO " $0" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-10 TO COMPUTED-A NC1244.2MOVE " $0" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-11 EQUAL TO " $.02" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-11 TO COMPUTED-A NC1244.2MOVE " $.02" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-12 EQUAL TO " $.02" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-12 TO COMPUTED-A NC1244.2MOVE " $.02" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PCTRE-TST-12" TO PAR-NAME. NC1244.2MOVE "PICTURE CHARACTER l" TO FEATURE. NC1244.2MOVE 12 TO WORK-AREA-12. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-12 TO EDIT-AREA-9 EDIT-AREA-10 NC1244.2GO TO PICTURE-TEST-12-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-13. NC1244.2IF EDIT-AREA-9 EQUAL TO " $12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-9 TO COMPUTED-A NC1244.2MOVE " $12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-10 EQUAL TO " $12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-10 TO COMPUTED-A NC1244.2MOVE " $12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-11 EQUAL TO " $12.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-11 TO COMPUTED-A NC1244.2MOVE " $12.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-12 EQUAL TO " $12.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-12 TO COMPUTED-A NC1244.2MOVE " $12.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PCTRE-TST-13" TO PAR-NAME. NC1244.2MOVE "PICTURE CHARACTER l" TO FEATURE. NC1244.2MOVE 12.34 TO WORK-AREA-13. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-13 TO EDIT-AREA-9 EDIT-AREA-10 NC1244.2GO TO PICTURE-TEST-13-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-14. NC1244.2IF EDIT-AREA-9 EQUAL TO " $12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-9 TO COMPUTED-A NC1244.2MOVE " $12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-10 EQUAL TO " $12" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-10 TO COMPUTED-A NC1244.2MOVE " $12" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-11 EQUAL TO " $12.34" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-11 TO COMPUTED-A NC1244.2MOVE " $12.34" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-12 EQUAL TO " $12.34" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-12 TO COMPUTED-A NC1244.2MOVE " $12.34" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PCTRE-TST-14" TO PAR-NAME. NC1244.2MOVE "PICTURE CHARACTER l" TO FEATURE. NC1244.2MOVE 1234 TO WORK-AREA-14. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-14 TO EDIT-AREA-9 EDIT-AREA-10 NC1244.2GO TO PICTURE-TEST-14-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-15. NC1244.2IF EDIT-AREA-9 EQUAL TO "$234" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-9 TO COMPUTED-A NC1244.2MOVE "$234" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-10 EQUAL TO "$1234" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-10 TO COMPUTED-A NC1244.2MOVE "$1234" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-11 EQUAL TO "$1234.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-11 TO COMPUTED-A NC1244.2MOVE "$1234.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-12 EQUAL TO "$1,234.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-12 TO COMPUTED-A NC1244.2MOVE "$1,234.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PCTRE-TST-15" TO PAR-NAME. NC1244.2MOVE "PICTURE CHARACTER l" TO FEATURE. NC1244.2MOVE 1234.56 TO WORK-AREA-15. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-15 TO EDIT-AREA-9 EDIT-AREA-10 NC1244.2GO TO PICTURE-TEST-15-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-16. NC1244.2IF EDIT-AREA-9 EQUAL TO "$234" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-9 TO COMPUTED-A NC1244.2MOVE "$234" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-10 EQUAL TO "$1234" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-10 TO COMPUTED-A NC1244.2MOVE "$1234" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-11 EQUAL TO "$1234.56" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-11 TO COMPUTED-A NC1244.2MOVE "$1234.56" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-12 EQUAL TO "$1,234.56" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-12 TO COMPUTED-A NC1244.2MOVE "$1,234.56" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PCTRE-TST-16" TO PAR-NAME. NC1244.2MOVE "PICTURE CHARACTER *" TO FEATURE. NC1244.2MOVE 0 TO WORK-AREA-16. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-16 TO EDIT-AREA-13 EDIT-AREA-14 EDIT-AREA-15NC1244.2GO TO PICTURE-TEST-16-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-17. NC1244.2IF EDIT-AREA-13 EQUAL TO "*000" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-13 TO COMPUTED-A NC1244.2MOVE "*000" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-14 EQUAL TO "**00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-14 TO COMPUTED-A NC1244.2MOVE "**00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-15 EQUAL TO "***0" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-15 TO COMPUTED-A NC1244.2MOVE "***0" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-16 EQUAL TO "**.**" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-16 TO COMPUTED-A NC1244.2MOVE "**.**" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-17 EQUAL TO "*****.**" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-17 TO COMPUTED-A NC1244.2MOVE "*****.**" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PCTRE-TST-17" TO PAR-NAME. NC1244.2MOVE "PICTURE CHARACTER *" TO FEATURE. NC1244.2MOVE 13 TO WORK-AREA-17. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-17 TO EDIT-AREA-13 EDIT-AREA-14 EDIT-AREA-15NC1244.2GO TO PICTURE-TEST-17-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-18. NC1244.2IF EDIT-AREA-13 EQUAL TO "*013" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-13 TO COMPUTED-A NC1244.2MOVE "*013" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-14 EQUAL TO "**13" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-14 TO COMPUTED-A NC1244.2MOVE "**13" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-15 EQUAL TO "**13" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-15 TO COMPUTED-A NC1244.2MOVE "**13" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-16 EQUAL TO "13.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-16 TO COMPUTED-A NC1244.2MOVE "13.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-17 EQUAL TO "***13.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-17 TO COMPUTED-A NC1244.2MOVE "***13.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PCTRE-TST-18" TO PAR-NAME. NC1244.2MOVE "PICTURE CHARACTER *" TO FEATURE. NC1244.2MOVE 123 TO WORK-AREA-18. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-18 TO EDIT-AREA-13 EDIT-AREA-14 EDIT-AREA-15NC1244.2GO TO PICTURE-TEST-18-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-19. NC1244.2IF EDIT-AREA-13 EQUAL TO "*123" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-13 TO COMPUTED-A NC1244.2MOVE "*123" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-14 EQUAL TO "*123" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-14 TO COMPUTED-A NC1244.2MOVE "*123" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-15 EQUAL TO "*123" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-15 TO COMPUTED-A NC1244.2MOVE "*123" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-16 EQUAL TO "23.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-16 TO COMPUTED-A NC1244.2MOVE "23.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-17 EQUAL TO "**123.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-17 TO COMPUTED-A NC1244.2MOVE "**123.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PCTRE-TST-19" TO PAR-NAME. NC1244.2MOVE "PICTURE CHARACTER *" TO FEATURE. NC1244.2MOVE 2010 TO WORK-AREA-19. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-19 TO EDIT-AREA-13 EDIT-AREA-14 EDIT-AREA-15NC1244.2GO TO PICTURE-TEST-19-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-20. NC1244.2IF EDIT-AREA-13 EQUAL TO "2010" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-13 TO COMPUTED-A NC1244.2MOVE "2010" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-14 EQUAL TO "2010" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-14 TO COMPUTED-A NC1244.2MOVE "2010" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-15 EQUAL TO "2010" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-15 TO COMPUTED-A NC1244.2MOVE "2010" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-16 EQUAL TO "10.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-16 TO COMPUTED-A NC1244.2MOVE "10.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-17 EQUAL TO "2,010.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-17 TO COMPUTED-A NC1244.2MOVE "2,010.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PCTRE-TST-20" TO PAR-NAME. NC1244.2MOVE "PICTURE CHARACTER *" TO FEATURE. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE 1010.2 TO WORK-AREA-20. NC1244.2MOVE WORK-AREA-20 TO EDIT-AREA-13 EDIT-AREA-14 EDIT-AREA-15NC1244.2GO TO PICTURE-TEST-20-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-21. NC1244.2IF EDIT-AREA-13 EQUAL TO "1010" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-13 TO COMPUTED-A NC1244.2MOVE "1010" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-14 EQUAL TO "1010" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-14 TO COMPUTED-A NC1244.2MOVE "1010" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-15 EQUAL TO "1010" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-15 TO COMPUTED-A NC1244.2MOVE "1010" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-16 EQUAL TO "10.20" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-16 TO COMPUTED-A NC1244.2MOVE "10.20" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-17 EQUAL TO "1,010.20" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-17 TO COMPUTED-A NC1244.2MOVE "1,010.20" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PCTRE-TST-21" TO PAR-NAME. NC1244.2MOVE "PICTURE CHARACTER *" TO FEATURE. NC1244.2MOVE .01 TO WORK-AREA-21. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-21 TO EDIT-AREA-13 EDIT-AREA-14 EDIT-AREA-15NC1244.2GO TO PICTURE-TEST-21-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-22. NC1244.2IF EDIT-AREA-13 EQUAL TO "*000" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-13 TO COMPUTED-A NC1244.2MOVE "*000" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-14 EQUAL TO "**00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-14 TO COMPUTED-A NC1244.2MOVE "**00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-15 EQUAL TO "***0" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-15 TO COMPUTED-A NC1244.2MOVE "***0" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-16 EQUAL TO "**.01" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-16 TO COMPUTED-A NC1244.2MOVE "**.01" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-17 EQUAL TO "*****.01" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-17 TO COMPUTED-A NC1244.2MOVE "*****.01" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PCTRE-TST-22" TO PAR-NAME. NC1244.2MOVE "PICTURE CHARACTER Z" TO FEATURE. NC1244.2MOVE 0 TO WORK-AREA-22. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-22 TO EDIT-AREA-18 EDIT-AREA-19 EDIT-AREA-20NC1244.2GO TO PICTURE-TEST-22-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-23. NC1244.2IF EDIT-AREA-18 EQUAL TO "0000" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-18 TO COMPUTED-A NC1244.2MOVE "0000" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-19 EQUAL TO " 000" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-19 TO COMPUTED-A NC1244.2MOVE " 000" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-20 EQUAL TO " 00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-20 TO COMPUTED-A NC1244.2MOVE " 00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-21 EQUAL TO " 0" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-21 TO COMPUTED-A NC1244.2MOVE " 0" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-22 EQUAL TO " " NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-22 TO COMPUTED-A NC1244.2MOVE "SPACES" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-23 EQUAL TO " " NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-23 TO COMPUTED-A NC1244.2MOVE "SPACES" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-24 EQUAL TO " " NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-24 TO COMPUTED-A NC1244.2MOVE "SPACES" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PCTRE-TST-23" TO PAR-NAME. NC1244.2MOVE "PICTURE CHARACTER Z" TO FEATURE. NC1244.2MOVE 1.01 TO WORK-AREA-23. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-23 TO EDIT-AREA-18 EDIT-AREA-19 EDIT-AREA-20NC1244.2GO TO PICTURE-TEST-23-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-24. NC1244.2IF EDIT-AREA-18 EQUAL TO "0001" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-18 TO COMPUTED-A NC1244.2MOVE "0001" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-19 EQUAL TO " 001" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-19 TO COMPUTED-A NC1244.2MOVE " 001" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-20 EQUAL TO " 01" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-20 TO COMPUTED-A NC1244.2MOVE " 01" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-21 EQUAL TO " 1" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-21 TO COMPUTED-A NC1244.2MOVE " 1" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-22 EQUAL TO " 1" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-22 TO COMPUTED-A NC1244.2MOVE " 1" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-23 EQUAL TO " 1.01" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-23 TO COMPUTED-A NC1244.2MOVE " 1.01" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-24 EQUAL TO " 1" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-24 TO COMPUTED-A NC1244.2MOVE " 1" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PCTRE-TST-24" TO PAR-NAME. NC1244.2MOVE "PICTURE CHARACTER Z" TO FEATURE. NC1244.2MOVE 217 TO WORK-AREA-24. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-24 TO EDIT-AREA-18 EDIT-AREA-19 EDIT-AREA-20NC1244.2GO TO PICTURE-TEST-24-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-25. NC1244.2IF EDIT-AREA-18 EQUAL TO "0217" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-18 TO COMPUTED-A NC1244.2MOVE "0217" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-19 EQUAL TO " 217" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-19 TO COMPUTED-A NC1244.2MOVE " 217" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-20 EQUAL TO " 217" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-20 TO COMPUTED-A NC1244.2MOVE " 217" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-21 EQUAL TO " 217" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-21 TO COMPUTED-A NC1244.2MOVE " 217" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-22 EQUAL TO " 217" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-22 TO COMPUTED-A NC1244.2MOVE " 217" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-23 EQUAL TO "17.00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-23 TO COMPUTED-A NC1244.2MOVE "17.00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-24 EQUAL TO " 217" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-24 TO COMPUTED-A NC1244.2MOVE " 217" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PCTRE-TST-25" TO PAR-NAME. NC1244.2MOVE "PICTURE CHARACTER Z" TO FEATURE. NC1244.2MOVE 1010.20 TO WORK-AREA-25. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-25 TO EDIT-AREA-18 EDIT-AREA-19 EDIT-AREA-20NC1244.2GO TO PICTURE-TEST-25-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-26. NC1244.2IF EDIT-AREA-18 EQUAL TO "1010" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-18 TO COMPUTED-A NC1244.2MOVE "1010" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-19 EQUAL TO "1010" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-19 TO COMPUTED-A NC1244.2MOVE "1010" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-20 EQUAL TO "1010" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-20 TO COMPUTED-A NC1244.2MOVE "1010" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-21 EQUAL TO "1010" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-21 TO COMPUTED-A NC1244.2MOVE "1010" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-22 EQUAL TO "1010" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-22 TO COMPUTED-A NC1244.2MOVE "1010" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-23 EQUAL TO "10.20" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-23 TO COMPUTED-A NC1244.2MOVE "10.20" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-24 EQUAL TO "1,010" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-24 TO COMPUTED-A NC1244.2MOVE "1,010" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PCTRE-TST-26" TO PAR-NAME. NC1244.2MOVE "PICTURE CHARACTER Z" TO FEATURE. NC1244.2MOVE .01 TO WORK-AREA-26. NC1244.2MOVE 1 TO REC-CT. NC1244.2MOVE WORK-AREA-26 TO EDIT-AREA-18 EDIT-AREA-19 EDIT-AREA-20NC1244.2GO TO PICTURE-TEST-26-A. NC1244.2PERFORM DE-LETE. NC1244.2PERFORM PRINT-DETAIL. NC1244.2GO TO PICTURE-INIT-27. NC1244.2IF EDIT-AREA-18 EQUAL TO "0000" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-18 TO COMPUTED-A NC1244.2MOVE "0000" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-19 EQUAL TO " 000" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-19 TO COMPUTED-A NC1244.2MOVE " 000" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-20 EQUAL TO " 00" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-20 TO COMPUTED-A NC1244.2MOVE " 00" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-21 EQUAL TO " 0" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-21 TO COMPUTED-A NC1244.2MOVE " 0" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-22 EQUAL TO " " NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-22 TO COMPUTED-A NC1244.2MOVE "SPACES" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-23 EQUAL TO " .01" NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-23 TO COMPUTED-A NC1244.2MOVE " .01" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2ADD 1 TO REC-CT. NC1244.2IF EDIT-AREA-24 EQUAL TO " " NC1244.2PERFORM PASS NC1244.2PERFORM PRINT-DETAIL NC1244.2ELSE PERFORM FAIL NC1244.2MOVE EDIT-AREA-24 TO COMPUTED-A NC1244.2MOVE "SPACES" TO CORRECT-A NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE ZERO TO REC-CT. NC1244.2MOVE 200 TO WORK-AREA-27. NC1244.2MOVE SPACE TO WORK-AREA-27A. NC1244.2MOVE "PICTURE CHARACTER P" TO FEATURE. NC1244.2MOVE WORK-AREA-27 TO WORK-AREA-27A. NC1244.2IF WORK-AREA-27A EQUAL TO "200" NC1244.2PERFORM PASS NC1244.2ELSE GO TO PICTURE-FAIL-27. NC1244.2GO TO PICTURE-WRITE-27. NC1244.2PERFORM DE-LETE. NC1244.2GO TO PICTURE-WRITE-27. NC1244.2PERFORM FAIL. NC1244.2MOVE WORK-AREA-27A TO COMPUTED-A. NC1244.2MOVE "200" TO CORRECT-A. NC1244.2MOVE "PICTURE-TEST-27" TO PAR-NAME. NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PICTURE CHARACTER P" TO FEATURE. NC1244.2MOVE 567 TO WORK-AREA-28. NC1244.2MOVE ZERO TO WORK-AREA-28A. NC1244.2MOVE WORK-AREA-28 TO WORK-AREA-28A. NC1244.2IF WORK-AREA-28A EQUAL TO 500 NC1244.2PERFORM PASS NC1244.2ELSE GO TO PICTURE-FAIL-28. NC1244.2GO TO PICTURE-WRITE-28. NC1244.2PERFORM DE-LETE. NC1244.2GO TO PICTURE-WRITE-28. NC1244.2PERFORM FAIL. NC1244.2MOVE WORK-AREA-28A TO COMPUTED-A. NC1244.2MOVE 500 TO CORRECT-18V0. NC1244.2MOVE "PICTURE-TEST-28" TO PAR-NAME. NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PICTURE CHARACTER P" TO FEATURE. NC1244.2MOVE 123 TO WORK-AREA-29. NC1244.2MOVE ZERO TO WORK-AREA-29A. NC1244.2MOVE SPACE TO WORK-AREA-29B. NC1244.2MOVE WORK-AREA-29 TO WORK-AREA-29A. NC1244.2MOVE WORK-AREA-29A TO WORK-AREA-29B. NC1244.2IF WORK-AREA-29B EQUAL TO "100" NC1244.2PERFORM PASS NC1244.2ELSE GO TO PICTURE-FAIL-29. NC1244.2GO TO PICTURE-WRITE-29. NC1244.2PERFORM DE-LETE. NC1244.2GO TO PICTURE-WRITE-29. NC1244.2PERFORM FAIL. NC1244.2MOVE WORK-AREA-29B TO COMPUTED-A. NC1244.2MOVE "100" TO CORRECT-A. NC1244.2MOVE "PICTURE-TEST-29" TO PAR-NAME. NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PICTURE CHARACTER P" TO FEATURE. NC1244.2MOVE 00900 TO WORK-AREA-30. NC1244.2MOVE ZERO TO WORK-AREA-30A. NC1244.2MOVE WORK-AREA-30 TO WORK-AREA-30A. NC1244.2IF WORK-AREA-30A EQUAL TO " 9" NC1244.2PERFORM PASS NC1244.2ELSE GO TO PICTURE-FAIL-30. NC1244.2GO TO PICTURE-WRITE-30. NC1244.2PERFORM DE-LETE. NC1244.2GO TO PICTURE-WRITE-30. NC1244.2PERFORM FAIL. NC1244.2MOVE WORK-AREA-30A TO COMPUTED-A. NC1244.2MOVE " 9" TO CORRECT-A. NC1244.2MOVE "PICTURE-TEST-30" TO PAR-NAME. NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PICTURE CHARACTER P" TO FEATURE. NC1244.2MOVE 01200 TO WORK-AREA-31. NC1244.2MOVE ZERO TO WORK-AREA-31A. NC1244.2MOVE SPACE TO WORK-AREA-31B. NC1244.2MOVE WORK-AREA-31 TO WORK-AREA-31A. NC1244.2MOVE WORK-AREA-31A TO WORK-AREA-31B. NC1244.2IF WORK-AREA-31B EQUAL TO " 12 " NC1244.2PERFORM PASS NC1244.2ELSE GO TO PICTURE-FAIL-31. NC1244.2GO TO PICTURE-WRITE-31. NC1244.2PERFORM DE-LETE. NC1244.2GO TO PICTURE-WRITE-31. NC1244.2PERFORM FAIL. NC1244.2MOVE WORK-AREA-31B TO COMPUTED-A. NC1244.2MOVE " 12 " TO CORRECT-A. NC1244.2MOVE "PICTURE-TEST-31" TO PAR-NAME. NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PICTURE CHARACTER P" TO FEATURE. NC1244.2MOVE .001 TO WORK-AREA-32. NC1244.2MOVE ZERO TO WORK-AREA-32A. NC1244.2MOVE WORK-AREA-32 TO WORK-AREA-32A. NC1244.2IF WORK-AREA-32A EQUAL TO .001 NC1244.2PERFORM PASS NC1244.2ELSE GO TO PICTURE-FAIL-32. NC1244.2GO TO PICTURE-WRITE-32. NC1244.2PERFORM DE-LETE. NC1244.2GO TO PICTURE-WRITE-32. NC1244.2PERFORM FAIL. NC1244.2MOVE WORK-AREA-32A TO COMPUTED-0V18. NC1244.2MOVE .001 TO CORRECT-0V18. NC1244.2MOVE "PICTURE-TEST-32" TO PAR-NAME. NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PICTURE CHARACTER P" TO FEATURE. NC1244.2MOVE .567 TO WORK-AREA-33. NC1244.2MOVE ZERO TO WORK-AREA-33A. NC1244.2MOVE WORK-AREA-33 TO WORK-AREA-33A. NC1244.2IF WORK-AREA-33A EQUAL TO .007 NC1244.2PERFORM PASS NC1244.2ELSE GO TO PICTURE-FAIL-33. NC1244.2GO TO PICTURE-WRITE-33. NC1244.2PERFORM DE-LETE. NC1244.2GO TO PICTURE-WRITE-33. NC1244.2PERFORM FAIL. NC1244.2MOVE WORK-AREA-33A TO COMPUTED-0V18. NC1244.2MOVE .007 TO CORRECT-0V18. NC1244.2MOVE "PICTURE-TEST-33" TO PAR-NAME. NC1244.2PERFORM PRINT-DETAIL. NC1244.2MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2MOVE "PICTURE CHARACTER P" TO FEATURE. NC1244.2MOVE .123 TO WORK-AREA-34. NC1244.2MOVE ZERO TO WORK-AREA-34A. NC1244.2MOVE ZERO TO WORK-AREA-34B. NC1244.2MOVE WORK-AREA-34 TO WORK-AREA-34A. NC1244.2MOVE WORK-AREA-34A TO WORK-AREA-34B. NC1244.2IF WORK-AREA-34B EQUAL TO .003 NC1244.2PERFORM PASS NC1244.2ELSE GO TO PICTURE-FAIL-34. NC1244.2GO TO PICTURE-WRITE-34. NC1244.2PERFORM DE-LETE. NC1244.2GO TO PICTURE-WRITE-34. NC1244.2PERFORM FAIL. NC1244.2MOVE WORK-AREA-34B TO COMPUTED-0V18. NC1244.2MOVE .003 TO CORRECT-0V18. NC1244.2MOVE "PICTURE-TEST-34" TO PAR-NAME. NC1244.2PERFORM PRINT-DETAIL. NC1244.2SECTION . NC1244.2GO TO CLOSE-FILES. NC1244.2
Messung V0.5 in Prozent C=100 H=96 G=97
¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.95Angebot
(Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können 2026-04-30)
¤ *Eine klare Vorstellung vom Zielzustand
