03 STIMULUS-PROG-CODE2-TABLE          REDEFINES MTIOAREA.
            05  DOCD-IOAREA.
                 10  STP2-KEY-FIELDS.
                     15  PROGRAM-CODE                 PIC X(02).
                 10  STP2-RESULT-FIELDS.
                     15  DESCRIPTION                  PIC X(40).
                     15  MAP-SHORT-DESC               PIC X(40).
                     15  MAP-LONG-DESC-LN1            PIC X(50).
                     15  MAP-LONG-DESC-LN2            PIC X(50).
                     15  MAP-LONG-DESC-LN3            PIC X(50).
                     15  CATEGORY-CODE                PIC X(02).
                     15  MAP-DISPLAY                  PIC X(01).