|
000100 IDENTIFICATION DIVISION. NC1044.2
000200 PROGRAM-ID. NC1044.2
000300 NC104A. NC1044.2
000400**************************************************************** NC1044.2
000500* * NC1044.2
000600* VALIDATION FOR:- * NC1044.2
000700* * NC1044.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1044.2
000900* * NC1044.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1044.2
001100* * NC1044.2
001200**************************************************************** NC1044.2
001300* * NC1044.2
001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC1044.2
001500* * NC1044.2
001600* X-55 - SYSTEM PRINTER NAME. * NC1044.2
001700* X-82 - SOURCE COMPUTER NAME. * NC1044.2
001800* X-83 - OBJECT COMPUTER NAME. * NC1044.2
001900* * NC1044.2
002000**************************************************************** NC1044.2
002100* NC1044.2
002200* PROGRAM NC104A TESTS FORMAT 1 OF THE MOVE STATEMENT NC1044.2
002300* WITH VARIOUS COMBINATIONS OF SENDING AND RECEIVING FIELDS. NC1044.2
002400* NC1044.2
002500* (SEE ALSO NC105A). NC1044.2
002600* NC1044.2
002700 NC1044.2
002800 ENVIRONMENT DIVISION. NC1044.2
002900 CONFIGURATION SECTION. NC1044.2
003000 SOURCE-COMPUTER. NC1044.2
003100 Card0130. NC1044.2
003200 OBJECT-COMPUTER. NC1044.2
003300 Card0131. NC1044.2
003400 INPUT-OUTPUT SECTION. NC1044.2
003500 FILE-CONTROL. NC1044.2
003600 SELECT PRINT-FILE ASSIGN TO NC1044.2
003700 "C0085" . NC1044.2
003800 DATA DIVISION. NC1044.2
003900 FILE SECTION. NC1044.2
004000 FD PRINT-FILE NC1044.2
004100 LABEL RECORDS NC1044.2
004200 Card0132 NC1044.2
004300 DATA RECORD IS PRINT-REC DUMMY-RECORD. NC1044.2
004400 01 PRINT-REC PICTURE X(120). NC1044.2
004500 01 DUMMY-RECORD PICTURE X(120). NC1044.2
004600 WORKING-STORAGE SECTION. NC1044.2
004700 01 MOVE1 PICTURE IS 9(5) NC1044.2
004800 VALUE IS 12345. NC1044.2
004900 01 MOVE2 PICTURE IS 9(5). NC1044.2
005000 01 MOVE3 PICTURE IS 99. NC1044.2
005100 01 MOVE4 PICTURE IS 9(7). NC1044.2
005200 01 MOVE5 PICTURE IS 99V999. NC1044.2
005300 01 MOVE6 PICTURE IS V99999. NC1044.2
005400 01 MOVE8 PICTURE IS 9(5)V99. NC1044.2
005500 01 MOVE9 PICTURE IS 9(7)V99. NC1044.2
005600 01 MOVE10 PICTURE IS $999.99. NC1044.2
005700 01 MOVE11 PICTURE IS $99,999.99. NC1044.2
005800 01 MOVE12 PICTURE IS $(5)9(3). NC1044.2
005900 01 MOVE13 PICTURE IS *(5)9(6). NC1044.2
006000 01 MOVE14 PICTURE IS +9(5). NC1044.2
006100 01 MOVE15 PICTURE IS 9(5) NC1044.2
006200 VALUE IS 00000. NC1044.2
006300 01 MOVE16 PICTURE IS 9(5)CR. NC1044.2
006400 01 MOVE17 PICTURE IS $99,999.99 NC1044.2
006500 BLANK WHEN ZERO. NC1044.2
006600 01 MOVE18 PICTURE IS ZZZZZZ. NC1044.2
006700 01 MOVE19 PICTURE IS X(5). NC1044.2
006800 01 MOVE20 PICTURE IS X(4). NC1044.2
006900 01 MOVE21 PICTURE IS X(7). NC1044.2
007000 01 MOVE22 PICTURE IS XBX0XBX0X. NC1044.2
007100 01 MOVE23 PICTURE IS 999V99 NC1044.2
007200 VALUE IS 123.45. NC1044.2
007300 01 MOVE24 PICTURE IS XBXXXB000XXXX. NC1044.2
007400 01 MOVE25 PICTURE IS 999. NC1044.2
007500 01 MOVE26 PICTURE IS 999V99. NC1044.2
007600 01 MOVE27 PICTURE IS 99PP. NC1044.2
007700 01 MOVE29 PICTURE IS 9999V999. NC1044.2
007800 01 MOVE29A VALUE IS "$123.45". NC1044.2
007900 02 MOVE30 PICTURE IS $999.99. NC1044.2
008000 01 MOVE31 PICTURE IS X(9). NC1044.2
008100 01 MOVE32 PICTURE IS X(5) NC1044.2
008200 VALUE IS "ABCDE". NC1044.2
008300 01 MOVE33 PICTURE IS A(5). NC1044.2
008400 01 MOVE34 PICTURE IS A(7). NC1044.2
008500 01 MOVE35 PICTURE IS A(3). NC1044.2
008600 01 MOVE35A VALUE IS "1 A05". NC1044.2
008700 02 MOVE36 PICTURE IS XBA09. NC1044.2
008800 01 MOVE37 PICTURE IS AAAAA NC1044.2
008900 VALUE IS "ABCDE". NC1044.2
009000 01 MOVE39 PICTURE IS 09(4) . NC1044.2
009100 01 MOVE47A. NC1044.2
009200 02 MOVE48 PICTURE IS 9V9(17). NC1044.2
009300 02 MOVE49 PICTURE IS 9(5) NC1044.2
009400 VALUE IS 00045. NC1044.2
009500 02 MOVE50 PICTURE IS X(5) NC1044.2
009600 VALUE IS "12345". NC1044.2
009700 02 MOVE51 PICTURE IS S9(5) NC1044.2
009800 VALUE IS -12345. NC1044.2
009900 02 MOVE52 PICTURE IS 9(5)-. NC1044.2
010000 01 AN-DATANAMES. NC1044.2
010100 02 ANDATA1 PICTURE X VALUE SPACE. NC1044.2
010200 02 ANDATA2 PICTURE XX VALUE SPACE. NC1044.2
010300 02 ANDATA3 PICTURE XXX VALUE SPACE. NC1044.2
010400 02 ANDATA4 PICTURE X(4) VALUE SPACE. NC1044.2
010500 02 ANDATA5 PICTURE X(5) VALUE SPACE. NC1044.2
010600 02 ANDATA6 PICTURE X(6) VALUE SPACE. NC1044.2
010700 02 ANDATA7 PICTURE X(7) VALUE SPACE. NC1044.2
010800 02 ANDATA8 PICTURE X(8) VALUE SPACE. NC1044.2
010900 02 ANDATA9 PICTURE X(9) VALUE SPACE. NC1044.2
011000 02 ANDATA10 PICTURE X(10) VALUE SPACE. NC1044.2
011100 02 ANDATA11 PICTURE X(11) VALUE SPACE. NC1044.2
011200 02 ANDATA12 PICTURE X(12) VALUE SPACE. NC1044.2
011300 02 ANDATA13 PICTURE X(13) VALUE SPACE. NC1044.2
011400 02 ANDATA14 PICTURE X(14) VALUE SPACE. NC1044.2
011500 02 ANDATA15 PICTURE X(15) VALUE SPACE. NC1044.2
011600 02 ANDATA16 PICTURE X(16) VALUE SPACE. NC1044.2
011700 02 ANDATA17 PICTURE X(17) VALUE SPACE. NC1044.2
011800 02 ANDATA18 PICTURE X(18) VALUE SPACE. NC1044.2
011900 02 ANDATA19 PICTURE X(19) VALUE SPACE. NC1044.2
012000 02 ANDATA20 PICTURE X(20) VALUE SPACE. NC1044.2
012100 02 ANDATA21 PICTURE X(120) VALUE SPACE. NC1044.2
012200 01 42-DATANAMES. NC1044.2
012300 02 DNAME1 PICTURE 9 VALUE 1 COMPUTATIONAL. NC1044.2
012400 02 DNAME2 PICTURE 99 VALUE 01 COMPUTATIONAL. NC1044.2
012500 02 DNAME3 PICTURE 999 VALUE 001 COMPUTATIONAL. NC1044.2
012600 02 DNAME4 PICTURE 9(4) VALUE 0001 COMPUTATIONAL. NC1044.2
012700 02 DNAME5 PICTURE 9(5) VALUE 00001 COMPUTATIONAL. NC1044.2
012800 02 DNAME6 PICTURE 9(6) VALUE 000001 COMPUTATIONAL. NC1044.2
012900 02 DNAME7 PICTURE 9(7) VALUE 0000001 COMPUTATIONAL. NC1044.2
013000 02 DNAME8 PICTURE 9(8) VALUE 00000001 COMPUTATIONAL. NC1044.2
013100 02 DNAME9 PICTURE 9(9) VALUE 000000001. NC1044.2
013200 02 DNAME10 PICTURE 9(10) VALUE 0000000001. NC1044.2
013300 02 DNAME11 PICTURE 9(11) VALUE 00000000001. NC1044.2
013400 02 DNAME12 PICTURE 9(12) VALUE 000000000001. NC1044.2
013500 02 DNAME13 PICTURE 9(13) VALUE 0000000000001. NC1044.2
013600 02 DNAME14 PICTURE 9(14) VALUE 00000000000001. NC1044.2
013700 02 DNAME15 PICTURE 9(15) VALUE 000000000000001. NC1044.2
013800 02 DNAME16 PICTURE 9(16) VALUE 0000000000000001. NC1044.2
013900 02 DNAME17 PICTURE 9(17) VALUE 00000000000000001. NC1044.2
014000 02 DNAME18 PICTURE 9(18) VALUE 000000000000000001. NC1044.2
014100 02 DNAME19 PICTURE 9 VALUE 1. NC1044.2
014200 02 DNAME20 PICTURE 99 VALUE 11. NC1044.2
014300 02 DNAME21 PICTURE 999 VALUE 111. NC1044.2
014400 02 DNAME22 PICTURE 9(18) VALUE ZERO. NC1044.2
014500 02 DNAME23 PICTURE 9(18) VALUE ZERO. NC1044.2
014600 02 DNAME24 PICTURE 9(18) VALUE ZERO. NC1044.2
014700 02 DNAME25 PICTURE 9(18) VALUE ZERO. NC1044.2
014800 02 DNAME26 PICTURE 9(18) VALUE ZERO. NC1044.2
014900 02 DNAME27 PICTURE 9(18) VALUE ZERO. NC1044.2
015000 02 DNAME28 PICTURE 9(18) VALUE ZERO. NC1044.2
015100 02 DNAME29 PICTURE 9(18) VALUE ZERO. NC1044.2
015200 02 DNAME30 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
015300 02 DNAME31 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
015400 02 DNAME32 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
015500 02 DNAME33 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
015600 02 DNAME34 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
015700 02 DNAME35 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
015800 02 DNAME36 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
015900 02 DNAME37 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
016000 02 DNAME38 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
016100 02 DNAME39 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
016200 02 DNAME40 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
016300 02 DNAME41 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
016400 02 DNAME42 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
016500 01 TEST-RESULTS. NC1044.2
016600 02 FILLER PIC X VALUE SPACE. NC1044.2
016700 02 FEATURE PIC X(20) VALUE SPACE. NC1044.2
016800 02 FILLER PIC X VALUE SPACE. NC1044.2
016900 02 P-OR-F PIC X(5) VALUE SPACE. NC1044.2
017000 02 FILLER PIC X VALUE SPACE. NC1044.2
017100 02 PAR-NAME. NC1044.2
017200 03 FILLER PIC X(19) VALUE SPACE. NC1044.2
017300 03 PARDOT-X PIC X VALUE SPACE. NC1044.2
017400 03 DOTVALUE PIC 99 VALUE ZERO. NC1044.2
017500 02 FILLER PIC X(8) VALUE SPACE. NC1044.2
017600 02 RE-MARK PIC X(61). NC1044.2
017700 01 TEST-COMPUTED. NC1044.2
017800 02 FILLER PIC X(30) VALUE SPACE. NC1044.2
017900 02 FILLER PIC X(17) VALUE NC1044.2
018000 " COMPUTED=". NC1044.2
018100 02 COMPUTED-X. NC1044.2
018200 03 COMPUTED-A PIC X(20) VALUE SPACE. NC1044.2
018300 03 COMPUTED-N REDEFINES COMPUTED-A NC1044.2
018400 PIC -9(9).9(9). NC1044.2
018500 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC1044.2
018600 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). NC1044.2
018700 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC1044.2
018800 03 CM-18V0 REDEFINES COMPUTED-A. NC1044.2
018900 04 COMPUTED-18V0 PIC -9(18). NC1044.2
019000 04 FILLER PIC X. NC1044.2
019100 03 FILLER PIC X(50) VALUE SPACE. NC1044.2
019200 01 TEST-CORRECT. NC1044.2
019300 02 FILLER PIC X(30) VALUE SPACE. NC1044.2
019400 02 FILLER PIC X(17) VALUE " CORRECT =". NC1044.2
019500 02 CORRECT-X. NC1044.2
019600 03 CORRECT-A PIC X(20) VALUE SPACE. NC1044.2
019700 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). NC1044.2
019800 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). NC1044.2
019900 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC1044.2
020000 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). NC1044.2
020100 03 CR-18V0 REDEFINES CORRECT-A. NC1044.2
020200 04 CORRECT-18V0 PIC -9(18). NC1044.2
020300 04 FILLER PIC X. NC1044.2
020400 03 FILLER PIC X(2) VALUE SPACE. NC1044.2
020500 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC1044.2
020600 01 CCVS-C-1. NC1044.2
020700 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC1044.2
020800- "SS PARAGRAPH-NAME NC1044.2
020900- " REMARKS". NC1044.2
021000 02 FILLER PIC X(20) VALUE SPACE. NC1044.2
021100 01 CCVS-C-2. NC1044.2
021200 02 FILLER PIC X VALUE SPACE. NC1044.2
021300 02 FILLER PIC X(6) VALUE "TESTED". NC1044.2
021400 02 FILLER PIC X(15) VALUE SPACE. NC1044.2
021500 02 FILLER PIC X(4) VALUE "FAIL". NC1044.2
021600 02 FILLER PIC X(94) VALUE SPACE. NC1044.2
021700 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC1044.2
021800 01 REC-CT PIC 99 VALUE ZERO. NC1044.2
021900 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC1044.2
022000 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC1044.2
022100 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC1044.2
022200 01 PASS-COUNTER PIC 999 VALUE ZERO. NC1044.2
022300 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC1044.2
022400 01 ERROR-HOLD PIC 999 VALUE ZERO. NC1044.2
022500 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC1044.2
022600 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC1044.2
022700 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC1044.2
022800 01 CCVS-H-1. NC1044.2
022900 02 FILLER PIC X(39) VALUE SPACES. NC1044.2
023000 02 FILLER PIC X(42) VALUE NC1044.2
023100 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC1044.2
023200 02 FILLER PIC X(39) VALUE SPACES. NC1044.2
023300 01 CCVS-H-2A. NC1044.2
023400 02 FILLER PIC X(40) VALUE SPACE. NC1044.2
023500 02 FILLER PIC X(7) VALUE "CCVS85 ". NC1044.2
023600 02 FILLER PIC XXXX VALUE NC1044.2
023700 "4.2 ". NC1044.2
023800 02 FILLER PIC X(28) VALUE NC1044.2
023900 " COPY - NOT FOR DISTRIBUTION". NC1044.2
024000 02 FILLER PIC X(41) VALUE SPACE. NC1044.2
024100 NC1044.2
024200 01 CCVS-H-2B. NC1044.2
024300 02 FILLER PIC X(15) VALUE NC1044.2
024400 "TEST RESULT OF ". NC1044.2
024500 02 TEST-ID PIC X(9). NC1044.2
024600 02 FILLER PIC X(4) VALUE NC1044.2
024700 " IN ". NC1044.2
024800 02 FILLER PIC X(12) VALUE NC1044.2
024900 " HIGH ". NC1044.2
025000 02 FILLER PIC X(22) VALUE NC1044.2
025100 " LEVEL VALIDATION FOR ". NC1044.2
025200 02 FILLER PIC X(58) VALUE NC1044.2
025300 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1044.2
025400 01 CCVS-H-3. NC1044.2
025500 02 FILLER PIC X(34) VALUE NC1044.2
025600 " FOR OFFICIAL USE ONLY ". NC1044.2
025700 02 FILLER PIC X(58) VALUE NC1044.2
025800 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1044.2
025900 02 FILLER PIC X(28) VALUE NC1044.2
026000 " COPYRIGHT 1985 ". NC1044.2
026100 01 CCVS-E-1. NC1044.2
026200 02 FILLER PIC X(52) VALUE SPACE. NC1044.2
026300 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC1044.2
026400 02 ID-AGAIN PIC X(9). NC1044.2
026500 02 FILLER PIC X(45) VALUE SPACES. NC1044.2
026600 01 CCVS-E-2. NC1044.2
026700 02 FILLER PIC X(31) VALUE SPACE. NC1044.2
026800 02 FILLER PIC X(21) VALUE SPACE. NC1044.2
026900 02 CCVS-E-2-2. NC1044.2
027000 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC1044.2
027100 03 FILLER PIC X VALUE SPACE. NC1044.2
027200 03 ENDER-DESC PIC X(44) VALUE NC1044.2
027300 "ERRORS ENCOUNTERED". NC1044.2
027400 01 CCVS-E-3. NC1044.2
027500 02 FILLER PIC X(22) VALUE NC1044.2
027600 " FOR OFFICIAL USE ONLY". NC1044.2
027700 02 FILLER PIC X(12) VALUE SPACE. NC1044.2
027800 02 FILLER PIC X(58) VALUE NC1044.2
027900 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1044.2
028000 02 FILLER PIC X(13) VALUE SPACE. NC1044.2
028100 02 FILLER PIC X(15) VALUE NC1044.2
028200 " COPYRIGHT 1985". NC1044.2
028300 01 CCVS-E-4. NC1044.2
028400 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC1044.2
028500 02 FILLER PIC X(4) VALUE " OF ". NC1044.2
028600 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC1044.2
028700 02 FILLER PIC X(40) VALUE NC1044.2
028800 " TESTS WERE EXECUTED SUCCESSFULLY". NC1044.2
028900 01 XXINFO. NC1044.2
029000 02 FILLER PIC X(19) VALUE NC1044.2
029100 "*** INFORMATION ***". NC1044.2
029200 02 INFO-TEXT. NC1044.2
029300 04 FILLER PIC X(8) VALUE SPACE. NC1044.2
029400 04 XXCOMPUTED PIC X(20). NC1044.2
029500 04 FILLER PIC X(5) VALUE SPACE. NC1044.2
029600 04 XXCORRECT PIC X(20). NC1044.2
029700 02 INF-ANSI-REFERENCE PIC X(48). NC1044.2
029800 01 HYPHEN-LINE. NC1044.2
029900 02 FILLER PIC IS X VALUE IS SPACE. NC1044.2
030000 02 FILLER PIC IS X(65) VALUE IS "************************NC1044.2
030100- "*****************************************". NC1044.2
030200 02 FILLER PIC IS X(54) VALUE IS "************************NC1044.2
030300- "******************************". NC1044.2
030400 01 CCVS-PGM-ID PIC X(9) VALUE NC1044.2
030500 "NC104A". NC1044.2
030600 PROCEDURE DIVISION. NC1044.2
030700 CCVS1 SECTION. NC1044.2
030800 OPEN-FILES. NC1044.2
030900 OPEN OUTPUT PRINT-FILE. NC1044.2
031000 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC1044.2
031100 MOVE SPACE TO TEST-RESULTS. NC1044.2
031200 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC1044.2
031300 GO TO CCVS1-EXIT. NC1044.2
031400 CLOSE-FILES. NC1044.2
031500 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC1044.2
031600 TERMINATE-CCVS. NC1044.2
031700 EXIT PROGRAM. NC1044.2
031800 TERMINATE-CALL. NC1044.2
031900 STOP RUN. NC1044.2
032000 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC1044.2
032100 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC1044.2
032200 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC1044.2
032300 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC1044.2
032400 MOVE "****TEST DELETED****" TO RE-MARK. NC1044.2
032500 PRINT-DETAIL. NC1044.2
032600 IF REC-CT NOT EQUAL TO ZERO NC1044.2
032700 MOVE "." TO PARDOT-X NC1044.2
032800 MOVE REC-CT TO DOTVALUE. NC1044.2
032900 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC1044.2
033000 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC1044.2
033100 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC1044.2
033200 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC1044.2
033300 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC1044.2
033400 MOVE SPACE TO CORRECT-X. NC1044.2
033500 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC1044.2
033600 MOVE SPACE TO RE-MARK. NC1044.2
033700 HEAD-ROUTINE. NC1044.2
033800 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1044.2
033900 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1044.2
034000 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1044.2
034100 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1044.2
034200 COLUMN-NAMES-ROUTINE. NC1044.2
034300 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1044.2
034400 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1044.2
034500 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1044.2
034600 END-ROUTINE. NC1044.2
034700 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC1044.2
034800 END-RTN-EXIT. NC1044.2
034900 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1044.2
035000 END-ROUTINE-1. NC1044.2
035100 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC1044.2
035200 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC1044.2
035300 ADD PASS-COUNTER TO ERROR-HOLD. NC1044.2
035400* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC1044.2
035500 MOVE PASS-COUNTER TO CCVS-E-4-1. NC1044.2
035600 MOVE ERROR-HOLD TO CCVS-E-4-2. NC1044.2
035700 MOVE CCVS-E-4 TO CCVS-E-2-2. NC1044.2
035800 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC1044.2
035900 END-ROUTINE-12. NC1044.2
036000 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC1044.2
036100 IF ERROR-COUNTER IS EQUAL TO ZERO NC1044.2
036200 MOVE "NO " TO ERROR-TOTAL NC1044.2
036300 ELSE NC1044.2
036400 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC1044.2
036500 MOVE CCVS-E-2 TO DUMMY-RECORD. NC1044.2
036600 PERFORM WRITE-LINE. NC1044.2
036700 END-ROUTINE-13. NC1044.2
036800 IF DELETE-COUNTER IS EQUAL TO ZERO NC1044.2
036900 MOVE "NO " TO ERROR-TOTAL ELSE NC1044.2
037000 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC1044.2
037100 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC1044.2
037200 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1044.2
037300 IF INSPECT-COUNTER EQUAL TO ZERO NC1044.2
037400 MOVE "NO " TO ERROR-TOTAL NC1044.2
037500 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC1044.2
037600 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC1044.2
037700 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1044.2
037800 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1044.2
037900 WRITE-LINE. NC1044.2
038000 ADD 1 TO RECORD-COUNT. NC1044.2
038100 IF RECORD-COUNT GREATER 42 NC1044.2
038200 MOVE DUMMY-RECORD TO DUMMY-HOLD NC1044.2
038300 MOVE SPACE TO DUMMY-RECORD NC1044.2
038400 WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC1044.2
038500 MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1044.2
038600 MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1044.2
038700 MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1044.2
038800 MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1044.2
038900 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC1044.2
039000 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN NC1044.2
039100 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC1044.2
039200 MOVE DUMMY-HOLD TO DUMMY-RECORD NC1044.2
039300 MOVE ZERO TO RECORD-COUNT. NC1044.2
039400 PERFORM WRT-LN. NC1044.2
039500 WRT-LN. NC1044.2
039600 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC1044.2
039700 MOVE SPACE TO DUMMY-RECORD. NC1044.2
039800 BLANK-LINE-PRINT. NC1044.2
039900 PERFORM WRT-LN. NC1044.2
040000 FAIL-ROUTINE. NC1044.2
040100 IF COMPUTED-X NOT EQUAL TO SPACE NC1044.2
040200 GO TO FAIL-ROUTINE-WRITE. NC1044.2
040300 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC1044.2
040400 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1044.2
040500 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC1044.2
040600 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1044.2
040700 MOVE SPACES TO INF-ANSI-REFERENCE. NC1044.2
040800 GO TO FAIL-ROUTINE-EX. NC1044.2
040900 FAIL-ROUTINE-WRITE. NC1044.2
041000 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC1044.2
041100 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC1044.2
041200 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC1044.2
041300 MOVE SPACES TO COR-ANSI-REFERENCE. NC1044.2
041400 FAIL-ROUTINE-EX. EXIT. NC1044.2
041500 BAIL-OUT. NC1044.2
041600 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC1044.2
041700 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC1044.2
041800 BAIL-OUT-WRITE. NC1044.2
041900 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC1044.2
042000 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1044.2
042100 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1044.2
042200 MOVE SPACES TO INF-ANSI-REFERENCE. NC1044.2
042300 BAIL-OUT-EX. EXIT. NC1044.2
042400 CCVS1-EXIT. NC1044.2
042500 EXIT. NC1044.2
042600 SECT-NC104A-001 SECTION. NC1044.2
042700 MOVE-INIT-F1-1. NC1044.2
042800 MOVE "MOVE NUMERIC INTEGER" TO FEATURE. NC1044.2
042900 MOVE "V1-102 6.18.2" TO ANSI-REFERENCE. NC1044.2
043000 MOVE 12345 TO MOVE1. NC1044.2
043100 MOVE-TEST-F1-1-0. NC1044.2
043200 MOVE MOVE1 TO MOVE2. NC1044.2
043300 MOVE-TEST-F1-1-1. NC1044.2
043400 IF MOVE2 EQUAL TO 12345 NC1044.2
043500 PERFORM PASS NC1044.2
043600 ELSE NC1044.2
043700 GO TO MOVE-FAIL-F1-1. NC1044.2
043800* NOTE NI TO NI (NUMERIC INTEGRAL) MOVE, EQUAL SIZE. NC1044.2
043900 GO TO MOVE-WRITE-F1-1. NC1044.2
044000 MOVE-DELETE-F1-1. NC1044.2
044100 PERFORM DE-LETE. NC1044.2
044200 GO TO MOVE-WRITE-F1-1. NC1044.2
044300 MOVE-FAIL-F1-1. NC1044.2
044400 MOVE MOVE2 TO COMPUTED-N. NC1044.2
044500 MOVE 12345 TO CORRECT-N. NC1044.2
044600 PERFORM FAIL. NC1044.2
044700 MOVE-WRITE-F1-1. NC1044.2
044800 MOVE "MOVE-TEST-F1-1 " TO PAR-NAME. NC1044.2
044900 PERFORM PRINT-DETAIL. NC1044.2
045000 MOVE-INIT-F1-2. NC1044.2
045100 MOVE 12345 TO MOVE1. NC1044.2
045200 MOVE-TEST-F1-2-0. NC1044.2
045300 MOVE MOVE1 TO MOVE3. NC1044.2
045400 MOVE-TEST-F1-2-1. NC1044.2
045500 IF MOVE3 EQUAL TO 45 NC1044.2
045600 PERFORM PASS NC1044.2
045700 ELSE NC1044.2
045800 GO TO MOVE-FAIL-F1-2. NC1044.2
045900* NOTE NI TO NI MOVE, WITH TRUNCATION. NC1044.2
046000 GO TO MOVE-WRITE-F1-2. NC1044.2
046100 MOVE-DELETE-F1-2. NC1044.2
046200 PERFORM DE-LETE. NC1044.2
046300 GO TO MOVE-WRITE-F1-2. NC1044.2
046400 MOVE-FAIL-F1-2. NC1044.2
046500 MOVE MOVE3 TO COMPUTED-N. NC1044.2
046600 MOVE 45 TO CORRECT-N. NC1044.2
046700 PERFORM FAIL. NC1044.2
046800 MOVE-WRITE-F1-2. NC1044.2
046900 MOVE "MOVE-TEST-F1-2 " TO PAR-NAME. NC1044.2
047000 PERFORM PRINT-DETAIL. NC1044.2
047100 MOVE-INIT-F1-3. NC1044.2
047200 MOVE 12345 TO MOVE1. NC1044.2
047300 MOVE-TEST-F1-3-0. NC1044.2
047400 MOVE MOVE1 TO MOVE4. NC1044.2
047500 MOVE-TEST-F1-3-1. NC1044.2
047600 IF MOVE4 EQUAL TO 0012345 NC1044.2
047700 PERFORM PASS NC1044.2
047800 ELSE NC1044.2
047900 GO TO MOVE-FAIL-F1-3. NC1044.2
048000* NOTE NI TO NI MOVE, WITH ZERO PADDING. NC1044.2
048100 GO TO MOVE-WRITE-F1-3. NC1044.2
048200 MOVE-DELETE-F1-3. NC1044.2
048300 PERFORM DE-LETE. NC1044.2
048400 GO TO MOVE-WRITE-F1-3. NC1044.2
048500 MOVE-FAIL-F1-3. NC1044.2
048600 MOVE MOVE4 TO COMPUTED-N. NC1044.2
048700 MOVE 0012345 TO CORRECT-N. NC1044.2
048800 PERFORM FAIL. NC1044.2
048900 MOVE-WRITE-F1-3. NC1044.2
049000 MOVE "MOVE-TEST-F1-3 " TO PAR-NAME. NC1044.2
049100 PERFORM PRINT-DETAIL. NC1044.2
049200 MOVE-INIT-F1-4. NC1044.2
049300 MOVE 12345 TO MOVE1. NC1044.2
049400 MOVE-TEST-F1-4-0. NC1044.2
049500 MOVE MOVE1 TO MOVE5. NC1044.2
049600 MOVE-TEST-F1-4-1. NC1044.2
049700 IF MOVE5 EQUAL TO 45 NC1044.2
049800 PERFORM PASS NC1044.2
049900 ELSE NC1044.2
050000 GO TO MOVE-FAIL-F1-4. NC1044.2
050100* NOTE NI TO NNI (NUMERIC NON INTEGER), LEFT TRUNCATION NC1044.2
050200* ZERO FILL ON RIGHT. NC1044.2
050300 GO TO MOVE-WRITE-F1-4. NC1044.2
050400 MOVE-DELETE-F1-4. NC1044.2
050500 PERFORM DE-LETE. NC1044.2
050600 GO TO MOVE-WRITE-F1-4. NC1044.2
050700 MOVE-FAIL-F1-4. NC1044.2
050800 MOVE MOVE5 TO COMPUTED-N. NC1044.2
050900 MOVE 45 TO CORRECT-N. NC1044.2
051000 PERFORM FAIL. NC1044.2
051100 MOVE-WRITE-F1-4. NC1044.2
051200 MOVE "MOVE-TEST-F1-4 " TO PAR-NAME. NC1044.2
051300 PERFORM PRINT-DETAIL. NC1044.2
051400 MOVE-INIT-F1-5. NC1044.2
051500 MOVE 12345 TO MOVE1. NC1044.2
051600 MOVE-TEST-F1-5-0. NC1044.2
051700 MOVE MOVE1 TO MOVE48. NC1044.2
051800 MOVE-TEST-F1-5-1. NC1044.2
051900 IF MOVE48 EQUAL TO 5 NC1044.2
052000 PERFORM PASS NC1044.2
052100 ELSE NC1044.2
052200 GO TO MOVE-FAIL-F1-5. NC1044.2
052300* NOTE NI TO NNI MOVE, RECEIVING FIELD MAX SIZE. NC1044.2
052400 GO TO MOVE-WRITE-F1-5. NC1044.2
052500 MOVE-DELETE-F1-5. NC1044.2
052600 PERFORM DE-LETE. NC1044.2
052700 GO TO MOVE-WRITE-F1-5. NC1044.2
052800 MOVE-FAIL-F1-5. NC1044.2
052900 MOVE MOVE48 TO COMPUTED-N. NC1044.2
053000 MOVE 5 TO CORRECT-N. NC1044.2
053100 PERFORM FAIL. NC1044.2
053200 MOVE-WRITE-F1-5. NC1044.2
053300 MOVE "MOVE-TEST-F1-5 " TO PAR-NAME. NC1044.2
053400 PERFORM PRINT-DETAIL. NC1044.2
053500 MOVE-INIT-F1-6. NC1044.2
053600 MOVE 12345 TO MOVE1. NC1044.2
053700 MOVE-TEST-F1-6-0. NC1044.2
053800 MOVE MOVE1 TO MOVE27. NC1044.2
053900 MOVE-TEST-F1-6-1. NC1044.2
054000 IF MOVE27 EQUAL TO 2300 NC1044.2
054100 PERFORM PASS NC1044.2
054200 ELSE NC1044.2
054300 GO TO MOVE-FAIL-F1-6. NC1044.2
054400* NOTE NI TO NNI MOVE SCALING. NC1044.2
054500 GO TO MOVE-WRITE-F1-6. NC1044.2
054600 MOVE-DELETE-F1-6. NC1044.2
054700 PERFORM DE-LETE. NC1044.2
054800 GO TO MOVE-WRITE-F1-6. NC1044.2
054900 MOVE-FAIL-F1-6. NC1044.2
055000 MOVE MOVE27 TO COMPUTED-N. NC1044.2
055100 MOVE 2300 TO CORRECT-N. NC1044.2
055200 PERFORM FAIL. NC1044.2
055300 MOVE-WRITE-F1-6. NC1044.2
055400 MOVE "MOVE-TEST-F1-6 " TO PAR-NAME. NC1044.2
055500 PERFORM PRINT-DETAIL. NC1044.2
055600 MOVE-INIT-F1-7. NC1044.2
055700 MOVE 12345 TO MOVE1. NC1044.2
055800 MOVE-TEST-F1-7-0. NC1044.2
055900 MOVE MOVE1 TO MOVE8. NC1044.2
056000 MOVE-TEST-F1-7-1. NC1044.2
056100 IF MOVE1 EQUAL TO 12345.00 NC1044.2
056200 PERFORM PASS NC1044.2
056300 ELSE NC1044.2
056400 GO TO MOVE-FAIL-F1-7. NC1044.2
056500* NOTE NI TO NNI MOVE, ZERO PADDING ON RIGHT. NC1044.2
056600 GO TO MOVE-WRITE-F1-7. NC1044.2
056700 MOVE-DELETE-F1-7. NC1044.2
056800 PERFORM DE-LETE. NC1044.2
056900 GO TO MOVE-WRITE-F1-7. NC1044.2
057000 MOVE-FAIL-F1-7. NC1044.2
057100 MOVE MOVE8 TO COMPUTED-N. NC1044.2
057200 MOVE 12345.00 TO CORRECT-N. NC1044.2
057300 PERFORM FAIL. NC1044.2
057400 MOVE-WRITE-F1-7. NC1044.2
057500 MOVE "MOVE-TEST-F1-7 " TO PAR-NAME. NC1044.2
057600 PERFORM PRINT-DETAIL. NC1044.2
057700 MOVE-INIT-F1-8. NC1044.2
057800 MOVE 12345 TO MOVE1. NC1044.2
057900 MOVE-TEST-F1-8-0. NC1044.2
058000 MOVE MOVE1 TO MOVE9. NC1044.2
058100 MOVE-TEST-F1-8-1. NC1044.2
058200 IF MOVE9 EQUAL TO 012345.00 NC1044.2
058300 PERFORM PASS NC1044.2
058400 ELSE NC1044.2
058500 GO TO MOVE-FAIL-F1-8. NC1044.2
058600* NOTE NI TO NNI MOVE, ZERO PADDING LEFT AND RIGHT. NC1044.2
058700 GO TO MOVE-WRITE-F1-8. NC1044.2
058800 MOVE-DELETE-F1-8. NC1044.2
058900 PERFORM DE-LETE. NC1044.2
059000 GO TO MOVE-WRITE-F1-8. NC1044.2
059100 MOVE-FAIL-F1-8. NC1044.2
059200 MOVE MOVE9 TO COMPUTED-N. NC1044.2
059300 MOVE 0012345.00 TO CORRECT-N. NC1044.2
059400 PERFORM FAIL. NC1044.2
059500 MOVE-WRITE-F1-8. NC1044.2
059600 MOVE "MOVE-TEST-F1-8 " TO PAR-NAME. NC1044.2
059700 PERFORM PRINT-DETAIL. NC1044.2
059800 MOVE-INIT-F1-9. NC1044.2
059900 MOVE 12345 TO MOVE1. NC1044.2
060000 MOVE-TEST-F1-9-0. NC1044.2
060100 MOVE MOVE1 TO MOVE10. NC1044.2
060200 MOVE-TEST-F1-9-1. NC1044.2
060300 IF MOVE10 EQUAL TO "$345.00" NC1044.2
060400 PERFORM PASS NC1044.2
060500 ELSE NC1044.2
060600 GO TO MOVE-FAIL-F1-9. NC1044.2
060700* NOTE NI TO NE MOVE, FIXED INSERTION, CURRENCY SIGN, PERIOD. NC1044.2
060800 GO TO MOVE-WRITE-F1-9. NC1044.2
060900 MOVE-DELETE-F1-9. NC1044.2
061000 PERFORM DE-LETE. NC1044.2
061100 GO TO MOVE-WRITE-F1-9. NC1044.2
061200 MOVE-FAIL-F1-9. NC1044.2
061300 MOVE MOVE10 TO COMPUTED-A. NC1044.2
061400 MOVE "$345.00" TO CORRECT-A. NC1044.2
061500 PERFORM FAIL. NC1044.2
061600 MOVE-WRITE-F1-9. NC1044.2
061700 MOVE "MOVE-TEST-F1-9 " TO PAR-NAME. NC1044.2
061800 PERFORM PRINT-DETAIL. NC1044.2
061900 MOVE-INIT-F1-10. NC1044.2
062000 MOVE 12345 TO MOVE1. NC1044.2
062100 MOVE-TEST-F1-10-0. NC1044.2
062200 MOVE MOVE1 TO MOVE11. NC1044.2
062300 MOVE-TEST-F1-10-1. NC1044.2
062400 IF MOVE11 EQUAL TO "$12,345.00" NC1044.2
062500 PERFORM PASS NC1044.2
062600 ELSE NC1044.2
062700 GO TO MOVE-FAIL-F1-10. NC1044.2
062800* NOTE NI TO NE MOVE, FIXED INSERTION (CURRENCY SIGN, NC1044.2
062900* COMMA, PERIOD) ZERO FILL ON RIGHT. NC1044.2
063000 GO TO MOVE-WRITE-F1-10. NC1044.2
063100 MOVE-DELETE-F1-10. NC1044.2
063200 PERFORM DE-LETE. NC1044.2
063300 GO TO MOVE-WRITE-F1-10. NC1044.2
063400 MOVE-FAIL-F1-10. NC1044.2
063500 MOVE MOVE11 TO COMPUTED-A. NC1044.2
063600 MOVE "$12,345.00" TO CORRECT-A. NC1044.2
063700 PERFORM FAIL. NC1044.2
063800 MOVE-WRITE-F1-10. NC1044.2
063900 MOVE "MOVE-TEST-F1-10" TO PAR-NAME. NC1044.2
064000 PERFORM PRINT-DETAIL. NC1044.2
064100 MOVE-INIT-F1-11. NC1044.2
064200 MOVE 00045 TO MOVE49. NC1044.2
064300 MOVE-TEST-F1-11-0. NC1044.2
064400 MOVE MOVE49 TO MOVE12. NC1044.2
064500 MOVE-TEST-F1-11-1. NC1044.2
064600 IF MOVE12 EQUAL TO " $045" NC1044.2
064700 PERFORM PASS NC1044.2
064800 ELSE NC1044.2
064900 GO TO MOVE-FAIL-F1-11. NC1044.2
065000* NOTE NI TO NE MOVE, FLOAT CURRENCY SIGN. NC1044.2
065100 GO TO MOVE-WRITE-F1-11. NC1044.2
065200 MOVE-DELETE-F1-11. NC1044.2
065300 PERFORM DE-LETE. NC1044.2
065400 GO TO MOVE-WRITE-F1-11. NC1044.2
065500 MOVE-FAIL-F1-11. NC1044.2
065600 MOVE MOVE12 TO COMPUTED-A. NC1044.2
065700 MOVE " $045" TO CORRECT-A. NC1044.2
065800 PERFORM FAIL. NC1044.2
065900 MOVE-WRITE-F1-11. NC1044.2
066000 MOVE "MOVE-TEST-F1-11" TO PAR-NAME. NC1044.2
066100 PERFORM PRINT-DETAIL. NC1044.2
066200 MOVE-INIT-F1-12. NC1044.2
066300 MOVE 00045 TO MOVE49. NC1044.2
066400 MOVE-TEST-F1-12-0. NC1044.2
066500 MOVE MOVE49 TO MOVE13. NC1044.2
066600 MOVE-TEST-F1-12-1. NC1044.2
066700 IF MOVE13 EQUAL TO "*****000045" NC1044.2
066800 PERFORM PASS NC1044.2
066900 ELSE NC1044.2
067000 GO TO MOVE-FAIL-F1-12. NC1044.2
067100* NOTE NI TO NE MOVE, CHECK PROTECT. NC1044.2
067200 GO TO MOVE-WRITE-F1-12. NC1044.2
067300 MOVE-DELETE-F1-12. NC1044.2
067400 PERFORM DE-LETE. NC1044.2
067500 GO TO MOVE-WRITE-F1-12. NC1044.2
067600 MOVE-FAIL-F1-12. NC1044.2
067700 MOVE MOVE13 TO COMPUTED-A. NC1044.2
067800 MOVE "*****000045" TO CORRECT-A. NC1044.2
067900 PERFORM FAIL. NC1044.2
068000 MOVE-WRITE-F1-12. NC1044.2
068100 MOVE "MOVE-TEST-F1-12" TO PAR-NAME. NC1044.2
068200 PERFORM PRINT-DETAIL. NC1044.2
068300 MOVE-INIT-F1-13. NC1044.2
068400 MOVE 12345 TO MOVE1. NC1044.2
068500 MOVE-TEST-F1-13-0. NC1044.2
068600 MOVE MOVE1 TO MOVE14. NC1044.2
068700 MOVE-TEST-F1-13-1. NC1044.2
068800 IF MOVE14 EQUAL TO "+12345" NC1044.2
068900 PERFORM PASS NC1044.2
069000 ELSE NC1044.2
069100 GO TO MOVE-FAIL-F1-13. NC1044.2
069200* NOTE NI TO NE MOVE, REPORT SIGN. NC1044.2
069300 GO TO MOVE-WRITE-F1-13. NC1044.2
069400 MOVE-DELETE-F1-13. NC1044.2
069500 PERFORM DE-LETE. NC1044.2
069600 GO TO MOVE-WRITE-F1-13. NC1044.2
069700 MOVE-FAIL-F1-13. NC1044.2
069800 MOVE MOVE14 TO COMPUTED-A. NC1044.2
069900 MOVE "+12345" TO CORRECT-A. NC1044.2
070000 PERFORM FAIL. NC1044.2
070100 MOVE-WRITE-F1-13. NC1044.2
070200 MOVE "MOVE-TEST-F1-13" TO PAR-NAME. NC1044.2
070300 PERFORM PRINT-DETAIL. NC1044.2
070400 MOVE-INIT-F1-14. NC1044.2
070500 MOVE -12345 TO MOVE51. NC1044.2
070600 MOVE-TEST-F1-14-0. NC1044.2
070700 MOVE MOVE51 TO MOVE16. NC1044.2
070800 MOVE-TEST-F1-14-1. NC1044.2
070900 IF MOVE16 EQUAL TO "12345CR" NC1044.2
071000 PERFORM PASS NC1044.2
071100 ELSE NC1044.2
071200 GO TO MOVE-FAIL-F1-14. NC1044.2
071300* NOTE NI TO NE MOVE, REPORT SYMBOL CR. NC1044.2
071400 GO TO MOVE-WRITE-F1-14. NC1044.2
071500 MOVE-DELETE-F1-14. NC1044.2
071600 PERFORM DE-LETE. NC1044.2
071700 GO TO MOVE-WRITE-F1-14. NC1044.2
071800 MOVE-FAIL-F1-14. NC1044.2
071900 MOVE MOVE16 TO COMPUTED-A. NC1044.2
072000 MOVE "12345CR" TO CORRECT-A. NC1044.2
072100 PERFORM FAIL. NC1044.2
072200 MOVE-WRITE-F1-14. NC1044.2
072300 MOVE "MOVE-TEST-F1-14" TO PAR-NAME. NC1044.2
072400 PERFORM PRINT-DETAIL. NC1044.2
072500 MOVE-INIT-F1-15. NC1044.2
072600 MOVE -12345 TO MOVE51. NC1044.2
072700 MOVE-TEST-F1-15-0. NC1044.2
072800 MOVE MOVE51 TO MOVE52. NC1044.2
072900 MOVE-TEST-F1-15-1. NC1044.2
073000 IF MOVE52 EQUAL TO "12345-" NC1044.2
073100 PERFORM PASS NC1044.2
073200 ELSE NC1044.2
073300 GO TO MOVE-FAIL-F1-15. NC1044.2
073400* NOTE NI TO NE MOVE REPORT SIGN. NC1044.2
073500 GO TO MOVE-WRITE-F1-15. NC1044.2
073600 MOVE-DELETE-F1-15. NC1044.2
073700 PERFORM DE-LETE. NC1044.2
073800 GO TO MOVE-WRITE-F1-15. NC1044.2
073900 MOVE-FAIL-F1-15. NC1044.2
074000 MOVE MOVE52 TO COMPUTED-A. NC1044.2
074100 MOVE "12345-" TO CORRECT-A. NC1044.2
074200 PERFORM FAIL. NC1044.2
074300 MOVE-WRITE-F1-15. NC1044.2
074400 MOVE "MOVE-TEST-F1-15" TO PAR-NAME. NC1044.2
074500 PERFORM PRINT-DETAIL. NC1044.2
074600 MOVE-INIT-F1-16. NC1044.2
074700 MOVE 00000 TO MOVE15. NC1044.2
074800 MOVE-TEST-F1-16-0. NC1044.2
074900 MOVE MOVE15 TO MOVE17. NC1044.2
075000 MOVE-TEST-F1-16-1. NC1044.2
075100 IF MOVE17 EQUAL TO SPACE NC1044.2
075200 PERFORM PASS NC1044.2
075300 ELSE NC1044.2
075400 GO TO MOVE-FAIL-F1-16. NC1044.2
075500* NOTE NI TO NE MOVE, BLANK WHEN ZERO CLAUSE. NC1044.2
075600 GO TO MOVE-WRITE-F1-16. NC1044.2
075700 MOVE-DELETE-F1-16. NC1044.2
075800 PERFORM DE-LETE. NC1044.2
075900 GO TO MOVE-WRITE-F1-16. NC1044.2
076000 MOVE-FAIL-F1-16. NC1044.2
076100 MOVE MOVE17 TO COMPUTED-A. NC1044.2
076200 MOVE SPACE TO CORRECT-A. NC1044.2
076300 PERFORM FAIL. NC1044.2
076400 MOVE-WRITE-F1-16. NC1044.2
076500 MOVE "MOVE-TEST-F1-16" TO PAR-NAME. NC1044.2
076600 PERFORM PRINT-DETAIL. NC1044.2
076700 MOVE-INIT-F1-17. NC1044.2
076800 MOVE 00000 TO MOVE15. NC1044.2
076900 MOVE-TEST-F1-17-0. NC1044.2
077000 MOVE MOVE15 TO MOVE18. NC1044.2
077100 MOVE-TEST-F1-17-1. NC1044.2
077200 IF MOVE18 EQUAL TO SPACE NC1044.2
077300 PERFORM PASS NC1044.2
077400 ELSE NC1044.2
077500 GO TO MOVE-FAIL-F1-17. NC1044.2
077600* NOTE NI TO NE MOVE, BLANK WHEN ZERO PICTURE. NC1044.2
077700 GO TO MOVE-WRITE-F1-17. NC1044.2
077800 MOVE-DELETE-F1-17. NC1044.2
077900 PERFORM DE-LETE. NC1044.2
078000 GO TO MOVE-WRITE-F1-17. NC1044.2
078100 MOVE-FAIL-F1-17. NC1044.2
078200 MOVE MOVE18 TO COMPUTED-A. NC1044.2
078300 MOVE SPACE TO CORRECT-A. NC1044.2
078400 PERFORM FAIL. NC1044.2
078500 MOVE-WRITE-F1-17. NC1044.2
078600 MOVE "MOVE-TEST-F1-17" TO PAR-NAME. NC1044.2
078700 PERFORM PRINT-DETAIL. NC1044.2
078800 MOVE-INIT-F1-18. NC1044.2
078900 MOVE 12345 TO MOVE1. NC1044.2
079000 MOVE-TEST-F1-18-0. NC1044.2
079100 MOVE MOVE1 TO MOVE19. NC1044.2
079200 MOVE-TEST-F1-18-1. NC1044.2
079300 IF MOVE19 EQUAL TO 12345 NC1044.2
079400 PERFORM PASS NC1044.2
079500 ELSE NC1044.2
079600 GO TO MOVE-FAIL-F1-18. NC1044.2
079700* NOTE NI TO AN MOVE, EQUAL SIZE. NC1044.2
079800 GO TO MOVE-WRITE-F1-18. NC1044.2
079900 MOVE-DELETE-F1-18. NC1044.2
080000 PERFORM DE-LETE. NC1044.2
080100 GO TO MOVE-WRITE-F1-18. NC1044.2
080200 MOVE-FAIL-F1-18. NC1044.2
080300 MOVE MOVE19 TO COMPUTED-N. NC1044.2
080400 MOVE 12345 TO CORRECT-N. NC1044.2
080500 PERFORM FAIL. NC1044.2
080600 MOVE-WRITE-F1-18. NC1044.2
080700 MOVE "MOVE-TEST-F1-18" TO PAR-NAME. NC1044.2
080800 PERFORM PRINT-DETAIL. NC1044.2
080900 MOVE-INIT-F1-19. NC1044.2
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.65 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
