| products/sources/formale sprachen/Cobol/Test-Suite/COBOL/NC/ |
|
Quellcode-Bibliothek© Kompilation durch diese Firma[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]Datei: nc215a.cob Sprache: Cobol |
|
||||||
|
000100 IDENTIFICATION DIVISION. NC2154.2
000200 PROGRAM-ID. NC2154.2 000300 NC215A. NC2154.2 000400**************************************************************** NC2154.2 000500* * NC2154.2 000600* VALIDATION FOR:- * NC2154.2 000700* * NC2154.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2154.2 000900* * NC2154.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2154.2 001100* * NC2154.2 001200**************************************************************** NC2154.2 001300* * NC2154.2 001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC2154.2 001500* * NC2154.2 001600* X-55 - SYSTEM PRINTER NAME. * NC2154.2 001700* X-82 - SOURCE COMPUTER NAME. * NC2154.2 001800* X-83 - OBJECT COMPUTER NAME. * NC2154.2 001900* * NC2154.2 002000**************************************************************** NC2154.2 002100* NC2154.2 002200* * NC2154.2 002300* PROGRAM NC215A TESTS THE LITERAL PHRASE OF THE "ALPHABET" * NC2154.2 002400* CLAUSE OF THE "SPECIAL-NAMES" PARAGRAPH AND THE * NC2154.2 002500* "PROGRAM COLLATING SEQUENCE" OF THE "OBJECT COMPUTER * NC2154.2 002600* PARAGRAPH. * NC2154.2 002700* * NC2154.2 002800**************************************************************** NC2154.2 002900 ENVIRONMENT DIVISION. NC2154.2 003000 CONFIGURATION SECTION. NC2154.2 003100 SOURCE-COMPUTER. NC2154.2 003200 Card0130. NC2154.2 003300 OBJECT-COMPUTER. NC2154.2 003400 Card0131 NC2154.2 003500 PROGRAM COLLATING SEQUENCE IS THE-WILD-ONE. NC2154.2 003600 SPECIAL-NAMES. NC2154.2 003700 ALPHABET NC2154.2 003800 THE-WILD-ONE IS "A" THRU "H" "I" ALSO "J", ALSO "K", ALSO NC2154.2 003900 "L" ALSO "M" ALSO "N" "O" THROUGH "Z" "0" THRU "9", NC2154.2 004000* NC2154.2 004100* NC2154.2 004200*ALPHABET-TEST-10 ***** THE WHOLE ALPHABET IS ONE LITERAL NC2154.2 004300* WITH ALL 51 CHARACTERS IN THE COBOL CHARACTER SET. TEST-10 NC2154.2 004400* IS ONLY A SYNTAX CHECK ON NC2154.2 004500* ALPHABET-NAME IS LITERAL. NC2154.2 004600* NC2154.2 004700* NC2154.2 004800 ALPHABET NC2154.2 004900 THE-BIG-OL-LITERAL-ALPHABET IS "A+0B-1C*2D/3E=4Fl5G,6H;7I.8J"NC2154.2 005000- "9K(L)M>N 005100* NC2154.2 005200* NC2154.2 005300 INPUT-OUTPUT SECTION. NC2154.2 005400 FILE-CONTROL. NC2154.2 005500 SELECT PRINT-FILE ASSIGN TO NC2154.2 005600 "C0085" . NC2154.2 005700 DATA DIVISION. NC2154.2 005800 FILE SECTION. NC2154.2 005900 FD PRINT-FILE. NC2154.2 006000 01 PRINT-REC PICTURE X(120). NC2154.2 006100 01 DUMMY-RECORD PICTURE X(120). NC2154.2 006200 WORKING-STORAGE SECTION. NC2154.2 006300 01 A-AN-1 PIC A VALUE "A". NC2154.2 006400 01 B-AN-1 PIC A VALUE "B". NC2154.2 006500 01 H-AN-1 PIC A VALUE "H". NC2154.2 006600 01 I-AN-1 PIC A VALUE "I". NC2154.2 006700 01 J-AN-1 PIC A VALUE "J". NC2154.2 006800 01 K-AN-1 PIC A VALUE "K". NC2154.2 006900 01 L-AN-1 PIC A VALUE "L". NC2154.2 007000 01 M-AN-1 PIC A VALUE "M". NC2154.2 007100 01 N-AN-1 PIC A VALUE "N". NC2154.2 007200 01 O-AN-1 PIC A VALUE "O". NC2154.2 007300 01 ZERO-DU-9V0-1 PIC 9 VALUE ZERO. NC2154.2 007400 01 NINE-DU-9V0-1 PIC 9 VALUE 9. NC2154.2 007500 01 TEST-RESULTS. NC2154.2 007600 02 FILLER PIC X VALUE SPACE. NC2154.2 007700 02 FEATURE PIC X(20) VALUE SPACE. NC2154.2 007800 02 FILLER PIC X VALUE SPACE. NC2154.2 007900 02 P-OR-F PIC X(5) VALUE SPACE. NC2154.2 008000 02 FILLER PIC X VALUE SPACE. NC2154.2 008100 02 PAR-NAME. NC2154.2 008200 03 FILLER PIC X(19) VALUE SPACE. NC2154.2 008300 03 PARDOT-X PIC X VALUE SPACE. NC2154.2 008400 03 DOTVALUE PIC 99 VALUE ZERO. NC2154.2 008500 02 FILLER PIC X(8) VALUE SPACE. NC2154.2 008600 02 RE-MARK PIC X(61). NC2154.2 008700 01 TEST-COMPUTED. NC2154.2 008800 02 FILLER PIC X(30) VALUE SPACE. NC2154.2 008900 02 FILLER PIC X(17) VALUE NC2154.2 009000 " COMPUTED=". NC2154.2 009100 02 COMPUTED-X. NC2154.2 009200 03 COMPUTED-A PIC X(20) VALUE SPACE. NC2154.2 009300 03 COMPUTED-N REDEFINES COMPUTED-A NC2154.2 009400 PIC -9(9).9(9). NC2154.2 009500 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC2154.2 009600 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). NC2154.2 009700 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC2154.2 009800 03 CM-18V0 REDEFINES COMPUTED-A. NC2154.2 009900 04 COMPUTED-18V0 PIC -9(18). NC2154.2 010000 04 FILLER PIC X. NC2154.2 010100 03 FILLER PIC X(50) VALUE SPACE. NC2154.2 010200 01 TEST-CORRECT. NC2154.2 010300 02 FILLER PIC X(30) VALUE SPACE. NC2154.2 010400 02 FILLER PIC X(17) VALUE " CORRECT =". NC2154.2 010500 02 CORRECT-X. NC2154.2 010600 03 CORRECT-A PIC X(20) VALUE SPACE. NC2154.2 010700 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). NC2154.2 010800 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). NC2154.2 010900 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC2154.2 011000 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). NC2154.2 011100 03 CR-18V0 REDEFINES CORRECT-A. NC2154.2 011200 04 CORRECT-18V0 PIC -9(18). NC2154.2 011300 04 FILLER PIC X. NC2154.2 011400 03 FILLER PIC X(2) VALUE SPACE. NC2154.2 011500 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC2154.2 011600 01 CCVS-C-1. NC2154.2 011700 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC2154.2 011800- "SS PARAGRAPH-NAME NC2154.2 011900- " REMARKS". NC2154.2 012000 02 FILLER PIC X(20) VALUE SPACE. NC2154.2 012100 01 CCVS-C-2. NC2154.2 012200 02 FILLER PIC X VALUE SPACE. NC2154.2 012300 02 FILLER PIC X(6) VALUE "TESTED". NC2154.2 012400 02 FILLER PIC X(15) VALUE SPACE. NC2154.2 012500 02 FILLER PIC X(4) VALUE "FAIL". NC2154.2 012600 02 FILLER PIC X(94) VALUE SPACE. NC2154.2 012700 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC2154.2 012800 01 REC-CT PIC 99 VALUE ZERO. NC2154.2 012900 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC2154.2 013000 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC2154.2 013100 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC2154.2 013200 01 PASS-COUNTER PIC 999 VALUE ZERO. NC2154.2 013300 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC2154.2 013400 01 ERROR-HOLD PIC 999 VALUE ZERO. NC2154.2 013500 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC2154.2 013600 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC2154.2 013700 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC2154.2 013800 01 CCVS-H-1. NC2154.2 013900 02 FILLER PIC X(39) VALUE SPACES. NC2154.2 014000 02 FILLER PIC X(42) VALUE NC2154.2 014100 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2154.2 014200 02 FILLER PIC X(39) VALUE SPACES. NC2154.2 014300 01 CCVS-H-2A. NC2154.2 014400 02 FILLER PIC X(40) VALUE SPACE. NC2154.2 014500 02 FILLER PIC X(7) VALUE "CCVS85 ". NC2154.2 014600 02 FILLER PIC XXXX VALUE NC2154.2 014700 "4.2 ". NC2154.2 014800 02 FILLER PIC X(28) VALUE NC2154.2 014900 " COPY - NOT FOR DISTRIBUTION". NC2154.2 015000 02 FILLER PIC X(41) VALUE SPACE. NC2154.2 015100 NC2154.2 015200 01 CCVS-H-2B. NC2154.2 015300 02 FILLER PIC X(15) VALUE NC2154.2 015400 "TEST RESULT OF ". NC2154.2 015500 02 TEST-ID PIC X(9). NC2154.2 015600 02 FILLER PIC X(4) VALUE NC2154.2 015700 " IN ". NC2154.2 015800 02 FILLER PIC X(12) VALUE NC2154.2 015900 " HIGH ". NC2154.2 016000 02 FILLER PIC X(22) VALUE NC2154.2 016100 " LEVEL VALIDATION FOR ". NC2154.2 016200 02 FILLER PIC X(58) VALUE NC2154.2 016300 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2154.2 016400 01 CCVS-H-3. NC2154.2 016500 02 FILLER PIC X(34) VALUE NC2154.2 016600 " FOR OFFICIAL USE ONLY ". NC2154.2 016700 02 FILLER PIC X(58) VALUE NC2154.2 016800 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2154.2 016900 02 FILLER PIC X(28) VALUE NC2154.2 017000 " COPYRIGHT 1985 ". NC2154.2 017100 01 CCVS-E-1. NC2154.2 017200 02 FILLER PIC X(52) VALUE SPACE. NC2154.2 017300 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC2154.2 017400 02 ID-AGAIN PIC X(9). NC2154.2 017500 02 FILLER PIC X(45) VALUE SPACES. NC2154.2 017600 01 CCVS-E-2. NC2154.2 017700 02 FILLER PIC X(31) VALUE SPACE. NC2154.2 017800 02 FILLER PIC X(21) VALUE SPACE. NC2154.2 017900 02 CCVS-E-2-2. NC2154.2 018000 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC2154.2 018100 03 FILLER PIC X VALUE SPACE. NC2154.2 018200 03 ENDER-DESC PIC X(44) VALUE NC2154.2 018300 "ERRORS ENCOUNTERED". NC2154.2 018400 01 CCVS-E-3. NC2154.2 018500 02 FILLER PIC X(22) VALUE NC2154.2 018600 " FOR OFFICIAL USE ONLY". NC2154.2 018700 02 FILLER PIC X(12) VALUE SPACE. NC2154.2 018800 02 FILLER PIC X(58) VALUE NC2154.2 018900 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2154.2 019000 02 FILLER PIC X(13) VALUE SPACE. NC2154.2 019100 02 FILLER PIC X(15) VALUE NC2154.2 019200 " COPYRIGHT 1985". NC2154.2 019300 01 CCVS-E-4. NC2154.2 019400 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC2154.2 019500 02 FILLER PIC X(4) VALUE " OF ". NC2154.2 019600 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC2154.2 019700 02 FILLER PIC X(40) VALUE NC2154.2 019800 " TESTS WERE EXECUTED SUCCESSFULLY". NC2154.2 019900 01 XXINFO. NC2154.2 020000 02 FILLER PIC X(19) VALUE NC2154.2 020100 "*** INFORMATION ***". NC2154.2 020200 02 INFO-TEXT. NC2154.2 020300 04 FILLER PIC X(8) VALUE SPACE. NC2154.2 020400 04 XXCOMPUTED PIC X(20). NC2154.2 020500 04 FILLER PIC X(5) VALUE SPACE. NC2154.2 020600 04 XXCORRECT PIC X(20). NC2154.2 020700 02 INF-ANSI-REFERENCE PIC X(48). NC2154.2 020800 01 HYPHEN-LINE. NC2154.2 020900 02 FILLER PIC IS X VALUE IS SPACE. NC2154.2 021000 02 FILLER PIC IS X(65) VALUE IS "************************NC2154.2 021100- "*****************************************". NC2154.2 021200 02 FILLER PIC IS X(54) VALUE IS "************************NC2154.2 021300- "******************************". NC2154.2 021400 01 CCVS-PGM-ID PIC X(9) VALUE NC2154.2 021500 "NC215A". NC2154.2 021600 PROCEDURE DIVISION. NC2154.2 021700 CCVS1 SECTION. NC2154.2 021800 OPEN-FILES. NC2154.2 021900 OPEN OUTPUT PRINT-FILE. NC2154.2 022000 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC2154.2 022100 MOVE SPACE TO TEST-RESULTS. NC2154.2 022200 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC2154.2 022300 GO TO CCVS1-EXIT. NC2154.2 022400 CLOSE-FILES. NC2154.2 022500 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC2154.2 022600 TERMINATE-CCVS. NC2154.2 022700 EXIT PROGRAM. NC2154.2 022800 TERMINATE-CALL. NC2154.2 022900 STOP RUN. NC2154.2 023000 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC2154.2 023100 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC2154.2 023200 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC2154.2 023300 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC2154.2 023400 MOVE "****TEST DELETED****" TO RE-MARK. NC2154.2 023500 PRINT-DETAIL. NC2154.2 023600 IF REC-CT NOT EQUAL TO ZERO NC2154.2 023700 MOVE "." TO PARDOT-X NC2154.2 023800 MOVE REC-CT TO DOTVALUE. NC2154.2 023900 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC2154.2 024000 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC2154.2 024100 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC2154.2 024200 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC2154.2 024300 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC2154.2 024400 MOVE SPACE TO CORRECT-X. NC2154.2 024500 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC2154.2 024600 MOVE SPACE TO RE-MARK. NC2154.2 024700 HEAD-ROUTINE. NC2154.2 024800 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2154.2 024900 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2154.2 025000 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2154.2 025100 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2154.2 025200 COLUMN-NAMES-ROUTINE. NC2154.2 025300 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2154.2 025400 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2154.2 025500 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2154.2 025600 END-ROUTINE. NC2154.2 025700 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2154.2 025800 END-RTN-EXIT. NC2154.2 025900 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2154.2 026000 END-ROUTINE-1. NC2154.2 026100 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC2154.2 026200 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC2154.2 026300 ADD PASS-COUNTER TO ERROR-HOLD. NC2154.2 026400* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC2154.2 026500 MOVE PASS-COUNTER TO CCVS-E-4-1. NC2154.2 026600 MOVE ERROR-HOLD TO CCVS-E-4-2. NC2154.2 026700 MOVE CCVS-E-4 TO CCVS-E-2-2. NC2154.2 026800 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC2154.2 026900 END-ROUTINE-12. NC2154.2 027000 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC2154.2 027100 IF ERROR-COUNTER IS EQUAL TO ZERO NC2154.2 027200 MOVE "NO " TO ERROR-TOTAL NC2154.2 027300 ELSE NC2154.2 027400 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC2154.2 027500 MOVE CCVS-E-2 TO DUMMY-RECORD. NC2154.2 027600 PERFORM WRITE-LINE. NC2154.2 027700 END-ROUTINE-13. NC2154.2 027800 IF DELETE-COUNTER IS EQUAL TO ZERO NC2154.2 027900 MOVE "NO " TO ERROR-TOTAL ELSE NC2154.2 028000 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC2154.2 028100 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC2154.2 028200 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2154.2 028300 IF INSPECT-COUNTER EQUAL TO ZERO NC2154.2 028400 MOVE "NO " TO ERROR-TOTAL NC2154.2 028500 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC2154.2 028600 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC2154.2 028700 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2154.2 028800 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2154.2 028900 WRITE-LINE. NC2154.2 029000 ADD 1 TO RECORD-COUNT. NC2154.2 029100 IF RECORD-COUNT GREATER 50 NC2154.2 029200 MOVE DUMMY-RECORD TO DUMMY-HOLD NC2154.2 029300 MOVE SPACE TO DUMMY-RECORD NC2154.2 029400 WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC2154.2 029500 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC2154.2 029600 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC2154.2 029700 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC2154.2 029800 MOVE DUMMY-HOLD TO DUMMY-RECORD NC2154.2 029900 MOVE ZERO TO RECORD-COUNT. NC2154.2 030000 PERFORM WRT-LN. NC2154.2 030100 WRT-LN. NC2154.2 030200 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC2154.2 030300 MOVE SPACE TO DUMMY-RECORD. NC2154.2 030400 BLANK-LINE-PRINT. NC2154.2 030500 PERFORM WRT-LN. NC2154.2 030600 FAIL-ROUTINE. NC2154.2 030700 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2154.2 030800 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2154.2 030900 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2154.2 031000 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC2154.2 031100 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2154.2 031200 MOVE SPACES TO INF-ANSI-REFERENCE. NC2154.2 031300 GO TO FAIL-ROUTINE-EX. NC2154.2 031400 FAIL-ROUTINE-WRITE. NC2154.2 031500 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC2154.2 031600 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC2154.2 031700 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2154.2 031800 MOVE SPACES TO COR-ANSI-REFERENCE. NC2154.2 031900 FAIL-ROUTINE-EX. EXIT. NC2154.2 032000 BAIL-OUT. NC2154.2 032100 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC2154.2 032200 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC2154.2 032300 BAIL-OUT-WRITE. NC2154.2 032400 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC2154.2 032500 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2154.2 032600 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2154.2 032700 MOVE SPACES TO INF-ANSI-REFERENCE. NC2154.2 032800 BAIL-OUT-EX. EXIT. NC2154.2 032900 CCVS1-EXIT. NC2154.2 033000 EXIT. NC2154.2 033100 SECT-NC215A-001 SECTION. NC2154.2 033200 SEQ-INIT-GF-1. NC2154.2 033300 MOVE "SEQ-TEST-GF-1" TO PAR-NAME. NC2154.2 033400 MOVE "VI-15 4.5.4 GR4(D)" TO ANSI-REFERENCE. NC2154.2 033500 MOVE "A = LOW-VALUE" TO FEATURE. NC2154.2 033600 MOVE "A" TO A-AN-1. NC2154.2 033700 SEQ-TEST-GF-1. NC2154.2 033800 IF A-AN-1 EQUAL TO LOW-VALUE PERFORM PASS NC2154.2 033900 ELSE NC2154.2 034000 GO TO SEQ-FAIL-GF-1. NC2154.2 034100 GO TO SEQ-WRITE-GF-1. NC2154.2 034200 SEQ-DELETE-GF-1. NC2154.2 034300 PERFORM DE-LETE. NC2154.2 034400 GO TO SEQ-WRITE-GF-1. NC2154.2 034500 SEQ-FAIL-GF-1. NC2154.2 034600 MOVE "A NOT = LOW-VALUE" TO COMPUTED-A. NC2154.2 034700 PERFORM FAIL. NC2154.2 034800 SEQ-WRITE-GF-1. NC2154.2 034900 PERFORM PRINT-DETAIL. NC2154.2 035000* NC2154.2 035100 SEQ-INIT-GF-2. NC2154.2 035200 MOVE "SEQ-TEST-GF-2" TO PAR-NAME. NC2154.2 035300 MOVE "VI-15 4.5.4 GR4(D)" TO ANSI-REFERENCE. NC2154.2 035400 MOVE "H I J B SEQUENCE" TO FEATURE. NC2154.2 035500 MOVE "H" TO H-AN-1. NC2154.2 035600 MOVE "I" TO I-AN-1. NC2154.2 035700 MOVE "J" TO J-AN-1. NC2154.2 035800 MOVE "B" TO B-AN-1. NC2154.2 035900 SEQ-TEST-GF-2. NC2154.2 036000 IF H-AN-1 < I-AN-1 AND J-AN-1 > B-AN-1 PERFORM PASS NC2154.2 036100 ELSE NC2154.2 036200 GO TO SEQ-FAIL-GF-2. NC2154.2 036300 GO TO SEQ-WRITE-GF-2. NC2154.2 036400 SEQ-DELETE-GF-2. NC2154.2 036500 PERFORM DE-LETE. NC2154.2 036600 GO TO SEQ-WRITE-GF-2. NC2154.2 036700 SEQ-FAIL-GF-2. NC2154.2 036800 MOVE "H I J B NOT SEQUENCED" TO COMPUTED-A. NC2154.2 036900 PERFORM FAIL. NC2154.2 037000 SEQ-WRITE-GF-2. NC2154.2 037100 PERFORM PRINT-DETAIL. NC2154.2 037200* NC2154.2 037300 SEQ-INIT-GF-3. NC2154.2 037400 MOVE "SEQ-TEST-GF-3" TO PAR-NAME. NC2154.2 037500 MOVE "VI-15 4.5.4 GR4(D)" TO ANSI-REFERENCE. NC2154.2 037600 MOVE "I J K L M N EQUAL" TO FEATURE. NC2154.2 037700 MOVE "I" TO I-AN-1. NC2154.2 037800 MOVE "J" TO J-AN-1. NC2154.2 037900 MOVE "K" TO K-AN-1. NC2154.2 038000 MOVE "L" TO L-AN-1. NC2154.2 038100 MOVE "M" TO M-AN-1. NC2154.2 038200 MOVE "N" TO N-AN-1. NC2154.2 038300 SEQ-TEST-GF-3. NC2154.2 038400 IF I-AN-1 = J-AN-1 AND K-AN-1 AND L-AN-1 AND M-AN-1 NC2154.2 038500 AND N-AN-1 PERFORM PASS NC2154.2 038600 ELSE NC2154.2 038700 GO TO SEQ-FAIL-GF-3. NC2154.2 038800 GO TO SEQ-WRITE-GF-3. NC2154.2 038900 SEQ-DELETE-GF-3. NC2154.2 039000 PERFORM DE-LETE. NC2154.2 039100 GO TO SEQ-WRITE-GF-3. NC2154.2 039200 SEQ-FAIL-GF-3. NC2154.2 039300 MOVE "I J K L M N NOT =" TO COMPUTED-A. NC2154.2 039400 PERFORM FAIL. NC2154.2 039500 SEQ-WRITE-GF-3. NC2154.2 039600 PERFORM PRINT-DETAIL. NC2154.2 039700* NC2154.2 039800 SEQ-INIT-GF-4. NC2154.2 039900 MOVE "SEQ-TEST-GF-4" TO PAR-NAME. NC2154.2 040000 MOVE "VI-15 4.5.4 GR4(D)" TO ANSI-REFERENCE. NC2154.2 040100 MOVE "O > THAN N" TO FEATURE. NC2154.2 040200 MOVE "O" TO O-AN-1. NC2154.2 040300 MOVE "N" TO N-AN-1. NC2154.2 040400 SEQ-TEST-GF-4. NC2154.2 040500 IF O-AN-1 > N-AN-1 PERFORM PASS NC2154.2 040600 ELSE NC2154.2 040700 GO TO SEQ-FAIL-GF-4. NC2154.2 040800 GO TO SEQ-WRITE-GF-4. NC2154.2 040900 SEQ-DELETE-GF-4. NC2154.2 041000 PERFORM DE-LETE. NC2154.2 041100 GO TO SEQ-WRITE-GF-4. NC2154.2 041200 SEQ-FAIL-GF-4. NC2154.2 041300 MOVE "O NOT > THAN N" TO COMPUTED-A. NC2154.2 041400 PERFORM FAIL. NC2154.2 041500 SEQ-WRITE-GF-4. NC2154.2 041600 PERFORM PRINT-DETAIL. NC2154.2 041700* NC2154.2 041800 SEQ-INIT-GF-5. NC2154.2 041900 MOVE "SEQ-TEST-GF-5" TO PAR-NAME. NC2154.2 042000 MOVE "VI-15 4.5.4 GR4(D)" TO ANSI-REFERENCE. NC2154.2 042100 MOVE "A < THAN ZERO" TO FEATURE. NC2154.2 042200 MOVE "A" TO A-AN-1. NC2154.2 042300 MOVE ZERO TO ZERO-DU-9V0-1. NC2154.2 042400 SEQ-TEST-GF-5. NC2154.2 042500 IF A-AN-1 < ZERO-DU-9V0-1 PERFORM PASS NC2154.2 042600 ELSE NC2154.2 042700 GO TO SEQ-FAIL-GF-5. NC2154.2 042800 GO TO SEQ-WRITE-GF-5. NC2154.2 042900 SEQ-DELETE-GF-5. NC2154.2 043000 PERFORM DE-LETE. NC2154.2 043100 GO TO SEQ-WRITE-GF-5. NC2154.2 043200 SEQ-FAIL-GF-5. NC2154.2 043300 MOVE "A FOUND > THAN ZERO" TO COMPUTED-A. NC2154.2 043400 PERFORM FAIL. NC2154.2 043500 SEQ-WRITE-GF-5. NC2154.2 043600 PERFORM PRINT-DETAIL. NC2154.2 043700* NC2154.2 043800 SEQ-INIT-GF-6. NC2154.2 043900 MOVE "SEQ-TEST-GF-6" TO PAR-NAME. NC2154.2 044000 MOVE "VI-15 4.5.4 GR4(D)" TO ANSI-REFERENCE. NC2154.2 044100 MOVE "NINE < THAN SPACE" TO FEATURE. NC2154.2 044200 MOVE 9 TO NINE-DU-9V0-1. NC2154.2 044300 SEQ-TEST-GF-6. NC2154.2 044400 IF NINE-DU-9V0-1 < SPACE PERFORM PASS NC2154.2 044500 ELSE NC2154.2 044600 GO TO SEQ-FAIL-GF-6. NC2154.2 044700 GO TO SEQ-WRITE-GF-6. NC2154.2 044800 SEQ-DELETE-GF-6. NC2154.2 044900 PERFORM DE-LETE. NC2154.2 045000 GO TO SEQ-WRITE-GF-6. NC2154.2 045100 SEQ-FAIL-GF-6. NC2154.2 045200 MOVE "9 FOUND > THAN SPACE" TO COMPUTED-A. NC2154.2 045300 PERFORM FAIL. NC2154.2 045400 SEQ-WRITE-GF-6. NC2154.2 045500 PERFORM PRINT-DETAIL. NC2154.2 045600* NC2154.2 045700 SEQ-INIT-GF-7. NC2154.2 045800 MOVE "SEQ-TEST-GF-7" TO PAR-NAME. NC2154.2 045900 MOVE "VI-15 4.5.4 GR4(D)" TO ANSI-REFERENCE. NC2154.2 046000 MOVE "NINE < THAN QUOTE" TO FEATURE. NC2154.2 046100 MOVE 9 TO NINE-DU-9V0-1. NC2154.2 046200 SEQ-TEST-GF-7. NC2154.2 046300 IF NINE-DU-9V0-1 < QUOTE PERFORM PASS NC2154.2 046400 ELSE NC2154.2 046500 GO TO SEQ-FAIL-GF-7. NC2154.2 046600 GO TO SEQ-WRITE-GF-7. NC2154.2 046700 SEQ-DELETE-GF-7. NC2154.2 046800 PERFORM DE-LETE. NC2154.2 046900 GO TO SEQ-WRITE-GF-7. NC2154.2 047000 SEQ-FAIL-GF-7. NC2154.2 047100 MOVE "NINE FOUND > QUOTE" TO COMPUTED-A. NC2154.2 047200 PERFORM FAIL. NC2154.2 047300 SEQ-WRITE-GF-7. NC2154.2 047400 PERFORM PRINT-DETAIL. NC2154.2 047500* NC2154.2 047600 ALPHABET-TEST-10. NC2154.2 047700 PERFORM END-ROUTINE. NC2154.2 047800 MOVE " ALPHABET-NAME ***** CHECK THE ALPHABET-NAMENC2154.2 047900- " IN THE SPECIAL-NAMES PARAGRAPH" TO TEST-RESULTS. NC2154.2 048000 PERFORM PRINT-DETAIL. NC2154.2 048100 CCVS-EXIT SECTION. NC2154.2 048200 CCVS-999999. NC2154.2 048300 GO TO CLOSE-FILES. NC2154.2 ¤ Dauer der Verarbeitung: 0.12 Sekunden (vorverarbeitet) ¤ |
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:Die farbliche Syntaxdarstellung ist noch experimentell.Bot Zugriff |
