LMSCOBEA

LMSCOBEA generates the member attributes.

COPY LMSCOBEA.

Expansion of LMSCOBEA

       01  LMSUP-EA.
           02  USER-DATE     PIC X(14)      VALUE SPACES.
           02  USER-TIME     PIC X(8)       VALUE SPACES.
           02  CCS-NAME      PIC X(8)       VALUE SPACES.
           02  HOLD-STATE    PIC X(1)       VALUE SPACES.
      *        HOLD FLAG:                '-' : FREE
      *                                  'H' : INHOLD
      *                                  ' ' : UNCHANGE
           02  FILLER        PIC X(8)       VALUE SPACES.
           02  MOD-DATE-IND  PIC X(1)       VALUE "O".
      *    MODIFICATION DATE INDICATOR:  'O' : OLD
      *                                  'S' : SYSTEM DATE
           02  FILLER        PIC X(56)      VALUE SPACES.
                 
    
      **************  END OF COPY ELEMENT   LMSCOBEA   *********************