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 9 B(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 )0 X(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 9 A9 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 99 V999. NC1054.2 016500 01 MOVE6 PICTURE IS V99999. NC1054.2 016600 01 MOVE7 PICTURE IS 9 V99. 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 999 V99 NC1054.2 017100 VALUE IS 123 .45 . NC1054.2 017200 01 MOVE29 PICTURE IS 9999 V999. 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 9999 V9. 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 9 V9(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 )0 X. 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 999 V99 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 081000 MOVE-FAIL-F1-16. NC1054.2 081100 MOVE MOVE3 TO COMPUTED-N. NC1054.2 081200 MOVE 12 TO CORRECT-N. NC1054.2 081300 PERFORM FAIL. NC1054.2 081400 MOVE-WRITE-F1-16. NC1054.2 081500 MOVE "MOVE-TEST-F1-16" TO PAR-NAME. NC1054.2 081600 PERFORM PRINT-DETAIL. NC1054.2 081700 MOVE-INIT-F1-17. NC1054.2 081800 MOVE "123ABC" TO MOVE43. NC1054.2 081900 MOVE-TEST-F1-17-0. NC1054.2 082000 MOVE MOVE43 TO MOVE29. NC1054.2 082100 MOVE-TEST-F1-17-1. NC1054.2 082200 IF MOVE29X EQUAL TO "123ABC " NC1054.2 082300 PERFORM PASS NC1054.2 082400 ELSE NC1054.2 082500 GO TO MOVE-FAIL-F1-17. NC1054.2 082600* NOTE GROUP TO NNI MOVE. NC1054.2 082700 GO TO MOVE-WRITE-F1-17. NC1054.2 082800 MOVE-DELETE-F1-17. NC1054.2 082900 PERFORM DE-LETE. NC1054.2 083000 GO TO MOVE-WRITE-F1-17. NC1054.2 083100 MOVE-FAIL-F1-17. NC1054.2 083200 MOVE MOVE29X TO COMPUTED-A. NC1054.2 083300 MOVE "123ABC" TO CORRECT-A. NC1054.2 083400 PERFORM FAIL. NC1054.2 083500 MOVE-WRITE-F1-17. NC1054.2 083600 MOVE "MOVE-TEST-F1-17" TO PAR-NAME. NC1054.2 083700 PERFORM PRINT-DETAIL. NC1054.2 083800 MOVE-INIT-F1-18. NC1054.2 083900 MOVE "123ABC" TO MOVE43. NC1054.2 084000 MOVE-TEST-F1-18-0. NC1054.2 084100 MOVE MOVE43 TO MOVE21. NC1054.2 084200 MOVE-TEST-F1-18-1. NC1054.2 084300 IF MOVE21 EQUAL TO "123ABC " NC1054.2 084400 PERFORM PASS NC1054.2 084500 ELSE NC1054.2 084600 GO TO MOVE-FAIL-F1-18. NC1054.2 084700* NOTE GROUP TO AN MOVE SPACE PADDING ON RIGHT. NC1054.2 084800 GO TO MOVE-WRITE-F1-18. NC1054.2 084900 MOVE-DELETE-F1-18. NC1054.2 085000 PERFORM DE-LETE. NC1054.2 085100 GO TO MOVE-WRITE-F1-18. NC1054.2 085200 MOVE-FAIL-F1-18. NC1054.2 085300 MOVE MOVE21 TO COMPUTED-A. NC1054.2 085400 MOVE "123ABC" TO CORRECT-A. NC1054.2 085500 PERFORM FAIL. NC1054.2 085600 MOVE-WRITE-F1-18. NC1054.2 085700 MOVE "MOVE-TEST-F1-18" TO PAR-NAME. NC1054.2 085800 PERFORM PRINT-DETAIL. NC1054.2 085900 MOVE-INIT-F1-19. NC1054.2 086000 MOVE "123ABC" TO MOVE43. NC1054.2 086100 MOVE-TEST-F1-19-0. NC1054.2 086200 MOVE MOVE43 TO MOVE20. NC1054.2 086300 MOVE-TEST-F1-19-1. NC1054.2 086400 IF MOVE20 EQUAL TO "123A" NC1054.2 086500 PERFORM PASS NC1054.2 086600 ELSE NC1054.2 086700 GO TO MOVE-FAIL-F1-19. NC1054.2 086800* NOTE GROUP TO AN MOVE. NC1054.2 086900 GO TO MOVE-WRITE-F1-19. NC1054.2 087000 MOVE-DELETE-F1-19. NC1054.2 087100 PERFORM DE-LETE. NC1054.2 087200 GO TO MOVE-WRITE-F1-19. NC1054.2 087300 MOVE-FAIL-F1-19. NC1054.2 087400 MOVE MOVE20 TO COMPUTED-A. NC1054.2 087500 MOVE "123A" TO CORRECT-A. NC1054.2 087600 PERFORM FAIL. NC1054.2 087700 MOVE-WRITE-F1-19. NC1054.2 087800 MOVE "MOVE-TEST-F1-19" TO PAR-NAME. NC1054.2 087900 PERFORM PRINT-DETAIL. NC1054.2 088000 MOVE-INIT-F1-20. NC1054.2 088100 MOVE "123ABC" TO MOVE43. NC1054.2 088200 MOVE-TEST-F1-20-0. NC1054.2 088300 MOVE MOVE43 TO MOVE39. NC1054.2 088400 MOVE-TEST-F1-20-1. NC1054.2 088500 IF MOVE39 NOT EQUAL TO "123ABC " NC1054.2 088600 GO TO MOVE-FAIL-F1-20. NC1054.2 088700* NOTE GROUP TO AE MOVE. NC1054.2 088800 PERFORM PASS. NC1054.2 088900 GO TO MOVE-WRITE-F1-20. NC1054.2 089000 MOVE-DELETE-F1-20. NC1054.2 089100 PERFORM DE-LETE. NC1054.2 089200 GO TO MOVE-WRITE-F1-20. NC1054.2 089300 MOVE-FAIL-F1-20. NC1054.2 089400 MOVE MOVE39 TO COMPUTED-A. NC1054.2 089500 MOVE "123ABC" TO CORRECT-A. NC1054.2 089600 PERFORM FAIL. NC1054.2 089700 MOVE-WRITE-F1-20. NC1054.2 089800 MOVE "MOVE-TEST-F1-20" TO PAR-NAME. NC1054.2 089900 PERFORM PRINT-DETAIL. NC1054.2 090000 MOVE-INIT-F1-21. NC1054.2 090100 MOVE "123ABC" TO MOVE43. NC1054.2 090200 MOVE-TEST-F1-21-0. NC1054.2 090300 MOVE MOVE43 TO MOVE35. NC1054.2 090400 MOVE-TEST-F1-21-1. NC1054.2 090500 IF MOVE35 EQUAL TO "123" NC1054.2 090600 PERFORM PASS NC1054.2 090700 ELSE NC1054.2 090800 GO TO MOVE-FAIL-F1-21. NC1054.2 090900* NOTE GROUP TO A MOVE. NC1054.2 091000 GO TO MOVE-WRITE-F1-21. NC1054.2 091100 MOVE-DELETE-F1-21. NC1054.2 091200 PERFORM DE-LETE. NC1054.2 091300 GO TO MOVE-WRITE-F1-21. NC1054.2 091400 MOVE-FAIL-F1-21. NC1054.2 091500 MOVE MOVE35 TO COMPUTED-A. NC1054.2 091600 MOVE "123" TO CORRECT-A. NC1054.2 091700 PERFORM FAIL. NC1054.2 091800 MOVE-WRITE-F1-21. NC1054.2 091900 MOVE "MOVE-TEST-F1-21" TO PAR-NAME. NC1054.2 092000 PERFORM PRINT-DETAIL. NC1054.2 092100 MOVE-INIT-F1-22. NC1054.2 092200 MOVE "EDITED MOVE " TO FEATURE. NC1054.2 092300 MOVE "12345" TO MOVE1. NC1054.2 092400 MOVE-TEST-F1-22-0. NC1054.2 092500 MOVE MOVE1 TO MOVE16. NC1054.2 092600 MOVE-TEST-F1-22-1. NC1054.2 092700 IF MOVE16 EQUAL TO "12345 " NC1054.2 092800 PERFORM PASS NC1054.2 092900 ELSE NC1054.2 093000 GO TO MOVE-FAIL-F1-22. NC1054.2 093100* NOTE NI TO NE MOVE, REPORT SYMBOL CR. NC1054.2 093200 GO TO MOVE-WRITE-F1-22. NC1054.2 093300 MOVE-DELETE-F1-22. NC1054.2 093400 PERFORM DE-LETE. NC1054.2 093500 GO TO MOVE-WRITE-F1-22. NC1054.2 093600 MOVE-FAIL-F1-22. NC1054.2 093700 MOVE MOVE16 TO COMPUTED-A. NC1054.2 093800 MOVE "12345 " TO CORRECT-A. NC1054.2 093900 PERFORM FAIL. NC1054.2 094000 MOVE-WRITE-F1-22. NC1054.2 094100 MOVE "MOVE-TEST-F1-22" TO PAR-NAME. NC1054.2 094200 PERFORM PRINT-DETAIL. NC1054.2 094300 MOVE-INIT-F1-23. NC1054.2 094400 MOVE "12345" TO MOVE1. NC1054.2 094500 MOVE-TEST-F1-23-0. NC1054.2 094600 MOVE MOVE1 TO MOVE52. NC1054.2 094700 MOVE-TEST-F1-23-1. NC1054.2 094800 IF MOVE52 EQUAL TO "12345 " NC1054.2 094900 PERFORM PASS NC1054.2 095000 ELSE NC1054.2 095100 GO TO MOVE-FAIL-F1-23. NC1054.2 095200* NOTE NI TO NE MOVE, REPORT SIGN -. NC1054.2 095300 GO TO MOVE-WRITE-F1-23. NC1054.2 095400 MOVE-DELETE-F1-23. NC1054.2 095500 PERFORM DE-LETE. NC1054.2 095600 GO TO MOVE-WRITE-F1-23. NC1054.2 095700 MOVE-FAIL-F1-23. NC1054.2 095800 MOVE MOVE52 TO COMPUTED-A. NC1054.2 095900 MOVE "12345 " TO CORRECT-A. NC1054.2 096000 PERFORM FAIL. NC1054.2 096100 MOVE-WRITE-F1-23. NC1054.2 096200 MOVE "MOVE-TEST-F1-23" TO PAR-NAME. NC1054.2 096300 PERFORM PRINT-DETAIL. NC1054.2 096400 MOVE-INIT-F1-24. NC1054.2 096500 MOVE -12345 TO MOVE51. NC1054.2 096600 MOVE-TEST-F1-24-0. NC1054.2 096700 MOVE MOVE51 TO MOVE66. NC1054.2 096800 MOVE-TEST-F1-24-1. NC1054.2 096900 IF MOVE66 EQUAL TO "12345DB" NC1054.2 097000 PERFORM PASS NC1054.2 097100 ELSE NC1054.2 097200 GO TO MOVE-FAIL-F1-24. NC1054.2 097300* NOTE NI TO NE MOVE, REPORT SYMBOL DB. NC1054.2 097400 GO TO MOVE-WRITE-F1-24. NC1054.2 097500 MOVE-DELETE-F1-24. NC1054.2 097600 PERFORM DE-LETE. NC1054.2 097700 GO TO MOVE-WRITE-F1-24. NC1054.2 097800 MOVE-FAIL-F1-24. NC1054.2 097900 MOVE MOVE66 TO COMPUTED-A. NC1054.2 098000 MOVE "12345DB" TO CORRECT-A. NC1054.2 098100 PERFORM FAIL. NC1054.2 098200 MOVE-WRITE-F1-24. NC1054.2 098300 MOVE "MOVE-TEST-F1-24" TO PAR-NAME. NC1054.2 098400 PERFORM PRINT-DETAIL. NC1054.2 098500 MOVE-INIT-F1-25. NC1054.2 098600 MOVE 12345 TO MOVE1. NC1054.2 098700 MOVE-TEST-F1-25-0. NC1054.2 098800 MOVE MOVE1 TO MOVE66. NC1054.2 098900 MOVE-TEST-F1-25-1. NC1054.2 099000 IF MOVE66 EQUAL TO "12345 " NC1054.2 099100 PERFORM PASS NC1054.2 099200 ELSE NC1054.2 099300 GO TO MOVE-FAIL-F1-25. NC1054.2 099400* NOTE NI TO NE MOVE, REPORT SYMBOL DB. NC1054.2 099500 GO TO MOVE-WRITE-F1-25. NC1054.2 099600 MOVE-DELETE-F1-25. NC1054.2 099700 PERFORM DE-LETE. NC1054.2 099800 GO TO MOVE-WRITE-F1-25. NC1054.2 099900 MOVE-FAIL-F1-25. NC1054.2 100000 MOVE MOVE66 TO COMPUTED-A. NC1054.2 100100 MOVE "12345 " TO CORRECT-A. NC1054.2 100200 PERFORM FAIL. NC1054.2 100300 MOVE-WRITE-F1-25. NC1054.2 100400 MOVE "MOVE-TEST-F1-25" TO PAR-NAME. NC1054.2 100500 PERFORM PRINT-DETAIL. NC1054.2 100600 MOVE-INIT-F1-26. NC1054.2 100700 MOVE -12345 TO MOVE51. NC1054.2 100800 MOVE-TEST-F1-26-0. NC1054.2 100900 MOVE MOVE51 TO MOVE67. NC1054.2 101000 MOVE-TEST-F1-26-1. NC1054.2 101100 IF MOVE67 EQUAL TO "12345-" NC1054.2 101200 PERFORM PASS NC1054.2 101300 ELSE NC1054.2 101400 GO TO MOVE-FAIL-F1-26. NC1054.2 101500* NOTE NI TO NE MOVE, REPORT SIGN +. NC1054.2 101600 GO TO MOVE-WRITE-F1-26. NC1054.2 101700 MOVE-DELETE-F1-26. NC1054.2 101800 PERFORM DE-LETE. NC1054.2 101900 GO TO MOVE-WRITE-F1-26. NC1054.2 102000 MOVE-FAIL-F1-26. NC1054.2 102100 MOVE MOVE67 TO COMPUTED-A. NC1054.2 102200 MOVE "12345-" TO CORRECT-A. NC1054.2 102300 PERFORM FAIL. NC1054.2 102400 MOVE-WRITE-F1-26. NC1054.2 102500 MOVE "MOVE-TEST-F1-26" TO PAR-NAME. NC1054.2 102600 PERFORM PRINT-DETAIL. NC1054.2 102700 MOVE-INIT-F1-27. NC1054.2 102800 MOVE 12345 TO MOVE1. NC1054.2 102900 MOVE-TEST-F1-27-0. NC1054.2 103000 MOVE MOVE1 TO MOVE67. NC1054.2 103100 MOVE-TEST-F1-27-1. NC1054.2 103200 IF MOVE67 EQUAL TO "12345+" NC1054.2 103300 PERFORM PASS NC1054.2 103400 ELSE NC1054.2 103500 GO TO MOVE-FAIL-F1-27. NC1054.2 103600* NOTE NI TO NE MOVE, REPORT SIGN +. NC1054.2 103700 GO TO MOVE-WRITE-F1-27. NC1054.2 103800 MOVE-DELETE-F1-27. NC1054.2 103900 PERFORM DE-LETE. NC1054.2 104000 GO TO MOVE-WRITE-F1-27. NC1054.2 104100 MOVE-FAIL-F1-27. NC1054.2 104200 MOVE MOVE67 TO COMPUTED-A. NC1054.2 104300 MOVE "12345+" TO CORRECT-A. NC1054.2 104400 PERFORM FAIL. NC1054.2 104500 MOVE-WRITE-F1-27. NC1054.2 104600 MOVE "MOVE-TEST-F1-27" TO PAR-NAME. NC1054.2 104700 PERFORM PRINT-DETAIL. NC1054.2 104800 MOVE-INIT-F1-28. NC1054.2 104900 MOVE 45 TO MOVE49. NC1054.2 105000 MOVE-TEST-F1-28-0. NC1054.2 105100 MOVE MOVE49 TO MOVE68. NC1054.2 105200 MOVE-TEST-F1-28-1. NC1054.2 105300 IF MOVE68 EQUAL TO " +45" NC1054.2 105400 PERFORM PASS NC1054.2 105500 ELSE NC1054.2 105600 GO TO MOVE-FAIL-F1-28. NC1054.2 105700* NOTE NI TO NE MOVE, FLOATING REPORT SIGN. NC1054.2 105800 GO TO MOVE-WRITE-F1-28. NC1054.2 105900 MOVE-DELETE-F1-28. NC1054.2 106000 PERFORM DE-LETE. NC1054.2 106100 GO TO MOVE-WRITE-F1-28. NC1054.2 106200 MOVE-FAIL-F1-28. NC1054.2 106300 MOVE MOVE68 TO COMPUTED-A. NC1054.2 106400 MOVE " +45" TO CORRECT-A. NC1054.2 106500 PERFORM FAIL. NC1054.2 106600 MOVE-WRITE-F1-28. NC1054.2 106700 MOVE "MOVE-TEST-F1-28" TO PAR-NAME. NC1054.2 106800 PERFORM PRINT-DETAIL. NC1054.2 106900 MOVE-INIT-F1-29. NC1054.2 107000 MOVE -45 TO MOVE51A. NC1054.2 107100 MOVE-TEST-F1-29-0. NC1054.2 107200 MOVE MOVE51A TO MOVE69. NC1054.2 107300 MOVE-TEST-F1-29-1. NC1054.2 107400 IF MOVE69 EQUAL TO " -45" NC1054.2 107500 PERFORM PASS NC1054.2 107600 ELSE NC1054.2 107700 GO TO MOVE-FAIL-F1-29. NC1054.2 107800* NOTE NI TO NE MOVE, FLOATING REPORT SIGN. NC1054.2 107900 GO TO MOVE-WRITE-F1-29. NC1054.2 108000 MOVE-DELETE-F1-29. NC1054.2 108100 PERFORM DE-LETE. NC1054.2 108200 GO TO MOVE-WRITE-F1-29. NC1054.2 108300 MOVE-FAIL-F1-29. NC1054.2 108400 MOVE MOVE69 TO COMPUTED-A. NC1054.2 108500 MOVE " -45" TO CORRECT-A. NC1054.2 108600 PERFORM FAIL. NC1054.2 108700 MOVE-WRITE-F1-29. NC1054.2 108800 MOVE "MOVE-TEST-F1-29" TO PAR-NAME. NC1054.2 108900 PERFORM PRINT-DETAIL. NC1054.2 109000 MOVE-INIT-F1-30. NC1054.2 109100 MOVE 12345 TO MOVE1. NC1054.2 109200 MOVE-TEST-F1-30-0. NC1054.2 109300 MOVE MOVE1 TO MOVE70. NC1054.2 109400 MOVE-TEST-F1-30-1. NC1054.2 109500 IF MOVE70 EQUAL TO 12345 NC1054.2 109600 PERFORM PASS NC1054.2 109700 ELSE NC1054.2 109800 GO TO MOVE-FAIL-F1-30. NC1054.2 109900* NOTE, TO AUDIT SYNC OPTION. NC1054.2 110000 GO TO MOVE-WRITE-F1-30. NC1054.2 110100 MOVE-DELETE-F1-30. NC1054.2 110200 PERFORM DE-LETE. NC1054.2 110300 GO TO MOVE-WRITE-F1-30. NC1054.2 110400 MOVE-FAIL-F1-30. NC1054.2 110500 MOVE MOVE70 TO COMPUTED-N. NC1054.2 110600 MOVE 12345 TO CORRECT-N. NC1054.2 110700 PERFORM FAIL. NC1054.2 110800 MOVE-WRITE-F1-30. NC1054.2 110900 MOVE "MISC MOVE " TO FEATURE. NC1054.2 111000 MOVE "MOVE-TEST-F1-30" TO PAR-NAME. NC1054.2 111100 PERFORM PRINT-DETAIL. NC1054.2 111200 MOVE-INIT-F1-31. NC1054.2 111300 NC1054.2 111400 MOVE-TEST-F1-31-0. NC1054.2 111500 MOVE 1 .11115111115111115 TO MOVE48. NC1054.2 111600 MOVE-TEST-F1-31-1. NC1054.2 111700 IF MOVE48 EQUAL TO 1 .11115111115111115 NC1054.2 111800 PERFORM PASS NC1054.2 111900 ELSE NC1054.2 112000 GO TO MOVE-FAIL-F1-31. NC1054.2 112100* NOTE MAXIMUM LENGTH NUMERIC LITERAL. NC1054.2 112200 GO TO MOVE-WRITE-F1-31. NC1054.2 112300 MOVE-DELETE-F1-31. NC1054.2 112400 PERFORM DE-LETE. NC1054.2 112500 GO TO MOVE-WRITE-F1-31. NC1054.2 112600 MOVE-FAIL-F1-31. NC1054.2 112700 MOVE MOVE48 TO COMPUTED-N. NC1054.2 112800 MOVE "1.11115111115111115" TO CORRECT-A. NC1054.2 112900 PERFORM FAIL. NC1054.2 113000 MOVE-WRITE-F1-31. NC1054.2 113100 MOVE "MAXIMUM LENGTH MOVE " TO FEATURE. NC1054.2 113200 MOVE "MOVE-TEST-F1-31" TO PAR-NAME. NC1054.2 113300 PERFORM PRINT-DETAIL. NC1054.2 113400 MOVE-INIT-F1-32. NC1054.2 113500 MOVE 0 TO TA--X. NC1054.2 113600 MOVE-TEST-F1-32-0. NC1054.2 113700 MOVE MOVE23 TO MOVE5 MOVE6 MOVE7. NC1054.2 113800 MOVE-TEST-F1-32-1. NC1054.2 113900 IF MOVE5 NOT EQUAL TO 23 .45 NC1054.2 114000 MOVE MOVE5 TO COMPUTED-N NC1054.2 114100 MOVE 23 .45 TO CORRECT-N NC1054.2 114200 PERFORM FAIL PERFORM MOVE-WRITE-F1-32 NC1054.2 114300 MOVE 1 TO TA--X. NC1054.2 114400 IF MOVE6 NOT EQUAL TO .45 NC1054.2 114500 MOVE MOVE6 TO COMPUTED-N NC1054.2 114600 MOVE .45 TO CORRECT-N NC1054.2 114700 PERFORM FAIL PERFORM MOVE-WRITE-F1-32 NC1054.2 114800 MOVE 1 TO TA--X. NC1054.2 114900 IF MOVE7 NOT EQUAL TO 3 .45 NC1054.2 115000 MOVE MOVE7 TO COMPUTED-N NC1054.2 115100 MOVE 3 .45 TO CORRECT-N NC1054.2 115200 GO TO MOVE-FAIL-F1-32. NC1054.2 115300 IF TA--X IS NOT EQUAL TO 0 GO TO MOVE-INIT-F1-33. NC1054.2 115400 PERFORM PASS. NC1054.2 115500 GO TO MOVE-WRITE-F1-32. NC1054.2 115600 MOVE-DELETE-F1-32. NC1054.2 115700 PERFORM DE-LETE. NC1054.2 115800 GO TO MOVE-WRITE-F1-32. NC1054.2 115900 MOVE-FAIL-F1-32. NC1054.2 116000 PERFORM FAIL. NC1054.2 116100 MOVE-WRITE-F1-32. NC1054.2 116200 MOVE "MOVE-TEST-F1-32" TO PAR-NAME. NC1054.2 116300 PERFORM PRINT-DETAIL. NC1054.2 116400 MOVE-INIT-F1-33. NC1054.2 116500 MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ" TO GRP-ALPHABETIC. NC1054.2 116600 MOVE-TEST-F1-33-0. NC1054.2 116700 MOVE GRP-GROUP-MOVE-FROM TO GRP-GROUP-MOVE-TO. NC1054.2 116800 MOVE-TEST-F1-33-1. NC1054.2 116900 IF ALPHABET-AN-00026 NOT EQUAL TO WRK-AN-00026 NC1054.2 117000 GO TO MOVE-FAIL-F1-33. NC1054.2 117100 IF DIGITS-DU-10V00 NOT EQUAL TO WRK-DU-10V00 NC1054.2 117200 GO TO MOVE-FAIL-F1-33. NC1054.2 117300 IF ALPHANUMERIC-XN-00049 NOT EQUAL TO WRK-XN-00049 NC1054.2 117400 GO TO MOVE-FAIL-F1-33. NC1054.2 117500 IF NE-0001 NOT EQUAL TO SPACE GO TO MOVE-FAIL-F1-33. NC1054.2 117600 IF NE-0002 NOT EQUAL TO SPACE GO TO MOVE-FAIL-F1-33. NC1054.2 117700 IF AE-0001 NOT EQUAL TO SPACE GO TO MOVE-FAIL-F1-33. NC1054.2 117800 IF AE-0002 EQUAL TO SPACE NC1054.2 117900 PERFORM PASS NC1054.2 118000 GO TO MOVE-WRITE-F1-33. NC1054.2 118100 GO TO MOVE-FAIL-F1-33. NC1054.2 118200 MOVE-DELETE-F1-33. NC1054.2 118300 PERFORM DE-LETE. NC1054.2 118400 GO TO MOVE-WRITE-F1-33. NC1054.2 118500 MOVE-FAIL-F1-33. NC1054.2 118600 MOVE GRP-MOVE-CONSTANTS TO SEND-BREAKDOWN. NC1054.2 118700 MOVE GRP-MOVE-RECEIVING-FIELDS TO RECEIVE-BREAKDOWN. NC1054.2 118800 MOVE 119 TO LENGTH-COUNTER. NC1054.2 118900 PERFORM FAIL. NC1054.2 119000 PERFORM A20 THRU A120. NC1054.2 119100 MOVE-WRITE-F1-33. NC1054.2 119200 MOVE "MOVE ALPHA GROUP " TO FEATURE. NC1054.2 119300 MOVE "MOVE-TEST-F1-33 " TO PAR-NAME. NC1054.2 119400 PERFORM PRINT-DETAIL. NC1054.2 119500 MOVE-INIT-F1-34. NC1054.2 119600 MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ" TO GRP-ALPHABETIC. NC1054.2 119700 MOVE-TEST-F1-34-0. NC1054.2 119800 MOVE GRP-ALPHABETIC TO WRK-AN-00026. NC1054.2 119900 MOVE-TEST-F1-34-1. NC1054.2 120000 IF GRP-ALPHABETIC EQUAL TO GRP-WRK-AN-00026 NC1054.2 120100 PERFORM PASS NC1054.2 120200 GO TO MOVE-WRITE-F1-34. NC1054.2 120300 GO TO MOVE-FAIL-F1-34. NC1054.2 120400 MOVE-DELETE-F1-34. NC1054.2 120500 PERFORM DE-LETE. NC1054.2 120600 GO TO MOVE-WRITE-F1-34. NC1054.2 120700 MOVE-FAIL-F1-34. NC1054.2 120800 MOVE GRP-ALPHABETIC TO SEND-BREAKDOWN. NC1054.2 120900 MOVE GRP-WRK-AN-00026 TO RECEIVE-BREAKDOWN. NC1054.2 121000 MOVE 026 TO LENGTH-COUNTER. NC1054.2 121100 PERFORM FAIL. NC1054.2 121200 PERFORM A20 THRU A40. NC1054.2 121300 MOVE-WRITE-F1-34. NC1054.2 121400 MOVE "MOVE-TEST-F1-34 " TO PAR-NAME. NC1054.2 121500 PERFORM PRINT-DETAIL. NC1054.2 121600 MOVE-INIT-F1-35. NC1054.2 121700 MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ+- =$, .()/ 0123456789" NC1054.2 121800 TO GRP-ALPHANUMERIC. NC1054.2 121900 MOVE "MOVE ALPHA-NUM GROUP" TO FEATURE. NC1054.2 122000 MOVE-TEST-F1-35-0. NC1054.2 122100 MOVE GRP-ALPHANUMERIC TO WRK-XN-00049. NC1054.2 122200 MOVE-TEST-F1-35-1. NC1054.2 122300 IF GRP-ALPHANUMERIC EQUAL TO GRP-WRK-XN-00049 NC1054.2 122400 PERFORM PASS NC1054.2 122500 GO TO MOVE-WRITE-F1-35. NC1054.2 122600 GO TO MOVE-FAIL-F1-35. NC1054.2 122700 MOVE-DELETE-F1-35. NC1054.2 122800 PERFORM DE-LETE. NC1054.2 122900 GO TO MOVE-WRITE-F1-35. NC1054.2 123000 MOVE-FAIL-F1-35. NC1054.2 123100 MOVE GRP-ALPHANUMERIC TO SEND-BREAKDOWN. NC1054.2 123200 MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2 123300 MOVE 049 TO LENGTH-COUNTER. NC1054.2 123400 PERFORM FAIL. NC1054.2 123500 PERFORM A20 THRU A60. NC1054.2 123600 MOVE-WRITE-F1-35. NC1054.2 123700 MOVE "MOVE-TEST-F1-35 " TO PAR-NAME. NC1054.2 123800 PERFORM PRINT-DETAIL. NC1054.2 123900 MOVE-INIT-F1-36. NC1054.2 124000 MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ+- =$, .()/ 0123456789" NC1054.2 124100 TO GRP-ALPHANUMERIC. NC1054.2 124200 MOVE "MOVE ALPHA-NUM GROUP" TO FEATURE. NC1054.2 124300 MOVE-TEST-F1-36-0. NC1054.2 124400 MOVE GRP-ALPHANUMERIC TO AE-0001. NC1054.2 124500 MOVE-TEST-F1-36-1. NC1054.2 124600 IF GRP-ALPHANUMERIC-1002 EQUAL TO GRP-AE-0001 NC1054.2 124700 PERFORM PASS NC1054.2 124800 GO TO MOVE-WRITE-F1-36. NC1054.2 124900 GO TO MOVE-FAIL-F1-36. NC1054.2 125000 MOVE-DELETE-F1-36. NC1054.2 125100 PERFORM DE-LETE. NC1054.2 125200 GO TO MOVE-WRITE-F1-36. NC1054.2 125300 MOVE-FAIL-F1-36. NC1054.2 125400 MOVE GRP-ALPHANUMERIC-1002 TO SEND-BREAKDOWN. NC1054.2 125500 MOVE GRP-AE-0001 TO RECEIVE-BREAKDOWN. NC1054.2 125600 MOVE 049 TO LENGTH-COUNTER. NC1054.2 125700 PERFORM FAIL. NC1054.2 125800 PERFORM A20 THRU A60. NC1054.2 125900 MOVE-WRITE-F1-36. NC1054.2 126000 MOVE "MOVE-TEST-F1-36 " TO PAR-NAME. NC1054.2 126100 PERFORM PRINT-DETAIL. NC1054.2 126200 MOVE-INIT-F1-37. NC1054.2 126300 MOVE "MOVE NUMERIC GROUP " TO FEATURE. NC1054.2 126400 MOVE 0123456789 TO GRP-NUMERIC. NC1054.2 126500 MOVE-TEST-F1-37-0. NC1054.2 126600 MOVE GRP-NUMERIC TO WRK-DU-10V00. NC1054.2 126700 MOVE-TEST-F1-37-1. NC1054.2 126800 IF GRP-NUMERIC EQUAL TO GRP-WRK-DU-10V00 NC1054.2 126900 PERFORM PASS NC1054.2 127000 GO TO MOVE-WRITE-F1-37. NC1054.2 127100 GO TO MOVE-FAIL-F1-37. NC1054.2 127200 MOVE-DELETE-F1-37. NC1054.2 127300 PERFORM DE-LETE. NC1054.2 127400 GO TO MOVE-WRITE-F1-37. NC1054.2 127500 MOVE-FAIL-F1-37. NC1054.2 127600 MOVE GRP-NUMERIC TO CORRECT-A. NC1054.2 127700 MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2 127800 PERFORM FAIL. NC1054.2 127900 MOVE-WRITE-F1-37. NC1054.2 128000 MOVE "MOVE-TEST-F1-37 " TO PAR-NAME. NC1054.2 128100 PERFORM PRINT-DETAIL. NC1054.2 128200 MOVE-INIT-F1-38. NC1054.2 128300 MOVE 0123456789 TO GRP-NUMERIC. NC1054.2 128400 MOVE-TEST-F1-38-0. NC1054.2 128500 MOVE GRP-NUMERIC TO NE-0001. NC1054.2 128600 MOVE-TEST-F1-38-1. NC1054.2 128700 IF "0123456789 " EQUAL TO GRP-NE-0001 NC1054.2 128800 PERFORM PASS NC1054.2 128900 GO TO MOVE-WRITE-F1-38. NC1054.2 129000 GO TO MOVE-FAIL-F1-38. NC1054.2 129100 MOVE-DELETE-F1-38. NC1054.2 129200 PERFORM DE-LETE. NC1054.2 129300 GO TO MOVE-WRITE-F1-38. NC1054.2 129400 MOVE-FAIL-F1-38. NC1054.2 129500 MOVE GRP-NUMERIC TO CORRECT-A. NC1054.2 129600 MOVE GRP-NE-0001 TO COMPUTED-A. NC1054.2 129700 PERFORM FAIL. NC1054.2 129800 MOVE-WRITE-F1-38. NC1054.2 129900 MOVE "MOVE-TEST-F1-38 " TO PAR-NAME. NC1054.2 130000 PERFORM PRINT-DETAIL. NC1054.2 130100 MOVE-INIT-F1-39. NC1054.2 130200 MOVE "MOVE ALPHA ITEM " TO FEATURE. NC1054.2 130300 MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ" TO ALPHABET-AN-00026. NC1054.2 130400 MOVE-TEST-F1-39-0. NC1054.2 130500 MOVE ALPHABET-AN-00026 TO GRP-WRK-AN-00026. NC1054.2 130600 MOVE-TEST-F1-39-1. NC1054.2 130700 IF ALPHABET-AN-00026 EQUAL TO WRK-AN-00026 NC1054.2 130800 PERFORM PASS NC1054.2 130900 GO TO MOVE-WRITE-F1-39. NC1054.2 131000 GO TO MOVE-FAIL-F1-39. NC1054.2 131100 MOVE-DELETE-F1-39. NC1054.2 131200 PERFORM DE-LETE. NC1054.2 131300 GO TO MOVE-WRITE-F1-39. NC1054.2 131400 MOVE-FAIL-F1-39. NC1054.2 131500 MOVE ALPHABET-AN-00026 TO SEND-BREAKDOWN. NC1054.2 131600 MOVE GRP-WRK-AN-00026 TO RECEIVE-BREAKDOWN. NC1054.2 131700 MOVE 026 TO LENGTH-COUNTER. NC1054.2 131800 PERFORM FAIL. NC1054.2 131900 PERFORM A20 THRU A40. NC1054.2 132000 MOVE-WRITE-F1-39. NC1054.2 132100 MOVE "MOVE-TEST-F1-39 " TO PAR-NAME. NC1054.2 132200 PERFORM PRINT-DETAIL. NC1054.2 132300 MOVE-INIT-F1-40. NC1054.2 132400 MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ" TO ALPHABET-AN-00026. NC1054.2 132500 MOVE-TEST-F1-40-0. NC1054.2 132600 MOVE ALPHABET-AN-00026 TO WRK-AN-00026. NC1054.2 132700 MOVE-TEST-F1-40-1. NC1054.2 132800 IF ALPHABET-AN-00026 EQUAL TO GRP-WRK-AN-00026 NC1054.2 132900 PERFORM PASS NC1054.2 133000 GO TO MOVE-WRITE-F1-40. NC1054.2 133100 GO TO MOVE-FAIL-F1-40. NC1054.2 133200 MOVE-DELETE-F1-40. NC1054.2 133300 PERFORM DE-LETE. NC1054.2 133400 GO TO MOVE-WRITE-F1-40. NC1054.2 133500 MOVE-FAIL-F1-40. NC1054.2 133600 MOVE ALPHABET-AN-00026 TO SEND-BREAKDOWN. NC1054.2 133700 MOVE WRK-AN-00026 TO RECEIVE-BREAKDOWN. NC1054.2 133800 MOVE 026 TO LENGTH-COUNTER. NC1054.2 133900 PERFORM FAIL. NC1054.2 134000 PERFORM A20 THRU A40. NC1054.2 134100 MOVE-WRITE-F1-40. NC1054.2 134200 MOVE "MOVE-TEST-F1-40 " TO PAR-NAME. NC1054.2 134300 PERFORM PRINT-DETAIL. NC1054.2 134400 MOVE-INIT-F1-41. NC1054.2 134500 MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ" TO ALPHABET-AN-00026. NC1054.2 134600 MOVE-TEST-F1-41-0. NC1054.2 134700 MOVE ALPHABET-AN-00026 TO WRK-XN-00049 FIRST-26. NC1054.2 134800 MOVE-TEST-F1-41-1. NC1054.2 134900 MOVE SPACE TO PADD-REST. NC1054.2 135000 IF FORTY-NINE-COMPARE EQUAL TO GRP-WRK-XN-00049 NC1054.2 135100 PERFORM PASS NC1054.2 135200 GO TO MOVE-WRITE-F1-41. NC1054.2 135300 GO TO MOVE-FAIL-F1-41. NC1054.2 135400 MOVE-DELETE-F1-41. NC1054.2 135500 PERFORM DE-LETE. NC1054.2 135600 GO TO MOVE-WRITE-F1-41. NC1054.2 135700 MOVE-FAIL-F1-41. NC1054.2 135800 MOVE FORTY-NINE-COMPARE TO SEND-BREAKDOWN. NC1054.2 135900 MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2 136000 MOVE 049 TO LENGTH-COUNTER. NC1054.2 136100 PERFORM FAIL. NC1054.2 136200 PERFORM A20 THRU A60. NC1054.2 136300 MOVE-WRITE-F1-41. NC1054.2 136400 MOVE "MOVE-TEST-F1-41 " TO PAR-NAME. NC1054.2 136500 PERFORM PRINT-DETAIL. NC1054.2 136600 MOVE-INIT-F1-42. NC1054.2 136700 MOVE "MOVE ALPHA-NUM ITEM " TO FEATURE. NC1054.2 136800 MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ+- =$, .()/ 0123456789" NC1054.2 136900 TO ALPHANUMERIC-XN-00049. NC1054.2 137000 MOVE-TEST-F1-42-0. NC1054.2 137100 MOVE ALPHANUMERIC-XN-00049 TO GRP-WRK-XN-00049. NC1054.2 137200 MOVE-TEST-F1-42-1. NC1054.2 137300 IF ALPHANUMERIC-XN-00049 EQUAL TO WRK-XN-00049 NC1054.2 137400 PERFORM PASS NC1054.2 137500 GO TO MOVE-WRITE-F1-42. NC1054.2 137600 GO TO MOVE-FAIL-F1-42. NC1054.2 137700 MOVE-DELETE-F1-42. NC1054.2 137800 PERFORM DE-LETE. NC1054.2 137900 GO TO MOVE-WRITE-F1-42. NC1054.2 138000 MOVE-FAIL-F1-42. NC1054.2 138100 MOVE ALPHANUMERIC-XN-00049 TO SEND-BREAKDOWN. NC1054.2 138200 MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2 138300 MOVE 049 TO LENGTH-COUNTER. NC1054.2 138400 PERFORM FAIL. NC1054.2 138500 PERFORM A20 THRU A60. NC1054.2 138600 MOVE-WRITE-F1-42. NC1054.2 138700 MOVE "MOVE-TEST-F1-42 " TO PAR-NAME. NC1054.2 138800 PERFORM PRINT-DETAIL. NC1054.2 138900 MOVE-INIT-F1-43. NC1054.2 139000 MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ+- =$, .()/ 0123456789" NC1054.2 139100 TO ALPHANUMERIC-XN-00049. NC1054.2 139200 MOVE-TEST-F1-43-0. NC1054.2 139300 MOVE ALPHANUMERIC-XN-00049 TO WRK-AN-00026 NC1054.2 139400 FORTY-NINE-COMPARE. NC1054.2 139500 MOVE SPACE TO PADD-REST. NC1054.2 139600 MOVE-TEST-F1-43-1. NC1054.2 139700 IF FIRST-26 EQUAL TO GRP-WRK-AN-00026 NC1054.2 139800 PERFORM PASS NC1054.2 139900 GO TO MOVE-WRITE-F1-43. NC1054.2 140000 GO TO MOVE-FAIL-F1-43. NC1054.2 140100 MOVE-DELETE-F1-43. NC1054.2 140200 PERFORM DE-LETE. NC1054.2 140300 GO TO MOVE-WRITE-F1-43. NC1054.2 140400 MOVE-FAIL-F1-43. NC1054.2 140500 MOVE GRP-WRK-AN-00026 TO RECEIVE-BREAKDOWN. NC1054.2 140600 MOVE FIRST-26 TO SEND-BREAKDOWN. NC1054.2 140700 MOVE 026 TO LENGTH-COUNTER. NC1054.2 140800 PERFORM FAIL. NC1054.2 140900 PERFORM A20 THRU A40. NC1054.2 141000 MOVE-WRITE-F1-43. NC1054.2 141100 MOVE "MOVE-TEST-F1-43 " TO PAR-NAME. NC1054.2 141200 PERFORM PRINT-DETAIL. NC1054.2 141300 MOVE-INIT-F1-44. NC1054.2 141400 MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ+- =$, .()/ 0123456789" NC1054.2 141500 TO ALPHANUMERIC-XN-00049. NC1054.2 141600 MOVE-TEST-F1-44-0. NC1054.2 141700 MOVE ALPHANUMERIC-XN-00049 TO WRK-XN-00049. NC1054.2 141800 MOVE-TEST-F1-44-1. NC1054.2 141900 IF ALPHANUMERIC-XN-00049 EQUAL TO GRP-WRK-XN-00049 NC1054.2 142000 PERFORM PASS NC1054.2 142100 GO TO MOVE-WRITE-F1-44. NC1054.2 142200 GO TO MOVE-FAIL-F1-44. NC1054.2 142300 MOVE-DELETE-F1-44. NC1054.2 142400 PERFORM DE-LETE. NC1054.2 142500 GO TO MOVE-WRITE-F1-44. NC1054.2 142600 MOVE-FAIL-F1-44. NC1054.2 142700 MOVE ALPHANUMERIC-XN-00049 TO SEND-BREAKDOWN. NC1054.2 142800 MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2 142900 MOVE 049 TO LENGTH-COUNTER. NC1054.2 143000 PERFORM FAIL. NC1054.2 143100 PERFORM A20 THRU A60. NC1054.2 143200 MOVE-WRITE-F1-44. NC1054.2 143300 MOVE "MOVE-TEST-F1-44" TO PAR-NAME. NC1054.2 143400 PERFORM PRINT-DETAIL. NC1054.2 143500 MOVE-INIT-F1-45. NC1054.2 143600 MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ+- =$, .()/ 0123456789" NC1054.2 143700 TO ALPHANUMERIC-XN-00049. NC1054.2 143800 MOVE-TEST-F1-45-0. NC1054.2 143900 MOVE ALPHANUMERIC-XN-00049 TO AE-0001. NC1054.2 144000 MOVE-TEST-F1-45-1. NC1054.2 144100 IF GRP-AE-0001 EQUAL TO "ABCDEFGHIJKLMNOPQRSTUVWXYZ +- =$, .NC1054.2 144200 - "()/0 012345678" NC1054.2 144300 PERFORM PASS NC1054.2 144400 GO TO MOVE-WRITE-F1-45. NC1054.2 144500 GO TO MOVE-FAIL-F1-45. NC1054.2 144600 MOVE-DELETE-F1-45. NC1054.2 144700 PERFORM DE-LETE. NC1054.2 144800 GO TO MOVE-WRITE-F1-45. NC1054.2 144900 MOVE-FAIL-F1-45. NC1054.2 145000 MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ +- =$, .()/0 012345678" NC1054.2 145100 TO SEND-BREAKDOWN. NC1054.2 145200 MOVE AE-0001 TO RECEIVE-BREAKDOWN. NC1054.2 145300 MOVE 049 TO LENGTH-COUNTER. NC1054.2 145400 PERFORM FAIL. NC1054.2 145500 PERFORM A20 THRU A60. NC1054.2 145600 MOVE-WRITE-F1-45. NC1054.2 145700 MOVE "MOVE-TEST-F1-45" TO PAR-NAME. NC1054.2 145800 PERFORM PRINT-DETAIL. NC1054.2 145900 MOVE-INIT-F1-46. NC1054.2 146000 NC1054.2 146100 MOVE-TEST-F1-46-0. NC1054.2 146200 MOVE "4444444444444444440123456789" TO WRK-DU-10V00. NC1054.2 146300 MOVE-TEST-F1-46-1. NC1054.2 146400 IF GRP-WRK-DU-10V00 EQUAL TO "0123456789" NC1054.2 146500 PERFORM PASS NC1054.2 146600 GO TO MOVE-WRITE-F1-46. NC1054.2 146700 GO TO MOVE-FAIL-F1-46. NC1054.2 146800 MOVE-DELETE-F1-46. NC1054.2 146900 PERFORM DE-LETE. NC1054.2 147000 GO TO MOVE-WRITE-F1-46. NC1054.2 147100 MOVE-FAIL-F1-46. NC1054.2 147200 MOVE "0123456789" TO CORRECT-A. NC1054.2 147300 MOVE WRK-DU-10V00 TO COMPUTED-A. NC1054.2 147400 PERFORM FAIL. NC1054.2 147500 MOVE-WRITE-F1-46. NC1054.2 147600 MOVE "MOVE-TEST-F1-46" TO PAR-NAME. NC1054.2 147700 PERFORM PRINT-DETAIL. NC1054.2 147800 MOVE-INIT-F1-47. NC1054.2 147900 MOVE 3344556677 TO MOVE72. NC1054.2 148000 MOVE-TEST-F1-47-0. NC1054.2 148100 MOVE MOVE72 TO MOVE73. NC1054.2 148200 MOVE-TEST-F1-47-1. NC1054.2 148300 IF MOVE73 EQUAL TO "33445 56677 0 " NC1054.2 148400 PERFORM PASS NC1054.2 148500 GO TO MOVE-WRITE-F1-47. NC1054.2 148600 GO TO MOVE-FAIL-F1-47. NC1054.2 148700 MOVE-DELETE-F1-47. NC1054.2 148800 PERFORM DE-LETE. NC1054.2 148900 GO TO MOVE-WRITE-F1-47. NC1054.2 149000 MOVE-FAIL-F1-47. NC1054.2 149100 MOVE MOVE73 TO COMPUTED-A. NC1054.2 149200 MOVE "33445 56677 0 " TO CORRECT-A. NC1054.2 149300 PERFORM FAIL. NC1054.2 149400 MOVE-WRITE-F1-47. NC1054.2 149500 MOVE "MOVE-TEST-F1-47" TO PAR-NAME. NC1054.2 149600 PERFORM PRINT-DETAIL. NC1054.2 149700 MOVE-INIT-F1-48. NC1054.2 149800 NC1054.2 149900 MOVE-TEST-F1-48-0. NC1054.2 150000 MOVE "*" TO AE-0002. NC1054.2 150100 MOVE-TEST-F1-48-1. NC1054.2 150200 IF GRP-AE-0002 EQUAL TO "* 0 " NC1054.2 150300 PERFORM PASS NC1054.2 150400 GO TO MOVE-WRITE-F1-48. NC1054.2 150500 GO TO MOVE-FAIL-F1-48. NC1054.2 150600 MOVE-DELETE-F1-48. NC1054.2 150700 PERFORM DE-LETE. NC1054.2 150800 GO TO MOVE-WRITE-F1-48. NC1054.2 150900 MOVE-FAIL-F1-48. NC1054.2 151000 MOVE AE-0002 TO COMPUTED-A. NC1054.2 151100 MOVE "* 0 " TO CORRECT-A. NC1054.2 151200 PERFORM FAIL. NC1054.2 151300 PERFORM A20 THRU A60. NC1054.2 151400 MOVE-WRITE-F1-48. NC1054.2 151500 MOVE "MOVE-TEST-F1-48" TO PAR-NAME. NC1054.2 151600 PERFORM PRINT-DETAIL. NC1054.2 151700 MOVE-INIT-F1-49. NC1054.2 151800 MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ+- =$, .()/ 0123456789" NC1054.2 151900 TO ALPHANUMERIC-XN-00049. NC1054.2 152000 MOVE-TEST-F1-49-0. NC1054.2 152100 MOVE ALPHANUMERIC-XN-00049 TO AE-0001. NC1054.2 152200 MOVE-TEST-F1-49-1. NC1054.2 152300 MOVE AE-0001 TO AE-0002. NC1054.2 152400 IF AE-0002 EQUAL TO "AB0CD EFG" NC1054.2 152500 PERFORM PASS NC1054.2 152600 GO TO MOVE-WRITE-F1-49. NC1054.2 152700 GO TO MOVE-FAIL-F1-49. NC1054.2 152800 MOVE-DELETE-F1-49. NC1054.2 152900 PERFORM DE-LETE. NC1054.2 153000 GO TO MOVE-WRITE-F1-49. NC1054.2 153100 MOVE-FAIL-F1-49. NC1054.2 153200 MOVE AE-0002 TO COMPUTED-A. NC1054.2 153300 MOVE "AB0CD EFG" TO CORRECT-A. NC1054.2 153400 PERFORM FAIL. NC1054.2 153500 MOVE-WRITE-F1-49. NC1054.2 153600 MOVE "MOVE-TEST-F1-49" TO PAR-NAME. NC1054.2 153700 PERFORM PRINT-DETAIL. NC1054.2 153800 MOVE-INIT-F1-50. NC1054.2 153900 MOVE "MOVE NUMERIC ITEM " TO FEATURE. NC1054.2 154000 MOVE 0123456789 TO DIGITS-DU-10V00. NC1054.2 154100 MOVE-TEST-F1-50-0. NC1054.2 154200 MOVE DIGITS-DU-10V00 TO GRP-WRK-DU-10V00. NC1054.2 154300 MOVE-TEST-F1-50-1. NC1054.2 154400 IF WRK-DU-10V00 EQUAL TO DIGITS-DU-10V00 NC1054.2 154500 PERFORM PASS NC1054.2 154600 GO TO MOVE-WRITE-F1-50. NC1054.2 154700 GO TO MOVE-FAIL-F1-50. NC1054.2 154800 MOVE-DELETE-F1-50. NC1054.2 154900 PERFORM DE-LETE. NC1054.2 155000 GO TO MOVE-WRITE-F1-50. NC1054.2 155100 MOVE-FAIL-F1-50. NC1054.2 155200 MOVE DIGITS-DU-10V00 TO CORRECT-A. NC1054.2 155300 MOVE WRK-DU-10V00 TO COMPUTED-A. NC1054.2 155400 PERFORM FAIL. NC1054.2 155500 MOVE-WRITE-F1-50. NC1054.2 155600 MOVE "MOVE-TEST-F1-50" TO PAR-NAME. NC1054.2 155700 PERFORM PRINT-DETAIL. NC1054.2 155800 MOVE-INIT-F1-51. NC1054.2 155900 MOVE 0123456789 TO DIGITS-DU-10V00. NC1054.2 156000 MOVE-TEST-F1-51-0. NC1054.2 156100 MOVE DIGITS-DU-10V00 TO WRK-XN-00049. NC1054.2 156200 MOVE-TEST-F1-51-1. NC1054.2 156300 IF GRP-WRK-XN-00049 EQUAL TO "0123456789 NC1054.2 156400 - " " NC1054.2 156500 PERFORM PASS NC1054.2 156600 GO TO MOVE-WRITE-F1-51. NC1054.2 156700 GO TO MOVE-FAIL-F1-51. NC1054.2 156800 MOVE-DELETE-F1-51. NC1054.2 156900 PERFORM DE-LETE. NC1054.2 157000 GO TO MOVE-WRITE-F1-51. NC1054.2 157100 MOVE-FAIL-F1-51. NC1054.2 157200 MOVE "0123456789 " NC1054.2 157300 TO SEND-BREAKDOWN NC1054.2 157400 MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2 157500 MOVE 049 TO LENGTH-COUNTER. NC1054.2 157600 PERFORM FAIL. NC1054.2 157700 PERFORM A20 THRU A60. NC1054.2 157800 MOVE-WRITE-F1-51. NC1054.2 157900 MOVE "MOVE-TEST-F1-51" TO PAR-NAME. NC1054.2 158000 PERFORM PRINT-DETAIL. NC1054.2 158100 MOVE-INIT-F1-52. NC1054.2 158200 MOVE 0123456789 TO DIGITS-DU-10V00. NC1054.2 158300 MOVE-TEST-F1-52-0. NC1054.2 158400 MOVE DIGITS-DU-10V00 TO AE-0002. NC1054.2 158500 MOVE-TEST-F1-52-1. NC1054.2 158600 IF GRP-AE-0002 EQUAL TO "01023 456" NC1054.2 158700 PERFORM PASS NC1054.2 158800 GO TO MOVE-WRITE-F1-52. NC1054.2 158900 GO TO MOVE-FAIL-F1-52. NC1054.2 159000 MOVE-DELETE-F1-52. NC1054.2 159100 PERFORM DE-LETE. NC1054.2 159200 GO TO MOVE-WRITE-F1-52. NC1054.2 159300 MOVE-FAIL-F1-52. NC1054.2 159400 MOVE "01023 456" TO CORRECT-A. NC1054.2 159500 MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2 159600 PERFORM FAIL. NC1054.2 159700 MOVE-WRITE-F1-52. NC1054.2 159800 MOVE "MOVE-TEST-F1-52" TO PAR-NAME. NC1054.2 159900 PERFORM PRINT-DETAIL. NC1054.2 160000 MOVE-INIT-F1-53. NC1054.2 160100 MOVE 0123456789 TO DIGITS-DU-10V00. NC1054.2 160200 MOVE-TEST-F1-53-0. NC1054.2 160300 MOVE DIGITS-DU-10V00 TO WRK-DU-10V00. NC1054.2 160400 MOVE-TEST-F1-53-1. NC1054.2 160500 IF GRP-WRK-DU-10V00 EQUAL TO DIGITS-DU-10V00 NC1054.2 160600 PERFORM PASS NC1054.2 160700 GO TO MOVE-WRITE-F1-53. NC1054.2 160800 GO TO MOVE-FAIL-F1-53. NC1054.2 160900 MOVE-DELETE-F1-53. NC1054.2 161000 PERFORM DE-LETE. NC1054.2 161100 GO TO MOVE-WRITE-F1-53. NC1054.2 161200 MOVE-FAIL-F1-53. NC1054.2 161300 MOVE DIGITS-DU-10V00 TO CORRECT-A. NC1054.2 161400 MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2 161500 PERFORM FAIL. NC1054.2 161600 MOVE-WRITE-F1-53. NC1054.2 161700 MOVE "MOVE-TEST-F1-53" TO PAR-NAME. NC1054.2 161800 PERFORM PRINT-DETAIL. NC1054.2 161900 MOVE-INIT-F1-54. NC1054.2 162000 MOVE 0123456789 TO DIGITS-DU-10V00. NC1054.2 162100 MOVE-TEST-F1-54-0. NC1054.2 162200 MOVE DIGITS-DU-06V04-S TO NE-0001. NC1054.2 162300 MOVE-TEST-F1-54-1. NC1054.2 162400 IF GRP-NE-0001 EQUAL TO " 12,345.678,9" NC1054.2 162500 PERFORM PASS NC1054.2 162600 GO TO MOVE-WRITE-F1-54. NC1054.2 162700 GO TO MOVE-FAIL-F1-54. NC1054.2 162800 MOVE-DELETE-F1-54. NC1054.2 162900 PERFORM DE-LETE. NC1054.2 163000 GO TO MOVE-WRITE-F1-54. NC1054.2 163100 MOVE-FAIL-F1-54. NC1054.2 163200 MOVE " 12,345.678,9" TO CORRECT-A. NC1054.2 163300 MOVE GRP-NE-0001 TO COMPUTED-A. NC1054.2 163400 PERFORM FAIL. NC1054.2 163500 MOVE-WRITE-F1-54. NC1054.2 163600 MOVE "MOVE-TEST-F1-54" TO PAR-NAME. NC1054.2 163700 PERFORM PRINT-DETAIL. NC1054.2 163800 MOVE-INIT-F1-55. NC1054.2 163900 MOVE "MOVE NUMERIC EDITED" TO FEATURE. NC1054.2 164000 MOVE-TEST-F1-55-0. NC1054.2 164100 MOVE " 12,345.678,9" TO GRP-NE-0001. NC1054.2 164200 MOVE NE-0001 TO GRP-WRK-XN-00049. NC1054.2 164300 MOVE-TEST-F1-55-1. NC1054.2 164400 IF GRP-WRK-XN-00049 EQUAL TO NC1054.2 164500 " 12,345.678,9 " NC1054.2 164600 PERFORM PASS NC1054.2 164700 GO TO MOVE-WRITE-F1-55. NC1054.2 164800 GO TO MOVE-FAIL-F1-55. NC1054.2 164900 MOVE-DELETE-F1-55. NC1054.2 165000 PERFORM DE-LETE. NC1054.2 165100 GO TO MOVE-WRITE-F1-55. NC1054.2 165200 MOVE-FAIL-F1-55. NC1054.2 165300 MOVE " 12,345.678,9 " NC1054.2 165400 TO SEND-BREAKDOWN. NC1054.2 165500 MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2 165600 MOVE 049 TO LENGTH-COUNTER. NC1054.2 165700 PERFORM FAIL. NC1054.2 165800 PERFORM A20 THRU A60. NC1054.2 165900 MOVE-WRITE-F1-55. NC1054.2 166000 MOVE "MOVE-TEST-F1-55" TO PAR-NAME. NC1054.2 166100 PERFORM PRINT-DETAIL. NC1054.2 166200 MOVE-INIT-F1-56. NC1054.2 166300 NC1054.2 166400 MOVE-TEST-F1-56-0. NC1054.2 166500 MOVE " 12,345.678,9" TO GRP-NE-0001. NC1054.2 166600 MOVE NE-0001 TO WRK-XN-00049. NC1054.2 166700 MOVE-TEST-F1-56-1. NC1054.2 166800 IF GRP-WRK-XN-00049 EQUAL TO NC1054.2 166900 " 12,345.678,9 " NC1054.2 167000 PERFORM PASS NC1054.2 167100 GO TO MOVE-WRITE-F1-56. NC1054.2 167200 GO TO MOVE-FAIL-F1-56. NC1054.2 167300 MOVE-DELETE-F1-56. NC1054.2 167400 PERFORM DE-LETE. NC1054.2 167500 GO TO MOVE-WRITE-F1-56. NC1054.2 167600 MOVE-FAIL-F1-56. NC1054.2 167700 MOVE " 12,345.678,9 " NC1054.2 167800 TO SEND-BREAKDOWN. NC1054.2 167900 MOVE WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2 168000 MOVE 049 TO LENGTH-COUNTER. NC1054.2 168100 PERFORM FAIL. NC1054.2 168200 PERFORM A20 THRU A60. NC1054.2 168300 MOVE-WRITE-F1-56. NC1054.2 168400 MOVE "MOVE-TEST-F1-56" TO PAR-NAME. NC1054.2 168500 PERFORM PRINT-DETAIL. NC1054.2 168600 MOVE-INIT-F1-57. NC1054.2 168700 NC1054.2 168800 MOVE-TEST-F1-57-0. NC1054.2 168900 MOVE " 12,345.678,9" TO GRP-NE-0001. NC1054.2 169000 MOVE NE-0001 TO AE-0002. NC1054.2 169100 MOVE-TEST-F1-57-1. NC1054.2 169200 IF GRP-AE-0002 EQUAL TO " 102, 345" NC1054.2 169300 PERFORM PASS NC1054.2 169400 GO TO MOVE-WRITE-F1-57. NC1054.2 169500 GO TO MOVE-FAIL-F1-57. NC1054.2 169600 MOVE-DELETE-F1-57. NC1054.2 169700 PERFORM DE-LETE. NC1054.2 169800 GO TO MOVE-WRITE-F1-57. NC1054.2 169900 MOVE-FAIL-F1-57. NC1054.2 170000 MOVE " 102, 345" TO CORRECT-A. NC1054.2 170100 MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2 170200 PERFORM FAIL. NC1054.2 170300 MOVE-WRITE-F1-57. NC1054.2 170400 MOVE "MOVE-TEST-F1-57" TO PAR-NAME. NC1054.2 170500 PERFORM PRINT-DETAIL. NC1054.2 170600 MOVE-INIT-F1-58. NC1054.2 170700 MOVE "MOVE ZERO LITERAL " TO FEATURE. NC1054.2 170800 MOVE-TEST-F1-58-0. NC1054.2 170900 MOVE ZERO TO GRP-WRK-DU-10V00. NC1054.2 171000 MOVE-TEST-F1-58-1. NC1054.2 171100 IF WRK-DU-10V00 EQUAL TO "0000000000" NC1054.2 171200 PERFORM PASS NC1054.2 171300 GO TO MOVE-WRITE-F1-58. NC1054.2 171400 GO TO MOVE-FAIL-F1-58. NC1054.2 171500 MOVE-DELETE-F1-58. NC1054.2 171600 PERFORM DE-LETE. NC1054.2 171700 GO TO MOVE-WRITE-F1-58. NC1054.2 171800 MOVE-FAIL-F1-58. NC1054.2 171900 MOVE "0000000000" TO CORRECT-A. NC1054.2 172000 MOVE WRK-DU-10V00 TO COMPUTED-A. NC1054.2 172100 PERFORM FAIL. NC1054.2 172200 MOVE-WRITE-F1-58. NC1054.2 172300 MOVE "MOVE-TEST-F1-58" TO PAR-NAME. NC1054.2 172400 PERFORM PRINT-DETAIL. NC1054.2 172500 MOVE-INIT-F1-59. NC1054.2 172600 NC1054.2 172700 MOVE-TEST-F1-59-0. NC1054.2 172800 MOVE "0000000000000000000000000000000000000000000000000" NC1054.2 172900 TO WRK-XN-00049. NC1054.2 173000 MOVE-TEST-F1-59-1. NC1054.2 173100 IF GRP-WRK-XN-00049 EQUAL TO ZERO NC1054.2 173200 PERFORM PASS NC1054.2 173300 GO TO MOVE-WRITE-F1-59. NC1054.2 173400 GO TO MOVE-FAIL-F1-59. NC1054.2 173500 MOVE-DELETE-F1-59. NC1054.2 173600 PERFORM DE-LETE. NC1054.2 173700 GO TO MOVE-WRITE-F1-59. NC1054.2 173800 MOVE-FAIL-F1-59. NC1054.2 173900 MOVE "0000000000000000000000000000000000000000000000000" NC1054.2 174000 TO SEND-BREAKDOWN. NC1054.2 174100 MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2 174200 MOVE 049 TO LENGTH-COUNTER. NC1054.2 174300 PERFORM FAIL. NC1054.2 174400 PERFORM A20 THRU A60. NC1054.2 174500 MOVE-WRITE-F1-59. NC1054.2 174600 MOVE "MOVE-TEST-F1-59" TO PAR-NAME. NC1054.2 174700 PERFORM PRINT-DETAIL. NC1054.2 174800 MOVE-INIT-F1-60. NC1054.2 174900 NC1054.2 175000 MOVE-TEST-F1-60-0. NC1054.2 175100 MOVE ZERO TO AE-0002. NC1054.2 175200 MOVE-TEST-F1-60-1. NC1054.2 175300 IF GRP-AE-0002 EQUAL TO "00000 000" NC1054.2 175400 PERFORM PASS NC1054.2 175500 GO TO MOVE-WRITE-F1-60. NC1054.2 175600 GO TO MOVE-FAIL-F1-60. NC1054.2 175700 MOVE-DELETE-F1-60. NC1054.2 175800 PERFORM DE-LETE. NC1054.2 175900 GO TO MOVE-WRITE-F1-60. NC1054.2 176000 MOVE-FAIL-F1-60. NC1054.2 176100 MOVE "00000 000" TO CORRECT-A. NC1054.2 176200 MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2 176300 PERFORM FAIL. NC1054.2 176400 MOVE-WRITE-F1-60. NC1054.2 176500 MOVE "MOVE-TEST-F1-60" TO PAR-NAME. NC1054.2 176600 PERFORM PRINT-DETAIL. NC1054.2 176700 MOVE-INIT-F1-61. NC1054.2 176800 MOVE-TEST-F1-61-0. NC1054.2 176900 MOVE ZERO TO WRK-DU-10V00. NC1054.2 177000 MOVE-TEST-F1-61-1. NC1054.2 177100 IF GRP-WRK-DU-10V00 EQUAL TO "0000000000" NC1054.2 177200 PERFORM PASS NC1054.2 177300 GO TO MOVE-WRITE-F1-61. NC1054.2 177400 GO TO MOVE-FAIL-F1-61. NC1054.2 177500 MOVE-DELETE-117. NC1054.2 177600 PERFORM DE-LETE. NC1054.2 177700 GO TO MOVE-WRITE-F1-61. NC1054.2 177800 MOVE-FAIL-F1-61. NC1054.2 177900 MOVE "0000000000" TO CORRECT-A. NC1054.2 178000 MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2 178100 PERFORM FAIL. NC1054.2 178200 MOVE-WRITE-F1-61. NC1054.2 178300 MOVE "MOVE-TEST-F1-61" TO PAR-NAME. NC1054.2 178400 PERFORM PRINT-DETAIL. NC1054.2 178500 MOVE-INIT-F1-62. NC1054.2 178600 MOVE-TEST-F1-62-0. NC1054.2 178700 MOVE ZERO TO NE-0001. NC1054.2 178800 MOVE-TEST-F1-62-1. NC1054.2 178900 IF GRP-NE-0001 EQUAL TO " 000.000,0" NC1054.2 179000 PERFORM PASS NC1054.2 179100 GO TO MOVE-WRITE-F1-62. NC1054.2 179200 GO TO MOVE-FAIL-F1-62. NC1054.2 179300 MOVE-DELETE-F1-62. NC1054.2 179400 PERFORM DE-LETE. NC1054.2 179500 GO TO MOVE-WRITE-F1-62. NC1054.2 179600 MOVE-FAIL-F1-62. NC1054.2 179700 MOVE " 000.000,0" TO CORRECT-A. NC1054.2 179800 MOVE GRP-NE-0001 TO COMPUTED-A. NC1054.2 179900 PERFORM FAIL. NC1054.2 180000 MOVE-WRITE-F1-62. NC1054.2 180100 MOVE "MOVE-TEST-F1-62" TO PAR-NAME. NC1054.2 180200 PERFORM PRINT-DETAIL. NC1054.2 180300 MOVE-INIT-F1-63. NC1054.2 180400 MOVE "MOVE SPACE LITERAL " TO FEATURE. NC1054.2 180500 MOVE-TEST-F1-63-0. NC1054.2 180600 MOVE SPACE TO GRP-WRK-DU-10V00. NC1054.2 180700 MOVE-TEST-F1-63-1. NC1054.2 180800 IF GRP-WRK-DU-10V00 EQUAL TO SPACE NC1054.2 180900 PERFORM PASS NC1054.2 181000 GO TO MOVE-WRITE-F1-63. NC1054.2 181100 GO TO MOVE-FAIL-F1-63. NC1054.2 181200 MOVE-DELETE-F1-63. NC1054.2 181300 PERFORM DE-LETE. NC1054.2 181400 GO TO MOVE-WRITE-F1-63. NC1054.2 181500 MOVE-FAIL-F1-63. NC1054.2 181600 MOVE SPACE TO CORRECT-A. NC1054.2 181700 MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2 181800 PERFORM FAIL. NC1054.2 181900 MOVE-WRITE-F1-63. NC1054.2 182000 MOVE "MOVE-TEST-F1-63" TO PAR-NAME. NC1054.2 182100 PERFORM PRINT-DETAIL. NC1054.2 182200 MOVE-INIT-F1-64. NC1054.2 182300 MOVE-TEST-F1-64-0. NC1054.2 182400 MOVE SPACE TO WRK-AN-00026. NC1054.2 182500 MOVE-TEST-F1-64-1. NC1054.2 182600 IF GRP-WRK-AN-00026 EQUAL TO " " NC1054.2 182700 PERFORM PASS NC1054.2 182800 GO TO MOVE-WRITE-F1-64. NC1054.2 182900 GO TO MOVE-FAIL-F1-64. NC1054.2 183000 MOVE-DELETE-F1-64. NC1054.2 183100 PERFORM DE-LETE. NC1054.2 183200 GO TO MOVE-WRITE-F1-64. NC1054.2 183300 MOVE-FAIL-F1-64. NC1054.2 183400 MOVE SPACE TO SEND-BREAKDOWN. NC1054.2 183500 MOVE GRP-WRK-AN-00026 TO RECEIVE-BREAKDOWN. NC1054.2 183600 MOVE 026 TO LENGTH-COUNTER. NC1054.2 183700 PERFORM FAIL. NC1054.2 183800 PERFORM A20 THRU A40. NC1054.2 183900 MOVE-WRITE-F1-64. NC1054.2 184000 MOVE "MOVE-TEST-F1-64" TO PAR-NAME. NC1054.2 184100 PERFORM PRINT-DETAIL. NC1054.2 184200 MOVE-INIT-F1-65. NC1054.2 184300 MOVE-TEST-F1-65-0. NC1054.2 184400 MOVE SPACE TO WRK-XN-00049. NC1054.2 184500 MOVE-TEST-F1-65-1. NC1054.2 184600 IF GRP-WRK-XN-00049 EQUAL TO SPACE NC1054.2 184700 PERFORM PASS NC1054.2 184800 GO TO MOVE-WRITE-F1-65. NC1054.2 184900 GO TO MOVE-FAIL-F1-65. NC1054.2 185000 MOVE-DELETE-F1-65. NC1054.2 185100 PERFORM DE-LETE. NC1054.2 185200 GO TO MOVE-WRITE-F1-65. NC1054.2 185300 MOVE-FAIL-F1-65. NC1054.2 185400 MOVE SPACE TO SEND-BREAKDOWN. NC1054.2 185500 MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2 185600 MOVE 049 TO LENGTH-COUNTER. NC1054.2 185700 PERFORM FAIL. NC1054.2 185800 PERFORM A20 THRU A60. NC1054.2 185900 MOVE-WRITE-F1-65. NC1054.2 186000 MOVE "MOVE-TEST-F1-65" TO PAR-NAME. NC1054.2 186100 PERFORM PRINT-DETAIL. NC1054.2 186200 MOVE-INIT-F1-66. NC1054.2 186300 MOVE-TEST-F1-66-0. NC1054.2 186400 MOVE SPACE TO AE-0002. NC1054.2 186500 MOVE-TEST-F1-66-1. NC1054.2 186600 IF GRP-AE-0002 EQUAL TO " 0 " NC1054.2 186700 PERFORM PASS NC1054.2 186800 GO TO MOVE-WRITE-F1-66. NC1054.2 186900 GO TO MOVE-FAIL-F1-66. NC1054.2 187000 MOVE-DELETE-F1-66. NC1054.2 187100 PERFORM DE-LETE. NC1054.2 187200 GO TO MOVE-WRITE-F1-66. NC1054.2 187300 MOVE-FAIL-F1-66. NC1054.2 187400 MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2 187500 MOVE " 0 " TO CORRECT-A. NC1054.2 187600 PERFORM FAIL. NC1054.2 187700 MOVE-WRITE-F1-66. NC1054.2 187800 MOVE "MOVE-TEST-F1-66" TO PAR-NAME. NC1054.2 187900 PERFORM PRINT-DETAIL. NC1054.2 188000 MOVE-INIT-F1-67. NC1054.2 188100 MOVE "MOVE HIGH-VALUE " TO FEATURE. NC1054.2 188200 MOVE-TEST-F1-67-0. NC1054.2 188300 MOVE HIGH-VALUE TO GRP-WRK-DU-10V00. NC1054.2 188400 MOVE-TEST-F1-67-1. NC1054.2 188500 IF GRP-WRK-DU-10V00 EQUAL TO HIGH-VALUE NC1054.2 188600 PERFORM PASS NC1054.2 188700 GO TO MOVE-WRITE-F1-67. NC1054.2 188800 GO TO MOVE-FAIL-F1-67. NC1054.2 188900 MOVE-DELETE-F1-67. NC1054.2 189000 PERFORM DE-LETE. NC1054.2 189100 GO TO MOVE-WRITE-F1-67. NC1054.2 189200 MOVE-FAIL-F1-67. NC1054.2 189300 MOVE HIGH-VALU-10LONG TO CORRECT-A. NC1054.2 189400 MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2 189500 PERFORM FAIL. NC1054.2 189600 MOVE-WRITE-F1-67. NC1054.2 189700 MOVE "MOVE-TEST-F1-67" TO PAR-NAME. NC1054.2 189800 PERFORM PRINT-DETAIL. NC1054.2 189900 MOVE-INIT-F1-68. NC1054.2 190000 MOVE-TEST-F1-68-0. NC1054.2 190100 MOVE HIGH-VALUE TO WRK-XN-00049. NC1054.2 190200 MOVE-TEST-F1-68-1. NC1054.2 190300 IF GRP-WRK-XN-00049 EQUAL TO HIGH-VALUE NC1054.2 190400 PERFORM PASS NC1054.2 190500 GO TO MOVE-WRITE-F1-68. NC1054.2 190600 MOVE-DELETE-F1-68. NC1054.2 190700 PERFORM DE-LETE. NC1054.2 190800 GO TO MOVE-WRITE-F1-68. NC1054.2 190900 MOVE-FAIL-F1-68. NC1054.2 191000 MOVE HIGH-VALU-49LONG TO SEND-BREAKDOWN. NC1054.2 191100 MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2 191200 MOVE 049 TO LENGTH-COUNTER. NC1054.2 191300 PERFORM FAIL. NC1054.2 191400 PERFORM A20 THRU A60. NC1054.2 191500 MOVE-WRITE-F1-68. NC1054.2 191600 MOVE "MOVE-TEST-F1-68" TO PAR-NAME. NC1054.2 191700 PERFORM PRINT-DETAIL. NC1054.2 191800 MOVE-INIT-F1-69. NC1054.2 191900 MOVE-TEST-F1-69-0. NC1054.2 192000 MOVE HIGH-VALUE TO AE-0002. NC1054.2 192100 MOVE-TEST-F1-69-1. NC1054.2 192200 IF GRP-AE-0002 EQUAL TO HIGH-VALUE-EDIT NC1054.2 192300 PERFORM PASS NC1054.2 192400 GO TO MOVE-WRITE-F1-69. NC1054.2 192500 GO TO MOVE-FAIL-F1-69. NC1054.2 192600 MOVE-DELETE-F1-69. NC1054.2 192700 PERFORM DE-LETE. NC1054.2 192800 GO TO MOVE-WRITE-F1-69. NC1054.2 192900 MOVE-FAIL-F1-69. NC1054.2 193000 MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2 193100 MOVE HIGH-VALUE-EDIT TO CORRECT-A. NC1054.2 193200 PERFORM FAIL. NC1054.2 193300 MOVE-WRITE-F1-69. NC1054.2 193400 MOVE "MOVE-TEST-F1-69" TO PAR-NAME. NC1054.2 193500 PERFORM PRINT-DETAIL. NC1054.2 193600 MOVE-INIT-F1-70. NC1054.2 193700 MOVE "MOVE LOW-VALUE " TO FEATURE. NC1054.2 193800 MOVE-TEST-F1-70-0. NC1054.2 193900 MOVE LOW-VALUE TO GRP-WRK-DU-10V00. NC1054.2 194000 MOVE-TEST-F1-70-1. NC1054.2 194100 IF GRP-WRK-DU-10V00 EQUAL TO LOW-VALUE NC1054.2 194200 PERFORM PASS NC1054.2 194300 GO TO MOVE-WRITE-F1-70. NC1054.2 194400 GO TO MOVE-FAIL-F1-70. NC1054.2 194500 MOVE-DELETE-F1-70. NC1054.2 194600 PERFORM DE-LETE. NC1054.2 194700 GO TO MOVE-WRITE-F1-70. NC1054.2 194800 MOVE-FAIL-F1-70. NC1054.2 194900 MOVE LOW-VALU-10LONG TO CORRECT-A. NC1054.2 195000 MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2 195100 PERFORM FAIL. NC1054.2 195200 MOVE-WRITE-F1-70. NC1054.2 195300 MOVE "MOVE-TEST-F1-70" TO PAR-NAME. NC1054.2 195400 PERFORM PRINT-DETAIL. NC1054.2 195500 MOVE-INIT-F1-71. NC1054.2 195600 MOVE-TEST-F1-71-0. NC1054.2 195700 MOVE LOW-VALUE TO WRK-XN-00049. NC1054.2 195800 MOVE-TEST-F1-71-1. NC1054.2 195900 IF GRP-WRK-XN-00049 EQUAL TO LOW-VALUE NC1054.2 196000 PERFORM PASS NC1054.2 196100 GO TO MOVE-WRITE-F1-71. NC1054.2 196200 GO TO MOVE-FAIL-F1-71. NC1054.2 196300 MOVE-DELETE-F1-71. NC1054.2 196400 PERFORM DE-LETE. NC1054.2 196500 GO TO MOVE-WRITE-F1-71. NC1054.2 196600 MOVE-FAIL-F1-71. NC1054.2 196700 MOVE LOW-VALU-49LONG TO SEND-BREAKDOWN. NC1054.2 196800 MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2 196900 MOVE 049 TO LENGTH-COUNTER. NC1054.2 197000 PERFORM FAIL. NC1054.2 197100 PERFORM A20 THRU A60. NC1054.2 197200 MOVE-WRITE-F1-71. NC1054.2 197300 MOVE "MOVE-TEST-F1-71" TO PAR-NAME. NC1054.2 197400 PERFORM PRINT-DETAIL. NC1054.2 197500 MOVE-INIT-F1-72. NC1054.2 197600 MOVE LOW-VALUE TO HIGH-1 HIGH-2 HIGH-3. NC1054.2 197700 MOVE-TEST-F1-72-0. NC1054.2 197800 MOVE LOW-VALUE TO AE-0002. NC1054.2 197900 MOVE-TEST-F1-72-1. NC1054.2 198000 IF GRP-AE-0002 EQUAL TO HIGH-VALUE-EDIT NC1054.2 198100 PERFORM PASS NC1054.2 198200 GO TO MOVE-WRITE-F1-72. NC1054.2 198300 GO TO MOVE-FAIL-F1-72. NC1054.2 198400 MOVE-DELETE-F1-72. NC1054.2 198500 PERFORM DE-LETE. NC1054.2 198600 GO TO MOVE-WRITE-F1-72. NC1054.2 198700 MOVE-FAIL-F1-72. NC1054.2 198800 MOVE HIGH-VALUE-EDIT TO CORRECT-A. NC1054.2 198900 MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2 199000 PERFORM FAIL. NC1054.2 199100 MOVE-WRITE-F1-72. NC1054.2 199200 MOVE "MOVE-TEST-F1-72" TO PAR-NAME. NC1054.2 199300 PERFORM PRINT-DETAIL. NC1054.2 199400 MOVE-INIT-F1-73. NC1054.2 199500 MOVE "MOVE QUOTE " TO FEATURE. NC1054.2 199600 MOVE-TEST-F1-73-0. NC1054.2 199700 MOVE QUOTE TO GRP-WRK-DU-10V00. NC1054.2 199800 MOVE-TEST-F1-73-1. NC1054.2 199900 IF GRP-WRK-DU-10V00 EQUAL TO QUOTE NC1054.2 200000 PERFORM PASS NC1054.2 200100 GO TO MOVE-WRITE-F1-73. NC1054.2 200200 GO TO MOVE-FAIL-F1-73. NC1054.2 200300 MOVE-DELETE-F1-73. NC1054.2 200400 PERFORM DE-LETE. NC1054.2 200500 GO TO MOVE-WRITE-F1-73. NC1054.2 200600 MOVE-FAIL-F1-73. NC1054.2 200700 MOVE QUOTE-10LONG TO CORRECT-A. NC1054.2 200800 MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2 200900 PERFORM FAIL. NC1054.2 201000 MOVE-WRITE-F1-73. NC1054.2 201100 MOVE "MOVE-TEST-F1-73" TO PAR-NAME. NC1054.2 201200 PERFORM PRINT-DETAIL. NC1054.2 201300 MOVE-INIT-F1-74. NC1054.2 201400 MOVE-TEST-F1-74-0. NC1054.2 201500 MOVE QUOTE TO WRK-XN-00049. NC1054.2 201600 MOVE-TEST-F1-74-1. NC1054.2 201700 IF GRP-WRK-XN-00049 EQUAL TO QUOTE NC1054.2 201800 PERFORM PASS NC1054.2 201900 GO TO MOVE-WRITE-F1-74. NC1054.2 202000 GO TO MOVE-FAIL-F1-74. NC1054.2 202100 MOVE-DELETE-F1-74. NC1054.2 202200 PERFORM DE-LETE. NC1054.2 202300 GO TO MOVE-WRITE-F1-74. NC1054.2 202400 MOVE-FAIL-F1-74. NC1054.2 202500 MOVE QUOTE-49LONG TO SEND-BREAKDOWN. NC1054.2 202600 MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2 202700 MOVE 049 TO LENGTH-COUNTER. NC1054.2 202800 PERFORM FAIL. NC1054.2 202900 PERFORM A20 THRU A60. NC1054.2 203000 MOVE-WRITE-F1-74. NC1054.2 203100 MOVE "MOVE-TEST-F1-74" TO PAR-NAME. NC1054.2 203200 PERFORM PRINT-DETAIL. NC1054.2 203300 MOVE-INIT-F1-75. NC1054.2 203400 MOVE QUOTE TO HIGH-1 HIGH-2 HIGH-3. NC1054.2 203500 MOVE-TEST-F1-75-0. NC1054.2 203600 MOVE QUOTE TO AE-0002. NC1054.2 203700 MOVE-TEST-F1-75-1. NC1054.2 203800 IF GRP-AE-0002 EQUAL TO HIGH-VALUE-EDIT NC1054.2 203900 PERFORM PASS NC1054.2 204000 GO TO MOVE-WRITE-F1-75. NC1054.2 204100 GO TO MOVE-FAIL-F1-75. NC1054.2 204200 MOVE-DELETE-F1-75. NC1054.2 204300 PERFORM DE-LETE. NC1054.2 204400 GO TO MOVE-WRITE-F1-75. NC1054.2 204500 MOVE-FAIL-F1-75. NC1054.2 204600 MOVE HIGH-VALUE-EDIT TO CORRECT-A. NC1054.2 204700 MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2 204800 PERFORM FAIL. NC1054.2 204900 MOVE-WRITE-F1-75. NC1054.2 205000 MOVE "MOVE-TEST-F1-75" TO PAR-NAME. NC1054.2 205100 PERFORM PRINT-DETAIL. NC1054.2 205200 MOVE-INIT-F1-76. NC1054.2 205300 MOVE-TEST-F1-76-0. NC1054.2 205400 MOVE "A1B2C3D4E5" TO GRP-WRK-DU-10V00. NC1054.2 205500 MOVE-TEST-F1-76-1. NC1054.2 205600 IF GRP-WRK-DU-10V00 EQUAL TO "A1B2C3D4E5" NC1054.2 205700 PERFORM PASS NC1054.2 205800 GO TO MOVE-WRITE-F1-76. NC1054.2 205900 GO TO MOVE-FAIL-F1-76. NC1054.2 206000 MOVE-DELETE-F1-76. NC1054.2 206100 PERFORM DE-LETE. NC1054.2 206200 GO TO MOVE-WRITE-F1-76. NC1054.2 206300 MOVE-FAIL-F1-76. NC1054.2 206400 MOVE "A1B2C3D4E5" TO CORRECT-A. NC1054.2 206500 MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2 206600 PERFORM FAIL. NC1054.2 206700 MOVE-WRITE-F1-76. NC1054.2 206800 MOVE "MOVE ALPHNUM LITERAL" TO FEATURE. NC1054.2 206900 MOVE "MOVE-TEST-F1-76" TO PAR-NAME. NC1054.2 207000 PERFORM PRINT-DETAIL. NC1054.2 207100 MOVE-INIT-F1-77. NC1054.2 207200 MOVE-TEST-F1-77-0. NC1054.2 207300 MOVE "ABCDEFGHIJK" TO WRK-AN-00026. NC1054.2 207400 MOVE-TEST-F1-77-1. NC1054.2 207500 IF GRP-WRK-AN-00026 EQUAL TO "ABCDEFGHIJK " NC1054.2 207600 PERFORM PASS NC1054.2 207700 GO TO MOVE-WRITE-F1-77. NC1054.2 207800 GO TO MOVE-FAIL-F1-77. NC1054.2 207900 MOVE-DELETE-F1-77. NC1054.2 208000 PERFORM DE-LETE. NC1054.2 208100 GO TO MOVE-WRITE-F1-77. NC1054.2 208200 MOVE-FAIL-F1-77. NC1054.2 208300 MOVE "ABCDEFGHIJK " TO SEND-BREAKDOWN. NC1054.2 208400 MOVE GRP-WRK-AN-00026 TO RECEIVE-BREAKDOWN. NC1054.2 208500 MOVE 026 TO LENGTH-COUNTER. NC1054.2 208600 PERFORM FAIL. NC1054.2 208700 PERFORM A20 THRU A40. NC1054.2 208800 MOVE-WRITE-F1-77. NC1054.2 208900 MOVE "MOVE ALPHA LITERAL " TO FEATURE. NC1054.2 209000 MOVE "MOVE-TEST-F1-77" TO PAR-NAME. NC1054.2 209100 PERFORM PRINT-DETAIL. NC1054.2 209200 MOVE-INIT-F1-78. NC1054.2 209300 MOVE "MOVE ALPHNUM LITERAL" TO FEATURE. NC1054.2 209400 MOVE-TEST-F1-78-0. NC1054.2 209500 MOVE "1A2B3C4D5E6F" TO WRK-XN-00049. NC1054.2 209600 MOVE-TEST-F1-78-1. NC1054.2 209700 IF GRP-WRK-XN-00049 EQUAL TO NC1054.2 209800 "1A2B3C4D5E6F " NC1054.2 209900 PERFORM PASS NC1054.2 210000 GO TO MOVE-WRITE-F1-78. NC1054.2 210100 GO TO MOVE-FAIL-F1-78. NC1054.2 210200 MOVE-DELETE-F1-78. NC1054.2 210300 PERFORM DE-LETE. NC1054.2 210400 GO TO MOVE-WRITE-F1-78. NC1054.2 210500 MOVE-FAIL-F1-78. NC1054.2 210600 MOVE "1A2B3C4D5E6F " NC1054.2 210700 TO SEND-BREAKDOWN. NC1054.2 210800 MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2 210900 MOVE 049 TO LENGTH-COUNTER. NC1054.2 211000 PERFORM FAIL. NC1054.2 211100 PERFORM A20 THRU A60. NC1054.2 211200 MOVE-WRITE-F1-78. NC1054.2 211300 MOVE "MOVE-TEST-F1-78" TO PAR-NAME. NC1054.2 211400 PERFORM PRINT-DETAIL. NC1054.2 211500 MOVE-INIT-F1-79. NC1054.2 211600 MOVE-TEST-F1-79-0. NC1054.2 211700 MOVE "1Z2Y3X4W5V" TO AE-0002. NC1054.2 211800 MOVE-TEST-F1-79-1. NC1054.2 211900 IF GRP-AE-0002 EQUAL TO "1Z02Y 3X4" NC1054.2 212000 PERFORM PASS NC1054.2 212100 GO TO MOVE-WRITE-F1-79. NC1054.2 212200 GO TO MOVE-FAIL-F1-79. NC1054.2 212300 MOVE-DELETE-F1-79. NC1054.2 212400 PERFORM DE-LETE. NC1054.2 212500 GO TO MOVE-WRITE-F1-79. NC1054.2 212600 MOVE-FAIL-F1-79. NC1054.2 212700 MOVE "1Z02Y 3X4" TO CORRECT-A. NC1054.2 212800 MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2 212900 PERFORM FAIL. NC1054.2 213000 MOVE-WRITE-F1-79. NC1054.2 213100 MOVE "MOVE-TEST-F1-79" TO PAR-NAME. NC1054.2 213200 PERFORM PRINT-DETAIL. NC1054.2 213300 MOVE-INIT-F1-80. NC1054.2 213400 MOVE-TEST-F1-80-0. NC1054.2 213500 MOVE "9876543210" TO WRK-DU-10V00. NC1054.2 213600 MOVE-TEST-F1-80-1. NC1054.2 213700 IF GRP-WRK-DU-10V00 EQUAL TO "9876543210" NC1054.2 213800 PERFORM PASS NC1054.2 213900 GO TO MOVE-WRITE-F1-80. NC1054.2 214000 GO TO MOVE-FAIL-F1-80. NC1054.2 214100 MOVE-DELETE-F1-80. NC1054.2 214200 PERFORM DE-LETE. NC1054.2 214300 GO TO MOVE-WRITE-F1-80. NC1054.2 214400 MOVE-FAIL-F1-80. NC1054.2 214500 MOVE "9876543210" TO CORRECT-A. NC1054.2 214600 MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2 214700 PERFORM FAIL. NC1054.2 214800 MOVE-WRITE-F1-80. NC1054.2 214900 MOVE "MOVE-TEST-F1-80" TO PAR-NAME. NC1054.2 215000 PERFORM PRINT-DETAIL. NC1054.2 215100 MOVE-INIT-F1-81. NC1054.2 215200 MOVE-TEST-F1-81-0. NC1054.2 215300 MOVE "9876543210" TO NE-0002. NC1054.2 215400 MOVE-TEST-F1-81-1. NC1054.2 215500 IF GRP-NE-0002 EQUAL TO "9876543,210" NC1054.2 215600 PERFORM PASS NC1054.2 215700 GO TO MOVE-WRITE-F1-81. NC1054.2 215800 GO TO MOVE-FAIL-F1-81. NC1054.2 215900 MOVE-DELETE-F1-81. NC1054.2 216000 PERFORM DE-LETE. NC1054.2 216100 GO TO MOVE-WRITE-F1-81. NC1054.2 216200 MOVE-FAIL-F1-81. NC1054.2 216300 MOVE "9876543,210" TO CORRECT-A. NC1054.2 216400 MOVE GRP-NE-0002 TO COMPUTED-A. NC1054.2 216500 PERFORM FAIL. NC1054.2 216600 MOVE-WRITE-F1-81. NC1054.2 216700 MOVE "MOVE-TEST-F1-81" TO PAR-NAME. NC1054.2 216800 PERFORM PRINT-DETAIL. NC1054.2 216900 MOVE-INIT-F1-82. NC1054.2 217000 MOVE "MOVE NUMERIC LITERAL" TO FEATURE. NC1054.2 217100 MOVE-TEST-F1-82-0. NC1054.2 217200 MOVE 0123456789 TO GRP-WRK-DU-10V00. NC1054.2 217300 MOVE-TEST-F1-82-1. NC1054.2 217400 IF GRP-WRK-DU-10V00 EQUAL TO "0123456789" NC1054.2 217500 PERFORM PASS NC1054.2 217600 GO TO MOVE-WRITE-F1-82. NC1054.2 217700 GO TO MOVE-FAIL-F1-82. NC1054.2 217800 MOVE-DELETE-F1-82. NC1054.2 217900 PERFORM DE-LETE. NC1054.2 218000 GO TO MOVE-WRITE-F1-82. NC1054.2 218100 MOVE-FAIL-F1-82. NC1054.2 218200 MOVE "0123456789" TO CORRECT-A. NC1054.2 218300 MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2 218400 PERFORM FAIL. NC1054.2 218500 MOVE-WRITE-F1-82. NC1054.2 218600 MOVE "MOVE-TEST-F1-82" TO PAR-NAME. NC1054.2 218700 PERFORM PRINT-DETAIL. NC1054.2 218800 MOVE-INIT-F1-83. NC1054.2 218900 MOVE-TEST-F1-83-0. NC1054.2 219000 MOVE 0918273645 TO WRK-XN-00049. NC1054.2 219100 MOVE-TEST-F1-83-1. NC1054.2 219200 IF GRP-WRK-XN-00049 EQUAL TO NC1054.2 219300 "0918273645 " NC1054.2 219400 PERFORM PASS NC1054.2 219500 GO TO MOVE-WRITE-F1-83. NC1054.2 219600 GO TO MOVE-FAIL-F1-83. NC1054.2 219700 MOVE-DELETE-F1-83. NC1054.2 219800 PERFORM DE-LETE. NC1054.2 219900 GO TO MOVE-WRITE-F1-83. NC1054.2 220000 MOVE-FAIL-F1-83. NC1054.2 220100 MOVE "0918273645 " NC1054.2 220200 TO SEND-BREAKDOWN. NC1054.2 220300 MOVE GRP-WRK-XN-00049 TO RECEIVE-BREAKDOWN. NC1054.2 220400 MOVE 049 TO LENGTH-COUNTER. NC1054.2 220500 PERFORM FAIL. NC1054.2 220600 PERFORM A20 THRU A60. NC1054.2 220700 MOVE-WRITE-F1-83. NC1054.2 220800 MOVE "MOVE-TEST-F1-82" TO PAR-NAME. NC1054.2 220900 PERFORM PRINT-DETAIL. NC1054.2 221000 MOVE-INIT-F1-84. NC1054.2 221100 MOVE-TEST-F1-84-0. NC1054.2 221200 MOVE 019823 TO AE-0002. NC1054.2 221300 MOVE-TEST-F1-84-1. NC1054.2 221400 IF GRP-AE-0002 EQUAL TO "01098 23 " NC1054.2 221500 PERFORM PASS NC1054.2 221600 GO TO MOVE-WRITE-F1-84. NC1054.2 221700 GO TO MOVE-FAIL-F1-84. NC1054.2 221800 MOVE-DELETE-F1-84. NC1054.2 221900 PERFORM DE-LETE. NC1054.2 222000 GO TO MOVE-WRITE-F1-84. NC1054.2 222100 MOVE-FAIL-F1-84. NC1054.2 222200 MOVE "01098 23 " TO CORRECT-A. NC1054.2 222300 MOVE GRP-AE-0002 TO COMPUTED-A. NC1054.2 222400 PERFORM FAIL. NC1054.2 222500 MOVE-WRITE-F1-84. NC1054.2 222600 MOVE "MOVE-TEST-F1-84" TO PAR-NAME. NC1054.2 222700 PERFORM PRINT-DETAIL. NC1054.2 222800 MOVE-INIT-F1-85. NC1054.2 222900 MOVE-TEST-F1-85-0. NC1054.2 223000 MOVE 9876543210 TO WRK-DU-10V00. NC1054.2 223100 MOVE-TEST-F1-85-1. NC1054.2 223200 IF GRP-WRK-DU-10V00 EQUAL TO "9876543210" NC1054.2 223300 PERFORM PASS NC1054.2 223400 GO TO MOVE-WRITE-F1-85. NC1054.2 223500 GO TO MOVE-FAIL-F1-85. NC1054.2 223600 MOVE-DELETE-F1-85. NC1054.2 223700 PERFORM DE-LETE. NC1054.2 223800 GO TO MOVE-WRITE-F1-85. NC1054.2 223900 MOVE-FAIL-F1-85. NC1054.2 224000 MOVE "9876543210" TO CORRECT-A. NC1054.2 224100 MOVE GRP-WRK-DU-10V00 TO COMPUTED-A. NC1054.2 224200 PERFORM FAIL. NC1054.2 224300 MOVE-WRITE-F1-85. NC1054.2 224400 MOVE "MOVE-TEST-F1-85" TO PAR-NAME. NC1054.2 224500 PERFORM PRINT-DETAIL. NC1054.2 224600 MOVE-INIT-F1-86. NC1054.2 224700 MOVE-TEST-F1-86-0. NC1054.2 224800 MOVE 00012345 TO NE-0002. NC1054.2 224900 MOVE-TEST-F1-86-1. NC1054.2 225000 IF GRP-NE-0002 EQUAL TO " 12,345" NC1054.2 225100 PERFORM PASS NC1054.2 225200 GO TO MOVE-WRITE-F1-86. NC1054.2 225300 GO TO MOVE-FAIL-F1-86. NC1054.2 225400 MOVE-DELETE-F1-86. NC1054.2 225500 PERFORM DE-LETE. NC1054.2 225600 GO TO MOVE-WRITE-F1-86. NC1054.2 225700 MOVE-FAIL-F1-86. NC1054.2 225800 MOVE " 12,345" TO CORRECT-A. NC1054.2 225900 MOVE GRP-NE-0002 TO COMPUTED-A. NC1054.2 226000 PERFORM FAIL. NC1054.2 226100 MOVE-WRITE-F1-86. NC1054.2 226200 MOVE "MOVE-TEST-F1-86" TO PAR-NAME. NC1054.2 226300 PERFORM PRINT-DETAIL. NC1054.2 226400 MOVE-INIT-F1-87. NC1054.2 226500 MOVE-TEST-F1-87-0. NC1054.2 226600 MOVE 000011 .1223 TO NE-0001. NC1054.2 226700 MOVE-TEST-F1-87-1. NC1054.2 226800 IF GRP-NE-0001 EQUAL TO " 011.122,3" NC1054.2 226900 PERFORM PASS NC1054.2 227000 GO TO MOVE-WRITE-F1-87. NC1054.2 227100 GO TO MOVE-FAIL-F1-87. NC1054.2 227200 MOVE-DELETE-F1-87. NC1054.2 227300 PERFORM DE-LETE. NC1054.2 227400 GO TO MOVE-WRITE-F1-87. NC1054.2 227500 MOVE-FAIL-F1-87. NC1054.2 227600 MOVE " 011.122,3" TO CORRECT-A. NC1054.2 227700 MOVE GRP-NE-0001 TO COMPUTED-A. NC1054.2 227800 PERFORM FAIL. NC1054.2 227900 MOVE-WRITE-F1-87. NC1054.2 228000 MOVE "MOVE-TEST-F1-87" TO PAR-NAME. NC1054.2 228100 PERFORM PRINT-DETAIL. NC1054.2 228200 MOVE-INIT-F1-88. NC1054.2 228300 MOVE +60666 TO SPOS-LIT1. NC1054.2 228400 MOVE-TEST-F1-88-0. NC1054.2 228500 MOVE SPOS-LIT1 TO NUMERIC-LIT. NC1054.2 228600 MOVE-TEST-F1-88-1. NC1054.2 228700 IF NUMERIC-LIT EQUAL TO "60666" NC1054.2 228800 PERFORM PASS NC1054.2 228900 GO TO MOVE-WRITE-F1-88. NC1054.2 229000 MOVE GRP-LEV-NUMERIC TO COMPUTED-A. NC1054.2 229100 MOVE 60666 TO CORRECT-A. NC1054.2 229200 PERFORM FAIL. NC1054.2 229300 GO TO MOVE-WRITE-F1-88. NC1054.2 229400 MOVE-DELETE-F1-88. NC1054.2 229500 PERFORM DE-LETE. NC1054.2 229600 MOVE-WRITE-F1-88. NC1054.2 229700 MOVE "MOVE-TEST-F1-88" TO PAR-NAME. NC1054.2 229800 PERFORM PRINT-DETAIL. NC1054.2 229900 MOVE-INIT-F1-89. NC1054.2 230000 MOVE -70717 TO SPOS-LIT1. NC1054.2 230100 MOVE-TEST-F1-89-0. NC1054.2 230200 MOVE SNEG-LIT1 TO NUMERIC-LIT. NC1054.2 230300 MOVE-TEST-F1-89-1. NC1054.2 230400 IF NUMERIC-LIT EQUAL TO "70717" NC1054.2 230500 PERFORM PASS NC1054.2 230600 GO TO MOVE-WRITE-F1-89. NC1054.2 230700 MOVE GRP-LEV-NUMERIC TO COMPUTED-A. NC1054.2 230800 MOVE 70717 TO CORRECT-A. NC1054.2 230900 PERFORM FAIL. NC1054.2 231000 GO TO MOVE-WRITE-F1-89. NC1054.2 231100 MOVE-DELETE-F1-89. NC1054.2 231200 PERFORM DE-LETE. NC1054.2 231300 MOVE-WRITE-F1-89. NC1054.2 231400 MOVE "MOVE-TEST-F1-89" TO PAR-NAME. NC1054.2 231500 PERFORM PRINT-DETAIL. NC1054.2 231600 MOVE-INIT-F1-90. NC1054.2 231700 MOVE +60667 TO SPOS-LIT2. NC1054.2 231800 MOVE-TEST-F1-90-0. NC1054.2 231900 MOVE SPOS-LIT2 TO NUMERIC-LIT. NC1054.2 232000 MOVE-TEST-F1-90-1. NC1054.2 232100 IF NUMERIC-LIT EQUAL TO 60667 NC1054.2 232200 PERFORM PASS NC1054.2 232300 GO TO MOVE-WRITE-F1-90. NC1054.2 232400 MOVE GRP-LEV-NUMERIC TO COMPUTED-A. NC1054.2 232500 MOVE 60667 TO CORRECT-A. NC1054.2 232600 PERFORM FAIL. NC1054.2 232700 GO TO MOVE-WRITE-F1-90. NC1054.2 232800 MOVE-DELETE-F1-90. NC1054.2 232900 PERFORM DE-LETE. NC1054.2 233000 MOVE-WRITE-F1-90. NC1054.2 233100 MOVE "MOVE-TEST-F1-90" TO PAR-NAME. NC1054.2 233200 PERFORM PRINT-DETAIL. NC1054.2 233300 MOVE-INIT-F1-91. NC1054.2 233400 MOVE -70718 TO SNEG-LIT2. NC1054.2 233500 MOVE-TEST-F1-91-0. NC1054.2 233600 MOVE SNEG-LIT2 TO NUMERIC-LIT. NC1054.2 233700 MOVE-TEST-F1-91-1. NC1054.2 233800 IF NUMERIC-LIT EQUAL TO 70718 NC1054.2 233900 PERFORM PASS NC1054.2 234000 GO TO MOVE-WRITE-F1-91. NC1054.2 234100 MOVE "+S9 MOVED TO PICTURE X " TO RE-MARK. NC1054.2 234200 MOVE NUMERIC-LIT TO COMPUTED-A. NC1054.2 234300 MOVE "70718" TO CORRECT-A. NC1054.2 234400 PERFORM FAIL. NC1054.2 234500 GO TO MOVE-WRITE-F1-91. NC1054.2 234600 MOVE-DELETE-F1-91. NC1054.2 234700 PERFORM DE-LETE. NC1054.2 234800 MOVE-WRITE-F1-91. NC1054.2 234900 MOVE "MOVE-TEST-F1-91" TO PAR-NAME. NC1054.2 235000 PERFORM PRINT-DETAIL. NC1054.2 235100 MOVE-INIT-F1-92. NC1054.2 235200 MOVE +60666 TO SPOS-LIT1. NC1054.2 235300 MOVE-TEST-F1-92-0. NC1054.2 235400 MOVE SPOS-LIT1 TO ALPHA-LIT. NC1054.2 235500 MOVE-TEST-F1-92-1. NC1054.2 235600 IF ALPHA-LIT EQUAL TO "60666" NC1054.2 235700 PERFORM PASS NC1054.2 235800 GO TO MOVE-WRITE-F1-92. NC1054.2 235900 MOVE ALPHA-LIT TO COMPUTED-A. NC1054.2 236000 MOVE "60666" TO CORRECT-A. NC1054.2 236100 MOVE "SIGN SHOULD NOT BE MOVED" TO RE-MARK. NC1054.2 236200 PERFORM FAIL. NC1054.2 236300 GO TO MOVE-WRITE-F1-92. NC1054.2 236400 MOVE-DELETE-F1-92. NC1054.2 236500 PERFORM DE-LETE. NC1054.2 236600 MOVE-WRITE-F1-92. NC1054.2 236700 MOVE "MOVE-TEST-F1-92" TO PAR-NAME. NC1054.2 236800 PERFORM PRINT-DETAIL. NC1054.2 236900 MOVE-INIT-F1-93. NC1054.2 237000 MOVE -70717 TO SNEG-LIT1. NC1054.2 237100 MOVE-TEST-F1-93-0. NC1054.2 237200 MOVE SNEG-LIT1 TO ALPHA-LIT. NC1054.2 237300 MOVE-TEST-F1-93-1. NC1054.2 237400 IF ALPHA-LIT EQUAL TO "70717" NC1054.2 237500 PERFORM PASS NC1054.2 237600 GO TO MOVE-WRITE-F1-93. NC1054.2 237700 MOVE ALPHA-LIT TO COMPUTED-A. NC1054.2 237800 MOVE "70717" TO CORRECT-A. NC1054.2 237900 MOVE "SIGN SHOULD NOT BE MOVED" TO RE-MARK. NC1054.2 238000 PERFORM FAIL. NC1054.2 238100 GO TO MOVE-WRITE-F1-93. NC1054.2 238200 MOVE-DELETE-F1-93. NC1054.2 238300 PERFORM DE-LETE. NC1054.2 238400 MOVE-WRITE-F1-93. NC1054.2 238500 MOVE "MOVE-TEST-F1-93" TO PAR-NAME. NC1054.2 238600 PERFORM PRINT-DETAIL. NC1054.2 238700 MOVE-INIT-F1-94. NC1054.2 238800 MOVE "JUSTIFIED MOVES " TO FEATURE. NC1054.2 238900 MOVE 99 TO GRP-NUMERIC-99. NC1054.2 239000 MOVE-TEST-F1-94-0. NC1054.2 239100 MOVE GRP-NUMERIC-99 TO RECEIVE-1 RECEIVE-4 RECEIVE-5 NC1054.2 239200 RECEIVE-6. NC1054.2 239300 MOVE-TEST-F1-94-1. NC1054.2 239400 IF RECEIVE-1 EQUAL TO "99 " NC1054.2 239500 PERFORM PASS NC1054.2 239600 GO TO MOVE-WRITE-F1-94. NC1054.2 239700 MOVE RECEIVE-1 TO COMPUTED-A. NC1054.2 239800 MOVE "99 " TO CORRECT-A. NC1054.2 239900 PERFORM FAIL. NC1054.2 240000 GO TO MOVE-WRITE-F1-94. NC1054.2 240100 MOVE-DELETE-F1-94. NC1054.2 240200 PERFORM DE-LETE. NC1054.2 240300 MOVE-WRITE-F1-94. NC1054.2 240400 MOVE "MOVE-TEST-F1-94" TO PAR-NAME. NC1054.2 240500 PERFORM PRINT-DETAIL. NC1054.2 240600 MOVE-TEST-F1-95. NC1054.2 240700 IF RECEIVE-4 EQUAL TO 99 .00 NC1054.2 240800 PERFORM PASS NC1054.2 240900 GO TO MOVE-WRITE-F1-95. NC1054.2 241000 MOVE 99 .00 TO CORRECT-N. NC1054.2 241100 MOVE RECEIVE-4 TO COMPUTED-N. NC1054.2 241200 PERFORM FAIL. NC1054.2 241300 GO TO MOVE-WRITE-F1-95. NC1054.2 241400 MOVE-DELETE-F1-95. NC1054.2 241500 PERFORM DE-LETE. NC1054.2 241600 MOVE-WRITE-F1-95. NC1054.2 241700 MOVE "MOVE-TEST-F1-95" TO PAR-NAME. NC1054.2 241800 PERFORM PRINT-DETAIL. NC1054.2 241900 MOVE-TEST-F1-96. NC1054.2 242000 IF RECEIVE-5 EQUAL TO "99 " NC1054.2 242100 PERFORM PASS NC1054.2 242200 GO TO MOVE-WRITE-F1-96. NC1054.2 242300 MOVE RECEIVE-5 TO COMPUTED-A. NC1054.2 242400 MOVE "99 " TO CORRECT-A. NC1054.2 242500 PERFORM FAIL. NC1054.2 242600 GO TO MOVE-WRITE-F1-96. NC1054.2 242700 MOVE-DELETE-F1-96. NC1054.2 242800 PERFORM DE-LETE. NC1054.2 242900 MOVE-WRITE-F1-96. NC1054.2 243000 MOVE "MOVE-TEST-F1-96" TO PAR-NAME. NC1054.2 243100 PERFORM PRINT-DETAIL. NC1054.2 243200 MOVE-TEST-F1-97. NC1054.2 243300 IF RECEIVE-6 EQUAL TO "99 " NC1054.2 243400 PERFORM PASS NC1054.2 243500 GO TO MOVE-WRITE-F1-97. NC1054.2 243600 MOVE RECEIVE-6 TO COMPUTED-A. NC1054.2 243700 MOVE "99 " TO CORRECT-A. NC1054.2 243800 PERFORM FAIL. NC1054.2 243900 GO TO MOVE-WRITE-F1-97. NC1054.2 244000 MOVE-DELETE-F1-97. NC1054.2 244100 PERFORM DE-LETE. NC1054.2 244200 MOVE-WRITE-F1-97. NC1054.2 244300 MOVE "MOVE-TEST-F1-97" TO PAR-NAME. NC1054.2 244400 PERFORM PRINT-DETAIL. NC1054.2 244500 MOVE-INIT-F1-98. NC1054.2 244600 MOVE "MOVE (COMP/DISPLAY)" TO FEATURE. NC1054.2 244700 MOVE 798 TO WRK-CS-18V00. NC1054.2 244800 MOVE-TEST-F1-98-0. NC1054.2 244900 MOVE WRK-CS-18V00 TO WRK-DS-18V00. NC1054.2 245000 MOVE-TEST-F1-98-1. NC1054.2 245100 IF WRK-DS-18V00 EQUAL TO WRK-CS-18V00 NC1054.2 245200 PERFORM PASS NC1054.2 245300 GO TO MOVE-WRITE-F1-98. NC1054.2 245400 MOVE WRK-CS-18V00 TO CORRECT-18V0. NC1054.2 245500 MOVE WRK-DS-18V00 TO COMPUTED-18V0. NC1054.2 245600 PERFORM FAIL. NC1054.2 245700 MOVE "FIELDS COMPARED UNEQUAL" TO RE-MARK. NC1054.2 245800 GO TO MOVE-WRITE-F1-98. NC1054.2 245900 MOVE-DELETE-F1-98. NC1054.2 246000 PERFORM DE-LETE. NC1054.2 246100 MOVE-WRITE-F1-98. NC1054.2 246200 MOVE "MOVE-TEST-F1-98" TO PAR-NAME. NC1054.2 246300 PERFORM PRINT-DETAIL. NC1054.2 246400 MOVE-INIT-F1-99. NC1054.2 246500 MOVE 798 TO WRK-CS-18V00. NC1054.2 246600 MOVE-TEST-F1-99-0. NC1054.2 246700 MOVE WRK-CS-18V00 TO WRK-DS-10V00. NC1054.2 246800 MOVE-TEST-F1-99-1. NC1054.2 246900 IF WRK-DS-10V00 EQUAL TO WRK-CS-18V00 NC1054.2 247000 PERFORM PASS NC1054.2 247100 GO TO MOVE-WRITE-F1-99. NC1054.2 247200 MOVE WRK-DS-10V00 TO CORRECT-18V0. NC1054.2 247300 MOVE WRK-CS-18V00 TO COMPUTED-18V0. NC1054.2 247400 PERFORM FAIL. NC1054.2 247500 GO TO MOVE-WRITE-F1-99. NC1054.2 247600 MOVE-DELETE-F1-99. NC1054.2 247700 PERFORM DE-LETE. NC1054.2 247800 MOVE-WRITE-F1-99. NC1054.2 247900 MOVE "MOVE-TEST-F1-99" TO PAR-NAME. NC1054.2 248000 PERFORM PRINT-DETAIL. NC1054.2 248100 MOVE-INIT-F1-100. NC1054.2 248200 MOVE 7 TO WRK-DS-18V00. NC1054.2 248300 MOVE-TEST-F1-100-0. NC1054.2 248400 MOVE WRK-DS-18V00 TO WRK-CS-01V00. NC1054.2 248500 MOVE-TEST-F1-100-1. NC1054.2 248600 IF WRK-CS-01V00 EQUAL TO WRK-DS-18V00 NC1054.2 248700 PERFORM PASS NC1054.2 248800 GO TO MOVE-WRITE-F1-100. NC1054.2 248900 MOVE WRK-DS-18V00 TO COMPUTED-18V0 NC1054.2 249000 MOVE WRK-CS-01V00 TO CORRECT-18V0. NC1054.2 249100 PERFORM FAIL. NC1054.2 249200 GO TO MOVE-WRITE-F1-100. NC1054.2 249300 MOVE-DELETE-F1-100. NC1054.2 249400 PERFORM DE-LETE. NC1054.2 249500 MOVE-WRITE-F1-100. NC1054.2 249600 MOVE "MOVE-TEST-F1-100" TO PAR-NAME. NC1054.2 249700 PERFORM PRINT-DETAIL. NC1054.2 249800 MOVE-INIT-F1-101. NC1054.2 249900 MOVE 0123456789 TO WRK-DS-10V00. NC1054.2 250000 MOVE-TEST-F1-101-0. NC1054.2 250100 MOVE WRK-DS-10V00 TO WRK-CS-18V00. NC1054.2 250200 MOVE-TEST-F1-101-1. NC1054.2 250300 IF WRK-DS-10V00 EQUAL TO WRK-CS-18V00 NC1054.2 250400 PERFORM PASS NC1054.2 250500 GO TO MOVE-WRITE-F1-101. NC1054.2 250600 MOVE WRK-DS-10V00 TO COMPUTED-18V0. NC1054.2 250700 MOVE WRK-CS-18V00 TO CORRECT-18V0. NC1054.2 250800 MOVE "FIELDS COMPARED UNEQUAL" TO RE-MARK. NC1054.2 250900 PERFORM FAIL. NC1054.2 251000 GO TO MOVE-WRITE-F1-101. NC1054.2 251100 MOVE-DELETE-F1-101. NC1054.2 251200 PERFORM DE-LETE. NC1054.2 251300 MOVE-WRITE-F1-101. NC1054.2 251400 MOVE "MOVE-TEST-F1-101" TO PAR-NAME. NC1054.2 251500 PERFORM PRINT-DETAIL. NC1054.2 251600 MOVE-INIT-F1-102. NC1054.2 251700 MOVE 3 TO WRK-CS-18V00. NC1054.2 251800 MOVE-TEST-F1-102-0. NC1054.2 251900 MOVE WRK-CS-18V00 TO WRK-DS-01V00. NC1054.2 252000 MOVE-TEST-F1-102-1. NC1054.2 252100 IF WRK-CS-18V00 EQUAL TO WRK-DS-01V00 NC1054.2 252200 PERFORM PASS NC1054.2 252300 GO TO MOVE-WRITE-F1-102. NC1054.2 252400 MOVE WRK-CS-18V00 TO COMPUTED-18V0. NC1054.2 252500 MOVE WRK-DS-01V00 TO CORRECT-18V0. NC1054.2 252600 MOVE "FIELDS COMPARED UNEQUAL" TO RE-MARK. NC1054.2 252700 PERFORM FAIL. NC1054.2 252800 GO TO MOVE-WRITE-F1-102. NC1054.2 252900 MOVE-DELETE-F1-102. NC1054.2 253000 PERFORM DE-LETE. NC1054.2 253100 MOVE-WRITE-F1-102. NC1054.2 253200 MOVE "MOVE-TEST-F1-102" TO PAR-NAME. NC1054.2 253300 PERFORM PRINT-DETAIL. NC1054.2 253400 MOVE-INIT-F1-103. NC1054.2 253500 MOVE 832 .553 TO WRK-CS-08V08. NC1054.2 253600 MOVE-TEST-F1-103-0. NC1054.2 253700 MOVE WRK-CS-08V08 TO WRK-EDIT-Z3VZ3. NC1054.2 253800 MOVE-TEST-F1-103-1. NC1054.2 253900 IF WRK-EDIT-Z3VZ3 EQUAL TO "832.553" NC1054.2 254000 PERFORM PASS NC1054.2 254100 GO TO MOVE-WRITE-F1-103. NC1054.2 254200 MOVE "832.553" TO CORRECT-A. NC1054.2 254300 MOVE WRK-EDIT-Z3VZ3 TO COMPUTED-A. NC1054.2 254400 PERFORM FAIL. NC1054.2 254500 GO TO MOVE-WRITE-F1-103. NC1054.2 254600 MOVE-DELETE-F1-103. NC1054.2 254700 PERFORM DE-LETE. NC1054.2 254800 MOVE-WRITE-F1-103. NC1054.2 254900 MOVE "MOVE-TEST-F1-103" TO PAR-NAME. NC1054.2 255000 PERFORM PRINT-DETAIL. NC1054.2 255100 MOVE-INIT-F1-104. NC1054.2 255200 MOVE 6382 .47 TO WRK-CS-08V08. NC1054.2 255300 MOVE-TEST-F1-104-0. NC1054.2 255400 MOVE WRK-CS-04V08 TO WRK-EDIT-05V02. NC1054.2 255500 MOVE-TEST-F1-104-1. NC1054.2 255600 IF WRK-EDIT-05V02 EQUAL TO " 06382.47" NC1054.2 255700 PERFORM PASS NC1054.2 255800 GO TO MOVE-WRITE-F1-104. NC1054.2 255900 MOVE " 06382.47" TO CORRECT-A. NC1054.2 256000 MOVE WRK-EDIT-05V02 TO COMPUTED-A. NC1054.2 256100 PERFORM FAIL. NC1054.2 256200 GO TO MOVE-WRITE-F1-104. NC1054.2 256300 MOVE-DELETE-F1-104. NC1054.2 256400 PERFORM DE-LETE. NC1054.2 256500 MOVE-WRITE-F1-104. NC1054.2 256600 MOVE "MOVE-TEST-F1-104" TO PAR-NAME. NC1054.2 256700 PERFORM PRINT-DETAIL. NC1054.2 256800 MOVE-INIT-F1-105. NC1054.2 256900 MOVE 832 .553 TO WRK-CS-08V08. NC1054.2 257000 MOVE-TEST-F1-105-0. NC1054.2 257100 MOVE WRK-CS-08V08 TO WRK-EDIT-05V00. NC1054.2 257200 MOVE-TEST-F1-105-1. NC1054.2 257300 IF WRK-EDIT-05V00 EQUAL TO "**832" NC1054.2 257400 PERFORM PASS NC1054.2 257500 GO TO MOVE-WRITE-F1-105. NC1054.2 257600 MOVE "**832" TO CORRECT-A. NC1054.2 257700 MOVE WRK-EDIT-05V00 TO COMPUTED-A. NC1054.2 257800 PERFORM FAIL. NC1054.2 257900 GO TO MOVE-WRITE-F1-105. NC1054.2 258000 MOVE-DELETE-F1-105. NC1054.2 258100 PERFORM DE-LETE. NC1054.2 258200 MOVE-WRITE-F1-105. NC1054.2 258300 MOVE "MOVE-TEST-F1-105" TO PAR-NAME. NC1054.2 258400 PERFORM PRINT-DETAIL. NC1054.2 258500 MOVE-INIT-F1-106. NC1054.2 258600 MOVE 6382 .47 TO WRK-CS-04V08. NC1054.2 258700 MOVE-TEST-F1-106-0. NC1054.2 258800 MOVE WRK-CS-04V08 TO WRK-EDIT-05V02. NC1054.2 258900 MOVE-TEST-F1-106-1. NC1054.2 259000 IF WRK-EDIT-05V02 EQUAL TO " 06382.47" NC1054.2 259100 PERFORM PASS NC1054.2 259200 GO TO MOVE-WRITE-F1-106. NC1054.2 259300 MOVE WRK-EDIT-05V02 TO COMPUTED-A. NC1054.2 259400 MOVE " 06382.47" TO CORRECT-A. NC1054.2 259500 PERFORM FAIL. NC1054.2 259600 GO TO MOVE-WRITE-F1-106. NC1054.2 259700 MOVE-DELETE-F1-106. NC1054.2 259800 PERFORM DE-LETE. NC1054.2 259900 MOVE-WRITE-F1-106. NC1054.2 260000 MOVE "MOVE-TEST-F1-106" TO PAR-NAME. NC1054.2 260100 PERFORM PRINT-DETAIL. NC1054.2 260200 MOVE-INIT-F1-107. NC1054.2 260300 MOVE ZERO TO WRK-CS-18V00. NC1054.2 260400 MOVE-TEST-F1-107-0. NC1054.2 260500 MOVE WRK-CS-18V00 TO WRK-EDIT-18V00. NC1054.2 260600 MOVE-TEST-F1-107-1. NC1054.2 260700 IF WRK-EDIT-18V00 EQUAL TO " 0" NC1054.2 260800 PERFORM PASS NC1054.2 260900 GO TO MOVE-WRITE-F1-107. NC1054.2 261000 MOVE " 0" TO CORRECT-A. NC1054.2 261100 MOVE WRK-EDIT-18V00 TO COMPUTED-A. NC1054.2 261200 PERFORM FAIL. NC1054.2 261300 GO TO MOVE-WRITE-F1-107. NC1054.2 261400 MOVE-DELETE-F1-107. NC1054.2 261500 PERFORM DE-LETE. NC1054.2 261600 MOVE-WRITE-F1-107. NC1054.2 261700 MOVE "MOVE-TEST-F1-107" TO PAR-NAME. NC1054.2 261800 PERFORM PRINT-DETAIL. NC1054.2 261900 MOVE-INIT-F1-108. NC1054.2 262000 MOVE "MOVE (DISPLAY/COMP)" TO FEATURE. NC1054.2 262100 MOVE 15 TO WRK-DS-10V00. NC1054.2 262200 MOVE-TEST-F1-108-0. NC1054.2 262300 MOVE WRK-DS-10V00 TO WRK-CS-01V00. NC1054.2 262400 MOVE-TEST-F1-108-1. NC1054.2 262500 IF WRK-CS-01V00 EQUAL TO 5 NC1054.2 262600 PERFORM PASS NC1054.2 262700 GO TO MOVE-WRITE-F1-108. NC1054.2 262800 MOVE 5 TO CORRECT-N. NC1054.2 262900 MOVE WRK-CS-01V00 TO COMPUTED-N. NC1054.2 263000 PERFORM FAIL. NC1054.2 263100 GO TO MOVE-WRITE-F1-108. NC1054.2 263200 MOVE-DELETE-F1-108. NC1054.2 263300 PERFORM DE-LETE. NC1054.2 263400 MOVE-WRITE-F1-108. NC1054.2 263500 MOVE "MOVE-TEST-F1-108" TO PAR-NAME. NC1054.2 263600 PERFORM PRINT-DETAIL. NC1054.2 263700 MOVE-INIT-F1-109. NC1054.2 263800 MOVE 1023 TO WRK-DS-10V00. NC1054.2 263900 MOVE-TEST-F1-109-0. NC1054.2 264000 MOVE WRK-DS-10V00 TO WRK-CS-03V00. NC1054.2 264100 MOVE-TEST-F1-109-1. NC1054.2 264200 IF WRK-CS-03V00 EQUAL TO 023 NC1054.2 264300 PERFORM PASS NC1054.2 264400 GO TO MOVE-WRITE-F1-109. NC1054.2 264500 MOVE WRK-CS-03V00 TO COMPUTED-N. NC1054.2 264600 MOVE 023 TO CORRECT-N. NC1054.2 264700 PERFORM FAIL. NC1054.2 264800 GO TO MOVE-WRITE-F1-109. NC1054.2 264900 MOVE-DELETE-F1-109. NC1054.2 265000 PERFORM DE-LETE. NC1054.2 265100 MOVE-WRITE-F1-109. NC1054.2 265200 MOVE "MOVE-TEST-F1-109" TO PAR-NAME. NC1054.2 265300 PERFORM PRINT-DETAIL. NC1054.2 265400 MOVE-INIT-F1-110. NC1054.2 265500 MOVE SPACE TO MOVE71. NC1054.2 265600 MOVE-TEST-F1-110-0. NC1054.2 265700 MOVE 00000 TO MOVE71. NC1054.2 265800 MOVE-TEST-F1-110-1. NC1054.2 265900 IF MOVE71 EQUAL TO "00000 " NC1054.2 266000 PERFORM PASS GO TO MOVE-WRITE-F1-110. NC1054.2 266100 GO TO MOVE-FAIL-F1-110. NC1054.2 266200 MOVE-DELETE-F1-110. NC1054.2 266300 PERFORM DE-LETE. NC1054.2 266400 GO TO MOVE-WRITE-F1-110. NC1054.2 266500 MOVE-FAIL-F1-110. NC1054.2 266600 PERFORM FAIL. NC1054.2 266700 MOVE MOVE71 TO COMPUTED-A. NC1054.2 266800 MOVE "00000 " TO CORRECT-A. NC1054.2 266900 MOVE-WRITE-F1-110. NC1054.2 267000 MOVE "MOVE NUMERIC" TO FEATURE. NC1054.2 267100 MOVE "MOVE-TEST-F1-110" TO PAR-NAME. NC1054.2 267200 PERFORM PRINT-DETAIL. NC1054.2 267300 MOVE-INIT-F1-111. NC1054.2 267400 MOVE 234565432 .1 TO MOVE74. NC1054.2 267500 MOVE-TEST-F1-111-0. NC1054.2 267600 MOVE MOVE74 TO MOVE75. NC1054.2 267700 MOVE-TEST-F1-111. NC1054.2 267800 IF MOVE75 EQUAL TO 234565432 NC1054.2 267900 PERFORM PASS GO TO MOVE-WRITE-F1-111. NC1054.2 268000 GO TO MOVE-FAIL-F1-111. NC1054.2 268100 MOVE-DELETE-F1-111. NC1054.2 268200 PERFORM DE-LETE. NC1054.2 268300 GO TO MOVE-WRITE-F1-111. NC1054.2 268400 MOVE-FAIL-F1-111. NC1054.2 268500 MOVE MOVE75 TO COMPUTED-N. NC1054.2 268600 MOVE 234565432 TO CORRECT-N. NC1054.2 268700 PERFORM FAIL. NC1054.2 268800 MOVE-WRITE-F1-111. NC1054.2 268900 MOVE "MOVE -- COMP, SYNC" TO FEATURE. NC1054.2 269000 MOVE "MOVE-TEST-F1-111" TO PAR-NAME. NC1054.2 269100 PERFORM PRINT-DETAIL. NC1054.2 269200 MOVE-INIT-F1-112. NC1054.2 269300 MOVE "MOVE TO COMP (ABS)" TO FEATURE. NC1054.2 269400 MOVE +60666 TO SPOS-LIT1. NC1054.2 269500 MOVE-TEST-F1-112-0. NC1054.2 269600 MOVE SPOS-LIT1 TO CU-05V00-001. NC1054.2 269700 MOVE-TEST-F1-112-1. NC1054.2 269800 IF CU-05V00-001 EQUAL TO 60666 NC1054.2 269900 PERFORM PASS NC1054.2 270000 GO TO MOVE-WRITE-F1-112. NC1054.2 270100 MOVE CU-05V00-001 TO COMPUTED-18V0. NC1054.2 270200 MOVE 60666 TO CORRECT-18V0. NC1054.2 270300 PERFORM FAIL. NC1054.2 270400 GO TO MOVE-WRITE-F1-112. NC1054.2 270500 MOVE-DELETE-F1-112. NC1054.2 270600 PERFORM DE-LETE. NC1054.2 270700 MOVE-WRITE-F1-112. NC1054.2 270800 MOVE "MOVE-TEST-F1-112" TO PAR-NAME. NC1054.2 270900 PERFORM PRINT-DETAIL. NC1054.2 271000 MOVE-INIT-F1-113. NC1054.2 271100 MOVE +60667 TO SPOS-LIT2. NC1054.2 271200 MOVE-TEST-F1-113-0. NC1054.2 271300 MOVE SPOS-LIT2 TO CU-05V00-001. NC1054.2 271400 MOVE-TEST-F1-113-1. NC1054.2 271500 IF CU-05V00-001 EQUAL TO 60667 NC1054.2 271600 PERFORM PASS NC1054.2 271700 GO TO MOVE-WRITE-F1-113. NC1054.2 271800 MOVE CU-05V00-001 TO COMPUTED-18V0. NC1054.2 271900 MOVE 60667 TO CORRECT-18V0. NC1054.2 272000 PERFORM FAIL. NC1054.2 272100 GO TO MOVE-WRITE-F1-113. NC1054.2 272200 MOVE-DELETE-F1-113. NC1054.2 272300 PERFORM DE-LETE. NC1054.2 272400 MOVE-WRITE-F1-113. NC1054.2 272500 MOVE "MOVE-TEST-F1-113" TO PAR-NAME. NC1054.2 272600 PERFORM PRINT-DETAIL. NC1054.2 272700 MOVE-TEST-F1-114. NC1054.2 272800 MOVE SNEG-LIT1 TO CU-05V00-001. NC1054.2 272900 IF CU-05V00-001 EQUAL TO 70717 NC1054.2 273000 PERFORM PASS NC1054.2 273100 GO TO MOVE-WRITE-F1-114. NC1054.2 273200 MOVE CU-05V00-001 TO COMPUTED-18V0. NC1054.2 273300 MOVE 70717 TO CORRECT-18V0. NC1054.2 273400 PERFORM FAIL. NC1054.2 273500 GO TO MOVE-WRITE-F1-114. NC1054.2 273600 MOVE-DELETE-F1-114. NC1054.2 273700 PERFORM DE-LETE. NC1054.2 273800 MOVE-WRITE-F1-114. NC1054.2 273900 MOVE "MOVE-TEST-F1-114" TO PAR-NAME. NC1054.2 274000 PERFORM PRINT-DETAIL. NC1054.2 274100 MOVE-INIT-F1-115. NC1054.2 274200 MOVE -70718 TO SNEG-LIT2. NC1054.2 274300 MOVE-TEST-F1-115-0. NC1054.2 274400 MOVE SNEG-LIT2 TO CU-05V00-001. NC1054.2 274500 MOVE-TEST-F1-115. NC1054.2 274600 IF CU-05V00-001 EQUAL TO 70718 NC1054.2 274700 PERFORM PASS NC1054.2 274800 GO TO MOVE-WRITE-F1-115. NC1054.2 274900 MOVE CU-05V00-001 TO COMPUTED-18V0. NC1054.2 275000 MOVE 70718 TO CORRECT-18V0. NC1054.2 275100 PERFORM FAIL. NC1054.2 275200 GO TO MOVE-WRITE-F1-115. NC1054.2 275300 MOVE-DELETE-F1-115. NC1054.2 275400 PERFORM DE-LETE. NC1054.2 275500 MOVE-WRITE-F1-115. NC1054.2 275600 MOVE "MOVE-TEST-F1-115" TO PAR-NAME. NC1054.2 275700 PERFORM PRINT-DETAIL. NC1054.2 275800 MOVE-INIT-F1-116. NC1054.2 275900 MOVE +60666 TO SPOS-LIT1. NC1054.2 276000 MOVE-TEST-F1-116-0. NC1054.2 276100 MOVE SPOS-LIT1 TO CS-05V00-001. NC1054.2 276200 MOVE-TEST-F1-116-1. NC1054.2 276300 MOVE CS-05V00-001 TO CU-05V00-001. NC1054.2 276400 IF CU-05V00-001 EQUAL TO 60666 NC1054.2 276500 PERFORM PASS NC1054.2 276600 GO TO MOVE-WRITE-F1-116. NC1054.2 276700 MOVE CU-05V00-001 TO COMPUTED-18V0. NC1054.2 276800 MOVE 60666 TO CORRECT-18V0. NC1054.2 276900 PERFORM FAIL. NC1054.2 277000 GO TO MOVE-WRITE-F1-116. NC1054.2 277100 MOVE-DELETE-F1-116. NC1054.2 277200 PERFORM DE-LETE. NC1054.2 277300 MOVE-WRITE-F1-116. NC1054.2 277400 MOVE "MOVE-TEST-F1-116" TO PAR-NAME. NC1054.2 277500 PERFORM PRINT-DETAIL. NC1054.2 277600 MOVE-INIT-F1-117. NC1054.2 277700 MOVE +60667 TO SPOS-LIT2. NC1054.2 277800 MOVE-TEST-F1-117-0. NC1054.2 277900 MOVE SPOS-LIT2 TO CS-05V00-001. NC1054.2 278000 MOVE CS-05V00-001 TO CU-05V00-001. NC1054.2 278100 MOVE-TEST-F1-117-1. NC1054.2 278200 IF CU-05V00-001 EQUAL TO 60667 NC1054.2 278300 PERFORM PASS NC1054.2 278400 GO TO MOVE-WRITE-F1-117. NC1054.2 278500 MOVE CU-05V00-001 TO COMPUTED-18V0. NC1054.2 278600 MOVE 60667 TO CORRECT-18V0. NC1054.2 278700 PERFORM FAIL. NC1054.2 278800 GO TO MOVE-WRITE-F1-117. NC1054.2 278900 MOVE-DELETE-F1-117. NC1054.2 279000 PERFORM DE-LETE. NC1054.2 279100 MOVE-WRITE-F1-117. NC1054.2 279200 MOVE "MOVE-TEST-F1-117" TO PAR-NAME. NC1054.2 279300 PERFORM PRINT-DETAIL. NC1054.2 279400 MOVE-INIT-F1-118. NC1054.2 279500 MOVE -70717 TO SNEG-LIT1. NC1054.2 279600 MOVE-TEST-F1-118-0. NC1054.2 279700 MOVE SNEG-LIT1 TO CS-05V00-001. NC1054.2 279800 MOVE CS-05V00-001 TO CU-05V00-001. NC1054.2 279900 MOVE-TEST-F1-118-1. NC1054.2 280000 IF CU-05V00-001 EQUAL TO 70717 NC1054.2 280100 PERFORM PASS NC1054.2 280200 GO TO MOVE-WRITE-F1-118. NC1054.2 280300 MOVE CU-05V00-001 TO COMPUTED-18V0. NC1054.2 280400 MOVE 70717 TO CORRECT-18V0. NC1054.2 280500 PERFORM FAIL. NC1054.2 280600 GO TO MOVE-WRITE-F1-118. NC1054.2 280700 MOVE-DELETE-F1-118. NC1054.2 280800 PERFORM DE-LETE. NC1054.2 280900 MOVE-WRITE-F1-118. NC1054.2 281000 MOVE "MOVE-TEST-F1-118" TO PAR-NAME. NC1054.2 281100 PERFORM PRINT-DETAIL. NC1054.2 281200 MOVE-INIT-F1-119. NC1054.2 281300 MOVE -70718 TO SNEG-LIT2. NC1054.2 281400 MOVE-TEST-F1-119-0. NC1054.2 281500 MOVE SNEG-LIT2 TO CS-05V00-001. NC1054.2 281600 MOVE CS-05V00-001 TO CU-05V00-001. NC1054.2 281700 MOVE-TEST-F1-119-1. NC1054.2 281800 IF CU-05V00-001 EQUAL TO 70718 NC1054.2 281900 PERFORM PASS NC1054.2 282000 GO TO MOVE-WRITE-F1-119. NC1054.2 282100 MOVE CU-05V00-001 TO COMPUTED-18V0. NC1054.2 282200 MOVE 70718 TO CORRECT-18V0. NC1054.2 282300 PERFORM FAIL. NC1054.2 282400 GO TO MOVE-WRITE-F1-119. NC1054.2 282500 MOVE-DELETE-F1-119. NC1054.2 282600 PERFORM DE-LETE. NC1054.2 282700 MOVE-WRITE-F1-119. NC1054.2 282800 MOVE "MOVE-TEST-F1-119" TO PAR-NAME. NC1054.2 282900 PERFORM PRINT-DETAIL. NC1054.2 283000* NC1054.2 283100* MOVE-TEST-176 THROUGH MOVE-TEST-178 CONTAIN MOVE NC1054.2 283200* STATEMENTS OF THE FORM NC1054.2 283300* MOVE ALL LITERAL TO NUMERIC DATA ITEM. NC1054.2 283400* NC1054.2 283500* REFERENCES IN X3.23-1974 NC1054.2 283600* PAGE I-85, 5.3.2.2.2.3(1) NC1054.2 283700* PAGE II-76, 5.15.4(4)B.3 NC1054.2 283800* NC1054.2 283900*MOVE-TEST-176. NC1054.2 284000* MOVE ZERO TO MOVE5. NC1054.2 284100* MOVE ALL "123" TO MOVE5. NC1054.2 284200* IF MOVE5 EQUAL TO 12 NC1054.2 284300* PERFORM PASS NC1054.2 284400* GO TO MOVE-WRITE-176 NC1054.2 284500* ELSE GO TO MOVE-FAIL-176. NC1054.2 284600 MOVE-DELETE-176. NC1054.2 284700 PERFORM DE-LETE. NC1054.2 284800 GO TO MOVE-WRITE-176. NC1054.2 284900 MOVE-FAIL-176. NC1054.2 285000 PERFORM FAIL. NC1054.2 285100 MOVE 12 TO CORRECT-N. NC1054.2 285200 MOVE MOVE5 TO COMPUTED-N. NC1054.2 285300 MOVE-WRITE-176. NC1054.2 285400 MOVE "*DELETED BY FCCTS*" TO FEATURE. NC1054.2 285500 MOVE "MOVE-TEST-176" TO PAR-NAME. NC1054.2 285600 PERFORM PRINT-DETAIL. NC1054.2 285700*MOVE-TEST-177. NC1054.2 285800* MOVE ZERO TO MOVE5. NC1054.2 285900* MOVE ALL "ABC123" TO MOVE5. NC1054.2 286000* IF MOVE5 EQUAL TO 23 NC1054.2 286100* PERFORM PASS NC1054.2 286200* GO TO MOVE-WRITE-177 NC1054.2 286300* ELSE GO TO MOVE-FAIL-177. NC1054.2 286400 MOVE-DELETE-177. NC1054.2 286500 PERFORM DE-LETE. NC1054.2 286600 GO TO MOVE-WRITE-177. NC1054.2 286700 MOVE-FAIL-177. NC1054.2 286800 PERFORM FAIL. NC1054.2 286900 MOVE 23 TO CORRECT-N. NC1054.2 287000 MOVE MOVE5 TO COMPUTED-N. NC1054.2 287100 MOVE-WRITE-177. NC1054.2 287200 MOVE "*DELETED BY FCCTS*" TO FEATURE. NC1054.2 287300 MOVE "MOVE-TEST-177" TO PAR-NAME. NC1054.2 287400 PERFORM PRINT-DETAIL. NC1054.2 287500*MOVE-TEST-178. NC1054.2 287600* MOVE ZERO TO MOVE7. NC1054.2 287700* MOVE ALL "2A" TO MOVE7. NC1054.2 287800* IF MOVE7 EQUAL TO 2 NC1054.2 287900* PERFORM PASS NC1054.2 288000* GO TO MOVE-WRITE-178 NC1054.2 288100* ELSE GO TO MOVE-FAIL-178. NC1054.2 288200 MOVE-DELETE-178. NC1054.2 288300 PERFORM DE-LETE. NC1054.2 288400 GO TO MOVE-WRITE-178. NC1054.2 288500 MOVE-FAIL-178. NC1054.2 288600 PERFORM FAIL. NC1054.2 288700 MOVE 2 TO CORRECT-N. NC1054.2 288800 MOVE MOVE7 TO COMPUTED-N. NC1054.2 288900 MOVE-WRITE-178. NC1054.2 289000 MOVE "*DELETED BY FCCTS*" TO FEATURE. NC1054.2 289100 MOVE "MOVE-TEST-178" TO PAR-NAME. NC1054.2 289200 PERFORM PRINT-DETAIL. NC1054.2 289300 MOVE "EDIT--B(N), 0(N)" TO FEATURE. NC1054.2 289400 EDIT-INIT-F1-120. NC1054.2 289500 NC1054.2 289600 EDIT-TEST-F1-120-0. NC1054.2 289700 MOVE "926" TO EDIT-PICTURE-01. NC1054.2 289800 EDIT-TEST-F1-120-1. NC1054.2 289900 IF EDIT-PICTURE-01 EQUAL TO "9 26" NC1054.2 290000 PERFORM PASS NC1054.2 290100 GO TO EDIT-WRITE-F1-120. NC1054.2 290200 PERFORM FAIL. NC1054.2 290300 MOVE EDIT-PICTURE-01 TO COMPUTED-A. NC1054.2 290400 MOVE "9 26" TO CORRECT-A. NC1054.2 290500 GO TO EDIT-WRITE-F1-120. NC1054.2 290600 EDIT-DELETE-F1-120. NC1054.2 290700 PERFORM DE-LETE. NC1054.2 290800 EDIT-WRITE-F1-120. NC1054.2 290900 MOVE "EDIT-TEST-F1-120" TO PAR-NAME. NC1054.2 291000 PERFORM PRINT-DETAIL. NC1054.2 291100 EDIT-INIT-F1-121. NC1054.2 291200 NC1054.2 291300 EDIT-TEST-F1-121-0. NC1054.2 291400 MOVE "1492" TO EDIT-PICTURE-02. NC1054.2 291500 EDIT-TEST-F1-121-1. NC1054.2 291600 IF EDIT-PICTURE-02 EQUAL TO "$0000000000492" NC1054.2 291700 PERFORM PASS NC1054.2 291800 GO TO EDIT-WRITE-F1-121. NC1054.2 291900 PERFORM FAIL. NC1054.2 292000 MOVE EDIT-PICTURE-02 TO COMPUTED-A. NC1054.2 292100 MOVE "$0000000000492" TO CORRECT-A. NC1054.2 292200 GO TO EDIT-WRITE-F1-121. NC1054.2 292300 EDIT-DELETE-F1-121. NC1054.2 292400 PERFORM DE-LETE. NC1054.2 292500 EDIT-WRITE-F1-121. NC1054.2 292600 MOVE "EDIT-TEST-F1-121" TO PAR-NAME. NC1054.2 292700 PERFORM PRINT-DETAIL. NC1054.2 292800 EDIT-INIT-F1-122. NC1054.2 292900 MOVE 333 TO EDIT-DATA-1. NC1054.2 293000 EDIT-TEST-F1-122-0. NC1054.2 293100 MOVE EDIT-DATA-1 TO EDIT-PICTURE-01. NC1054.2 293200 EDIT-TEST-F1-122-1. NC1054.2 293300 IF EDIT-PICTURE-01 EQUAL TO "3 33" NC1054.2 293400 PERFORM PASS NC1054.2 293500 GO TO EDIT-WRITE-F1-122. NC1054.2 293600 PERFORM FAIL. NC1054.2 293700 MOVE EDIT-PICTURE-01 TO COMPUTED-A. NC1054.2 293800 MOVE "3 33" TO CORRECT-A. NC1054.2 293900 GO TO EDIT-WRITE-F1-122. NC1054.2 294000 EDIT-DELETE-F1-122. NC1054.2 294100 PERFORM DE-LETE. NC1054.2 294200 EDIT-WRITE-F1-122. NC1054.2 294300 MOVE "EDIT-TEST-F1-122" TO PAR-NAME. NC1054.2 294400 PERFORM PRINT-DETAIL. NC1054.2 294500 EDIT-INIT-F1-123. NC1054.2 294600 MOVE 916 TO EDIT-DATA-2. NC1054.2 294700 EDIT-TEST-F1-123-0. NC1054.2 294800 MOVE EDIT-DATA-2 TO EDIT-PICTURE-02. NC1054.2 294900 EDIT-TEST-F1-123-1. NC1054.2 295000 IF EDIT-PICTURE-02 EQUAL TO "$0000000000916" NC1054.2 295100 PERFORM PASS NC1054.2 295200 GO TO EDIT-WRITE-F1-123. NC1054.2 295300 PERFORM FAIL. NC1054.2 295400 MOVE EDIT-PICTURE-02 TO COMPUTED-A. NC1054.2 295500 MOVE "$0000000000916 " TO CORRECT-A. NC1054.2 295600 GO TO EDIT-WRITE-F1-123. NC1054.2 295700 EDIT-DELETE-F1-123. NC1054.2 295800 PERFORM DE-LETE. NC1054.2 295900 EDIT-WRITE-F1-123. NC1054.2 296000 MOVE "EDIT-TEST-F1-123" TO PAR-NAME. NC1054.2 296100 PERFORM PRINT-DETAIL. NC1054.2 296200 EDIT-INIT-F1-124. NC1054.2 296300 MOVE "EDIT -- MASKED EDIT" TO FEATURE. NC1054.2 296400 EDIT-TEST-F1-124-0. NC1054.2 296500 MOVE 000987 .65 TO EDIT-PIC-05. NC1054.2 296600 EDIT-TEST-F1-124-1. NC1054.2 296700 IF GRP-EDIT-PIC-05 EQUAL TO " $987.65" NC1054.2 296800 PERFORM PASS NC1054.2 296900 GO TO EDIT-WRITE-F1-124. NC1054.2 297000 PERFORM FAIL. NC1054.2 297100 MOVE EDIT-PIC-05 TO COMPUTED-A. NC1054.2 297200 MOVE " $987.65" TO CORRECT-A. NC1054.2 297300 GO TO EDIT-WRITE-F1-124. NC1054.2 297400 EDIT-DELETE-F1-124. NC1054.2 297500 PERFORM DE-LETE. NC1054.2 297600 EDIT-WRITE-F1-124. NC1054.2 297700 MOVE "EDIT-TEST-F1-124" TO PAR-NAME. NC1054.2 297800 PERFORM PRINT-DETAIL. NC1054.2 297900 EDIT-INIT-F1-125. NC1054.2 298000* NC1054.2 298100 EDIT-TEST-F1-125-0. NC1054.2 298200 MOVE 000123 .45 TO EDIT-PIC-06. NC1054.2 298300 EDIT-TEST-F1-125-1. NC1054.2 298400 IF GRP-EDIT-PIC-06 EQUAL TO " $123.45" NC1054.2 298500 PERFORM PASS NC1054.2 298600 GO TO EDIT-WRITE-F1-125. NC1054.2 298700 PERFORM FAIL. NC1054.2 298800 MOVE EDIT-PIC-06 TO COMPUTED-A. NC1054.2 298900 MOVE " $123.45" TO CORRECT-A. NC1054.2 299000 GO TO EDIT-WRITE-F1-125. NC1054.2 299100 EDIT-DELETE-F1-125. NC1054.2 299200 PERFORM DE-LETE. NC1054.2 299300 EDIT-WRITE-F1-125. NC1054.2 299400 MOVE "EDIT-TEST-F1-125" TO PAR-NAME. NC1054.2 299500 PERFORM PRINT-DETAIL. NC1054.2 299600 EDIT-INIT-F1-126. NC1054.2 299700* NC1054.2 299800 EDIT-TEST-F1-126-0. NC1054.2 299900 MOVE 000321 .01 TO EDIT-PIC-07. NC1054.2 300000 EDIT-TEST-F1-126-1. NC1054.2 300100 IF GRP-EDIT-PIC-07 EQUAL TO " +321.01" NC1054.2 300200 PERFORM PASS NC1054.2 300300 GO TO EDIT-WRITE-F1-126. NC1054.2 300400 PERFORM FAIL. NC1054.2 300500 MOVE EDIT-PIC-07 TO COMPUTED-A. NC1054.2 300600 MOVE " +321.01" TO CORRECT-A. NC1054.2 300700 GO TO EDIT-WRITE-F1-126. NC1054.2 300800 EDIT-DELETE-F1-126. NC1054.2 300900 PERFORM DE-LETE. NC1054.2 301000 EDIT-WRITE-F1-126. NC1054.2 301100 MOVE "EDIT-TEST-F1-126" TO PAR-NAME. NC1054.2 301200 PERFORM PRINT-DETAIL. NC1054.2 301300 EDIT-INIT-F1-127. NC1054.2 301400* NC1054.2 301500 EDIT-TEST-F1-127-0. NC1054.2 301600 MOVE -0012 .98 TO EDIT-PIC-08. NC1054.2 301700 EDIT-TEST-F1-127-1. NC1054.2 301800 IF GRP-EDIT-PIC-08 EQUAL TO " -012.98" NC1054.2 301900 PERFORM PASS NC1054.2 302000 GO TO EDIT-WRITE-F1-127. NC1054.2 302100 PERFORM FAIL. NC1054.2 302200 MOVE EDIT-PIC-08 TO COMPUTED-A. NC1054.2 302300 MOVE " -012.98" TO CORRECT-A. NC1054.2 302400 GO TO EDIT-WRITE-F1-127. NC1054.2 302500 EDIT-DELETE-F1-127. NC1054.2 302600 PERFORM DE-LETE. NC1054.2 302700 EDIT-WRITE-F1-127. NC1054.2 302800 MOVE "EDIT-TEST-F1-127" TO PAR-NAME. NC1054.2 302900 PERFORM PRINT-DETAIL. NC1054.2 303000 EDIT-INIT-F1-128. NC1054.2 303100* NC1054.2 303200 EDIT-TEST-F1-128-0. NC1054.2 303300 MOVE 0000567 .43 TO EDIT-PIC-09. NC1054.2 303400 EDIT-TEST-F1-128-1. NC1054.2 303500 IF GRP-EDIT-PIC-09 EQUAL TO "****567.43" NC1054.2 303600 PERFORM PASS NC1054.2 303700 GO TO EDIT-WRITE-F1-128. NC1054.2 303800 PERFORM FAIL. NC1054.2 303900 MOVE EDIT-PIC-09 TO COMPUTED-A. NC1054.2 304000 MOVE "****567.43" TO CORRECT-A. NC1054.2 304100 GO TO EDIT-WRITE-F1-128. NC1054.2 304200 EDIT-DELETE-F1-128. NC1054.2 304300 PERFORM DE-LETE. NC1054.2 304400 EDIT-WRITE-F1-128. NC1054.2 304500 MOVE "EDIT-TEST-F1-128" TO PAR-NAME. NC1054.2 304600 PERFORM PRINT-DETAIL. NC1054.2 304700 EDIT-INIT-F1-129. NC1054.2 304800* NC1054.2 304900 EDIT-TEST-F1-129-0. NC1054.2 305000 MOVE ZERO TO EDIT-PIC-10. NC1054.2 305100 EDIT-TEST-F1-129-1. NC1054.2 305200 IF GRP-EDIT-PIC-10 EQUAL TO " 000.00" NC1054.2 305300 PERFORM PASS NC1054.2 305400 GO TO EDIT-WRITE-F1-129. NC1054.2 305500 PERFORM FAIL. NC1054.2 305600 MOVE EDIT-PIC-10 TO COMPUTED-A. NC1054.2 305700 MOVE " 000.00" TO CORRECT-A. NC1054.2 305800 GO TO EDIT-WRITE-F1-129. NC1054.2 305900 EDIT-DELETE-F1-129. NC1054.2 306000 PERFORM DE-LETE. NC1054.2 306100 EDIT-WRITE-F1-129. NC1054.2 306200 MOVE "EDIT-TEST-F1-129" TO PAR-NAME. NC1054.2 306300 PERFORM PRINT-DETAIL. NC1054.2 306400 GO TO CCVS-EXIT. NC1054.2 306500 A20. NC1054.2 306600 MOVE FIRST-20S TO CORRECT-A. NC1054.2 306700 MOVE FIRST-20R TO COMPUTED-A. NC1054.2 306800 MOVE "1ST 20 POSITIONS OF RESULTS" TO RE-MARK. NC1054.2 306900 MOVE TEST-RESULTS TO PRINT-REC. NC1054.2 307000 WRITE PRINT-REC AFTER ADVANCING 1 LINES. NC1054.2 307100 SUBTRACT 20 FROM LENGTH-COUNTER. NC1054.2 307200 A40. NC1054.2 307300 MOVE SECOND-20S TO CORRECT-A. NC1054.2 307400 MOVE SECOND-20R TO COMPUTED-A. NC1054.2 307500 MOVE "2ND 20 POSITIONS OF RESULTS" TO RE-MARK. NC1054.2 307600 IF LENGTH-COUNTER GREATER THAN 20 NC1054.2 307700 MOVE SPACE TO P-OR-F NC1054.2 307800 MOVE TEST-RESULTS TO PRINT-REC NC1054.2 307900 WRITE PRINT-REC AFTER ADVANCING 1 LINES NC1054.2 308000 SUBTRACT 20 FROM LENGTH-COUNTER ELSE NC1054.2 308100 MOVE 000 TO LENGTH-COUNTER. NC1054.2 308200 A60. NC1054.2 308300 MOVE THIRD-20S TO CORRECT-A. NC1054.2 308400 MOVE THIRD-20R TO COMPUTED-A. NC1054.2 308500 MOVE "3RD 20 POSITIONS OF RESULTS" TO RE-MARK. NC1054.2 308600 IF LENGTH-COUNTER GREATER THAN 20 NC1054.2 308700 MOVE SPACE TO P-OR-F NC1054.2 308800 MOVE TEST-RESULTS TO PRINT-REC NC1054.2 308900 WRITE PRINT-REC AFTER ADVANCING 1 LINES NC1054.2 309000 SUBTRACT 20 FROM LENGTH-COUNTER ELSE NC1054.2 309100 MOVE 000 TO LENGTH-COUNTER. NC1054.2 309200 A80. NC1054.2 309300 MOVE FOURTH-20S TO CORRECT-A. NC1054.2 309400 MOVE FOURTH-20R TO COMPUTED-A. NC1054.2 309500 MOVE "4TH 20 POSITIONS OF RESULTS" TO RE-MARK. NC1054.2 309600 IF LENGTH-COUNTER GREATER THAN 20 NC1054.2 309700 MOVE SPACE TO P-OR-F NC1054.2 309800 MOVE TEST-RESULTS TO PRINT-REC NC1054.2 309900 WRITE PRINT-REC AFTER ADVANCING 1 LINES NC1054.2 310000 SUBTRACT 20 FROM LENGTH-COUNTER ELSE NC1054.2 310100 MOVE 000 TO LENGTH-COUNTER. NC1054.2 310200 A100. NC1054.2 310300 MOVE FIFTH-20S TO CORRECT-A. NC1054.2 310400 MOVE FIFTH-20R TO COMPUTED-A. NC1054.2 310500 MOVE "5TH 20 POSITIONS OF RESULTS" TO RE-MARK. NC1054.2 310600 IF LENGTH-COUNTER GREATER THAN 20 NC1054.2 310700 MOVE SPACE TO P-OR-F NC1054.2 310800 MOVE TEST-RESULTS TO PRINT-REC NC1054.2 310900 WRITE PRINT-REC AFTER ADVANCING 1 LINES. NC1054.2 311000 MOVE 000 TO LENGTH-COUNTER. NC1054.2 311100 A120. NC1054.2 311200 MOVE SIXTH-20S TO CORRECT-A. NC1054.2 311300 MOVE SIXTH-20R TO COMPUTED-A. NC1054.2 311400 MOVE "6TH 20 POSITIONS OF RESULTS" TO RE-MARK. NC1054.2 311500 CCVS-EXIT SECTION . NC1054.2 311600 CCVS-999999. NC1054.2 311700 GO TO CLOSE-FILES. NC1054.2
Messung V0.5 in Prozent C=98 H=83 G=90
¤ Dauer der Verarbeitung: 0.158 Sekunden
(vorverarbeitet am 2026-06-10)
¤ *© Formatika GbR, Deutschland
