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