Loading...
Select Version
Nachfolgend ist der Satz LMSCO164 als Beispiel für einen Satz der Satzart 164 beschrieben (siehe Abschnitt „Aufbau des Attributsatzes (Satzart 164)" (4.3.3 Aufbau des Attributsatzes (Satzart 164))).
COPY LMSCO164. |
Auflösung von 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 *******************