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

SSL nc218a.cob   Interaktion und
PortierbarkeitCobol

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

--> maximum size reached

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

92%


¤ 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.0.48Bemerkung:  ¤

*Bot Zugriff




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.