03 PROGRAM-PROVIDER-TABLE             REDEFINES MTIOAREA.     00000001
              05  DOCD-IOAREA.                                          00000002
                 10  PGPV-KEY-FIELDS.                                   00000003
                  15  FUND-TYPE                       PIC X(01).        00000004
                  15  PROGRAM-PROVIDER                PIC X(11).        00000005
                 10  PGPV-RESULT-FIELDS.                                00000006
                  15  FUND-SOURCE                     PIC X(03).        00000007
                  15  FISC-YEAR.                                        00000008
                      20  FISC-YEAR-CC                PIC X(02).        00000009
                      20  FISC-YEAR-YY                PIC X(02).        00000010
                  15  FUND                            PIC X(04).        00000011
                  15  AGENCY                          PIC X(03).        00000020
                  15  XORGANIZATION                   PIC X(04).        00000100