/src/test/resources/gov/nist/NC104A.CBL
https://github.com/uwol/proleap-cobol-parser · COBOL · 2853 lines · 2851 code · 0 blank · 2 comment · 0 complexity · 28f4cb51daf53c5107c8996d6dc33dde MD5 · raw file
Large files are truncated click here to view the full file
- *HEADER,COBOL,NC104A
- 000100 IDENTIFICATION DIVISION. NC1044.2
- 000200 PROGRAM-ID. NC1044.2
- 000300 NC104A. NC1044.2
- 000400**************************************************************** NC1044.2
- 000500* * NC1044.2
- 000600* VALIDATION FOR:- * NC1044.2
- 000700* * NC1044.2
- 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1044.2
- 000900* * NC1044.2
- 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1044.2
- 001100* * NC1044.2
- 001200**************************************************************** NC1044.2
- 001300* * NC1044.2
- 001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC1044.2
- 001500* * NC1044.2
- 001600* X-55 - SYSTEM PRINTER NAME. * NC1044.2
- 001700* X-82 - SOURCE COMPUTER NAME. * NC1044.2
- 001800* X-83 - OBJECT COMPUTER NAME. * NC1044.2
- 001900* * NC1044.2
- 002000**************************************************************** NC1044.2
- 002100* NC1044.2
- 002200* PROGRAM NC104A TESTS FORMAT 1 OF THE MOVE STATEMENT NC1044.2
- 002300* WITH VARIOUS COMBINATIONS OF SENDING AND RECEIVING FIELDS. NC1044.2
- 002400* NC1044.2
- 002500* (SEE ALSO NC105A). NC1044.2
- 002600* NC1044.2
- 002700 NC1044.2
- 002800 ENVIRONMENT DIVISION. NC1044.2
- 002900 CONFIGURATION SECTION. NC1044.2
- 003000 SOURCE-COMPUTER. NC1044.2
- 003100 XXXXX082. NC1044.2
- 003200 OBJECT-COMPUTER. NC1044.2
- 003300 XXXXX083. NC1044.2
- 003400 INPUT-OUTPUT SECTION. NC1044.2
- 003500 FILE-CONTROL. NC1044.2
- 003600 SELECT PRINT-FILE ASSIGN TO NC1044.2
- 003700 XXXXX055. NC1044.2
- 003800 DATA DIVISION. NC1044.2
- 003900 FILE SECTION. NC1044.2
- 004000 FD PRINT-FILE NC1044.2
- 004100 LABEL RECORDS NC1044.2
- 004200 XXXXX084 NC1044.2
- 004300 DATA RECORD IS PRINT-REC DUMMY-RECORD. NC1044.2
- 004400 01 PRINT-REC PICTURE X(120). NC1044.2
- 004500 01 DUMMY-RECORD PICTURE X(120). NC1044.2
- 004600 WORKING-STORAGE SECTION. NC1044.2
- 004700 01 MOVE1 PICTURE IS 9(5) NC1044.2
- 004800 VALUE IS 12345. NC1044.2
- 004900 01 MOVE2 PICTURE IS 9(5). NC1044.2
- 005000 01 MOVE3 PICTURE IS 99. NC1044.2
- 005100 01 MOVE4 PICTURE IS 9(7). NC1044.2
- 005200 01 MOVE5 PICTURE IS 99V999. NC1044.2
- 005300 01 MOVE6 PICTURE IS V99999. NC1044.2
- 005400 01 MOVE8 PICTURE IS 9(5)V99. NC1044.2
- 005500 01 MOVE9 PICTURE IS 9(7)V99. NC1044.2
- 005600 01 MOVE10 PICTURE IS $999.99. NC1044.2
- 005700 01 MOVE11 PICTURE IS $99,999.99. NC1044.2
- 005800 01 MOVE12 PICTURE IS $(5)9(3). NC1044.2
- 005900 01 MOVE13 PICTURE IS *(5)9(6). NC1044.2
- 006000 01 MOVE14 PICTURE IS +9(5). NC1044.2
- 006100 01 MOVE15 PICTURE IS 9(5) NC1044.2
- 006200 VALUE IS 00000. NC1044.2
- 006300 01 MOVE16 PICTURE IS 9(5)CR. NC1044.2
- 006400 01 MOVE17 PICTURE IS $99,999.99 NC1044.2
- 006500 BLANK WHEN ZERO. NC1044.2
- 006600 01 MOVE18 PICTURE IS ZZZZZZ. NC1044.2
- 006700 01 MOVE19 PICTURE IS X(5). NC1044.2
- 006800 01 MOVE20 PICTURE IS X(4). NC1044.2
- 006900 01 MOVE21 PICTURE IS X(7). NC1044.2
- 007000 01 MOVE22 PICTURE IS XBX0XBX0X. NC1044.2
- 007100 01 MOVE23 PICTURE IS 999V99 NC1044.2
- 007200 VALUE IS 123.45. NC1044.2
- 007300 01 MOVE24 PICTURE IS XBXXXB000XXXX. NC1044.2
- 007400 01 MOVE25 PICTURE IS 999. NC1044.2
- 007500 01 MOVE26 PICTURE IS 999V99. NC1044.2
- 007600 01 MOVE27 PICTURE IS 99PP. NC1044.2
- 007700 01 MOVE29 PICTURE IS 9999V999. NC1044.2
- 007800 01 MOVE29A VALUE IS "$123.45". NC1044.2
- 007900 02 MOVE30 PICTURE IS $999.99. NC1044.2
- 008000 01 MOVE31 PICTURE IS X(9). NC1044.2
- 008100 01 MOVE32 PICTURE IS X(5) NC1044.2
- 008200 VALUE IS "ABCDE". NC1044.2
- 008300 01 MOVE33 PICTURE IS A(5). NC1044.2
- 008400 01 MOVE34 PICTURE IS A(7). NC1044.2
- 008500 01 MOVE35 PICTURE IS A(3). NC1044.2
- 008600 01 MOVE35A VALUE IS "1 A05". NC1044.2
- 008700 02 MOVE36 PICTURE IS XBA09. NC1044.2
- 008800 01 MOVE37 PICTURE IS AAAAA NC1044.2
- 008900 VALUE IS "ABCDE". NC1044.2
- 009000 01 MOVE39 PICTURE IS 0XXXXX0. NC1044.2
- 009100 01 MOVE47A. NC1044.2
- 009200 02 MOVE48 PICTURE IS 9V9(17). NC1044.2
- 009300 02 MOVE49 PICTURE IS 9(5) NC1044.2
- 009400 VALUE IS 00045. NC1044.2
- 009500 02 MOVE50 PICTURE IS X(5) NC1044.2
- 009600 VALUE IS "12345". NC1044.2
- 009700 02 MOVE51 PICTURE IS S9(5) NC1044.2
- 009800 VALUE IS -12345. NC1044.2
- 009900 02 MOVE52 PICTURE IS 9(5)-. NC1044.2
- 010000 01 AN-DATANAMES. NC1044.2
- 010100 02 ANDATA1 PICTURE X VALUE SPACE. NC1044.2
- 010200 02 ANDATA2 PICTURE XX VALUE SPACE. NC1044.2
- 010300 02 ANDATA3 PICTURE XXX VALUE SPACE. NC1044.2
- 010400 02 ANDATA4 PICTURE X(4) VALUE SPACE. NC1044.2
- 010500 02 ANDATA5 PICTURE X(5) VALUE SPACE. NC1044.2
- 010600 02 ANDATA6 PICTURE X(6) VALUE SPACE. NC1044.2
- 010700 02 ANDATA7 PICTURE X(7) VALUE SPACE. NC1044.2
- 010800 02 ANDATA8 PICTURE X(8) VALUE SPACE. NC1044.2
- 010900 02 ANDATA9 PICTURE X(9) VALUE SPACE. NC1044.2
- 011000 02 ANDATA10 PICTURE X(10) VALUE SPACE. NC1044.2
- 011100 02 ANDATA11 PICTURE X(11) VALUE SPACE. NC1044.2
- 011200 02 ANDATA12 PICTURE X(12) VALUE SPACE. NC1044.2
- 011300 02 ANDATA13 PICTURE X(13) VALUE SPACE. NC1044.2
- 011400 02 ANDATA14 PICTURE X(14) VALUE SPACE. NC1044.2
- 011500 02 ANDATA15 PICTURE X(15) VALUE SPACE. NC1044.2
- 011600 02 ANDATA16 PICTURE X(16) VALUE SPACE. NC1044.2
- 011700 02 ANDATA17 PICTURE X(17) VALUE SPACE. NC1044.2
- 011800 02 ANDATA18 PICTURE X(18) VALUE SPACE. NC1044.2
- 011900 02 ANDATA19 PICTURE X(19) VALUE SPACE. NC1044.2
- 012000 02 ANDATA20 PICTURE X(20) VALUE SPACE. NC1044.2
- 012100 02 ANDATA21 PICTURE X(120) VALUE SPACE. NC1044.2
- 012200 01 42-DATANAMES. NC1044.2
- 012300 02 DNAME1 PICTURE 9 VALUE 1 COMPUTATIONAL. NC1044.2
- 012400 02 DNAME2 PICTURE 99 VALUE 01 COMPUTATIONAL. NC1044.2
- 012500 02 DNAME3 PICTURE 999 VALUE 001 COMPUTATIONAL. NC1044.2
- 012600 02 DNAME4 PICTURE 9(4) VALUE 0001 COMPUTATIONAL. NC1044.2
- 012700 02 DNAME5 PICTURE 9(5) VALUE 00001 COMPUTATIONAL. NC1044.2
- 012800 02 DNAME6 PICTURE 9(6) VALUE 000001 COMPUTATIONAL. NC1044.2
- 012900 02 DNAME7 PICTURE 9(7) VALUE 0000001 COMPUTATIONAL. NC1044.2
- 013000 02 DNAME8 PICTURE 9(8) VALUE 00000001 COMPUTATIONAL. NC1044.2
- 013100 02 DNAME9 PICTURE 9(9) VALUE 000000001. NC1044.2
- 013200 02 DNAME10 PICTURE 9(10) VALUE 0000000001. NC1044.2
- 013300 02 DNAME11 PICTURE 9(11) VALUE 00000000001. NC1044.2
- 013400 02 DNAME12 PICTURE 9(12) VALUE 000000000001. NC1044.2
- 013500 02 DNAME13 PICTURE 9(13) VALUE 0000000000001. NC1044.2
- 013600 02 DNAME14 PICTURE 9(14) VALUE 00000000000001. NC1044.2
- 013700 02 DNAME15 PICTURE 9(15) VALUE 000000000000001. NC1044.2
- 013800 02 DNAME16 PICTURE 9(16) VALUE 0000000000000001. NC1044.2
- 013900 02 DNAME17 PICTURE 9(17) VALUE 00000000000000001. NC1044.2
- 014000 02 DNAME18 PICTURE 9(18) VALUE 000000000000000001. NC1044.2
- 014100 02 DNAME19 PICTURE 9 VALUE 1. NC1044.2
- 014200 02 DNAME20 PICTURE 99 VALUE 11. NC1044.2
- 014300 02 DNAME21 PICTURE 999 VALUE 111. NC1044.2
- 014400 02 DNAME22 PICTURE 9(18) VALUE ZERO. NC1044.2
- 014500 02 DNAME23 PICTURE 9(18) VALUE ZERO. NC1044.2
- 014600 02 DNAME24 PICTURE 9(18) VALUE ZERO. NC1044.2
- 014700 02 DNAME25 PICTURE 9(18) VALUE ZERO. NC1044.2
- 014800 02 DNAME26 PICTURE 9(18) VALUE ZERO. NC1044.2
- 014900 02 DNAME27 PICTURE 9(18) VALUE ZERO. NC1044.2
- 015000 02 DNAME28 PICTURE 9(18) VALUE ZERO. NC1044.2
- 015100 02 DNAME29 PICTURE 9(18) VALUE ZERO. NC1044.2
- 015200 02 DNAME30 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
- 015300 02 DNAME31 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
- 015400 02 DNAME32 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
- 015500 02 DNAME33 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
- 015600 02 DNAME34 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
- 015700 02 DNAME35 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
- 015800 02 DNAME36 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
- 015900 02 DNAME37 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
- 016000 02 DNAME38 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
- 016100 02 DNAME39 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
- 016200 02 DNAME40 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
- 016300 02 DNAME41 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
- 016400 02 DNAME42 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC1044.2
- 016500 01 TEST-RESULTS. NC1044.2
- 016600 02 FILLER PIC X VALUE SPACE. NC1044.2
- 016700 02 FEATURE PIC X(20) VALUE SPACE. NC1044.2
- 016800 02 FILLER PIC X VALUE SPACE. NC1044.2
- 016900 02 P-OR-F PIC X(5) VALUE SPACE. NC1044.2
- 017000 02 FILLER PIC X VALUE SPACE. NC1044.2
- 017100 02 PAR-NAME. NC1044.2
- 017200 03 FILLER PIC X(19) VALUE SPACE. NC1044.2
- 017300 03 PARDOT-X PIC X VALUE SPACE. NC1044.2
- 017400 03 DOTVALUE PIC 99 VALUE ZERO. NC1044.2
- 017500 02 FILLER PIC X(8) VALUE SPACE. NC1044.2
- 017600 02 RE-MARK PIC X(61). NC1044.2
- 017700 01 TEST-COMPUTED. NC1044.2
- 017800 02 FILLER PIC X(30) VALUE SPACE. NC1044.2
- 017900 02 FILLER PIC X(17) VALUE NC1044.2
- 018000 " COMPUTED=". NC1044.2
- 018100 02 COMPUTED-X. NC1044.2
- 018200 03 COMPUTED-A PIC X(20) VALUE SPACE. NC1044.2
- 018300 03 COMPUTED-N REDEFINES COMPUTED-A NC1044.2
- 018400 PIC -9(9).9(9). NC1044.2
- 018500 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC1044.2
- 018600 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). NC1044.2
- 018700 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC1044.2
- 018800 03 CM-18V0 REDEFINES COMPUTED-A. NC1044.2
- 018900 04 COMPUTED-18V0 PIC -9(18). NC1044.2
- 019000 04 FILLER PIC X. NC1044.2
- 019100 03 FILLER PIC X(50) VALUE SPACE. NC1044.2
- 019200 01 TEST-CORRECT. NC1044.2
- 019300 02 FILLER PIC X(30) VALUE SPACE. NC1044.2
- 019400 02 FILLER PIC X(17) VALUE " CORRECT =". NC1044.2
- 019500 02 CORRECT-X. NC1044.2
- 019600 03 CORRECT-A PIC X(20) VALUE SPACE. NC1044.2
- 019700 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). NC1044.2
- 019800 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). NC1044.2
- 019900 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC1044.2
- 020000 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). NC1044.2
- 020100 03 CR-18V0 REDEFINES CORRECT-A. NC1044.2
- 020200 04 CORRECT-18V0 PIC -9(18). NC1044.2
- 020300 04 FILLER PIC X. NC1044.2
- 020400 03 FILLER PIC X(2) VALUE SPACE. NC1044.2
- 020500 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC1044.2
- 020600 01 CCVS-C-1. NC1044.2
- 020700 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC1044.2
- 020800- "SS PARAGRAPH-NAME NC1044.2
- 020900- " REMARKS". NC1044.2
- 021000 02 FILLER PIC X(20) VALUE SPACE. NC1044.2
- 021100 01 CCVS-C-2. NC1044.2
- 021200 02 FILLER PIC X VALUE SPACE. NC1044.2
- 021300 02 FILLER PIC X(6) VALUE "TESTED". NC1044.2
- 021400 02 FILLER PIC X(15) VALUE SPACE. NC1044.2
- 021500 02 FILLER PIC X(4) VALUE "FAIL". NC1044.2
- 021600 02 FILLER PIC X(94) VALUE SPACE. NC1044.2
- 021700 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC1044.2
- 021800 01 REC-CT PIC 99 VALUE ZERO. NC1044.2
- 021900 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC1044.2
- 022000 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC1044.2
- 022100 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC1044.2
- 022200 01 PASS-COUNTER PIC 999 VALUE ZERO. NC1044.2
- 022300 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC1044.2
- 022400 01 ERROR-HOLD PIC 999 VALUE ZERO. NC1044.2
- 022500 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC1044.2
- 022600 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC1044.2
- 022700 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC1044.2
- 022800 01 CCVS-H-1. NC1044.2
- 022900 02 FILLER PIC X(39) VALUE SPACES. NC1044.2
- 023000 02 FILLER PIC X(42) VALUE NC1044.2
- 023100 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC1044.2
- 023200 02 FILLER PIC X(39) VALUE SPACES. NC1044.2
- 023300 01 CCVS-H-2A. NC1044.2
- 023400 02 FILLER PIC X(40) VALUE SPACE. NC1044.2
- 023500 02 FILLER PIC X(7) VALUE "CCVS85 ". NC1044.2
- 023600 02 FILLER PIC XXXX VALUE NC1044.2
- 023700 "4.2 ". NC1044.2
- 023800 02 FILLER PIC X(28) VALUE NC1044.2
- 023900 " COPY - NOT FOR DISTRIBUTION". NC1044.2
- 024000 02 FILLER PIC X(41) VALUE SPACE. NC1044.2
- 024100 NC1044.2
- 024200 01 CCVS-H-2B. NC1044.2
- 024300 02 FILLER PIC X(15) VALUE NC1044.2
- 024400 "TEST RESULT OF ". NC1044.2
- 024500 02 TEST-ID PIC X(9). NC1044.2
- 024600 02 FILLER PIC X(4) VALUE NC1044.2
- 024700 " IN ". NC1044.2
- 024800 02 FILLER PIC X(12) VALUE NC1044.2
- 024900 " HIGH ". NC1044.2
- 025000 02 FILLER PIC X(22) VALUE NC1044.2
- 025100 " LEVEL VALIDATION FOR ". NC1044.2
- 025200 02 FILLER PIC X(58) VALUE NC1044.2
- 025300 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1044.2
- 025400 01 CCVS-H-3. NC1044.2
- 025500 02 FILLER PIC X(34) VALUE NC1044.2
- 025600 " FOR OFFICIAL USE ONLY ". NC1044.2
- 025700 02 FILLER PIC X(58) VALUE NC1044.2
- 025800 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1044.2
- 025900 02 FILLER PIC X(28) VALUE NC1044.2
- 026000 " COPYRIGHT 1985 ". NC1044.2
- 026100 01 CCVS-E-1. NC1044.2
- 026200 02 FILLER PIC X(52) VALUE SPACE. NC1044.2
- 026300 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC1044.2
- 026400 02 ID-AGAIN PIC X(9). NC1044.2
- 026500 02 FILLER PIC X(45) VALUE SPACES. NC1044.2
- 026600 01 CCVS-E-2. NC1044.2
- 026700 02 FILLER PIC X(31) VALUE SPACE. NC1044.2
- 026800 02 FILLER PIC X(21) VALUE SPACE. NC1044.2
- 026900 02 CCVS-E-2-2. NC1044.2
- 027000 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC1044.2
- 027100 03 FILLER PIC X VALUE SPACE. NC1044.2
- 027200 03 ENDER-DESC PIC X(44) VALUE NC1044.2
- 027300 "ERRORS ENCOUNTERED". NC1044.2
- 027400 01 CCVS-E-3. NC1044.2
- 027500 02 FILLER PIC X(22) VALUE NC1044.2
- 027600 " FOR OFFICIAL USE ONLY". NC1044.2
- 027700 02 FILLER PIC X(12) VALUE SPACE. NC1044.2
- 027800 02 FILLER PIC X(58) VALUE NC1044.2
- 027900 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1044.2
- 028000 02 FILLER PIC X(13) VALUE SPACE. NC1044.2
- 028100 02 FILLER PIC X(15) VALUE NC1044.2
- 028200 " COPYRIGHT 1985". NC1044.2
- 028300 01 CCVS-E-4. NC1044.2
- 028400 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC1044.2
- 028500 02 FILLER PIC X(4) VALUE " OF ". NC1044.2
- 028600 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC1044.2
- 028700 02 FILLER PIC X(40) VALUE NC1044.2
- 028800 " TESTS WERE EXECUTED SUCCESSFULLY". NC1044.2
- 028900 01 XXINFO. NC1044.2
- 029000 02 FILLER PIC X(19) VALUE NC1044.2
- 029100 "*** INFORMATION ***". NC1044.2
- 029200 02 INFO-TEXT. NC1044.2
- 029300 04 FILLER PIC X(8) VALUE SPACE. NC1044.2
- 029400 04 XXCOMPUTED PIC X(20). NC1044.2
- 029500 04 FILLER PIC X(5) VALUE SPACE. NC1044.2
- 029600 04 XXCORRECT PIC X(20). NC1044.2
- 029700 02 INF-ANSI-REFERENCE PIC X(48). NC1044.2
- 029800 01 HYPHEN-LINE. NC1044.2
- 029900 02 FILLER PIC IS X VALUE IS SPACE. NC1044.2
- 030000 02 FILLER PIC IS X(65) VALUE IS "************************NC1044.2
- 030100- "*****************************************". NC1044.2
- 030200 02 FILLER PIC IS X(54) VALUE IS "************************NC1044.2
- 030300- "******************************". NC1044.2
- 030400 01 CCVS-PGM-ID PIC X(9) VALUE NC1044.2
- 030500 "NC104A". NC1044.2
- 030600 PROCEDURE DIVISION. NC1044.2
- 030700 CCVS1 SECTION. NC1044.2
- 030800 OPEN-FILES. NC1044.2
- 030900 OPEN OUTPUT PRINT-FILE. NC1044.2
- 031000 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC1044.2
- 031100 MOVE SPACE TO TEST-RESULTS. NC1044.2
- 031200 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC1044.2
- 031300 GO TO CCVS1-EXIT. NC1044.2
- 031400 CLOSE-FILES. NC1044.2
- 031500 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC1044.2
- 031600 TERMINATE-CCVS. NC1044.2
- 031700* EXIT PROGRAM. NC1044.2
- 031800*TERMINATE-CALL. NC1044.2
- 031900 STOP RUN. NC1044.2
- 032000 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC1044.2
- 032100 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC1044.2
- 032200 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC1044.2
- 032300 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC1044.2
- 032400 MOVE "****TEST DELETED****" TO RE-MARK. NC1044.2
- 032500 PRINT-DETAIL. NC1044.2
- 032600 IF REC-CT NOT EQUAL TO ZERO NC1044.2
- 032700 MOVE "." TO PARDOT-X NC1044.2
- 032800 MOVE REC-CT TO DOTVALUE. NC1044.2
- 032900 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC1044.2
- 033000 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC1044.2
- 033100 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC1044.2
- 033200 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC1044.2
- 033300 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC1044.2
- 033400 MOVE SPACE TO CORRECT-X. NC1044.2
- 033500 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC1044.2
- 033600 MOVE SPACE TO RE-MARK. NC1044.2
- 033700 HEAD-ROUTINE. NC1044.2
- 033800 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1044.2
- 033900 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1044.2
- 034000 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1044.2
- 034100 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC1044.2
- 034200 COLUMN-NAMES-ROUTINE. NC1044.2
- 034300 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1044.2
- 034400 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1044.2
- 034500 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1044.2
- 034600 END-ROUTINE. NC1044.2
- 034700 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC1044.2
- 034800 END-RTN-EXIT. NC1044.2
- 034900 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1044.2
- 035000 END-ROUTINE-1. NC1044.2
- 035100 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC1044.2
- 035200 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC1044.2
- 035300 ADD PASS-COUNTER TO ERROR-HOLD. NC1044.2
- 035400* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC1044.2
- 035500 MOVE PASS-COUNTER TO CCVS-E-4-1. NC1044.2
- 035600 MOVE ERROR-HOLD TO CCVS-E-4-2. NC1044.2
- 035700 MOVE CCVS-E-4 TO CCVS-E-2-2. NC1044.2
- 035800 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC1044.2
- 035900 END-ROUTINE-12. NC1044.2
- 036000 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC1044.2
- 036100 IF ERROR-COUNTER IS EQUAL TO ZERO NC1044.2
- 036200 MOVE "NO " TO ERROR-TOTAL NC1044.2
- 036300 ELSE NC1044.2
- 036400 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC1044.2
- 036500 MOVE CCVS-E-2 TO DUMMY-RECORD. NC1044.2
- 036600 PERFORM WRITE-LINE. NC1044.2
- 036700 END-ROUTINE-13. NC1044.2
- 036800 IF DELETE-COUNTER IS EQUAL TO ZERO NC1044.2
- 036900 MOVE "NO " TO ERROR-TOTAL ELSE NC1044.2
- 037000 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC1044.2
- 037100 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC1044.2
- 037200 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1044.2
- 037300 IF INSPECT-COUNTER EQUAL TO ZERO NC1044.2
- 037400 MOVE "NO " TO ERROR-TOTAL NC1044.2
- 037500 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC1044.2
- 037600 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC1044.2
- 037700 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1044.2
- 037800 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC1044.2
- 037900 WRITE-LINE. NC1044.2
- 038000 ADD 1 TO RECORD-COUNT. NC1044.2
- 038100* IF RECORD-COUNT GREATER 42 NC1044.2
- 038200* MOVE DUMMY-RECORD TO DUMMY-HOLD NC1044.2
- 038300* MOVE SPACE TO DUMMY-RECORD NC1044.2
- 038400* WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC1044.2
- 038500* MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1044.2
- 038600* MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC1044.2
- 038700* MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1044.2
- 038800* MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES NC1044.2
- 038900* MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC1044.2
- 039000* MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN NC1044.2
- 039100* MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC1044.2
- 039200* MOVE DUMMY-HOLD TO DUMMY-RECORD NC1044.2
- 039300* MOVE ZERO TO RECORD-COUNT. NC1044.2
- 039400 PERFORM WRT-LN. NC1044.2
- 039500 WRT-LN. NC1044.2
- 039600 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC1044.2
- 039700 MOVE SPACE TO DUMMY-RECORD. NC1044.2
- 039800 BLANK-LINE-PRINT. NC1044.2
- 039900 PERFORM WRT-LN. NC1044.2
- 040000 FAIL-ROUTINE. NC1044.2
- 040100 IF COMPUTED-X NOT EQUAL TO SPACE NC1044.2
- 040200 GO TO FAIL-ROUTINE-WRITE. NC1044.2
- 040300 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC1044.2
- 040400 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1044.2
- 040500 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC1044.2
- 040600 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1044.2
- 040700 MOVE SPACES TO INF-ANSI-REFERENCE. NC1044.2
- 040800 GO TO FAIL-ROUTINE-EX. NC1044.2
- 040900 FAIL-ROUTINE-WRITE. NC1044.2
- 041000 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC1044.2
- 041100 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC1044.2
- 041200 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC1044.2
- 041300 MOVE SPACES TO COR-ANSI-REFERENCE. NC1044.2
- 041400 FAIL-ROUTINE-EX. EXIT. NC1044.2
- 041500 BAIL-OUT. NC1044.2
- 041600 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC1044.2
- 041700 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC1044.2
- 041800 BAIL-OUT-WRITE. NC1044.2
- 041900 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC1044.2
- 042000 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC1044.2
- 042100 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC1044.2
- 042200 MOVE SPACES TO INF-ANSI-REFERENCE. NC1044.2
- 042300 BAIL-OUT-EX. EXIT. NC1044.2
- 042400 CCVS1-EXIT. NC1044.2
- 042500 EXIT. NC1044.2
- 042600 SECT-NC104A-001 SECTION. NC1044.2
- 042700 MOVE-INIT-F1-1. NC1044.2
- 042800 MOVE "MOVE NUMERIC INTEGER" TO FEATURE. NC1044.2
- 042900 MOVE "V1-102 6.18.2" TO ANSI-REFERENCE. NC1044.2
- 043000 MOVE 12345 TO MOVE1. NC1044.2
- 043100 MOVE-TEST-F1-1-0. NC1044.2
- 043200 MOVE MOVE1 TO MOVE2. NC1044.2
- 043300 MOVE-TEST-F1-1-1. NC1044.2
- 043400 IF MOVE2 EQUAL TO 12345 NC1044.2
- 043500 PERFORM PASS NC1044.2
- 043600 ELSE NC1044.2
- 043700 GO TO MOVE-FAIL-F1-1. NC1044.2
- 043800* NOTE NI TO NI (NUMERIC INTEGRAL) MOVE, EQUAL SIZE. NC1044.2
- 043900 GO TO MOVE-WRITE-F1-1. NC1044.2
- 044000 MOVE-DELETE-F1-1. NC1044.2
- 044100 PERFORM DE-LETE. NC1044.2
- 044200 GO TO MOVE-WRITE-F1-1. NC1044.2
- 044300 MOVE-FAIL-F1-1. NC1044.2
- 044400 MOVE MOVE2 TO COMPUTED-N. NC1044.2
- 044500 MOVE 12345 TO CORRECT-N. NC1044.2
- 044600 PERFORM FAIL. NC1044.2
- 044700 MOVE-WRITE-F1-1. NC1044.2
- 044800 MOVE "MOVE-TEST-F1-1 " TO PAR-NAME. NC1044.2
- 044900 PERFORM PRINT-DETAIL. NC1044.2
- 045000 MOVE-INIT-F1-2. NC1044.2
- 045100 MOVE 12345 TO MOVE1. NC1044.2
- 045200 MOVE-TEST-F1-2-0. NC1044.2
- 045300 MOVE MOVE1 TO MOVE3. NC1044.2
- 045400 MOVE-TEST-F1-2-1. NC1044.2
- 045500 IF MOVE3 EQUAL TO 45 NC1044.2
- 045600 PERFORM PASS NC1044.2
- 045700 ELSE NC1044.2
- 045800 GO TO MOVE-FAIL-F1-2. NC1044.2
- 045900* NOTE NI TO NI MOVE, WITH TRUNCATION. NC1044.2
- 046000 GO TO MOVE-WRITE-F1-2. NC1044.2
- 046100 MOVE-DELETE-F1-2. NC1044.2
- 046200 PERFORM DE-LETE. NC1044.2
- 046300 GO TO MOVE-WRITE-F1-2. NC1044.2
- 046400 MOVE-FAIL-F1-2. NC1044.2
- 046500 MOVE MOVE3 TO COMPUTED-N. NC1044.2
- 046600 MOVE 45 TO CORRECT-N. NC1044.2
- 046700 PERFORM FAIL. NC1044.2
- 046800 MOVE-WRITE-F1-2. NC1044.2
- 046900 MOVE "MOVE-TEST-F1-2 " TO PAR-NAME. NC1044.2
- 047000 PERFORM PRINT-DETAIL. NC1044.2
- 047100 MOVE-INIT-F1-3. NC1044.2
- 047200 MOVE 12345 TO MOVE1. NC1044.2
- 047300 MOVE-TEST-F1-3-0. NC1044.2
- 047400 MOVE MOVE1 TO MOVE4. NC1044.2
- 047500 MOVE-TEST-F1-3-1. NC1044.2
- 047600 IF MOVE4 EQUAL TO 0012345 NC1044.2
- 047700 PERFORM PASS NC1044.2
- 047800 ELSE NC1044.2
- 047900 GO TO MOVE-FAIL-F1-3. NC1044.2
- 048000* NOTE NI TO NI MOVE, WITH ZERO PADDING. NC1044.2
- 048100 GO TO MOVE-WRITE-F1-3. NC1044.2
- 048200 MOVE-DELETE-F1-3. NC1044.2
- 048300 PERFORM DE-LETE. NC1044.2
- 048400 GO TO MOVE-WRITE-F1-3. NC1044.2
- 048500 MOVE-FAIL-F1-3. NC1044.2
- 048600 MOVE MOVE4 TO COMPUTED-N. NC1044.2
- 048700 MOVE 0012345 TO CORRECT-N. NC1044.2
- 048800 PERFORM FAIL. NC1044.2
- 048900 MOVE-WRITE-F1-3. NC1044.2
- 049000 MOVE "MOVE-TEST-F1-3 " TO PAR-NAME. NC1044.2
- 049100 PERFORM PRINT-DETAIL. NC1044.2
- 049200 MOVE-INIT-F1-4. NC1044.2
- 049300 MOVE 12345 TO MOVE1. NC1044.2
- 049400 MOVE-TEST-F1-4-0. NC1044.2
- 049500 MOVE MOVE1 TO MOVE5. NC1044.2
- 049600 MOVE-TEST-F1-4-1. NC1044.2
- 049700 IF MOVE5 EQUAL TO 45 NC1044.2
- 049800 PERFORM PASS NC1044.2
- 049900 ELSE NC1044.2
- 050000 GO TO MOVE-FAIL-F1-4. NC1044.2
- 050100* NOTE NI TO NNI (NUMERIC NON INTEGER), LEFT TRUNCATION NC1044.2
- 050200* ZERO FILL ON RIGHT. NC1044.2
- 050300 GO TO MOVE-WRITE-F1-4. NC1044.2
- 050400 MOVE-DELETE-F1-4. NC1044.2
- 050500 PERFORM DE-LETE. NC1044.2
- 050600 GO TO MOVE-WRITE-F1-4. NC1044.2
- 050700 MOVE-FAIL-F1-4. NC1044.2
- 050800 MOVE MOVE5 TO COMPUTED-N. NC1044.2
- 050900 MOVE 45 TO CORRECT-N. NC1044.2
- 051000 PERFORM FAIL. NC1044.2
- 051100 MOVE-WRITE-F1-4. NC1044.2
- 051200 MOVE "MOVE-TEST-F1-4 " TO PAR-NAME. NC1044.2
- 051300 PERFORM PRINT-DETAIL. NC1044.2
- 051400 MOVE-INIT-F1-5. NC1044.2
- 051500 MOVE 12345 TO MOVE1. NC1044.2
- 051600 MOVE-TEST-F1-5-0. NC1044.2
- 051700 MOVE MOVE1 TO MOVE48. NC1044.2
- 051800 MOVE-TEST-F1-5-1. NC1044.2
- 051900 IF MOVE48 EQUAL TO 5 NC1044.2
- 052000 PERFORM PASS NC1044.2
- 052100 ELSE NC1044.2
- 052200 GO TO MOVE-FAIL-F1-5. NC1044.2
- 052300* NOTE NI TO NNI MOVE, RECEIVING FIELD MAX SIZE. NC1044.2
- 052400 GO TO MOVE-WRITE-F1-5. NC1044.2
- 052500 MOVE-DELETE-F1-5. NC1044.2
- 052600 PERFORM DE-LETE. NC1044.2
- 052700 GO TO MOVE-WRITE-F1-5. NC1044.2
- 052800 MOVE-FAIL-F1-5. NC1044.2
- 052900 MOVE MOVE48 TO COMPUTED-N. NC1044.2
- 053000 MOVE 5 TO CORRECT-N. NC1044.2
- 053100 PERFORM FAIL. NC1044.2
- 053200 MOVE-WRITE-F1-5. NC1044.2
- 053300 MOVE "MOVE-TEST-F1-5 " TO PAR-NAME. NC1044.2
- 053400 PERFORM PRINT-DETAIL. NC1044.2
- 053500 MOVE-INIT-F1-6. NC1044.2
- 053600 MOVE 12345 TO MOVE1. NC1044.2
- 053700 MOVE-TEST-F1-6-0. NC1044.2
- 053800 MOVE MOVE1 TO MOVE27. NC1044.2
- 053900 MOVE-TEST-F1-6-1. NC1044.2
- 054000 IF MOVE27 EQUAL TO 2300 NC1044.2
- 054100 PERFORM PASS NC1044.2
- 054200 ELSE NC1044.2
- 054300 GO TO MOVE-FAIL-F1-6. NC1044.2
- 054400* NOTE NI TO NNI MOVE SCALING. NC1044.2
- 054500 GO TO MOVE-WRITE-F1-6. NC1044.2
- 054600 MOVE-DELETE-F1-6. NC1044.2
- 054700 PERFORM DE-LETE. NC1044.2
- 054800 GO TO MOVE-WRITE-F1-6. NC1044.2
- 054900 MOVE-FAIL-F1-6. NC1044.2
- 055000 MOVE MOVE27 TO COMPUTED-N. NC1044.2
- 055100 MOVE 2300 TO CORRECT-N. NC1044.2
- 055200 PERFORM FAIL. NC1044.2
- 055300 MOVE-WRITE-F1-6. NC1044.2
- 055400 MOVE "MOVE-TEST-F1-6 " TO PAR-NAME. NC1044.2
- 055500 PERFORM PRINT-DETAIL. NC1044.2
- 055600 MOVE-INIT-F1-7. NC1044.2
- 055700 MOVE 12345 TO MOVE1. NC1044.2
- 055800 MOVE-TEST-F1-7-0. NC1044.2
- 055900 MOVE MOVE1 TO MOVE8. NC1044.2
- 056000 MOVE-TEST-F1-7-1. NC1044.2
- 056100 IF MOVE1 EQUAL TO 12345.00 NC1044.2
- 056200 PERFORM PASS NC1044.2
- 056300 ELSE NC1044.2
- 056400 GO TO MOVE-FAIL-F1-7. NC1044.2
- 056500* NOTE NI TO NNI MOVE, ZERO PADDING ON RIGHT. NC1044.2
- 056600 GO TO MOVE-WRITE-F1-7. NC1044.2
- 056700 MOVE-DELETE-F1-7. NC1044.2
- 056800 PERFORM DE-LETE. NC1044.2
- 056900 GO TO MOVE-WRITE-F1-7. NC1044.2
- 057000 MOVE-FAIL-F1-7. NC1044.2
- 057100 MOVE MOVE8 TO COMPUTED-N. NC1044.2
- 057200 MOVE 12345.00 TO CORRECT-N. NC1044.2
- 057300 PERFORM FAIL. NC1044.2
- 057400 MOVE-WRITE-F1-7. NC1044.2
- 057500 MOVE "MOVE-TEST-F1-7 " TO PAR-NAME. NC1044.2
- 057600 PERFORM PRINT-DETAIL. NC1044.2
- 057700 MOVE-INIT-F1-8. NC1044.2
- 057800 MOVE 12345 TO MOVE1. NC1044.2
- 057900 MOVE-TEST-F1-8-0. NC1044.2
- 058000 MOVE MOVE1 TO MOVE9. NC1044.2
- 058100 MOVE-TEST-F1-8-1. NC1044.2
- 058200 IF MOVE9 EQUAL TO 012345.00 NC1044.2
- 058300 PERFORM PASS NC1044.2
- 058400 ELSE NC1044.2
- 058500 GO TO MOVE-FAIL-F1-8. NC1044.2
- 058600* NOTE NI TO NNI MOVE, ZERO PADDING LEFT AND RIGHT. NC1044.2
- 058700 GO TO MOVE-WRITE-F1-8. NC1044.2
- 058800 MOVE-DELETE-F1-8. NC1044.2
- 058900 PERFORM DE-LETE. NC1044.2
- 059000 GO TO MOVE-WRITE-F1-8. NC1044.2
- 059100 MOVE-FAIL-F1-8. NC1044.2
- 059200 MOVE MOVE9 TO COMPUTED-N. NC1044.2
- 059300 MOVE 0012345.00 TO CORRECT-N. NC1044.2
- 059400 PERFORM FAIL. NC1044.2
- 059500 MOVE-WRITE-F1-8. NC1044.2
- 059600 MOVE "MOVE-TEST-F1-8 " TO PAR-NAME. NC1044.2
- 059700 PERFORM PRINT-DETAIL. NC1044.2
- 059800 MOVE-INIT-F1-9. NC1044.2
- 059900 MOVE 12345 TO MOVE1. NC1044.2
- 060000 MOVE-TEST-F1-9-0. NC1044.2
- 060100 MOVE MOVE1 TO MOVE10. NC1044.2
- 060200 MOVE-TEST-F1-9-1. NC1044.2
- 060300 IF MOVE10 EQUAL TO "$345.00" NC1044.2
- 060400 PERFORM PASS NC1044.2
- 060500 ELSE NC1044.2
- 060600 GO TO MOVE-FAIL-F1-9. NC1044.2
- 060700* NOTE NI TO NE MOVE, FIXED INSERTION, CURRENCY SIGN, PERIOD. NC1044.2
- 060800 GO TO MOVE-WRITE-F1-9. NC1044.2
- 060900 MOVE-DELETE-F1-9. NC1044.2
- 061000 PERFORM DE-LETE. NC1044.2
- 061100 GO TO MOVE-WRITE-F1-9. NC1044.2
- 061200 MOVE-FAIL-F1-9. NC1044.2
- 061300 MOVE MOVE10 TO COMPUTED-A. NC1044.2
- 061400 MOVE "$345.00" TO CORRECT-A. NC1044.2
- 061500 PERFORM FAIL. NC1044.2
- 061600 MOVE-WRITE-F1-9. NC1044.2
- 061700 MOVE "MOVE-T…