01 PPS-SSRFBN-TABLE-10B. 02 WK-SSRFBN-DATA-10B. 05 FILLER PIC X(57) VALUE '01 099835 01 ALABAMA '. 05 FILLER PIC X(57) VALUE '02 099835 02 ALASKA '. 05 FILLER PIC X(57) VALUE '03 099835 03 ARIZONA '. 05 FILLER PIC X(57) VALUE '04 099835 04 ARKANSAS '. 05 FILLER PIC X(57) VALUE '05 099317 05 CALIFORNIA '. 05 FILLER PIC X(57) VALUE '06 099413 06 COLORADO '. 05 FILLER PIC X(57) VALUE '07 098016 07 CONNECTICUT '. 05 FILLER PIC X(57) VALUE '08 099835 08 DELAWARE '. 05 FILLER PIC X(57) VALUE '09 099835 09 DISTRICT OF CO '. 05 FILLER PIC X(57) VALUE '10 099756 10 FLORIDA '. 05 FILLER PIC X(57) VALUE '11 099835 11 GEORGIA '. 05 FILLER PIC X(57) VALUE '12 099835 12 HAWAII '. 05 FILLER PIC X(57) VALUE '13 099835 13 IDAHO '. 05 FILLER PIC X(57) VALUE '14 099835 14 ILLINOIS '. 05 FILLER PIC X(57) VALUE '15 099813 15 INDIANA '. 05 FILLER PIC X(57) VALUE '16 099783 16 IOWA '. 05 FILLER PIC X(57) VALUE '17 099827 17 KANSAS '. 05 FILLER PIC X(57) VALUE '18 099835 18 KENTUCKY '. 05 FILLER PIC X(57) VALUE '19 099834 19 LOUISIANA '. 05 FILLER PIC X(57) VALUE '20 099835 20 MAINE '. 05 FILLER PIC X(57) VALUE '21 100000 21 MARYLAND '. 05 FILLER PIC X(57) VALUE '22 099834 22 MASSACHUSETTS '. 05 FILLER PIC X(57) VALUE '23 099833 23 MICHIGAN '. 05 FILLER PIC X(57) VALUE '24 099835 24 MINNESOTA '. 05 FILLER PIC X(57) VALUE '25 099834 25 MISSISSIPPI '. 05 FILLER PIC X(57) VALUE '26 099835 26 MISSOURI '. 05 FILLER PIC X(57) VALUE '27 099835 27 MONTANA '. 05 FILLER PIC X(57) VALUE '28 099835 28 NEBRASKA '. 05 FILLER PIC X(57) VALUE '29 099835 29 NEVADA '. 05 FILLER PIC X(57) VALUE '30 099699 30 NEW HAMPSHIRE '. 05 FILLER PIC X(57) VALUE '31 098587 31 NEW JERSEY '. 05 FILLER PIC X(57) VALUE '32 099577 32 NEW MEXICO '. 05 FILLER PIC X(57) VALUE '33 099835 33 NEW YORK '. 05 FILLER PIC X(57) VALUE '34 099834 34 NORTH CAROLINA '. 05 FILLER PIC X(57) VALUE '35 099833 35 NORTH DAKOTA '. 05 FILLER PIC X(57) VALUE '36 099784 36 OHIO '. 05 FILLER PIC X(57) VALUE '37 099835 37 OKLAHOMA '. 05 FILLER PIC X(57) VALUE '38 099708 38 OREGON '. 05 FILLER PIC X(57) VALUE '39 099834 39 PENNSYLVANIA '. 05 FILLER PIC X(57) VALUE '40 099835 40 PUERTO RICO '. 05 FILLER PIC X(57) VALUE '41 099835 41 RHODE ISLAND '. 05 FILLER PIC X(57) VALUE '42 099779 42 SOUTH CAROLINA '. 05 FILLER PIC X(57) VALUE '43 099834 43 SOUTH DAKOTA '. 05 FILLER PIC X(57) VALUE '44 099690 44 TENNESSEE '. 05 FILLER PIC X(57) VALUE '45 099832 45 TEXAS '. 05 FILLER PIC X(57) VALUE '46 099835 46 UTAH '. 05 FILLER PIC X(57) VALUE '47 099835 47 VERMONT '. 05 FILLER PIC X(57) VALUE '48 100000 48 VIRGIN ISLANDS '. 05 FILLER PIC X(57) VALUE '49 099835 49 VIRGINIA '. 05 FILLER PIC X(57) VALUE '50 099792 50 WASHINGTON '. 05 FILLER PIC X(57) VALUE '51 099712 51 WEST VIRGINIA '. 05 FILLER PIC X(57) VALUE '52 099816 52 WISCONSIN '. 05 FILLER PIC X(57) VALUE '53 099835 53 WYOMING '. 05 FILLER PIC X(57) VALUE '55 099317 55 CALIFORNIA '. 05 FILLER PIC X(57) VALUE '56 100000 56 CANADA '. 05 FILLER PIC X(57) VALUE '59 100000 59 MEXICO '. 05 FILLER PIC X(57) VALUE '64 100000 64 AMERICAN SAMOA '. 05 FILLER PIC X(57) VALUE '65 100000 65 GUAM '. 05 FILLER PIC X(57) VALUE '66 100000 66 MARIANAS ISLANDS '. 05 FILLER PIC X(57) VALUE '67 099832 67 TEXAS '. 05 FILLER PIC X(57) VALUE '68 099756 68 FLORIDA '. 05 FILLER PIC X(57) VALUE '69 099756 69 FLORIDA '. 05 FILLER PIC X(57) VALUE '70 099827 70 KANSAS '. 05 FILLER PIC X(57) VALUE '71 099834 71 LOUISIANA '. 05 FILLER PIC X(57) VALUE '72 099784 72 OHIO '. 05 FILLER PIC X(57) VALUE '73 099834 73 PENNSYLVANIA '. 05 FILLER PIC X(57) VALUE '74 099832 74 TEXAS '. 05 FILLER PIC X(57) VALUE '75 099317 75 CALIFORNIA '. 05 FILLER PIC X(57) VALUE '76 099783 76 IOWA '. 05 FILLER PIC X(57) VALUE '77 099835 77 MINNESOTA '. 05 FILLER PIC X(57) VALUE '78 099835 78 ILLINOIS '. 05 FILLER PIC X(57) VALUE '80 100000 80 MARYLAND '. 02 WK-SSRFBN-DATA2-10B REDEFINES WK-SSRFBN-DATA-10B. 05 SSRFBN-TAB-10B OCCURS 72 ASCENDING KEY IS WK-SSRFBN-STATE-10B INDEXED BY SSRFBN-IDX10B. 10 WK-SSRFBN-REASON-ALL-10B. 15 WK-SSRFBN-STATE-10B PIC 99. 15 FILLER PIC XX. 15 WK-SSRFBN-RATE-10B PIC 9(1)V9(5). 15 FILLER PIC XX. 15 WK-SSRFBN-CODE2-10B PIC 99. 15 FILLER PIC X. 15 WK-SSRFBN-STNAM-10B PIC X(20). 15 WK-SSRFBN-REST-10B PIC X(22). 01 MES-ADD-PROV-10B PIC X(53) VALUE SPACES. 01 MES-CHG-PROV-10B PIC X(53) VALUE SPACES. 01 MES-PPS-STATE-10B PIC X(02). 01 MES-INTRO-10B PIC X(53) VALUE SPACES. 01 MES-TOT-PAY-10B PIC 9(07)V9(02) VALUE 0. 01 MES-SSRFBN-10B. 05 MES-SSRFBN-STATE-10B PIC 99. 05 FILLER PIC XX. 05 MES-SSRFBN-RATE-10B PIC 9(1)V9(5). 05 FILLER PIC XX. 05 MES-SSRFBN-CODE2-10B PIC 99. 05 FILLER PIC X. 05 MES-SSRFBN-STNAM-10B PIC X(20). 05 MES-SSRFBN-REST-10B PIC X(22).