Quelle  nc206a.cob   Sprache: Cobol

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

--> --------------------