Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/NC/     Datei vom 4.1.2008 mit Größe 175 kB image not shown  

SSL nc217a.cob   Sprache: Cobol

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

--> maximum size reached

--> --------------------

92%


¤ Dauer der Verarbeitung: 0.31 Sekunden  ¤

*© Formatika GbR, Deutschland




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.