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 83 kB image not shown  

Quelle  nc122a.cob   Sprache: Cobol

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

--> maximum size reached

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

93%


¤ 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.