Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/IF/   (Wiener Entwicklungsmethode ©)  Datei vom 4.1.2008 mit Größe 38 kB image not shown  

Quelle  if105a.cob   Sprache: Cobol

 
000100 IDENTIFICATION DIVISION.                                         IF1054.2
000200 PROGRAM-ID.                                                      IF1054.2
000300     IF105A.                                                      IF1054.2
000400                                                                  IF1054.2
000500***********************************************************       IF1054.2
000600*                                                         *       IF1054.2
000700* This program forms part of the CCVS85 COBOL Test Suite. *       IF1054.2
000800* It contains tests for the Intrinsic Function CHAR.      *       IF1054.2
000900*                                                         *       IF1054.2
001000*                                                         *       IF1054.2
001100***********************************************************       IF1054.2
001200 ENVIRONMENT DIVISION.                                            IF1054.2
001300 CONFIGURATION SECTION.                                           IF1054.2
001400 SOURCE-COMPUTER.                                                 IF1054.2
001500     Card0130.                                                    IF1054.2
001600 OBJECT-COMPUTER.                                                 IF1054.2
001700     Card0131                                                     IF1054.2
001800     PROGRAM COLLATING SEQUENCE IS PRG-COLL-SEQ.                  IF1054.2
001900 SPECIAL-NAMES.                                                   IF1054.2
002000     ALPHABET PRG-COLL-SEQ IS                                     IF1054.2
002100     STANDARD-2.                                                  IF1054.2
002200 INPUT-OUTPUT SECTION.                                            IF1054.2
002300 FILE-CONTROL.                                                    IF1054.2
002400     SELECT PRINT-FILE ASSIGN TO                                  IF1054.2
002500     "C0085" .                                                    IF1054.2
002600 DATA DIVISION.                                                   IF1054.2
002700 FILE SECTION.                                                    IF1054.2
002800 FD  PRINT-FILE.                                                  IF1054.2
002900 01  PRINT-REC PICTURE X(120).                                    IF1054.2
003000 01  DUMMY-RECORD PICTURE X(120).                                 IF1054.2
003100 WORKING-STORAGE SECTION.                                         IF1054.2
003200***********************************************************       IF1054.2
003300* Variables specific to the Intrinsic Function Test IF105A*       IF1054.2
003400***********************************************************       IF1054.2
003500 01  B                   PIC S9(10)     VALUE 37.                 IF1054.2
003600 01  C                   PIC S9(10)     VALUE 2.                  IF1054.2
003700 01  D                   PIC S9(10)     VALUE 100.                IF1054.2
003800 01  ARR                 VALUE "066037100070044".                 IF1054.2
003900     02 IND OCCURS 5 TIMES PIC 9(3).                              IF1054.2
004000 01  TEMP                PIC S9(5)V9(5).                          IF1054.2
004100 01  WS-ANUM          PIC X.                                      IF1054.2
004200*                                                                 IF1054.2
004300**********************************************************        IF1054.2
004400*                                                                 IF1054.2
004500 01  TEST-RESULTS.                                                IF1054.2
004600     02 FILLER                   PIC X      VALUE SPACE.          IF1054.2
004700     02 FEATURE                  PIC X(20)  VALUE SPACE.          IF1054.2
004800     02 FILLER                   PIC X      VALUE SPACE.          IF1054.2
004900     02 P-OR-F                   PIC X(5)   VALUE SPACE.          IF1054.2
005000     02 FILLER                   PIC X      VALUE SPACE.          IF1054.2
005100     02  PAR-NAME.                                                IF1054.2
005200       03 FILLER                 PIC X(19)  VALUE SPACE.          IF1054.2
005300       03  PARDOT-X              PIC X      VALUE SPACE.          IF1054.2
005400       03 DOTVALUE               PIC 99     VALUE ZERO.           IF1054.2
005500     02 FILLER                   PIC X(8)   VALUE SPACE.          IF1054.2
005600     02 RE-MARK                  PIC X(61).                       IF1054.2
005700 01  TEST-COMPUTED.                                               IF1054.2
005800     02 FILLER                   PIC X(30)  VALUE SPACE.          IF1054.2
005900     02 FILLER                   PIC X(17)  VALUE                 IF1054.2
006000            " COMPUTED=".                                   IF1054.2
006100     02 COMPUTED-X.                                               IF1054.2
006200     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          IF1054.2
006300     03 COMPUTED-N               REDEFINES COMPUTED-A             IF1054.2
006400                                 PIC -9(9).9(9).                  IF1054.2
006500     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         IF1054.2
006600     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     IF1054.2
006700     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     IF1054.2
006800     03       CM-18V0 REDEFINES COMPUTED-A.                       IF1054.2
006900         04 COMPUTED-18V0                    PIC -9(18).          IF1054.2
007000         04 FILLER                           PIC X.               IF1054.2
007100     03 FILLER PIC X(50) VALUE SPACE.                             IF1054.2
007200 01  TEST-CORRECT.                                                IF1054.2
007300     02 FILLER PIC X(30) VALUE SPACE.                             IF1054.2
007400     02 FILLER PIC X(17) VALUE " CORRECT =".                IF1054.2
007500     02 CORRECT-X.                                                IF1054.2
007600     03 CORRECT-A                  PIC X(20) VALUE SPACE.         IF1054.2
007700     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      IF1054.2
007800     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         IF1054.2
007900     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     IF1054.2
008000     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     IF1054.2
008100     03      CR-18V0 REDEFINES CORRECT-A.                         IF1054.2
008200         04 CORRECT-18V0                     PIC -9(18).          IF1054.2
008300         04 FILLER                           PIC X.               IF1054.2
008400     03 FILLER PIC X(2) VALUE SPACE.                              IF1054.2
008500     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     IF1054.2
008600 01  TEST-CORRECT-MIN.                                            IF1054.2
008700     02 FILLER PIC X(30) VALUE SPACE.                             IF1054.2
008800     02 FILLER PIC X(17) VALUE " MIN VALUE =".                IF1054.2
008900     02 CORRECTMI-X.                                              IF1054.2
009000     03 CORRECTMI-A                 PIC X(20) VALUE SPACE.        IF1054.2
009100     03 CORRECT-MIN    REDEFINES CORRECTMI-A     PIC -9(9).9(9).  IF1054.2
009200     03 CORRECTMI-0V18 REDEFINES CORRECTMI-A     PIC -.9(18).     IF1054.2
009300     03 CORRECTMI-4V14 REDEFINES CORRECTMI-A     PIC -9(4).9(14). IF1054.2
009400     03 CORRECTMI-14V4 REDEFINES CORRECTMI-A     PIC -9(14).9(4). IF1054.2
009500     03      CR-18V0 REDEFINES CORRECTMI-A.                       IF1054.2
009600         04 CORRECTMI-18V0                     PIC -9(18).        IF1054.2
009700         04 FILLER                           PIC X.               IF1054.2
009800     03 FILLER PIC X(2) VALUE SPACE.                              IF1054.2
009900     03 FILLER                           PIC X(48) VALUE SPACE.   IF1054.2
010000 01  TEST-CORRECT-MAX.                                            IF1054.2
010100     02 FILLER PIC X(30) VALUE SPACE.                             IF1054.2
010200     02 FILLER PIC X(17) VALUE " MAX VALUE =".                IF1054.2
010300     02 CORRECTMA-X.                                              IF1054.2
010400     03 CORRECTMA-A                  PIC X(20) VALUE SPACE.       IF1054.2
010500     03 CORRECT-MAX    REDEFINES CORRECTMA-A     PIC -9(9).9(9).  IF1054.2
010600     03 CORRECTMA-0V18 REDEFINES CORRECTMA-A     PIC -.9(18).     IF1054.2
010700     03 CORRECTMA-4V14 REDEFINES CORRECTMA-A     PIC -9(4).9(14). IF1054.2
010800     03 CORRECTMA-14V4 REDEFINES CORRECTMA-A     PIC -9(14).9(4). IF1054.2
010900     03      CR-18V0 REDEFINES CORRECTMA-A.                       IF1054.2
011000         04 CORRECTMA-18V0                     PIC -9(18).        IF1054.2
011100         04 FILLER                           PIC X.               IF1054.2
011200     03 FILLER PIC X(2) VALUE SPACE.                              IF1054.2
011300     03 CORMA-ANSI-REFERENCE             PIC X(48) VALUE SPACE.   IF1054.2
011400 01  CCVS-C-1.                                                    IF1054.2
011500     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PAIF1054.2
011600-    "SS PARAGRAPH-NAME IF1054.2
011700-    " REMARKS".                                            IF1054.2
011800     02 FILLER                     PIC X(20)    VALUE SPACE.      IF1054.2
011900 01  CCVS-C-2.                                                    IF1054.2
012000     02 FILLER                     PIC X        VALUE SPACE.      IF1054.2
012100     02 FILLER                     PIC X(6)     VALUE "TESTED".   IF1054.2
012200     02 FILLER                     PIC X(15)    VALUE SPACE.      IF1054.2
012300     02 FILLER                     PIC X(4)     VALUE "FAIL".     IF1054.2
012400     02 FILLER                     PIC X(94)    VALUE SPACE.      IF1054.2
012500 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       IF1054.2
012600 01  REC-CT                        PIC 99       VALUE ZERO.       IF1054.2
012700 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       IF1054.2
012800 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       IF1054.2
012900 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       IF1054.2
013000 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       IF1054.2
013100 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       IF1054.2
013200 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       IF1054.2
013300 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      IF1054.2
013400 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       IF1054.2
013500 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     IF1054.2
013600 01  CCVS-H-1.                                                    IF1054.2
013700     02  FILLER                    PIC X(39)    VALUE SPACES.     IF1054.2
013800     02  FILLER                    PIC X(42)    VALUE             IF1054.2
013900     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IF1054.2
014000     02  FILLER                    PIC X(39)    VALUE SPACES.     IF1054.2
014100 01  CCVS-H-2A.                                                   IF1054.2
014200   02  FILLER                        PIC X(40)  VALUE SPACE.      IF1054.2
014300   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  IF1054.2
014400   02  FILLER                        PIC XXXX   VALUE             IF1054.2
014500     "4.2 ".                                                      IF1054.2
014600   02  FILLER                        PIC X(28)  VALUE             IF1054.2
014700            " COPY - NOT FOR DISTRIBUTION".                       IF1054.2
014800   02  FILLER                        PIC X(41)  VALUE SPACE.      IF1054.2
014900                                                                  IF1054.2
015000 01  CCVS-H-2B.                                                   IF1054.2
015100   02  FILLER                        PIC X(15)  VALUE             IF1054.2
015200            "TEST RESULT OF ".                                    IF1054.2
015300   02  TEST-ID                       PIC X(9).                    IF1054.2
015400   02  FILLER                        PIC X(4)   VALUE             IF1054.2
015500            " IN ".                                               IF1054.2
015600   02  FILLER                        PIC X(12)  VALUE             IF1054.2
015700     " HIGH ".                                              IF1054.2
015800   02  FILLER                        PIC X(22)  VALUE             IF1054.2
015900            " LEVEL VALIDATION FOR ".                             IF1054.2
016000   02  FILLER                        PIC X(58)  VALUE             IF1054.2
016100     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IF1054.2
016200 01  CCVS-H-3.                                                    IF1054.2
016300     02  FILLER                      PIC X(34)  VALUE             IF1054.2
016400            " FOR OFFICIAL USE ONLY ".                         IF1054.2
016500     02  FILLER                      PIC X(58)  VALUE             IF1054.2
016600     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IF1054.2
016700     02  FILLER                      PIC X(28)  VALUE             IF1054.2
016800            " COPYRIGHT 1985 ".                                IF1054.2
016900 01  CCVS-E-1.                                                    IF1054.2
017000     02 FILLER                       PIC X(52)  VALUE SPACE.      IF1054.2
017100     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              IF1054.2
017200     02 ID-AGAIN                     PIC X(9).                    IF1054.2
017300     02 FILLER                       PIC X(45)  VALUE SPACES.     IF1054.2
017400 01  CCVS-E-2.                                                    IF1054.2
017500     02  FILLER                      PIC X(31)  VALUE SPACE.      IF1054.2
017600     02  FILLER                      PIC X(21)  VALUE SPACE.      IF1054.2
017700     02 CCVS-E-2-2.                                               IF1054.2
017800         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      IF1054.2
017900         03 FILLER                   PIC X      VALUE SPACE.      IF1054.2
018000         03 ENDER-DESC               PIC X(44)  VALUE             IF1054.2
018100            "ERRORS ENCOUNTERED".                                 IF1054.2
018200 01  CCVS-E-3.                                                    IF1054.2
018300     02  FILLER                      PIC X(22)  VALUE             IF1054.2
018400            " FOR OFFICIAL USE ONLY".                             IF1054.2
018500     02  FILLER                      PIC X(12)  VALUE SPACE.      IF1054.2
018600     02  FILLER                      PIC X(58)  VALUE             IF1054.2
018700     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IF1054.2
018800     02  FILLER                      PIC X(13)  VALUE SPACE.      IF1054.2
018900     02 FILLER                       PIC X(15)  VALUE             IF1054.2
019000             " COPYRIGHT 1985".                                   IF1054.2
019100 01  CCVS-E-4.                                                    IF1054.2
019200     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      IF1054.2
019300     02 FILLER                       PIC X(4)   VALUE " OF ".     IF1054.2
019400     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      IF1054.2
019500     02 FILLER                       PIC X(40)  VALUE             IF1054.2
019600      " TESTS WERE EXECUTED SUCCESSFULLY".                       IF1054.2
019700 01  XXINFO.                                                      IF1054.2
019800     02 FILLER                       PIC X(19)  VALUE             IF1054.2
019900            "*** INFORMATION ***".                                IF1054.2
020000     02 INFO-TEXT.                                                IF1054.2
020100       04 FILLER                     PIC X(8)   VALUE SPACE.      IF1054.2
020200       04 XXCOMPUTED                 PIC X(20).                   IF1054.2
020300       04 FILLER                     PIC X(5)   VALUE SPACE.      IF1054.2
020400       04 XXCORRECT                  PIC X(20).                   IF1054.2
020500     02 INF-ANSI-REFERENCE           PIC X(48).                   IF1054.2
020600 01  HYPHEN-LINE.                                                 IF1054.2
020700     02 FILLER  PIC IS X VALUE IS SPACE.                          IF1054.2
020800     02 FILLER  PIC IS X(65)    VALUE IS "************************IF1054.2
020900-    "*****************************************".                 IF1054.2
021000     02 FILLER  PIC IS X(54)    VALUE IS "************************IF1054.2
021100-    "******************************".                            IF1054.2
021200 01  CCVS-PGM-ID                     PIC X(9)   VALUE             IF1054.2
021300     "IF105A".                                                    IF1054.2
021400 PROCEDURE DIVISION.                                              IF1054.2
021500 CCVS1 SECTION.                                                   IF1054.2
021600 OPEN-FILES.                                                      IF1054.2
021700     OPEN     OUTPUT PRINT-FILE.                                  IF1054.2
021800     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   IF1054.2
021900     MOVE    SPACE TO TEST-RESULTS.                               IF1054.2
022000     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             IF1054.2
022100     GO TO CCVS1-EXIT.                                            IF1054.2
022200 CLOSE-FILES.                                                     IF1054.2
022300     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   IF1054.2
022400 TERMINATE-CCVS.                                                  IF1054.2
022500     STOP     RUN.                                                IF1054.2
022600 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         IF1054.2
022700 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           IF1054.2
022800 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          IF1054.2
022900 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      IF1054.2
023000     MOVE "****TEST DELETED****" TO RE-MARK.                      IF1054.2
023100 PRINT-DETAIL.                                                    IF1054.2
023200     IF REC-CT NOT EQUAL TO ZERO                                  IF1054.2
023300             MOVE "." TO PARDOT-X                                 IF1054.2
023400             MOVE REC-CT TO DOTVALUE.                             IF1054.2
023500     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      IF1054.2
023600     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               IF1054.2
023700        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 IF1054.2
023800          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 IF1054.2
023900     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              IF1054.2
024000     MOVE SPACE TO CORRECT-X.                                     IF1054.2
024100     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         IF1054.2
024200     MOVE     SPACE TO RE-MARK.                                   IF1054.2
024300 HEAD-ROUTINE.                                                    IF1054.2
024400     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IF1054.2
024500     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IF1054.2
024600     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IF1054.2
024700     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IF1054.2
024800 COLUMN-NAMES-ROUTINE.                                            IF1054.2
024900     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IF1054.2
025000     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IF1054.2
025100     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        IF1054.2
025200 END-ROUTINE.                                                     IF1054.2
025300     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IF1054.2
025400 END-RTN-EXIT.                                                    IF1054.2
025500     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IF1054.2
025600 END-ROUTINE-1.                                                   IF1054.2
025700      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      IF1054.2
025800      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               IF1054.2
025900      ADD PASS-COUNTER TO ERROR-HOLD.                             IF1054.2
026000      MOVE PASS-COUNTER TO CCVS-E-4-1.                            IF1054.2
026100      MOVE ERROR-HOLD TO CCVS-E-4-2.                              IF1054.2
026200      MOVE CCVS-E-4 TO CCVS-E-2-2.                                IF1054.2
026300      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           IF1054.2
026400  END-ROUTINE-12.                                                 IF1054.2
026500      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        IF1054.2
026600     IF       ERROR-COUNTER IS EQUAL TO ZERO                      IF1054.2
026700         MOVE "NO " TO ERROR-TOTAL                                IF1054.2
026800         ELSE                                                     IF1054.2
026900         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       IF1054.2
027000     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           IF1054.2
027100     PERFORM WRITE-LINE.                                          IF1054.2
027200 END-ROUTINE-13.                                                  IF1054.2
027300     IF DELETE-COUNTER IS EQUAL TO ZERO                           IF1054.2
027400         MOVE "NO " TO ERROR-TOTAL  ELSE                          IF1054.2
027500         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      IF1054.2
027600     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   IF1054.2
027700     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IF1054.2
027800      IF   INSPECT-COUNTER EQUAL TO ZERO                          IF1054.2
027900          MOVE "NO " TO ERROR-TOTAL                               IF1054.2
028000      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   IF1054.2
028100      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            IF1054.2
028200      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          IF1054.2
028300     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IF1054.2
028400 WRITE-LINE.                                                      IF1054.2
028500     ADD 1 TO RECORD-COUNT.                                       IF1054.2
028600     IF RECORD-COUNT GREATER 42                                   IF1054.2
028700         MOVE DUMMY-RECORD TO DUMMY-HOLD                          IF1054.2
028800         MOVE SPACE TO DUMMY-RECORD                               IF1054.2
028900         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  IF1054.2
029000         MOVE CCVS-H-1  TO DUMMY-RECORD  PERFORM WRT-LN 2 TIMES   IF1054.2
029100         MOVE CCVS-H-2A TO DUMMY-RECORD  PERFORM WRT-LN 2 TIMES   IF1054.2
029200         MOVE CCVS-H-2B TO DUMMY-RECORD  PERFORM WRT-LN 3 TIMES   IF1054.2
029300         MOVE CCVS-H-3  TO DUMMY-RECORD  PERFORM WRT-LN 3 TIMES   IF1054.2
029400         MOVE CCVS-C-1  TO DUMMY-RECORD  PERFORM WRT-LN           IF1054.2
029500         MOVE CCVS-C-2  TO DUMMY-RECORD  PERFORM WRT-LN           IF1054.2
029600         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          IF1054.2
029700         MOVE DUMMY-HOLD TO DUMMY-RECORD                          IF1054.2
029800         MOVE ZERO TO RECORD-COUNT.                               IF1054.2
029900     PERFORM WRT-LN.                                              IF1054.2
030000 WRT-LN.                                                          IF1054.2
030100     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               IF1054.2
030200     MOVE SPACE TO DUMMY-RECORD.                                  IF1054.2
030300 BLANK-LINE-PRINT.                                                IF1054.2
030400     PERFORM WRT-LN.                                              IF1054.2
030500 FAIL-ROUTINE.                                                    IF1054.2
030600     IF     COMPUTED-X NOT EQUAL TO SPACE                         IF1054.2
030700            GO TO FAIL-ROUTINE-WRITE.                             IF1054.2
030800     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IF1054.2
030900     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IF1054.2
031000     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   IF1054.2
031100     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IF1054.2
031200     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IF1054.2
031300     GO TO  FAIL-ROUTINE-EX.                                      IF1054.2
031400 FAIL-ROUTINE-WRITE.                                              IF1054.2
031500     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE.        IF1054.2
031600     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE                  IF1054.2
031700                              CORMA-ANSI-REFERENCE.               IF1054.2
031800     IF CORRECT-MIN NOT EQUAL TO SPACES THEN                      IF1054.2
031900           MOVE TEST-CORRECT-MIN TO PRINT-REC PERFORM WRITE-LINE  IF1054.2
032000           MOVE TEST-CORRECT-MAX TO PRINT-REC PERFORM WRITE-LINE  IF1054.2
032100     ELSE                                                         IF1054.2
032200           MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE.     IF1054.2
032300     PERFORM WRITE-LINE.                                          IF1054.2
032400     MOVE   SPACES TO COR-ANSI-REFERENCE.                         IF1054.2
032500 FAIL-ROUTINE-EX. EXIT.                                           IF1054.2
032600 BAIL-OUT.                                                        IF1054.2
032700     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   IF1054.2
032800     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           IF1054.2
032900 BAIL-OUT-WRITE.                                                  IF1054.2
033000     MOVE CORRECT-A TO XXCORRECT.                                 IF1054.2
033100     MOVE COMPUTED-A TO XXCOMPUTED.                               IF1054.2
033200     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IF1054.2
033300     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IF1054.2
033400     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IF1054.2
033500 BAIL-OUT-EX. EXIT.                                               IF1054.2
033600 CCVS1-EXIT.                                                      IF1054.2
033700     EXIT.                                                        IF1054.2
033800********************************************************          IF1054.2
033900*                                                      *          IF1054.2
034000*    Intrinsic Function Tests         IF105A - CHAR    *          IF1054.2
034100*                                                      *          IF1054.2
034200********************************************************          IF1054.2
034300 SECT-IF105A SECTION.                                             IF1054.2
034400 F-CHAR-INFO.                                                     IF1054.2
034500     MOVE     "See ref. A-37 2.9" TO ANSI-REFERENCE.              IF1054.2
034600     MOVE     "CHAR Function" TO FEATURE.                         IF1054.2
034700*****************TEST (a) ******************************          IF1054.2
034800 F-CHAR-01.                                                       IF1054.2
034900     MOVE SPACE TO WS-ANUM.                                       IF1054.2
035000 F-CHAR-TEST-01.                                                  IF1054.2
035100     MOVE FUNCTION CHAR(37) TO WS-ANUM.                           IF1054.2
035200     IF WS-ANUM = "$" THEN                                        IF1054.2
035300                        PERFORM PASS                              IF1054.2
035400     ELSE                                                         IF1054.2
035500                        MOVE  "$"  TO CORRECT-X                   IF1054.2
035600                        MOVE WS-ANUM TO COMPUTED-A                IF1054.2
035700                        PERFORM FAIL.                             IF1054.2
035800     GO TO F-CHAR-WRITE-01.                                       IF1054.2
035900 F-CHAR-DELETE-01.                                                IF1054.2
036000     PERFORM  DE-LETE.                                            IF1054.2
036100     GO TO    F-CHAR-WRITE-01.                                    IF1054.2
036200 F-CHAR-WRITE-01.                                                 IF1054.2
036300     MOVE "F-CHAR-01" TO PAR-NAME.                                IF1054.2
036400     PERFORM  PRINT-DETAIL.                                       IF1054.2
036500*****************TEST (b) ******************************          IF1054.2
036600 F-CHAR-TEST-02.                                                  IF1054.2
036700     IF FUNCTION CHAR(B) = "$" THEN                               IF1054.2
036800                                 PERFORM PASS                     IF1054.2
036900     ELSE                                                         IF1054.2
037000                                 PERFORM FAIL.                    IF1054.2
037100     GO TO F-CHAR-WRITE-02.                                       IF1054.2
037200 F-CHAR-DELETE-02.                                                IF1054.2
037300     PERFORM  DE-LETE.                                            IF1054.2
037400     GO TO    F-CHAR-WRITE-02.                                    IF1054.2
037500 F-CHAR-WRITE-02.                                                 IF1054.2
037600     MOVE "F-CHAR-02" TO PAR-NAME.                                IF1054.2
037700     PERFORM  PRINT-DETAIL.                                       IF1054.2
037800*****************TEST (c) ******************************          IF1054.2
037900 F-CHAR-03.                                                       IF1054.2
038000     MOVE SPACE TO WS-ANUM.                                       IF1054.2
038100 F-CHAR-TEST-03.                                                  IF1054.2
038200     MOVE FUNCTION CHAR(IND(5)) TO WS-ANUM.                       IF1054.2
038300     IF WS-ANUM = "+" THEN                                        IF1054.2
038400                        PERFORM PASS                              IF1054.2
038500     ELSE                                                         IF1054.2
038600                        MOVE  "+"  TO CORRECT-X                   IF1054.2
038700                        MOVE WS-ANUM TO COMPUTED-A                IF1054.2
038800                        PERFORM FAIL.                             IF1054.2
038900     GO TO F-CHAR-WRITE-03.                                       IF1054.2
039000 F-CHAR-DELETE-03.                                                IF1054.2
039100     PERFORM  DE-LETE.                                            IF1054.2
039200     GO TO    F-CHAR-WRITE-03.                                    IF1054.2
039300 F-CHAR-WRITE-03.                                                 IF1054.2
039400     MOVE "F-CHAR-03" TO PAR-NAME.                                IF1054.2
039500     PERFORM  PRINT-DETAIL.                                       IF1054.2
039600*****************TEST (d) ******************************          IF1054.2
039700 F-CHAR-04.                                                       IF1054.2
039800     MOVE SPACE TO WS-ANUM.                                       IF1054.2
039900 F-CHAR-TEST-04.                                                  IF1054.2
040000     MOVE FUNCTION CHAR(IND(C)) TO WS-ANUM.                       IF1054.2
040100     IF WS-ANUM = "$" THEN                                        IF1054.2
040200                        PERFORM PASS                              IF1054.2
040300     ELSE                                                         IF1054.2
040400                        MOVE  "$"  TO CORRECT-X                   IF1054.2
040500                        MOVE WS-ANUM TO COMPUTED-A                IF1054.2
040600                        PERFORM FAIL.                             IF1054.2
040700     GO TO F-CHAR-WRITE-04.                                       IF1054.2
040800 F-CHAR-DELETE-04.                                                IF1054.2
040900     PERFORM  DE-LETE.                                            IF1054.2
041000     GO TO    F-CHAR-WRITE-04.                                    IF1054.2
041100 F-CHAR-WRITE-04.                                                 IF1054.2
041200     MOVE "F-CHAR-04" TO PAR-NAME.                                IF1054.2
041300     PERFORM  PRINT-DETAIL.                                       IF1054.2
041400*****************TEST (e) ******************************          IF1054.2
041500 F-CHAR-05.                                                       IF1054.2
041600     MOVE SPACE TO WS-ANUM.                                       IF1054.2
041700 F-CHAR-TEST-05.                                                  IF1054.2
041800     MOVE FUNCTION CHAR(87) TO WS-ANUM.                           IF1054.2
041900     IF WS-ANUM = "V" THEN                                        IF1054.2
042000                        PERFORM PASS                              IF1054.2
042100     ELSE                                                         IF1054.2
042200                        MOVE  "V"  TO CORRECT-X                   IF1054.2
042300                        MOVE WS-ANUM TO COMPUTED-A                IF1054.2
042400                        PERFORM FAIL.                             IF1054.2
042500     GO TO F-CHAR-WRITE-05.                                       IF1054.2
042600 F-CHAR-DELETE-05.                                                IF1054.2
042700     PERFORM  DE-LETE.                                            IF1054.2
042800     GO TO    F-CHAR-WRITE-05.                                    IF1054.2
042900 F-CHAR-WRITE-05.                                                 IF1054.2
043000     MOVE "F-CHAR-05" TO PAR-NAME.                                IF1054.2
043100     PERFORM  PRINT-DETAIL.                                       IF1054.2
043200*****************TEST (f) ******************************          IF1054.2
043300 F-CHAR-06.                                                       IF1054.2
043400     MOVE SPACE TO WS-ANUM.                                       IF1054.2
043500 F-CHAR-TEST-06.                                                  IF1054.2
043600     MOVE FUNCTION CHAR(D) TO WS-ANUM.                            IF1054.2
043700     IF WS-ANUM = "c" THEN                                        IF1054.2
043800                        PERFORM PASS                              IF1054.2
043900     ELSE                                                         IF1054.2
044000                        MOVE  "c"  TO CORRECT-X                   IF1054.2
044100                        MOVE WS-ANUM TO COMPUTED-A                IF1054.2
044200                        PERFORM FAIL.                             IF1054.2
044300     GO TO F-CHAR-WRITE-06.                                       IF1054.2
044400 F-CHAR-DELETE-06.                                                IF1054.2
044500     PERFORM  DE-LETE.                                            IF1054.2
044600     GO TO    F-CHAR-WRITE-06.                                    IF1054.2
044700 F-CHAR-WRITE-06.                                                 IF1054.2
044800     MOVE "F-CHAR-06" TO PAR-NAME.                                IF1054.2
044900     PERFORM  PRINT-DETAIL.                                       IF1054.2
045000*****************TEST (g) ******************************          IF1054.2
045100 F-CHAR-07.                                                       IF1054.2
045200     MOVE SPACE TO WS-ANUM.                                       IF1054.2
045300 F-CHAR-TEST-07.                                                  IF1054.2
045400                                                                  IF1054.2
045500     IF FUNCTION ORD(FUNCTION CHAR(2)) = 2 THEN                   IF1054.2
045600                        PERFORM PASS                              IF1054.2
045700     ELSE                                                         IF1054.2
045800                        MOVE  2  TO CORRECT-N                     IF1054.2
045900                        MOVE WS-ANUM TO COMPUTED-A                IF1054.2
046000                        PERFORM FAIL.                             IF1054.2
046100     GO TO F-CHAR-WRITE-07.                                       IF1054.2
046200 F-CHAR-DELETE-07.                                                IF1054.2
046300     PERFORM  DE-LETE.                                            IF1054.2
046400     GO TO    F-CHAR-WRITE-07.                                    IF1054.2
046500 F-CHAR-WRITE-07.                                                 IF1054.2
046600     MOVE "F-CHAR-07" TO PAR-NAME.                                IF1054.2
046700     PERFORM  PRINT-DETAIL.                                       IF1054.2
046800*****************TEST (h) ******************************          IF1054.2
046900 F-CHAR-08.                                                       IF1054.2
047000     MOVE SPACE TO WS-ANUM.                                       IF1054.2
047100 F-CHAR-TEST-08.                                                  IF1054.2
047200     IF FUNCTION ORD(FUNCTION CHAR(4)) +                          IF1054.2
047300        FUNCTION ORD(FUNCTION CHAR(7)) = 11 THEN                  IF1054.2
047400                        PERFORM PASS                              IF1054.2
047500     ELSE                                                         IF1054.2
047600                        PERFORM FAIL.                             IF1054.2
047700     GO TO F-CHAR-WRITE-08.                                       IF1054.2
047800 F-CHAR-DELETE-08.                                                IF1054.2
047900     PERFORM  DE-LETE.                                            IF1054.2
048000     GO TO    F-CHAR-WRITE-08.                                    IF1054.2
048100 F-CHAR-WRITE-08.                                                 IF1054.2
048200     MOVE "F-CHAR-08" TO PAR-NAME.                                IF1054.2
048300     PERFORM  PRINT-DETAIL.                                       IF1054.2
048400*******************END OF TESTS**************************         IF1054.2
048500 CCVS-EXIT SECTION.                                               IF1054.2
048600 CCVS-999999.                                                     IF1054.2
048700     GO TO CLOSE-FILES.                                           IF1054.2

95%


¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.25Angebot  Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können  ¤

*Eine klare Vorstellung vom Zielzustand




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.