| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/NC/ Datei vom 4.1.2008 mit Größe 188 kB |
|
Quelle nc124a.cob Sprache: Cobol |
|||||||||
|
000100 IDENTIFICATION DIVISION. NC1244.2
000200 PROGRAM-ID. NC1244.2 000300 NC1244.2 000400 NC124A. NC1244.2 000500**************************************************************** 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 002600 ENVIRONMENT DIVISION. NC1244.2 002700 CONFIGURATION SECTION. NC1244.2 002800 SOURCE-COMPUTER. NC1244.2 002900 Card0130. NC1244.2 003000 OBJECT-COMPUTER. NC1244.2 003100 Card0131. NC1244.2 003200 INPUT-OUTPUT SECTION. NC1244.2 003300 FILE-CONTROL. NC1244.2 003400 SELECT PRINT-FILE ASSIGN TO NC1244.2 003500 "C0085" . NC1244.2 003600 DATA DIVISION. NC1244.2 003700 FILE SECTION. NC1244.2 003800 FD PRINT-FILE. NC1244.2 003900 01 PRINT-REC PICTURE X(120). NC1244.2 004000 01 DUMMY-RECORD PICTURE X(120). NC1244.2 004100 WORKING-STORAGE SECTION. NC1244.2 004200 01 WORK-AREA-1 PICTURE 9 VALUE 0. NC1244.2 004300 01 WORK-AREA-2 PICTURE 99 VALUE 12. NC1244.2 004400 01 WORK-AREA-3 PICTURE S99 VALUE -12. NC1244.2 004500 01 WORK-AREA-4 PICTURE S999 VALUE 123. NC1244.2 004600 01 WORK-AREA-5 PICTURE S999 VALUE -123. NC1244.2 004700 01 WORK-AREA-6 PICTURE 9999 VALUE 1234. NC1244.2 004800 01 WORK-AREA-7 PICTURE S9999 VALUE -1234. NC1244.2 004900 01 WORK-AREA-8 PICTURE S99V99 VALUE 12.34. NC1244.2 005000 01 WORK-AREA-9 PICTURE S99V99 VALUE -12.34. NC1244.2 005100 01 WORK-AREA-10 PICTURE 9 VALUE 0. NC1244.2 005200 01 WORK-AREA-11 PICTURE V99 VALUE .02. NC1244.2 005300 01 WORK-AREA-12 PICTURE 99 VALUE 12. NC1244.2 005400 01 WORK-AREA-13 PICTURE 99V99 VALUE 12.34. NC1244.2 005500 01 WORK-AREA-14 PICTURE 9999 VALUE 1234. NC1244.2 005600 01 WORK-AREA-15 PICTURE 9999V99 VALUE 1234.56. NC1244.2 005700 01 WORK-AREA-16 PICTURE 9 VALUE 0. NC1244.2 005800 01 WORK-AREA-17 PICTURE 99 VALUE 13. NC1244.2 005900 01 WORK-AREA-18 PICTURE 999 VALUE 123. NC1244.2 006000 01 WORK-AREA-19 PICTURE 9999 VALUE 2010. NC1244.2 006100 01 WORK-AREA-20 PICTURE 9999V9 VALUE 1010.2. NC1244.2 006200 01 WORK-AREA-21 PICTURE V99 VALUE .01. NC1244.2 006300 01 WORK-AREA-22 PICTURE 9 VALUE 0. NC1244.2 006400 01 WORK-AREA-23 PICTURE 9V99 VALUE 1.01. NC1244.2 006500 01 WORK-AREA-24 PICTURE 999V VALUE 217. NC1244.2 006600 01 WORK-AREA-25 PICTURE 9999V99 VALUE 1010.20. NC1244.2 006700 01 WORK-AREA-26 PICTURE V99 VALUE .01. NC1244.2 006800 01 WORK-AREA-27 PICTURE S9PP VALUE 200. NC1244.2 006900 01 WORK-AREA-27A PICTURE X(3) VALUE SPACE. NC1244.2 007000 01 WORK-AREA-28 PICTURE 999 VALUE 567. NC1244.2 007100 01 WORK-AREA-28A PICTURE S9PP VALUE ZERO. NC1244.2 007200 01 WORK-AREA-29 PICTURE 999 VALUE 123. NC1244.2 007300 01 WORK-AREA-29A PICTURE 9PP VALUE ZERO. NC1244.2 007400 01 WORK-AREA-29B PICTURE X(3) VALUE SPACE. NC1244.2 007500 01 WORK-AREA-30 PICTURE 999PP VALUE 00900. NC1244.2 007600 01 WORK-AREA-30A PICTURE ZZZPP VALUE ZERO. NC1244.2 007700 01 WORK-AREA-31 PICTURE 999PP VALUE 01200. NC1244.2 007800 01 WORK-AREA-31A PICTURE ZZZPP VALUE ZERO. NC1244.2 007900 01 WORK-AREA-31B PICTURE X(5) VALUE SPACE. NC1244.2 008000 01 WORK-AREA-32 PICTURE PP9 VALUE .001. NC1244.2 008100 01 WORK-AREA-32A PICTURE V999 VALUE ZERO. NC1244.2 008200 01 WORK-AREA-33 PICTURE V999 VALUE .567. NC1244.2 008300 01 WORK-AREA-33A PICTURE PP9 VALUE ZERO. NC1244.2 008400 01 WORK-AREA-34 PICTURE V999 VALUE .123. NC1244.2 008500 01 WORK-AREA-34A PICTURE PP9 VALUE ZERO. NC1244.2 008600 01 WORK-AREA-34B PICTURE V999 VALUE ZERO. NC1244.2 008700 01 EDIT-AREA-1 PICTURE +9999. NC1244.2 008800 01 EDIT-AREA-2 PICTURE -9999. NC1244.2 008900 01 EDIT-AREA-3 PICTURE ++++9. NC1244.2 009000 01 EDIT-AREA-4 PICTURE ----9. NC1244.2 009100 01 EDIT-AREA-5 PICTURE +++++. NC1244.2 009200 01 EDIT-AREA-6 PICTURE -----. NC1244.2 009300 01 EDIT-AREA-7 PICTURE +++++.++. NC1244.2 009400 01 EDIT-AREA-8 PICTURE --,---.--. NC1244.2 009500 01 EDIT-AREA-9 PICTURE $$99. NC1244.2 009600 01 EDIT-AREA-10 PICTURE $$$$9. NC1244.2 009700 01 EDIT-AREA-11 PICTURE $$$$$.99. NC1244.2 009800 01 EDIT-AREA-12 PICTURE $$,$$$.$$. NC1244.2 009900 01 EDIT-AREA-13 PICTURE *999. NC1244.2 010000 01 EDIT-AREA-14 PICTURE **99. NC1244.2 010100 01 EDIT-AREA-15 PICTURE ***9. NC1244.2 010200 01 EDIT-AREA-16 PICTURE **.**. NC1244.2 010300 01 EDIT-AREA-17 PICTURE *,***.**. NC1244.2 010400 01 EDIT-AREA-18 PICTURE 9999. NC1244.2 010500 01 EDIT-AREA-19 PICTURE Z999. NC1244.2 010600 01 EDIT-AREA-20 PICTURE ZZ99. NC1244.2 010700 01 EDIT-AREA-21 PICTURE ZZZ9. NC1244.2 010800 01 EDIT-AREA-22 PICTURE ZZZZ. NC1244.2 010900 01 EDIT-AREA-23 PICTURE ZZ.ZZ. NC1244.2 011000 01 EDIT-AREA-24 PICTURE Z,ZZZ. NC1244.2 011100 01 TEST-RESULTS. NC1244.2 011200 02 FILLER PIC X VALUE SPACE. NC1244.2 011300 02 FEATURE PIC X(20) VALUE SPACE. NC1244.2 011400 02 FILLER PIC X VALUE SPACE. NC1244.2 011500 02 P-OR-F PIC X(5) VALUE SPACE. NC1244.2 011600 02 FILLER PIC X VALUE SPACE. NC1244.2 011700 02 PAR-NAME. NC1244.2 011800 03 FILLER PIC X(19) VALUE SPACE. NC1244.2 011900 03 PARDOT-X PIC X VALUE SPACE. NC1244.2 012000 03 DOTVALUE PIC 99 VALUE ZERO. NC1244.2 012100 02 FILLER PIC X(8) VALUE SPACE. NC1244.2 012200 02 RE-MARK PIC X(61). NC1244.2 012300 01 TEST-COMPUTED. NC1244.2 012400 02 FILLER PIC X(30) VALUE SPACE. NC1244.2 012500 02 FILLER PIC X(17) VALUE NC1244.2 012600 " COMPUTED=". NC1244.2 012700 02 COMPUTED-X. NC1244.2 012800 03 COMPUTED-A PIC X(20) VALUE SPACE. NC1244.2 012900 03 COMPUTED-N REDEFINES COMPUTED-A NC1244.2 013000 PIC -9(9).9(9). NC1244.2 013100 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC1244.2 013200 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). NC1244.2 013300 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC1244.2 013400 03 CM-18V0 REDEFINES COMPUTED-A. NC1244.2 013500 04 COMPUTED-18V0 PIC -9(18). NC1244.2 013600 04 FILLER PIC X. NC1244.2 013700 03 FILLER PIC X(50) VALUE SPACE. NC1244.2 013800 01 TEST-CORRECT. NC1244.2 013900 02 FILLER PIC X(30) VALUE SPACE. NC1244.2 014000 02 FILLER PIC X(17) VALUE " CORRECT =". NC1244.2 014100 02 CORRECT-X. NC1244.2 014200 03 CORRECT-A PIC X(20) VALUE SPACE. NC1244.2 014300 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). NC1244.2 014400 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). NC1244.2 014500 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC1244.2 014600 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). NC1244.2 014700 03 CR-18V0 REDEFINES CORRECT-A. NC1244.2 014800 04 CORRECT-18V0 PIC -9(18). NC1244.2 014900 04 FILLER PIC X. NC1244.2 015000 03 FILLER PIC X(2) VALUE SPACE. NC1244.2 015100 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC1244.2 015200 01 CCVS-C-1. NC1244.2 015300 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC1244.2 015400- "SS PARAGRAPH-NAME NC1244.2 015500- " REMARKS". NC1244.2 015600 02 FILLER PIC X(20) VALUE SPACE. NC1244.2 015700 01 CCVS-C-2. NC1244.2 015800 02 FILLER PIC X VALUE SPACE. NC1244.2 015900 02 FILLER PIC X(6) VALUE "TESTED". NC1244.2 016000 02 FILLER PIC X(15) VALUE SPACE. NC1244.2 016100 02 FILLER PIC X(4) VALUE "FAIL". NC1244.2 016200 02 FILLER PIC X(94) VALUE SPACE. NC1244.2 016300 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC1244.2 016400 01 REC-CT PIC 99 VALUE ZERO. NC1244.2 016500 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC1244.2 016600 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC1244.2 016700 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC1244.2 016800 01 PASS-COUNTER PIC 999 VALUE ZERO. NC1244.2 016900 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC1244.2 017000 01 ERROR-HOLD PIC 999 VALUE ZERO. NC1244.2 017100 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC1244.2 017200 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC1244.2 017300 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC1244.2 017400 01 CCVS-H-1. NC1244.2 017500 02 FILLER PIC X(39) VALUE SPACES. NC1244.2 017600 02 FILLER PIC X(42) VALUE NC1244.2 017700 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC1244.2 017800 02 FILLER PIC X(39) VALUE SPACES. NC1244.2 017900 01 CCVS-H-2A. NC1244.2 018000 02 FILLER PIC X(40) VALUE SPACE. NC1244.2 018100 02 FILLER PIC X(7) VALUE "CCVS85 ". NC1244.2 018200 02 FILLER PIC XXXX VALUE NC1244.2 018300 "4.2 ". NC1244.2 018400 02 FILLER PIC X(28) VALUE NC1244.2 018500 " COPY - NOT FOR DISTRIBUTION". NC1244.2 018600 02 FILLER PIC X(41) VALUE SPACE. NC1244.2 018700 NC1244.2 018800 01 CCVS-H-2B. NC1244.2 018900 02 FILLER PIC X(15) VALUE NC1244.2 019000 "TEST RESULT OF ". NC1244.2 019100 02 TEST-ID PIC X(9). NC1244.2 019200 02 FILLER PIC X(4) VALUE NC1244.2 019300 " IN ". NC1244.2 019400 02 FILLER PIC X(12) VALUE NC1244.2 019500 " HIGH ". NC1244.2 019600 02 FILLER PIC X(22) VALUE NC1244.2 019700 " LEVEL VALIDATION FOR ". NC1244.2 019800 02 FILLER PIC X(58) VALUE NC1244.2 019900 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1244.2 020000 01 CCVS-H-3. NC1244.2 020100 02 FILLER PIC X(34) VALUE NC1244.2 020200 " FOR OFFICIAL USE ONLY ". NC1244.2 020300 02 FILLER PIC X(58) VALUE NC1244.2 020400 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1244.2 020500 02 FILLER PIC X(28) VALUE NC1244.2 020600 " COPYRIGHT 1985 ". NC1244.2 020700 01 CCVS-E-1. NC1244.2 020800 02 FILLER PIC X(52) VALUE SPACE. NC1244.2 020900 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC1244.2 021000 02 ID-AGAIN PIC X(9). NC1244.2 021100 02 FILLER PIC X(45) VALUE SPACES. NC1244.2 021200 01 CCVS-E-2. NC1244.2 021300 02 FILLER PIC X(31) VALUE SPACE. NC1244.2 021400 02 FILLER PIC X(21) VALUE SPACE. NC1244.2 021500 02 CCVS-E-2-2. NC1244.2 021600 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC1244.2 021700 03 FILLER PIC X VALUE SPACE. NC1244.2 021800 03 ENDER-DESC PIC X(44) VALUE NC1244.2 021900 "ERRORS ENCOUNTERED". NC1244.2 022000 01 CCVS-E-3. NC1244.2 022100 02 FILLER PIC X(22) VALUE NC1244.2 022200 " FOR OFFICIAL USE ONLY". NC1244.2 022300 02 FILLER PIC X(12) VALUE SPACE. NC1244.2 022400 02 FILLER PIC X(58) VALUE NC1244.2 022500 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1244.2 022600 02 FILLER PIC X(13) VALUE SPACE. NC1244.2 022700 02 FILLER PIC X(15) VALUE NC1244.2 022800 " COPYRIGHT 1985". NC1244.2 022900 01 CCVS-E-4. NC1244.2 023000 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC1244.2 023100 02 FILLER PIC X(4) VALUE " OF ". NC1244.2 023200 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC1244.2 023300 02 FILLER PIC X(40) VALUE NC1244.2 023400 " TESTS WERE EXECUTED SUCCESSFULLY". NC1244.2 023500 01 XXINFO. NC1244.2 023600 02 FILLER PIC X(19) VALUE NC1244.2 023700 "*** INFORMATION ***". NC1244.2 023800 02 INFO-TEXT. NC1244.2 023900 04 FILLER PIC X(8) VALUE SPACE. NC1244.2 024000 04 XXCOMPUTED PIC X(20). NC1244.2 024100 04 FILLER PIC X(5) VALUE SPACE. NC1244.2 024200 04 XXCORRECT PIC X(20). NC1244.2 024300 02 INF-ANSI-REFERENCE PIC X(48). NC1244.2 024400 01 HYPHEN-LINE. NC1244.2 024500 02 FILLER PIC IS X VALUE IS SPACE. NC1244.2 024600 02 FILLER PIC IS X(65) VALUE IS "************************NC1244.2 024700- "*****************************************". NC1244.2 024800 02 FILLER PIC IS X(54) VALUE IS "************************NC1244.2 024900- "******************************". NC1244.2 025000 01 CCVS-PGM-ID PIC X(9) VALUE NC1244.2 025100 "NC124A". NC1244.2 025200 PROCEDURE DIVISION. NC1244.2 025300 CCVS1 SECTION. NC1244.2 025400 OPEN-FILES. NC1244.2 025500 OPEN OUTPUT PRINT-FILE. NC1244.2 025600 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC1244.2 025700 MOVE SPACE TO TEST-RESULTS. NC1244.2 025800 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC1244.2 025900 GO TO CCVS1-EXIT. NC1244.2 026000 CLOSE-FILES. NC1244.2 026100 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC1244.2 026200 TERMINATE-CCVS. NC1244.2 026300 EXIT PROGRAM. NC1244.2 026400 TERMINATE-CALL. NC1244.2 026500 STOP RUN. NC1244.2 026600 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC1244.2 026700 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC1244.2 026800 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC1244.2 026900 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC1244.2 027000 MOVE "****TEST DELETED****" TO RE-MARK. NC1244.2 027100 PRINT-DETAIL. NC1244.2 027200 IF REC-CT NOT EQUAL TO ZERO NC1244.2 027300 MOVE "." TO PARDOT-X NC1244.2 027400 MOVE REC-CT TO DOTVALUE. NC1244.2 027500 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC1244.2 027600 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC1244.2 027700 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC1244.2 027800 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC1244.2 027900 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC1244.2 028000 MOVE SPACE TO CORRECT-X. NC1244.2 028100 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC1244.2 028200 MOVE SPACE TO RE-MARK. NC1244.2 028300 HEAD-ROUTINE. NC1244.2 028400 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1244.2 028500 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1244.2 028600 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1244.2 028700 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1244.2 028800 COLUMN-NAMES-ROUTINE. NC1244.2 028900 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1244.2 029000 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1244.2 029100 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1244.2 029200 END-ROUTINE. NC1244.2 029300 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC1244.2 029400 END-RTN-EXIT. NC1244.2 029500 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1244.2 029600 END-ROUTINE-1. NC1244.2 029700 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC1244.2 029800 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC1244.2 029900 ADD PASS-COUNTER TO ERROR-HOLD. NC1244.2 030000* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC1244.2 030100 MOVE PASS-COUNTER TO CCVS-E-4-1. NC1244.2 030200 MOVE ERROR-HOLD TO CCVS-E-4-2. NC1244.2 030300 MOVE CCVS-E-4 TO CCVS-E-2-2. NC1244.2 030400 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC1244.2 030500 END-ROUTINE-12. NC1244.2 030600 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC1244.2 030700 IF ERROR-COUNTER IS EQUAL TO ZERO NC1244.2 030800 MOVE "NO " TO ERROR-TOTAL NC1244.2 030900 ELSE NC1244.2 031000 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC1244.2 031100 MOVE CCVS-E-2 TO DUMMY-RECORD. NC1244.2 031200 PERFORM WRITE-LINE. NC1244.2 031300 END-ROUTINE-13. NC1244.2 031400 IF DELETE-COUNTER IS EQUAL TO ZERO NC1244.2 031500 MOVE "NO " TO ERROR-TOTAL ELSE NC1244.2 031600 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC1244.2 031700 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC1244.2 031800 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1244.2 031900 IF INSPECT-COUNTER EQUAL TO ZERO NC1244.2 032000 MOVE "NO " TO ERROR-TOTAL NC1244.2 032100 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC1244.2 032200 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC1244.2 032300 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1244.2 032400 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1244.2 032500 WRITE-LINE. NC1244.2 032600 ADD 1 TO RECORD-COUNT. NC1244.2 032700 IF RECORD-COUNT GREATER 42 NC1244.2 032800 MOVE DUMMY-RECORD TO DUMMY-HOLD NC1244.2 032900 MOVE SPACE TO DUMMY-RECORD NC1244.2 033000 WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC1244.2 033100 MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1244.2 033200 MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1244.2 033300 MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1244.2 033400 MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1244.2 033500 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC1244.2 033600 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN NC1244.2 033700 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC1244.2 033800 MOVE DUMMY-HOLD TO DUMMY-RECORD NC1244.2 033900 MOVE ZERO TO RECORD-COUNT. NC1244.2 034000 PERFORM WRT-LN. NC1244.2 034100 WRT-LN. NC1244.2 034200 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC1244.2 034300 MOVE SPACE TO DUMMY-RECORD. NC1244.2 034400 BLANK-LINE-PRINT. NC1244.2 034500 PERFORM WRT-LN. NC1244.2 034600 FAIL-ROUTINE. NC1244.2 034700 IF COMPUTED-X NOT EQUAL TO SPACE NC1244.2 034800 GO TO FAIL-ROUTINE-WRITE. NC1244.2 034900 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC1244.2 035000 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1244.2 035100 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC1244.2 035200 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1244.2 035300 MOVE SPACES TO INF-ANSI-REFERENCE. NC1244.2 035400 GO TO FAIL-ROUTINE-EX. NC1244.2 035500 FAIL-ROUTINE-WRITE. NC1244.2 035600 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC1244.2 035700 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC1244.2 035800 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC1244.2 035900 MOVE SPACES TO COR-ANSI-REFERENCE. NC1244.2 036000 FAIL-ROUTINE-EX. EXIT. NC1244.2 036100 BAIL-OUT. NC1244.2 036200 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC1244.2 036300 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC1244.2 036400 BAIL-OUT-WRITE. NC1244.2 036500 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC1244.2 036600 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1244.2 036700 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1244.2 036800 MOVE SPACES TO INF-ANSI-REFERENCE. NC1244.2 036900 BAIL-OUT-EX. EXIT. NC1244.2 037000 CCVS1-EXIT. NC1244.2 037100 EXIT. NC1244.2 037200 PICTURE-INIT-1. NC1244.2 037300 MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2 037400 MOVE "PICTRE-TST-1" TO PAR-NAME. NC1244.2 037500 MOVE "PICTURE + AND -" TO FEATURE. NC1244.2 037600 MOVE 0 TO WORK-AREA-1. NC1244.2 037700 MOVE 1 TO REC-CT. NC1244.2 037800 PICTURE-TEST-1. NC1244.2 037900 MOVE WORK-AREA-1 TO EDIT-AREA-1 EDIT-AREA-2 EDIT-AREA-3 NC1244.2 038000 EDIT-AREA-4 EDIT-AREA-5 EDIT-AREA-6 NC1244.2 038100 EDIT-AREA-7 EDIT-AREA-8. NC1244.2 038200 GO TO PICTURE-TEST-1-A. NC1244.2 038300 PICTURE-DELETE-1. NC1244.2 038400 PERFORM DE-LETE. NC1244.2 038500 PERFORM PRINT-DETAIL. NC1244.2 038600 GO TO PICTURE-INIT-2. NC1244.2 038700 PICTURE-TEST-1-A. NC1244.2 038800 IF EDIT-AREA-1 EQUAL TO "+0000" NC1244.2 038900 PERFORM PASS NC1244.2 039000 PERFORM PRINT-DETAIL NC1244.2 039100 ELSE PERFORM FAIL NC1244.2 039200 MOVE EDIT-AREA-1 TO COMPUTED-A NC1244.2 039300 MOVE "+0000" TO CORRECT-A NC1244.2 039400 PERFORM PRINT-DETAIL. NC1244.2 039500 ADD 1 TO REC-CT. NC1244.2 039600 PICTURE-TEST-1-B. NC1244.2 039700 IF EDIT-AREA-2 EQUAL TO " 0000" NC1244.2 039800 PERFORM PASS NC1244.2 039900 PERFORM PRINT-DETAIL NC1244.2 040000 ELSE PERFORM FAIL NC1244.2 040100 MOVE EDIT-AREA-2 TO COMPUTED-A NC1244.2 040200 MOVE " 0000" TO CORRECT-A NC1244.2 040300 PERFORM PRINT-DETAIL. NC1244.2 040400 ADD 1 TO REC-CT. NC1244.2 040500 PICTURE-TEST-1-C. NC1244.2 040600 IF EDIT-AREA-3 EQUAL TO " +0" NC1244.2 040700 PERFORM PASS NC1244.2 040800 PERFORM PRINT-DETAIL NC1244.2 040900 ELSE PERFORM FAIL NC1244.2 041000 MOVE EDIT-AREA-3 TO COMPUTED-A NC1244.2 041100 MOVE " +0" TO CORRECT-A NC1244.2 041200 PERFORM PRINT-DETAIL. NC1244.2 041300 ADD 1 TO REC-CT. NC1244.2 041400 PICTURE-TEST-1-D. NC1244.2 041500 IF EDIT-AREA-4 EQUAL TO " 0" NC1244.2 041600 PERFORM PASS NC1244.2 041700 PERFORM PRINT-DETAIL NC1244.2 041800 ELSE PERFORM FAIL NC1244.2 041900 MOVE EDIT-AREA-4 TO COMPUTED-A NC1244.2 042000 MOVE " 0" TO CORRECT-A NC1244.2 042100 PERFORM PRINT-DETAIL. NC1244.2 042200 ADD 1 TO REC-CT. NC1244.2 042300 PICTURE-TEST-1-E. NC1244.2 042400 IF EDIT-AREA-5 EQUAL TO " " NC1244.2 042500 PERFORM PASS NC1244.2 042600 PERFORM PRINT-DETAIL NC1244.2 042700 ELSE PERFORM FAIL NC1244.2 042800 MOVE EDIT-AREA-5 TO COMPUTED-A NC1244.2 042900 MOVE "SPACES" TO CORRECT-A NC1244.2 043000 PERFORM PRINT-DETAIL. NC1244.2 043100 ADD 1 TO REC-CT. NC1244.2 043200 PICTURE-TEST-1-F. NC1244.2 043300 IF EDIT-AREA-6 EQUAL TO " " NC1244.2 043400 PERFORM PASS NC1244.2 043500 PERFORM PRINT-DETAIL NC1244.2 043600 ELSE PERFORM FAIL NC1244.2 043700 MOVE EDIT-AREA-6 TO COMPUTED-A NC1244.2 043800 MOVE "SPACES" TO CORRECT-A NC1244.2 043900 PERFORM PRINT-DETAIL. NC1244.2 044000 ADD 1 TO REC-CT. NC1244.2 044100 PICTURE-TEST-1-G. NC1244.2 044200 IF EDIT-AREA-7 EQUAL TO " " NC1244.2 044300 PERFORM PASS NC1244.2 044400 PERFORM PRINT-DETAIL NC1244.2 044500 ELSE PERFORM FAIL NC1244.2 044600 MOVE EDIT-AREA-7 TO COMPUTED-A NC1244.2 044700 MOVE "SPACES" TO CORRECT-A NC1244.2 044800 PERFORM PRINT-DETAIL. NC1244.2 044900 ADD 1 TO REC-CT. NC1244.2 045000 PICTURE-TEST-1-H. NC1244.2 045100 IF EDIT-AREA-8 EQUAL TO " " NC1244.2 045200 PERFORM PASS NC1244.2 045300 PERFORM PRINT-DETAIL NC1244.2 045400 ELSE PERFORM FAIL NC1244.2 045500 MOVE EDIT-AREA-8 TO COMPUTED-A NC1244.2 045600 MOVE "SPACES" TO CORRECT-A NC1244.2 045700 PERFORM PRINT-DETAIL. NC1244.2 045800 PICTURE-INIT-2. NC1244.2 045900 MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2 046000 MOVE "PICTRE-TST-2" TO PAR-NAME. NC1244.2 046100 MOVE "PICTURE + AND -" TO FEATURE. NC1244.2 046200 MOVE 12 TO WORK-AREA-2. NC1244.2 046300 MOVE 1 TO REC-CT. NC1244.2 046400 PICTURE-TEST-2. NC1244.2 046500 MOVE WORK-AREA-2 TO EDIT-AREA-1 EDIT-AREA-2 EDIT-AREA-3 NC1244.2 046600 EDIT-AREA-4 EDIT-AREA-5 EDIT-AREA-6 NC1244.2 046700 EDIT-AREA-7 EDIT-AREA-8. NC1244.2 046800 GO TO PICTURE-TEST-2-A. NC1244.2 046900 PICTURE-DELETE-2. NC1244.2 047000 PERFORM DE-LETE. NC1244.2 047100 PERFORM PRINT-DETAIL. NC1244.2 047200 GO TO PICTURE-INIT-3. NC1244.2 047300 PICTURE-TEST-2-A. NC1244.2 047400 IF EDIT-AREA-1 EQUAL TO "+0012" NC1244.2 047500 PERFORM PASS NC1244.2 047600 PERFORM PRINT-DETAIL NC1244.2 047700 ELSE PERFORM FAIL NC1244.2 047800 MOVE EDIT-AREA-1 TO COMPUTED-A NC1244.2 047900 MOVE "+0012" TO CORRECT-A NC1244.2 048000 PERFORM PRINT-DETAIL. NC1244.2 048100 ADD 1 TO REC-CT. NC1244.2 048200 PICTURE-TEST-2-B. NC1244.2 048300 IF EDIT-AREA-2 EQUAL TO " 0012" NC1244.2 048400 PERFORM PASS NC1244.2 048500 PERFORM PRINT-DETAIL NC1244.2 048600 ELSE PERFORM FAIL NC1244.2 048700 MOVE EDIT-AREA-2 TO COMPUTED-A NC1244.2 048800 MOVE " 0012" TO CORRECT-A NC1244.2 048900 PERFORM PRINT-DETAIL. NC1244.2 049000 ADD 1 TO REC-CT. NC1244.2 049100 PICTURE-TEST-2-C. NC1244.2 049200 IF EDIT-AREA-3 EQUAL TO " +12" NC1244.2 049300 PERFORM PASS NC1244.2 049400 PERFORM PRINT-DETAIL NC1244.2 049500 ELSE PERFORM FAIL NC1244.2 049600 MOVE EDIT-AREA-3 TO COMPUTED-A NC1244.2 049700 MOVE " +12" TO CORRECT-A NC1244.2 049800 PERFORM PRINT-DETAIL. NC1244.2 049900 ADD 1 TO REC-CT. NC1244.2 050000 PICTURE-TEST-2-D. NC1244.2 050100 IF EDIT-AREA-4 EQUAL TO " 12" NC1244.2 050200 PERFORM PASS NC1244.2 050300 PERFORM PRINT-DETAIL NC1244.2 050400 ELSE PERFORM FAIL NC1244.2 050500 MOVE EDIT-AREA-4 TO COMPUTED-A NC1244.2 050600 MOVE " 12" TO CORRECT-A NC1244.2 050700 PERFORM PRINT-DETAIL. NC1244.2 050800 ADD 1 TO REC-CT. NC1244.2 050900 PICTURE-TEST-2-E. NC1244.2 051000 IF EDIT-AREA-5 EQUAL TO " +12" NC1244.2 051100 PERFORM PASS NC1244.2 051200 PERFORM PRINT-DETAIL NC1244.2 051300 ELSE PERFORM FAIL NC1244.2 051400 MOVE EDIT-AREA-5 TO COMPUTED-A NC1244.2 051500 MOVE " +12" TO CORRECT-A NC1244.2 051600 PERFORM PRINT-DETAIL. NC1244.2 051700 ADD 1 TO REC-CT. NC1244.2 051800 PICTURE-TEST-2-F. NC1244.2 051900 IF EDIT-AREA-6 EQUAL TO " 12" NC1244.2 052000 PERFORM PASS NC1244.2 052100 PERFORM PRINT-DETAIL NC1244.2 052200 ELSE PERFORM FAIL NC1244.2 052300 MOVE EDIT-AREA-6 TO COMPUTED-A NC1244.2 052400 MOVE " 12" TO CORRECT-A NC1244.2 052500 PERFORM PRINT-DETAIL. NC1244.2 052600 ADD 1 TO REC-CT. NC1244.2 052700 PICTURE-TEST-2-G. NC1244.2 052800 IF EDIT-AREA-7 EQUAL TO " +12.00" NC1244.2 052900 PERFORM PASS NC1244.2 053000 PERFORM PRINT-DETAIL NC1244.2 053100 ELSE PERFORM FAIL NC1244.2 053200 MOVE EDIT-AREA-7 TO COMPUTED-A NC1244.2 053300 MOVE " +12.00" TO CORRECT-A NC1244.2 053400 PERFORM PRINT-DETAIL. NC1244.2 053500 ADD 1 TO REC-CT. NC1244.2 053600 PICTURE-TEST-2-H. NC1244.2 053700 IF EDIT-AREA-8 EQUAL TO " 12.00" NC1244.2 053800 PERFORM PASS NC1244.2 053900 PERFORM PRINT-DETAIL NC1244.2 054000 ELSE PERFORM FAIL NC1244.2 054100 MOVE EDIT-AREA-8 TO COMPUTED-A NC1244.2 054200 MOVE " 12.00" TO CORRECT-A NC1244.2 054300 PERFORM PRINT-DETAIL. NC1244.2 054400 PICTURE-INIT-3. NC1244.2 054500 MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2 054600 MOVE "PICTRE-TST-3" TO PAR-NAME. NC1244.2 054700 MOVE "PICTURE + AND -" TO FEATURE. NC1244.2 054800 MOVE -12 TO WORK-AREA-3. NC1244.2 054900 MOVE 1 TO REC-CT. NC1244.2 055000 PICTURE-TEST-3. NC1244.2 055100 MOVE WORK-AREA-3 TO EDIT-AREA-1 EDIT-AREA-2 EDIT-AREA-3 NC1244.2 055200 EDIT-AREA-4 EDIT-AREA-5 EDIT-AREA-6 NC1244.2 055300 EDIT-AREA-7 EDIT-AREA-8. NC1244.2 055400 GO TO PICTURE-TEST-3-A. NC1244.2 055500 PICTURE-DELETE-3. NC1244.2 055600 PERFORM DE-LETE. NC1244.2 055700 PERFORM PRINT-DETAIL. NC1244.2 055800 GO TO PICTURE-INIT-4. NC1244.2 055900 PICTURE-TEST-3-A. NC1244.2 056000 IF EDIT-AREA-1 EQUAL TO "-0012" NC1244.2 056100 PERFORM PASS NC1244.2 056200 PERFORM PRINT-DETAIL NC1244.2 056300 ELSE PERFORM FAIL NC1244.2 056400 MOVE EDIT-AREA-1 TO COMPUTED-A NC1244.2 056500 MOVE "-0012" TO CORRECT-A NC1244.2 056600 PERFORM PRINT-DETAIL. NC1244.2 056700 ADD 1 TO REC-CT. NC1244.2 056800 PICTURE-TEST-3-B. NC1244.2 056900 IF EDIT-AREA-2 EQUAL TO "-0012" NC1244.2 057000 PERFORM PASS NC1244.2 057100 PERFORM PRINT-DETAIL NC1244.2 057200 ELSE PERFORM FAIL NC1244.2 057300 MOVE EDIT-AREA-2 TO COMPUTED-A NC1244.2 057400 MOVE "-0012" TO CORRECT-A NC1244.2 057500 PERFORM PRINT-DETAIL. NC1244.2 057600 ADD 1 TO REC-CT. NC1244.2 057700 PICTURE-TEST-3-C. NC1244.2 057800 IF EDIT-AREA-3 EQUAL TO " -12" NC1244.2 057900 PERFORM PASS NC1244.2 058000 PERFORM PRINT-DETAIL NC1244.2 058100 ELSE PERFORM FAIL NC1244.2 058200 MOVE EDIT-AREA-3 TO COMPUTED-A NC1244.2 058300 MOVE " -12" TO CORRECT-A NC1244.2 058400 PERFORM PRINT-DETAIL. NC1244.2 058500 ADD 1 TO REC-CT. NC1244.2 058600 PICTURE-TEST-3-D. NC1244.2 058700 IF EDIT-AREA-4 EQUAL TO " -12" NC1244.2 058800 PERFORM PASS NC1244.2 058900 PERFORM PRINT-DETAIL NC1244.2 059000 ELSE PERFORM FAIL NC1244.2 059100 MOVE EDIT-AREA-4 TO COMPUTED-A NC1244.2 059200 MOVE " -12" TO CORRECT-A NC1244.2 059300 PERFORM PRINT-DETAIL. NC1244.2 059400 ADD 1 TO REC-CT. NC1244.2 059500 PICTURE-TEST-3-E. NC1244.2 059600 IF EDIT-AREA-5 EQUAL TO " -12" NC1244.2 059700 PERFORM PASS NC1244.2 059800 PERFORM PRINT-DETAIL NC1244.2 059900 ELSE PERFORM FAIL NC1244.2 060000 MOVE EDIT-AREA-5 TO COMPUTED-A NC1244.2 060100 MOVE " -12" TO CORRECT-A NC1244.2 060200 PERFORM PRINT-DETAIL. NC1244.2 060300 ADD 1 TO REC-CT. NC1244.2 060400 PICTURE-TEST-3-F. NC1244.2 060500 IF EDIT-AREA-6 EQUAL TO " -12" NC1244.2 060600 PERFORM PASS NC1244.2 060700 PERFORM PRINT-DETAIL NC1244.2 060800 ELSE PERFORM FAIL NC1244.2 060900 MOVE EDIT-AREA-6 TO COMPUTED-A NC1244.2 061000 MOVE " -12" TO CORRECT-A NC1244.2 061100 PERFORM PRINT-DETAIL. NC1244.2 061200 ADD 1 TO REC-CT. NC1244.2 061300 PICTURE-TEST-3-G. NC1244.2 061400 IF EDIT-AREA-7 EQUAL TO " -12.00" NC1244.2 061500 PERFORM PASS NC1244.2 061600 PERFORM PRINT-DETAIL NC1244.2 061700 ELSE PERFORM FAIL NC1244.2 061800 MOVE EDIT-AREA-7 TO COMPUTED-A NC1244.2 061900 MOVE " -12.00" TO CORRECT-A NC1244.2 062000 PERFORM PRINT-DETAIL. NC1244.2 062100 ADD 1 TO REC-CT. NC1244.2 062200 PICTURE-TEST-3-H. NC1244.2 062300 IF EDIT-AREA-8 EQUAL TO " -12.00" NC1244.2 062400 PERFORM PASS NC1244.2 062500 PERFORM PRINT-DETAIL NC1244.2 062600 ELSE PERFORM FAIL NC1244.2 062700 MOVE EDIT-AREA-8 TO COMPUTED-A NC1244.2 062800 MOVE " -12.00" TO CORRECT-A NC1244.2 062900 PERFORM PRINT-DETAIL. NC1244.2 063000 PICTURE-INIT-4. NC1244.2 063100 MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2 063200 MOVE "PICTRE-TST-4" TO PAR-NAME. NC1244.2 063300 MOVE "PICTURE + AND -" TO FEATURE. NC1244.2 063400 MOVE 123 TO WORK-AREA-4. NC1244.2 063500 MOVE 1 TO REC-CT. NC1244.2 063600 PICTURE-TEST-4. NC1244.2 063700 MOVE WORK-AREA-4 TO EDIT-AREA-1 EDIT-AREA-2 EDIT-AREA-3 NC1244.2 063800 EDIT-AREA-4 EDIT-AREA-5 EDIT-AREA-6 NC1244.2 063900 EDIT-AREA-7 EDIT-AREA-8. NC1244.2 064000 GO TO PICTURE-TEST-4-A. NC1244.2 064100 PICTURE-DELETE-4. NC1244.2 064200 PERFORM DE-LETE. NC1244.2 064300 PERFORM PRINT-DETAIL. NC1244.2 064400 GO TO PICTURE-INIT-5. NC1244.2 064500 PICTURE-TEST-4-A. NC1244.2 064600 IF EDIT-AREA-1 EQUAL TO "+0123" NC1244.2 064700 PERFORM PASS NC1244.2 064800 PERFORM PRINT-DETAIL NC1244.2 064900 ELSE PERFORM FAIL NC1244.2 065000 MOVE EDIT-AREA-1 TO COMPUTED-A NC1244.2 065100 MOVE "+0123" TO CORRECT-A NC1244.2 065200 PERFORM PRINT-DETAIL. NC1244.2 065300 ADD 1 TO REC-CT. NC1244.2 065400 PICTURE-TEST-4-B. NC1244.2 065500 IF EDIT-AREA-2 EQUAL TO " 0123" NC1244.2 065600 PERFORM PASS NC1244.2 065700 PERFORM PRINT-DETAIL NC1244.2 065800 ELSE PERFORM FAIL NC1244.2 065900 MOVE EDIT-AREA-2 TO COMPUTED-A NC1244.2 066000 MOVE " 0123" TO CORRECT-A NC1244.2 066100 PERFORM PRINT-DETAIL. NC1244.2 066200 ADD 1 TO REC-CT. NC1244.2 066300 PICTURE-TEST-4-C. NC1244.2 066400 IF EDIT-AREA-3 EQUAL TO " +123" NC1244.2 066500 PERFORM PASS NC1244.2 066600 PERFORM PRINT-DETAIL NC1244.2 066700 ELSE PERFORM FAIL NC1244.2 066800 MOVE EDIT-AREA-3 TO COMPUTED-A NC1244.2 066900 MOVE " +123" TO CORRECT-A NC1244.2 067000 PERFORM PRINT-DETAIL. NC1244.2 067100 ADD 1 TO REC-CT. NC1244.2 067200 PICTURE-TEST-4-D. NC1244.2 067300 IF EDIT-AREA-4 EQUAL TO " 123" NC1244.2 067400 PERFORM PASS NC1244.2 067500 PERFORM PRINT-DETAIL NC1244.2 067600 ELSE PERFORM FAIL NC1244.2 067700 MOVE EDIT-AREA-4 TO COMPUTED-A NC1244.2 067800 MOVE " 123" TO CORRECT-A NC1244.2 067900 PERFORM PRINT-DETAIL. NC1244.2 068000 ADD 1 TO REC-CT. NC1244.2 068100 PICTURE-TEST-4-E. NC1244.2 068200 IF EDIT-AREA-5 EQUAL TO " +123" NC1244.2 068300 PERFORM PASS NC1244.2 068400 PERFORM PRINT-DETAIL NC1244.2 068500 ELSE PERFORM FAIL NC1244.2 068600 MOVE EDIT-AREA-5 TO COMPUTED-A NC1244.2 068700 MOVE " +123" TO CORRECT-A NC1244.2 068800 PERFORM PRINT-DETAIL. NC1244.2 068900 ADD 1 TO REC-CT. NC1244.2 069000 PICTURE-TEST-4-F. NC1244.2 069100 IF EDIT-AREA-6 EQUAL TO " 123" NC1244.2 069200 PERFORM PASS NC1244.2 069300 PERFORM PRINT-DETAIL NC1244.2 069400 ELSE PERFORM FAIL NC1244.2 069500 MOVE EDIT-AREA-6 TO COMPUTED-A NC1244.2 069600 MOVE " 123" TO CORRECT-A NC1244.2 069700 PERFORM PRINT-DETAIL. NC1244.2 069800 ADD 1 TO REC-CT. NC1244.2 069900 PICTURE-TEST-4-G. NC1244.2 070000 IF EDIT-AREA-7 EQUAL TO " +123.00" NC1244.2 070100 PERFORM PASS NC1244.2 070200 PERFORM PRINT-DETAIL NC1244.2 070300 ELSE PERFORM FAIL NC1244.2 070400 MOVE EDIT-AREA-7 TO COMPUTED-A NC1244.2 070500 MOVE " +123.00" TO CORRECT-A NC1244.2 070600 PERFORM PRINT-DETAIL. NC1244.2 070700 ADD 1 TO REC-CT. NC1244.2 070800 PICTURE-TEST-4-H. NC1244.2 070900 IF EDIT-AREA-8 EQUAL TO " 123.00" NC1244.2 071000 PERFORM PASS NC1244.2 071100 PERFORM PRINT-DETAIL NC1244.2 071200 ELSE PERFORM FAIL NC1244.2 071300 MOVE EDIT-AREA-8 TO COMPUTED-A NC1244.2 071400 MOVE " 123.00" TO CORRECT-A NC1244.2 071500 PERFORM PRINT-DETAIL. NC1244.2 071600 PICTURE-INIT-5. NC1244.2 071700 MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2 071800 MOVE "PICTRE-TST-5" TO PAR-NAME. NC1244.2 071900 MOVE "PICTURE + AND -" TO FEATURE. NC1244.2 072000 MOVE -123 TO WORK-AREA-5. NC1244.2 072100 MOVE 1 TO REC-CT. NC1244.2 072200 PICTURE-TEST-5. NC1244.2 072300 MOVE WORK-AREA-5 TO EDIT-AREA-1 EDIT-AREA-2 EDIT-AREA-3 NC1244.2 072400 EDIT-AREA-4 EDIT-AREA-5 EDIT-AREA-6 NC1244.2 072500 EDIT-AREA-7 EDIT-AREA-8. NC1244.2 072600 GO TO PICTURE-TEST-5-A. NC1244.2 072700 PICTURE-DELETE-5. NC1244.2 072800 PERFORM DE-LETE. NC1244.2 072900 PERFORM PRINT-DETAIL. NC1244.2 073000 GO TO PICTURE-INIT-6. NC1244.2 073100 PICTURE-TEST-5-A. NC1244.2 073200 IF EDIT-AREA-1 EQUAL TO "-0123" NC1244.2 073300 PERFORM PASS NC1244.2 073400 PERFORM PRINT-DETAIL NC1244.2 073500 ELSE PERFORM FAIL NC1244.2 073600 MOVE EDIT-AREA-1 TO COMPUTED-A NC1244.2 073700 MOVE "-0123" TO CORRECT-A NC1244.2 073800 PERFORM PRINT-DETAIL. NC1244.2 073900 ADD 1 TO REC-CT. NC1244.2 074000 PICTURE-TEST-5-B. NC1244.2 074100 IF EDIT-AREA-2 EQUAL TO "-0123" NC1244.2 074200 PERFORM PASS NC1244.2 074300 PERFORM PRINT-DETAIL NC1244.2 074400 ELSE PERFORM FAIL NC1244.2 074500 MOVE EDIT-AREA-2 TO COMPUTED-A NC1244.2 074600 MOVE "-0123" TO CORRECT-A NC1244.2 074700 PERFORM PRINT-DETAIL. NC1244.2 074800 ADD 1 TO REC-CT. NC1244.2 074900 PICTURE-TEST-5-C. NC1244.2 075000 IF EDIT-AREA-3 EQUAL TO " -123" NC1244.2 075100 PERFORM PASS NC1244.2 075200 PERFORM PRINT-DETAIL NC1244.2 075300 ELSE PERFORM FAIL NC1244.2 075400 MOVE EDIT-AREA-3 TO COMPUTED-A NC1244.2 075500 MOVE " -123" TO CORRECT-A NC1244.2 075600 PERFORM PRINT-DETAIL. NC1244.2 075700 ADD 1 TO REC-CT. NC1244.2 075800 PICTURE-TEST-5-D. NC1244.2 075900 IF EDIT-AREA-4 EQUAL TO " -123" NC1244.2 076000 PERFORM PASS NC1244.2 076100 PERFORM PRINT-DETAIL NC1244.2 076200 ELSE PERFORM FAIL NC1244.2 076300 MOVE EDIT-AREA-4 TO COMPUTED-A NC1244.2 076400 MOVE " -123" TO CORRECT-A NC1244.2 076500 PERFORM PRINT-DETAIL. NC1244.2 076600 ADD 1 TO REC-CT. NC1244.2 076700 PICTURE-TEST-5-E. NC1244.2 076800 IF EDIT-AREA-5 EQUAL TO " -123" NC1244.2 076900 PERFORM PASS NC1244.2 077000 PERFORM PRINT-DETAIL NC1244.2 077100 ELSE PERFORM FAIL NC1244.2 077200 MOVE EDIT-AREA-5 TO COMPUTED-A NC1244.2 077300 MOVE " -123" TO CORRECT-A NC1244.2 077400 PERFORM PRINT-DETAIL. NC1244.2 077500 ADD 1 TO REC-CT. NC1244.2 077600 PICTURE-TEST-5-F. NC1244.2 077700 IF EDIT-AREA-6 EQUAL TO " -123" NC1244.2 077800 PERFORM PASS NC1244.2 077900 PERFORM PRINT-DETAIL NC1244.2 078000 ELSE PERFORM FAIL NC1244.2 078100 MOVE EDIT-AREA-6 TO COMPUTED-A NC1244.2 078200 MOVE " -123" TO CORRECT-A NC1244.2 078300 PERFORM PRINT-DETAIL. NC1244.2 078400 ADD 1 TO REC-CT. NC1244.2 078500 PICTURE-TEST-5-G. NC1244.2 078600 IF EDIT-AREA-7 EQUAL TO " -123.00" NC1244.2 078700 PERFORM PASS NC1244.2 078800 PERFORM PRINT-DETAIL NC1244.2 078900 ELSE PERFORM FAIL NC1244.2 079000 MOVE EDIT-AREA-7 TO COMPUTED-A NC1244.2 079100 MOVE " -123.00" TO CORRECT-A NC1244.2 079200 PERFORM PRINT-DETAIL. NC1244.2 079300 ADD 1 TO REC-CT. NC1244.2 079400 PICTURE-TEST-5-H. NC1244.2 079500 IF EDIT-AREA-8 EQUAL TO " -123.00" NC1244.2 079600 PERFORM PASS NC1244.2 079700 PERFORM PRINT-DETAIL NC1244.2 079800 ELSE PERFORM FAIL NC1244.2 079900 MOVE EDIT-AREA-8 TO COMPUTED-A NC1244.2 080000 MOVE " -123.00" TO CORRECT-A NC1244.2 080100 PERFORM PRINT-DETAIL. NC1244.2 080200 PICTURE-INIT-6. NC1244.2 080300 MOVE "VI-31" TO ANSI-REFERENCE. NC1244.2 080400 MOVE "PICTRE-TST-6" TO PAR-NAME. NC1244.2 080500 MOVE "PICTURE + AND -" TO FEATURE. NC1244.2 080600 MOVE 1234 TO WORK-AREA-6. NC1244.2 080700 MOVE 1 TO REC-CT. NC1244.2 080800 PICTURE-TEST-6. NC1244.2 080900 MOVE WORK-AREA-6 TO EDIT-AREA-1 EDIT-AREA-2 EDIT-AREA-3 NC1244.2 --> -------------------- --> maximum size reached --> -------------------- ¤ Dauer der Verarbeitung: 0.24 Sekunden (vorverarbeitet) ¤*© Formatika GbR, Deutschland |
|
2026-03-28