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