Quellcode-Bibliothek 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

081000     GO TO QAL-FAIL-F1-15.                                        NC2064.2

081100 QAL-DELETE-F1-15.                                                NC2064.2

081200     PERFORM DE-LETE.                                             NC2064.2

081300     GO TO QAL-WRITE-F1-15.                                       NC2064.2

081400 QAL-FAIL-F1-15.                                                  NC2064.2

081500     MOVE "5A4B3B2B1A0A" TO CORRECT-A.                            NC2064.2

081600     MOVE TBL-LEVEL-0A OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN     NC2064.2

081700         TABLE-LEVEL-3B IN TABLE-LEVEL-4B IN TABLE-LEVEL-5A TO    NC2064.2

081800         COMPUTED-A.                                              NC2064.2

081900     PERFORM FAIL.                                                NC2064.2

082000 QAL-WRITE-F1-15.                                                 NC2064.2

082100     PERFORM PRINT-DETAIL.                                        NC2064.2

082200*                                                                 NC2064.2

082300 QAL-INIT-F1-16.                                                  NC2064.2

082400     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

082500     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

082600     MOVE "QAL-TEST-F1-16 " TO PAR-NAME.                          NC2064.2

082700 QAL-TEST-F1-16.                                                  NC2064.2

082800     IF TBL-LEVEL-0A IN TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF       NC2064.2

082900         TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A EQUAL NC2064.2

083000         TO "5A4B3B2B1B0A"                                        NC2064.2

083100         PERFORM PASS                                             NC2064.2

083200         GO TO QAL-WRITE-F1-16.                                   NC2064.2

083300     GO TO QAL-FAIL-F1-16.                                        NC2064.2

083400 QAL-DELETE-F1-16.                                                NC2064.2

083500     PERFORM DE-LETE.                                             NC2064.2

083600     GO TO QAL-WRITE-F1-16.                                       NC2064.2

083700 QAL-FAIL-F1-16.                                                  NC2064.2

083800     MOVE TBL-LEVEL-0A IN TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF     NC2064.2

083900         TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A TO    NC2064.2

084000         COMPUTED-A.                                              NC2064.2

084100     MOVE "5A4B3B2B1B0A" TO CORRECT-A.                            NC2064.2

084200     PERFORM FAIL.                                                NC2064.2

084300 QAL-WRITE-F1-16.                                                 NC2064.2

084400     PERFORM PRINT-DETAIL.                                        NC2064.2

084500*                                                                 NC2064.2

084600 QAL-INIT-F1-17.                                                  NC2064.2

084700     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

084800     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

084900     MOVE "QAL-TEST-F1-17" TO PAR-NAME.                           NC2064.2

085000 QAL-TEST-F1-17.                                                  NC2064.2

085100     IF TBL-LEVEL-0B OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF       NC2064.2

085200         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A EQUAL NC2064.2

085300         TO "5A4A3A2A1A0B"                                        NC2064.2

085400         PERFORM PASS                                             NC2064.2

085500         GO TO QAL-WRITE-F1-17.                                   NC2064.2

085600     GO TO QAL-FAIL-F1-17.                                        NC2064.2

085700 QAL-DELETE-F1-17.                                                NC2064.2

085800     PERFORM DE-LETE.                                             NC2064.2

085900     GO TO QAL-WRITE-F1-17.                                       NC2064.2

086000 QAL-FAIL-F1-17.                                                  NC2064.2

086100     MOVE TBL-LEVEL-0B OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF     NC2064.2

086200         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2064.2

086300         COMPUTED-A.                                              NC2064.2

086400     MOVE "5A4A3A2A1A0B" TO CORRECT-A.                            NC2064.2

086500     PERFORM FAIL.                                                NC2064.2

086600 QAL-WRITE-F1-17.                                                 NC2064.2

086700     PERFORM PRINT-DETAIL.                                        NC2064.2

086800*                                                                 NC2064.2

086900 QAL-INIT-F1-18.                                                  NC2064.2

087000     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

087100     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

087200     MOVE "QAL-TEST-F1-18" TO PAR-NAME.                           NC2064.2

087300 QAL-TEST-F1-18.                                                  NC2064.2

087400     IF TBL-LEVEL-0B IN TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN       NC2064.2

087500         TABLE-LEVEL-3A OF TABLE-LEVEL-4A IN TABLE-LEVEL-5A EQUAL NC2064.2

087600         TO "5A4A3A2A1B0B"                                        NC2064.2

087700         PERFORM PASS                                             NC2064.2

087800         GO TO QAL-WRITE-F1-18.                                   NC2064.2

087900     GO TO QAL-FAIL-F1-18.                                        NC2064.2

088000 QAL-DELETE-F1-18.                                                NC2064.2

088100     PERFORM DE-LETE.                                             NC2064.2

088200     GO TO QAL-WRITE-F1-18.                                       NC2064.2

088300 QAL-FAIL-F1-18.                                                  NC2064.2

088400     MOVE TBL-LEVEL-0B IN TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN     NC2064.2

088500         TABLE-LEVEL-3A OF TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO    NC2064.2

088600         COMPUTED-A.                                              NC2064.2

088700     MOVE "5A4A3A2A1B0B" TO CORRECT-A.                            NC2064.2

088800     PERFORM FAIL.                                                NC2064.2

088900 QAL-WRITE-F1-18.                                                 NC2064.2

089000     PERFORM PRINT-DETAIL.                                        NC2064.2

089100*                                                                 NC2064.2

089200 QAL-INIT-F1-19.                                                  NC2064.2

089300     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

089400     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

089500     MOVE "QAL-TEST-F1-19" TO PAR-NAME.                           NC2064.2

089600 QAL-TEST-F1-19.                                                  NC2064.2

089700     IF TBL-LEVEL-0B IN TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN       NC2064.2

089800         TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A EQUAL NC2064.2

089900         TO "5A4A3A2B1A0B"                                        NC2064.2

090000         PERFORM PASS                                             NC2064.2

090100         GO TO QAL-WRITE-F1-19.                                   NC2064.2

090200     GO TO QAL-FAIL-F1-19.                                        NC2064.2

090300 QAL-DELETE-F1-19.                                                NC2064.2

090400     PERFORM DE-LETE.                                             NC2064.2

090500     GO TO QAL-WRITE-F1-19.                                       NC2064.2

090600 QAL-FAIL-F1-19.                                                  NC2064.2

090700     MOVE TBL-LEVEL-0B IN TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN     NC2064.2

090800         TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO    NC2064.2

090900         COMPUTED-A.                                              NC2064.2

091000     MOVE "5A4A3A2B1A0B" TO CORRECT-A.                            NC2064.2

091100     PERFORM FAIL.                                                NC2064.2

091200 QAL-WRITE-F1-19.                                                 NC2064.2

091300     PERFORM PRINT-DETAIL.                                        NC2064.2

091400*                                                                 NC2064.2

091500 QAL-INIT-F1-20.                                                  NC2064.2

091600     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

091700     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

091800     MOVE "QAL-TEST-F1-20" TO PAR-NAME.                           NC2064.2

091900 QAL-TEST-F1-20.                                                  NC2064.2

092000     IF TBL-LEVEL-0B OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF       NC2064.2

092100         TABLE-LEVEL-3A OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A EQUAL NC2064.2

092200         TO "5A4A3A2B1B0B"                                        NC2064.2

092300         PERFORM PASS                                             NC2064.2

092400         GO TO QAL-WRITE-F1-20.                                   NC2064.2

092500     GO TO QAL-FAIL-F1-20.                                        NC2064.2

092600 QAL-DELETE-F1-20.                                                NC2064.2

092700     PERFORM DE-LETE.                                             NC2064.2

092800     GO TO QAL-WRITE-F1-20.                                       NC2064.2

092900 QAL-FAIL-F1-20.                                                  NC2064.2

093000     MOVE TBL-LEVEL-0B OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF     NC2064.2

093100         TABLE-LEVEL-3A OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2064.2

093200         COMPUTED-A.                                              NC2064.2

093300     MOVE "5A4A3A2B1B0B" TO CORRECT-A.                            NC2064.2

093400     PERFORM FAIL.                                                NC2064.2

093500 QAL-WRITE-F1-20.                                                 NC2064.2

093600     PERFORM PRINT-DETAIL.                                        NC2064.2

093700*                                                                 NC2064.2

093800 QAL-INIT-F1-21.                                                  NC2064.2

093900     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

094000     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

094100     MOVE "QAL-TEST-F1-21" TO PAR-NAME.                           NC2064.2

094200 QAL-TEST-F1-21.                                                  NC2064.2

094300     IF TBL-LEVEL-0B OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF       NC2064.2

094400         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A EQUAL NC2064.2

094500         TO "5A4A3B2A1A0B"                                        NC2064.2

094600         PERFORM PASS                                             NC2064.2

094700         GO TO QAL-WRITE-F1-21.                                   NC2064.2

094800     GO TO QAL-FAIL-F1-21.                                        NC2064.2

094900 QAL-DELETE-F1-21.                                                NC2064.2

095000     PERFORM DE-LETE.                                             NC2064.2

095100     GO TO QAL-WRITE-F1-21.                                       NC2064.2

095200 QAL-FAIL-F1-21.                                                  NC2064.2

095300     MOVE TBL-LEVEL-0B OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF     NC2064.2

095400         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2064.2

095500         COMPUTED-A.                                              NC2064.2

095600     MOVE "5A4A3B2A1A0B" TO CORRECT-A.                            NC2064.2

095700     PERFORM FAIL.                                                NC2064.2

095800 QAL-WRITE-F1-21.                                                 NC2064.2

095900     PERFORM PRINT-DETAIL.                                        NC2064.2

096000*                                                                 NC2064.2

096100 QAL-INIT-F1-22.                                                  NC2064.2

096200     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

096300     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

096400     MOVE "QAL-TEST-F1-22" TO PAR-NAME.                           NC2064.2

096500 QAL-TEST-F1-22.                                                  NC2064.2

096600     IF TBL-LEVEL-0B OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN       NC2064.2

096700         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A EQUAL NC2064.2

096800         TO "5A4A3B2A1B0B"                                        NC2064.2

096900         PERFORM PASS                                             NC2064.2

097000         GO TO QAL-WRITE-F1-22.                                   NC2064.2

097100     GO TO QAL-FAIL-F1-22.                                        NC2064.2

097200 QAL-DELETE-F1-22.                                                NC2064.2

097300     PERFORM DE-LETE.                                             NC2064.2

097400     GO TO QAL-WRITE-F1-22.                                       NC2064.2

097500 QAL-FAIL-F1-22.                                                  NC2064.2

097600     MOVE TBL-LEVEL-0B OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN     NC2064.2

097700         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2064.2

097800         COMPUTED-A.                                              NC2064.2

097900     MOVE "5A4A3B2A1B0B" TO CORRECT-A.                            NC2064.2

098000     PERFORM FAIL.                                                NC2064.2

098100 QAL-WRITE-F1-22.                                                 NC2064.2

098200     PERFORM PRINT-DETAIL.                                        NC2064.2

098300*                                                                 NC2064.2

098400 QAL-INIT-F1-23.                                                  NC2064.2

098500     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

098600     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

098700     MOVE "QAL-TEST-F1-23" TO PAR-NAME.                           NC2064.2

098800 QAL-TEST-F1-23.                                                  NC2064.2

098900     IF TBL-LEVEL-0B OF TABLE-LEVEL-1A OF TABLE-LEVEL-2B IN       NC2064.2

099000         TABLE-LEVEL-3B IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A EQUAL NC2064.2

099100         TO "5A4A3B2B1A0B"                                        NC2064.2

099200         PERFORM PASS                                             NC2064.2

099300         GO TO QAL-WRITE-F1-23.                                   NC2064.2

099400     MOVE TBL-LEVEL-0B OF TABLE-LEVEL-1A OF TABLE-LEVEL-2B IN     NC2064.2

099500         TABLE-LEVEL-3B IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO    NC2064.2

099600         COMPUTED-A.                                              NC2064.2

099700     MOVE "5A4A3B2B1A0B" TO CORRECT-A.                            NC2064.2

099800     PERFORM FAIL.                                                NC2064.2

099900     GO TO QAL-WRITE-F1-23.                                       NC2064.2

100000 QAL-DELETE-F1-23.                                                NC2064.2

100100     PERFORM DE-LETE.                                             NC2064.2

100200 QAL-WRITE-F1-23.                                                 NC2064.2

100300     PERFORM PRINT-DETAIL.                                        NC2064.2

100400*                                                                 NC2064.2

100500 QAL-INIT-F1-24.                                                  NC2064.2

100600     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

100700     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

100800     MOVE "QAL-TEST-F1-24" TO PAR-NAME.                           NC2064.2

100900 QAL-TEST-F1-24.                                                  NC2064.2

101000     IF TBL-LEVEL-0B IN TABLE-LEVEL-1B IN TABLE-LEVEL-2B IN       NC2064.2

101100         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A EQUAL NC2064.2

101200         TO "5A4A3B2B1B0B"                                        NC2064.2

101300         PERFORM PASS                                             NC2064.2

101400         GO TO QAL-WRITE-F1-24.                                   NC2064.2

101500     GO TO QAL-FAIL-F1-24.                                        NC2064.2

101600 QAL-DELETE-F1-24.                                                NC2064.2

101700     PERFORM DE-LETE.                                             NC2064.2

101800     GO TO QAL-WRITE-F1-24.                                       NC2064.2

101900 QAL-FAIL-F1-24.                                                  NC2064.2

102000     MOVE TBL-LEVEL-0B IN TABLE-LEVEL-1B IN TABLE-LEVEL-2B IN     NC2064.2

102100         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2064.2

102200         COMPUTED-A.                                              NC2064.2

102300     MOVE "5A4A3B2B1B0B" TO CORRECT-A.                            NC2064.2

102400     PERFORM FAIL.                                                NC2064.2

102500 QAL-WRITE-F1-24.                                                 NC2064.2

102600     PERFORM PRINT-DETAIL.                                        NC2064.2

102700*                                                                 NC2064.2

102800 QAL-INIT-F1-25.                                                  NC2064.2

102900     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

103000     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

103100     MOVE "QAL-TEST-F1-25" TO PAR-NAME.                           NC2064.2

103200 QAL-TEST-F1-25.                                                  NC2064.2

103300     IF TBL-LEVEL-0B OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF       NC2064.2

103400         TABLE-LEVEL-3A OF TABLE-LEVEL-4B IN TABLE-LEVEL-5A EQUAL NC2064.2

103500         TO "5A4B3A2A1A0B"                                        NC2064.2

103600         PERFORM PASS                                             NC2064.2

103700         GO TO QAL-WRITE-F1-25.                                   NC2064.2

103800     GO TO QAL-FAIL-F1-25.                                        NC2064.2

103900 QAL-DELETE-F1-25.                                                NC2064.2

104000     PERFORM DE-LETE.                                             NC2064.2

104100     GO TO QAL-WRITE-F1-25.                                       NC2064.2

104200 QAL-FAIL-F1-25.                                                  NC2064.2

104300     MOVE TBL-LEVEL-0B OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF     NC2064.2

104400         TABLE-LEVEL-3A OF TABLE-LEVEL-4B IN TABLE-LEVEL-5A TO    NC2064.2

104500         COMPUTED-A.                                              NC2064.2

104600     MOVE "5A4B3A2A1A0B" TO CORRECT-A.                            NC2064.2

104700     PERFORM FAIL.                                                NC2064.2

104800 QAL-WRITE-F1-25.                                                 NC2064.2

104900     PERFORM PRINT-DETAIL.                                        NC2064.2

105000*                                                                 NC2064.2

105100 QAL-INIT-F1-26.                                                  NC2064.2

105200     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

105300     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

105400     MOVE "QAL-TEST-F1-26" TO PAR-NAME.                           NC2064.2

105500 QAL-TEST-F1-26.                                                  NC2064.2

105600     IF TBL-LEVEL-0B IN TABLE-LEVEL-1B OF TABLE-LEVEL-2A OF       NC2064.2

105700         TABLE-LEVEL-3A OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A EQUAL NC2064.2

105800         TO "5A4B3A2A1B0B"                                        NC2064.2

105900         PERFORM PASS                                             NC2064.2

106000         GO TO QAL-WRITE-F1-26.                                   NC2064.2

106100     GO TO QAL-FAIL-F1-26.                                        NC2064.2

106200 QAL-DELETE-F1-26.                                                NC2064.2

106300     PERFORM DE-LETE.                                             NC2064.2

106400     GO TO QAL-WRITE-F1-26.                                       NC2064.2

106500 QAL-FAIL-F1-26.                                                  NC2064.2

106600     MOVE TBL-LEVEL-0B IN TABLE-LEVEL-1B OF TABLE-LEVEL-2A OF     NC2064.2

106700         TABLE-LEVEL-3A OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A TO    NC2064.2

106800         COMPUTED-A.                                              NC2064.2

106900     MOVE "5A4B3A2A1B0B" TO CORRECT-A.                            NC2064.2

107000     PERFORM FAIL.                                                NC2064.2

107100 QAL-WRITE-F1-26.                                                 NC2064.2

107200     PERFORM PRINT-DETAIL.                                        NC2064.2

107300*                                                                 NC2064.2

107400 QAL-INIT-F1-27.                                                  NC2064.2

107500     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

107600     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

107700     MOVE "QAL-TEST-F1-27" TO PAR-NAME.                           NC2064.2

107800 QAL-TEST-F1-27.                                                  NC2064.2

107900     IF TBL-LEVEL-0B IN TABLE-LEVEL-1A OF TABLE-LEVEL-2B OF       NC2064.2

108000         TABLE-LEVEL-3A OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A EQUAL NC2064.2

108100         TO "5A4B3A2B1A0B"                                        NC2064.2

108200         PERFORM PASS                                             NC2064.2

108300         GO TO QAL-WRITE-F1-27.                                   NC2064.2

108400     GO TO QAL-FAIL-F1-27.                                        NC2064.2

108500 QAL-DELETE-F1-27.                                                NC2064.2

108600     PERFORM DE-LETE.                                             NC2064.2

108700     GO TO QAL-WRITE-F1-27.                                       NC2064.2

108800 QAL-FAIL-F1-27.                                                  NC2064.2

108900     MOVE "5A4B3A2B1A0B" TO CORRECT-A.                            NC2064.2

109000     MOVE TBL-LEVEL-0B IN TABLE-LEVEL-1A OF TABLE-LEVEL-2B OF     NC2064.2

109100         TABLE-LEVEL-3A OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A TO    NC2064.2

109200         COMPUTED-A.                                              NC2064.2

109300     PERFORM FAIL.                                                NC2064.2

109400 QAL-WRITE-F1-27.                                                 NC2064.2

109500     PERFORM PRINT-DETAIL.                                        NC2064.2

109600*                                                                 NC2064.2

109700 QAL-INIT-F1-28.                                                  NC2064.2

109800     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

109900     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

110000     MOVE "QAL-TEST-F1-28" TO PAR-NAME.                           NC2064.2

110100 QAL-TEST-F1-28.                                                  NC2064.2

110200     IF TBL-LEVEL-0B OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF       NC2064.2

110300         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A EQUAL NC2064.2

110400         TO "5A4B3A2B1B0B"                                        NC2064.2

110500         PERFORM PASS                                             NC2064.2

110600         GO TO QAL-WRITE-F1-28.                                   NC2064.2

110700     GO TO QAL-FAIL-F1-28.                                        NC2064.2

110800 QAL-DELETE-F1-28.                                                NC2064.2

110900     PERFORM DE-LETE.                                             NC2064.2

111000     GO TO QAL-WRITE-F1-28.                                       NC2064.2

111100 QAL-FAIL-F1-28.                                                  NC2064.2

111200     MOVE TBL-LEVEL-0B OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF     NC2064.2

111300         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A TO    NC2064.2

111400         COMPUTED-A.                                              NC2064.2

111500     MOVE "5A4B3A2B1B0B" TO CORRECT-A.                            NC2064.2

111600     PERFORM FAIL.                                                NC2064.2

111700 QAL-WRITE-F1-28.                                                 NC2064.2

111800     PERFORM PRINT-DETAIL.                                        NC2064.2

111900*                                                                 NC2064.2

112000 QAL-INIT-F1-29.                                                  NC2064.2

112100     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

112200     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

112300     MOVE "QAL-TEST-F1-29" TO PAR-NAME.                           NC2064.2

112400 QAL-TEST-F1-29.                                                  NC2064.2

112500     IF TBL-LEVEL-0B OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF       NC2064.2

112600         TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A EQUAL NC2064.2

112700         TO "5A4B3B2A1A0B"                                        NC2064.2

112800         PERFORM PASS                                             NC2064.2

112900         GO TO QAL-WRITE-F1-29.                                   NC2064.2

113000     GO TO QAL-FAIL-F1-29.                                        NC2064.2

113100 QAL-DELETE-F1-29.                                                NC2064.2

113200     PERFORM DE-LETE.                                             NC2064.2

113300     GO TO QAL-WRITE-F1-29.                                       NC2064.2

113400 QAL-FAIL-F1-29.                                                  NC2064.2

113500     MOVE TBL-LEVEL-0B OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF     NC2064.2

113600         TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2064.2

113700         TO COMPUTED-A.                                           NC2064.2

113800     MOVE "5A4B3B2A1A0B" TO CORRECT-A.                            NC2064.2

113900     PERFORM FAIL.                                                NC2064.2

114000 QAL-WRITE-F1-29.                                                 NC2064.2

114100     PERFORM PRINT-DETAIL.                                        NC2064.2

114200*                                                                 NC2064.2

114300 QAL-INIT-F1-30.                                                  NC2064.2

114400     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

114500     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

114600     MOVE "QAL-TEST-F1-30" TO PAR-NAME.                           NC2064.2

114700 QAL-TEST-F1-30.                                                  NC2064.2

114800     IF TBL-LEVEL-0B IN TABLE-LEVEL-1B IN TABLE-LEVEL-2A IN       NC2064.2

114900         TABLE-LEVEL-3B OF TABLE-LEVEL-4B IN TABLE-LEVEL-5A EQUAL NC2064.2

115000         TO "5A4B3B2A1B0B"                                        NC2064.2

115100         PERFORM PASS                                             NC2064.2

115200         GO TO QAL-WRITE-F1-30.                                   NC2064.2

115300     GO TO QAL-FAIL-F1-30.                                        NC2064.2

115400 QAL-DELETE-F1-30.                                                NC2064.2

115500     PERFORM DE-LETE.                                             NC2064.2

115600     GO TO QAL-WRITE-F1-30.                                       NC2064.2

115700 QAL-FAIL-F1-30.                                                  NC2064.2

115800     MOVE TBL-LEVEL-0B IN TABLE-LEVEL-1B IN TABLE-LEVEL-2A IN     NC2064.2

115900         TABLE-LEVEL-3B OF TABLE-LEVEL-4B IN TABLE-LEVEL-5A TO    NC2064.2

116000         COMPUTED-A.                                              NC2064.2

116100     MOVE "5A4B3B2A1B0B" TO CORRECT-A.                            NC2064.2

116200     PERFORM FAIL.                                                NC2064.2

116300 QAL-WRITE-F1-30.                                                 NC2064.2

116400     PERFORM PRINT-DETAIL.                                        NC2064.2

116500*                                                                 NC2064.2

116600 QAL-INIT-F1-31.                                                  NC2064.2

116700     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

116800     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

116900     MOVE "QAL-TEST-F1-31" TO PAR-NAME.                           NC2064.2

117000 QAL-TEST-F1-31.                                                  NC2064.2

117100     IF TBL-LEVEL-0B OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN       NC2064.2

117200         TABLE-LEVEL-3B IN TABLE-LEVEL-4B IN TABLE-LEVEL-5A EQUAL NC2064.2

117300         TO "5A4B3B2B1A0B"                                        NC2064.2

117400         PERFORM PASS                                             NC2064.2

117500         GO TO QAL-WRITE-F1-31.                                   NC2064.2

117600     GO TO QAL-FAIL-F1-31.                                        NC2064.2

117700 QAL-DELETE-F1-31.                                                NC2064.2

117800     PERFORM DE-LETE.                                             NC2064.2

117900     GO TO QAL-WRITE-F1-31.                                       NC2064.2

118000 QAL-FAIL-F1-31.                                                  NC2064.2

118100     MOVE "5A4B3B2B1A0B" TO CORRECT-A.                            NC2064.2

118200     MOVE TBL-LEVEL-0B OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN     NC2064.2

118300         TABLE-LEVEL-3B IN TABLE-LEVEL-4B IN TABLE-LEVEL-5A TO    NC2064.2

118400         COMPUTED-A.                                              NC2064.2

118500     PERFORM FAIL.                                                NC2064.2

118600 QAL-WRITE-F1-31.                                                 NC2064.2

118700     PERFORM PRINT-DETAIL.                                        NC2064.2

118800*                                                                 NC2064.2

118900 QAL-INIT-F1-32.                                                  NC2064.2

119000     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

119100     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

119200     MOVE "QAL-TEST-F1-32" TO PAR-NAME.                           NC2064.2

119300 QAL-TEST-F1-32.                                                  NC2064.2

119400     IF TBL-LEVEL-0B IN TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF       NC2064.2

119500         TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A EQUAL NC2064.2

119600         TO "5A4B3B2B1B0B"                                        NC2064.2

119700         PERFORM PASS                                             NC2064.2

119800         GO TO QAL-WRITE-F1-32.                                   NC2064.2

119900     GO TO QAL-FAIL-F1-32.                                        NC2064.2

120000 QAL-DELETE-F1-32.                                                NC2064.2

120100     PERFORM DE-LETE.                                             NC2064.2

120200     GO TO QAL-WRITE-F1-32.                                       NC2064.2

120300 QAL-FAIL-F1-32.                                                  NC2064.2

120400     MOVE TBL-LEVEL-0B IN TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF     NC2064.2

120500         TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A TO    NC2064.2

120600         COMPUTED-A.                                              NC2064.2

120700     MOVE "5A4B3B2B1B0B" TO CORRECT-A.                            NC2064.2

120800     PERFORM FAIL.                                                NC2064.2

120900 QAL-WRITE-F1-32.                                                 NC2064.2

121000     PERFORM PRINT-DETAIL.                                        NC2064.2

121100*                                                                 NC2064.2

121200 QAL-INIT-F1-33.                                                  NC2064.2

121300     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

121400     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

121500     MOVE "QAL-TEST-F1-33" TO PAR-NAME.                           NC2064.2

121600 QAL-TEST-F1-33.                                                  NC2064.2

121700     IF TBL-LEVEL-0C OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF       NC2064.2

121800         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A EQUAL NC2064.2

121900         TO "5A4A3A2A1A0C"                                        NC2064.2

122000         PERFORM PASS                                             NC2064.2

122100         GO TO QAL-WRITE-F1-33.                                   NC2064.2

122200     GO TO QAL-FAIL-F1-33.                                        NC2064.2

122300 QAL-DELETE-F1-33.                                                NC2064.2

122400     PERFORM DE-LETE.                                             NC2064.2

122500     GO TO QAL-WRITE-F1-33.                                       NC2064.2

122600 QAL-FAIL-F1-33.                                                  NC2064.2

122700     MOVE TBL-LEVEL-0C OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF     NC2064.2

122800         TABLE-LEVEL-3A IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2064.2

122900         COMPUTED-A.                                              NC2064.2

123000     MOVE "5A4A3A2A1A0C" TO CORRECT-A.                            NC2064.2

123100     PERFORM FAIL.                                                NC2064.2

123200 QAL-WRITE-F1-33.                                                 NC2064.2

123300     PERFORM PRINT-DETAIL.                                        NC2064.2

123400*                                                                 NC2064.2

123500 QAL-INIT-F1-34.                                                  NC2064.2

123600     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

123700     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

123800     MOVE "QAL-TEST-F1-34" TO PAR-NAME.                           NC2064.2

123900 QAL-TEST-F1-34.                                                  NC2064.2

124000     IF TBL-LEVEL-0C IN TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN       NC2064.2

124100         TABLE-LEVEL-3A OF TABLE-LEVEL-4A IN TABLE-LEVEL-5A EQUAL NC2064.2

124200         TO "5A4A3A2A1B0C"                                        NC2064.2

124300         PERFORM PASS                                             NC2064.2

124400         GO TO QAL-WRITE-F1-34.                                   NC2064.2

124500     GO TO QAL-FAIL-F1-34.                                        NC2064.2

124600 QAL-DELETE-F1-34.                                                NC2064.2

124700     PERFORM DE-LETE.                                             NC2064.2

124800     GO TO QAL-WRITE-F1-34.                                       NC2064.2

124900 QAL-FAIL-F1-34.                                                  NC2064.2

125000     MOVE TBL-LEVEL-0C IN TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN     NC2064.2

125100         TABLE-LEVEL-3A OF TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO    NC2064.2

125200         COMPUTED-A.                                              NC2064.2

125300     MOVE "5A4A3A2A1B0C" TO CORRECT-A.                            NC2064.2

125400     PERFORM FAIL.                                                NC2064.2

125500 QAL-WRITE-F1-34.                                                 NC2064.2

125600     PERFORM PRINT-DETAIL.                                        NC2064.2

125700*                                                                 NC2064.2

125800 QAL-INIT-F1-35.                                                  NC2064.2

125900     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

126000     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

126100     MOVE "QAL-TEST-F1-35" TO PAR-NAME.                           NC2064.2

126200 QAL-TEST-F1-35.                                                  NC2064.2

126300     IF TBL-LEVEL-0C IN TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN       NC2064.2

126400         TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A EQUAL NC2064.2

126500         TO "5A4A3A2B1A0C"                                        NC2064.2

126600         PERFORM PASS                                             NC2064.2

126700         GO TO QAL-WRITE-F1-35.                                   NC2064.2

126800     GO TO QAL-FAIL-F1-35.                                        NC2064.2

126900 QAL-DELETE-F1-35.                                                NC2064.2

127000     PERFORM DE-LETE.                                             NC2064.2

127100     GO TO QAL-WRITE-F1-35.                                       NC2064.2

127200 QAL-FAIL-F1-35.                                                  NC2064.2

127300     MOVE TBL-LEVEL-0C IN TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN     NC2064.2

127400         TABLE-LEVEL-3A IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO    NC2064.2

127500         COMPUTED-A.                                              NC2064.2

127600     MOVE "5A4A3A2B1A0C" TO CORRECT-A.                            NC2064.2

127700     PERFORM FAIL.                                                NC2064.2

127800 QAL-WRITE-F1-35.                                                 NC2064.2

127900     PERFORM PRINT-DETAIL.                                        NC2064.2

128000*                                                                 NC2064.2

128100 QAL-INIT-F1-36.                                                  NC2064.2

128200     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

128300     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

128400     MOVE "QAL-TEST-F1-36" TO PAR-NAME.                           NC2064.2

128500 QAL-TEST-F1-36.                                                  NC2064.2

128600     IF TBL-LEVEL-0C OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF       NC2064.2

128700         TABLE-LEVEL-3A OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A EQUAL NC2064.2

128800         TO "5A4A3A2B1B0C"                                        NC2064.2

128900         PERFORM PASS                                             NC2064.2

129000         GO TO QAL-WRITE-F1-36.                                   NC2064.2

129100     GO TO QAL-FAIL-F1-36.                                        NC2064.2

129200 QAL-DELETE-F1-36.                                                NC2064.2

129300     PERFORM DE-LETE.                                             NC2064.2

129400     GO TO QAL-WRITE-F1-36.                                       NC2064.2

129500 QAL-FAIL-F1-36.                                                  NC2064.2

129600     MOVE TBL-LEVEL-0C OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF     NC2064.2

129700         TABLE-LEVEL-3A OF TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2064.2

129800         COMPUTED-A.                                              NC2064.2

129900     MOVE "5A4A3A2B1B0C" TO CORRECT-A.                            NC2064.2

130000     PERFORM FAIL.                                                NC2064.2

130100 QAL-WRITE-F1-36.                                                 NC2064.2

130200     PERFORM PRINT-DETAIL.                                        NC2064.2

130300*                                                                 NC2064.2

130400 QAL-INIT-F1-37.                                                  NC2064.2

130500     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

130600     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

130700     MOVE "QAL-TEST-F1-37" TO PAR-NAME.                           NC2064.2

130800 QAL-TEST-F1-37.                                                  NC2064.2

130900     IF TBL-LEVEL-0C OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF       NC2064.2

131000         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A EQUAL NC2064.2

131100         TO "5A4A3B2A1A0C"                                        NC2064.2

131200         PERFORM PASS                                             NC2064.2

131300         GO TO QAL-WRITE-F1-37.                                   NC2064.2

131400     GO TO QAL-FAIL-F1-37.                                        NC2064.2

131500 QAL-DELETE-F1-37.                                                NC2064.2

131600     PERFORM DE-LETE.                                             NC2064.2

131700     GO TO QAL-WRITE-F1-37.                                       NC2064.2

131800 QAL-FAIL-F1-37.                                                  NC2064.2

131900     MOVE TBL-LEVEL-0C OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF     NC2064.2

132000         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2064.2

132100         COMPUTED-A.                                              NC2064.2

132200     MOVE "5A4A3B2A1A0C" TO CORRECT-A.                            NC2064.2

132300     PERFORM FAIL.                                                NC2064.2

132400 QAL-WRITE-F1-37.                                                 NC2064.2

132500     PERFORM PRINT-DETAIL.                                        NC2064.2

132600*                                                                 NC2064.2

132700 QAL-INIT-F1-38.                                                  NC2064.2

132800     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

132900     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

133000     MOVE "QAL-TEST-F1-38" TO PAR-NAME.                           NC2064.2

133100 QAL-TEST-F1-38.                                                  NC2064.2

133200     IF TBL-LEVEL-0C OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN       NC2064.2

133300         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A EQUAL NC2064.2

133400         TO "5A4A3B2A1B0C"                                        NC2064.2

133500         PERFORM PASS                                             NC2064.2

133600         GO TO QAL-WRITE-F1-38.                                   NC2064.2

133700     GO TO QAL-FAIL-F1-38.                                        NC2064.2

133800 QAL-DELETE-F1-38.                                                NC2064.2

133900     PERFORM DE-LETE.                                             NC2064.2

134000     GO TO QAL-WRITE-F1-38.                                       NC2064.2

134100 QAL-FAIL-F1-38.                                                  NC2064.2

134200     MOVE TBL-LEVEL-0C OF TABLE-LEVEL-1B OF TABLE-LEVEL-2A IN     NC2064.2

134300         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2064.2

134400         COMPUTED-A.                                              NC2064.2

134500     MOVE "5A4A3B2A1B0C" TO CORRECT-A.                            NC2064.2

134600     PERFORM FAIL.                                                NC2064.2

134700 QAL-WRITE-F1-38.                                                 NC2064.2

134800     PERFORM PRINT-DETAIL.                                        NC2064.2

134900*                                                                 NC2064.2

135000 QAL-INIT-F1-39.                                                  NC2064.2

135100     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

135200     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

135300     MOVE "QAL-TEST-F1-39" TO PAR-NAME.                           NC2064.2

135400 QAL-TEST-F1-39.                                                  NC2064.2

135500     IF TBL-LEVEL-0C OF TABLE-LEVEL-1A OF TABLE-LEVEL-2B IN       NC2064.2

135600         TABLE-LEVEL-3B IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A EQUAL NC2064.2

135700         TO "5A4A3B2B1A0C"                                        NC2064.2

135800         PERFORM PASS                                             NC2064.2

135900         GO TO QAL-WRITE-F1-39.                                   NC2064.2

136000     GO TO QAL-FAIL-F1-39.                                        NC2064.2

136100 QAL-DELETE-F1-39.                                                NC2064.2

136200     PERFORM DE-LETE.                                             NC2064.2

136300     GO TO QAL-WRITE-F1-39.                                       NC2064.2

136400 QAL-FAIL-F1-39.                                                  NC2064.2

136500     MOVE TBL-LEVEL-0C OF TABLE-LEVEL-1A OF TABLE-LEVEL-2B IN     NC2064.2

136600         TABLE-LEVEL-3B IN TABLE-LEVEL-4A IN TABLE-LEVEL-5A TO    NC2064.2

136700         COMPUTED-A.                                              NC2064.2

136800     MOVE "5A4A3B2B1A0C" TO CORRECT-A.                            NC2064.2

136900     PERFORM FAIL.                                                NC2064.2

137000 QAL-WRITE-F1-39.                                                 NC2064.2

137100     PERFORM PRINT-DETAIL.                                        NC2064.2

137200*                                                                 NC2064.2

137300 QAL-INIT-F1-40.                                                  NC2064.2

137400     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

137500     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

137600     MOVE "QAL-TEST-F1-40" TO PAR-NAME.                           NC2064.2

137700 QAL-TEST-F1-40.                                                  NC2064.2

137800     IF TBL-LEVEL-0C IN TABLE-LEVEL-1B IN TABLE-LEVEL-2B IN       NC2064.2

137900         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A EQUAL NC2064.2

138000         TO "5A4A3B2B1B0C"                                        NC2064.2

138100         PERFORM PASS                                             NC2064.2

138200         GO TO QAL-WRITE-F1-40.                                   NC2064.2

138300     GO TO QAL-FAIL-F1-40.                                        NC2064.2

138400 QAL-DELETE-F1-40.                                                NC2064.2

138500     PERFORM DE-LETE.                                             NC2064.2

138600     GO TO QAL-WRITE-F1-40.                                       NC2064.2

138700 QAL-FAIL-F1-40.                                                  NC2064.2

138800     MOVE TBL-LEVEL-0C IN TABLE-LEVEL-1B IN TABLE-LEVEL-2B IN     NC2064.2

138900         TABLE-LEVEL-3B IN TABLE-LEVEL-4A OF TABLE-LEVEL-5A TO    NC2064.2

139000         COMPUTED-A.                                              NC2064.2

139100     MOVE "5A4A3B2B1B0C" TO CORRECT-A.                            NC2064.2

139200     PERFORM FAIL.                                                NC2064.2

139300 QAL-WRITE-F1-40.                                                 NC2064.2

139400     PERFORM PRINT-DETAIL.                                        NC2064.2

139500*                                                                 NC2064.2

139600 QAL-INIT-F1-41.                                                  NC2064.2

139700     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

139800     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

139900     MOVE "QAL-TEST-F1-41" TO PAR-NAME.                           NC2064.2

140000 QAL-TEST-F1-41.                                                  NC2064.2

140100     IF TBL-LEVEL-0C OF TABLE-LEVEL-1A IN TABLE-LEVEL-2A OF       NC2064.2

140200         TABLE-LEVEL-3A OF TABLE-LEVEL-4B IN TABLE-LEVEL-5A EQUAL NC2064.2

140300         TO "5A4B3A2A1A0C"                                        NC2064.2

140400         PERFORM PASS                                             NC2064.2

140500         GO TO QAL-WRITE-F1-41.                                   NC2064.2

140600     GO TO QAL-FAIL-F1-41.                                        NC2064.2

140700 QAL-DELETE-F1-41.                                                NC2064.2

140800     PERFORM DE-LETE.                                             NC2064.2

140900     GO TO QAL-WRITE-F1-41.                                       NC2064.2

141000 QAL-FAIL-F1-41.                                                  NC2064.2

141100     MOVE TBL-LEVEL-0C OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF     NC2064.2

141200         TABLE-LEVEL-3A OF TABLE-LEVEL-4B IN TABLE-LEVEL-5A TO    NC2064.2

141300         COMPUTED-A.                                              NC2064.2

141400     MOVE "5A4B3A2A1A0C" TO CORRECT-A.                            NC2064.2

141500     PERFORM FAIL.                                                NC2064.2

141600 QAL-WRITE-F1-41.                                                 NC2064.2

141700     PERFORM PRINT-DETAIL.                                        NC2064.2

141800*                                                                 NC2064.2

141900 QAL-INIT-F1-42.                                                  NC2064.2

142000     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

142100     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

142200     MOVE "QAL-TEST-F1-42" TO PAR-NAME.                           NC2064.2

142300 QAL-TEST-F1-42.                                                  NC2064.2

142400     IF TBL-LEVEL-0C IN TABLE-LEVEL-1B OF TABLE-LEVEL-2A OF       NC2064.2

142500         TABLE-LEVEL-3A OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A EQUAL NC2064.2

142600         TO "5A4B3A2A1B0C"                                        NC2064.2

142700         PERFORM PASS                                             NC2064.2

142800         GO TO QAL-WRITE-F1-42.                                   NC2064.2

142900     GO TO QAL-FAIL-F1-42.                                        NC2064.2

143000 QAL-DELETE-F1-42.                                                NC2064.2

143100     PERFORM DE-LETE.                                             NC2064.2

143200     GO TO QAL-WRITE-F1-42.                                       NC2064.2

143300 QAL-FAIL-F1-42.                                                  NC2064.2

143400     MOVE TBL-LEVEL-0C IN TABLE-LEVEL-1B OF TABLE-LEVEL-2A OF     NC2064.2

143500         TABLE-LEVEL-3A OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A TO    NC2064.2

143600         COMPUTED-A.                                              NC2064.2

143700     MOVE "5A4B3A2A1B0C" TO CORRECT-A.                            NC2064.2

143800     PERFORM FAIL.                                                NC2064.2

143900 QAL-WRITE-F1-42.                                                 NC2064.2

144000     PERFORM PRINT-DETAIL.                                        NC2064.2

144100*                                                                 NC2064.2

144200 QAL-INIT-F1-43.                                                  NC2064.2

144300     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

144400     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

144500     MOVE "QAL-TEST-F1-43" TO PAR-NAME.                           NC2064.2

144600 QAL-TEST-F1-43.                                                  NC2064.2

144700     IF TBL-LEVEL-0C IN TABLE-LEVEL-1A OF TABLE-LEVEL-2B OF       NC2064.2

144800         TABLE-LEVEL-3A OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A EQUAL NC2064.2

144900         TO "5A4B3A2B1A0C"                                        NC2064.2

145000         PERFORM PASS                                             NC2064.2

145100         GO TO QAL-WRITE-F1-43.                                   NC2064.2

145200     GO TO QAL-FAIL-F1-43.                                        NC2064.2

145300 QAL-DELETE-F1-43.                                                NC2064.2

145400     PERFORM DE-LETE.                                             NC2064.2

145500     GO TO QAL-WRITE-F1-43.                                       NC2064.2

145600 QAL-FAIL-F1-43.                                                  NC2064.2

145700     MOVE "5A4B3A2B1A0C" TO CORRECT-A.                            NC2064.2

145800     MOVE TBL-LEVEL-0C IN TABLE-LEVEL-1A OF TABLE-LEVEL-2B OF     NC2064.2

145900         TABLE-LEVEL-3A OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A TO    NC2064.2

146000         COMPUTED-A.                                              NC2064.2

146100     PERFORM FAIL.                                                NC2064.2

146200 QAL-WRITE-F1-43.                                                 NC2064.2

146300     PERFORM PRINT-DETAIL.                                        NC2064.2

146400*                                                                 NC2064.2

146500 QAL-INIT-F1-44.                                                  NC2064.2

146600     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

146700     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

146800     MOVE "QAL-TEST-F1-44" TO PAR-NAME.                           NC2064.2

146900 QAL-TEST-F1-44.                                                  NC2064.2

147000     IF TBL-LEVEL-0C OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF       NC2064.2

147100         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A EQUAL NC2064.2

147200         TO "5A4B3A2B1B0C"                                        NC2064.2

147300         PERFORM PASS                                             NC2064.2

147400         GO TO QAL-WRITE-F1-44.                                   NC2064.2

147500     GO TO QAL-FAIL-F1-44.                                        NC2064.2

147600 QAL-DELETE-F1-44.                                                NC2064.2

147700     PERFORM DE-LETE.                                             NC2064.2

147800     GO TO QAL-WRITE-F1-44.                                       NC2064.2

147900 QAL-FAIL-F1-44.                                                  NC2064.2

148000     MOVE TBL-LEVEL-0C OF TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF     NC2064.2

148100         TABLE-LEVEL-3A IN TABLE-LEVEL-4B OF TABLE-LEVEL-5A TO    NC2064.2

148200         COMPUTED-A.                                              NC2064.2

148300     MOVE "5A4B3A2B1B0C" TO CORRECT-A.                            NC2064.2

148400     PERFORM FAIL.                                                NC2064.2

148500 QAL-WRITE-F1-44.                                                 NC2064.2

148600     PERFORM PRINT-DETAIL.                                        NC2064.2

148700*                                                                 NC2064.2

148800 QAL-INIT-F1-45.                                                  NC2064.2

148900     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

149000     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

149100     MOVE "QAL-TEST-F1-45" TO PAR-NAME.                           NC2064.2

149200 QAL-TEST-F1-45.                                                  NC2064.2

149300     IF TBL-LEVEL-0C OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF       NC2064.2

149400         TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A EQUAL NC2064.2

149500         TO "5A4B3B2A1A0C"                                        NC2064.2

149600         PERFORM PASS                                             NC2064.2

149700         GO TO QAL-WRITE-F1-45.                                   NC2064.2

149800     GO TO QAL-FAIL-F1-45.                                        NC2064.2

149900 QAL-DELETE-F1-45.                                                NC2064.2

150000     PERFORM DE-LETE.                                             NC2064.2

150100     GO TO QAL-WRITE-F1-45.                                       NC2064.2

150200 QAL-FAIL-F1-45.                                                  NC2064.2

150300     MOVE TBL-LEVEL-0C OF TABLE-LEVEL-1A OF TABLE-LEVEL-2A OF     NC2064.2

150400         TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A       NC2064.2

150500         TO COMPUTED-A.                                           NC2064.2

150600     MOVE "5A4B3B2A1A0C" TO CORRECT-A.                            NC2064.2

150700     PERFORM FAIL.                                                NC2064.2

150800 QAL-WRITE-F1-45.                                                 NC2064.2

150900     PERFORM PRINT-DETAIL.                                        NC2064.2

151000*                                                                 NC2064.2

151100 QAL-INIT-F1-46.                                                  NC2064.2

151200     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

151300     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

151400     MOVE "QAL-TEST-F1-46" TO PAR-NAME.                           NC2064.2

151500 QAL-TEST-F1-46.                                                  NC2064.2

151600     IF TBL-LEVEL-0C IN TABLE-LEVEL-1B IN TABLE-LEVEL-2A IN       NC2064.2

151700         TABLE-LEVEL-3B OF TABLE-LEVEL-4B IN TABLE-LEVEL-5A EQUAL NC2064.2

151800         TO "5A4B3B2A1B0C"                                        NC2064.2

151900         PERFORM PASS                                             NC2064.2

152000         GO TO QAL-WRITE-F1-46.                                   NC2064.2

152100     GO TO QAL-FAIL-F1-46.                                        NC2064.2

152200 QAL-DELETE-F1-46.                                                NC2064.2

152300     PERFORM DE-LETE.                                             NC2064.2

152400     GO TO QAL-WRITE-F1-46.                                       NC2064.2

152500 QAL-FAIL-F1-46.                                                  NC2064.2

152600     MOVE TBL-LEVEL-0C IN TABLE-LEVEL-1B IN TABLE-LEVEL-2A IN     NC2064.2

152700         TABLE-LEVEL-3B OF TABLE-LEVEL-4B IN TABLE-LEVEL-5A TO    NC2064.2

152800         COMPUTED-A.                                              NC2064.2

152900     MOVE "5A4B3B2A1B0C" TO CORRECT-A.                            NC2064.2

153000     PERFORM FAIL.                                                NC2064.2

153100 QAL-WRITE-F1-46.                                                 NC2064.2

153200     PERFORM PRINT-DETAIL.                                        NC2064.2

153300*                                                                 NC2064.2

153400 QAL-INIT-F1-47.                                                  NC2064.2

153500     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

153600     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

153700     MOVE "QAL-TEST-F1-47" TO PAR-NAME.                           NC2064.2

153800 QAL-TEST-F1-47.                                                  NC2064.2

153900     IF TBL-LEVEL-0C OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN       NC2064.2

154000         TABLE-LEVEL-3B IN TABLE-LEVEL-4B IN TABLE-LEVEL-5A EQUAL NC2064.2

154100         TO "5A4B3B2B1A0C"                                        NC2064.2

154200         PERFORM PASS                                             NC2064.2

154300         GO TO QAL-WRITE-F1-47.                                   NC2064.2

154400     GO TO QAL-FAIL-F1-47.                                        NC2064.2

154500 QAL-DELETE-F1-47.                                                NC2064.2

154600     PERFORM DE-LETE.                                             NC2064.2

154700     GO TO QAL-WRITE-F1-47.                                       NC2064.2

154800 QAL-FAIL-F1-47.                                                  NC2064.2

154900     MOVE "5A4B3B2B1A0C" TO CORRECT-A.                            NC2064.2

155000     MOVE TBL-LEVEL-0C OF TABLE-LEVEL-1A IN TABLE-LEVEL-2B IN     NC2064.2

155100         TABLE-LEVEL-3B IN TABLE-LEVEL-4B IN TABLE-LEVEL-5A TO    NC2064.2

155200         COMPUTED-A.                                              NC2064.2

155300     PERFORM FAIL.                                                NC2064.2

155400 QAL-WRITE-F1-47.                                                 NC2064.2

155500     PERFORM PRINT-DETAIL.                                        NC2064.2

155600*                                                                 NC2064.2

155700 QAL-INIT-F1-48.                                                  NC2064.2

155800     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

155900     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

156000     MOVE "QAL-TEST-F1-48" TO PAR-NAME.                           NC2064.2

156100 QAL-TEST-F1-48.                                                  NC2064.2

156200     IF TBL-LEVEL-0C IN TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF       NC2064.2

156300         TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A EQUAL NC2064.2

156400         TO "5A4B3B2B1B0C"                                        NC2064.2

156500         PERFORM PASS                                             NC2064.2

156600         GO TO QAL-WRITE-F1-48.                                   NC2064.2

156700     GO TO QAL-FAIL-F1-48.                                        NC2064.2

156800 QAL-DELETE-F1-48.                                                NC2064.2

156900     PERFORM DE-LETE.                                             NC2064.2

157000     GO TO QAL-WRITE-F1-48.                                       NC2064.2

157100 QAL-FAIL-F1-48.                                                  NC2064.2

157200     MOVE TBL-LEVEL-0C IN TABLE-LEVEL-1B OF TABLE-LEVEL-2B OF     NC2064.2

157300         TABLE-LEVEL-3B OF TABLE-LEVEL-4B OF TABLE-LEVEL-5A TO    NC2064.2

157400         COMPUTED-A.                                              NC2064.2

157500     MOVE "5A4B3B2B1B0C" TO CORRECT-A.                            NC2064.2

157600     PERFORM FAIL.                                                NC2064.2

157700 QAL-WRITE-F1-48.                                                 NC2064.2

157800     PERFORM PRINT-DETAIL.                                        NC2064.2

157900*                                                                 NC2064.2

158000 QAL-INIT-F1-49.                                                  NC2064.2

158100     MOVE "IV-19 4.3.8.1"  TO ANSI-REFERENCE.                     NC2064.2

158200     MOVE "QUAL LIMITS "   TO FEATURE.                            NC2064.2

158300     MOVE "QAL-TEST-F1-49" TO PAR-NAME.                           NC2064.2

158400 QAL-TEST-F1-49.                                                  NC2064.2

158500     IF TBL-LEVEL-0D EQUAL TO "5A4A3A2A1A0D"                      NC2064.2

158600         PERFORM PASS                                             NC2064.2

158700         GO TO QAL-WRITE-F1-49.                                   NC2064.2

158800     GO TO QAL-FAIL-F1-49.                                        NC2064.2

158900 QAL-DELETE-F1-49.                                                NC2064.2

159000     PERFORM DE-LETE.                                             NC2064.2

159100     GO TO QAL-WRITE-F1-49.                                       NC2064.2

159200 QAL-FAIL-F1-49.                                                  NC2064.2

159300     MOVE "5A4A3A2A1A0D" TO CORRECT-A.                            NC2064.2

159400     MOVE TBL-LEVEL-0D IN TABLE-LEVEL-5A TO COMPUTED-A.           NC2064.2

159500*    NOTE  TBL-LEVEL-0D IS UNIQUE AND NEED NOT BE QUALIFIED       NC2064.2

159600*         HOWEVER, REFERENCE IS MADE TO IT BOTH QUALIFIED AND     NC2064.2

159700*         UNQUALIFIED TO INSURE THE ABILITY TO DO SO.             NC2064.2

159800     PERFORM FAIL.                                                NC2064.2

159900 QAL-WRITE-F1-49.                                                 NC2064.2

160000     PERFORM PRINT-DETAIL.                                        NC2064.2

160100*                                                                 NC2064.2

160200     PERFORM END-ROUTINE.                                         NC2064.2

160300*                                                                 NC2064.2

160400 SUB-INIT-F1-0.                                                   NC2064.2

160500     PERFORM END-ROUTINE.                                         NC2064.2

160600     MOVE "AA1122DD33" TO AX.                                     NC2064.2

160700     MOVE "IV-19 4.3.8.1"    TO ANSI-REFERENCE.                   NC2064.2

160800     MOVE "QUALIFIED SUBSCRIPTS" TO FEATURE.                      NC2064.2

160900*                                                                 NC2064.2

161000 SUB-INIT-F1-1.                                                   NC2064.2

161100     MOVE "SUB-TEST-F1-1" TO PAR-NAME.                            NC2064.2

161200 SUB-TEST-F1-1.                                                   NC2064.2

161300     IF AX-2 IN AX (CX-SUB OF CX) EQUAL TO "1"                    NC2064.2

161400         PERFORM PASS                                             NC2064.2

161500         GO TO SUB-WRITE-F1-1.                                    NC2064.2

161600     GO TO SUB-FAIL-F1-1.                                         NC2064.2

161700 SUB-DELETE-F1-1.                                                 NC2064.2

161800     PERFORM DE-LETE.                                             NC2064.2

161900     GO TO SUB-WRITE-F1-1.                                        NC2064.2

162000 SUB-FAIL-F1-1.                                                   NC2064.2

162100     MOVE AX-2 IN AX (CX-SUB OF CX) TO COMPUTED-A.                NC2064.2

162200     MOVE 1 TO CORRECT-A.                                         NC2064.2

162300     PERFORM FAIL.                                                NC2064.2

162400 SUB-WRITE-F1-1.                                                  NC2064.2

162500     PERFORM PRINT-DETAIL.                                        NC2064.2

162600*                                                                 NC2064.2

162700 SUB-INIT-F1-2.                                                   NC2064.2

162800     MOVE "SUB-TEST-F1-2" TO PAR-NAME.                            NC2064.2

162900     MOVE "IV-19 4.3.8.1"    TO ANSI-REFERENCE.                   NC2064.2

163000     MOVE "QUALIFIED SUBSCRIPTS" TO FEATURE.                      NC2064.2

163100     MOVE 4 TO CX.                                                NC2064.2

163200     MOVE "DD" TO CORRECT-A.                                      NC2064.2

163300 SUB-TEST-F1-2.                                                   NC2064.2

163400     MOVE AX-1 OF AX (CX-SUB OF CX) TO COMPUTED-A.                NC2064.2

163500     IF COMPUTED-A EQUAL TO CORRECT-A                             NC2064.2

163600         PERFORM PASS                                             NC2064.2

163700         MOVE SPACE TO COMPUTED-A CORRECT-A                       NC2064.2

163800         GO TO   SUB-WRITE-F1-2.                                  NC2064.2

163900     GO TO SUB-FAIL-F1-2.                                         NC2064.2

164000 SUB-DELETE-F1-2.                                                 NC2064.2

164100     PERFORM DE-LETE.                                             NC2064.2

164200     GO TO SUB-WRITE-F1-2.                                        NC2064.2

164300 SUB-FAIL-F1-2.                                                   NC2064.2

164400     PERFORM FAIL.                                                NC2064.2

164500 SUB-WRITE-F1-2.                                                  NC2064.2

164600     PERFORM PRINT-DETAIL.                                        NC2064.2

164700*                                                                 NC2064.2

164800 SUB-INIT-F1-3.                                                   NC2064.2

164900     MOVE "SUB-TEST-F1-3" TO PAR-NAME.                            NC2064.2

165000     MOVE "IV-19 4.3.8.1"    TO ANSI-REFERENCE.                   NC2064.2

165100     MOVE "QUALIFIED SUBSCRIPTS" TO FEATURE.                      NC2064.2

165200     MOVE 5 TO CX.                                                NC2064.2

165300     MOVE 5 TO AX-3 OF BX (1)  AX-2 OF BX (1).                    NC2064.2

165400     MOVE AX-1 IN BX (1) TO AX-1 OF AX (CX-SUB OF CX).            NC2064.2

165500 SUB-TEST-F1-3.                                                   NC2064.2

165600     IF AX-1 OF BX (1) EQUAL TO AX-1 IN AX (CX-SUB IN CX)         NC2064.2

165700         PERFORM PASS                                             NC2064.2

165800         GO TO SUB-WRITE-F1-3.                                    NC2064.2

165900     GO TO SUB-FAIL-F1-3.                                         NC2064.2

166000 SUB-DELETE-F1-3.                                                 NC2064.2

166100     PERFORM DE-LETE.                                             NC2064.2

166200     GO TO SUB-WRITE-F1-3.                                        NC2064.2

166300 SUB-FAIL-F1-3.                                                   NC2064.2

166400     MOVE AX-1 OF BX (1) TO COMPUTED-A.                           NC2064.2

166500     MOVE AX-1 IN AX (CX-SUB IN CX) TO CORRECT-A.                 NC2064.2

166600     PERFORM FAIL.                                                NC2064.2

166700     MOVE "UNEQUAL COMPARISON" TO RE-MARK.                        NC2064.2

166800 SUB-WRITE-F1-3.                                                  NC2064.2

166900     PERFORM PRINT-DETAIL.                                        NC2064.2

167000*                                                                 NC2064.2

167100 SUB-INIT-F1-4.                                                   NC2064.2

167200     MOVE "IV-19 4.3.8.1"    TO ANSI-REFERENCE.                   NC2064.2

167300     MOVE "QUALIFIED SUBSCRIPTS" TO FEATURE.                      NC2064.2

167400     MOVE "SUB-TEST-F1-4" TO PAR-NAME.                            NC2064.2

167500     MOVE 1 TO CX.                                                NC2064.2

167600     MOVE 11 TO AX-1 OF BX (CX-SUB IN CX).                        NC2064.2

167700     ADD AX-3 IN BX (CX-SUB OF CX) TO AX-2 IN BX (CX-SUB IN CX).  NC2064.2

167800 SUB-TEST-F1-4.                                                   NC2064.2

167900     IF AX-2 IN BX (CX-SUB IN CX) EQUAL TO AX-2 IN AX (3)         NC2064.2

168000         PERFORM PASS                                             NC2064.2

168100         GO TO SUB-WRITE-F1-4.                                    NC2064.2

168200     GO TO SUB-FAIL-F1-4.                                         NC2064.2

168300 SUB-DELETE-F1-4.                                                 NC2064.2

168400     PERFORM DE-LETE.                                             NC2064.2

168500     GO TO SUB-WRITE-F1-4.                                        NC2064.2

168600 SUB-FAIL-F1-4.                                                   NC2064.2

168700     MOVE AX-2 IN BX (CX-SUB IN CX) TO COMPUTED-A.                NC2064.2

168800     MOVE AX-2 IN AX (3) TO CORRECT-A.                            NC2064.2

168900     MOVE "UNEQUAL COMPARISON" TO RE-MARK.                        NC2064.2

169000     PERFORM FAIL.                                                NC2064.2

169100 SUB-WRITE-F1-4.                                                  NC2064.2

169200     PERFORM PRINT-DETAIL.                                        NC2064.2

169300 CCVS-EXIT SECTION.                                               NC2064.2

169400 CCVS-999999.                                                     NC2064.2

169500     GO TO CLOSE-FILES.                                           NC2064.2
Messung V0.5 in Prozent
¤ 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.0.60Bemerkung: (vorverarbeitet am 2026-06-09) ¤

*Bot Zugriff
Wurzel
Suchen
Beweissystem der NASA
Beweissystem Isabelle
NIST Cobol Testsuite
Cephes Mathematical Library
Wiener Entwicklungsmethode
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 und die Messung sind noch experimentell.