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