Quelle sg201a.cob Sprache: Cobol

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

--> maximum size reached

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

quality90%

¤ Dauer der Verarbeitung: 0.31 Sekunden (vorverarbeitet) ¤

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.