Quelle  nc108m.cob   Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         NC1084.2
000200 PROGRAM-ID.                                                      NC1084.2
000300     NC108M.                                                      NC1084.2
000400****************************************************************  NC1084.2
000500*                                                              *  NC1084.2
000600*    VALIDATION FOR:-                                          *  NC1084.2
000700*                                                              *  NC1084.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC1084.2
000900*                                                              *  NC1084.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC1084.2
001100*                                                              *  NC1084.2
001200****************************************************************  NC1084.2
001300*                                                              *  NC1084.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC1084.2
001500*                                                              *  NC1084.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  NC1084.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  NC1084.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  NC1084.2
001900*                                                              *  NC1084.2
002000****************************************************************  NC1084.2
002100*                                                                 NC1084.2
002200*    PROGRAM NC108M TESTS THE FOLLOWING FEATURES:                 NC1084.2
002300*                                                                 NC1084.2
002400*    COMPACT IDENTIFICATION DIVISION                              NC1084.2
002500*    COMBINED DATA DESCRIPTION CLAUSES                            NC1084.2
002600*    ABBREVIATIONS                                                NC1084.2
002700*    COBOL CHARACTER SET                                          NC1084.2
002800*    ALPHABET CLAUSE                                              NC1084.2
002900*                                                                 NC1084.2
003000 ENVIRONMENT DIVISION.                                            NC1084.2
003100 CONFIGURATION SECTION.                                           NC1084.2
003200 SOURCE-COMPUTER.                                                 NC1084.2
003300     Card0130.                                                    NC1084.2
003400 OBJECT-COMPUTER.                                                 NC1084.2
003500     Card0131.                                                    NC1084.2
003600 SPECIAL-NAMES.                                                   NC1084.2
003700     C0081                                                        NC1084.2
003800     IS ABBREV-SWITCH                                             NC1084.2
003900         ON  ON-SWITCH                                            NC1084.2
004000         OFF IS  OFF-SWITCH                                       NC1084.2
004100*    ALPHABET THE-WILD-ONE IS                                     NC1084.2
004200*     "A" THRU "H" "I" ALSO "J", ALSO "K", ALSO                   NC1084.2
004300*    "L" ALSO "M" ALSO "N" "O" THROUGH "Z" "0" THRU "9",          NC1084.2
004400*                                                                 NC1084.2
004500*                                                                 NC1084.2
004600*ALPHABET-TEST-10     *****     THE WHOLE ALPHABET IS ONE LITERAL NC1084.2
004700*    WITH ALL 51 CHARACTERS IN THE COBOL CHARACTER SET.  TEST-10  NC1084.2
004800*    IS ONLY A SYNTAX CHECK ON                                    NC1084.2
004900*            ALPHABET-NAME IS LITERAL.                            NC1084.2
005000*                                                                 NC1084.2
005100*                                                                 NC1084.2
005200*    THE-BIG-OL-LITERAL-ALPHABET IS "A+0B-1C*2D/3E=4FL5G,6H;7I.8J"NC1084.2
005300*    ""9K(L)M>N<O PQRSTUVWXYZ"                                    NC1084.2
005400     ALPHABET TEST-ALPHABET IS NATIVE                             NC1084.2
005500     CURRENCY  "<".                                               NC1084.2
005600 INPUT-OUTPUT SECTION.                                            NC1084.2
005700 FILE-CONTROL.                                                    NC1084.2
005800     SELECT PRINT-FILE ASSIGN TO                                  NC1084.2
005900     "C0085" .                                                    NC1084.2
006000 DATA DIVISION.                                                   NC1084.2
006100 FILE SECTION.                                                    NC1084.2
006200 FD  PRINT-FILE.                                                  NC1084.2
006300 01  PRINT-REC PICTURE X(120).                                    NC1084.2
006400 01  DUMMY-RECORD PICTURE X(120).                                 NC1084.2
006500 WORKING-STORAGE SECTION.                                         NC1084.2
006600 77  ONE      PICTURE 9 VALUE 1.                                  NC1084.2
006700 77  TWO      PICTURE 9 VALUE 2.                                  NC1084.2
006800 01  XCHAR-SET PICTURE X(51) VALUE     "ABCDEFGHIJKLMNOPQRSTUVWXYZNC1084.2
006900-    " 0123456789 +-*/=$,.;()><".                                 NC1084.2
007000 01  CHARACTER-QUOTE  PIC X VALUE QUOTE.                          NC1084.2
007100 01  CHARACTER-LOW PIC X(26) VALUE "abcdefghijklmnopqrstuvwxyz".  NC1084.2
007200 01  COMPLETE-01.                                                 NC1084.2
007300     02 COMPLETE-F.                                               NC1084.2
007400       03 FILLER PICTURE X(90) VALUE SPACE.                       NC1084.2
007500       03 FL-LESS PICTURE 9(3).99 VALUE "1,111.11".               NC1084.2
007500*       03 FL-LESS PICTURE <(3),<<<.99 VALUE " <1,111.11".        NC1084.2
007600     02 COMPLETE-FORMAT                                           NC1084.2
007700         REDEFINES COMPLETE-F                                     NC1084.2
007800         JUSTIFIED RIGHT                                          NC1084.2
007900         PICTURE X(5)                                             NC1084.2
008000         OCCURS 20 TIMES                                          NC1084.2
008100         USAGE IS DISPLAY.                                        NC1084.2
008200     02 MORE-COMPLETE-FORMAT                                      NC1084.2
008300         BLANK WHEN ZERO                                          NC1084.2
008400         PICTURE IS 9                                             NC1084.2
008500         SYNCHRONIZED RIGHT                                       NC1084.2
008600         DISPLAY                                                  NC1084.2
008700              VALUE IS "5".                                       NC1084.2
008800 01  PIC-GROUP.                                                   NC1084.2
008900     02 FILLER          PICTURE X(4) VALUE "AAAA".                NC1084.2
009000     02 FILLER          PIC     X(4) VALUE "BBBB".                NC1084.2
009100     02 FILLER          PIC IS  X(4) VALUE "CCCC".                NC1084.2
009200     02                 PICTURE X(4) VALUE "DDDD".                NC1084.2
009300 01  PICTURE-ITEM       PICTURE X(16) VALUE "AAAABBBBCCCCDDDD".   NC1084.2
009400 01  SEND-JUST          PICTURE X(5) VALUE "RIGHT".               NC1084.2
009500 01  RECEIVE-JUST       PICTURE X(10)               JUST.         NC1084.2
009600 01  RECEIVE-JUSTRIGHT  PICTURE X(10)               JUST RIGHT.   NC1084.2
009700 01  SEND-BLANK         PICTURE 9(5) VALUE ZERO.                  NC1084.2
009800 01  RECEIVE-BLANK      PICTURE 9(9)                BLANK ZERO.   NC1084.2
009900 01  COMP-GROUP.                                                  NC1084.2
010000     02 FILLER          PICTURE X(5) VALUE SPACE.                 NC1084.2
010100     02 FILLER          PICTURE 9(5) VALUE 77777 USAGE IS COMP.   NC1084.2
010200     02 FILLER          PICTURE X(5) VALUE SPACE.                 NC1084.2
010300 01  COMPUTATIONAL-GROUP.                                         NC1084.2
010400     02 FILLER          PICTURE X(5) VALUE SPACE.                 NC1084.2
010500     02 FILLER          PICTURE 9(5) VALUE 77777 COMPUTATIONAL.   NC1084.2
010600     02 FILLER          PICTURE X(5) VALUE SPACE.                 NC1084.2
010700 01  SYNC-GROUP.                                                  NC1084.2
010800     02                 PICTURE X(5) VALUE SPACE.                 NC1084.2
010900     02                 PICTURE 9(5) VALUE 55555 SYNC.            NC1084.2
011000     02                 PICTURE X(5) VALUE SPACE.                 NC1084.2
011100 01  SYNCHRONIZED-GROUP.                                          NC1084.2
011200     02 FILLER          PICTURE X(5) VALUE SPACE.                 NC1084.2
011300     02 FILLER          PICTURE 9(5) VALUE 55555 SYNCHRONIZED.    NC1084.2
011400     02 FILLER          PICTURE X(5) VALUE SPACE.                 NC1084.2
011500 01  SYNC-RIGHT-GROUP.                                            NC1084.2
011600     02 FILLER PICTURE X(5) VALUE SPACE.                          NC1084.2
011700     02 FILLER PICTURE 9(5) VALUE 33333 SYNC RIGHT.               NC1084.2
011800     02 FILLER PICTURE X(5) VALUE SPACE.                          NC1084.2
011900 01  SYNCHRONIZED-RIGHT-GROUP.                                    NC1084.2
012000     02 FILLER PICTURE X(5) VALUE SPACE.                          NC1084.2
012100     02 FILLER PICTURE 9(5) VALUE 33333 SYNCHRONIZED RIGHT.       NC1084.2
012200     02 FILLER PICTURE X(5) VALUE SPACE.                          NC1084.2
012300 01  SYNC-LEFT-GROUP.                                             NC1084.2
012400     02 FILLER PICTURE X(5) VALUE SPACE.                          NC1084.2
012500     02 FILLER PICTURE 9(5) VALUE 11111 SYNC LEFT.                NC1084.2
012600     02 FILLER PICTURE X(5) VALUE SPACE.                          NC1084.2
012700 01  SYNCHRONIZED-LEFT-GROUP.                                     NC1084.2
012800     02 FILLER PICTURE X(5) VALUE SPACE.                          NC1084.2
012900     02 FILLER PICTURE 9(5) VALUE 11111 SYNCHRONIZED LEFT.        NC1084.2
013000     02 FILLER PICTURE X(5) VALUE SPACE.                          NC1084.2
013100 01  TEST-FIELD            PIC X(10).                             NC1084.2
013200 01                        REDEFINES TEST-FIELD                   NC1084.2
013300                           PIC 9(9).                              NC1084.2
013400 01  TEST-RESULTS.                                                NC1084.2
013500     02 FILLER                   PIC X      VALUE SPACE.          NC1084.2
013600     02 FEATURE                  PIC X(20)  VALUE SPACE.          NC1084.2
013700     02 FILLER                   PIC X      VALUE SPACE.          NC1084.2
013800     02 P-OR-F                   PIC X(5)   VALUE SPACE.          NC1084.2
013900     02 FILLER                   PIC X      VALUE SPACE.          NC1084.2
014000     02  PAR-NAME.                                                NC1084.2
014100       03 FILLER                 PIC X(19)  VALUE SPACE.          NC1084.2
014200       03  PARDOT-X              PIC X      VALUE SPACE.          NC1084.2
014300       03 DOTVALUE               PIC 99     VALUE ZERO.           NC1084.2
014400     02 FILLER                   PIC X(8)   VALUE SPACE.          NC1084.2
014500     02 RE-MARK                  PIC X(61).                       NC1084.2
014600 01  TEST-COMPUTED.                                               NC1084.2
014700     02 FILLER                   PIC X(30)  VALUE SPACE.          NC1084.2
014800     02 FILLER                   PIC X(17)  VALUE                 NC1084.2
014900            " COMPUTED=".                                   NC1084.2
015000     02 COMPUTED-X.                                               NC1084.2
015100     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          NC1084.2
015200     03 COMPUTED-N               REDEFINES COMPUTED-A             NC1084.2
015300                                 PIC -9(9).9(9).                  NC1084.2
015400     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         NC1084.2
015500     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     NC1084.2
015600     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     NC1084.2
015700     03       CM-18V0 REDEFINES COMPUTED-A.                       NC1084.2
015800         04 COMPUTED-18V0                    PIC -9(18).          NC1084.2
015900         04 FILLER                           PIC X.               NC1084.2
016000     03 FILLER PIC X(50) VALUE SPACE.                             NC1084.2
016100 01  TEST-CORRECT.                                                NC1084.2
016200     02 FILLER PIC X(30) VALUE SPACE.                             NC1084.2
016300     02 FILLER PIC X(17) VALUE " CORRECT =".                NC1084.2
016400     02 CORRECT-X.                                                NC1084.2
016500     03 CORRECT-A                  PIC X(20) VALUE SPACE.         NC1084.2
016600     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      NC1084.2
016700     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         NC1084.2
016800     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     NC1084.2
016900     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     NC1084.2
017000     03      CR-18V0 REDEFINES CORRECT-A.                         NC1084.2
017100         04 CORRECT-18V0                     PIC -9(18).          NC1084.2
017200         04 FILLER                           PIC X.               NC1084.2
017300     03 FILLER PIC X(2) VALUE SPACE.                              NC1084.2
017400     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     NC1084.2
017500 01  CCVS-C-1.                                                    NC1084.2
017600     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PANC1084.2
017700-    "SS PARAGRAPH-NAME NC1084.2
017800-    " REMARKS".                                            NC1084.2
017900     02 FILLER                     PIC X(20)    VALUE SPACE.      NC1084.2
018000 01  CCVS-C-2.                                                    NC1084.2
018100     02 FILLER                     PIC X        VALUE SPACE.      NC1084.2
018200     02 FILLER                     PIC X(6)     VALUE "TESTED".   NC1084.2
018300     02 FILLER                     PIC X(15)    VALUE SPACE.      NC1084.2
018400     02 FILLER                     PIC X(4)     VALUE "FAIL".     NC1084.2
018500     02 FILLER                     PIC X(94)    VALUE SPACE.      NC1084.2
018600 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       NC1084.2
018700 01  REC-CT                        PIC 99       VALUE ZERO.       NC1084.2
018800 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       NC1084.2
018900 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       NC1084.2
019000 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       NC1084.2
019100 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       NC1084.2
019200 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       NC1084.2
019300 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       NC1084.2
019400 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      NC1084.2
019500 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       NC1084.2
019600 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     NC1084.2
019700 01  CCVS-H-1.                                                    NC1084.2
019800     02  FILLER                    PIC X(39)    VALUE SPACES.     NC1084.2
019900     02  FILLER                    PIC X(42)    VALUE             NC1084.2
020000     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 NC1084.2
020100     02  FILLER                    PIC X(39)    VALUE SPACES.     NC1084.2
020200 01  CCVS-H-2A.                                                   NC1084.2
020300   02  FILLER                        PIC X(40)  VALUE SPACE.      NC1084.2
020400   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  NC1084.2
020500   02  FILLER                        PIC XXXX   VALUE             NC1084.2
020600     "4.2 ".                                                      NC1084.2
020700   02  FILLER                        PIC X(28)  VALUE             NC1084.2
020800            " COPY - NOT FOR DISTRIBUTION".                       NC1084.2
020900   02  FILLER                        PIC X(41)  VALUE SPACE.      NC1084.2
021000                                                                  NC1084.2
021100 01  CCVS-H-2B.                                                   NC1084.2
021200   02  FILLER                        PIC X(15)  VALUE             NC1084.2
021300            "TEST RESULT OF ".                                    NC1084.2
021400   02  TEST-ID                       PIC X(9).                    NC1084.2
021500   02  FILLER                        PIC X(4)   VALUE             NC1084.2
021600            " IN ".                                               NC1084.2
021700   02  FILLER                        PIC X(12)  VALUE             NC1084.2
021800     " HIGH ".                                              NC1084.2
021900   02  FILLER                        PIC X(22)  VALUE             NC1084.2
022000            " LEVEL VALIDATION FOR ".                             NC1084.2
022100   02  FILLER                        PIC X(58)  VALUE             NC1084.2
022200     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1084.2
022300 01  CCVS-H-3.                                                    NC1084.2
022400     02  FILLER                      PIC X(34)  VALUE             NC1084.2
022500            " FOR OFFICIAL USE ONLY ".                         NC1084.2
022600     02  FILLER                      PIC X(58)  VALUE             NC1084.2
022700     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1084.2
022800     02  FILLER                      PIC X(28)  VALUE             NC1084.2
022900            " COPYRIGHT 1985 ".                                NC1084.2
023000 01  CCVS-E-1.                                                    NC1084.2
023100     02 FILLER                       PIC X(52)  VALUE SPACE.      NC1084.2
023200     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              NC1084.2
023300     02 ID-AGAIN                     PIC X(9).                    NC1084.2
023400     02 FILLER                       PIC X(45)  VALUE SPACES.     NC1084.2
023500 01  CCVS-E-2.                                                    NC1084.2
023600     02  FILLER                      PIC X(31)  VALUE SPACE.      NC1084.2
023700     02  FILLER                      PIC X(21)  VALUE SPACE.      NC1084.2
023800     02 CCVS-E-2-2.                                               NC1084.2
023900         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      NC1084.2
024000         03 FILLER                   PIC X      VALUE SPACE.      NC1084.2
024100         03 ENDER-DESC               PIC X(44)  VALUE             NC1084.2
024200            "ERRORS ENCOUNTERED".                                 NC1084.2
024300 01  CCVS-E-3.                                                    NC1084.2
024400     02  FILLER                      PIC X(22)  VALUE             NC1084.2
024500            " FOR OFFICIAL USE ONLY".                             NC1084.2
024600     02  FILLER                      PIC X(12)  VALUE SPACE.      NC1084.2
024700     02  FILLER                      PIC X(58)  VALUE             NC1084.2
024800     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1084.2
024900     02  FILLER                      PIC X(13)  VALUE SPACE.      NC1084.2
025000     02 FILLER                       PIC X(15)  VALUE             NC1084.2
025100             " COPYRIGHT 1985".                                   NC1084.2
025200 01  CCVS-E-4.                                                    NC1084.2
025300     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      NC1084.2
025400     02 FILLER                       PIC X(4)   VALUE " OF ".     NC1084.2
025500     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      NC1084.2
025600     02 FILLER                       PIC X(40)  VALUE             NC1084.2
025700      " TESTS WERE EXECUTED SUCCESSFULLY".                       NC1084.2
025800 01  XXINFO.                                                      NC1084.2
025900     02 FILLER                       PIC X(19)  VALUE             NC1084.2
026000            "*** INFORMATION ***".                                NC1084.2
026100     02 INFO-TEXT.                                                NC1084.2
026200       04 FILLER                     PIC X(8)   VALUE SPACE.      NC1084.2
026300       04 XXCOMPUTED                 PIC X(20).                   NC1084.2
026400       04 FILLER                     PIC X(5)   VALUE SPACE.      NC1084.2
026500       04 XXCORRECT                  PIC X(20).                   NC1084.2
026600     02 INF-ANSI-REFERENCE           PIC X(48).                   NC1084.2
026700 01  HYPHEN-LINE.                                                 NC1084.2
026800     02 FILLER  PIC IS X VALUE IS SPACE.                          NC1084.2
026900     02 FILLER  PIC IS X(65)    VALUE IS "************************NC1084.2
027000-    "*****************************************".                 NC1084.2
027100     02 FILLER  PIC IS X(54)    VALUE IS "************************NC1084.2
027200-    "******************************".                            NC1084.2
027300 01  CCVS-PGM-ID                     PIC X(9)   VALUE             NC1084.2
027400     "NC108M".                                                    NC1084.2
027500 PROCEDURE DIVISION.                                              NC1084.2
027600 CCVS1 SECTION.                                                   NC1084.2
027700 OPEN-FILES.                                                      NC1084.2
027800     OPEN     OUTPUT PRINT-FILE.                                  NC1084.2
027900     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   NC1084.2
028000     MOVE    SPACE TO TEST-RESULTS.                               NC1084.2
028100     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             NC1084.2
028200     GO TO CCVS1-EXIT.                                            NC1084.2
028300 CLOSE-FILES.                                                     NC1084.2
028400     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   NC1084.2
028500 TERMINATE-CCVS.                                                  NC1084.2
028600     EXIT PROGRAM.                                                NC1084.2
028700 TERMINATE-CALL.                                                  NC1084.2
028800     STOP     RUN.                                                NC1084.2
028900 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         NC1084.2
029000 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           NC1084.2
029100 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          NC1084.2
029200 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      NC1084.2
029300     MOVE "****TEST DELETED****" TO RE-MARK.                      NC1084.2
029400 PRINT-DETAIL.                                                    NC1084.2
029500     IF REC-CT NOT EQUAL TO ZERO                                  NC1084.2
029600             MOVE "." TO PARDOT-X                                 NC1084.2
029700             MOVE REC-CT TO DOTVALUE.                             NC1084.2
029800     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      NC1084.2
029900     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               NC1084.2
030000        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 NC1084.2
030100          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 NC1084.2
030200     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              NC1084.2
030300     MOVE SPACE TO CORRECT-X.                                     NC1084.2
030400     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         NC1084.2
030500     MOVE     SPACE TO RE-MARK.                                   NC1084.2
030600 HEAD-ROUTINE.                                                    NC1084.2
030700     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC1084.2
030800     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC1084.2
030900     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC1084.2
031000     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC1084.2
031100 COLUMN-NAMES-ROUTINE.                                            NC1084.2
031200     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1084.2
031300     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1084.2
031400     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        NC1084.2
031500 END-ROUTINE.                                                     NC1084.2
031600     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC1084.2
031700 END-RTN-EXIT.                                                    NC1084.2
031800     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1084.2
031900 END-ROUTINE-1.                                                   NC1084.2
032000      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      NC1084.2
032100      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               NC1084.2
032200      ADD PASS-COUNTER TO ERROR-HOLD.                             NC1084.2
032300*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC1084.2
032400      MOVE PASS-COUNTER TO CCVS-E-4-1.                            NC1084.2
032500      MOVE ERROR-HOLD TO CCVS-E-4-2.                              NC1084.2
032600      MOVE CCVS-E-4 TO CCVS-E-2-2.                                NC1084.2
032700      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           NC1084.2
032800  END-ROUTINE-12.                                                 NC1084.2
032900      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        NC1084.2
033000     IF       ERROR-COUNTER IS EQUAL TO ZERO                      NC1084.2
033100         MOVE "NO " TO ERROR-TOTAL                                NC1084.2
033200         ELSE                                                     NC1084.2
033300         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC1084.2
033400     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           NC1084.2
033500     PERFORM WRITE-LINE.                                          NC1084.2
033600 END-ROUTINE-13.                                                  NC1084.2
033700     IF DELETE-COUNTER IS EQUAL TO ZERO                           NC1084.2
033800         MOVE "NO " TO ERROR-TOTAL  ELSE                          NC1084.2
033900         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      NC1084.2
034000     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   NC1084.2
034100     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1084.2
034200      IF   INSPECT-COUNTER EQUAL TO ZERO                          NC1084.2
034300          MOVE "NO " TO ERROR-TOTAL                               NC1084.2
034400      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   NC1084.2
034500      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            NC1084.2
034600      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          NC1084.2
034700     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1084.2
034800 WRITE-LINE.                                                      NC1084.2
034900     ADD 1 TO RECORD-COUNT.                                       NC1084.2
035000     IF RECORD-COUNT GREATER 50                                   NC1084.2
035100         MOVE DUMMY-RECORD TO DUMMY-HOLD                          NC1084.2
035200         MOVE SPACE TO DUMMY-RECORD                               NC1084.2
035300         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  NC1084.2
035400         MOVE CCVS-H-1  TO DUMMY-RECORD  PERFORM WRT-LN 2 TIMES   NC1084.2
035500         MOVE CCVS-H-2A TO DUMMY-RECORD  PERFORM WRT-LN 2 TIMES   NC1084.2
035600         MOVE CCVS-H-2B TO DUMMY-RECORD  PERFORM WRT-LN 3 TIMES   NC1084.2
035700         MOVE CCVS-H-3  TO DUMMY-RECORD  PERFORM WRT-LN 3 TIMES   NC1084.2
035800         MOVE CCVS-C-1  TO DUMMY-RECORD  PERFORM WRT-LN           NC1084.2
035900         MOVE CCVS-C-2  TO DUMMY-RECORD  PERFORM WRT-LN           NC1084.2
036000         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          NC1084.2
036100         MOVE DUMMY-HOLD TO DUMMY-RECORD                          NC1084.2
036200         MOVE ZERO TO RECORD-COUNT.                               NC1084.2
036300     PERFORM WRT-LN.                                              NC1084.2
036400 WRT-LN.                                                          NC1084.2
036500     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               NC1084.2
036600     MOVE SPACE TO DUMMY-RECORD.                                  NC1084.2
036700 BLANK-LINE-PRINT.                                                NC1084.2
036800     PERFORM WRT-LN.                                              NC1084.2
036900 FAIL-ROUTINE.                                                    NC1084.2
037000     IF     COMPUTED-X NOT EQUAL TO SPACE                         NC1084.2
037100            GO TO FAIL-ROUTINE-WRITE.                             NC1084.2
037200     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC1084.2
037300     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC1084.2
037400     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   NC1084.2
037500     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1084.2
037600     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC1084.2
037700     GO TO  FAIL-ROUTINE-EX.                                      NC1084.2
037800 FAIL-ROUTINE-WRITE.                                              NC1084.2
037900     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         NC1084.2
038000     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 NC1084.2
038100     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC1084.2
038200     MOVE   SPACES TO COR-ANSI-REFERENCE.                         NC1084.2
038300 FAIL-ROUTINE-EX. EXIT.                                           NC1084.2
038400 BAIL-OUT.                                                        NC1084.2
038500     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   NC1084.2
038600     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           NC1084.2
038700 BAIL-OUT-WRITE.                                                  NC1084.2
038800     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  NC1084.2
038900     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC1084.2
039000     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1084.2
039100     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC1084.2
039200 BAIL-OUT-EX. EXIT.                                               NC1084.2
039300 CCVS1-EXIT.                                                      NC1084.2
039400     EXIT.                                                        NC1084.2
039500*IDENTIFICATION DIVISION.                                         NC1084.2
039600*    NOTE THE ENTIRE IDENTIFICATION DIVISION IS OPTIONAL, WITH THENC1084.2
039700*    EXCEPTION OF THE IDENTIFICATION DIVISION AND PROGRAM-ID      NC1084.2
039800*    CLAUSES. AS A TEST, ALL THE OPTIONAL CLAUSES HAVE BEEN       NC1084.2
039900*    REMOVED. INFORMATION NORMALLY GIVEN THERE IS LISTED BELOW    NC1084.2
040000*    AS A COMMENT.  ADDITIONALLY, KEY WORDS ARE USED IN COMMENT   NC1084.2
040100*    LINES TO ASCERTAIN WHETHER COMMENTS ARE BEING SYNTAX CHECKED.NC1084.2
040200****************************************************************  NC1084.2
040300*                                                              *  NC1084.2
040400*    THIS PROGRAM FORMS PART OF THE COBOL COMPILER VALIDATION  *  NC1084.2
040500*    SYSTEM (CCVS) USED TO TEST COBOL COMPILERS FOR            *  NC1084.2
040600*    COMFORMANCE WITH THE AMERICAN NATIONAL STANDARD           *  NC1084.2
040700*    (ANSI DOCUMENT REFERENCE: X3.23-1985) AND THE STANDARD OF *  NC1084.2
040800*    THE INTERNATIONAL ORGANIZATION FOR STANDARDISATION        *  NC1084.2
040900*    (ISO DOCUMENT REFERENCE: ISO            ).                *  NC1084.2
041000*                                                              *  NC1084.2
041100*    THIS CCVS INCORPORATES ENHANCEMENTS TO THE CCVS FOR THE   *  NC1084.2
041200*    1974 STANDARD (ANSI DOCUMENT REFERENCE: X3.23-1974; ISO   *  NC1084.2
041300*    DOCUMENT REFERENCE:           ).                          *  NC1084.2
041400*                                                              *  NC1084.2
041500*    THESE ENHANCEMENTS WERE SPECIFIED BY A PROJECT TEAM WHICH *  NC1084.2
041600*    WAS FUNDED BY THE COMMISSION FOR EUROPEAN COMMUNITIES AND *  NC1084.2
041700*    WHICH WAS RESPONSIBLE FOR TECHNICAL ISSUES TO:            *  NC1084.2
041800*                                                              *  NC1084.2
041900*          THE FEDERAL SOFTWARE TESTING CENTRE                 *  NC1084.2
042000*          OFFICE OF SOFTWARE DEVELOPMENT                      *  NC1084.2
042100*                & INFORMATION TECHNOLOGY                      *  NC1084.2
042200*          TWO SKYLINE PLACE                                   *  NC1084.2
042300*          SUITE 1100                                          *  NC1084.2
042400*          5203 LEESBURG PIKE                                  *  NC1084.2
042500*          FALLS CHURCH                                        *  NC1084.2
042600*          VA 22041                                            *  NC1084.2
042700*          U.S.A.                                              *  NC1084.2
042800*                                                              *  NC1084.2
042900*    THE PROJECT TEAM MEMBERS WERE:                            *  NC1084.2
043000*                                                              *  NC1084.2
043100*          BIADI (BUREAU INTER ADMINISTRATION                  *  NC1084.2
043200*                 DE DOCUMENTATION INFORMATIQUE)               *  NC1084.2
043300*          21 RUE BARA                                         *  NC1084.2
043400*          F-92132 ISSY                                        *  NC1084.2
043500*          FRANCE                                              *  NC1084.2
043600*                                                              *  NC1084.2
043700*                                                              *  NC1084.2
043800*          GMD (GESELLSCHAFT FUR MATHEMATIK                    *  NC1084.2
043900*               UND DATENVERARBEITUNG MBH)                     *  NC1084.2
044000*          SCHLOSS BIRLINGHOVEN                                *  NC1084.2
044100*          POSTFACH 12 40                                      *  NC1084.2
044200*          D-5205 ST. AUGUSTIN 1                               *  NC1084.2
044300*          GERMANY FR                                          *  NC1084.2
044400*                                                              *  NC1084.2
044500*                                                              *  NC1084.2
044600*          NCC (THE NATIONAL COMPUTING CENTRE LTD)             *  NC1084.2
044700*          OXFORD ROAD                                         *  NC1084.2
044800*          MANCHESTER                                          *  NC1084.2
044900*          M1 7ED                                              *  NC1084.2
045000*          UNITED KINGDOM                                      *  NC1084.2
045100*                                                              *  NC1084.2
045200*                                                              *  NC1084.2
045300*    THIS TEST SUITE WAS PRODUCED BY THE NATIONAL COMPUTING    *  NC1084.2
045400*    CENTRE IN ENGLAND AND IS THE OFFICIAL CCVS TEST SUITE     *  NC1084.2
045500*    USED THROUGHOUT EUROPE AND THE UNITED STATES OF AMERICA.  *  NC1084.2
045600*                                                              *  NC1084.2
045700****************************************************************  NC1084.2
045800*                                                              *  NC1084.2
045900*    VALIDATION FOR:-                                          *  NC1084.2
046000*    " HIGH       ".                                              NC1084.2
046100*    USING CCVS85 VERSION 1.0 ISSUED IN JANUARY 1986.          *  NC1084.2
046200*                                                              *  NC1084.2
046300*    CREATION DATE     /     VALIDATION DATE                   *  NC1084.2
046400*    "4.2 ".                                                      NC1084.2
046500*                                                              *  NC1084.2
046600****************************************************************  NC1084.2
046700*                                                                 NC1084.2
046800*    PROGRAM NC108M TESTS THE FOLLOWING FEATURES:                 NC1084.2
046900*                                                                 NC1084.2
047000*            COMPACT "IDENTIFICATION DIVISION"                    NC1084.2
047100*            COMBINED DATA DESCRIPTION CLAUSES                    NC1084.2
047200*            ABBREVIATIONS                                        NC1084.2
047300*            COBOL CHARACTER SET                                  NC1084.2
047400*            ALPHABET CLAUSE                                      NC1084.2
047500*                                                                 NC1084.2
047600*                                                                 NC1084.2
047700*                                                                 NC1084.2
047800*      THE SOURCE LINES IN THE ENVIRONMENT AND DATA DIVISION      NC1084.2
047900*      SHOULD BE REPLACED AS FOLLOWS                              NC1084.2
048000*        XXXXX36   REPLACE WITH SYSTEM OUTPUT DEVICE (PRINTER)    NC1084.2
048100*                    FILE-NAME IS PRINT-FILE.                     NC1084.2
048200*        XXXXX38   REPLACE WITH SYSTEM NAME FOR A SWITCH          NC1084.2
048300*                    SWITCH-NAME IS ABBREV-SEITCH.                NC1084.2
048400*        XXXXX49   REPLACE WITH SOURCE COMPUTER NAME              NC1084.2
048500*        XXXXX50   REPLACE WITH OBJECT COMPUTER NAME              NC1084.2
048600*                                                                 NC1084.2
048700*    THE DOD COBOL TEST ROUTINES HAVE BEEN CREATED TO BE          NC1084.2
048800*    USED TO VALIDATE THAT                                        NC1084.2
048900*                                                                 NC1084.2
049000*           1  A COBOL COMPILER CONTAINS THE ELEMENTS OF THE      NC1084.2
049100*              ANSI COBOL.                                        NC1084.2
049200*                                                                 NC1084.2
049300*           2  TO PROVIDE EXAMPLES OF THE USES OF THE DIFFERENT   NC1084.2
049400*               ELEMENTS OF THE COBOL LANGUAGE.                   NC1084.2
049500*                                                                 NC1084.2
049600*           3  TO BE USED AS TEST DATA FOR PRE-PROCESSORS         NC1084.2
049700*              FLOWCHARTERS  ETC.                                 NC1084.2
049800*                                                                 NC1084.2
049900*           4  IT IS HOPED THAT EVALUATIONS  CORRECTIONS          NC1084.2
050000*               SUGGESTIONS AND COMMENTS WILL BE FORWARDED TO     NC1084.2
050100*                  NAVY PROGRAMMING LANGUAGES DIVISION            NC1084.2
050200*                    ROOM 2C319 THE PENTAGON                      NC1084.2
050300*                    WASHINGTON D C      20350.                   NC1084.2
050400*    *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * *.NC1084.2
050500*                                                                 NC1084.2
050600*    PHONE    (202) 695-4750.                                     NC1084.2
050700*                                                                 NC1084.2
050800*    *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * *.NC1084.2
050900 FMT-INIT-GF-1.                                                   NC1084.2
051000     MOVE   "COMPLETE DATA FORMAT" TO FEATURE.                    NC1084.2
051100     MOVE   "V1-6 3.2.1.1" TO ANSI-REFERENCE.                     NC1084.2
051200 FMT-TEST-GF-1.                                                   NC1084.2
051300     MOVE COMPLETE-FORMAT (19) TO COMPUTED-A.                     NC1084.2
051400     MOVE " <1,1" TO CORRECT-A.                                   NC1084.2
051500     IF   COMPLETE-FORMAT (19) EQUAL TO " <1,1"                   NC1084.2
051600          MOVE "FAILURE IF DOLLAR APPEARS" TO RE-MARK             NC1084.2
051700          GO TO FMT-WRITE-GF-1.                                   NC1084.2
051800     PERFORM FAIL.                                                NC1084.2
051900     MOVE "LESS THAN SHOULD APPEAR" TO RE-MARK.                   NC1084.2
052000     GO       TO FMT-WRITE-GF-1.                                  NC1084.2
052100 FMT-DELETE-GF-1.                                                 NC1084.2
052200     PERFORM  DE-LETE.                                            NC1084.2
052300 FMT-WRITE-GF-1.                                                  NC1084.2
052400     MOVE     "FMT-TEST-GF-1" TO PAR-NAME.                        NC1084.2
052500     PERFORM  PRINT-DETAIL.                                       NC1084.2
052600 FMT-INIT-GF-2.                                                   NC1084.2
052700     MOVE   "V1-20 5.3" TO ANSI-REFERENCE.                        NC1084.2
052800 FMT-TEST-GF-2.                                                   NC1084.2
052900     IF       MORE-COMPLETE-FORMAT NOT EQUAL TO "5"               NC1084.2
053000              PERFORM FAIL                                        NC1084.2
053100         ELSE PERFORM PASS                                        NC1084.2
053200              GO TO FMT-WRITE-GF-2.                               NC1084.2
053300     MOVE     MORE-COMPLETE-FORMAT TO COMPUTED-A.                 NC1084.2
053400     MOVE     "5" TO CORRECT-A.                                   NC1084.2
053500     GO       TO FMT-WRITE-GF-2.                                  NC1084.2
053600 FMT-DELETE-GF-2.                                                 NC1084.2
053700     PERFORM  DE-LETE.                                            NC1084.2
053800 FMT-WRITE-GF-2.                                                  NC1084.2
053900     MOVE     "FMT-TEST-GF-2" TO PAR-NAME.                        NC1084.2
054000     PERFORM  PRINT-DETAIL.                                       NC1084.2
054100 FMT-TEST-GF-3.                                                   NC1084.2
054200     MOVE     ZERO TO MORE-COMPLETE-FORMAT.                       NC1084.2
054300     IF       MORE-COMPLETE-FORMAT EQUAL TO SPACE                 NC1084.2
054400              PERFORM PASS                                        NC1084.2
054500              GO TO FMT-WRITE-GF-3.                               NC1084.2
054600     PERFORM  FAIL.                                               NC1084.2
054700     MOVE     MORE-COMPLETE-FORMAT TO COMPUTED-A.                 NC1084.2
054800     MOVE     " (SPACES)" TO CORRECT-A.                      NC1084.2
054900     GO       TO FMT-WRITE-GF-3.                                  NC1084.2
055000 FMT-DELETE-GF-3.                                                 NC1084.2
055100     PERFORM  DE-LETE.                                            NC1084.2
055200 FMT-WRITE-GF-3.                                                  NC1084.2
055300     MOVE     "FMT-TEST-GF-3" TO PAR-NAME.                        NC1084.2
055400     PERFORM  PRINT-DETAIL.                                       NC1084.2
055500 ABR-INIT-GF-1.                                                   NC1084.2
055600     MOVE   "DATA DESCR ABBREVS -" TO FEATURE.                    NC1084.2
055700     MOVE   "VI-20 5.3" TO ANSI-REFERENCE.                        NC1084.2
055800     PERFORM  PRINT-DETAIL.                                       NC1084.2
055900 ABR-TEST-GF-1.                                                   NC1084.2
056000     IF       PIC-GROUP IS EQUAL TO PICTURE-ITEM                  NC1084.2
056100              PERFORM PASS GO TO ABR-WRITE-GF-1.                  NC1084.2
056200     GO       TO ABR-FAIL-GF-1.                                   NC1084.2
056300 ABR-DELETE-GF-1.                                                 NC1084.2
056400     PERFORM  DE-LETE.                                            NC1084.2
056500     GO       TO ABR-WRITE-GF-1.                                  NC1084.2
056600 ABR-FAIL-GF-1.                                                   NC1084.2
056700     MOVE     PIC-GROUP TO COMPUTED-A.                            NC1084.2
056800     MOVE     PICTURE-ITEM TO CORRECT-A.                          NC1084.2
056900     PERFORM  FAIL.                                               NC1084.2
057000 ABR-WRITE-GF-1.                                                  NC1084.2
057100     MOVE     " PIC" TO FEATURE.                                 NC1084.2
057200     MOVE     "ABR-TEST-GF-1 " TO PAR-NAME.                       NC1084.2
057300     PERFORM  PRINT-DETAIL.                                       NC1084.2
057400 ABR-INIT-GF-2.                                                   NC1084.2
057500     MOVE   "VI-20 5.3" TO ANSI-REFERENCE.                        NC1084.2
057600     MOVE     SEND-JUST TO RECEIVE-JUSTRIGHT.                     NC1084.2
057700 ABR-TEST-GF-2.                                                   NC1084.2
057800     IF       RECEIVE-JUSTRIGHT EQUAL TO " RIGHT"             NC1084.2
057900              PERFORM PASS GO TO ABR-WRITE-GF-2.                  NC1084.2
058000     GO       TO ABR-FAIL-GF-2.                                   NC1084.2
058100 ABR-DELETE-GF-2.                                                 NC1084.2
058200     PERFORM  DE-LETE.                                            NC1084.2
058300     GO       TO ABR-WRITE-GF-2.                                  NC1084.2
058400 ABR-FAIL-GF-2.                                                   NC1084.2
058500     PERFORM  FAIL.                                               NC1084.2
058600     MOVE     RECEIVE-JUSTRIGHT TO COMPUTED-A.                    NC1084.2
058700     MOVE     " RIGHT" TO CORRECT-A.                          NC1084.2
058800 ABR-WRITE-GF-2.                                                  NC1084.2
058900     MOVE     " JUST" TO FEATURE                                 NC1084.2
059000     MOVE     "ABR-TEST-GF-2 " TO PAR-NAME.                       NC1084.2
059100     PERFORM  PRINT-DETAIL.                                       NC1084.2
059200 ABR-INIT-GF-3.                                                   NC1084.2
059300     MOVE   "VI-20 5.3" TO ANSI-REFERENCE.                        NC1084.2
059400     MOVE     SEND-JUST TO RECEIVE-JUST.                          NC1084.2
059500 ABR-TEST-GF-3.                                                   NC1084.2
059600     IF       RECEIVE-JUST EQUAL TO " RIGHT"                  NC1084.2
059700              PERFORM PASS GO TO ABR-WRITE-GF-3.                  NC1084.2
059800     GO       TO ABR-FAIL-GF-3.                                   NC1084.2
059900 ABR-DELETE-GF-3.                                                 NC1084.2
060000     PERFORM  DE-LETE.                                            NC1084.2
060100     GO       TO ABR-WRITE-GF-3.                                  NC1084.2
060200 ABR-FAIL-GF-3.                                                   NC1084.2
060300     PERFORM  FAIL.                                               NC1084.2
060400     MOVE     RECEIVE-JUST TO COMPUTED-A.                         NC1084.2
060500     MOVE     " RIGHT" TO CORRECT-A.                          NC1084.2
060600 ABR-WRITE-GF-3.                                                  NC1084.2
060700     MOVE     "ABR-TEST-GF-3 " TO PAR-NAME.                       NC1084.2
060800     PERFORM  PRINT-DETAIL.                                       NC1084.2
060900 ABR-INIT-GF-4.                                                   NC1084.2
061000     MOVE   "VI-20 5.3" TO ANSI-REFERENCE.                        NC1084.2
061100     MOVE     SEND-BLANK TO RECEIVE-BLANK.                        NC1084.2
061200 ABR-TEST-GF-4.                                                   NC1084.2
061300     IF       RECEIVE-BLANK EQUAL TO " "                  NC1084.2
061400              PERFORM PASS GO TO ABR-WRITE-GF-4.                  NC1084.2
061500     GO       TO ABR-FAIL-GF-4.                                   NC1084.2
061600 ABR-DELETE-GF-4.                                                 NC1084.2
061700     PERFORM  DE-LETE.                                            NC1084.2
061800     GO       TO ABR-WRITE-GF-4.                                  NC1084.2
061900 ABR-FAIL-GF-4.                                                   NC1084.2
062000     PERFORM  FAIL.                                               NC1084.2
062100     MOVE     RECEIVE-BLANK TO COMPUTED-A.                        NC1084.2
062200     MOVE     " (SPACES)" TO CORRECT-A.                      NC1084.2
062300 ABR-WRITE-GF-4.                                                  NC1084.2
062400     MOVE     " BLANK ZERO" TO FEATURE                           NC1084.2
062500     MOVE     "ABR-TEST-GF-4 " TO PAR-NAME.                       NC1084.2
062600     PERFORM  PRINT-DETAIL.                                       NC1084.2
062700 ABR-INIT-GF-5.                                                   NC1084.2
062800     MOVE   "VI-20 5.3" TO ANSI-REFERENCE.                        NC1084.2
062900 ABR-TEST-GF-5.                                                   NC1084.2
063000     IF       COMP-GROUP EQUAL TO COMPUTATIONAL-GROUP             NC1084.2
063100              PERFORM PASS GO TO ABR-WRITE-GF-5.                  NC1084.2
063200     GO       TO ABR-FAIL-GF-5.                                   NC1084.2
063300 ABR-DELETE-GF-5.                                                 NC1084.2
063400     PERFORM  DE-LETE.                                            NC1084.2
063500     GO       TO ABR-WRITE-GF-5.                                  NC1084.2
063600 ABR-FAIL-GF-5.                                                   NC1084.2
063700     PERFORM  FAIL.                                               NC1084.2
063800     MOVE     COMP-GROUP TO COMPUTED-A.                           NC1084.2
063900     MOVE     COMPUTATIONAL-GROUP TO CORRECT-A.                   NC1084.2
064000 ABR-WRITE-GF-5.                                                  NC1084.2
064100     MOVE     " COMP" TO FEATURE.                                NC1084.2
064200     MOVE     "ABR-TEST-GF-5 " TO PAR-NAME.                       NC1084.2
064300     PERFORM  PRINT-DETAIL.                                       NC1084.2
064400 ABR-INIT-GF-6.                                                   NC1084.2
064500     MOVE   "VI-20 5.3" TO ANSI-REFERENCE.                        NC1084.2
064600 ABR-TEST-GF-6.                                                   NC1084.2
064700     IF       SYNC-GROUP EQUAL TO SYNCHRONIZED-GROUP              NC1084.2
064800              PERFORM PASS GO TO ABR-WRITE-GF-6.                  NC1084.2
064900     GO       TO ABR-FAIL-GF-6.                                   NC1084.2
065000 ABR-DELETE-GF-6.                                                 NC1084.2
065100     PERFORM  DE-LETE.                                            NC1084.2
065200     GO       TO ABR-WRITE-GF-6.                                  NC1084.2
065300 ABR-FAIL-GF-6.                                                   NC1084.2
065400     PERFORM  FAIL.                                               NC1084.2
065500     MOVE     SYNC-GROUP TO COMPUTED-A.                           NC1084.2
065600     MOVE     SYNCHRONIZED-GROUP TO CORRECT-A.                    NC1084.2
065700 ABR-WRITE-GF-6.                                                  NC1084.2
065800     MOVE     " SYNC" TO FEATURE                                 NC1084.2
065900     MOVE     "ABR-TEST-GF-6 " TO PAR-NAME.                       NC1084.2
066000     PERFORM  PRINT-DETAIL.                                       NC1084.2
066100 ABR-INIT-GF-7.                                                   NC1084.2
066200     MOVE   "VI-20 5.3" TO ANSI-REFERENCE.                        NC1084.2
066300 ABR-TEST-GF-7.                                                   NC1084.2
066400     IF       SYNC-RIGHT-GROUP EQUAL TO SYNCHRONIZED-RIGHT-GROUP  NC1084.2
066500              PERFORM PASS GO TO ABR-WRITE-GF-7.                  NC1084.2
066600     GO       TO ABR-FAIL-GF-7.                                   NC1084.2
066700 ABR-DELETE-GF-7.                                                 NC1084.2
066800     PERFORM  DE-LETE.                                            NC1084.2
066900     GO       TO ABR-WRITE-GF-7.                                  NC1084.2
067000 ABR-FAIL-GF-7.                                                   NC1084.2
067100     PERFORM  FAIL.                                               NC1084.2
067200     MOVE     SYNC-RIGHT-GROUP TO COMPUTED-A.                     NC1084.2
067300     MOVE     SYNCHRONIZED-RIGHT-GROUP TO CORRECT-A.              NC1084.2
067400 ABR-WRITE-GF-7.                                                  NC1084.2
067500     MOVE     "ABR-TEST-GF-7 " TO PAR-NAME.                       NC1084.2
067600     PERFORM  PRINT-DETAIL.                                       NC1084.2
067700 ABR-INIT-GF-8.                                                   NC1084.2
067800     MOVE   "VI-20 5.3" TO ANSI-REFERENCE.                        NC1084.2
067900 ABR-TEST-GF-8.                                                   NC1084.2
068000     IF       SYNC-LEFT-GROUP EQUAL TO SYNCHRONIZED-LEFT-GROUP    NC1084.2
068100              PERFORM PASS GO TO ABR-WRITE-GF-8.                  NC1084.2
068200     GO       TO ABR-FAIL-GF-8.                                   NC1084.2
068300 ABR-DELETE-GF-8.                                                 NC1084.2
068400     PERFORM  DE-LETE.                                            NC1084.2
068500     GO       TO ABR-WRITE-GF-8.                                  NC1084.2
068600 ABR-FAIL-GF-8.                                                   NC1084.2
068700     PERFORM  FAIL.                                               NC1084.2
068800     MOVE     SYNC-LEFT-GROUP TO COMPUTED-A.                      NC1084.2
068900     MOVE     SYNCHRONIZED-LEFT-GROUP TO CORRECT-A.               NC1084.2
069000 ABR-WRITE-GF-8.                                                  NC1084.2
069100     MOVE     "ABR-TEST-GF-8 " TO PAR-NAME.                       NC1084.2
069200     PERFORM  PRINT-DETAIL.                                       NC1084.2
069300 ABR-INIT-GF-9.                                                   NC1084.2
069400     MOVE   "VI-20 5.3" TO ANSI-REFERENCE.                        NC1084.2
069500 ABR-TEST-GF-9.                                                   NC1084.2
069600     MOVE ZERO TO ONE                                             NC1084.2
069700     IF ON-SWITCH ADD 1 TO ONE.                                   NC1084.2
069800     IF OFF-SWITCH ADD 1 TO ONE.                                  NC1084.2
069900     IF ONE EQUAL TO 1 PERFORM PASS GO TO ABR-WRITE-GF-9          NC1084.2
070000              ELSE MOVE 1 TO ONE GO TO ABR-FAIL-GF-9.             NC1084.2
070100 ABR-DELETE-GF-9.                                                 NC1084.2
070200     PERFORM  DE-LETE.                                            NC1084.2
070300     GO       TO ABR-WRITE-GF-9.                                  NC1084.2
070400 ABR-FAIL-GF-9.                                                   NC1084.2
070500     PERFORM  FAIL.                                               NC1084.2
070600     MOVE "NOT BOOLEAN COMPLEMENTS" TO RE-MARK.                   NC1084.2
070700 ABR-WRITE-GF-9.                                                  NC1084.2
070800     MOVE "SPECIAL-NAMES SWITCH" TO FEATURE.                      NC1084.2
070900     MOVE     "ABR-TEST-GF-9 " TO PAR-NAME.                       NC1084.2
071000     PERFORM  PRINT-DETAIL.                                       NC1084.2
071100 ABR-INIT-GF-10.                                                  NC1084.2
071200     MOVE   "VI-20 5.3" TO ANSI-REFERENCE.                        NC1084.2
071300     MOVE     ZERO TO FL-LESS.                                    NC1084.2
071400     MOVE FL-LESS  TO COMPUTED-A.                                 NC1084.2
071500     MOVE " <.00" TO CORRECT-A.                              NC1084.2
071600 ABR-TEST-GF-10.                                                  NC1084.2
071700     IF   FL-LESS EQUAL TO " <.00"                           NC1084.2
071800          MOVE "FAILURE IF DOLLAR APPEARS" TO RE-MARK             NC1084.2
071900          GO TO ABR-WRITE-GF-10.                                  NC1084.2
072000     GO       TO ABR-FAIL-GF-10.                                  NC1084.2
072100 ABR-DELETE-GF-10.                                                NC1084.2
072200     PERFORM  DE-LETE.                                            NC1084.2
072300     GO       TO ABR-WRITE-GF-10.                                 NC1084.2
072400 ABR-FAIL-GF-10.                                                  NC1084.2
072500     PERFORM  FAIL.                                               NC1084.2
072600     MOVE "LESS THAN SHOULD APPEAR" TO RE-MARK.                   NC1084.2
072700 ABR-WRITE-GF-10.                                                 NC1084.2
072800     MOVE     "ABR-TEST-GF-10" TO PAR-NAME.                       NC1084.2
072900     MOVE "SPECIAL-NAMES CURNCY" TO FEATURE.                      NC1084.2
073000     PERFORM  PRINT-DETAIL.                                       NC1084.2
073100 CHA-INIT-1.                                                      NC1084.2
073200     MOVE   "III-3" TO ANSI-REFERENCE.                            NC1084.2
073300 CHA-GF-1-1.                                                      NC1084.2
073400     IF       XCHAR-SET EQUAL TO                                  NC1084.2
073500     "ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789 +-*/=$,.;()><"        NC1084.2
073600              PERFORM PASS ELSE PERFORM FAIL.                     NC1084.2
073700*        NOTE 51 CHARACTER LITERAL INCLUDES TWO SPACES BUT NO     NC1084.2
073800*             QUOTE.                                              NC1084.2
073900     GO       TO CHA-WRITE-GF-1-1.                                NC1084.2
074000 CHA-DELETE-GF-1-1.                                               NC1084.2
074100     PERFORM  DE-LETE.                                            NC1084.2
074200 CHA-WRITE-GF-1-1.                                                NC1084.2
074300     MOVE     "CHARACTER-SET" TO FEATURE.                         NC1084.2
074400     MOVE     "CHA-GF-1-1" TO PAR-NAME.                           NC1084.2
074500     PERFORM  PRINT-DETAIL.                                       NC1084.2
074600 CHA-GF-1-2.                                                      NC1084.2
074700     IF       CHARACTER-QUOTE = QUOTE                             NC1084.2
074800              PERFORM PASS ELSE PERFORM FAIL.                     NC1084.2
074900     GO       TO CHA-WRITE-GF-1-2.                                NC1084.2
075000 CHA-DELETE-GF-1-2.                                               NC1084.2
075100     PERFORM  DE-LETE.                                            NC1084.2
075200 CHA-WRITE-GF-1-2.                                                NC1084.2
075300     MOVE     "CHARACTER-SET" TO FEATURE.                         NC1084.2
075400     MOVE     "CHA-GF-1-2" TO PAR-NAME.                           NC1084.2
075500     PERFORM  PRINT-DETAIL.                                       NC1084.2
075600 CHA-GF-1-3.                                                      NC1084.2
075700     IF       CHARACTER-LOW = "abcdefghijklmnopqrstuvwxyz"        NC1084.2
075800              PERFORM PASS ELSE PERFORM FAIL.                     NC1084.2
075900     GO       TO CHA-WRITE-GF-1-3.                                NC1084.2
076000 CHA-DELETE-GF-1-3.                                               NC1084.2
076100     PERFORM  DE-LETE.                                            NC1084.2
076200 CHA-WRITE-GF-1-3.                                                NC1084.2
076300     MOVE     "CHARACTER-SET" TO FEATURE.                         NC1084.2
076400     MOVE     "CHA-GF-1-3" TO PAR-NAME.                           NC1084.2
076500     PERFORM  PRINT-DETAIL.                                       NC1084.2
076600*                                                                 NC1084.2
076700 ALPHABET-INIT-10.                                                NC1084.2
076800     MOVE   "VI-15 4.5.4 GR4" TO ANSI-REFERENCE.                  NC1084.2
076900 ALPHABET-TEST-10.                                                NC1084.2
077000     PERFORM END-ROUTINE.                                         NC1084.2
077100     MOVE    " ALPHABET-NAME ***** CHECK THE ALPHABET-NAMENC1084.2
077200-    " IN THE SPECIAL-NAMES PARAGRAPH" TO TEST-RESULTS.           NC1084.2
077300     PERFORM PRINT-DETAIL.                                        NC1084.2
077400*                                                                 NC1084.2
077500 CCVS-EXIT SECTION.                                               NC1084.2
077600 CCVS-999999.                                                     NC1084.2
077700     GO TO CLOSE-FILES.                                           NC1084.2