03 REVENUE-CAT-TABLE REDEFINES MTIOAREA. 00000001 05 DOCD-IOAREA. 00000002 10 RCAT-KEY-FIELDS. 00000003 15 FISC-YEAR. 00000004 20 FISC-YEAR-CC PIC X(02). 00000005 20 FISC-YEAR-YY PIC X(02). 00000006 15 REVENUE-CATEGORY PIC X(02). 00000007 10 RCAT-RESULT-FIELDS. 00000008 15 REV-CATEGORY-NAME PIC X(30). 00000010 15 REV-CAT-SHORT-NAME PIC X(12). 00000100