|
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 Card0130. NC2064.2
003200 OBJECT-COMPUTER. NC2064.2
003300 Card0131. NC2064.2
003400 INPUT-OUTPUT SECTION. NC2064.2
003500 FILE-CONTROL. NC2064.2
003600 SELECT PRINT-FILE ASSIGN TO NC2064.2
003700 "C0085" . 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 4.3.8.1" TO ANSI-REFERENCE. NC2064.2
061800 MOVE "QUAL LIMITS " TO FEATURE. NC2064.2
061900 MOVE "QAL-TEST-F1-7 " TO PAR-NAME. NC2064.2
062000 QAL-TEST-F1-7. NC2064.2
062100 IF TBL-LEVEL-0A OF TABLE-LEVEL-1A OF TABLE-LEVEL-2B IN NC2064.2
062200 TABLE-LEVEL-3B IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A EQUAL NC2064.2
062300 TO "5A4A3B2B1A0A" NC2064.2
062400 PERFORM PASS NC2064.2
062500 GO TO QAL-WRITE-F1-7. NC2064.2
062600 GO TO QAL-FAIL-F1-7. NC2064.2
062700 QAL-DELETE-F1-7. NC2064.2
062800 PERFORM DE-LETE. NC2064.2
062900 GO TO QAL-WRITE-F1-7. NC2064.2
063000 QAL-FAIL-F1-7. NC2064.2
063100 MOVE TBL-LEVEL-0A OF TABLE-LEVEL-1A OF TABLE-LEVEL-2B IN NC2064.2
063200 TABLE-LEVEL-3B IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO NC2064.2
063300 COMPUTED-A. NC2064.2
063400 MOVE "5A4A3B2B1A0A" TO CORRECT-A. NC2064.2
063500 PERFORM FAIL. NC2064.2
063600 QAL-WRITE-F1-7. NC2064.2
063700 PERFORM PRINT-DETAIL. NC2064.2
063800* NC2064.2
063900 QAL-INIT-F1-8. NC2064.2
064000 MOVE "IV-19 4.3.8.1" TO ANSI-REFERENCE. NC2064.2
064100 MOVE "QUAL LIMITS " TO FEATURE. NC2064.2
064200 MOVE "QAL-TEST-F1-8 " TO PAR-NAME. NC2064.2
064300 QAL-TEST-F1-8. NC2064.2
064400 IF TBL-LEVEL-0A IN TABLE-LEVEL-1B IN TABLE-LEVEL-2B IN NC2064.2
064500 TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A EQUAL NC2064.2
064600 TO "5A4A3B2B1B0A" NC2064.2
064700 PERFORM PASS NC2064.2
064800 GO TO QAL-WRITE-F1-8. NC2064.2
064900 GO TO QAL-FAIL-F1-8. NC2064.2
065000 QAL-DELETE-F1-8. NC2064.2
065100 PERFORM DE-LETE. NC2064.2
065200 GO TO QAL-WRITE-F1-8. NC2064.2
065300 QAL-FAIL-F1-8. NC2064.2
065400 MOVE TBL-LEVEL-0A IN TABLE-LEVEL-1B IN TABLE-LEVEL-2B IN NC2064.2
065500 TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO NC2064.2
065600 COMPUTED-A. NC2064.2
065700 MOVE "5A4A3B2B1B0A" TO CORRECT-A. NC2064.2
065800 PERFORM FAIL. NC2064.2
065900 QAL-WRITE-F1-8. NC2064.2
066000 PERFORM PRINT-DETAIL. NC2064.2
066100* NC2064.2
066200 QAL-INIT-F1-9. NC2064.2
066300 MOVE "IV-19 4.3.8.1" TO ANSI-REFERENCE. NC2064.2
066400 MOVE "QUAL LIMITS " TO FEATURE. NC2064.2
066500 MOVE "QAL-TEST-F1-9 " TO PAR-NAME. NC2064.2
066600 QAL-TEST-F1-9. NC2064.2
066700 IF TBL-LEVEL-0A OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF NC2064.2
066800 TABLE-LEVEL-3A OF TABLE-LEVEL-4B IN TABLE-LEVEL-5A EQUAL NC2064.2
066900 TO "5A4B3A2A1A0A" NC2064.2
067000 PERFORM PASS NC2064.2
067100 GO TO QAL-WRITE-F1-9. NC2064.2
067200 GO TO QAL-FAIL-F1-9. NC2064.2
067300 QAL-DELETE-F1-9. NC2064.2
067400 PERFORM DE-LETE. NC2064.2
067500 GO TO QAL-WRITE-F1-9. NC2064.2
067600 QAL-FAIL-F1-9. NC2064.2
067700 MOVE TBL-LEVEL-0A OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF NC2064.2
067800 TABLE-LEVEL-3A OF TABLE-LEVEL-4B IN TABLE-LEVEL-5A TO NC2064.2
067900 COMPUTED-A. NC2064.2
068000 MOVE "5A4B3A2A1A0A" TO CORRECT-A. NC2064.2
068100 PERFORM FAIL. NC2064.2
068200 QAL-WRITE-F1-9. NC2064.2
068300 PERFORM PRINT-DETAIL. NC2064.2
068400* NC2064.2
068500 QAL-INIT-F1-10. NC2064.2
068600 MOVE "IV-19 4.3.8.1" TO ANSI-REFERENCE. NC2064.2
068700 MOVE "QUAL LIMITS " TO FEATURE. NC2064.2
068800 MOVE "QAL-TEST-F1-10 " TO PAR-NAME. NC2064.2
068900 QAL-TEST-F1-10. NC2064.2
069000 IF TBL-LEVEL-0A IN TABLE-LEVEL-1B OF TABLE-LEVEL-2A OF NC2064.2
069100 TABLE-LEVEL-3A OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A EQUAL NC2064.2
069200 TO "5A4B3A2A1B0A" NC2064.2
069300 PERFORM PASS NC2064.2
069400 GO TO QAL-WRITE-F1-10. NC2064.2
069500 GO TO QAL-FAIL-F1-10. NC2064.2
069600 QAL-DELETE-F1-10. NC2064.2
069700 PERFORM DE-LETE. NC2064.2
069800 GO TO QAL-WRITE-F1-10. NC2064.2
069900 QAL-FAIL-F1-10. NC2064.2
070000 MOVE TBL-LEVEL-0A IN TABLE-LEVEL-1B OF TABLE-LEVEL-2A OF NC2064.2
070100 TABLE-LEVEL-3A OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A TO NC2064.2
070200 COMPUTED-A. NC2064.2
070300 MOVE "5A4B3A2A1B0A" TO CORRECT-A. NC2064.2
070400 PERFORM FAIL. NC2064.2
070500 QAL-WRITE-F1-10. NC2064.2
070600 PERFORM PRINT-DETAIL. NC2064.2
070700* NC2064.2
070800 QAL-INIT-F1-11. NC2064.2
070900 MOVE "IV-19 4.3.8.1" TO ANSI-REFERENCE. NC2064.2
071000 MOVE "QUAL LIMITS " TO FEATURE. NC2064.2
071100 MOVE "QAL-TEST-F1-11 " TO PAR-NAME. NC2064.2
071200 QAL-TEST-F1-11. NC2064.2
071300 IF TBL-LEVEL-0A IN TABLE-LEVEL-1A OF TABLE-LEVEL-2B OF NC2064.2
071400 TABLE-LEVEL-3A OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A EQUAL NC2064.2
071500 TO "5A4B3A2B1A0A" NC2064.2
071600 PERFORM PASS NC2064.2
071700 GO TO QAL-WRITE-F1-11. NC2064.2
071800 GO TO QAL-FAIL-F1-11. NC2064.2
071900 QAL-DELETE-F1-11. NC2064.2
072000 PERFORM DE-LETE. NC2064.2
072100 GO TO QAL-WRITE-F1-11. NC2064.2
072200 QAL-FAIL-F1-11. NC2064.2
072300 MOVE "5A4B3A2B1A0A" TO CORRECT-A. NC2064.2
072400 MOVE TBL-LEVEL-0A IN TABLE-LEVEL-1A OF TABLE-LEVEL-2B OF NC2064.2
072500 TABLE-LEVEL-3A OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A TO NC2064.2
072600 COMPUTED-A. NC2064.2
072700 PERFORM FAIL. NC2064.2
072800 QAL-WRITE-F1-11. NC2064.2
072900 PERFORM PRINT-DETAIL. NC2064.2
073000* NC2064.2
073100 QAL-INIT-F1-12. NC2064.2
073200 MOVE "IV-19 4.3.8.1" TO ANSI-REFERENCE. NC2064.2
073300 MOVE "QUAL LIMITS " TO FEATURE. NC2064.2
073400 MOVE "QAL-TEST-F1-12 " TO PAR-NAME. NC2064.2
073500 QAL-TEST-F1-12. NC2064.2
073600 IF TBL-LEVEL-0A OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF NC2064.2
073700 TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A EQUAL NC2064.2
073800 TO "5A4B3A2B1B0A" NC2064.2
073900 PERFORM PASS NC2064.2
074000 GO TO QAL-WRITE-F1-12. NC2064.2
074100 GO TO QAL-FAIL-F1-12. NC2064.2
074200 QAL-DELETE-F1-12. NC2064.2
074300 PERFORM DE-LETE. NC2064.2
074400 GO TO QAL-WRITE-F1-12. NC2064.2
074500 QAL-FAIL-F1-12. NC2064.2
074600 MOVE TBL-LEVEL-0A OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF NC2064.2
074700 TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A TO NC2064.2
074800 COMPUTED-A. NC2064.2
074900 MOVE "5A4B3A2B1B0A" TO CORRECT-A. NC2064.2
075000 PERFORM FAIL. NC2064.2
075100 QAL-WRITE-F1-12. NC2064.2
075200 PERFORM PRINT-DETAIL. NC2064.2
075300* NC2064.2
075400 QAL-INIT-F1-13. NC2064.2
075500 MOVE "IV-19 4.3.8.1" TO ANSI-REFERENCE. NC2064.2
075600 MOVE "QUAL LIMITS " TO FEATURE. NC2064.2
075700 MOVE "QAL-TEST-F1-13 " TO PAR-NAME. NC2064.2
075800 QAL-TEST-F1-13. NC2064.2
075900 IF TBL-LEVEL-0A OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF NC2064.2
076000 TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A EQUAL NC2064.2
076100 TO "5A4B3B2A1A0A" NC2064.2
076200 PERFORM PASS NC2064.2
076300 GO TO QAL-WRITE-F1-13. NC2064.2
076400 GO TO QAL-FAIL-F1-13. NC2064.2
076500 QAL-DELETE-F1-13. NC2064.2
076600 PERFORM DE-LETE. NC2064.2
076700 GO TO QAL-WRITE-F1-13. NC2064.2
076800 QAL-FAIL-F1-13. NC2064.2
076900 MOVE TBL-LEVEL-0A OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF NC2064.2
077000 TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A NC2064.2
077100 TO COMPUTED-A. NC2064.2
077200 MOVE "5A4B3B2A1A0A" TO CORRECT-A. NC2064.2
077300 PERFORM FAIL. NC2064.2
077400 QAL-WRITE-F1-13. NC2064.2
077500 PERFORM PRINT-DETAIL. NC2064.2
077600* NC2064.2
077700 QAL-INIT-F1-14. NC2064.2
077800 MOVE "IV-19 4.3.8.1" TO ANSI-REFERENCE. NC2064.2
077900 MOVE "QUAL LIMITS " TO FEATURE. NC2064.2
078000 MOVE "QAL-TEST-F1-14 " TO PAR-NAME. NC2064.2
078100 QAL-TEST-F1-14. NC2064.2
078200 IF TBL-LEVEL-0A IN TABLE-LEVEL-1B IN TABLE-LEVEL-2A IN NC2064.2
078300 TABLE-LEVEL-3B OF TABLE-LEVEL-4B IN TABLE-LEVEL-5A EQUAL NC2064.2
078400 TO "5A4B3B2A1B0A" NC2064.2
078500 PERFORM PASS NC2064.2
078600 GO TO QAL-WRITE-F1-14. NC2064.2
078700 GO TO QAL-FAIL-F1-14. NC2064.2
078800 QAL-DELETE-F1-14. NC2064.2
078900 PERFORM DE-LETE. NC2064.2
079000 GO TO QAL-WRITE-F1-14. NC2064.2
079100 QAL-FAIL-F1-14. NC2064.2
079200 MOVE TBL-LEVEL-0A IN TABLE-LEVEL-1B IN TABLE-LEVEL-2A IN NC2064.2
079300 TABLE-LEVEL-3B OF TABLE-LEVEL-4B IN TABLE-LEVEL-5A TO NC2064.2
079400 COMPUTED-A. NC2064.2
079500 MOVE "5A4B3B2A1B0A" TO CORRECT-A. NC2064.2
079600 PERFORM FAIL. NC2064.2
079700 QAL-WRITE-F1-14. NC2064.2
079800 PERFORM PRINT-DETAIL. NC2064.2
079900* NC2064.2
080000 QAL-INIT-F1-15. NC2064.2
080100 MOVE "IV-19 4.3.8.1" TO ANSI-REFERENCE. NC2064.2
080200 MOVE "QUAL LIMITS " TO FEATURE. NC2064.2
080300 MOVE "QAL-TEST-F1-15 " TO PAR-NAME. NC2064.2
080400 QAL-TEST-F1-15. NC2064.2
080500 IF TBL-LEVEL-0A OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN NC2064.2
080600 TABLE-LEVEL-3B IN TABLE-LEVEL-4B IN TABLE-LEVEL-5A EQUAL NC2064.2
080700 TO "5A4B3B2B1A0A" NC2064.2
080800 PERFORM PASS NC2064.2
080900 GO TO QAL-WRITE-F1-15. NC2064.2
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.113 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
