| products/sources/formale sprachen/Cobol/Test-Suite/COBOL/SM/ |
|
Quellcode-Bibliothek© Kompilation durch diese Firma[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]Datei: mpa012.cob Sprache: Scala |
|
||||||
|
000100 IDENTIFICATION DIVISION. SM2044.2
000200 PROGRAM-ID. SM2044.2 000300 SM204A. SM2044.2 000400**************************************************************** SM2044.2 000500* * SM2044.2 000600* VALIDATION FOR:- * SM2044.2 000700* * SM2044.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SM2044.2 000900* * SM2044.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SM2044.2 001100* * SM2044.2 001200**************************************************************** SM2044.2 001300* * SM2044.2 001400* X-CARDS USED BY THIS PROGRAM ARE :- * SM2044.2 001500* * SM2044.2 001600* X-55 - SYSTEM PRINTER NAME. * SM2044.2 001700* X-82 - SOURCE COMPUTER NAME. * SM2044.2 001800* X-83 - OBJECT COMPUTER NAME. * SM2044.2 001900* * SM2044.2 002000**************************************************************** SM2044.2 002100* * SM2044.2 002200* SM204A CHECKS THE FILE PRODUCED BY PROGRAM SM203A TO * SM2044.2 002300* VERIFY THE PROPER EXECUTION OF THE "COPY"ED STATEMENTS * SM2044.2 002400* IN THAT PROGRAM'S ENVIRONMENT DIVISION. * SM2044.2 002500* * SM2044.2 002600**************************************************************** SM2044.2 002700 ENVIRONMENT DIVISION. SM2044.2 002800 CONFIGURATION SECTION. SM2044.2 002900 SOURCE-COMPUTER. SM2044.2 003000 Card0130. SM2044.2 003100 OBJECT-COMPUTER. SM2044.2 003200 Card0131. SM2044.2 003300 INPUT-OUTPUT SECTION. SM2044.2 003400 FILE-CONTROL. SM2044.2 003500 SELECT PRINT-FILE ASSIGN TO SM2044.2 003600 "C0085" . SM2044.2 003700 SELECT TEST-FILE ASSIGN TO SM2044.2 003800* THE FOLLOWING LINE WILL BE CHANGED BY TPF ONLY WHEN THE SM2044.2 003900* PROGRAM-ID IS PART OF THE REPLACEMENT BY THE X-CARD SM2044.2 004000* DURING EXTRACTION. SM2044.2 004100 XXXXD002. SM2044.2 004200 DATA DIVISION. SM2044.2 004300 FILE SECTION. SM2044.2 004400 FD PRINT-FILE. SM2044.2 004500 01 PRINT-REC PICTURE X(120). SM2044.2 004600 01 DUMMY-RECORD PICTURE X(120). SM2044.2 004700 FD TEST-FILE SM2044.2 004800 LABEL RECORD STANDARD SM2044.2 004900 VALUE OF SM2044.2 005000 Impl1 SM2044.2 005100 IS SM2044.2 005200 4711 SM2044.2 005300 SM2044.2 005400 DATA RECORD PROOF-REC. SM2044.2 005500 01 PROOF-REC. SM2044.2 005600 02 TF-1 PICTURE 9(5). SM2044.2 005700 02 FILLER PICTURE X(115). SM2044.2 005800 WORKING-STORAGE SECTION. SM2044.2 005900 01 TEST-RESULTS. SM2044.2 006000 02 FILLER PIC X VALUE SPACE. SM2044.2 006100 02 FEATURE PIC X(20) VALUE SPACE. SM2044.2 006200 02 FILLER PIC X VALUE SPACE. SM2044.2 006300 02 P-OR-F PIC X(5) VALUE SPACE. SM2044.2 006400 02 FILLER PIC X VALUE SPACE. SM2044.2 006500 02 PAR-NAME. SM2044.2 006600 03 FILLER PIC X(19) VALUE SPACE. SM2044.2 006700 03 PARDOT-X PIC X VALUE SPACE. SM2044.2 006800 03 DOTVALUE PIC 99 VALUE ZERO. SM2044.2 006900 02 FILLER PIC X(8) VALUE SPACE. SM2044.2 007000 02 RE-MARK PIC X(61). SM2044.2 007100 01 TEST-COMPUTED. SM2044.2 007200 02 FILLER PIC X(30) VALUE SPACE. SM2044.2 007300 02 FILLER PIC X(17) VALUE SM2044.2 007400 " COMPUTED=". SM2044.2 007500 02 COMPUTED-X. SM2044.2 007600 03 COMPUTED-A PIC X(20) VALUE SPACE. SM2044.2 007700 03 COMPUTED-N REDEFINES COMPUTED-A SM2044.2 007800 PIC -9(9).9(9). SM2044.2 007900 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). SM2044.2 008000 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). SM2044.2 008100 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). SM2044.2 008200 03 CM-18V0 REDEFINES COMPUTED-A. SM2044.2 008300 04 COMPUTED-18V0 PIC -9(18). SM2044.2 008400 04 FILLER PIC X. SM2044.2 008500 03 FILLER PIC X(50) VALUE SPACE. SM2044.2 008600 01 TEST-CORRECT. SM2044.2 008700 02 FILLER PIC X(30) VALUE SPACE. SM2044.2 008800 02 FILLER PIC X(17) VALUE " CORRECT =". SM2044.2 008900 02 CORRECT-X. SM2044.2 009000 03 CORRECT-A PIC X(20) VALUE SPACE. SM2044.2 009100 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). SM2044.2 009200 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). SM2044.2 009300 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). SM2044.2 009400 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). SM2044.2 009500 03 CR-18V0 REDEFINES CORRECT-A. SM2044.2 009600 04 CORRECT-18V0 PIC -9(18). SM2044.2 009700 04 FILLER PIC X. SM2044.2 009800 03 FILLER PIC X(2) VALUE SPACE. SM2044.2 009900 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. SM2044.2 010000 01 CCVS-C-1. SM2044.2 010100 02 FILLER PIC IS X(99) VALUE IS " FEATURE PASM2044.2 010200- "SS PARAGRAPH-NAME SM2044.2 010300- " REMARKS". SM2044.2 010400 02 FILLER PIC X(20) VALUE SPACE. SM2044.2 010500 01 CCVS-C-2. SM2044.2 010600 02 FILLER PIC X VALUE SPACE. SM2044.2 010700 02 FILLER PIC X(6) VALUE "TESTED". SM2044.2 010800 02 FILLER PIC X(15) VALUE SPACE. SM2044.2 010900 02 FILLER PIC X(4) VALUE "FAIL". SM2044.2 011000 02 FILLER PIC X(94) VALUE SPACE. SM2044.2 011100 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. SM2044.2 011200 01 REC-CT PIC 99 VALUE ZERO. SM2044.2 011300 01 DELETE-COUNTER PIC 999 VALUE ZERO. SM2044.2 011400 01 ERROR-COUNTER PIC 999 VALUE ZERO. SM2044.2 011500 01 INSPECT-COUNTER PIC 999 VALUE ZERO. SM2044.2 011600 01 PASS-COUNTER PIC 999 VALUE ZERO. SM2044.2 011700 01 TOTAL-ERROR PIC 999 VALUE ZERO. SM2044.2 011800 01 ERROR-HOLD PIC 999 VALUE ZERO. SM2044.2 011900 01 DUMMY-HOLD PIC X(120) VALUE SPACE. SM2044.2 012000 01 RECORD-COUNT PIC 9(5) VALUE ZERO. SM2044.2 012100 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. SM2044.2 012200 01 CCVS-H-1. SM2044.2 012300 02 FILLER PIC X(39) VALUE SPACES. SM2044.2 012400 02 FILLER PIC X(42) VALUE SM2044.2 012500 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". SM2044.2 012600 02 FILLER PIC X(39) VALUE SPACES. SM2044.2 012700 01 CCVS-H-2A. SM2044.2 012800 02 FILLER PIC X(40) VALUE SPACE. SM2044.2 012900 02 FILLER PIC X(7) VALUE "CCVS85 ". SM2044.2 013000 02 FILLER PIC XXXX VALUE SM2044.2 013100 "4.2 ". SM2044.2 013200 02 FILLER PIC X(28) VALUE SM2044.2 013300 " COPY - NOT FOR DISTRIBUTION". SM2044.2 013400 02 FILLER PIC X(41) VALUE SPACE. SM2044.2 013500 SM2044.2 013600 01 CCVS-H-2B. SM2044.2 013700 02 FILLER PIC X(15) VALUE SM2044.2 013800 "TEST RESULT OF ". SM2044.2 013900 02 TEST-ID PIC X(9). SM2044.2 014000 02 FILLER PIC X(4) VALUE SM2044.2 014100 " IN ". SM2044.2 014200 02 FILLER PIC X(12) VALUE SM2044.2 014300 " HIGH ". SM2044.2 014400 02 FILLER PIC X(22) VALUE SM2044.2 014500 " LEVEL VALIDATION FOR ". SM2044.2 014600 02 FILLER PIC X(58) VALUE SM2044.2 014700 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SM2044.2 014800 01 CCVS-H-3. SM2044.2 014900 02 FILLER PIC X(34) VALUE SM2044.2 015000 " FOR OFFICIAL USE ONLY ". SM2044.2 015100 02 FILLER PIC X(58) VALUE SM2044.2 015200 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SM2044.2 015300 02 FILLER PIC X(28) VALUE SM2044.2 015400 " COPYRIGHT 1985 ". SM2044.2 015500 01 CCVS-E-1. SM2044.2 015600 02 FILLER PIC X(52) VALUE SPACE. SM2044.2 015700 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". SM2044.2 015800 02 ID-AGAIN PIC X(9). SM2044.2 015900 02 FILLER PIC X(45) VALUE SPACES. SM2044.2 016000 01 CCVS-E-2. SM2044.2 016100 02 FILLER PIC X(31) VALUE SPACE. SM2044.2 016200 02 FILLER PIC X(21) VALUE SPACE. SM2044.2 016300 02 CCVS-E-2-2. SM2044.2 016400 03 ERROR-TOTAL PIC XXX VALUE SPACE. SM2044.2 016500 03 FILLER PIC X VALUE SPACE. SM2044.2 016600 03 ENDER-DESC PIC X(44) VALUE SM2044.2 016700 "ERRORS ENCOUNTERED". SM2044.2 016800 01 CCVS-E-3. SM2044.2 016900 02 FILLER PIC X(22) VALUE SM2044.2 017000 " FOR OFFICIAL USE ONLY". SM2044.2 017100 02 FILLER PIC X(12) VALUE SPACE. SM2044.2 017200 02 FILLER PIC X(58) VALUE SM2044.2 017300 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SM2044.2 017400 02 FILLER PIC X(13) VALUE SPACE. SM2044.2 017500 02 FILLER PIC X(15) VALUE SM2044.2 017600 " COPYRIGHT 1985". SM2044.2 017700 01 CCVS-E-4. SM2044.2 017800 02 CCVS-E-4-1 PIC XXX VALUE SPACE. SM2044.2 017900 02 FILLER PIC X(4) VALUE " OF ". SM2044.2 018000 02 CCVS-E-4-2 PIC XXX VALUE SPACE. SM2044.2 018100 02 FILLER PIC X(40) VALUE SM2044.2 018200 " TESTS WERE EXECUTED SUCCESSFULLY". SM2044.2 018300 01 XXINFO. SM2044.2 018400 02 FILLER PIC X(19) VALUE SM2044.2 018500 "*** INFORMATION ***". SM2044.2 018600 02 INFO-TEXT. SM2044.2 018700 04 FILLER PIC X(8) VALUE SPACE. SM2044.2 018800 04 XXCOMPUTED PIC X(20). SM2044.2 018900 04 FILLER PIC X(5) VALUE SPACE. SM2044.2 019000 04 XXCORRECT PIC X(20). SM2044.2 019100 02 INF-ANSI-REFERENCE PIC X(48). SM2044.2 019200 01 HYPHEN-LINE. SM2044.2 019300 02 FILLER PIC IS X VALUE IS SPACE. SM2044.2 019400 02 FILLER PIC IS X(65) VALUE IS "************************SM2044.2 019500- "*****************************************". SM2044.2 019600 02 FILLER PIC IS X(54) VALUE IS "************************SM2044.2 019700- "******************************". SM2044.2 019800 01 CCVS-PGM-ID PIC X(9) VALUE SM2044.2 019900 "SM204A". SM2044.2 020000 PROCEDURE DIVISION. SM2044.2 020100 CCVS1 SECTION. SM2044.2 020200 OPEN-FILES. SM2044.2 020300 OPEN OUTPUT PRINT-FILE. SM2044.2 020400 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. SM2044.2 020500 MOVE SPACE TO TEST-RESULTS. SM2044.2 020600 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. SM2044.2 020700 GO TO CCVS1-EXIT. SM2044.2 020800 CLOSE-FILES. SM2044.2 020900 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. SM2044.2 021000 TERMINATE-CCVS. SM2044.2 021100 EXIT PROGRAM. SM2044.2 021200 TERMINATE-CALL. SM2044.2 021300 STOP RUN. SM2044.2 021400 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. SM2044.2 021500 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. SM2044.2 021600 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. SM2044.2 021700 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. SM2044.2 021800 MOVE "****TEST DELETED****" TO RE-MARK. SM2044.2 021900 PRINT-DETAIL. SM2044.2 022000 IF REC-CT NOT EQUAL TO ZERO SM2044.2 022100 MOVE "." TO PARDOT-X SM2044.2 022200 MOVE REC-CT TO DOTVALUE. SM2044.2 022300 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. SM2044.2 022400 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE SM2044.2 022500 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX SM2044.2 022600 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. SM2044.2 022700 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. SM2044.2 022800 MOVE SPACE TO CORRECT-X. SM2044.2 022900 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. SM2044.2 023000 MOVE SPACE TO RE-MARK. SM2044.2 023100 HEAD-ROUTINE. SM2044.2 023200 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SM2044.2 023300 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SM2044.2 023400 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. SM2044.2 023500 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. SM2044.2 023600 COLUMN-NAMES-ROUTINE. SM2044.2 023700 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. SM2044.2 023800 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SM2044.2 023900 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. SM2044.2 024000 END-ROUTINE. SM2044.2 024100 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.SM2044.2 024200 END-RTN-EXIT. SM2044.2 024300 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SM2044.2 024400 END-ROUTINE-1. SM2044.2 024500 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO SM2044.2 024600 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. SM2044.2 024700 ADD PASS-COUNTER TO ERROR-HOLD. SM2044.2 024800* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. SM2044.2 024900 MOVE PASS-COUNTER TO CCVS-E-4-1. SM2044.2 025000 MOVE ERROR-HOLD TO CCVS-E-4-2. SM2044.2 025100 MOVE CCVS-E-4 TO CCVS-E-2-2. SM2044.2 025200 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. SM2044.2 025300 END-ROUTINE-12. SM2044.2 025400 MOVE "TEST(S) FAILED" TO ENDER-DESC. SM2044.2 025500 IF ERROR-COUNTER IS EQUAL TO ZERO SM2044.2 025600 MOVE "NO " TO ERROR-TOTAL SM2044.2 025700 ELSE SM2044.2 025800 MOVE ERROR-COUNTER TO ERROR-TOTAL. SM2044.2 025900 MOVE CCVS-E-2 TO DUMMY-RECORD. SM2044.2 026000 PERFORM WRITE-LINE. SM2044.2 026100 END-ROUTINE-13. SM2044.2 026200 IF DELETE-COUNTER IS EQUAL TO ZERO SM2044.2 026300 MOVE "NO " TO ERROR-TOTAL ELSE SM2044.2 026400 MOVE DELETE-COUNTER TO ERROR-TOTAL. SM2044.2 026500 MOVE "TEST(S) DELETED " TO ENDER-DESC. SM2044.2 026600 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. SM2044.2 026700 IF INSPECT-COUNTER EQUAL TO ZERO SM2044.2 026800 MOVE "NO " TO ERROR-TOTAL SM2044.2 026900 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. SM2044.2 027000 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. SM2044.2 027100 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. SM2044.2 027200 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. SM2044.2 027300 WRITE-LINE. SM2044.2 027400 ADD 1 TO RECORD-COUNT. SM2044.2 027500 IF RECORD-COUNT GREATER 50 SM2044.2 027600 MOVE DUMMY-RECORD TO DUMMY-HOLD SM2044.2 027700 MOVE SPACE TO DUMMY-RECORD SM2044.2 027800 WRITE DUMMY-RECORD AFTER ADVANCING PAGE SM2044.2 027900 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN SM2044.2 028000 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES SM2044.2 028100 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN SM2044.2 028200 MOVE DUMMY-HOLD TO DUMMY-RECORD SM2044.2 028300 MOVE ZERO TO RECORD-COUNT. SM2044.2 028400 PERFORM WRT-LN. SM2044.2 028500 WRT-LN. SM2044.2 028600 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. SM2044.2 028700 MOVE SPACE TO DUMMY-RECORD. SM2044.2 028800 BLANK-LINE-PRINT. SM2044.2 028900 PERFORM WRT-LN. SM2044.2 029000 FAIL-ROUTINE. SM2044.2 029100 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SM2044.2 029200 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.SM2044.2 029300 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. SM2044.2 029400 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. SM2044.2 029500 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SM2044.2 029600 MOVE SPACES TO INF-ANSI-REFERENCE. SM2044.2 029700 GO TO FAIL-ROUTINE-EX. SM2044.2 029800 FAIL-ROUTINE-WRITE. SM2044.2 029900 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE SM2044.2 030000 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. SM2044.2 030100 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. SM2044.2 030200 MOVE SPACES TO COR-ANSI-REFERENCE. SM2044.2 030300 FAIL-ROUTINE-EX. EXIT. SM2044.2 030400 BAIL-OUT. SM2044.2 030500 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. SM2044.2 030600 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. SM2044.2 030700 BAIL-OUT-WRITE. SM2044.2 030800 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. SM2044.2 030900 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. SM2044.2 031000 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SM2044.2 031100 MOVE SPACES TO INF-ANSI-REFERENCE. SM2044.2 031200 BAIL-OUT-EX. EXIT. SM2044.2 031300 CCVS1-EXIT. SM2044.2 031400 EXIT. SM2044.2 031500 INITIALIZATION SECTION. SM2044.2 031600 SM204-INIT. SM2044.2 031700 OPEN INPUT TEST-FILE. SM2044.2 031800 MOVE "ALL TESTS IN SM204A CHECK" TO RE-MARK. SM2044.2 031900 PERFORM PRINT-DETAIL. SM2044.2 032000 MOVE "OUTPUT OF SM203A." TO RE-MARK. SM2044.2 032100 PERFORM PRINT-DETAIL. SM2044.2 032200 MOVE "COPY ENV DIV REPLAC" TO FEATURE. SM2044.2 032300 COPY-TEST-2. SM2044.2 032400 PERFORM READ-TEST-FILE. SM2044.2 032500 IF TF-1 EQUAL TO 97532 SM2044.2 032600 PERFORM PASS GO TO COPY-WRITE-2. SM2044.2 032700 GO TO COPY-FAIL-2. SM2044.2 032800 COPY-DELETE-2. SM2044.2 032900 PERFORM DE-LETE. SM2044.2 033000 GO TO COPY-WRITE-2. SM2044.2 033100 COPY-FAIL-2. SM2044.2 033200 MOVE TF-1 TO COMPUTED-N. SM2044.2 033300 MOVE 97532 TO CORRECT-N. SM2044.2 033400 PERFORM FAIL. SM2044.2 033500 COPY-WRITE-2. SM2044.2 033600 MOVE "COPY-TEST-2 " TO PAR-NAME. SM2044.2 033700 PERFORM PRINT-DETAIL. SM2044.2 033800 COPY-TEST-3. SM2044.2 033900 PERFORM READ-TEST-FILE. SM2044.2 034000 IF TF-1 EQUAL TO 23479 SM2044.2 034100 PERFORM PASS GO TO COPY-WRITE-3. SM2044.2 034200 GO TO COPY-FAIL-3. SM2044.2 034300 COPY-DELETE-3. SM2044.2 034400 PERFORM DE-LETE. SM2044.2 034500 GO TO COPY-WRITE-3. SM2044.2 034600 COPY-FAIL-3. SM2044.2 034700 MOVE TF-1 TO COMPUTED-N. SM2044.2 034800 MOVE 23479 TO CORRECT-N. SM2044.2 034900 PERFORM FAIL. SM2044.2 035000 COPY-WRITE-3. SM2044.2 035100 MOVE "COPY-TEST-3 " TO PAR-NAME. SM2044.2 035200 PERFORM PRINT-DETAIL. SM2044.2 035300 COPY-TEST-4. SM2044.2 035400 PERFORM READ-TEST-FILE 3 TIMES. SM2044.2 035500 IF TF-1 EQUAL TO 14003 SM2044.2 035600 PERFORM PASS GO TO COPY-WRITE-4. SM2044.2 035700 GO TO COPY-FAIL-4. SM2044.2 035800 COPY-DELETE-4. SM2044.2 035900 PERFORM DE-LETE. SM2044.2 036000 GO TO COPY-WRITE-4. SM2044.2 036100 COPY-FAIL-4. SM2044.2 036200 MOVE TF-1 TO COMPUTED-N. SM2044.2 036300 MOVE 14003 TO CORRECT-N. SM2044.2 036400 PERFORM FAIL. SM2044.2 036500 COPY-WRITE-4. SM2044.2 036600 MOVE "COPY-TEST-4 " TO PAR-NAME. SM2044.2 036700 PERFORM PRINT-DETAIL. SM2044.2 036800 COPY-TEST-5. SM2044.2 036900 PERFORM READ-TEST-FILE 2 TIMES. SM2044.2 037000 IF TF-1 EQUAL TO 03543 SM2044.2 037100 PERFORM PASS GO TO COPY-WRITE-5. SM2044.2 037200 GO TO COPY-FAIL-5. SM2044.2 037300 COPY-DELETE-5. SM2044.2 037400 PERFORM DE-LETE. SM2044.2 037500 GO TO COPY-WRITE-5. SM2044.2 037600 COPY-FAIL-5. SM2044.2 037700 MOVE TF-1 TO COMPUTED-N. SM2044.2 037800 MOVE 03543 TO CORRECT-N. SM2044.2 037900 PERFORM FAIL. SM2044.2 038000 COPY-WRITE-5. SM2044.2 038100 MOVE "COPY SPECIAL-NAMES" TO FEATURE. SM2044.2 038200 MOVE "COPY-TEST-5 " TO PAR-NAME. SM2044.2 038300 PERFORM PRINT-DETAIL. SM2044.2 038400 CLOSE TEST-FILE. SM2044.2 038500 GO TO CCVS-EXIT. SM2044.2 038600 READ-TEST-FILE. SM2044.2 038700 READ TEST-FILE AT END GO TO BAD-FILE. SM2044.2 038800 BAD-FILE. SM2044.2 038900 PERFORM FAIL. SM2044.2 039000 MOVE "BAD-FILE" TO PAR-NAME. SM2044.2 039100 MOVE "EOF FOUND PREMATURELY" TO RE-MARK. SM2044.2 039200 PERFORM PRINT-DETAIL. SM2044.2 039300 CLOSE TEST-FILE. SM2044.2 039400 GO TO CCVS-EXIT. SM2044.2 039500 CCVS-EXIT SECTION. SM2044.2 039600 CCVS-999999. SM2044.2 039700 GO TO CLOSE-FILES. SM2044.2 ¤ Dauer der Verarbeitung: 0.30 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 |
