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