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

Impressum nc132a.cob   Sprache: Cobol

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

93%


¤ Dauer der Verarbeitung: 0.59 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.