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