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