Quelle sm201a.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         SM2014.2
000200 PROGRAM-ID.                                                      SM2014.2
000300     SM201A.                                                      SM2014.2
000400****************************************************************  SM2014.2
000500*                                                              *  SM2014.2
000600*    VALIDATION FOR:-                                          *  SM2014.2
000700*                                                              *  SM2014.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SM2014.2
000900*                                                              *  SM2014.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".SM2014.2
001100*                                                              *  SM2014.2
001200****************************************************************  SM2014.2
001300*                                                              *  SM2014.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  SM2014.2
001500*                                                              *  SM2014.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  SM2014.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  SM2014.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  SM2014.2
001900*                                                              *  SM2014.2
002000****************************************************************  SM2014.2
002100*                                                              *  SM2014.2
002200*    PROGRAM SM201A TESTS THE "REPLACING" PHRASE OF THE "COPY" *  SM2014.2
002300*    STATEMENT IN THE WORKING-STORAGE SECTION AND              *  SM2014.2
002400*    PROCEDURE DIVISION AND PRODUCES A SEQUENTIAL OUTPUT FILE  *  SM2014.2
002500*    USING "COPY"ED CODE, WHICH IS SUBSEQUENTLY CHECKED BY     *  SM2014.2
002600*    SM202A.                                                   *  SM2014.2
002700*                                                              *  SM2014.2
002800****************************************************************  SM2014.2
002900 ENVIRONMENT DIVISION.                                            SM2014.2
003000 CONFIGURATION SECTION.                                           SM2014.2
003100 SOURCE-COMPUTER.                                                 SM2014.2
003200     Card0130.                                                    SM2014.2
003300 OBJECT-COMPUTER.                                                 SM2014.2
003400     Card0131.                                                    SM2014.2
003500 INPUT-OUTPUT SECTION.                                            SM2014.2
003600 FILE-CONTROL.                                                    SM2014.2
003700     SELECT PRINT-FILE ASSIGN TO                                  SM2014.2
003800     "C0085" .                                                    SM2014.2
003900     SELECT TEST-FILE ASSIGN TO                                   SM2014.2
004000     XXXXP001.                                                    SM2014.2
004100 DATA DIVISION.                                                   SM2014.2
004200 FILE SECTION.                                                    SM2014.2
004300 FD  PRINT-FILE.                                                  SM2014.2
004400 01  PRINT-REC PICTURE X(120).                                    SM2014.2
004500 01  DUMMY-RECORD PICTURE X(120).                                 SM2014.2
004600                                                                  SM2014.2
004700                                                                  SM2014.2
004800                                                                  SM2014.2
004900                                                                  SM2014.2
005000                                                                  SM2014.2
005100*                                                                 SM2014.2
005200*********************** COPY STATEMENT USED **********************SM2014.2
005300*                                                                 SM2014.2
005400*FD  TEST-FILE                                         COPY K1FDA SM2014.2
005500*             REPLACING                                           SM2014.2
005600*             PROOF-REC BY TST-TEST.                              SM2014.2
005700*                                                                 SM2014.2
005800******************** COPIED TEXT BEGINS BELOW ********************SM2014.2
005900 FD  TEST-FILE                                         COPY K1FDA SM2014.2
006000              REPLACING                                           SM2014.2
006100              PROOF-REC BY TST-TEST.                              SM2014.2
006200*********************** END OF COPIED TEXT ***********************SM2014.2
006300                                                                  SM2014.2
006400                                                                  SM2014.2
006500                                                                  SM2014.2
006600                                                                  SM2014.2
006700                                                                  SM2014.2
006800*                                                                 SM2014.2
006900*********************** COPY STATEMENT USED **********************SM2014.2
007000*                                                                 SM2014.2
007100*01  TST-TEST                                          COPY K101A SM2014.2
007200*             REPLACING                                           SM2014.2
007300*                       TST-FLD-1 BY TF-1.                        SM2014.2
007400*                                                                 SM2014.2
007500******************** COPIED TEXT BEGINS BELOW ********************SM2014.2
007600 01  TST-TEST                                          COPY K101A SM2014.2
007700              REPLACING                                           SM2014.2
007800                        TST-FLD-1 BY TF-1.                        SM2014.2
007900*********************** END OF COPIED TEXT ***********************SM2014.2
008000 WORKING-STORAGE SECTION.                                         SM2014.2
008100 77  RCD-1 PICTURE 9(5) VALUE 97532.                              SM2014.2
008200 77  RCD-2 PICTURE 9(5) VALUE 23479.                              SM2014.2
008300 77  RCD-3 PICTURE 9(5) VALUE 10901.                              SM2014.2
008400 77  RCD-4 PICTURE 9(5) VALUE 02734.                              SM2014.2
008500 77  RCD-5 PICTURE 9(5) VALUE 14003.                              SM2014.2
008600 77  RCD-6 PICTURE 9(5) VALUE 19922.                              SM2014.2
008700 77  RCD-7 PICTURE 9(5) VALUE 03543.                              SM2014.2
008800*                                                                 SM2014.2
008900*********************** COPY STATEMENT USED **********************SM2014.2
009000*                                                                 SM2014.2
009100*01  TEXT-TEST-1 COPY K101A                                       SM2014.2
009200*            REPLACING ==02 TST-FLD-1  PICTURE 9(5). 02 FILLER    SM2014.2
009300*                      PICTURE X(115)==                           SM2014.2
009400*            BY        ==02 FILLER PICTURE X(115).  02 TXT-FLD-1  SM2014.2
009500*                      PIC 9(5)==.                                SM2014.2
009600*                                                                 SM2014.2
009700******************** COPIED TEXT BEGINS BELOW ********************SM2014.2
009800 01  TEXT-TEST-1 COPY K101A                                       SM2014.2
009900             REPLACING ==02 TST-FLD-1  PICTURE 9(5). 02 FILLER    SM2014.2
010000                       PICTURE X(115)==                           SM2014.2
010100             BY        ==02 FILLER PICTURE X(115).  02 TXT-FLD-1  SM2014.2
010200                       PIC 9(5)==.                                SM2014.2
010300*********************** END OF COPIED TEXT ***********************SM2014.2
010400 01  WSTR-1.                                                      SM2014.2
010500     02  WSTR-1A PICTURE XXX VALUE "ABC".                         SM2014.2
010600                                                                  SM2014.2
010700                                                                  SM2014.2
010800                                                                  SM2014.2
010900                                                                  SM2014.2
011000                                                                  SM2014.2
011100 01  WSTR-2.                                                      SM2014.2
011200*                                                                 SM2014.2
011300*********************** COPY STATEMENT USED **********************SM2014.2
011400*                                                                 SM2014.2
011500*                                                      COPY K1WKA SM2014.2
011600*             REPLACING WSTR-2A BY WSTR999.                       SM2014.2
011700*                                                                 SM2014.2
011800******************** COPIED TEXT BEGINS BELOW ********************SM2014.2
011900                                                       COPY K1WKA SM2014.2
012000              REPLACING WSTR-2A BY WSTR999.                       SM2014.2
012100*********************** END OF COPIED TEXT ***********************SM2014.2
012200                                                                  SM2014.2
012300                                                                  SM2014.2
012400                                                                  SM2014.2
012500                                                                  SM2014.2
012600                                                                  SM2014.2
012700 01  WSTR-3.                                                      SM2014.2
012800*                                                                 SM2014.2
012900*********************** COPY STATEMENT USED **********************SM2014.2
013000*                                                                 SM2014.2
013100*                                                      COPY K1WKA.SM2014.2
013200*                                                                 SM2014.2
013300******************** COPIED TEXT BEGINS BELOW ********************SM2014.2
013400                                                       COPY K1WKA.SM2014.2
013500*********************** END OF COPIED TEXT ***********************SM2014.2
013600                                                                  SM2014.2
013700                                                                  SM2014.2
013800                                                                  SM2014.2
013900                                                                  SM2014.2
014000                                                                  SM2014.2
014100*                                                                 SM2014.2
014200*********************** COPY STATEMENT USED **********************SM2014.2
014300*                                                                 SM2014.2
014400*01  WSTR-4.                                           COPY K1WKB SM2014.2
014500*             REPLACING WSTR4A BY WSTR91                          SM2014.2
014600*                       WSTR4B BY WSTR92                          SM2014.2
014700*                       WSTR4C BY WSTR93.                         SM2014.2
014800*                                                                 SM2014.2
014900******************** COPIED TEXT BEGINS BELOW ********************SM2014.2
015000 01  WSTR-4.                                           COPY K1WKB SM2014.2
015100              REPLACING WSTR4A BY WSTR91                          SM2014.2
015200                        WSTR4B BY WSTR92                          SM2014.2
015300                        WSTR4C BY WSTR93.                         SM2014.2
015400*********************** END OF COPIED TEXT ***********************SM2014.2
015500                                                                  SM2014.2
015600                                                                  SM2014.2
015700                                                                  SM2014.2
015800                                                                  SM2014.2
015900                                                                  SM2014.2
016000*                                                                 SM2014.2
016100*********************** COPY STATEMENT USED **********************SM2014.2
016200*                                                                 SM2014.2
016300*01  WSTR-5.                                           COPY K1WKB.SM2014.2
016400*                                                                 SM2014.2
016500******************** COPIED TEXT BEGINS BELOW ********************SM2014.2
016600 01  WSTR-5.                                           COPY K1WKB.SM2014.2
016700*********************** END OF COPIED TEXT ***********************SM2014.2
016800 01  TEST-RESULTS.                                                SM2014.2
016900     02 FILLER                   PIC X      VALUE SPACE.          SM2014.2
017000     02 FEATURE                  PIC X(20)  VALUE SPACE.          SM2014.2
017100     02 FILLER                   PIC X      VALUE SPACE.          SM2014.2
017200     02 P-OR-F                   PIC X(5)   VALUE SPACE.          SM2014.2
017300     02 FILLER                   PIC X      VALUE SPACE.          SM2014.2
017400     02  PAR-NAME.                                                SM2014.2
017500       03 FILLER                 PIC X(19)  VALUE SPACE.          SM2014.2
017600       03  PARDOT-X              PIC X      VALUE SPACE.          SM2014.2
017700       03 DOTVALUE               PIC 99     VALUE ZERO.           SM2014.2
017800     02 FILLER                   PIC X(8)   VALUE SPACE.          SM2014.2
017900     02 RE-MARK                  PIC X(61).                       SM2014.2
018000 01  TEST-COMPUTED.                                               SM2014.2
018100     02 FILLER                   PIC X(30)  VALUE SPACE.          SM2014.2
018200     02 FILLER                   PIC X(17)  VALUE                 SM2014.2
018300            " COMPUTED=".                                   SM2014.2
018400     02 COMPUTED-X.                                               SM2014.2
018500     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          SM2014.2
018600     03 COMPUTED-N               REDEFINES COMPUTED-A             SM2014.2
018700                                 PIC -9(9).9(9).                  SM2014.2
018800     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         SM2014.2
018900     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     SM2014.2
019000     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     SM2014.2
019100     03       CM-18V0 REDEFINES COMPUTED-A.                       SM2014.2
019200         04 COMPUTED-18V0                    PIC -9(18).          SM2014.2
019300         04 FILLER                           PIC X.               SM2014.2
019400     03 FILLER PIC X(50) VALUE SPACE.                             SM2014.2
019500 01  TEST-CORRECT.                                                SM2014.2
019600     02 FILLER PIC X(30) VALUE SPACE.                             SM2014.2
019700     02 FILLER PIC X(17) VALUE " CORRECT =".                SM2014.2
019800     02 CORRECT-X.                                                SM2014.2
019900     03 CORRECT-A                  PIC X(20) VALUE SPACE.         SM2014.2
020000     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      SM2014.2
020100     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         SM2014.2
020200     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     SM2014.2
020300     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     SM2014.2
020400     03      CR-18V0 REDEFINES CORRECT-A.                         SM2014.2
020500         04 CORRECT-18V0                     PIC -9(18).          SM2014.2
020600         04 FILLER                           PIC X.               SM2014.2
020700     03 FILLER PIC X(2) VALUE SPACE.                              SM2014.2
020800     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     SM2014.2
020900 01  CCVS-C-1.                                                    SM2014.2
021000     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PASM2014.2
021100-    "SS PARAGRAPH-NAME SM2014.2
021200-    " REMARKS".                                            SM2014.2
021300     02 FILLER                     PIC X(20)    VALUE SPACE.      SM2014.2
021400 01  CCVS-C-2.                                                    SM2014.2
021500     02 FILLER                     PIC X        VALUE SPACE.      SM2014.2
021600     02 FILLER                     PIC X(6)     VALUE "TESTED".   SM2014.2
021700     02 FILLER                     PIC X(15)    VALUE SPACE.      SM2014.2
021800     02 FILLER                     PIC X(4)     VALUE "FAIL".     SM2014.2
021900     02 FILLER                     PIC X(94)    VALUE SPACE.      SM2014.2
022000 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       SM2014.2
022100 01  REC-CT                        PIC 99       VALUE ZERO.       SM2014.2
022200 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       SM2014.2
022300 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       SM2014.2
022400 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       SM2014.2
022500 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       SM2014.2
022600 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       SM2014.2
022700 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       SM2014.2
022800 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      SM2014.2
022900 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       SM2014.2
023000 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     SM2014.2
023100 01  CCVS-H-1.                                                    SM2014.2
023200     02  FILLER                    PIC X(39)    VALUE SPACES.     SM2014.2
023300     02  FILLER                    PIC X(42)    VALUE             SM2014.2
023400     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 SM2014.2
023500     02  FILLER                    PIC X(39)    VALUE SPACES.     SM2014.2
023600 01  CCVS-H-2A.                                                   SM2014.2
023700   02  FILLER                        PIC X(40)  VALUE SPACE.      SM2014.2
023800   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  SM2014.2
023900   02  FILLER                        PIC XXXX   VALUE             SM2014.2
024000     "4.2 ".                                                      SM2014.2
024100   02  FILLER                        PIC X(28)  VALUE             SM2014.2
024200            " COPY - NOT FOR DISTRIBUTION".                       SM2014.2
024300   02  FILLER                        PIC X(41)  VALUE SPACE.      SM2014.2
024400                                                                  SM2014.2
024500 01  CCVS-H-2B.                                                   SM2014.2
024600   02  FILLER                        PIC X(15)  VALUE             SM2014.2
024700            "TEST RESULT OF ".                                    SM2014.2
024800   02  TEST-ID                       PIC X(9).                    SM2014.2
024900   02  FILLER                        PIC X(4)   VALUE             SM2014.2
025000            " IN ".                                               SM2014.2
025100   02  FILLER                        PIC X(12)  VALUE             SM2014.2
025200     " HIGH ".                                              SM2014.2
025300   02  FILLER                        PIC X(22)  VALUE             SM2014.2
025400            " LEVEL VALIDATION FOR ".                             SM2014.2
025500   02  FILLER                        PIC X(58)  VALUE             SM2014.2
025600     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SM2014.2
025700 01  CCVS-H-3.                                                    SM2014.2
025800     02  FILLER                      PIC X(34)  VALUE             SM2014.2
025900            " FOR OFFICIAL USE ONLY ".                         SM2014.2
026000     02  FILLER                      PIC X(58)  VALUE             SM2014.2
026100     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SM2014.2
026200     02  FILLER                      PIC X(28)  VALUE             SM2014.2
026300            " COPYRIGHT 1985 ".                                SM2014.2
026400 01  CCVS-E-1.                                                    SM2014.2
026500     02 FILLER                       PIC X(52)  VALUE SPACE.      SM2014.2
026600     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              SM2014.2
026700     02 ID-AGAIN                     PIC X(9).                    SM2014.2
026800     02 FILLER                       PIC X(45)  VALUE SPACES.     SM2014.2
026900 01  CCVS-E-2.                                                    SM2014.2
027000     02  FILLER                      PIC X(31)  VALUE SPACE.      SM2014.2
027100     02  FILLER                      PIC X(21)  VALUE SPACE.      SM2014.2
027200     02 CCVS-E-2-2.                                               SM2014.2
027300         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      SM2014.2
027400         03 FILLER                   PIC X      VALUE SPACE.      SM2014.2
027500         03 ENDER-DESC               PIC X(44)  VALUE             SM2014.2
027600            "ERRORS ENCOUNTERED".                                 SM2014.2
027700 01  CCVS-E-3.                                                    SM2014.2
027800     02  FILLER                      PIC X(22)  VALUE             SM2014.2
027900            " FOR OFFICIAL USE ONLY".                             SM2014.2
028000     02  FILLER                      PIC X(12)  VALUE SPACE.      SM2014.2
028100     02  FILLER                      PIC X(58)  VALUE             SM2014.2
028200     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SM2014.2
028300     02  FILLER                      PIC X(13)  VALUE SPACE.      SM2014.2
028400     02 FILLER                       PIC X(15)  VALUE             SM2014.2
028500             " COPYRIGHT 1985".                                   SM2014.2
028600 01  CCVS-E-4.                                                    SM2014.2
028700     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      SM2014.2
028800     02 FILLER                       PIC X(4)   VALUE " OF ".     SM2014.2
028900     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      SM2014.2
029000     02 FILLER                       PIC X(40)  VALUE             SM2014.2
029100      " TESTS WERE EXECUTED SUCCESSFULLY".                       SM2014.2
029200 01  XXINFO.                                                      SM2014.2
029300     02 FILLER                       PIC X(19)  VALUE             SM2014.2
029400            "*** INFORMATION ***".                                SM2014.2
029500     02 INFO-TEXT.                                                SM2014.2
029600       04 FILLER                     PIC X(8)   VALUE SPACE.      SM2014.2
029700       04 XXCOMPUTED                 PIC X(20).                   SM2014.2
029800       04 FILLER                     PIC X(5)   VALUE SPACE.      SM2014.2
029900       04 XXCORRECT                  PIC X(20).                   SM2014.2
030000     02 INF-ANSI-REFERENCE           PIC X(48).                   SM2014.2
030100 01  HYPHEN-LINE.                                                 SM2014.2
030200     02 FILLER  PIC IS X VALUE IS SPACE.                          SM2014.2
030300     02 FILLER  PIC IS X(65)    VALUE IS "************************SM2014.2
030400-    "*****************************************".                 SM2014.2
030500     02 FILLER  PIC IS X(54)    VALUE IS "************************SM2014.2
030600-    "******************************".                            SM2014.2
030700 01  CCVS-PGM-ID                     PIC X(9)   VALUE             SM2014.2
030800     "SM201A".                                                    SM2014.2
030900 PROCEDURE DIVISION.                                              SM2014.2
031000 CCVS1 SECTION.                                                   SM2014.2
031100 OPEN-FILES.                                                      SM2014.2
031200     OPEN     OUTPUT PRINT-FILE.                                  SM2014.2
031300     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   SM2014.2
031400     MOVE    SPACE TO TEST-RESULTS.                               SM2014.2
031500     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             SM2014.2
031600     GO TO CCVS1-EXIT.                                            SM2014.2
031700 CLOSE-FILES.                                                     SM2014.2
031800     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   SM2014.2
031900 TERMINATE-CCVS.                                                  SM2014.2
032000     EXIT PROGRAM.                                                SM2014.2
032100 TERMINATE-CALL.                                                  SM2014.2
032200     STOP     RUN.                                                SM2014.2
032300 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         SM2014.2
032400 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           SM2014.2
032500 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          SM2014.2
032600 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      SM2014.2
032700     MOVE "****TEST DELETED****" TO RE-MARK.                      SM2014.2
032800 PRINT-DETAIL.                                                    SM2014.2
032900     IF REC-CT NOT EQUAL TO ZERO                                  SM2014.2
033000             MOVE "." TO PARDOT-X                                 SM2014.2
033100             MOVE REC-CT TO DOTVALUE.                             SM2014.2
033200     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      SM2014.2
033300     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               SM2014.2
033400        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 SM2014.2
033500          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 SM2014.2
033600     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              SM2014.2
033700     MOVE SPACE TO CORRECT-X.                                     SM2014.2
033800     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         SM2014.2
033900     MOVE     SPACE TO RE-MARK.                                   SM2014.2
034000 HEAD-ROUTINE.                                                    SM2014.2
034100     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  SM2014.2
034200     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  SM2014.2
034300     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  SM2014.2
034400     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  SM2014.2
034500 COLUMN-NAMES-ROUTINE.                                            SM2014.2
034600     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SM2014.2
034700     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SM2014.2
034800     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        SM2014.2
034900 END-ROUTINE.                                                     SM2014.2
035000     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.SM2014.2
035100 END-RTN-EXIT.                                                    SM2014.2
035200     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SM2014.2
035300 END-ROUTINE-1.                                                   SM2014.2
035400      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      SM2014.2
035500      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               SM2014.2
035600      ADD PASS-COUNTER TO ERROR-HOLD.                             SM2014.2
035700*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   SM2014.2
035800      MOVE PASS-COUNTER TO CCVS-E-4-1.                            SM2014.2
035900      MOVE ERROR-HOLD TO CCVS-E-4-2.                              SM2014.2
036000      MOVE CCVS-E-4 TO CCVS-E-2-2.                                SM2014.2
036100      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           SM2014.2
036200  END-ROUTINE-12.                                                 SM2014.2
036300      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        SM2014.2
036400     IF       ERROR-COUNTER IS EQUAL TO ZERO                      SM2014.2
036500         MOVE "NO " TO ERROR-TOTAL                                SM2014.2
036600         ELSE                                                     SM2014.2
036700         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       SM2014.2
036800     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           SM2014.2
036900     PERFORM WRITE-LINE.                                          SM2014.2
037000 END-ROUTINE-13.                                                  SM2014.2
037100     IF DELETE-COUNTER IS EQUAL TO ZERO                           SM2014.2
037200         MOVE "NO " TO ERROR-TOTAL  ELSE                          SM2014.2
037300         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      SM2014.2
037400     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   SM2014.2
037500     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SM2014.2
037600      IF   INSPECT-COUNTER EQUAL TO ZERO                          SM2014.2
037700          MOVE "NO " TO ERROR-TOTAL                               SM2014.2
037800      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   SM2014.2
037900      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            SM2014.2
038000      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          SM2014.2
038100     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SM2014.2
038200 WRITE-LINE.                                                      SM2014.2
038300     ADD 1 TO RECORD-COUNT.                                       SM2014.2
038400     IF RECORD-COUNT GREATER 50                                   SM2014.2
038500         MOVE DUMMY-RECORD TO DUMMY-HOLD                          SM2014.2
038600         MOVE SPACE TO DUMMY-RECORD                               SM2014.2
038700         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  SM2014.2
038800         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             SM2014.2
038900         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     SM2014.2
039000         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          SM2014.2
039100         MOVE DUMMY-HOLD TO DUMMY-RECORD                          SM2014.2
039200         MOVE ZERO TO RECORD-COUNT.                               SM2014.2
039300     PERFORM WRT-LN.                                              SM2014.2
039400 WRT-LN.                                                          SM2014.2
039500     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               SM2014.2
039600     MOVE SPACE TO DUMMY-RECORD.                                  SM2014.2
039700 BLANK-LINE-PRINT.                                                SM2014.2
039800     PERFORM WRT-LN.                                              SM2014.2
039900 FAIL-ROUTINE.                                                    SM2014.2
040000     IF   COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SM2014.2
040100     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.SM2014.2
040200     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 SM2014.2
040300     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   SM2014.2
040400     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SM2014.2
040500     MOVE   SPACES TO INF-ANSI-REFERENCE.                         SM2014.2
040600     GO TO  FAIL-ROUTINE-EX.                                      SM2014.2
040700 FAIL-ROUTINE-WRITE.                                              SM2014.2
040800     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         SM2014.2
040900     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 SM2014.2
041000     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. SM2014.2
041100     MOVE   SPACES TO COR-ANSI-REFERENCE.                         SM2014.2
041200 FAIL-ROUTINE-EX. EXIT.                                           SM2014.2
041300 BAIL-OUT.                                                        SM2014.2
041400     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   SM2014.2
041500     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           SM2014.2
041600 BAIL-OUT-WRITE.                                                  SM2014.2
041700     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  SM2014.2
041800     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 SM2014.2
041900     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SM2014.2
042000     MOVE   SPACES TO INF-ANSI-REFERENCE.                         SM2014.2
042100 BAIL-OUT-EX. EXIT.                                               SM2014.2
042200 CCVS1-EXIT.                                                      SM2014.2
042300     EXIT.                                                        SM2014.2
042400 INITIALIZATION SECTION.                                          SM2014.2
042500 SM201A-INIT.                                                     SM2014.2
042600     OPEN     OUTPUT TEST-FILE.                                   SM2014.2
042700     MOVE     "OUTPUT OF SM201A IS USED AS" TO RE-MARK.           SM2014.2
042800     PERFORM  PRINT-DETAIL.                                       SM2014.2
042900     MOVE     "INPUT FOR SM202A."           TO RE-MARK.           SM2014.2
043000     PERFORM  PRINT-DETAIL.                                       SM2014.2
043100     MOVE     "COPY 01 LEVEL --- " TO FEATURE.                    SM2014.2
043200     PERFORM  PRINT-DETAIL.                                       SM2014.2
043300 WORKING-STORAGE-TEST SECTION.                                    SM2014.2
043400 COPY-TEST-1.                                                     SM2014.2
043500     IF       WSTR-1A EQUAL TO WSTR999                            SM2014.2
043600              PERFORM PASS GO TO COPY-WRITE-1.                    SM2014.2
043700*        NOTE TESTS COPYING WITH REPLACEMENT IN WORKING-STORAGE.  SM2014.2
043800     GO       TO COPY-FAIL-1.                                     SM2014.2
043900 COPY-DELETE-1.                                                   SM2014.2
044000     PERFORM  DE-LETE.                                            SM2014.2
044100     GO       TO COPY-WRITE-1.                                    SM2014.2
044200 COPY-FAIL-1.                                                     SM2014.2
044300     MOVE     WSTR999 TO COMPUTED-A.                              SM2014.2
044400     MOVE     "ABC" TO CORRECT-A.                                 SM2014.2
044500     PERFORM  FAIL.                                               SM2014.2
044600 COPY-WRITE-1.                                                    SM2014.2
044700     MOVE     " REPLACING" TO FEATURE.                           SM2014.2
044800     MOVE     "COPY-TEST-1 " TO PAR-NAME.                         SM2014.2
044900     PERFORM  PRINT-DETAIL.                                       SM2014.2
045000 COPY-TEST-2.                                                     SM2014.2
045100     IF       WSTR-2A EQUAL TO "ABC"                              SM2014.2
045200              PERFORM PASS GO TO COPY-WRITE-2.                    SM2014.2
045300*    NOTE     TESTS ORDINARY COPY OF ENTRIES WHICH ARE ALSO COPIEDSM2014.2
045400*             BY COPY REPLACING.                                  SM2014.2
045500     GO       TO COPY-FAIL-2.                                     SM2014.2
045600 COPY-DELETE-2.                                                   SM2014.2
045700     PERFORM  DE-LETE.                                            SM2014.2
045800     GO       TO COPY-WRITE-2.                                    SM2014.2
045900 COPY-FAIL-2.                                                     SM2014.2
046000     MOVE     WSTR-2A TO COMPUTED-A.                              SM2014.2
046100     MOVE     "ABC" TO CORRECT-A.                                 SM2014.2
046200     PERFORM  FAIL.                                               SM2014.2
046300 COPY-WRITE-2.                                                    SM2014.2
046400     MOVE     " (NO REPLACING)" TO FEATURE.                      SM2014.2
046500     MOVE     "COPY-TEST-2 " TO PAR-NAME.                         SM2014.2
046600     PERFORM  PRINT-DETAIL.                                       SM2014.2
046700 COPY-INIT-A.                                                     SM2014.2
046800     MOVE     " REPLACING" TO FEATURE.                           SM2014.2
046900 COPY-TEST-3.                                                     SM2014.2
047000     IF       WSTR91 EQUAL TO "ABC"                               SM2014.2
047100              PERFORM PASS GO TO COPY-WRITE-3.                    SM2014.2
047200*        NOTE COPY-TEST-3, 4, AND 5 TEST COPYING WITH A           SM2014.2
047300*             SERIES OF REPLACEMENTS.                             SM2014.2
047400     GO       TO COPY-FAIL-3.                                     SM2014.2
047500 COPY-DELETE-3.                                                   SM2014.2
047600     PERFORM  DE-LETE.                                            SM2014.2
047700     GO       TO COPY-WRITE-3.                                    SM2014.2
047800 COPY-FAIL-3.                                                     SM2014.2
047900     MOVE     WSTR91 TO COMPUTED-A.                               SM2014.2
048000     MOVE     "ABC" TO CORRECT-A.                                 SM2014.2
048100     PERFORM  FAIL.                                               SM2014.2
048200 COPY-WRITE-3.                                                    SM2014.2
048300     MOVE     "COPY-TEST-3 " TO PAR-NAME.                         SM2014.2
048400     PERFORM  PRINT-DETAIL.                                       SM2014.2
048500 COPY-TEST-4.                                                     SM2014.2
048600     IF       WSTR92 EQUAL TO "DEF"                               SM2014.2
048700              PERFORM PASS GO TO COPY-WRITE-4.                    SM2014.2
048800     GO       TO COPY-FAIL-4.                                     SM2014.2
048900 COPY-DELETE-4.                                                   SM2014.2
049000     PERFORM  DE-LETE.                                            SM2014.2
049100     GO       TO COPY-WRITE-4.                                    SM2014.2
049200 COPY-FAIL-4.                                                     SM2014.2
049300     MOVE     WSTR92 TO COMPUTED-A.                               SM2014.2
049400     MOVE     "DEF" TO CORRECT-A.                                 SM2014.2
049500     PERFORM  FAIL.                                               SM2014.2
049600 COPY-WRITE-4.                                                    SM2014.2
049700     MOVE     "COPY-TEST-4 " TO PAR-NAME.                         SM2014.2
049800     PERFORM  PRINT-DETAIL.                                       SM2014.2
049900 COPY-TEST-5.                                                     SM2014.2
050000     IF       WSTR93 EQUAL TO "GHI"                               SM2014.2
050100              PERFORM PASS GO TO COPY-WRITE-5.                    SM2014.2
050200     GO       TO COPY-FAIL-5.                                     SM2014.2
050300 COPY-DELETE-5.                                                   SM2014.2
050400     PERFORM  DE-LETE.                                            SM2014.2
050500     GO       TO COPY-WRITE-5.                                    SM2014.2
050600 COPY-FAIL-5.                                                     SM2014.2
050700     MOVE     WSTR93 TO COMPUTED-A.                               SM2014.2
050800     MOVE     "GHI" TO CORRECT-A.                                 SM2014.2
050900     PERFORM  FAIL.                                               SM2014.2
051000 COPY-WRITE-5.                                                    SM2014.2
051100     MOVE     "COPY-TEST-5 " TO PAR-NAME.                         SM2014.2
051200     PERFORM  PRINT-DETAIL.                                       SM2014.2
051300 COPY-INIT-B.                                                     SM2014.2
051400     MOVE     " (NOT REPLACING)" TO FEATURE.                     SM2014.2
051500 COPY-TEST-6.                                                     SM2014.2
051600     IF       WSTR4A EQUAL TO "ABC"                               SM2014.2
051700              PERFORM PASS GO TO COPY-WRITE-6.                    SM2014.2
051800*        NOTE COPY-TEST-6, 7, AND 8 TEST ORDINARY COPYING OF      SM2014.2
051900*             ENTRIES WHICH ARE ALSO COPIED WITH REPLACEMENT.     SM2014.2
052000     GO       TO COPY-FAIL-6.                                     SM2014.2
052100 COPY-DELETE-6.                                                   SM2014.2
052200     PERFORM  DE-LETE.                                            SM2014.2
052300     GO       TO COPY-WRITE-6.                                    SM2014.2
052400 COPY-FAIL-6.                                                     SM2014.2
052500     MOVE     WSTR4A TO COMPUTED-A.                               SM2014.2
052600     MOVE     "ABC" TO CORRECT-A.                                 SM2014.2
052700     PERFORM  FAIL.                                               SM2014.2
052800 COPY-WRITE-6.                                                    SM2014.2
052900     MOVE     "COPY-TEST-6 " TO PAR-NAME.                         SM2014.2
053000     PERFORM  PRINT-DETAIL.                                       SM2014.2
053100 COPY-TEST-7.                                                     SM2014.2
053200     IF       WSTR4B EQUAL TO "DEF"                               SM2014.2
053300              PERFORM PASS GO TO COPY-WRITE-7.                    SM2014.2
053400     GO       TO COPY-FAIL-7.                                     SM2014.2
053500 COPY-DELETE-7.                                                   SM2014.2
053600     PERFORM  DE-LETE.                                            SM2014.2
053700     GO       TO COPY-WRITE-7.                                    SM2014.2
053800 COPY-FAIL-7.                                                     SM2014.2
053900     MOVE     WSTR4B TO COMPUTED-A.                               SM2014.2
054000     MOVE     "DEF" TO CORRECT-A.                                 SM2014.2
054100     PERFORM  FAIL.                                               SM2014.2
054200 COPY-WRITE-7.                                                    SM2014.2
054300     MOVE     "COPY-TEST-7 " TO PAR-NAME.                         SM2014.2
054400     PERFORM  PRINT-DETAIL.                                       SM2014.2
054500 COPY-TEST-8.                                                     SM2014.2
054600     IF       WSTR4C EQUAL TO "GHI"                               SM2014.2
054700              PERFORM PASS GO TO COPY-WRITE-8.                    SM2014.2
054800     GO       TO COPY-FAIL-8.                                     SM2014.2
054900 COPY-DELETE-8.                                                   SM2014.2
055000     PERFORM  DE-LETE.                                            SM2014.2
055100     GO       TO COPY-WRITE-8.                                    SM2014.2
055200 COPY-FAIL-8.                                                     SM2014.2
055300     MOVE     WSTR4C TO COMPUTED-A.                               SM2014.2
055400     MOVE     "GHI" TO CORRECT-A.                                 SM2014.2
055500     PERFORM  FAIL.                                               SM2014.2
055600 COPY-WRITE-8.                                                    SM2014.2
055700     MOVE     "COPY-TEST-8 " TO PAR-NAME.                         SM2014.2
055800     PERFORM  PRINT-DETAIL.                                       SM2014.2
055900 PARAGRAPH-TEST SECTION.                                          SM2014.2
056000 COPY-TEST-9.                                                     SM2014.2
056100                                                                  SM2014.2
056200                                                                  SM2014.2
056300                                                                  SM2014.2
056400                                                                  SM2014.2
056500                                                                  SM2014.2
056600*                                                                 SM2014.2
056700*********************** COPY STATEMENT USED **********************SM2014.2
056800*                                                                 SM2014.2
056900*                                                      COPY K1PRB SM2014.2
057000*             REPLACING WSTR4C BY WSTR4B.                         SM2014.2
057100*                                                                 SM2014.2
057200******************** COPIED TEXT BEGINS BELOW ********************SM2014.2
057300                                                       COPY K1PRB SM2014.2
057400              REPLACING WSTR4C BY WSTR4B.                         SM2014.2
057500*********************** END OF COPIED TEXT ***********************SM2014.2
057600*    NOTE     COPY A PROCEDURE WHICH REFERENCES COPIED DATA.      SM2014.2
057700     IF       WSTR-4 EQUAL TO "DEFABCDEF"                         SM2014.2
057800              PERFORM PASS GO TO COPY-WRITE-9.                    SM2014.2
057900     GO       TO COPY-FAIL-9.                                     SM2014.2
058000 COPY-DELETE-9.                                                   SM2014.2
058100     PERFORM  DE-LETE.                                            SM2014.2
058200     GO       TO COPY-WRITE-9.                                    SM2014.2
058300 COPY-FAIL-9.                                                     SM2014.2
058400     MOVE     WSTR-4 TO COMPUTED-A.                               SM2014.2
058500     MOVE     "DEFABCDEF" TO CORRECT-A.                           SM2014.2
058600     PERFORM  FAIL.                                               SM2014.2
058700 COPY-WRITE-9.                                                    SM2014.2
058800     MOVE     "COPY PARA REPLACING" TO FEATURE.                   SM2014.2
058900     MOVE     "COPY-TEST-9 " TO PAR-NAME.                         SM2014.2
059000     PERFORM  PRINT-DETAIL.                                       SM2014.2
059100 BUILD SECTION.                                                   SM2014.2
059200 COPY-TEST-10.                                                    SM2014.2
059300     MOVE     RCD-1 TO TF-1.                                      SM2014.2
059400     WRITE    TST-TEST.                                           SM2014.2
059500     MOVE     RCD-2 TO TF-1.                                      SM2014.2
059600     WRITE    TST-TEST.                                           SM2014.2
059700     MOVE     RCD-3 TO TF-1.                                      SM2014.2
059800     WRITE    TST-TEST.                                           SM2014.2
059900     MOVE     RCD-4 TO TF-1.                                      SM2014.2
060000     WRITE    TST-TEST.                                           SM2014.2
060100     MOVE     RCD-5 TO TF-1.                                      SM2014.2
060200     WRITE    TST-TEST.                                           SM2014.2
060300     MOVE     RCD-6 TO TF-1.                                      SM2014.2
060400     WRITE    TST-TEST.                                           SM2014.2
060500     MOVE     RCD-7 TO TF-1.                                      SM2014.2
060600     WRITE    TST-TEST.                                           SM2014.2
060700     PERFORM  PASS.                                               SM2014.2
060800     GO       TO COPY-WRITE-10.                                   SM2014.2
060900 COPY-DELETE-10.                                                  SM2014.2
061000     PERFORM  DE-LETE.                                            SM2014.2
061100 COPY-WRITE-10.                                                   SM2014.2
061200     MOVE     "COPY FD REPLACING" TO FEATURE.                     SM2014.2
061300     MOVE     "COPY-TEST-10 " TO PAR-NAME.                        SM2014.2
061400     MOVE     "OUTPUT PASSED ONTO SM202" TO RE-MARK.              SM2014.2
061500     PERFORM  PRINT-DETAIL.                                       SM2014.2
061600     CLOSE    TEST-FILE.                                          SM2014.2
061700 MORE-TESTS SECTION.                                              SM2014.2
061800 COPY-TEST-11.                                                    SM2014.2
061900     MOVE SPACES TO TEXT-TEST-1.                                  SM2014.2
062000     MOVE 12345 TO TXT-FLD-1.                                     SM2014.2
062100     IF TEXT-TEST-1 IS EQUAL TO " SM2014.2
062200-    " SM2014.2
062300-    " 12345"                                SM2014.2
062400         PERFORM PASS  ELSE  PERFORM FAIL.                        SM2014.2
062500     GO TO COPY-WRITE-11.                                         SM2014.2
062600 COPY-DELETE-11.                                                  SM2014.2
062700     PERFORM DE-LETE.                                             SM2014.2
062800 COPY-WRITE-11.                                                   SM2014.2
062900     MOVE "PSEUDO TEXT" TO FEATURE.                               SM2014.2
063000     MOVE "COPY-TEST-11" TO PAR-NAME.                             SM2014.2
063100     PERFORM PRINT-DETAIL.                                        SM2014.2
063200 CCVS-EXIT SECTION.                                               SM2014.2
063300 CCVS-999999.                                                     SM2014.2
063400     GO TO CLOSE-FILES.                                           SM2014.2

quality92%

¤ Dauer der Verarbeitung: 0.22 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.