LMS V3.6 (de)

LMSCOBLI generiert die Bibliotheksinformation.
COPY LMSCOBLI.
Auflösung von LMSCOBLI
       01  LMSUP-LI.
           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  FILLER        PIC S9(9) COMP VALUE 0.
           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' : ACTIVE
      *                                  'D' : DEAVTIVATED
           02  ACCESS-DATE   PIC X(1)       VALUE SPACES.
           02  FILLER        PIC X(24)      VALUE SPACES.
           02  LIB-FORM      PIC X(1)       VALUE SPACES.
      *        LIBRARY FORMAT (NK2/NK4)   '2' : NK2 LIBRARY FORMAT
      *                                   '4' : NK4 LIBRARY FORMAT
           02  UPAM-PROT     PIC X(1)       VALUE SPACES.
      *        UPAM PROTECTED (YES/NO)    'Y' : LIB IS UPAM PROTECTED
      *                                   'N' : LIB IS NOT UPAM PROT.
           02  FILE-SIZE     PIC S9(9) COMP VALUE 0.
           02  FREE-SIZE     PIC S9(9) COMP VALUE 0.
                 
           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  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  FILLER        PIC X(68)      VALUE SPACES. 
    
      **************  END OF COPY ELEMENT   LMSCOBLI   *********************
Your Browser is not longer supported

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

LMSCOBLI
