03  WORK-ID-PROJ-JOB-TABLE              REDEFINES MTIOAREA.    00000001
              05  KEY-FIELDS.                                           00000002
                 07  WORK-ID                          PIC X(14).        00000003
                06 RESULT-FIELD.                                        00000004
                 07  PROJ-JOB-REPT-CAT                PIC X(08).        00000005
                 07  PROJ-JOB-REPT-IND                PIC X(1).         00000010
                 07  PART-NON-PART                    PIC X(1).         00000100