//YZJCSIT JOB (NGN1,653,E,,100),'CONV SITE' //*NOPURGE //*RERUN //* //* SAVED AS &NGN1YZJ.SEER.ICDO2.EDIT.SRCLIB(CVTSTMRH) ON SEER02 //* //STEP1 EXEC CBLACOMP,OPTIONS='LIB,STATE,STATE' //COMP.SYSLIB DD DSN=NGN1YZJ.SEER.ICDO2.EDIT.COPYLIB, // UNIT=FILE,DISP=SHR,VOL=SER=SEER02 //COMP.SYSIN DD * ID DIVISION. PROGRAM-ID. CVTSTMRH. REMARKS. THIS PROGRAM IS A CONVERSION ROUTINE WHICH CONVERTS ICD-O-1 TOPOGRAPHY AND MORPHOLOGY CODES INTO ICD-O-2 CODES. *** SPECIAL CONVERSION NOTES *** 9111/(any behavior) -> suppose to return no histology at all, yet for conversion purposes it is converted to '999999'. INSTALLATION. I.M.S. - INC. DATE-WRITTEN. JULY 01, 1991. DATE-COMPILED. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-370. OBJECT-COMPUTER. IBM-370. DATA DIVISION. WORKING-STORAGE SECTION. 77 SITE-SUB PIC S9(4) COMP. 77 HIST-SUB PIC S9(4) COMP. 77 BEH-SUB PIC S9(4) COMP. 01 TEMP-ICDO2-MORPH-CONV. 03 TEMP-ICDO2-HIST PIC X(4). 03 TEMP-ICDO2-BEH PIC X(1). 03 TEMP-ICDO2-HIST-FLAGS. 05 TEMP-MULT-MORPH PIC X(1). 05 TEMP-MATRIX-TERM PIC X(1). 05 TEMP-FOOT-NOTE2 PIC X(1). 05 TEMP-FOOT-NOTE3 PIC X(1). 03 SPEC-CASE-FLAG PIC X(1). *** START OF SITE TABLE FROM BUILD PROGRAM **** 01 SITE-CONV-TABLE. 02 SITE-TBL-1400 PIC X(6) VALUE 'C00000'. 02 SITE-TBL-1401 PIC X(6) VALUE 'C00100'. 02 SITE-TBL-1402 PIC X(6) VALUE '999900'. 02 SITE-TBL-1403 PIC X(6) VALUE 'C00300'. 02 SITE-TBL-1404 PIC X(6) VALUE 'C00400'. 02 SITE-TBL-1405 PIC X(6) VALUE 'C00500'. 02 SITE-TBL-1406 PIC X(6) VALUE 'C00600'. 02 SITE-TBL-1407 PIC X(6) VALUE '999900'. 02 SITE-TBL-1408 PIC X(6) VALUE 'C00800'. 02 SITE-TBL-1409 PIC X(6) VALUE 'C00910'. 02 SITE-TBL-1410 PIC X(6) VALUE 'C01900'. 02 SITE-TBL-1411 PIC X(6) VALUE 'C02000'. 02 SITE-TBL-1412 PIC X(6) VALUE 'C02100'. 02 SITE-TBL-1413 PIC X(6) VALUE 'C02200'. 02 SITE-TBL-1414 PIC X(6) VALUE 'C02300'. 02 SITE-TBL-1415 PIC X(6) VALUE 'C02800'. 02 SITE-TBL-1416 PIC X(6) VALUE 'C02400'. 02 SITE-TBL-1417 PIC X(6) VALUE '999900'. 02 SITE-TBL-1418 PIC X(6) VALUE 'C02800'. 02 SITE-TBL-1419 PIC X(6) VALUE 'C02900'. 02 SITE-TBL-1420 PIC X(6) VALUE 'C07900'. 02 SITE-TBL-1421 PIC X(6) VALUE 'C08000'. 02 SITE-TBL-1422 PIC X(6) VALUE 'C08100'. 02 SITE-TBL-1423 PIC X(6) VALUE '999900'. 02 SITE-TBL-1424 PIC X(6) VALUE '999900'. 02 SITE-TBL-1425 PIC X(6) VALUE '999900'. 02 SITE-TBL-1426 PIC X(6) VALUE '999900'. 02 SITE-TBL-1427 PIC X(6) VALUE '999900'. 02 SITE-TBL-1428 PIC X(6) VALUE 'C08800'. 02 SITE-TBL-1429 PIC X(6) VALUE 'C08900'. 02 SITE-TBL-1430 PIC X(6) VALUE 'C03000'. 02 SITE-TBL-1431 PIC X(6) VALUE 'C03100'. 02 SITE-TBL-1432 PIC X(6) VALUE '999900'. 02 SITE-TBL-1433 PIC X(6) VALUE '999900'. 02 SITE-TBL-1434 PIC X(6) VALUE '999900'. 02 SITE-TBL-1435 PIC X(6) VALUE '999900'. 02 SITE-TBL-1436 PIC X(6) VALUE '999900'. 02 SITE-TBL-1437 PIC X(6) VALUE '999900'. 02 SITE-TBL-1438 PIC X(6) VALUE 'C03900'. 02 SITE-TBL-1439 PIC X(6) VALUE 'C03900'. 02 SITE-TBL-1440 PIC X(6) VALUE 'C04000'. 02 SITE-TBL-1441 PIC X(6) VALUE 'C04100'. 02 SITE-TBL-1442 PIC X(6) VALUE '999900'. 02 SITE-TBL-1443 PIC X(6) VALUE '999900'. 02 SITE-TBL-1444 PIC X(6) VALUE '999900'. 02 SITE-TBL-1445 PIC X(6) VALUE '999900'. 02 SITE-TBL-1446 PIC X(6) VALUE '999900'. 02 SITE-TBL-1447 PIC X(6) VALUE '999900'. 02 SITE-TBL-1448 PIC X(6) VALUE 'C04800'. 02 SITE-TBL-1449 PIC X(6) VALUE 'C04900'. 02 SITE-TBL-1450 PIC X(6) VALUE 'C06000'. 02 SITE-TBL-1451 PIC X(6) VALUE 'C06100'. 02 SITE-TBL-1452 PIC X(6) VALUE 'C05000'. 02 SITE-TBL-1453 PIC X(6) VALUE 'C05100'. 02 SITE-TBL-1454 PIC X(6) VALUE 'C05200'. 02 SITE-TBL-1455 PIC X(6) VALUE 'C05910'. 02 SITE-TBL-1456 PIC X(6) VALUE 'C06200'. 02 SITE-TBL-1457 PIC X(6) VALUE '999900'. 02 SITE-TBL-1458 PIC X(6) VALUE 'C06800'. 02 SITE-TBL-1459 PIC X(6) VALUE 'C06900'. 02 SITE-TBL-1460 PIC X(6) VALUE 'C09910'. 02 SITE-TBL-1461 PIC X(6) VALUE 'C09000'. 02 SITE-TBL-1462 PIC X(6) VALUE 'C09100'. 02 SITE-TBL-1463 PIC X(6) VALUE 'C10000'. 02 SITE-TBL-1464 PIC X(6) VALUE 'C10100'. 02 SITE-TBL-1465 PIC X(6) VALUE 'C10800'. 02 SITE-TBL-1466 PIC X(6) VALUE 'C10200'. 02 SITE-TBL-1467 PIC X(6) VALUE 'C10300'. 02 SITE-TBL-1468 PIC X(6) VALUE 'C10810'. 02 SITE-TBL-1469 PIC X(6) VALUE 'C10900'. 02 SITE-TBL-1470 PIC X(6) VALUE 'C11000'. 02 SITE-TBL-1471 PIC X(6) VALUE 'C11100'. 02 SITE-TBL-1472 PIC X(6) VALUE 'C11200'. 02 SITE-TBL-1473 PIC X(6) VALUE 'C11300'. 02 SITE-TBL-1474 PIC X(6) VALUE '999900'. 02 SITE-TBL-1475 PIC X(6) VALUE '999900'. 02 SITE-TBL-1476 PIC X(6) VALUE '999900'. 02 SITE-TBL-1477 PIC X(6) VALUE '999900'. 02 SITE-TBL-1478 PIC X(6) VALUE 'C11800'. 02 SITE-TBL-1479 PIC X(6) VALUE 'C11900'. 02 SITE-TBL-1480 PIC X(6) VALUE 'C13000'. 02 SITE-TBL-1481 PIC X(6) VALUE 'C12900'. 02 SITE-TBL-1482 PIC X(6) VALUE 'C13100'. 02 SITE-TBL-1483 PIC X(6) VALUE 'C13200'. 02 SITE-TBL-1484 PIC X(6) VALUE '999900'. 02 SITE-TBL-1485 PIC X(6) VALUE '999900'. 02 SITE-TBL-1486 PIC X(6) VALUE '999900'. 02 SITE-TBL-1487 PIC X(6) VALUE '999900'. 02 SITE-TBL-1488 PIC X(6) VALUE 'C13800'. 02 SITE-TBL-1489 PIC X(6) VALUE 'C13910'. 02 SITE-TBL-1490 PIC X(6) VALUE 'C14000'. 02 SITE-TBL-1491 PIC X(6) VALUE 'C14200'. 02 SITE-TBL-1492 PIC X(6) VALUE '999900'. 02 SITE-TBL-1493 PIC X(6) VALUE '999900'. 02 SITE-TBL-1494 PIC X(6) VALUE '999900'. 02 SITE-TBL-1495 PIC X(6) VALUE '999900'. 02 SITE-TBL-1496 PIC X(6) VALUE '999900'. 02 SITE-TBL-1497 PIC X(6) VALUE '999900'. 02 SITE-TBL-1498 PIC X(6) VALUE 'C14800'. 02 SITE-TBL-1499 PIC X(6) VALUE 'C14800'. 02 SITE-TBL-1500 PIC X(6) VALUE 'C15000'. 02 SITE-TBL-1501 PIC X(6) VALUE 'C15100'. 02 SITE-TBL-1502 PIC X(6) VALUE 'C15200'. 02 SITE-TBL-1503 PIC X(6) VALUE 'C15300'. 02 SITE-TBL-1504 PIC X(6) VALUE 'C15400'. 02 SITE-TBL-1505 PIC X(6) VALUE 'C15500'. 02 SITE-TBL-1506 PIC X(6) VALUE '999900'. 02 SITE-TBL-1507 PIC X(6) VALUE '999900'. 02 SITE-TBL-1508 PIC X(6) VALUE 'C15800'. 02 SITE-TBL-1509 PIC X(6) VALUE 'C15900'. 02 SITE-TBL-1510 PIC X(6) VALUE 'C16000'. 02 SITE-TBL-1511 PIC X(6) VALUE 'C16400'. 02 SITE-TBL-1512 PIC X(6) VALUE 'C16300'. 02 SITE-TBL-1513 PIC X(6) VALUE 'C16100'. 02 SITE-TBL-1514 PIC X(6) VALUE 'C16200'. 02 SITE-TBL-1515 PIC X(6) VALUE 'C16500'. 02 SITE-TBL-1516 PIC X(6) VALUE 'C16600'. 02 SITE-TBL-1517 PIC X(6) VALUE '999900'. 02 SITE-TBL-1518 PIC X(6) VALUE 'C16800'. 02 SITE-TBL-1519 PIC X(6) VALUE 'C16900'. 02 SITE-TBL-1520 PIC X(6) VALUE 'C17000'. 02 SITE-TBL-1521 PIC X(6) VALUE 'C17100'. 02 SITE-TBL-1522 PIC X(6) VALUE 'C17200'. 02 SITE-TBL-1523 PIC X(6) VALUE 'C17300'. 02 SITE-TBL-1524 PIC X(6) VALUE '999900'. 02 SITE-TBL-1525 PIC X(6) VALUE '999900'. 02 SITE-TBL-1526 PIC X(6) VALUE '999900'. 02 SITE-TBL-1527 PIC X(6) VALUE '999900'. 02 SITE-TBL-1528 PIC X(6) VALUE 'C17800'. 02 SITE-TBL-1529 PIC X(6) VALUE 'C17900'. 02 SITE-TBL-1530 PIC X(6) VALUE 'C18300'. 02 SITE-TBL-1531 PIC X(6) VALUE 'C18400'. 02 SITE-TBL-1532 PIC X(6) VALUE 'C18600'. 02 SITE-TBL-1533 PIC X(6) VALUE 'C18700'. 02 SITE-TBL-1534 PIC X(6) VALUE 'C18000'. 02 SITE-TBL-1535 PIC X(6) VALUE 'C18100'. 02 SITE-TBL-1536 PIC X(6) VALUE 'C18200'. 02 SITE-TBL-1537 PIC X(6) VALUE 'C18500'. 02 SITE-TBL-1538 PIC X(6) VALUE 'C18800'. 02 SITE-TBL-1539 PIC X(6) VALUE 'C18900'. 02 SITE-TBL-1540 PIC X(6) VALUE 'C19900'. 02 SITE-TBL-1541 PIC X(6) VALUE 'C20900'. 02 SITE-TBL-1542 PIC X(6) VALUE 'C21100'. 02 SITE-TBL-1543 PIC X(6) VALUE 'C21000'. 02 SITE-TBL-1544 PIC X(6) VALUE '999900'. 02 SITE-TBL-1545 PIC X(6) VALUE '999900'. 02 SITE-TBL-1546 PIC X(6) VALUE '999900'. 02 SITE-TBL-1547 PIC X(6) VALUE '999900'. 02 SITE-TBL-1548 PIC X(6) VALUE 'C21810'. 02 SITE-TBL-1549 PIC X(6) VALUE '999900'. 02 SITE-TBL-1550 PIC X(6) VALUE 'C22000'. 02 SITE-TBL-1551 PIC X(6) VALUE 'C22100'. 02 SITE-TBL-1552 PIC X(6) VALUE '999900'. 02 SITE-TBL-1553 PIC X(6) VALUE '999900'. 02 SITE-TBL-1554 PIC X(6) VALUE '999900'. 02 SITE-TBL-1555 PIC X(6) VALUE '999900'. 02 SITE-TBL-1556 PIC X(6) VALUE '999900'. 02 SITE-TBL-1557 PIC X(6) VALUE '999900'. 02 SITE-TBL-1558 PIC X(6) VALUE '999900'. 02 SITE-TBL-1559 PIC X(6) VALUE '999900'. 02 SITE-TBL-1560 PIC X(6) VALUE 'C23900'. 02 SITE-TBL-1561 PIC X(6) VALUE 'C24000'. 02 SITE-TBL-1562 PIC X(6) VALUE 'C24100'. 02 SITE-TBL-1563 PIC X(6) VALUE '999900'. 02 SITE-TBL-1564 PIC X(6) VALUE '999900'. 02 SITE-TBL-1565 PIC X(6) VALUE '999900'. 02 SITE-TBL-1566 PIC X(6) VALUE '999900'. 02 SITE-TBL-1567 PIC X(6) VALUE '999900'. 02 SITE-TBL-1568 PIC X(6) VALUE 'C24800'. 02 SITE-TBL-1569 PIC X(6) VALUE 'C24900'. 02 SITE-TBL-1570 PIC X(6) VALUE 'C25000'. 02 SITE-TBL-1571 PIC X(6) VALUE 'C25100'. 02 SITE-TBL-1572 PIC X(6) VALUE 'C25200'. 02 SITE-TBL-1573 PIC X(6) VALUE 'C25300'. 02 SITE-TBL-1574 PIC X(6) VALUE 'C25400'. 02 SITE-TBL-1575 PIC X(6) VALUE '999900'. 02 SITE-TBL-1576 PIC X(6) VALUE '999900'. 02 SITE-TBL-1577 PIC X(6) VALUE '999900'. 02 SITE-TBL-1578 PIC X(6) VALUE 'C25800'. 02 SITE-TBL-1579 PIC X(6) VALUE 'C25910'. 02 SITE-TBL-1580 PIC X(6) VALUE 'C48000'. 02 SITE-TBL-1581 PIC X(6) VALUE '999900'. 02 SITE-TBL-1582 PIC X(6) VALUE '999900'. 02 SITE-TBL-1583 PIC X(6) VALUE '999900'. 02 SITE-TBL-1584 PIC X(6) VALUE '999900'. 02 SITE-TBL-1585 PIC X(6) VALUE '999900'. 02 SITE-TBL-1586 PIC X(6) VALUE '999900'. 02 SITE-TBL-1587 PIC X(6) VALUE '999900'. 02 SITE-TBL-1588 PIC X(6) VALUE 'C48100'. 02 SITE-TBL-1589 PIC X(6) VALUE 'C48200'. 02 SITE-TBL-1590 PIC X(6) VALUE 'C26000'. 02 SITE-TBL-1591 PIC X(6) VALUE '999900'. 02 SITE-TBL-1592 PIC X(6) VALUE '999900'. 02 SITE-TBL-1593 PIC X(6) VALUE '999900'. 02 SITE-TBL-1594 PIC X(6) VALUE '999900'. 02 SITE-TBL-1595 PIC X(6) VALUE '999900'. 02 SITE-TBL-1596 PIC X(6) VALUE '999900'. 02 SITE-TBL-1597 PIC X(6) VALUE '999900'. 02 SITE-TBL-1598 PIC X(6) VALUE 'C26810'. 02 SITE-TBL-1599 PIC X(6) VALUE 'C26900'. 02 SITE-TBL-1600 PIC X(6) VALUE 'C30000'. 02 SITE-TBL-1601 PIC X(6) VALUE 'C30100'. 02 SITE-TBL-1602 PIC X(6) VALUE 'C31000'. 02 SITE-TBL-1603 PIC X(6) VALUE 'C31100'. 02 SITE-TBL-1604 PIC X(6) VALUE 'C31200'. 02 SITE-TBL-1605 PIC X(6) VALUE 'C31300'. 02 SITE-TBL-1606 PIC X(6) VALUE '999900'. 02 SITE-TBL-1607 PIC X(6) VALUE '999900'. 02 SITE-TBL-1608 PIC X(6) VALUE 'C31810'. 02 SITE-TBL-1609 PIC X(6) VALUE 'C31900'. 02 SITE-TBL-1610 PIC X(6) VALUE 'C32000'. 02 SITE-TBL-1611 PIC X(6) VALUE 'C32100'. 02 SITE-TBL-1612 PIC X(6) VALUE 'C32200'. 02 SITE-TBL-1613 PIC X(6) VALUE 'C32300'. 02 SITE-TBL-1614 PIC X(6) VALUE '999900'. 02 SITE-TBL-1615 PIC X(6) VALUE '999900'. 02 SITE-TBL-1616 PIC X(6) VALUE '999900'. 02 SITE-TBL-1617 PIC X(6) VALUE '999900'. 02 SITE-TBL-1618 PIC X(6) VALUE 'C32800'. 02 SITE-TBL-1619 PIC X(6) VALUE 'C32900'. 02 SITE-TBL-1620 PIC X(6) VALUE 'C33900'. 02 SITE-TBL-1621 PIC X(6) VALUE '999900'. 02 SITE-TBL-1622 PIC X(6) VALUE 'C34000'. 02 SITE-TBL-1623 PIC X(6) VALUE 'C34100'. 02 SITE-TBL-1624 PIC X(6) VALUE 'C34200'. 02 SITE-TBL-1625 PIC X(6) VALUE 'C34300'. 02 SITE-TBL-1626 PIC X(6) VALUE '999900'. 02 SITE-TBL-1627 PIC X(6) VALUE '999900'. 02 SITE-TBL-1628 PIC X(6) VALUE 'C34800'. 02 SITE-TBL-1629 PIC X(6) VALUE 'C34900'. 02 SITE-TBL-1630 PIC X(6) VALUE 'C38400'. 02 SITE-TBL-1631 PIC X(6) VALUE 'C38400'. 02 SITE-TBL-1632 PIC X(6) VALUE '999900'. 02 SITE-TBL-1633 PIC X(6) VALUE '999900'. 02 SITE-TBL-1634 PIC X(6) VALUE '999900'. 02 SITE-TBL-1635 PIC X(6) VALUE '999900'. 02 SITE-TBL-1636 PIC X(6) VALUE '999900'. 02 SITE-TBL-1637 PIC X(6) VALUE '999900'. 02 SITE-TBL-1638 PIC X(6) VALUE 'C38400'. 02 SITE-TBL-1639 PIC X(6) VALUE 'C38400'. 02 SITE-TBL-1640 PIC X(6) VALUE 'C37900'. 02 SITE-TBL-1641 PIC X(6) VALUE 'C38000'. 02 SITE-TBL-1642 PIC X(6) VALUE 'C38100'. 02 SITE-TBL-1643 PIC X(6) VALUE 'C38200'. 02 SITE-TBL-1644 PIC X(6) VALUE '999900'. 02 SITE-TBL-1645 PIC X(6) VALUE '999900'. 02 SITE-TBL-1646 PIC X(6) VALUE '999900'. 02 SITE-TBL-1647 PIC X(6) VALUE '999900'. 02 SITE-TBL-1648 PIC X(6) VALUE 'C38800'. 02 SITE-TBL-1649 PIC X(6) VALUE 'C38300'. 02 SITE-TBL-1650 PIC X(6) VALUE 'C39000'. 02 SITE-TBL-1651 PIC X(6) VALUE '999900'. 02 SITE-TBL-1652 PIC X(6) VALUE '999900'. 02 SITE-TBL-1653 PIC X(6) VALUE '999900'. 02 SITE-TBL-1654 PIC X(6) VALUE '999900'. 02 SITE-TBL-1655 PIC X(6) VALUE '999900'. 02 SITE-TBL-1656 PIC X(6) VALUE '999900'. 02 SITE-TBL-1657 PIC X(6) VALUE '999900'. 02 SITE-TBL-1658 PIC X(6) VALUE 'C39800'. 02 SITE-TBL-1659 PIC X(6) VALUE 'C39900'. 02 SITE-TBL-1660 PIC X(6) VALUE '999900'. 02 SITE-TBL-1661 PIC X(6) VALUE '999900'. 02 SITE-TBL-1662 PIC X(6) VALUE '999900'. 02 SITE-TBL-1663 PIC X(6) VALUE '999900'. 02 SITE-TBL-1664 PIC X(6) VALUE '999900'. 02 SITE-TBL-1665 PIC X(6) VALUE '999900'. 02 SITE-TBL-1666 PIC X(6) VALUE '999900'. 02 SITE-TBL-1667 PIC X(6) VALUE '999900'. 02 SITE-TBL-1668 PIC X(6) VALUE '999900'. 02 SITE-TBL-1669 PIC X(6) VALUE '999900'. 02 SITE-TBL-1670 PIC X(6) VALUE '999900'. 02 SITE-TBL-1671 PIC X(6) VALUE '999900'. 02 SITE-TBL-1672 PIC X(6) VALUE '999900'. 02 SITE-TBL-1673 PIC X(6) VALUE '999900'. 02 SITE-TBL-1674 PIC X(6) VALUE '999900'. 02 SITE-TBL-1675 PIC X(6) VALUE '999900'. 02 SITE-TBL-1676 PIC X(6) VALUE '999900'. 02 SITE-TBL-1677 PIC X(6) VALUE '999900'. 02 SITE-TBL-1678 PIC X(6) VALUE '999900'. 02 SITE-TBL-1679 PIC X(6) VALUE '999900'. 02 SITE-TBL-1680 PIC X(6) VALUE '999900'. 02 SITE-TBL-1681 PIC X(6) VALUE '999900'. 02 SITE-TBL-1682 PIC X(6) VALUE '999900'. 02 SITE-TBL-1683 PIC X(6) VALUE '999900'. 02 SITE-TBL-1684 PIC X(6) VALUE '999900'. 02 SITE-TBL-1685 PIC X(6) VALUE '999900'. 02 SITE-TBL-1686 PIC X(6) VALUE '999900'. 02 SITE-TBL-1687 PIC X(6) VALUE '999900'. 02 SITE-TBL-1688 PIC X(6) VALUE '999900'. 02 SITE-TBL-1689 PIC X(6) VALUE '999900'. 02 SITE-TBL-1690 PIC X(6) VALUE 'C42000'. 02 SITE-TBL-1691 PIC X(6) VALUE 'C42100'. 02 SITE-TBL-1692 PIC X(6) VALUE 'C42200'. 02 SITE-TBL-1693 PIC X(6) VALUE 'C42300'. 02 SITE-TBL-1694 PIC X(6) VALUE '999900'. 02 SITE-TBL-1695 PIC X(6) VALUE '999900'. 02 SITE-TBL-1696 PIC X(6) VALUE '999900'. 02 SITE-TBL-1697 PIC X(6) VALUE '999900'. 02 SITE-TBL-1698 PIC X(6) VALUE '999900'. 02 SITE-TBL-1699 PIC X(6) VALUE 'C42400'. 02 SITE-TBL-1700 PIC X(6) VALUE 'C41000'. 02 SITE-TBL-1701 PIC X(6) VALUE 'C41100'. 02 SITE-TBL-1702 PIC X(6) VALUE 'C41200'. 02 SITE-TBL-1703 PIC X(6) VALUE 'C41300'. 02 SITE-TBL-1704 PIC X(6) VALUE 'C40000'. 02 SITE-TBL-1705 PIC X(6) VALUE 'C40100'. 02 SITE-TBL-1706 PIC X(6) VALUE 'C41400'. 02 SITE-TBL-1707 PIC X(6) VALUE 'C40200'. 02 SITE-TBL-1708 PIC X(6) VALUE 'C40300'. 02 SITE-TBL-1709 PIC X(6) VALUE 'C41910'. 02 SITE-TBL-1710 PIC X(6) VALUE 'C49011'. 02 SITE-TBL-1711 PIC X(6) VALUE '999900'. 02 SITE-TBL-1712 PIC X(6) VALUE 'C49111'. 02 SITE-TBL-1713 PIC X(6) VALUE 'C49211'. 02 SITE-TBL-1714 PIC X(6) VALUE 'C49311'. 02 SITE-TBL-1715 PIC X(6) VALUE 'C49411'. 02 SITE-TBL-1716 PIC X(6) VALUE 'C49511'. 02 SITE-TBL-1717 PIC X(6) VALUE 'C49611'. 02 SITE-TBL-1718 PIC X(6) VALUE 'C49811'. 02 SITE-TBL-1719 PIC X(6) VALUE 'C49911'. 02 SITE-TBL-1720 PIC X(6) VALUE '999900'. 02 SITE-TBL-1721 PIC X(6) VALUE '999900'. 02 SITE-TBL-1722 PIC X(6) VALUE '999900'. 02 SITE-TBL-1723 PIC X(6) VALUE '999900'. 02 SITE-TBL-1724 PIC X(6) VALUE '999900'. 02 SITE-TBL-1725 PIC X(6) VALUE '999900'. 02 SITE-TBL-1726 PIC X(6) VALUE '999900'. 02 SITE-TBL-1727 PIC X(6) VALUE '999900'. 02 SITE-TBL-1728 PIC X(6) VALUE '999900'. 02 SITE-TBL-1729 PIC X(6) VALUE '999900'. 02 SITE-TBL-1730 PIC X(6) VALUE 'C44000'. 02 SITE-TBL-1731 PIC X(6) VALUE 'C44100'. 02 SITE-TBL-1732 PIC X(6) VALUE 'C44200'. 02 SITE-TBL-1733 PIC X(6) VALUE 'C44300'. 02 SITE-TBL-1734 PIC X(6) VALUE 'C44400'. 02 SITE-TBL-1735 PIC X(6) VALUE 'C44500'. 02 SITE-TBL-1736 PIC X(6) VALUE 'C44600'. 02 SITE-TBL-1737 PIC X(6) VALUE 'C44700'. 02 SITE-TBL-1738 PIC X(6) VALUE 'C44800'. 02 SITE-TBL-1739 PIC X(6) VALUE 'C44900'. 02 SITE-TBL-1740 PIC X(6) VALUE 'C50000'. 02 SITE-TBL-1741 PIC X(6) VALUE 'C50100'. 02 SITE-TBL-1742 PIC X(6) VALUE 'C50200'. 02 SITE-TBL-1743 PIC X(6) VALUE 'C50300'. 02 SITE-TBL-1744 PIC X(6) VALUE 'C50400'. 02 SITE-TBL-1745 PIC X(6) VALUE 'C50500'. 02 SITE-TBL-1746 PIC X(6) VALUE 'C50600'. 02 SITE-TBL-1747 PIC X(6) VALUE '999900'. 02 SITE-TBL-1748 PIC X(6) VALUE 'C50800'. 02 SITE-TBL-1749 PIC X(6) VALUE 'C50900'. 02 SITE-TBL-1750 PIC X(6) VALUE '999900'. 02 SITE-TBL-1751 PIC X(6) VALUE '999900'. 02 SITE-TBL-1752 PIC X(6) VALUE '999900'. 02 SITE-TBL-1753 PIC X(6) VALUE '999900'. 02 SITE-TBL-1754 PIC X(6) VALUE '999900'. 02 SITE-TBL-1755 PIC X(6) VALUE '999900'. 02 SITE-TBL-1756 PIC X(6) VALUE '999900'. 02 SITE-TBL-1757 PIC X(6) VALUE '999900'. 02 SITE-TBL-1758 PIC X(6) VALUE '999900'. 02 SITE-TBL-1759 PIC X(6) VALUE 'C50900'. 02 SITE-TBL-1760 PIC X(6) VALUE '999900'. 02 SITE-TBL-1761 PIC X(6) VALUE '999900'. 02 SITE-TBL-1762 PIC X(6) VALUE '999900'. 02 SITE-TBL-1763 PIC X(6) VALUE '999900'. 02 SITE-TBL-1764 PIC X(6) VALUE '999900'. 02 SITE-TBL-1765 PIC X(6) VALUE '999900'. 02 SITE-TBL-1766 PIC X(6) VALUE '999900'. 02 SITE-TBL-1767 PIC X(6) VALUE '999900'. 02 SITE-TBL-1768 PIC X(6) VALUE '999900'. 02 SITE-TBL-1769 PIC X(6) VALUE '999900'. 02 SITE-TBL-1770 PIC X(6) VALUE '999900'. 02 SITE-TBL-1771 PIC X(6) VALUE '999900'. 02 SITE-TBL-1772 PIC X(6) VALUE '999900'. 02 SITE-TBL-1773 PIC X(6) VALUE '999900'. 02 SITE-TBL-1774 PIC X(6) VALUE '999900'. 02 SITE-TBL-1775 PIC X(6) VALUE '999900'. 02 SITE-TBL-1776 PIC X(6) VALUE '999900'. 02 SITE-TBL-1777 PIC X(6) VALUE '999900'. 02 SITE-TBL-1778 PIC X(6) VALUE '999900'. 02 SITE-TBL-1779 PIC X(6) VALUE '999900'. 02 SITE-TBL-1780 PIC X(6) VALUE '999900'. 02 SITE-TBL-1781 PIC X(6) VALUE '999900'. 02 SITE-TBL-1782 PIC X(6) VALUE '999900'. 02 SITE-TBL-1783 PIC X(6) VALUE '999900'. 02 SITE-TBL-1784 PIC X(6) VALUE '999900'. 02 SITE-TBL-1785 PIC X(6) VALUE '999900'. 02 SITE-TBL-1786 PIC X(6) VALUE '999900'. 02 SITE-TBL-1787 PIC X(6) VALUE '999900'. 02 SITE-TBL-1788 PIC X(6) VALUE '999900'. 02 SITE-TBL-1789 PIC X(6) VALUE '999900'. 02 SITE-TBL-1790 PIC X(6) VALUE '999900'. 02 SITE-TBL-1791 PIC X(6) VALUE '999900'. 02 SITE-TBL-1792 PIC X(6) VALUE '999900'. 02 SITE-TBL-1793 PIC X(6) VALUE '999900'. 02 SITE-TBL-1794 PIC X(6) VALUE '999900'. 02 SITE-TBL-1795 PIC X(6) VALUE '999900'. 02 SITE-TBL-1796 PIC X(6) VALUE '999900'. 02 SITE-TBL-1797 PIC X(6) VALUE '999900'. 02 SITE-TBL-1798 PIC X(6) VALUE '999900'. 02 SITE-TBL-1799 PIC X(6) VALUE 'C55900'. 02 SITE-TBL-1800 PIC X(6) VALUE 'C53000'. 02 SITE-TBL-1801 PIC X(6) VALUE 'C53100'. 02 SITE-TBL-1802 PIC X(6) VALUE '999900'. 02 SITE-TBL-1803 PIC X(6) VALUE '999900'. 02 SITE-TBL-1804 PIC X(6) VALUE '999900'. 02 SITE-TBL-1805 PIC X(6) VALUE '999900'. 02 SITE-TBL-1806 PIC X(6) VALUE '999900'. 02 SITE-TBL-1807 PIC X(6) VALUE '999900'. 02 SITE-TBL-1808 PIC X(6) VALUE 'C53800'. 02 SITE-TBL-1809 PIC X(6) VALUE 'C53900'. 02 SITE-TBL-1810 PIC X(6) VALUE '999900'. 02 SITE-TBL-1811 PIC X(6) VALUE '999900'. 02 SITE-TBL-1812 PIC X(6) VALUE '999900'. 02 SITE-TBL-1813 PIC X(6) VALUE '999900'. 02 SITE-TBL-1814 PIC X(6) VALUE '999900'. 02 SITE-TBL-1815 PIC X(6) VALUE '999900'. 02 SITE-TBL-1816 PIC X(6) VALUE '999900'. 02 SITE-TBL-1817 PIC X(6) VALUE '999900'. 02 SITE-TBL-1818 PIC X(6) VALUE '999900'. 02 SITE-TBL-1819 PIC X(6) VALUE 'C58900'. 02 SITE-TBL-1820 PIC X(6) VALUE 'C54911'. 02 SITE-TBL-1821 PIC X(6) VALUE 'C54000'. 02 SITE-TBL-1822 PIC X(6) VALUE '999900'. 02 SITE-TBL-1823 PIC X(6) VALUE '999900'. 02 SITE-TBL-1824 PIC X(6) VALUE '999900'. 02 SITE-TBL-1825 PIC X(6) VALUE '999900'. 02 SITE-TBL-1826 PIC X(6) VALUE '999900'. 02 SITE-TBL-1827 PIC X(6) VALUE '999900'. 02 SITE-TBL-1828 PIC X(6) VALUE 'C54800'. 02 SITE-TBL-1829 PIC X(6) VALUE '999900'. 02 SITE-TBL-1830 PIC X(6) VALUE 'C56900'. 02 SITE-TBL-1831 PIC X(6) VALUE '999900'. 02 SITE-TBL-1832 PIC X(6) VALUE 'C57000'. 02 SITE-TBL-1833 PIC X(6) VALUE 'C57100'. 02 SITE-TBL-1834 PIC X(6) VALUE 'C57300'. 02 SITE-TBL-1835 PIC X(6) VALUE 'C57200'. 02 SITE-TBL-1836 PIC X(6) VALUE '999900'. 02 SITE-TBL-1837 PIC X(6) VALUE '999900'. 02 SITE-TBL-1838 PIC X(6) VALUE 'C57800'. 02 SITE-TBL-1839 PIC X(6) VALUE 'C57400'. 02 SITE-TBL-1840 PIC X(6) VALUE 'C52900'. 02 SITE-TBL-1841 PIC X(6) VALUE 'C51000'. 02 SITE-TBL-1842 PIC X(6) VALUE 'C51100'. 02 SITE-TBL-1843 PIC X(6) VALUE 'C51200'. 02 SITE-TBL-1844 PIC X(6) VALUE 'C51910'. 02 SITE-TBL-1845 PIC X(6) VALUE '999900'. 02 SITE-TBL-1846 PIC X(6) VALUE '999900'. 02 SITE-TBL-1847 PIC X(6) VALUE '999900'. 02 SITE-TBL-1848 PIC X(6) VALUE 'C57800'. 02 SITE-TBL-1849 PIC X(6) VALUE 'C57910'. 02 SITE-TBL-1850 PIC X(6) VALUE '999900'. 02 SITE-TBL-1851 PIC X(6) VALUE '999900'. 02 SITE-TBL-1852 PIC X(6) VALUE '999900'. 02 SITE-TBL-1853 PIC X(6) VALUE '999900'. 02 SITE-TBL-1854 PIC X(6) VALUE '999900'. 02 SITE-TBL-1855 PIC X(6) VALUE '999900'. 02 SITE-TBL-1856 PIC X(6) VALUE '999900'. 02 SITE-TBL-1857 PIC X(6) VALUE '999900'. 02 SITE-TBL-1858 PIC X(6) VALUE '999900'. 02 SITE-TBL-1859 PIC X(6) VALUE 'C61900'. 02 SITE-TBL-1860 PIC X(6) VALUE 'C62000'. 02 SITE-TBL-1861 PIC X(6) VALUE '999900'. 02 SITE-TBL-1862 PIC X(6) VALUE '999900'. 02 SITE-TBL-1863 PIC X(6) VALUE '999900'. 02 SITE-TBL-1864 PIC X(6) VALUE '999900'. 02 SITE-TBL-1865 PIC X(6) VALUE '999900'. 02 SITE-TBL-1866 PIC X(6) VALUE '999900'. 02 SITE-TBL-1867 PIC X(6) VALUE '999900'. 02 SITE-TBL-1868 PIC X(6) VALUE '999900'. 02 SITE-TBL-1869 PIC X(6) VALUE 'C62910'. 02 SITE-TBL-1870 PIC X(6) VALUE '999900'. 02 SITE-TBL-1871 PIC X(6) VALUE 'C60000'. 02 SITE-TBL-1872 PIC X(6) VALUE 'C60100'. 02 SITE-TBL-1873 PIC X(6) VALUE 'C60200'. 02 SITE-TBL-1874 PIC X(6) VALUE 'C60910'. 02 SITE-TBL-1875 PIC X(6) VALUE 'C63000'. 02 SITE-TBL-1876 PIC X(6) VALUE 'C63100'. 02 SITE-TBL-1877 PIC X(6) VALUE 'C63200'. 02 SITE-TBL-1878 PIC X(6) VALUE 'C63710'. 02 SITE-TBL-1879 PIC X(6) VALUE 'C63900'. 02 SITE-TBL-1880 PIC X(6) VALUE 'C67000'. 02 SITE-TBL-1881 PIC X(6) VALUE 'C67100'. 02 SITE-TBL-1882 PIC X(6) VALUE 'C67200'. 02 SITE-TBL-1883 PIC X(6) VALUE 'C67300'. 02 SITE-TBL-1884 PIC X(6) VALUE 'C67400'. 02 SITE-TBL-1885 PIC X(6) VALUE 'C67500'. 02 SITE-TBL-1886 PIC X(6) VALUE 'C67600'. 02 SITE-TBL-1887 PIC X(6) VALUE 'C67700'. 02 SITE-TBL-1888 PIC X(6) VALUE 'C67800'. 02 SITE-TBL-1889 PIC X(6) VALUE 'C67900'. 02 SITE-TBL-1890 PIC X(6) VALUE 'C64900'. 02 SITE-TBL-1891 PIC X(6) VALUE 'C65900'. 02 SITE-TBL-1892 PIC X(6) VALUE 'C66900'. 02 SITE-TBL-1893 PIC X(6) VALUE 'C68000'. 02 SITE-TBL-1894 PIC X(6) VALUE 'C68100'. 02 SITE-TBL-1895 PIC X(6) VALUE '999900'. 02 SITE-TBL-1896 PIC X(6) VALUE '999900'. 02 SITE-TBL-1897 PIC X(6) VALUE '999900'. 02 SITE-TBL-1898 PIC X(6) VALUE 'C68800'. 02 SITE-TBL-1899 PIC X(6) VALUE 'C68900'. 02 SITE-TBL-1900 PIC X(6) VALUE 'C69400'. 02 SITE-TBL-1901 PIC X(6) VALUE 'C69600'. 02 SITE-TBL-1902 PIC X(6) VALUE 'C69500'. 02 SITE-TBL-1903 PIC X(6) VALUE 'C69000'. 02 SITE-TBL-1904 PIC X(6) VALUE 'C69100'. 02 SITE-TBL-1905 PIC X(6) VALUE 'C69200'. 02 SITE-TBL-1906 PIC X(6) VALUE 'C69300'. 02 SITE-TBL-1907 PIC X(6) VALUE 'C69500'. 02 SITE-TBL-1908 PIC X(6) VALUE 'C69800'. 02 SITE-TBL-1909 PIC X(6) VALUE 'C69900'. 02 SITE-TBL-1910 PIC X(6) VALUE 'C71000'. 02 SITE-TBL-1911 PIC X(6) VALUE 'C71100'. 02 SITE-TBL-1912 PIC X(6) VALUE 'C71200'. 02 SITE-TBL-1913 PIC X(6) VALUE 'C71300'. 02 SITE-TBL-1914 PIC X(6) VALUE 'C71400'. 02 SITE-TBL-1915 PIC X(6) VALUE 'C71510'. 02 SITE-TBL-1916 PIC X(6) VALUE 'C71600'. 02 SITE-TBL-1917 PIC X(6) VALUE 'C71700'. 02 SITE-TBL-1918 PIC X(6) VALUE 'C71800'. 02 SITE-TBL-1919 PIC X(6) VALUE 'C71900'. 02 SITE-TBL-1920 PIC X(6) VALUE 'C72510'. 02 SITE-TBL-1921 PIC X(6) VALUE 'C70010'. 02 SITE-TBL-1922 PIC X(6) VALUE 'C72010'. 02 SITE-TBL-1923 PIC X(6) VALUE 'C70100'. 02 SITE-TBL-1924 PIC X(6) VALUE '999900'. 02 SITE-TBL-1925 PIC X(6) VALUE '999900'. 02 SITE-TBL-1926 PIC X(6) VALUE '999900'. 02 SITE-TBL-1927 PIC X(6) VALUE '999900'. 02 SITE-TBL-1928 PIC X(6) VALUE 'C72800'. 02 SITE-TBL-1929 PIC X(6) VALUE 'C72900'. 02 SITE-TBL-1930 PIC X(6) VALUE '999900'. 02 SITE-TBL-1931 PIC X(6) VALUE '999900'. 02 SITE-TBL-1932 PIC X(6) VALUE '999900'. 02 SITE-TBL-1933 PIC X(6) VALUE '999900'. 02 SITE-TBL-1934 PIC X(6) VALUE '999900'. 02 SITE-TBL-1935 PIC X(6) VALUE '999900'. 02 SITE-TBL-1936 PIC X(6) VALUE '999900'. 02 SITE-TBL-1937 PIC X(6) VALUE '999900'. 02 SITE-TBL-1938 PIC X(6) VALUE '999900'. 02 SITE-TBL-1939 PIC X(6) VALUE 'C73900'. 02 SITE-TBL-1940 PIC X(6) VALUE 'C74911'. 02 SITE-TBL-1941 PIC X(6) VALUE 'C75000'. 02 SITE-TBL-1942 PIC X(6) VALUE '999900'. 02 SITE-TBL-1943 PIC X(6) VALUE 'C75110'. 02 SITE-TBL-1944 PIC X(6) VALUE 'C75300'. 02 SITE-TBL-1945 PIC X(6) VALUE 'C75400'. 02 SITE-TBL-1946 PIC X(6) VALUE 'C75500'. 02 SITE-TBL-1947 PIC X(6) VALUE '999900'. 02 SITE-TBL-1948 PIC X(6) VALUE 'C75800'. 02 SITE-TBL-1949 PIC X(6) VALUE 'C75900'. 02 SITE-TBL-1950 PIC X(6) VALUE 'C76000'. 02 SITE-TBL-1951 PIC X(6) VALUE 'C76100'. 02 SITE-TBL-1952 PIC X(6) VALUE 'C76200'. 02 SITE-TBL-1953 PIC X(6) VALUE 'C76300'. 02 SITE-TBL-1954 PIC X(6) VALUE 'C76400'. 02 SITE-TBL-1955 PIC X(6) VALUE 'C76500'. 02 SITE-TBL-1956 PIC X(6) VALUE '999900'. 02 SITE-TBL-1957 PIC X(6) VALUE '999900'. 02 SITE-TBL-1958 PIC X(6) VALUE 'C76710'. 02 SITE-TBL-1959 PIC X(6) VALUE '999900'. 02 SITE-TBL-1960 PIC X(6) VALUE 'C77000'. 02 SITE-TBL-1961 PIC X(6) VALUE 'C77100'. 02 SITE-TBL-1962 PIC X(6) VALUE 'C77200'. 02 SITE-TBL-1963 PIC X(6) VALUE 'C77300'. 02 SITE-TBL-1964 PIC X(6) VALUE '999900'. 02 SITE-TBL-1965 PIC X(6) VALUE 'C77400'. 02 SITE-TBL-1966 PIC X(6) VALUE 'C77500'. 02 SITE-TBL-1967 PIC X(6) VALUE '999900'. 02 SITE-TBL-1968 PIC X(6) VALUE 'C77800'. 02 SITE-TBL-1969 PIC X(6) VALUE 'C77900'. 02 SITE-TBL-1970 PIC X(6) VALUE '999900'. 02 SITE-TBL-1971 PIC X(6) VALUE '999900'. 02 SITE-TBL-1972 PIC X(6) VALUE '999900'. 02 SITE-TBL-1973 PIC X(6) VALUE '999900'. 02 SITE-TBL-1974 PIC X(6) VALUE '999900'. 02 SITE-TBL-1975 PIC X(6) VALUE '999900'. 02 SITE-TBL-1976 PIC X(6) VALUE '999900'. 02 SITE-TBL-1977 PIC X(6) VALUE '999900'. 02 SITE-TBL-1978 PIC X(6) VALUE '999900'. 02 SITE-TBL-1979 PIC X(6) VALUE '999900'. 02 SITE-TBL-1980 PIC X(6) VALUE '999900'. 02 SITE-TBL-1981 PIC X(6) VALUE '999900'. 02 SITE-TBL-1982 PIC X(6) VALUE '999900'. 02 SITE-TBL-1983 PIC X(6) VALUE '999900'. 02 SITE-TBL-1984 PIC X(6) VALUE '999900'. 02 SITE-TBL-1985 PIC X(6) VALUE '999900'. 02 SITE-TBL-1986 PIC X(6) VALUE '999900'. 02 SITE-TBL-1987 PIC X(6) VALUE '999900'. 02 SITE-TBL-1988 PIC X(6) VALUE '999900'. 02 SITE-TBL-1989 PIC X(6) VALUE '999900'. 02 SITE-TBL-1990 PIC X(6) VALUE '999900'. 02 SITE-TBL-1991 PIC X(6) VALUE '999900'. 02 SITE-TBL-1992 PIC X(6) VALUE '999900'. 02 SITE-TBL-1993 PIC X(6) VALUE '999900'. 02 SITE-TBL-1994 PIC X(6) VALUE '999900'. 02 SITE-TBL-1995 PIC X(6) VALUE '999900'. 02 SITE-TBL-1996 PIC X(6) VALUE '999900'. 02 SITE-TBL-1997 PIC X(6) VALUE '999900'. 02 SITE-TBL-1998 PIC X(6) VALUE '999900'. 02 SITE-TBL-1999 PIC X(6) VALUE 'C80900'. 01 SITE-CONV-TBL REDEFINES SITE-CONV-TABLE. 02 SITE-CONV-ENTRY OCCURS 600 TIMES. 03 SITE-CONV PIC X(5). 03 SITE-HIST-LOOKUP PIC 9(1). **** START OF ICDO1 MORPHOLOGY CONVERSION TABLE ***** 01 MORPH-FIRST-EDITION-TABLE1. 02 TABLE-ONE-ENTRY-8000. 03 FILLER PIC X(50) VALUE '80000000008000100000800020100080003000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008000600000999990000099999000008000900000'. 02 TABLE-ONE-ENTRY-8001. 03 FILLER PIC X(50) VALUE '80010000008001100000800120100080013000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008001601000999990000099999000008001901000'. 02 TABLE-ONE-ENTRY-8002. 03 FILLER PIC X(50) VALUE '80020010008002101000800220100080023000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008002601000999990000099999000008002901000'. 02 TABLE-ONE-ENTRY-8003. 03 FILLER PIC X(50) VALUE '80030010008003101000800320100080033000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008003601000999990000099999000008003901000'. 02 TABLE-ONE-ENTRY-8004. 03 FILLER PIC X(50) VALUE '80040010008004101000800420100080043000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008004601000999990000099999000008004901000'. 02 TABLE-ONE-ENTRY-8005. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8006. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8007. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8008. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8009. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8010. 03 FILLER PIC X(50) VALUE '80100000008010101000801020000080103000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008010600000999990000099999000008010900000'. 02 TABLE-ONE-ENTRY-8011. 03 FILLER PIC X(50) VALUE '80110000008011101000801120100080113000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008011601000999990000099999000008011901000'. 02 TABLE-ONE-ENTRY-8012. 03 FILLER PIC X(50) VALUE '80120010008012101000801220100080123000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008012601000999990000099999000008012901000'. 02 TABLE-ONE-ENTRY-8013. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8014. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8015. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8016. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8017. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8018. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8019. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8020. 03 FILLER PIC X(50) VALUE '80200010008020101000802020100080203000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008020601000999990000099999000008020901000'. 02 TABLE-ONE-ENTRY-8021. 03 FILLER PIC X(50) VALUE '80210010008021101000802120100080213000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008021601000999990000099999000008021901000'. 02 TABLE-ONE-ENTRY-8022. 03 FILLER PIC X(50) VALUE '80220010008022101000802220100080223000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008022601000999990000099999000008022901000'. 02 TABLE-ONE-ENTRY-8023. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8024. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8025. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8026. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8027. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8028. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8029. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8030. 03 FILLER PIC X(50) VALUE '80300010008030101000803020100080303000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008030601000999990000099999000008030901000'. 02 TABLE-ONE-ENTRY-8031. 03 FILLER PIC X(50) VALUE '80310010008031101000803120100080313000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008031601000999990000099999000008031901000'. 02 TABLE-ONE-ENTRY-8032. 03 FILLER PIC X(50) VALUE '80320010008032101000803220100080323000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008032601000999990000099999000008032901000'. 02 TABLE-ONE-ENTRY-8033. 03 FILLER PIC X(50) VALUE '80330010008033101000803320100080333000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008033601000999990000099999000008033901000'. 02 TABLE-ONE-ENTRY-8034. 03 FILLER PIC X(50) VALUE '80340010008034101000803420100080343000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008034601000999990000099999000008034901000'. 02 TABLE-ONE-ENTRY-8035. 03 FILLER PIC X(50) VALUE '80100010008010101000801020100080103000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008010601000999990000099999000008010901000'. 02 TABLE-ONE-ENTRY-8036. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8037. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8038. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8039. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8040. 03 FILLER PIC X(50) VALUE '80400010008040100000804020100080403010009999900000'. 03 FILLER PIC X(50) VALUE '99999000008040601000999990000099999000008040901000'. 02 TABLE-ONE-ENTRY-8041. 03 FILLER PIC X(50) VALUE '80410010008041101000804120100080413000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008041601000999990000099999000008041901000'. 02 TABLE-ONE-ENTRY-8042. 03 FILLER PIC X(50) VALUE '80420010008042101000804220100080423000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008042601000999990000099999000008042901000'. 02 TABLE-ONE-ENTRY-8043. 03 FILLER PIC X(50) VALUE '80430010008043101000804320100080433000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008043601000999990000099999000008043901000'. 02 TABLE-ONE-ENTRY-8044. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8045. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8046. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8047. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8048. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8049. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8050. 03 FILLER PIC X(50) VALUE '80500000008050101000805020000080503000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008050601000999990000099999000008050901000'. 02 TABLE-ONE-ENTRY-8051. 03 FILLER PIC X(50) VALUE '80510000008051101000805120100080513000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008051601000999990000099999000008051901000'. 02 TABLE-ONE-ENTRY-8052. 03 FILLER PIC X(50) VALUE '80520000008052101000805220100080523000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008052601000999990000099999000008052901000'. 02 TABLE-ONE-ENTRY-8053. 03 FILLER PIC X(50) VALUE '80530000008053101000805320100080533010009999900000'. 03 FILLER PIC X(50) VALUE '99999000008053601000999990000099999000008053901000'. 02 TABLE-ONE-ENTRY-8054. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8055. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8056. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8057. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8058. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8059. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8060. 03 FILLER PIC X(50) VALUE '80600000008060101000806020100080603010009999900000'. 03 FILLER PIC X(50) VALUE '99999000008060601000999990000099999000008060901000'. 02 TABLE-ONE-ENTRY-8061. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8062. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8063. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8064. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8065. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8066. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8067. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8068. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8069. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8070. 03 FILLER PIC X(50) VALUE '80700010008070101000807020000080703000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008070600000999990000099999000008070901000'. 02 TABLE-ONE-ENTRY-8071. 03 FILLER PIC X(50) VALUE '80710010008071101000807120100080713000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008071601000999990000099999000008071901000'. 02 TABLE-ONE-ENTRY-8072. 03 FILLER PIC X(50) VALUE '80720010008072101000807220100080723000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008072601000999990000099999000008072901000'. 02 TABLE-ONE-ENTRY-8073. 03 FILLER PIC X(50) VALUE '80730010008073101000807320100080733000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008073601000999990000099999000008073901000'. 02 TABLE-ONE-ENTRY-8074. 03 FILLER PIC X(50) VALUE '80740010008074101000807420100080743000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008074601000999990000099999000008074901000'. 02 TABLE-ONE-ENTRY-8075. 03 FILLER PIC X(50) VALUE '80750010008075101000807520100080753000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008075601000999990000099999000008075901000'. 02 TABLE-ONE-ENTRY-8076. 03 FILLER PIC X(50) VALUE '80760010008076101000807620000080763000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008076601000999990000099999000008076901000'. 02 TABLE-ONE-ENTRY-8077. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8078. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8079. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8080. 03 FILLER PIC X(50) VALUE '80800010008080101000808020000080803010009999900000'. 03 FILLER PIC X(50) VALUE '99999000008080601000999990000099999000008080901000'. 02 TABLE-ONE-ENTRY-8081. 03 FILLER PIC X(50) VALUE '80810010008081101000808120000080813010009999900000'. 03 FILLER PIC X(50) VALUE '99999000008081601000999990000099999000008081901000'. 02 TABLE-ONE-ENTRY-8082. 03 FILLER PIC X(50) VALUE '80820010008082101000808220100080823000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008082601000999990000099999000008082901000'. 02 TABLE-ONE-ENTRY-8083. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8084. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8085. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8086. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8087. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8088. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8089. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8090. 03 FILLER PIC X(50) VALUE '80900010008090100000809020100080903000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008090601000999990000099999000008090901000'. 02 TABLE-ONE-ENTRY-8091. 03 FILLER PIC X(50) VALUE '80910010008091101000809120100080913000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008091601000999990000099999000008091901000'. 02 TABLE-ONE-ENTRY-8092. 03 FILLER PIC X(50) VALUE '80920010008092101000809220100080923000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008092601000999990000099999000008092901000'. 02 TABLE-ONE-ENTRY-8093. 03 FILLER PIC X(50) VALUE '80930010008093101000809320100080933000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008093601000999990000099999000008093901000'. 02 TABLE-ONE-ENTRY-8094. 03 FILLER PIC X(50) VALUE '80940010008094101000809420100080943000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008094601000999990000099999000008094901000'. 02 TABLE-ONE-ENTRY-8095. 03 FILLER PIC X(50) VALUE '80950010008095101000809520100080953000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008095601000999990000099999000008095901000'. 02 TABLE-ONE-ENTRY-8096. 03 FILLER PIC X(50) VALUE '80960000008096101000809620100080963010009999900000'. 03 FILLER PIC X(50) VALUE '99999000008096601000999990000099999000008096901000'. 02 TABLE-ONE-ENTRY-8097. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8098. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8099. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8100. 03 FILLER PIC X(50) VALUE '81000000008100101000810020100081003010009999900000'. 03 FILLER PIC X(50) VALUE '99999000008100601000999990000099999000008100901000'. 02 TABLE-ONE-ENTRY-8101. 03 FILLER PIC X(50) VALUE '81010000008101101000810120100081013010009999900000'. 03 FILLER PIC X(50) VALUE '99999000008101601000999990000099999000008101901000'. 02 TABLE-ONE-ENTRY-8102. 03 FILLER PIC X(50) VALUE '81020000008102101000810220100081023010009999900000'. 03 FILLER PIC X(50) VALUE '99999000008102601000999990000099999000008102901000'. 02 TABLE-ONE-ENTRY-8103. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8104. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8105. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8106. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8107. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8108. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8109. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8110. 03 FILLER PIC X(50) VALUE '81100000008110101000811020100081103010009999900000'. 03 FILLER PIC X(50) VALUE '99999000008110601000999990000099999000008110901000'. 02 TABLE-ONE-ENTRY-8111. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8112. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8113. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8114. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8115. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8116. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8117. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8118. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8119. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8120. 03 FILLER PIC X(50) VALUE '81200000008120100000812020000081203000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008120601000999990000099999000008120901000'. 02 TABLE-ONE-ENTRY-8121. 03 FILLER PIC X(50) VALUE '81210000008121100000812120100081213000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008121601000999990000099999000008121901000'. 02 TABLE-ONE-ENTRY-8122. 03 FILLER PIC X(50) VALUE '81220010008122101000812220100081223000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008122601000999990000099999000008122901000'. 02 TABLE-ONE-ENTRY-8123. 03 FILLER PIC X(50) VALUE '81230010008123101000812320100081233000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008123601000999990000099999000008123901000'. 02 TABLE-ONE-ENTRY-8124. 03 FILLER PIC X(50) VALUE '81240010008124101000812420100081243000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008124601000999990000099999000008124901000'. 02 TABLE-ONE-ENTRY-8125. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8126. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8127. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8128. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8129. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8130. 03 FILLER PIC X(50) VALUE '81300010008130101000813020100081303000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008130601000999990000099999000008130901000'. 02 TABLE-ONE-ENTRY-8131. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8132. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8133. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8134. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8135. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8136. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8137. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8138. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8139. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8140. 03 FILLER PIC X(50) VALUE '81400000008140100000814020000081403000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008140600000999990000099999000008140901000'. 02 TABLE-ONE-ENTRY-8141. 03 FILLER PIC X(50) VALUE '81410010008141101000814120100081413000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008141601000999990000099999000008141901000'. 02 TABLE-ONE-ENTRY-8142. 03 FILLER PIC X(50) VALUE '81420010008142101000814220100081423000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008142601000999990000099999000008142901000'. 02 TABLE-ONE-ENTRY-8143. 03 FILLER PIC X(50) VALUE '81430010008143101000814320100081433000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008143601000999990000099999000008143901000'. 02 TABLE-ONE-ENTRY-8144. 03 FILLER PIC X(50) VALUE '81440010008144101000814420100081443000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008144601000999990000099999000008144901000'. 02 TABLE-ONE-ENTRY-8145. 03 FILLER PIC X(50) VALUE '81450010008145101000814520100081453000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008145601000999990000099999000008145901000'. 02 TABLE-ONE-ENTRY-8146. 03 FILLER PIC X(50) VALUE '81460000008146101000814620100081463010009999900000'. 03 FILLER PIC X(50) VALUE '99999000008146601000999990000099999000008146901000'. 02 TABLE-ONE-ENTRY-8147. 03 FILLER PIC X(50) VALUE '81470000008147101000814720100081473010009999900000'. 03 FILLER PIC X(50) VALUE '99999000008147601000999990000099999000008147901000'. 02 TABLE-ONE-ENTRY-8148. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8149. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8150. 03 FILLER PIC X(50) VALUE '81500000008150101000815020100081503000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008150601000999990000099999000008150901000'. 02 TABLE-ONE-ENTRY-8151. 03 FILLER PIC X(50) VALUE '81510000008151101000815120100081513000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008151601000999990000099999000008151901000'. 02 TABLE-ONE-ENTRY-8152. 03 FILLER PIC X(50) VALUE '81520000008152101000815220100081523000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008152601000999990000099999000008152901000'. 02 TABLE-ONE-ENTRY-8153. 03 FILLER PIC X(50) VALUE '81530010008153100000815320100081533000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008153601000999990000099999000008153901000'. 02 TABLE-ONE-ENTRY-8154. 03 FILLER PIC X(50) VALUE '81540010008154101000815420100081543000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008154601000999990000099999000008154901000'. 02 TABLE-ONE-ENTRY-8155. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8156. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8157. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8158. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8159. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8160. 03 FILLER PIC X(50) VALUE '81600000008160101000816020100081603000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008160601000999990000099999000008160901000'. 02 TABLE-ONE-ENTRY-8161. 03 FILLER PIC X(50) VALUE '81610000008161101000816120100081613000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008161601000999990000099999000008161901000'. 02 TABLE-ONE-ENTRY-8162. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8163. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8164. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8165. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8166. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8167. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8168. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8169. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8170. 03 FILLER PIC X(50) VALUE '81700000008170101000817020100081703000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008170601000999990000099999000008170901000'. 02 TABLE-ONE-ENTRY-8171. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8172. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8173. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8174. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8175. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8176. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8177. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8178. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8179. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8180. 03 FILLER PIC X(50) VALUE '81800010008180101000818020100081803000009999900000'. 03 FILLER PIC X(50) VALUE '99999000008180601000999990000099999000008180901000'. 02 TABLE-ONE-ENTRY-8181. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8182. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8183. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8184. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8185. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000099999000009999900000'. 02 TABLE-ONE-ENTRY-8186. 03 FILLER PIC X(50) VALUE '99999000009999900000999990000