/src/test/resources/gov/nist/NC206A.CBL
https://github.com/uwol/proleap-cobol-parser · COBOL · 1697 lines · 1695 code · 0 blank · 2 comment · 0 complexity · abd88621d18d968dd8328c2927ac8882 MD5 · raw file
Large files are truncated click here to view the full file
- *HEADER,COBOL,NC206A
- 000100 IDENTIFICATION DIVISION. NC2064.2
- 000200 PROGRAM-ID. NC2064.2
- 000300**************************************************************** NC2064.2
- 000400* * NC2064.2
- 000500* VALIDATION FOR:- * NC2064.2
- 000600* * NC2064.2
- 000700* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2064.2
- 000800* * NC2064.2
- 000900* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2064.2
- 001000* * NC2064.2
- 001100**************************************************************** NC2064.2
- 001200* * NC2064.2
- 001300* X-CARDS USED BY THIS PROGRAM ARE :- * NC2064.2
- 001400* * NC2064.2
- 001500* X-55 - SYSTEM PRINTER NAME. * NC2064.2
- 001600* X-82 - SOURCE COMPUTER NAME. * NC2064.2
- 001700* X-83 - OBJECT COMPUTER NAME. * NC2064.2
- 001800* * NC2064.2
- 001900**************************************************************** NC2064.2
- 002000 NC206A. NC2064.2
- 002100* * NC2064.2
- 002200* PROGRAM NC206A TESTS THE ACCESSING OF ELEMENTARY ITEMS * NC2064.2
- 002300* USING FORMAT 1 QUALIFICATION WITH UP TO 5 LEVELS OF * NC2064.2
- 002400* QUALIFIERS. SINGLE DIMENSION TABLES ARE ALSO ACCESSES * NC2064.2
- 002500* USING SUBSCRIPTS QUALIFIED TO ONE LEVEL. * NC2064.2
- 002600* * NC2064.2
- 002700**************************************************************** NC2064.2
- 002800 ENVIRONMENT DIVISION. NC2064.2
- 002900 CONFIGURATION SECTION. NC2064.2
- 003000 SOURCE-COMPUTER. NC2064.2
- 003100 XXXXX082. NC2064.2
- 003200 OBJECT-COMPUTER. NC2064.2
- 003300 XXXXX083. NC2064.2
- 003400 INPUT-OUTPUT SECTION. NC2064.2
- 003500 FILE-CONTROL. NC2064.2
- 003600 SELECT PRINT-FILE ASSIGN TO NC2064.2
- 003700 XXXXX055. NC2064.2
- 003800 DATA DIVISION. NC2064.2
- 003900 FILE SECTION. NC2064.2
- 004000 FD PRINT-FILE. NC2064.2
- 004100 01 PRINT-REC PICTURE X(120). NC2064.2
- 004200 01 DUMMY-RECORD PICTURE X(120). NC2064.2
- 004300 WORKING-STORAGE SECTION. NC2064.2
- 004400 77 MAX-NAME-1 PICTURE S9(18) VALUE +1. NC2064.2
- 004500 01 TABLE-LEVEL-5A. NC2064.2
- 004600 02 TABLE-LEVEL-4A. NC2064.2
- 004700 03 TABLE-LEVEL-3A. NC2064.2
- 004800 04 TABLE-LEVEL-2A. NC2064.2
- 004900 05 TABLE-LEVEL-1A. NC2064.2
- 005000 06 TBL-LEVEL-0A PIC X(12) VALUE "5A4A3A2A1A0A".NC2064.2
- 005100 06 TBL-LEVEL-0B PIC X(12) VALUE "5A4A3A2A1A0B".NC2064.2
- 005200 06 TBL-LEVEL-0C PIC X(12) VALUE "5A4A3A2A1A0C".NC2064.2
- 005300 06 TBL-LEVEL-0D PIC X(12) VALUE "5A4A3A2A1A0D".NC2064.2
- 005400 05 TABLE-LEVEL-1B. NC2064.2
- 005500 06 TBL-LEVEL-0A PIC X(12) VALUE "5A4A3A2A1B0A".NC2064.2
- 005600 06 TBL-LEVEL-0B PIC X(12) VALUE "5A4A3A2A1B0B".NC2064.2
- 005700 06 TBL-LEVEL-0C PIC X(12) VALUE "5A4A3A2A1B0C".NC2064.2
- 005800 04 TABLE-LEVEL-2B. NC2064.2
- 005900 05 TABLE-LEVEL-1A. NC2064.2
- 006000 06 TBL-LEVEL-0A PIC X(12) VALUE "5A4A3A2B1A0A".NC2064.2
- 006100 06 TBL-LEVEL-0B PIC X(12) VALUE "5A4A3A2B1A0B".NC2064.2
- 006200 06 TBL-LEVEL-0C PIC X(12) VALUE "5A4A3A2B1A0C".NC2064.2
- 006300 05 TABLE-LEVEL-1B. NC2064.2
- 006400 06 TBL-LEVEL-0A PIC X(12) VALUE "5A4A3A2B1B0A".NC2064.2
- 006500 06 TBL-LEVEL-0B PIC X(12) VALUE "5A4A3A2B1B0B".NC2064.2
- 006600 06 TBL-LEVEL-0C PIC X(12) VALUE "5A4A3A2B1B0C".NC2064.2
- 006700 03 TABLE-LEVEL-3B. NC2064.2
- 006800 04 TABLE-LEVEL-2A. NC2064.2
- 006900 05 TABLE-LEVEL-1A. NC2064.2
- 007000 06 TBL-LEVEL-0A PIC X(12) VALUE "5A4A3B2A1A0A".NC2064.2
- 007100 06 TBL-LEVEL-0B PIC X(12) VALUE "5A4A3B2A1A0B".NC2064.2
- 007200 06 TBL-LEVEL-0C PIC X(12) VALUE "5A4A3B2A1A0C".NC2064.2
- 007300 05 TABLE-LEVEL-1B. NC2064.2
- 007400 06 TBL-LEVEL-0A PIC X(12) VALUE "5A4A3B2A1B0A".NC2064.2
- 007500 06 TBL-LEVEL-0B PIC X(12) VALUE "5A4A3B2A1B0B".NC2064.2
- 007600 06 TBL-LEVEL-0C PIC X(12) VALUE "5A4A3B2A1B0C".NC2064.2
- 007700 04 TABLE-LEVEL-2B. NC2064.2
- 007800 05 TABLE-LEVEL-1A. NC2064.2
- 007900 06 TBL-LEVEL-0A PIC X(12) VALUE "5A4A3B2B1A0A".NC2064.2
- 008000 06 TBL-LEVEL-0B PIC X(12) VALUE "5A4A3B2B1A0B".NC2064.2
- 008100 06 TBL-LEVEL-0C PIC X(12) VALUE "5A4A3B2B1A0C".NC2064.2
- 008200 05 TABLE-LEVEL-1B. NC2064.2
- 008300 06 TBL-LEVEL-0A PIC X(12) VALUE "5A4A3B2B1B0A".NC2064.2
- 008400 06 TBL-LEVEL-0B PIC X(12) VALUE "5A4A3B2B1B0B".NC2064.2
- 008500 06 TBL-LEVEL-0C PIC X(12) VALUE "5A4A3B2B1B0C".NC2064.2
- 008600 02 TABLE-LEVEL-4B. NC2064.2
- 008700 03 TABLE-LEVEL-3A. NC2064.2
- 008800 04 TABLE-LEVEL-2A. NC2064.2
- 008900 05 TABLE-LEVEL-1A. NC2064.2
- 009000 06 TBL-LEVEL-0A PIC X(12) VALUE "5A4B3A2A1A0A".NC2064.2
- 009100 06 TBL-LEVEL-0B PIC X(12) VALUE "5A4B3A2A1A0B".NC2064.2
- 009200 06 TBL-LEVEL-0C PIC X(12) VALUE "5A4B3A2A1A0C".NC2064.2
- 009300 05 TABLE-LEVEL-1B. NC2064.2
- 009400 06 TBL-LEVEL-0A PIC X(12) VALUE "5A4B3A2A1B0A".NC2064.2
- 009500 06 TBL-LEVEL-0B PIC X(12) VALUE "5A4B3A2A1B0B".NC2064.2
- 009600 06 TBL-LEVEL-0C PIC X(12) VALUE "5A4B3A2A1B0C".NC2064.2
- 009700 04 TABLE-LEVEL-2B. NC2064.2
- 009800 05 TABLE-LEVEL-1A. NC2064.2
- 009900 06 TBL-LEVEL-0A PIC X(12) VALUE "5A4B3A2B1A0A".NC2064.2
- 010000 06 TBL-LEVEL-0B PIC X(12) VALUE "5A4B3A2B1A0B".NC2064.2
- 010100 06 TBL-LEVEL-0C PIC X(12) VALUE "5A4B3A2B1A0C".NC2064.2
- 010200 05 TABLE-LEVEL-1B. NC2064.2
- 010300 06 TBL-LEVEL-0A PIC X(12) VALUE "5A4B3A2B1B0A".NC2064.2
- 010400 06 TBL-LEVEL-0B PIC X(12) VALUE "5A4B3A2B1B0B".NC2064.2
- 010500 06 TBL-LEVEL-0C PIC X(12) VALUE "5A4B3A2B1B0C".NC2064.2
- 010600 03 TABLE-LEVEL-3B. NC2064.2
- 010700 04 TABLE-LEVEL-2A. NC2064.2
- 010800 05 TABLE-LEVEL-1A. NC2064.2
- 010900 06 TBL-LEVEL-0A PIC X(12) VALUE "5A4B3B2A1A0A".NC2064.2
- 011000 06 TBL-LEVEL-0B PIC X(12) VALUE "5A4B3B2A1A0B".NC2064.2
- 011100 06 TBL-LEVEL-0C PIC X(12) VALUE "5A4B3B2A1A0C".NC2064.2
- 011200 05 TABLE-LEVEL-1B. NC2064.2
- 011300 06 TBL-LEVEL-0A PIC X(12) VALUE "5A4B3B2A1B0A".NC2064.2
- 011400 06 TBL-LEVEL-0B PIC X(12) VALUE "5A4B3B2A1B0B".NC2064.2
- 011500 06 TBL-LEVEL-0C PIC X(12) VALUE "5A4B3B2A1B0C".NC2064.2
- 011600 04 TABLE-LEVEL-2B. NC2064.2
- 011700 05 TABLE-LEVEL-1A. NC2064.2
- 011800 06 TBL-LEVEL-0A PIC X(12) VALUE "5A4B3B2B1A0A".NC2064.2
- 011900 06 TBL-LEVEL-0B PIC X(12) VALUE "5A4B3B2B1A0B".NC2064.2
- 012000 06 TBL-LEVEL-0C PIC X(12) VALUE "5A4B3B2B1A0C".NC2064.2
- 012100 05 TABLE-LEVEL-1B. NC2064.2
- 012200 06 TBL-LEVEL-0A PIC X(12) VALUE "5A4B3B2B1B0A".NC2064.2
- 012300 06 TBL-LEVEL-0B PIC X(12) VALUE "5A4B3B2B1B0B".NC2064.2
- 012400 06 TBL-LEVEL-0C PIC X(12) VALUE "5A4B3B2B1B0C".NC2064.2
- 012500 01 TABLE-LEVEL-5B. NC2064.2
- 012600 02 TABLE-LEVEL-4A. NC2064.2
- 012700 03 TABLE-LEVEL-3A. NC2064.2
- 012800 04 TABLE-LEVEL-2A. NC2064.2
- 012900 05 TABLE-LEVEL-1A. NC2064.2
- 013000 06 TBL-LEVEL-0A PIC X VALUE SPACE. NC2064.2
- 013100 06 TBL-LEVEL-0B PIC X VALUE SPACE. NC2064.2
- 013200 06 TBL-LEVEL-0C PIC X VALUE SPACE. NC2064.2
- 013300 05 TABLE-LEVEL-1B. NC2064.2
- 013400 06 TBL-LEVEL-0A PIC X VALUE SPACE. NC2064.2
- 013500 06 TBL-LEVEL-0B PIC X VALUE SPACE. NC2064.2
- 013600 06 TBL-LEVEL-0C PIC X VALUE SPACE. NC2064.2
- 013700 04 TABLE-LEVEL-2B. NC2064.2
- 013800 05 TABLE-LEVEL-1A. NC2064.2
- 013900 06 TBL-LEVEL-0A PIC X VALUE SPACE. NC2064.2
- 014000 06 TBL-LEVEL-0B PIC X VALUE SPACE. NC2064.2
- 014100 06 TBL-LEVEL-0C PIC X VALUE SPACE. NC2064.2
- 014200 05 TABLE-LEVEL-1B. NC2064.2
- 014300 06 TBL-LEVEL-0A PIC X VALUE SPACE. NC2064.2
- 014400 06 TBL-LEVEL-0B PIC X VALUE SPACE. NC2064.2
- 014500 06 TBL-LEVEL-0C PIC X VALUE SPACE. NC2064.2
- 014600 03 TABLE-LEVEL-3B. NC2064.2
- 014700 04 TABLE-LEVEL-2A. NC2064.2
- 014800 05 TABLE-LEVEL-1A. NC2064.2
- 014900 06 TBL-LEVEL-0A PIC X VALUE SPACE. NC2064.2
- 015000 06 TBL-LEVEL-0B PIC X VALUE SPACE. NC2064.2
- 015100 06 TBL-LEVEL-0C PIC X VALUE SPACE. NC2064.2
- 015200 05 TABLE-LEVEL-1B. NC2064.2
- 015300 06 TBL-LEVEL-0A PIC X VALUE SPACE. NC2064.2
- 015400 06 TBL-LEVEL-0B PIC X VALUE SPACE. NC2064.2
- 015500 06 TBL-LEVEL-0C PIC X VALUE SPACE. NC2064.2
- 015600 04 TABLE-LEVEL-2B. NC2064.2
- 015700 05 TABLE-LEVEL-1A. NC2064.2
- 015800 06 TBL-LEVEL-0A PIC X VALUE SPACE. NC2064.2
- 015900 06 TBL-LEVEL-0B PIC X VALUE SPACE. NC2064.2
- 016000 06 TBL-LEVEL-0C PIC X VALUE SPACE. NC2064.2
- 016100 05 TABLE-LEVEL-1B. NC2064.2
- 016200 06 TBL-LEVEL-0A PIC X VALUE SPACE. NC2064.2
- 016300 06 TBL-LEVEL-0B PIC X VALUE SPACE. NC2064.2
- 016400 06 TBL-LEVEL-0C PIC X VALUE SPACE. NC2064.2
- 016500 02 TABLE-LEVEL-4B. NC2064.2
- 016600 03 TABLE-LEVEL-3A. NC2064.2
- 016700 04 TABLE-LEVEL-2A. NC2064.2
- 016800 05 TABLE-LEVEL-1A. NC2064.2
- 016900 06 TBL-LEVEL-0A PIC X VALUE SPACE. NC2064.2
- 017000 06 TBL-LEVEL-0B PIC X VALUE SPACE. NC2064.2
- 017100 06 TBL-LEVEL-0C PIC X VALUE SPACE. NC2064.2
- 017200 05 TABLE-LEVEL-1B. NC2064.2
- 017300 06 TBL-LEVEL-0A PIC X VALUE SPACE. NC2064.2
- 017400 06 TBL-LEVEL-0B PIC X VALUE SPACE. NC2064.2
- 017500 06 TBL-LEVEL-0C PIC X VALUE SPACE. NC2064.2
- 017600 04 TABLE-LEVEL-2B. NC2064.2
- 017700 05 TABLE-LEVEL-1A. NC2064.2
- 017800 06 TBL-LEVEL-0A PIC X VALUE SPACE. NC2064.2
- 017900 06 TBL-LEVEL-0B PIC X VALUE SPACE. NC2064.2
- 018000 06 TBL-LEVEL-0C PIC X VALUE SPACE. NC2064.2
- 018100 05 TABLE-LEVEL-1B. NC2064.2
- 018200 06 TBL-LEVEL-0A PIC X VALUE SPACE. NC2064.2
- 018300 06 TBL-LEVEL-0B PIC X VALUE SPACE. NC2064.2
- 018400 06 TBL-LEVEL-0C PIC X VALUE SPACE. NC2064.2
- 018500 03 TABLE-LEVEL-3B. NC2064.2
- 018600 04 TABLE-LEVEL-2A. NC2064.2
- 018700 05 TABLE-LEVEL-1A. NC2064.2
- 018800 06 TBL-LEVEL-0A PIC X VALUE SPACE. NC2064.2
- 018900 06 TBL-LEVEL-0B PIC X VALUE SPACE. NC2064.2
- 019000 06 TBL-LEVEL-0C PIC X VALUE SPACE. NC2064.2
- 019100 05 TABLE-LEVEL-1B. NC2064.2
- 019200 06 TBL-LEVEL-0A PIC X VALUE SPACE. NC2064.2
- 019300 06 TBL-LEVEL-0B PIC X VALUE SPACE. NC2064.2
- 019400 06 TBL-LEVEL-0C PIC X VALUE SPACE. NC2064.2
- 019500 04 TABLE-LEVEL-2B. NC2064.2
- 019600 05 TABLE-LEVEL-1A. NC2064.2
- 019700 06 TBL-LEVEL-0A PIC X VALUE SPACE. NC2064.2
- 019800 06 TBL-LEVEL-0B PIC X VALUE SPACE. NC2064.2
- 019900 06 TBL-LEVEL-0C PIC X VALUE SPACE. NC2064.2
- 020000 05 TABLE-LEVEL-1B. NC2064.2
- 020100 06 TBL-LEVEL-0A PIC X VALUE SPACE. NC2064.2
- 020200 06 TBL-LEVEL-0B PIC X VALUE SPACE. NC2064.2
- 020300 06 TBL-LEVEL-0C PIC X VALUE SPACE. NC2064.2
- 020400 01 QUAL-SUB-TABLE. NC2064.2
- 020500 02 AX. NC2064.2
- 020600 03 AX-1 OCCURS 5 TIMES. NC2064.2
- 020700 04 AX-2 PIC X. NC2064.2
- 020800 04 AX-3 PIC X. NC2064.2
- 020900 02 BX. NC2064.2
- 021000 03 AX-1 OCCURS 2 TIMES. NC2064.2
- 021100 04 AX-2 PIC 9. NC2064.2
- 021200 04 AX-3 PIC 9. NC2064.2
- 021300 02 CX. NC2064.2
- 021400 03 CX-SUB PIC 9 VALUE 2. NC2064.2
- 021500 02 DX. NC2064.2
- 021600 03 CX-SUB USAGE IS INDEX. NC2064.2
- 021700 01 TEST-RESULTS. NC2064.2
- 021800 02 FILLER PIC X VALUE SPACE. NC2064.2
- 021900 02 FEATURE PIC X(20) VALUE SPACE. NC2064.2
- 022000 02 FILLER PIC X VALUE SPACE. NC2064.2
- 022100 02 P-OR-F PIC X(5) VALUE SPACE. NC2064.2
- 022200 02 FILLER PIC X VALUE SPACE. NC2064.2
- 022300 02 PAR-NAME. NC2064.2
- 022400 03 FILLER PIC X(19) VALUE SPACE. NC2064.2
- 022500 03 PARDOT-X PIC X VALUE SPACE. NC2064.2
- 022600 03 DOTVALUE PIC 99 VALUE ZERO. NC2064.2
- 022700 02 FILLER PIC X(8) VALUE SPACE. NC2064.2
- 022800 02 RE-MARK PIC X(61). NC2064.2
- 022900 01 TEST-COMPUTED. NC2064.2
- 023000 02 FILLER PIC X(30) VALUE SPACE. NC2064.2
- 023100 02 FILLER PIC X(17) VALUE NC2064.2
- 023200 " COMPUTED=". NC2064.2
- 023300 02 COMPUTED-X. NC2064.2
- 023400 03 COMPUTED-A PIC X(20) VALUE SPACE. NC2064.2
- 023500 03 COMPUTED-N REDEFINES COMPUTED-A NC2064.2
- 023600 PIC -9(9).9(9). NC2064.2
- 023700 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC2064.2
- 023800 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). NC2064.2
- 023900 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC2064.2
- 024000 03 CM-18V0 REDEFINES COMPUTED-A. NC2064.2
- 024100 04 COMPUTED-18V0 PIC -9(18). NC2064.2
- 024200 04 FILLER PIC X. NC2064.2
- 024300 03 FILLER PIC X(50) VALUE SPACE. NC2064.2
- 024400 01 TEST-CORRECT. NC2064.2
- 024500 02 FILLER PIC X(30) VALUE SPACE. NC2064.2
- 024600 02 FILLER PIC X(17) VALUE " CORRECT =". NC2064.2
- 024700 02 CORRECT-X. NC2064.2
- 024800 03 CORRECT-A PIC X(20) VALUE SPACE. NC2064.2
- 024900 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). NC2064.2
- 025000 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). NC2064.2
- 025100 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC2064.2
- 025200 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). NC2064.2
- 025300 03 CR-18V0 REDEFINES CORRECT-A. NC2064.2
- 025400 04 CORRECT-18V0 PIC -9(18). NC2064.2
- 025500 04 FILLER PIC X. NC2064.2
- 025600 03 FILLER PIC X(2) VALUE SPACE. NC2064.2
- 025700 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC2064.2
- 025800 01 CCVS-C-1. NC2064.2
- 025900 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC2064.2
- 026000- "SS PARAGRAPH-NAME NC2064.2
- 026100- " REMARKS". NC2064.2
- 026200 02 FILLER PIC X(20) VALUE SPACE. NC2064.2
- 026300 01 CCVS-C-2. NC2064.2
- 026400 02 FILLER PIC X VALUE SPACE. NC2064.2
- 026500 02 FILLER PIC X(6) VALUE "TESTED". NC2064.2
- 026600 02 FILLER PIC X(15) VALUE SPACE. NC2064.2
- 026700 02 FILLER PIC X(4) VALUE "FAIL". NC2064.2
- 026800 02 FILLER PIC X(94) VALUE SPACE. NC2064.2
- 026900 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC2064.2
- 027000 01 REC-CT PIC 99 VALUE ZERO. NC2064.2
- 027100 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC2064.2
- 027200 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC2064.2
- 027300 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC2064.2
- 027400 01 PASS-COUNTER PIC 999 VALUE ZERO. NC2064.2
- 027500 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC2064.2
- 027600 01 ERROR-HOLD PIC 999 VALUE ZERO. NC2064.2
- 027700 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC2064.2
- 027800 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC2064.2
- 027900 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC2064.2
- 028000 01 CCVS-H-1. NC2064.2
- 028100 02 FILLER PIC X(39) VALUE SPACES. NC2064.2
- 028200 02 FILLER PIC X(42) VALUE NC2064.2
- 028300 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2064.2
- 028400 02 FILLER PIC X(39) VALUE SPACES. NC2064.2
- 028500 01 CCVS-H-2A. NC2064.2
- 028600 02 FILLER PIC X(40) VALUE SPACE. NC2064.2
- 028700 02 FILLER PIC X(7) VALUE "CCVS85 ". NC2064.2
- 028800 02 FILLER PIC XXXX VALUE NC2064.2
- 028900 "4.2 ". NC2064.2
- 029000 02 FILLER PIC X(28) VALUE NC2064.2
- 029100 " COPY - NOT FOR DISTRIBUTION". NC2064.2
- 029200 02 FILLER PIC X(41) VALUE SPACE. NC2064.2
- 029300 NC2064.2
- 029400 01 CCVS-H-2B. NC2064.2
- 029500 02 FILLER PIC X(15) VALUE NC2064.2
- 029600 "TEST RESULT OF ". NC2064.2
- 029700 02 TEST-ID PIC X(9). NC2064.2
- 029800 02 FILLER PIC X(4) VALUE NC2064.2
- 029900 " IN ". NC2064.2
- 030000 02 FILLER PIC X(12) VALUE NC2064.2
- 030100 " HIGH ". NC2064.2
- 030200 02 FILLER PIC X(22) VALUE NC2064.2
- 030300 " LEVEL VALIDATION FOR ". NC2064.2
- 030400 02 FILLER PIC X(58) VALUE NC2064.2
- 030500 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2064.2
- 030600 01 CCVS-H-3. NC2064.2
- 030700 02 FILLER PIC X(34) VALUE NC2064.2
- 030800 " FOR OFFICIAL USE ONLY ". NC2064.2
- 030900 02 FILLER PIC X(58) VALUE NC2064.2
- 031000 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2064.2
- 031100 02 FILLER PIC X(28) VALUE NC2064.2
- 031200 " COPYRIGHT 1985 ". NC2064.2
- 031300 01 CCVS-E-1. NC2064.2
- 031400 02 FILLER PIC X(52) VALUE SPACE. NC2064.2
- 031500 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC2064.2
- 031600 02 ID-AGAIN PIC X(9). NC2064.2
- 031700 02 FILLER PIC X(45) VALUE SPACES. NC2064.2
- 031800 01 CCVS-E-2. NC2064.2
- 031900 02 FILLER PIC X(31) VALUE SPACE. NC2064.2
- 032000 02 FILLER PIC X(21) VALUE SPACE. NC2064.2
- 032100 02 CCVS-E-2-2. NC2064.2
- 032200 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC2064.2
- 032300 03 FILLER PIC X VALUE SPACE. NC2064.2
- 032400 03 ENDER-DESC PIC X(44) VALUE NC2064.2
- 032500 "ERRORS ENCOUNTERED". NC2064.2
- 032600 01 CCVS-E-3. NC2064.2
- 032700 02 FILLER PIC X(22) VALUE NC2064.2
- 032800 " FOR OFFICIAL USE ONLY". NC2064.2
- 032900 02 FILLER PIC X(12) VALUE SPACE. NC2064.2
- 033000 02 FILLER PIC X(58) VALUE NC2064.2
- 033100 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2064.2
- 033200 02 FILLER PIC X(13) VALUE SPACE. NC2064.2
- 033300 02 FILLER PIC X(15) VALUE NC2064.2
- 033400 " COPYRIGHT 1985". NC2064.2
- 033500 01 CCVS-E-4. NC2064.2
- 033600 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC2064.2
- 033700 02 FILLER PIC X(4) VALUE " OF ". NC2064.2
- 033800 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC2064.2
- 033900 02 FILLER PIC X(40) VALUE NC2064.2
- 034000 " TESTS WERE EXECUTED SUCCESSFULLY". NC2064.2
- 034100 01 XXINFO. NC2064.2
- 034200 02 FILLER PIC X(19) VALUE NC2064.2
- 034300 "*** INFORMATION ***". NC2064.2
- 034400 02 INFO-TEXT. NC2064.2
- 034500 04 FILLER PIC X(8) VALUE SPACE. NC2064.2
- 034600 04 XXCOMPUTED PIC X(20). NC2064.2
- 034700 04 FILLER PIC X(5) VALUE SPACE. NC2064.2
- 034800 04 XXCORRECT PIC X(20). NC2064.2
- 034900 02 INF-ANSI-REFERENCE PIC X(48). NC2064.2
- 035000 01 HYPHEN-LINE. NC2064.2
- 035100 02 FILLER PIC IS X VALUE IS SPACE. NC2064.2
- 035200 02 FILLER PIC IS X(65) VALUE IS "************************NC2064.2
- 035300- "*****************************************". NC2064.2
- 035400 02 FILLER PIC IS X(54) VALUE IS "************************NC2064.2
- 035500- "******************************". NC2064.2
- 035600 01 CCVS-PGM-ID PIC X(9) VALUE NC2064.2
- 035700 "NC206A". NC2064.2
- 035800 PROCEDURE DIVISION. NC2064.2
- 035900 CCVS1 SECTION. NC2064.2
- 036000 OPEN-FILES. NC2064.2
- 036100 OPEN OUTPUT PRINT-FILE. NC2064.2
- 036200 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC2064.2
- 036300 MOVE SPACE TO TEST-RESULTS. NC2064.2
- 036400 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC2064.2
- 036500 GO TO CCVS1-EXIT. NC2064.2
- 036600 CLOSE-FILES. NC2064.2
- 036700 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC2064.2
- 036800 TERMINATE-CCVS. NC2064.2
- 036900* EXIT PROGRAM. NC2064.2
- 037000*TERMINATE-CALL. NC2064.2
- 037100 STOP RUN. NC2064.2
- 037200 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC2064.2
- 037300 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC2064.2
- 037400 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC2064.2
- 037500 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC2064.2
- 037600 MOVE "****TEST DELETED****" TO RE-MARK. NC2064.2
- 037700 PRINT-DETAIL. NC2064.2
- 037800 IF REC-CT NOT EQUAL TO ZERO NC2064.2
- 037900 MOVE "." TO PARDOT-X NC2064.2
- 038000 MOVE REC-CT TO DOTVALUE. NC2064.2
- 038100 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC2064.2
- 038200 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC2064.2
- 038300 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC2064.2
- 038400 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC2064.2
- 038500 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC2064.2
- 038600 MOVE SPACE TO CORRECT-X. NC2064.2
- 038700 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC2064.2
- 038800 MOVE SPACE TO RE-MARK. NC2064.2
- 038900 HEAD-ROUTINE. NC2064.2
- 039000 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2064.2
- 039100 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2064.2
- 039200 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2064.2
- 039300 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2064.2
- 039400 COLUMN-NAMES-ROUTINE. NC2064.2
- 039500 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2064.2
- 039600 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2064.2
- 039700 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2064.2
- 039800 END-ROUTINE. NC2064.2
- 039900 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2064.2
- 040000 END-RTN-EXIT. NC2064.2
- 040100 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2064.2
- 040200 END-ROUTINE-1. NC2064.2
- 040300 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC2064.2
- 040400 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC2064.2
- 040500 ADD PASS-COUNTER TO ERROR-HOLD. NC2064.2
- 040600* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC2064.2
- 040700 MOVE PASS-COUNTER TO CCVS-E-4-1. NC2064.2
- 040800 MOVE ERROR-HOLD TO CCVS-E-4-2. NC2064.2
- 040900 MOVE CCVS-E-4 TO CCVS-E-2-2. NC2064.2
- 041000 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC2064.2
- 041100 END-ROUTINE-12. NC2064.2
- 041200 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC2064.2
- 041300 IF ERROR-COUNTER IS EQUAL TO ZERO NC2064.2
- 041400 MOVE "NO " TO ERROR-TOTAL NC2064.2
- 041500 ELSE NC2064.2
- 041600 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC2064.2
- 041700 MOVE CCVS-E-2 TO DUMMY-RECORD. NC2064.2
- 041800 PERFORM WRITE-LINE. NC2064.2
- 041900 END-ROUTINE-13. NC2064.2
- 042000 IF DELETE-COUNTER IS EQUAL TO ZERO NC2064.2
- 042100 MOVE "NO " TO ERROR-TOTAL ELSE NC2064.2
- 042200 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC2064.2
- 042300 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC2064.2
- 042400 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2064.2
- 042500 IF INSPECT-COUNTER EQUAL TO ZERO NC2064.2
- 042600 MOVE "NO " TO ERROR-TOTAL NC2064.2
- 042700 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC2064.2
- 042800 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC2064.2
- 042900 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2064.2
- 043000 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2064.2
- 043100 WRITE-LINE. NC2064.2
- 043200 ADD 1 TO RECORD-COUNT. NC2064.2
- 043300* IF RECORD-COUNT GREATER 50 NC2064.2
- 043400* MOVE DUMMY-RECORD TO DUMMY-HOLD NC2064.2
- 043500* MOVE SPACE TO DUMMY-RECORD NC2064.2
- 043600* WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC2064.2
- 043700* MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC2064.2
- 043800* MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC2064.2
- 043900* MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC2064.2
- 044000* MOVE DUMMY-HOLD TO DUMMY-RECORD NC2064.2
- 044100* MOVE ZERO TO RECORD-COUNT. NC2064.2
- 044200 PERFORM WRT-LN. NC2064.2
- 044300 WRT-LN. NC2064.2
- 044400 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC2064.2
- 044500 MOVE SPACE TO DUMMY-RECORD. NC2064.2
- 044600 BLANK-LINE-PRINT. NC2064.2
- 044700 PERFORM WRT-LN. NC2064.2
- 044800 FAIL-ROUTINE. NC2064.2
- 044900 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2064.2
- 045000 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2064.2
- 045100 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2064.2
- 045200 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC2064.2
- 045300 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2064.2
- 045400 MOVE SPACES TO INF-ANSI-REFERENCE. NC2064.2
- 045500 GO TO FAIL-ROUTINE-EX. NC2064.2
- 045600 FAIL-ROUTINE-WRITE. NC2064.2
- 045700 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC2064.2
- 045800 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC2064.2
- 045900 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2064.2
- 046000 MOVE SPACES TO COR-ANSI-REFERENCE. NC2064.2
- 046100 FAIL-ROUTINE-EX. EXIT. NC2064.2
- 046200 BAIL-OUT. NC2064.2
- 046300 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC2064.2
- 046400 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC2064.2
- 046500 BAIL-OUT-WRITE. NC2064.2
- 046600 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC2064.2
- 046700 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2064.2
- 046800 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2064.2
- 046900 MOVE SPACES TO INF-ANSI-REFERENCE. NC2064.2
- 047000 BAIL-OUT-EX. EXIT. NC2064.2
- 047100 CCVS1-EXIT. NC2064.2
- 047200 EXIT. NC2064.2
- 047300 SECT-NC206A-001 SECTION. NC2064.2
- 047400 NC-06-001. NC2064.2
- 047500* 5 LEVELS OF QUALIFICATION ARE USED IN ORDER TO MAKE THE NC2064.2
- 047600* IDENTIFIERS UNIQUE. SEE THE 01 WORKING-STORAGE ENTRIES NC2064.2
- 047700* CALLED TABLE-LEVEL-5A AND TABLE-LEVEL-5B. NC2064.2
- 047800 QAL-INIT-F1-1. NC2064.2
- 047900 MOVE "IV-19 4.3.8.1" TO ANSI-REFERENCE. NC2064.2
- 048000 MOVE "QUAL LIMITS " TO FEATURE. NC2064.2
- 048100 MOVE "QAL-TEST-F1-1 " TO PAR-NAME. NC2064.2
- 048200 QAL-TEST-F1-1. NC2064.2
- 048300 IF TBL-LEVEL-0A OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF NC2064.2
- 048400 TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A EQUAL NC2064.2
- 048500 TO "5A4A3A2A1A0A" NC2064.2
- 048600 PERFORM PASS NC2064.2
- 048700 GO TO QAL-WRITE-F1-1. NC2064.2
- 048800 GO TO QAL-FAIL-F1-1. NC2064.2
- 048900 QAL-DELETE-F1-1. NC2064.2
- 049000 PERFORM DE-LETE. NC2064.2
- 049100 GO TO QAL-WRITE-F1-1. NC2064.2
- 049200 QAL-FAIL-F1-1. NC2064.2
- 049300 MOVE TBL-LEVEL-0A OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF NC2064.2
- 049400 TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO NC2064.2
- 049500 COMPUTED-A. NC2064.2
- 049600 MOVE "5A4A3A2A1A0A" TO CORRECT-A. NC2064.2
- 049700 PERFORM FAIL. NC2064.2
- 049800 QAL-WRITE-F1-1. NC2064.2
- 049900 PERFORM PRINT-DETAIL. NC2064.2
- 050000* NC2064.2
- 050100 QAL-INIT-F1-2. NC2064.2
- 050200 MOVE "IV-19 4.3.8.1" TO ANSI-REFERENCE. NC2064.2
- 050300 MOVE "QUAL LIMITS " TO FEATURE. NC2064.2
- 050400 MOVE "QAL-TEST-F1-2 " TO PAR-NAME. NC2064.2
- 050500 QAL-TEST-F1-2. NC2064.2
- 050600 IF TBL-LEVEL-0A IN TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN NC2064.2
- 050700 TABLE-LEVEL-3A OF TABLE-LEVEL-4A IN TABLE-LEVEL-5A EQUAL NC2064.2
- 050800 TO "5A4A3A2A1B0A" NC2064.2
- 050900 PERFORM PASS NC2064.2
- 051000 GO TO QAL-WRITE-F1-2. NC2064.2
- 051100 GO TO QAL-FAIL-F1-2. NC2064.2
- 051200 QAL-DELETE-F1-2. NC2064.2
- 051300 PERFORM DE-LETE. NC2064.2
- 051400 GO TO QAL-WRITE-F1-2. NC2064.2
- 051500 QAL-FAIL-F1-2. NC2064.2
- 051600 MOVE TBL-LEVEL-0A IN TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN NC2064.2
- 051700 TABLE-LEVEL-3A OF TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO NC2064.2
- 051800 COMPUTED-A. NC2064.2
- 051900 MOVE "5A4A3A2A1B0A" TO CORRECT-A. NC2064.2
- 052000 PERFORM FAIL. NC2064.2
- 052100 QAL-WRITE-F1-2. NC2064.2
- 052200 PERFORM PRINT-DETAIL. NC2064.2
- 052300* NC2064.2
- 052400 QAL-INIT-F1-3. NC2064.2
- 052500 MOVE "IV-19 4.3.8.1" TO ANSI-REFERENCE. NC2064.2
- 052600 MOVE "QUAL LIMITS " TO FEATURE. NC2064.2
- 052700 MOVE "QAL-TEST-F1-3" TO PAR-NAME. NC2064.2
- 052800 QAL-TEST-F1-3. NC2064.2
- 052900 IF TBL-LEVEL-0A IN TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN NC2064.2
- 053000 TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A EQUAL NC2064.2
- 053100 TO "5A4A3A2B1A0A" NC2064.2
- 053200 PERFORM PASS NC2064.2
- 053300 GO TO QAL-WRITE-F1-3. NC2064.2
- 053400 GO TO QAL-FAIL-F1-3. NC2064.2
- 053500 QAL-DELETE-F1-3. NC2064.2
- 053600 PERFORM DE-LETE. NC2064.2
- 053700 GO TO QAL-WRITE-F1-3. NC2064.2
- 053800 QAL-FAIL-F1-3. NC2064.2
- 053900 MOVE TBL-LEVEL-0A IN TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN NC2064.2
- 054000 TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO NC2064.2
- 054100 COMPUTED-A. NC2064.2
- 054200 MOVE "5A4A3A2B1A0A" TO CORRECT-A. NC2064.2
- 054300 PERFORM FAIL. NC2064.2
- 054400 QAL-WRITE-F1-3. NC2064.2
- 054500 PERFORM PRINT-DETAIL. NC2064.2
- 054600* NC2064.2
- 054700 QAL-INIT-F1-4. NC2064.2
- 054800 MOVE "IV-19 4.3.8.1" TO ANSI-REFERENCE. NC2064.2
- 054900 MOVE "QUAL LIMITS " TO FEATURE. NC2064.2
- 055000 MOVE "QAL-TEST-F1-4 " TO PAR-NAME. NC2064.2
- 055100 QAL-TEST-F1-4. NC2064.2
- 055200 IF TBL-LEVEL-0A OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF NC2064.2
- 055300 TABLE-LEVEL-3A OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A EQUAL NC2064.2
- 055400 TO "5A4A3A2B1B0A" NC2064.2
- 055500 PERFORM PASS NC2064.2
- 055600 GO TO QAL-WRITE-F1-4. NC2064.2
- 055700 GO TO QAL-FAIL-F1-4. NC2064.2
- 055800 QAL-DELETE-F1-4. NC2064.2
- 055900 PERFORM DE-LETE. NC2064.2
- 056000 GO TO QAL-WRITE-F1-4. NC2064.2
- 056100 QAL-FAIL-F1-4. NC2064.2
- 056200 MOVE TBL-LEVEL-0A OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF NC2064.2
- 056300 TABLE-LEVEL-3A OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO NC2064.2
- 056400 COMPUTED-A. NC2064.2
- 056500 MOVE "5A4A3A2B1B0A" TO CORRECT-A. NC2064.2
- 056600 PERFORM FAIL. NC2064.2
- 056700 QAL-WRITE-F1-4. NC2064.2
- 056800 PERFORM PRINT-DETAIL. NC2064.2
- 056900* NC2064.2
- 057000 QAL-INIT-F1-5. NC2064.2
- 057100 MOVE "IV-19 4.3.8.1" TO ANSI-REFERENCE. NC2064.2
- 057200 MOVE "QUAL LIMITS " TO FEATURE. NC2064.2
- 057300 MOVE "QAL-TEST-F1-5 " TO PAR-NAME. NC2064.2
- 057400 QAL-TEST-F1-5. NC2064.2
- 057500 IF TBL-LEVEL-0A OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF NC2064.2
- 057600 TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A EQUAL NC2064.2
- 057700 TO "5A4A3B2A1A0A" NC2064.2
- 057800 PERFORM PASS NC2064.2
- 057900 GO TO QAL-WRITE-F1-5. NC2064.2
- 058000 GO TO QAL-FAIL-F1-5. NC2064.2
- 058100 QAL-DELETE-F1-5. NC2064.2
- 058200 PERFORM DE-LETE. NC2064.2
- 058300 GO TO QAL-WRITE-F1-5. NC2064.2
- 058400 QAL-FAIL-F1-5. NC2064.2
- 058500 MOVE TBL-LEVEL-0A OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF NC2064.2
- 058600 TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO NC2064.2
- 058700 COMPUTED-A. NC2064.2
- 058800 MOVE "5A4A3B2A1A0A" TO CORRECT-A. NC2064.2
- 058900 PERFORM FAIL. NC2064.2
- 059000 QAL-WRITE-F1-5. NC2064.2
- 059100 PERFORM PRINT-DETAIL. NC2064.2
- 059200* NC2064.2
- 059300 QAL-INIT-F1-6. NC2064.2
- 059400 MOVE "IV-19 4.3.8.1" TO ANSI-REFERENCE. NC2064.2
- 059500 MOVE "QUAL LIMITS " TO FEATURE. NC2064.2
- 059600 MOVE "QAL-TEST-F1-6 " TO PAR-NAME. NC2064.2
- 059700 QAL-TEST-F1-6. NC2064.2
- 059800 IF TBL-LEVEL-0A OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN NC2064.2
- 059900 TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A EQUAL NC2064.2
- 060000 TO "5A4A3B2A1B0A" NC2064.2
- 060100 PERFORM PASS NC2064.2
- 060200 GO TO QAL-WRITE-F1-6. NC2064.2
- 060300 GO TO QAL-FAIL-F1-6. NC2064.2
- 060400 QAL-DELETE-F1-6. NC2064.2
- 060500 PERFORM DE-LETE. NC2064.2
- 060600 GO TO QAL-WRITE-F1-6. NC2064.2
- 060700 QAL-FAIL-F1-6. NC2064.2
- 060800 MOVE TBL-LEVEL-0A OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN NC2064.2
- 060900 TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO NC2064.2
- 061000 COMPUTED-A. NC2064.2
- 061100 MOVE "5A4A3B2A1B0A" TO CORRECT-A. NC2064.2
- 061200 PERFORM FAIL. NC2064.2
- 061300 QAL-WRITE-F1-6. NC2064.2
- 061400 PERFORM PRINT-DETAIL. NC2064.2
- 061500* NC2064.2
- 061600 QAL-INIT-F1-7. NC2064.2
- 061700 MOVE "IV-19…