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