LMS V3.6 (en)

LMSCOBEI generates the member information.
COPY LMSCOBEI.
Expansion of LMSCOBEI
       01  LMSUP-EI.
           02  LMSUP-EI-ED.
            03  LMSUP-EI-ED-ELEM. 
             04  TYP         PIC X(8)       VALUE SPACES.
             04  NAME        PIC X(64)      VALUE SPACES.
             04  VERSION     PIC X(24)      VALUE SPACES.
      *
            03  STORE-FORM   PIC X(1)       VALUE SPACES.
            03  USER-DATE    PIC X(14)      VALUE SPACES.
            03  USER-TIME    PIC X(8)       VALUE SPACES.
      *
           02  CREATION-DATE PIC X(14)      VALUE SPACES.
           02  CREATION-TIME PIC X(8)       VALUE SPACES.
           02  MODIFI-DATE   PIC X(14)      VALUE SPACES.
           02  MODIFI-TIME   PIC X(8)       VALUE SPACES.
           02  SEC-NAME      PIC X(32)      VALUE SPACES.
           02  SEC-ATTRIBUTE PIC X(8)       VALUE SPACES.
           02  FILLER        PIC X(5)       VALUE SPACES.
 
      ***********    PROTECTION ATTRIBUTES   **************************
           02  P-TIND-READ   PIC X(1)       VALUE SPACES. 
           02  P-READ-OWN    PIC X(1)       VALUE SPACES. 
           02  P-READ-GRP    PIC X(1)       VALUE SPACES. 
           02  P-READ-OTH    PIC X(1)       VALUE SPACES. 
           02  P-READ-PIND   PIC X(1)       VALUE SPACES. 
           02  FILLER        PIC S9(9) COMP VALUE 0.
                 
           02  P-TIND-WRIT   PIC X(1)       VALUE SPACES. 
           02  P-WRIT-OWN    PIC X(1)       VALUE SPACES. 
           02  P-WRIT-GRP    PIC X(1)       VALUE SPACES. 
           02  P-WRIT-OTH    PIC X(1)       VALUE SPACES. 
           02  P-WRIT-PIND   PIC X(1)       VALUE SPACES. 
           02  FILLER        PIC S9(9) COMP VALUE 0.  
                
           02  P-TIND-EXEC   PIC X(1)       VALUE SPACES. 
           02  P-EXEC-OWN    PIC X(1)       VALUE SPACES. 
           02  P-EXEC-GRP    PIC X(1)       VALUE SPACES. 
           02  P-EXEC-OTH    PIC X(1)       VALUE SPACES. 
           02  P-EXEC-PIND   PIC X(1)       VALUE SPACES. 
           02  FILLER        PIC S9(9) COMP VALUE 0.  
    
           02  P-GUARD-READ  PIC X(18)       VALUE SPACES. 
           02  P-GUARD-WRIT  PIC X(18)       VALUE SPACES. 
           02  P-GUARD-EXEC  PIC X(18)       VALUE SPACES. 
           02  CCS-NAME      PIC X(8)        VALUE SPACES.
 
           02  P-TIND-HOLD   PIC X(1)       VALUE SPACES. 
           02  P-HOLD-OWN    PIC X(1)       VALUE SPACES. 
           02  P-HOLD-GRP    PIC X(1)       VALUE SPACES. 
           02  P-HOLD-OTH    PIC X(1)       VALUE SPACES. 
           02  P-HOLD-PIND   PIC X(1)       VALUE SPACES. 
           02  FILLER        PIC S9(9) COMP VALUE 0.
           02  P-GUARD-HOLD  PIC X(18)      VALUE SPACES. 
 
           02  HOLD-STATE    PIC X(1)       VALUE SPACES.
      *        HOLD FLAG:                '-' : FREE
      *                                  'H' : INHOLD
           02  HOLDER        PIC X(8)       VALUE SPACES.
           02  ACCESS-DATE   PIC X(14)      VALUE SPACES.
           02  ACCESS-TIME   PIC X(8)       VALUE SPACES.
           02  FILLER        PIC X(1)       VALUE SPACES.
           02  ELEMENT-SIZE  PIC S9(9) COMP VALUE 0.
           02  DESTROY-DATA  PIC X(1)       VALUE SPACES.
           02  FILLER        PIC X(39)      VALUE SPACES.
    
      **************  END OF COPY ELEMENT   LMSCOBEI   **********************
Your Browser is not longer supported

Please use Google Chrome, Mozilla Firefox or Microsoft Edge to view the page correctly

LMSCOBEI
