Format of a record of type 164

The LMSCO164 record is described below as an example of a record of type 164 (see section "Format of the attribute record (record type 164)").

COPY LMSCO164.

Expansion of LMSCO164

       01   LMS-REC164.
          02  LEN           PIC 9(4) COMP  VALUE 540.
          02  FILLER        PIC X          VALUE LOW-VALUE.
          02  REC-TYPE      PIC X          VALUE SA-164.
          02  VERSION       PIC X          VALUE LMSUP-TWO.
          02  REC-NUMBER    PIC X          VALUE LMSUP-ONE.
          02  FILENAME      PIC X(54)      VALUE SPACES.
          02  FCBTYPE-FIELD PIC X          VALUE LOW-VALUE.
      *         FCBTYPE (SET/RESET)
      *           X'C0'               R SAM
      *           X'40'               S ISAM
      *           X'C0'               S PAM
      *           X'01'               R VALPROP MIN. FUNCT.
      *           X'01'               S VALPROP MAX. FUNCT.
          02  SHARE-FIELD   PIC X          VALUE LOW-VALUE.
      *         SHARE (SET,RESET)
      *           X'04'               S YES
      *           X'08'               S ACCESS=READ
      *           X'C0'               R NO CONTROL CHAR
      *           X'40'               S MACHINE CODE CONTROL CHAR
      *           X'C0'               S ASA CONTROL CHAR
          02  FILESIZE      PIC X(3)       VALUE LOW-VALUE.
      *       FILESIZE < 32GB
          02  SEC-ALLOC     PIC 9(4) COMP  VALUE 0.
          02  RECFORM-FIELD PIC X          VALUE LOW-VALUE.
      *         RECFORM (SET,RESET)
      *           X'04'               S FIXED
      *           X'02'               S VARIABLE
      *           X'06'               S UNDEFINED
          02  BLKSIZE       PIC 9(4) COMP  VALUE 0.
          02  RECSIZE       PIC 9(4) COMP  VALUE 0.
          02  KEYPOS        PIC 9(4) COMP  VALUE 0.
          02  KEYLEN        PIC X          VALUE LOW-VALUE.
          02  PAD           PIC X          VALUE LOW-VALUE.
          02  LOGLEN        PIC X          VALUE LOW-VALUE.
          02  VALLEN        PIC X          VALUE LOW-VALUE.
          02  KEY-EX        PIC X          VALUE SPACE.
      *         KEY EXISTS IN MEMBER ? (YES/NO)
              88  KEY-YES                  VALUE LMSUP-YES.
              88  KEY-NO                   VALUE LMSUP-NO.
          02  CFID          PIC S9(9) COMP VALUE 0.
          02  BLKCTRL-FIELD PIC X          VALUE LOW-VALUE.
      *         BLKCTRL-INDICATOR
      *           X'80'               S BLKCTRL=NO
      *           X'40'               S BLKCTRL=PAMKEY
      *           X'20'               S BLKCTRL=DATA
      *           X'10'               S BLKCTRL=NULL
      *           X'F0'               R BLKCTRL=NOT SPECIFIED
      *           X'08'               S BLOCK CONTROL FIELD 4K
      *           X'04'               S BLOCK CONTROL FIELD 2K
      *           X'03'               R -- RESERVED, MUST BE 0 --
          02  PMPERF        PIC X          VALUE LOW-VALUE.
      *                             IOPERF-INDICATOR
      *           X'03'               S IOPERF=VERY-HIGH     
      *           X'02'               S IOPERF=HIGH          
      *           X'01'               S IOPERF=STD           
      *           X'00'               S IOPREF NOT SPECIFIED 
          02  PMUSAG        PIC X          VALUE LOW-VALUE.
      *                             IOUSAGE-INDICATOR         
      *           X'03'               S IOUSAGE=RDWRT        
      *           X'02'               S IOUSAGE=WRITE        
      *           X'01'               S IOUSAGE=READ         
      *           X'00'               S IOUSAGE NOT SPECIFIED
          02  PMEDMS3       PIC X          VALUE LOW-VALUE.
      *                             CATALOG-INDIC   (IDCEX)     
      *           X'08'               S PLAM FILE
      *         
          02  FILLER        PIC X          VALUE LOW-VALUE.
          02  A-IND-COUNT   PIC 9(4) COMP  VALUE 0.
          02  FILESIZE-32   PIC X(4)       VALUE LOW-VALUE.
      *       >= 32GB, FILESIZE MUST BE X'FFFFFF'
          02  LBP           PIC X(2)       VALUE 0.
          02  LBPV          PIC X          VALUE 0.
      *                             LAST BYTE POINTER VALID         
      *           X'00'               INVALID        
      *           X'01'               VALID        
          02  NCCS          PIC X(8)       VALUE SPACES.
      *
          02  FILLER        PIC X(75)      VALUE LOW-VALUE.
      *
          02    AIX         OCCURS  30 TIMES.
            03  KEYNAME     PIC X(8)       VALUE LOW-VALUE.
            03  A-KEYPOS    PIC 9(4) COMP  VALUE 0.
            03  A-KEYLEN    PIC X          VALUE LOW-VALUE.
            03  INDICATOR   PIC X          VALUE LOW-VALUE.
      *           X'80'               S  DUPKEY=YES
      *                               R  DUPKEY=NO
      ***                                                              ****
      **************  END OF COPY ELEMENT   LMSCO164    *******************