03 CA-DIST-OPTIONS-TABLE REDEFINES MTIOAREA. 00000001 05 DOCD-IOAREA. 00000002 10 CADO-KEY-LINE-FIELDS. 00000003 15 GROUP-NO PIC X(05). 00000004 15 STEP-NO PIC X(06). 00000005 10 CADO-NON-KEY-LINE-FIELDS. 00000006 15 BASE-TYPE PIC X(01). 00000007 15 POOL-TOTAL PIC S9(14). 00000008 15 BASE-TOTAL PIC S9(14). 00000009 15 TOTAL-STAT-UNITS PIC S9(18). 00000010 15 PERCENT-TOTAL PIC S9(10). 00000011 15 FUND-OPTION PIC X(01). 00000012 15 AGENCY-OPTION PIC X(01). 00000013 15 XORGANIZATION-OPTION PIC X(01). 00000014 15 SUB-ORG-OPTION PIC X(01). 00000015 15 ACTIVITY-IND PIC X(01). 00000016 15 OBJ-REV-IND PIC X(01). 00000017 15 SUB-O-R-OPTION PIC X(01). 00000018 15 JOB-NUM-OPTION PIC X(01). 00000019 15 FUNCTION-OPTION PIC X(01). 00000020 15 REPT-CATG-OPTION PIC X(01). 00000021 15 PROJECT-OPTION PIC X(01). 00000022 15 APPR-UNIT-OPTION PIC X(01). 00000023 15 REF-FLAG PIC X(01). 00000024 15 REF-COUNTER-X PIC X(06). 00000025 15 DESCRIPTION-30 PIC X(30). 00000026 15 BASE-CNT PIC S9(04). 00000030 15 POOL-CNT PIC S9(04). 00000100