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