Quelle  nc116a.cob

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
081000     MOVE 2 TO REC-CT.                                            NC1164.2
081100     IF DS-TS-00008 EQUAL TO CU-00007-4                           NC1164.2
081200              PERFORM PASS                                        NC1164.2
081300              GO TO SIG-WRITE-GF-8-2.                             NC1164.2
081400 SIG-FAIL-GF-8-2.                                                 NC1164.2
081500     PERFORM FAIL.                                                NC1164.2
081600     MOVE AN-00009-X-4 TO COMPUTED-A.                             NC1164.2
081700     MOVE CU-00007-4 TO CORRECT-18V0.                             NC1164.2
081800 SIG-WRITE-GF-8-2.                                                NC1164.2
081900     PERFORM PRINT-DETAIL.                                        NC1164.2
082000 SIG-TEST-GF-8-3.                                                 NC1164.2
082100     MOVE 3 TO REC-CT.                                            NC1164.2
082200     IF DS-TS-00008 EQUAL TO DS-00007-4                           NC1164.2
082300              PERFORM PASS                                        NC1164.2
082400              GO TO SIG-WRITE-GF-8-3.                             NC1164.2
082500 SIG-FAIL-GF-8-3.                                                 NC1164.2
082600     PERFORM FAIL.                                                NC1164.2
082700     MOVE AN-00009-X-4 TO COMPUTED-A.                             NC1164.2
082800     MOVE DS-00007-4 TO CORRECT-18V0.                             NC1164.2
082900 SIG-WRITE-GF-8-3.                                                NC1164.2
083000     PERFORM PRINT-DETAIL.                                        NC1164.2
083100 SIG-TEST-GF-8-4.                                                 NC1164.2
083200     MOVE 4 TO REC-CT.                                            NC1164.2
083300     IF DS-TS-00008 EQUAL TO DU-00007-4                           NC1164.2
083400              PERFORM PASS                                        NC1164.2
083500              GO TO SIG-WRITE-GF-8-4.                             NC1164.2
083600 SIG-FAIL-GF-8-4.                                                 NC1164.2
083700     PERFORM FAIL.                                                NC1164.2
083800     MOVE AN-00009-X-4 TO COMPUTED-A.                             NC1164.2
083900     MOVE DU-00007-4 TO CORRECT-18V0.                             NC1164.2
084000 SIG-WRITE-GF-8-4.                                                NC1164.2
084100     PERFORM PRINT-DETAIL.                                        NC1164.2
084200 SIG-INIT-GF-9.                                                   NC1164.2
084300     MOVE "VI-42 5.12.4"  TO ANSI-REFERENCE.                      NC1164.2
084400     MOVE "SIG-TEST-GF-9" TO PAR-NAME.                            NC1164.2
084500     MOVE "SENDING ITEM DS-LS" TO FEATURE.                        NC1164.2
084600     MOVE 1 TO REC-CT.                                            NC1164.2
084700*        THIS TEST MOVES A NUMERIC ITEM WITH SIGN IS LEADING      NC1164.2
084800*    SEPARATE CHARACTER TO UNSIGNED DISPLAY, SIGNED DISPLAY,      NC1164.2
084900*    UNSIGNED COMPUTATIONAL AND SIGNED COMPUTATIONAL ITEMS.       NC1164.2
085000 SIG-TEST-GF-9-1.                                                 NC1164.2
085100     MOVE DS-LS-5 TO DU-005.                                      NC1164.2
085200     IF DU-005 EQUAL TO 91275                                     NC1164.2
085300         PERFORM PASS                                             NC1164.2
085400         GO TO SIG-WRTE-GF-9-1.                                   NC1164.2
085500     GO TO SIG-FAIL-GF-9-1.                                       NC1164.2
085600 SIG-DELETE-GF-9-1.                                               NC1164.2
085700     PERFORM DE-LETE.                                             NC1164.2
085800     PERFORM PRINT-DETAIL.                                        NC1164.2
085900     GO TO   SIG-INIT-GF-10.                                      NC1164.2
086000 SIG-FAIL-GF-9-1.                                                 NC1164.2
086100     PERFORM FAIL.                                                NC1164.2
086200     MOVE DU-005 TO COMPUTED-18V0.                                NC1164.2
086300     MOVE 91275 TO CORRECT-18V0.                                  NC1164.2
086400     MOVE "MOVE DS-LS-5 TO DU-005" TO RE-MARK.                    NC1164.2
086500 SIG-WRTE-GF-9-1.                                                 NC1164.2
086600     PERFORM PRINT-DETAIL.                                        NC1164.2
086700 SIG-TEST-GF-9-2.                                                 NC1164.2
086800     MOVE DS-LS-5 TO DS-005.                                      NC1164.2
086900     IF DS-005 EQUAL TO +91275                                    NC1164.2
087000         PERFORM PASS                                             NC1164.2
087100         GO TO SIG-WRTE-GF-9-2.                                   NC1164.2
087200 SIG-FAIL-GF-9-2.                                                 NC1164.2
087300     PERFORM FAIL.                                                NC1164.2
087400     MOVE DS-005 TO COMPUTED-18V0.                                NC1164.2
087500     MOVE +91275 TO CORRECT-18V0.                                 NC1164.2
087600     MOVE "MOVE DS-LS-5 TO DS-005" TO RE-MARK.                    NC1164.2
087700 SIG-WRTE-GF-9-2.                                                 NC1164.2
087800     MOVE 2 TO REC-CT.                                            NC1164.2
087900     PERFORM PRINT-DETAIL.                                        NC1164.2
088000 SIG-TEST-GF-9-3.                                                 NC1164.2
088100     MOVE DS-LS-5 TO CU-005.                                      NC1164.2
088200     IF CU-005 EQUAL TO 91275                                     NC1164.2
088300         PERFORM PASS                                             NC1164.2
088400         GO TO SIG-WRTE-GF-9-3.                                   NC1164.2
088500 SIG-FAIL-GF-9-3.                                                 NC1164.2
088600     PERFORM FAIL.                                                NC1164.2
088700     MOVE CU-005 TO COMPUTED-18V0.                                NC1164.2
088800     MOVE 91275 TO CORRECT-18V0.                                  NC1164.2
088900     MOVE "MOVE DS-LS-5 TO CU-005" TO RE-MARK.                    NC1164.2
089000 SIG-WRTE-GF-9-3.                                                 NC1164.2
089100     MOVE 3 TO REC-CT.                                            NC1164.2
089200     PERFORM PRINT-DETAIL.                                        NC1164.2
089300 SIG-TEST-GF-9-4.                                                 NC1164.2
089400     MOVE DS-LS-5 TO CS-005.                                      NC1164.2
089500     IF CS-005 EQUAL TO +91275                                    NC1164.2
089600         PERFORM PASS                                             NC1164.2
089700         GO TO SIG-WRTE-GF-9-4.                                   NC1164.2
089800 SIG-FAIL-GF-9-4.                                                 NC1164.2
089900     PERFORM FAIL.                                                NC1164.2
090000     MOVE CS-005 TO COMPUTED-18V0.                                NC1164.2
090100     MOVE +91275 TO CORRECT-18V0.                                 NC1164.2
090200     MOVE "MOVE DS-LS-5 TO CS-005" TO RE-MARK.                    NC1164.2
090300 SIG-WRTE-GF-9-4.                                                 NC1164.2
090400     MOVE 4 TO REC-CT.                                            NC1164.2
090500     PERFORM PRINT-DETAIL.                                        NC1164.2
090600 SIG-INIT-GF-10.                                                  NC1164.2
090700     MOVE "VI-42 5.12.4"  TO ANSI-REFERENCE.                      NC1164.2
090800     MOVE "SIG-TEST-GF-10" TO PAR-NAME.                           NC1164.2
090900     MOVE "SENDING ITEM DS-TS-4" TO FEATURE.                      NC1164.2
091000*        THIS TEST MOVES A NUMERIC ITEM WITH SIGN IS TRAILING     NC1164.2
091100*    SEPARATE CHARACTER TO UNSIGNED DISPLAY, SIGNED DISPLAY,      NC1164.2
091200*    UNSIGNED COMPUTATIONAL AND SIGNED COMPUTATIONAL ITEMS.       NC1164.2
091300 SIG-TEST-GF-10-1.                                                NC1164.2
091400     MOVE DS-TS-4 TO DU-005.                                      NC1164.2
091500     IF DU-005 NOT EQUAL TO 08036                                 NC1164.2
091600         GO TO SIG-FAIL-GF-10-1.                                  NC1164.2
091700     PERFORM PASS.                                                NC1164.2
091800     GO TO SIG-WRTE-GF-10-1.                                      NC1164.2
091900 SIG-DELETE-GF-10-1.                                              NC1164.2
092000     PERFORM DE-LETE.                                             NC1164.2
092100     PERFORM PRINT-DETAIL.                                        NC1164.2
092200     GO TO   SIG-INIT-GF-11.                                      NC1164.2
092300 SIG-FAIL-GF-10-1.                                                NC1164.2
092400     PERFORM FAIL.                                                NC1164.2
092500     MOVE DU-005 TO COMPUTED-18V0.                                NC1164.2
092600     MOVE 08036 TO CORRECT-18V0.                                  NC1164.2
092700     MOVE "MOVE DS-TS-4 TO DU-005" TO RE-MARK.                    NC1164.2
092800 SIG-WRTE-GF-10-1.                                                NC1164.2
092900     MOVE 1 TO REC-CT.                                            NC1164.2
093000     PERFORM PRINT-DETAIL.                                        NC1164.2
093100 SIG-TEST-GF-10-2.                                                NC1164.2
093200     MOVE DS-TS-4 TO DS-005.                                      NC1164.2
093300     IF DS-005 NOT EQUAL TO -08036                                NC1164.2
093400         GO TO SIG-FAIL-GF-10-2.                                  NC1164.2
093500     PERFORM PASS.                                                NC1164.2
093600     GO TO SIG-WRTE-GF-10-2.                                      NC1164.2
093700 SIG-FAIL-GF-10-2.                                                NC1164.2
093800     PERFORM FAIL.                                                NC1164.2
093900     MOVE DS-005 TO COMPUTED-18V0.                                NC1164.2
094000     MOVE -08036 TO CORRECT-18V0.                                 NC1164.2
094100     MOVE "MOVE DS-TS-4 TO DS-005" TO RE-MARK.                    NC1164.2
094200 SIG-WRTE-GF-10-2.                                                NC1164.2
094300     MOVE 2 TO REC-CT.                                            NC1164.2
094400     PERFORM PRINT-DETAIL.                                        NC1164.2
094500 SIG-TEST-GF-10-3.                                                NC1164.2
094600     MOVE DS-TS-4 TO CU-005.                                      NC1164.2
094700     IF CU-005 NOT EQUAL TO 08036                                 NC1164.2
094800         GO TO SIG-FAIL-GF-10-3.                                  NC1164.2
094900     PERFORM PASS.                                                NC1164.2
095000     GO TO SIG-WRTE-GF-10-3.                                      NC1164.2
095100 SIG-FAIL-GF-10-3.                                                NC1164.2
095200     PERFORM FAIL.                                                NC1164.2
095300     MOVE CU-005 TO COMPUTED-18V0.                                NC1164.2
095400     MOVE 08036 TO CORRECT-18V0.                                  NC1164.2
095500     MOVE "MOVE DS-TS-4 TO CU-005" TO RE-MARK.                    NC1164.2
095600 SIG-WRTE-GF-10-3.                                                NC1164.2
095700     MOVE 3 TO REC-CT.                                            NC1164.2
095800     PERFORM PRINT-DETAIL.                                        NC1164.2
095900 SIG-TEST-GF-10-4.                                                NC1164.2
096000     MOVE DS-TS-4 TO CS-005.                                      NC1164.2
096100     IF CS-005 NOT EQUAL TO -08036                                NC1164.2
096200         GO TO SIG-FAIL-GF-10-4.                                  NC1164.2
096300     PERFORM PASS.                                                NC1164.2
096400     GO TO SIG-WRTE-GF-10-4.                                      NC1164.2
096500 SIG-FAIL-GF-10-4.                                                NC1164.2
096600     PERFORM FAIL.                                                NC1164.2
096700     MOVE CS-005 TO COMPUTED-18V0.                                NC1164.2
096800     MOVE -08036 TO CORRECT-18V0.                                 NC1164.2
096900     MOVE "MOVE DS-TS-4 TO CS-005" TO RE-MARK.                    NC1164.2
097000 SIG-WRTE-GF-10-4.                                                NC1164.2
097100     MOVE 4 TO REC-CT.                                            NC1164.2
097200     PERFORM PRINT-DETAIL.                                        NC1164.2
097300 SIG-INIT-GF-11.                                                  NC1164.2
097400     MOVE "VI-42 5.12.4"  TO ANSI-REFERENCE.                      NC1164.2
097500     MOVE "SIG-TEST-GF-11" TO PAR-NAME.                           NC1164.2
097600     MOVE "SIGN SEPARATE ITEMS" TO FEATURE.                       NC1164.2
097700*        THIS TEST CONTAINS MOVE STATEMENTS WHERE BOTH THE        NC1164.2
097800*    SENDING AND RECEIVING ITEM HAVE SEPARATE SIGN CHARACTERS.    NC1164.2
097900 SIG-TEST-GF-11-1.                                                NC1164.2
098000     MOVE DS-LS-4 TO WRK-DS-LS-5.                                 NC1164.2
098100     IF GRP-09 EQUAL TO "-09127"                                  NC1164.2
098200         PERFORM PASS                                             NC1164.2
098300         GO TO SIG-WRTE-GF-11-1.                                  NC1164.2
098400     GO TO SIG-FAIL-GF-11-1.                                      NC1164.2
098500 SIG-DELETE-GF-11-1.                                              NC1164.2
098600     PERFORM DE-LETE.                                             NC1164.2
098700     PERFORM PRINT-DETAIL.                                        NC1164.2
098800     GO TO   SIG-INIT-GF-12.                                      NC1164.2
098900 SIG-FAIL-GF-11-1.                                                NC1164.2
099000     PERFORM FAIL.                                                NC1164.2
099100     MOVE GRP-09 TO COMPUTED-A.                                   NC1164.2
099200     MOVE "-09127" TO CORRECT-A.                                  NC1164.2
099300     MOVE "MOVE DS-LS-4 TO WRK-DS-LS-5" TO RE-MARK.               NC1164.2
099400 SIG-WRTE-GF-11-1.                                                NC1164.2
099500     MOVE 1 TO REC-CT.                                            NC1164.2
099600     PERFORM PRINT-DETAIL.                                        NC1164.2
099700 SIG-TEST-GF-11-2.                                                NC1164.2
099800     MOVE DS-LS-4 TO WRK-DS-TS-5.                                 NC1164.2
099900     IF GRP-10 NOT EQUAL TO "09127-"                              NC1164.2
100000         GO TO SIG-FAIL-GF-11-2.                                  NC1164.2
100100     PERFORM PASS.                                                NC1164.2
100200     GO TO SIG-WRTE-GF-11-2.                                      NC1164.2
100300 SIG-FAIL-GF-11-2.                                                NC1164.2
100400     PERFORM FAIL.                                                NC1164.2
100500     MOVE GRP-10 TO COMPUTED-A.                                   NC1164.2
100600     MOVE "09127-" TO CORRECT-A.                                  NC1164.2
100700     MOVE "MOVE DS-LS-4 TO WRK-DS-TS-S" TO RE-MARK.               NC1164.2
100800 SIG-WRTE-GF-11-2.                                                NC1164.2
100900     MOVE 2 TO REC-CT.                                            NC1164.2
101000     PERFORM PRINT-DETAIL.                                        NC1164.2
101100 SIG-TEST-GF-11-3.                                                NC1164.2
101200     MOVE DS-TS-5 TO WRK-DS-LS-5.                                 NC1164.2
101300     IF GRP-09 EQUAL TO "+80361"                                  NC1164.2
101400         PERFORM PASS                                             NC1164.2
101500         GO TO SIG-WRTE-GF-11-3.                                  NC1164.2
101600 SIG-FAIL-GF-11-3.                                                NC1164.2
101700     PERFORM FAIL.                                                NC1164.2
101800     MOVE GRP-09 TO COMPUTED-A.                                   NC1164.2
101900     MOVE "+80361" TO CORRECT-A.                                  NC1164.2
102000     MOVE "MOVE DS-TS-5 TO WRK-DS-LS-5" TO RE-MARK.               NC1164.2
102100 SIG-WRTE-GF-11-3.                                                NC1164.2
102200     MOVE 3 TO REC-CT.                                            NC1164.2
102300     PERFORM PRINT-DETAIL.                                        NC1164.2
102400 SIG-TEST-GF-11-4.                                                NC1164.2
102500     MOVE DS-TS-5 TO WRK-DS-TS-5.                                 NC1164.2
102600     IF GRP-10 NOT EQUAL TO "80361+"                              NC1164.2
102700         GO TO SIG-FAIL-GF-11-4.                                  NC1164.2
102800     PERFORM PASS.                                                NC1164.2
102900     GO TO SIG-WRTE-GF-11-4.                                      NC1164.2
103000 SIG-FAIL-GF-11-4.                                                NC1164.2
103100     PERFORM FAIL.                                                NC1164.2
103200     MOVE GRP-10 TO COMPUTED-A.                                   NC1164.2
103300     MOVE "80361+" TO CORRECT-A.                                  NC1164.2
103400     MOVE "MOVE DS-TS-5 TO WRK-DS-TS-5" TO RE-MARK.               NC1164.2
103500 SIG-WRTE-GF-11-4.                                                NC1164.2
103600     MOVE 4 TO REC-CT.                                            NC1164.2
103700     PERFORM PRINT-DETAIL.                                        NC1164.2
103800 SIG-INIT-GF-12.                                                  NC1164.2
103900     MOVE "VI-42 5.12.4"  TO ANSI-REFERENCE.                      NC1164.2
104000     MOVE "SIG-TEST-GF-12" TO PAR-NAME.                           NC1164.2
104100     MOVE "SIGN CLAUSE ITEMS" TO FEATURE.                         NC1164.2
104200*        THIS TEST CONTAINS MOVE STATEMENTS WITH A SIGN IS        NC1164.2
104300*    SEPARATE SENDING ITEM AND SIGN CLAUSE RECEIVING ITEMS,       NC1164.2
104400*    BUT RECEIVING ITEMS SIGNS ARE NOT SEPARATE.                  NC1164.2
104500 SIG-TEST-GF-12-1.                                                NC1164.2
104600     MOVE DS-LS-5 TO WRK-DS-L-5.                                  NC1164.2
104700     IF WRK-DS-L-5 NOT EQUAL TO +91275                            NC1164.2
104800         GO TO SIG-FAIL-GF-12-1.                                  NC1164.2
104900     PERFORM PASS.                                                NC1164.2
105000     GO TO SIG-WRTE-GF-12-1.                                      NC1164.2
105100 SIG-DELETE-GF-12-1.                                              NC1164.2
105200     PERFORM DE-LETE.                                             NC1164.2
105300     PERFORM PRINT-DETAIL.                                        NC1164.2
105400     GO TO   SIG-INIT-GF-13.                                      NC1164.2
105500 SIG-FAIL-GF-12-1.                                                NC1164.2
105600     PERFORM FAIL.                                                NC1164.2
105700     MOVE WRK-DS-L-5 TO COMPUTED-18V0.                            NC1164.2
105800     MOVE "+91275" TO CORRECT-A.                                  NC1164.2
105900     MOVE "MOVE DS-LS-5 TO WRK-DS-L-5" TO RE-MARK.                NC1164.2
106000 SIG-WRTE-GF-12-1.                                                NC1164.2
106100     MOVE 1 TO REC-CT.                                            NC1164.2
106200     PERFORM PRINT-DETAIL.                                        NC1164.2
106300 SIG-TEST-GF-12-2.                                                NC1164.2
106400     MOVE DS-LS-5 TO WRK-DS-T-5.                                  NC1164.2
106500     IF WRK-DS-T-5 NOT EQUAL TO +91275                            NC1164.2
106600         GO TO SIG-FAIL-GF-12-2.                                  NC1164.2
106700     PERFORM PASS.                                                NC1164.2
106800     GO TO SIG-WRTE-GF-12-2.                                      NC1164.2
106900 SIG-FAIL-GF-12-2.                                                NC1164.2
107000     PERFORM FAIL.                                                NC1164.2
107100     MOVE "+91275" TO CORRECT-A.                                  NC1164.2
107200     MOVE WRK-DS-T-5 TO COMPUTED-18V0.                            NC1164.2
107300     MOVE "MOVE DS-LS-5 TO WRK-DS-T-5" TO RE-MARK.                NC1164.2
107400 SIG-WRTE-GF-12-2.                                                NC1164.2
107500     MOVE 2 TO REC-CT.                                            NC1164.2
107600     PERFORM PRINT-DETAIL.                                        NC1164.2
107700 SIG-TEST-GF-12-3.                                                NC1164.2
107800     MOVE DS-TS-5 TO WRK-DS-L-5.                                  NC1164.2
107900     IF WRK-DS-L-5 NOT EQUAL TO +80361                            NC1164.2
108000         GO TO SIG-FAIL-GF-12-3.                                  NC1164.2
108100     PERFORM PASS.                                                NC1164.2
108200     GO TO SIG-WRITE-GF-12-3.                                     NC1164.2
108300 SIG-FAIL-GF-12-3.                                                NC1164.2
108400     PERFORM FAIL.                                                NC1164.2
108500     MOVE "+80361" TO CORRECT-A.                                  NC1164.2
108600     MOVE WRK-DS-L-5 TO COMPUTED-18V0.                            NC1164.2
108700     MOVE "MOVE DS-TS-5 TO WRK-DS-L-5" TO RE-MARK.                NC1164.2
108800 SIG-WRITE-GF-12-3.                                               NC1164.2
108900     MOVE 3 TO REC-CT.                                            NC1164.2
109000     PERFORM PRINT-DETAIL.                                        NC1164.2
109100 SIG-TEST-GF-12-4.                                                NC1164.2
109200     MOVE DS-TS-5 TO WRK-DS-T-5.                                  NC1164.2
109300     IF WRK-DS-T-5 NOT EQUAL TO +80361                            NC1164.2
109400         GO TO SIG-FAIL-GF-12-4.                                  NC1164.2
109500     PERFORM PASS.                                                NC1164.2
109600     GO TO SIG-WRITE-GF-12-4.                                     NC1164.2
109700 SIG-FAIL-GF-12-4.                                                NC1164.2
109800     PERFORM FAIL.                                                NC1164.2
109900     MOVE "+80361" TO CORRECT-A.                                  NC1164.2
110000     MOVE WRK-DS-T-5 TO COMPUTED-18V0.                            NC1164.2
110100     MOVE "MOVE DS-TS-5 TO WRK-DS-T-5" TO RE-MARK.                NC1164.2
110200 SIG-WRITE-GF-12-4.                                               NC1164.2
110300     MOVE 4 TO REC-CT.                                            NC1164.2
110400     PERFORM PRINT-DETAIL.                                        NC1164.2
110500 SIG-INIT-GF-13.                                                  NC1164.2
110600     MOVE "VI-42 5.12.4"  TO ANSI-REFERENCE.                      NC1164.2
110700     MOVE "SIG-TEST-GF-13" TO PAR-NAME.                           NC1164.2
110800*        THIS TEST CONTAINS MOVE STATEMENTS WITH A SIGN IS        NC1164.2
110900*    SEPARATE RECEIVING ITEM AND SENDING ITEMS WITH A SIGN        NC1164.2
111000*    CLAUSE BUT THE SIGN IS NOT SEPARATE.                         NC1164.2
111100     MOVE ZERO TO WRK-DS-LS-5.                                    NC1164.2
111200     MOVE ZERO TO WRK-DS-TS-5.                                    NC1164.2
111300 SIG-TEST-GF-13-1.                                                NC1164.2
111400     MOVE DS-L-5 TO WRK-DS-LS-5.                                  NC1164.2
111500     IF GRP-09 EQUAL TO "+91275"                                  NC1164.2
111600         PERFORM PASS                                             NC1164.2
111700         GO TO SIG-WRITE-GF-13-1.                                 NC1164.2
111800     GO TO SIG-FAIL-GF-13-1.                                      NC1164.2
111900 SIG-DELETE-GF-13-1.                                              NC1164.2
112000     PERFORM DE-LETE.                                             NC1164.2
112100     PERFORM PRINT-DETAIL.                                        NC1164.2
112200     GO TO   SIG-INIT-GF-14.                                      NC1164.2
112300 SIG-FAIL-GF-13-1.                                                NC1164.2
112400     PERFORM FAIL.                                                NC1164.2
112500     MOVE GRP-09 TO COMPUTED-A.                                   NC1164.2
112600     MOVE "+91275" TO CORRECT-A.                                  NC1164.2
112700     MOVE "MOVE DS-L-5 TO WRK-DS-LS-5" TO RE-MARK.                NC1164.2
112800 SIG-WRITE-GF-13-1.                                               NC1164.2
112900     MOVE 1 TO REC-CT.                                            NC1164.2
113000     PERFORM PRINT-DETAIL.                                        NC1164.2
113100 SIG-TEST-GF-13-2.                                                NC1164.2
113200     MOVE DS-T-4 TO WRK-DS-LS-5.                                  NC1164.2
113300     IF GRP-09 EQUAL TO "-03621"                                  NC1164.2
113400         PERFORM PASS                                             NC1164.2
113500         GO TO SIG-WRITE-GF-13-2.                                 NC1164.2
113600 SIG-FAIL-GF-13-2.                                                NC1164.2
113700     PERFORM FAIL.                                                NC1164.2
113800     MOVE GRP-09 TO COMPUTED-A.                                   NC1164.2
113900     MOVE "-03621" TO CORRECT-A.                                  NC1164.2
114000     MOVE "MOVE DS-T-4 TO WRK-DS-LS-5" TO RE-MARK.                NC1164.2
114100 SIG-WRITE-GF-13-2.                                               NC1164.2
114200     MOVE 2 TO REC-CT.                                            NC1164.2
114300     PERFORM PRINT-DETAIL.                                        NC1164.2
114400 SIG-TEST-GF-13-3.                                                NC1164.2
114500     MOVE DS-L-5 TO WRK-DS-TS-5.                                  NC1164.2
114600     IF GRP-10 EQUAL TO "91275+"                                  NC1164.2
114700         PERFORM PASS                                             NC1164.2
114800         GO TO SIG-WRITE-GF-13-3.                                 NC1164.2
114900 SIG-FAIL-GF-13-3.                                                NC1164.2
115000     PERFORM FAIL.                                                NC1164.2
115100     MOVE GRP-10 TO COMPUTED-A.                                   NC1164.2
115200     MOVE "91275+" TO CORRECT-A.                                  NC1164.2
115300     MOVE "MOVE DS-L-5 TO WRK-DS-TS-5" TO RE-MARK.                NC1164.2
115400 SIG-WRITE-GF-13-3.                                               NC1164.2
115500     MOVE 3 TO REC-CT.                                            NC1164.2
115600     PERFORM PRINT-DETAIL.                                        NC1164.2
115700 SIG-TEST-GF-13-4.                                                NC1164.2
115800     MOVE DS-T-4 TO WRK-DS-TS-5.                                  NC1164.2
115900     IF GRP-10 EQUAL TO "03621-"                                  NC1164.2
116000         PERFORM PASS                                             NC1164.2
116100         GO TO SIG-WRITE-GF-13-4.                                 NC1164.2
116200 SIG-FAIL-GF-13-4.                                                NC1164.2
116300     PERFORM FAIL.                                                NC1164.2
116400     MOVE GRP-10 TO COMPUTED-A.                                   NC1164.2
116500     MOVE "03621-" TO CORRECT-A.                                  NC1164.2
116600     MOVE "MOVE DS-T-4 TO WRK-DS-TS-5" TO RE-MARK.                NC1164.2
116700 SIG-WRITE-GF-13-4.                                               NC1164.2
116800     MOVE 4 TO REC-CT.                                            NC1164.2
116900     PERFORM PRINT-DETAIL.                                        NC1164.2
117000 SIG-INIT-GF-14.                                                  NC1164.2
117100     MOVE "VI-42 5.12.4"  TO ANSI-REFERENCE.                      NC1164.2
117200     MOVE "SIG-TEST-GF-14" TO PAR-NAME.                           NC1164.2
117300     MOVE "SIGNED NUM. TO ALPHA" TO FEATURE.                      NC1164.2
117400*        THIS TEST CONTAINS MOVE STATEMENTS WITH A SIGNED         NC1164.2
117500*    NUMERIC SENDING ITEM AND ALPHANUMERIC RECEIVING ITEM.        NC1164.2
117600*    THE OPERATIONAL SIGN SHOULD NOT BE MOVED AND SPACE           NC1164.2
117700*    FILLING ON THE RIGHT SHOULD OCCUR.                           NC1164.2
117800 SIG-TEST-GF-14-1.                                                NC1164.2
117900     MOVE DS-LS-5 TO AN-006.                                      NC1164.2
118000     IF AN-006 EQUAL TO "91275 "                                  NC1164.2
118100         PERFORM PASS                                             NC1164.2
118200         GO TO SIG-WRITE-GF-14-1.                                 NC1164.2
118300     GO TO SIG-FAIL-GF-14-1.                                      NC1164.2
118400 SIG-DELETE-GF-14-1.                                              NC1164.2
118500     PERFORM DE-LETE.                                             NC1164.2
118600     PERFORM PRINT-DETAIL.                                        NC1164.2
118700     GO TO   SIG-INIT-GF-15.                                      NC1164.2
118800 SIG-FAIL-GF-14-1.                                                NC1164.2
118900     PERFORM FAIL.                                                NC1164.2
119000     MOVE AN-006 TO COMPUTED-A.                                   NC1164.2
119100     MOVE "91275 " TO CORRECT-A.                                  NC1164.2
119200     MOVE "MOVE DS-LS-5 TO AN-006" TO RE-MARK.                    NC1164.2
119300 SIG-WRITE-GF-14-1.                                               NC1164.2
119400     MOVE 1 TO REC-CT.                                            NC1164.2
119500     PERFORM PRINT-DETAIL.                                        NC1164.2
119600 SIG-TEST-GF-14-2.                                                NC1164.2
119700     MOVE SPACE TO AN-006.                                        NC1164.2
119800     MOVE DS-TS-4 TO AN-006.                                      NC1164.2
119900     IF AN-006 NOT EQUAL TO "8036  "                              NC1164.2
120000         GO TO SIG-FAIL-GF-14-2.                                  NC1164.2
120100     PERFORM PASS.                                                NC1164.2
120200     GO TO SIG-WRITE-GF-14-2.                                     NC1164.2
120300 SIG-FAIL-GF-14-2.                                                NC1164.2
120400     PERFORM FAIL.                                                NC1164.2
120500     MOVE AN-006 TO COMPUTED-A.                                   NC1164.2
120600     MOVE "8036  " TO CORRECT-A.                                  NC1164.2
120700     MOVE "MOVE DS-TS-4 TO AN-006" TO RE-MARK.                    NC1164.2
120800 SIG-WRITE-GF-14-2.                                               NC1164.2
120900     MOVE 2 TO REC-CT.                                            NC1164.2
121000     PERFORM PRINT-DETAIL.                                        NC1164.2
121100 SIG-TEST-GF-14-3.                                                NC1164.2
121200     MOVE SPACE TO AN-006.                                        NC1164.2
121300     MOVE DS-L-4 TO AN-006.                                       NC1164.2
121400     IF AN-006 EQUAL TO "9127  "                                  NC1164.2
121500         PERFORM PASS                                             NC1164.2
121600         GO TO SIG-WRITE-GF-14-3.                                 NC1164.2
121700 SIG-FAIL-GF-14-3.                                                NC1164.2
121800     PERFORM FAIL.                                                NC1164.2
121900     MOVE AN-006 TO COMPUTED-A.                                   NC1164.2
122000     MOVE "9127  " TO CORRECT-A.                                  NC1164.2
122100     MOVE "MOVE DS-L-4 TO AN-006" TO RE-MARK.                     NC1164.2
122200 SIG-WRITE-GF-14-3.                                               NC1164.2
122300     MOVE 3 TO REC-CT.                                            NC1164.2
122400     PERFORM PRINT-DETAIL.                                        NC1164.2
122500 SIG-TEST-GF-14-4.                                                NC1164.2
122600     MOVE SPACE TO AN-006.                                        NC1164.2
122700     MOVE DS-T-5 TO AN-006.                                       NC1164.2
122800     IF AN-006 NOT EQUAL TO "83621 "                              NC1164.2
122900         GO TO SIG-FAIL-GF-14-4.                                  NC1164.2
123000     PERFORM PASS.                                                NC1164.2
123100     GO TO SIG-WRITE-GF-14-4.                                     NC1164.2
123200 SIG-FAIL-GF-14-4.                                                NC1164.2
123300     PERFORM FAIL.                                                NC1164.2
123400     MOVE AN-006 TO COMPUTED-A.                                   NC1164.2
123500     MOVE "83621 " TO CORRECT-A.                                  NC1164.2
123600     MOVE "MOVE DS-T-5 TO AN-006" TO RE-MARK.                     NC1164.2
123700 SIG-WRITE-GF-14-4.                                               NC1164.2
123800     MOVE 4 TO REC-CT.                                            NC1164.2
123900     PERFORM PRINT-DETAIL.                                        NC1164.2
124000 SIG-INIT-GF-15.                                                  NC1164.2
124100     MOVE "VI-42 5.12.4"  TO ANSI-REFERENCE.                      NC1164.2
124200     MOVE "SIG-TEST-GF-15" TO PAR-NAME.                           NC1164.2
124300     MOVE 15759 TO DU-005 CU-005.                                 NC1164.2
124400     MOVE -15759 TO DS-005 CS-005.                                NC1164.2
124500*        THIS TEST MOVES SIGNED AND UNSIGNED DISPLAY ITEMS,       NC1164.2
124600*    SIGNED AND UNSIGNED COMPUTATIONAL ITEMS, AND SIGNED AND      NC1164.2
124700*    UNSIGNED NUMERIC LITERALS TO A NUMERIC ITEM WITH SIGN        NC1164.2
124800*    LEADING SEPARATE.                                            NC1164.2
124900     MOVE "RECEIVING ITEM DS-LS" TO FEATURE.                      NC1164.2
125000 SIG-TEST-GF-15-1.                                                NC1164.2
125100     MOVE SPACE TO GRP-09.                                        NC1164.2
125200     MOVE DU-005 TO WRK-DS-LS-5.                                  NC1164.2
125300     IF GRP-09 EQUAL TO "+15759"                                  NC1164.2
125400         PERFORM PASS                                             NC1164.2
125500         GO TO SIG-WRITE-GF-15-1.                                 NC1164.2
125600     GO TO SIG-FAIL-GF-15-1.                                      NC1164.2
125700 SIG-DELETE-GF-15-1.                                              NC1164.2
125800     PERFORM DE-LETE.                                             NC1164.2
125900     PERFORM PRINT-DETAIL.                                        NC1164.2
126000     GO TO   SIG-INIT-GF-16.                                      NC1164.2
126100 SIG-FAIL-GF-15-1.                                                NC1164.2
126200     PERFORM FAIL.                                                NC1164.2
126300     MOVE GRP-09 TO COMPUTED-A.                                   NC1164.2
126400     MOVE "+15759" TO CORRECT-A.                                  NC1164.2
126500     MOVE "MOVE DU-005 TO WRK-DS-LS-5" TO RE-MARK.                NC1164.2
126600 SIG-WRITE-GF-15-1.                                               NC1164.2
126700     MOVE 1 TO REC-CT.                                            NC1164.2
126800     PERFORM PRINT-DETAIL.                                        NC1164.2
126900 SIG-TEST-GF-15-2.                                                NC1164.2
127000     MOVE SPACE TO GRP-09.                                        NC1164.2
127100     MOVE CU-005 TO WRK-DS-LS-5.                                  NC1164.2
127200     IF GRP-09 NOT EQUAL TO "+15759"                              NC1164.2
127300         GO TO SIG-FAIL-GF-15-2.                                  NC1164.2
127400     PERFORM PASS                                                 NC1164.2
127500     GO TO SIG-WRITE-GF-15-2.                                     NC1164.2
127600 SIG-FAIL-GF-15-2.                                                NC1164.2
127700     PERFORM FAIL.                                                NC1164.2
127800     MOVE GRP-09 TO COMPUTED-A.                                   NC1164.2
127900     MOVE "+15759" TO CORRECT-A.                                  NC1164.2
128000     MOVE "MOVE CU-005 TO WRK-DS-LS-5" TO RE-MARK.                NC1164.2
128100 SIG-WRITE-GF-15-2.                                               NC1164.2
128200     MOVE 2 TO REC-CT.                                            NC1164.2
128300     PERFORM PRINT-DETAIL.                                        NC1164.2
128400 SIG-TEST-GF-15-3.                                                NC1164.2
128500     MOVE SPACE TO GRP-09.                                        NC1164.2
128600     MOVE DS-005 TO WRK-DS-LS-5.                                  NC1164.2
128700     IF GRP-09 EQUAL TO "-15759"                                  NC1164.2
128800         PERFORM PASS                                             NC1164.2
128900         GO TO SIG-WRITE-GF-15-3.                                 NC1164.2
129000 SIG-FAIL-GF-15-3.                                                NC1164.2
129100     PERFORM FAIL.                                                NC1164.2
129200     MOVE GRP-09 TO COMPUTED-A.                                   NC1164.2
129300     MOVE "-15759" TO CORRECT-A.                                  NC1164.2
129400     MOVE "MOVE DS-005 TO WRK-DS-LS-5" TO RE-MARK.                NC1164.2
129500 SIG-WRITE-GF-15-3.                                               NC1164.2
129600     MOVE 3 TO REC-CT.                                            NC1164.2
129700     PERFORM PRINT-DETAIL.                                        NC1164.2
129800 SIG-TEST-GF-15-4.                                                NC1164.2
129900     MOVE SPACE TO GRP-09.                                        NC1164.2
130000     MOVE CS-005 TO WRK-DS-LS-5.                                  NC1164.2
130100     IF GRP-09 NOT EQUAL TO "-15759"                              NC1164.2
130200         GO TO SIG-FAIL-GF-15-4.                                  NC1164.2
130300     PERFORM PASS.                                                NC1164.2
130400     GO TO SIG-WRITE-GF-15-4.                                     NC1164.2
130500 SIG-FAIL-GF-15-4.                                                NC1164.2
130600     PERFORM FAIL.                                                NC1164.2
130700     MOVE GRP-09 TO COMPUTED-A.                                   NC1164.2
130800     MOVE "-15759" TO CORRECT-A.                                  NC1164.2
130900     MOVE "MOVE CS-005 TO WRK-DS-LS-5" TO RE-MARK.                NC1164.2
131000 SIG-WRITE-GF-15-4.                                               NC1164.2
131100     MOVE 4 TO REC-CT.                                            NC1164.2
131200     PERFORM PRINT-DETAIL.                                        NC1164.2
131300 SIG-TEST-GF-15-5.                                                NC1164.2
131400     MOVE SPACE TO GRP-09.                                        NC1164.2
131500     MOVE 15759 TO WRK-DS-LS-5.                                   NC1164.2
131600     IF GRP-09 EQUAL TO "+15759"                                  NC1164.2
131700         PERFORM PASS                                             NC1164.2
131800         GO TO SIG-WRITE-GF-15-5.                                 NC1164.2
131900 SIG-FAIL-GF-15-5.                                                NC1164.2
132000     PERFORM FAIL.                                                NC1164.2
132100     MOVE "+15759" TO CORRECT-A.                                  NC1164.2
132200     MOVE GRP-09 TO COMPUTED-A.                                   NC1164.2
132300     MOVE "MOVE 15759 TO WRK-DS-LS-5" TO RE-MARK.                 NC1164.2
132400 SIG-WRITE-GF-15-5.                                               NC1164.2
132500     MOVE 5 TO REC-CT.                                            NC1164.2
132600     PERFORM PRINT-DETAIL.                                        NC1164.2
132700 SIG-TEST-GF-15-6.                                                NC1164.2
132800     MOVE SPACE TO GRP-09.                                        NC1164.2
132900     MOVE -15759 TO WRK-DS-LS-5.                                  NC1164.2
133000     IF GRP-09 NOT EQUAL TO "-15759"                              NC1164.2
133100         GO TO SIG-FAIL-GF-15-6.                                  NC1164.2
133200     PERFORM PASS.                                                NC1164.2
133300     GO TO SIG-WRITE-GF-15-6.                                     NC1164.2
133400 SIG-FAIL-GF-15-6.                                                NC1164.2
133500     PERFORM FAIL.                                                NC1164.2
133600     MOVE GRP-09 TO COMPUTED-A.                                   NC1164.2
133700     MOVE "-15759" TO CORRECT-A.                                  NC1164.2
133800     MOVE "MOVE -15759 TO WRK-DS-LS-5" TO RE-MARK.                NC1164.2
133900 SIG-WRITE-GF-15-6.                                               NC1164.2
134000     MOVE 6 TO REC-CT.                                            NC1164.2
134100     PERFORM PRINT-DETAIL.                                        NC1164.2
134200 SIG-INIT-GF-16.                                                  NC1164.2
134300     MOVE "VI-42 5.12.4"  TO ANSI-REFERENCE.                      NC1164.2
134400     MOVE "SIG-TEST-GF-16" TO PAR-NAME.                           NC1164.2
134500     MOVE "RECEIVING ITEM DS-TS" TO FEATURE.                      NC1164.2
134600*        THIS TEST MOVES SIGNED AND UNSIGNED DISPLAY ITEMS,       NC1164.2
134700*    SIGNED AND UNSIGNED COMPUTATIONAL ITEMS, AND SIGNED AND      NC1164.2
134800*    UNSIGNED NUMERIC LITERALS TO A NUMERIC ITEM WITH SIGN        NC1164.2
134900*    TRAILING SEPARATE CLAUSE.                                    NC1164.2
135000     MOVE SPACE TO GRP-10.                                        NC1164.2
135100     MOVE DU-005 TO WRK-DS-TS-5.                                  NC1164.2
135200 SIG-TEST-GF-16-1.                                                NC1164.2
135300     IF GRP-10 EQUAL TO "15759+"                                  NC1164.2
135400         PERFORM PASS                                             NC1164.2
135500         GO TO SIG-WRITE-GF-16-1.                                 NC1164.2
135600     GO TO SIG-FAIL-GF-16-1.                                      NC1164.2
135700 SIG-DELETE-GF-16-1.                                              NC1164.2
135800     PERFORM DE-LETE.                                             NC1164.2
135900     PERFORM PRINT-DETAIL.                                        NC1164.2
136000     GO TO   SIG-INIT-GF-17.                                      NC1164.2
136100 SIG-FAIL-GF-16-1.                                                NC1164.2
136200     PERFORM FAIL.                                                NC1164.2
136300     MOVE GRP-10 TO COMPUTED-A.                                   NC1164.2
136400     MOVE "15759+" TO CORRECT-A.                                  NC1164.2
136500     MOVE "MOVE DU-005 TO WRK-DS-TS-5" TO RE-MARK.                NC1164.2
136600 SIG-WRITE-GF-16-1.                                               NC1164.2
136700     MOVE 1 TO REC-CT.                                            NC1164.2
136800     PERFORM PRINT-DETAIL.                                        NC1164.2
136900 SIG-TEST-GF-16-2.                                                NC1164.2
137000     MOVE SPACE TO GRP-10.                                        NC1164.2
137100     MOVE CU-005 TO WRK-DS-TS-5.                                  NC1164.2
137200     IF GRP-10 NOT EQUAL TO "15759+"                              NC1164.2
137300         GO TO SIG-FAIL-GF-16-2.                                  NC1164.2
137400     PERFORM PASS.                                                NC1164.2
137500     GO TO SIG-WRITE-GF-16-2.                                     NC1164.2
137600 SIG-FAIL-GF-16-2.                                                NC1164.2
137700     PERFORM FAIL.                                                NC1164.2
137800     MOVE GRP-10 TO COMPUTED-A.                                   NC1164.2
137900     MOVE "15759+" TO CORRECT-A.                                  NC1164.2
138000     MOVE "MOVE CU-005 TO WRK-DS-TS-5" TO RE-MARK.                NC1164.2
138100 SIG-WRITE-GF-16-2.                                               NC1164.2
138200     MOVE 2 TO REC-CT.                                            NC1164.2
138300     PERFORM PRINT-DETAIL.                                        NC1164.2
138400 SIG-TEST-GF-16-3.                                                NC1164.2
138500     MOVE SPACE TO GRP-10.                                        NC1164.2
138600     MOVE DS-005 TO WRK-DS-TS-5.                                  NC1164.2
138700     IF GRP-10 EQUAL TO "15759-"                                  NC1164.2
138800         PERFORM PASS                                             NC1164.2
138900         GO TO SIG-WRITE-GF-16-3.                                 NC1164.2
139000 SIG-FAIL-GF-16-3.                                                NC1164.2
139100     PERFORM FAIL.                                                NC1164.2
139200     MOVE GRP-10 TO COMPUTED-A.                                   NC1164.2
139300     MOVE "15759-" TO CORRECT-A.                                  NC1164.2
139400     MOVE "MOVE DS-005 TO WRK-DS-TS-5" TO RE-MARK.                NC1164.2
139500 SIG-WRITE-GF-16-3.                                               NC1164.2
139600     MOVE 3 TO REC-CT.                                            NC1164.2
139700     PERFORM PRINT-DETAIL.                                        NC1164.2
139800 SIG-TEST-GF-16-4.                                                NC1164.2
139900     MOVE SPACE TO GRP-10.                                        NC1164.2
140000     MOVE CS-005 TO WRK-DS-TS-5.                                  NC1164.2
140100     IF GRP-10 NOT EQUAL TO "15759-"                              NC1164.2
140200         GO TO SIG-FAIL-GF-16-4.                                  NC1164.2
140300     PERFORM PASS.                                                NC1164.2
140400     GO TO SIG-WRITE-GF-16-4.                                     NC1164.2
140500 SIG-FAIL-GF-16-4.                                                NC1164.2
140600     PERFORM FAIL.                                                NC1164.2
140700     MOVE GRP-10 TO COMPUTED-A.                                   NC1164.2
140800     MOVE "15759-" TO CORRECT-A.                                  NC1164.2
140900     MOVE "MOVE CS-005 TO WRK-DS-TS-5" TO RE-MARK.                NC1164.2
141000 SIG-WRITE-GF-16-4.                                               NC1164.2
141100     MOVE 4 TO REC-CT.                                            NC1164.2
141200     PERFORM PRINT-DETAIL.                                        NC1164.2
141300 SIG-TEST-GF-16-5.                                                NC1164.2
141400     MOVE SPACE TO GRP-10.                                        NC1164.2
141500     MOVE 15759 TO WRK-DS-TS-5.                                   NC1164.2
141600     IF GRP-10 EQUAL TO "15759+"                                  NC1164.2
141700         PERFORM PASS                                             NC1164.2
141800         GO TO SIG-WRITE-GF-16-5.                                 NC1164.2
141900 SIG-FAIL-GF-16-5.                                                NC1164.2
142000     PERFORM FAIL.                                                NC1164.2
142100     MOVE GRP-10 TO COMPUTED-A.                                   NC1164.2
142200     MOVE "15759+" TO CORRECT-A.                                  NC1164.2
142300     MOVE "MOVE 15759 TO WRK-DS-TS-5" TO RE-MARK.                 NC1164.2
142400 SIG-WRITE-GF-16-5.                                               NC1164.2
142500     MOVE 5 TO REC-CT.                                            NC1164.2
142600     PERFORM PRINT-DETAIL.                                        NC1164.2
142700 SIG-TEST-GF-16-6.                                                NC1164.2
142800     MOVE SPACE TO GRP-10.                                        NC1164.2
142900     MOVE -15759 TO WRK-DS-TS-5.                                  NC1164.2
143000     IF GRP-10 NOT EQUAL TO "15759-"                              NC1164.2
143100        GO TO SIG-FAIL-GF-16-6.                                   NC1164.2
143200     PERFORM PASS.                                                NC1164.2
143300     GO TO SIG-WRITE-GF-16-6.                                     NC1164.2
143400 SIG-FAIL-GF-16-6.                                                NC1164.2
143500     PERFORM FAIL.                                                NC1164.2
143600     MOVE GRP-10 TO COMPUTED-A.                                   NC1164.2
143700     MOVE "15759-" TO CORRECT-A.                                  NC1164.2
143800     MOVE "MOVE -15759 TO WRK-DS-TS-5" TO RE-MARK.                NC1164.2
143900 SIG-WRITE-GF-16-6.                                               NC1164.2
144000     MOVE 6 TO REC-CT.                                            NC1164.2
144100     PERFORM PRINT-DETAIL.                                        NC1164.2
144200*                                                                 NC1164.2
144300 SIG-INIT-GF-17.                                                  NC1164.2
144400     MOVE   "VI-42 5.12.4 GR2"  TO ANSI-REFERENCE.                NC1164.2
144500     MOVE   "SIG-TEST-GF-17" TO PAR-NAME.                         NC1164.2
144600     MOVE   "PRECEDENCE OF SUBORDINATE SIGN CLAUSE" TO FEATURE.   NC1164.2
144700     MOVE    1234 TO TEST-17-C.                                   NC1164.2
144800     MOVE    0 TO REC-CT.                                         NC1164.2
144900 SIG-TEST-GF-17.                                                  NC1164.2
145000     IF      TEST-17-C-SIGN = "+"                                 NC1164.2
145100             PERFORM PASS                                         NC1164.2
145200             GO TO   SIG-WRITE-GF-17                              NC1164.2
145300     ELSE                                                         NC1164.2
145400             GO TO   SIG-FAIL-GF-17.                              NC1164.2
145500 SIG-DELETE-GF-17.                                                NC1164.2
145600     PERFORM DE-LETE.                                             NC1164.2
145700     GO TO   SIG-WRITE-GF-17.                                     NC1164.2
145800 SIG-FAIL-GF-17.                                                  NC1164.2
145900     PERFORM FAIL.                                                NC1164.2
146000     MOVE   "POSITIVE SIGN EXPECTED" TO RE-MARK.                  NC1164.2
146100     MOVE   "+"             TO CORRECT-X.                         NC1164.2
146200     MOVE    TEST-17-C-SIGN TO COMPUTED-X.                        NC1164.2
146300 SIG-WRITE-GF-17.                                                 NC1164.2
146400     PERFORM PRINT-DETAIL.                                        NC1164.2
146500*                                                                 NC1164.2
146600 SIG-INIT-GF-18.                                                  NC1164.2
146700     MOVE   "VI-42 5.12.4 GR3"  TO ANSI-REFERENCE.                NC1164.2
146800     MOVE   "SIG-TEST-GF-18" TO PAR-NAME.                         NC1164.2
146900     MOVE   "PRECEDENCE OF SUBORDINATE SIGN CLAUSE" TO FEATURE.   NC1164.2
147000     MOVE    1234 TO TEST-18-B.                                   NC1164.2
147100     MOVE    0 TO REC-CT.                                         NC1164.2
147200 SIG-TEST-GF-18.                                                  NC1164.2
147300     IF      TEST-18-B-SIGN = "+"                                 NC1164.2
147400             PERFORM PASS                                         NC1164.2
147500             GO TO   SIG-WRITE-GF-18                              NC1164.2
147600     ELSE                                                         NC1164.2
147700             GO TO   SIG-FAIL-GF-18.                              NC1164.2
147800 SIG-DELETE-GF-18.                                                NC1164.2
147900     PERFORM DE-LETE.                                             NC1164.2
148000     GO TO   SIG-WRITE-GF-18.                                     NC1164.2
148100 SIG-FAIL-GF-18.                                                  NC1164.2
148200     PERFORM FAIL.                                                NC1164.2
148300     MOVE   "POSITIVE SIGN EXPECTED" TO RE-MARK.                  NC1164.2
148400     MOVE   "+"             TO CORRECT-X.                         NC1164.2
148500     MOVE    TEST-18-B-SIGN TO COMPUTED-X.                        NC1164.2
148600 SIG-WRITE-GF-18.                                                 NC1164.2
148700     PERFORM PRINT-DETAIL.                                        NC1164.2
148800*                                                                 NC1164.2
148900 TERMINATE-ROUTINE.                                               NC1164.2
149000     EXIT.                                                        NC1164.2
149100 CCVS-EXIT SECTION.                                               NC1164.2
149200 CCVS-999999.                                                     NC1164.2
149300     GO TO CLOSE-FILES.                                           NC1164.2