LMSCOBLA

LMSCOBLA generates the library attributes.

COPY LMSCOBLA.

Expansion of LMSCOBLA

       01  LMSUP-LA.
           02  P-TIND-ADMI   PIC X(1)       VALUE SPACES. 
           02  P-ADMI-OWN    PIC X(1)       VALUE SPACES. 
           02  P-ADMI-GRP    PIC X(1)       VALUE SPACES. 
           02  P-ADMI-OTH    PIC X(1)       VALUE SPACES. 
           02  P-ADMI-PIND   PIC X(1)       VALUE SPACES. 
           02  P-ADMI-PSWD   PIC S9(9) COMP VALUE 0.
              02 P-ADMI-PSWD-X REDEFINES P-ADMI-PSWD PIC X(4).
           02  P-GUARD-ADMI  PIC X(18)      VALUE SPACES.
           02  STORE-FORM    PIC X(1)       VALUE SPACES.
      *        STORAGE FORM FOR LIBRARY  'S' : STD ( FULL OR DELTA )
      *                                  'V' : FULL  ELEMENT
      *                                  'D' : DELTA ELEMENT
           02  WRITE-CTRL    PIC X(1)       VALUE SPACES.
      *        WRITE-CONTROL FOR LIBRARY 'A' : ACTIVATE
      *                                  'D' : DEAVTIVATE
           02  ACCESS-DATE   PIC X(1)       VALUE SPACES.
           02  FILLER        PIC X(34)      VALUE SPACES.
                 
      **************  END OF COPY ELEMENT   LMSCOBLA   *********************