Loading...
Select Version
Nachfolgend ist der Satz LMSAS164 als Beispiel für einen Satz der Satzart 164 beschrieben.
Name | Operation | Operanden |
name | LMSAS164 | [P=prefix] |
prefix | Max. 2 Zeichen, die den Feldnamen vorangestellt werden sollen. |
Auflösung von LMSAS164
***********************************************************************
* *
* RECORD TYPE : 1 6 4 (DSECT) *
* *
***********************************************************************
SPACE
&NAME DSECT
&P.RECLEN DS H LENGTH OF PLAM RECORD H'540'
DC AL1(0) AL1(0)
&P.RECID DC AL1(164) IDENTIFICATION OF PLAM RECORD AL1(164)
&P.VERS DC AL1(2) VERSION OF SPECIFIED PLAM RECORD AL1(2)
&P.RECNUM DS AL1 RECORD DESCRIBES FORMAT AL1(1)
* OF PLAM RECORD OF RECORD TYPE
* WITH SPECIFIED NUMBER
&P.FNAME DS CL54 FILE NAME TAKEN FROM FCB CL54' '
&P.FTYPE DS X FCBTYPE (SET/RESET) ) X'00'
&P.FTYPES EQU X'C0' R SAM )
&P.FTYPEI EQU X'40' S ISAM )
&P.FTYPEP EQU X'C0' S PAM )
&P.VMIN EQU X'01' R VALPROP MIN. FUNCT. )
&P.VMAX EQU X'01' S VALPROP MAX. FUNCT. )
&P.SHARE DS X SHARE (SET,RESET) CAT X'00'
&P.SHAREY EQU X'04' S YES )
&P.ACCESS EQU X'08' S ACCESS=READ )
&P.SHCCNO EQU X'C0' R NO CONTROL CHAR )
&P.SHCCM EQU X'40' S MACHINE CODE CONTROL CHAR )
&P.SHCCA EQU X'C0' S ASA CONTROL CHAR )
&P.SIZE DS XL3 FILE SIZE <32GB, ) XL3'00'
&P.SALL DS XL2 SECONDARY ALLOCATION ) XL2'00'
&P.RECF DS X RECFORM (SET,RESET) ) X'00'
&P.RECFF EQU X'04' S FIXED )
&P.RECFV EQU X'02' S VARIABLE )
&P.RECFU EQU X'06' S UNDEFINED )
&P.BLKSIZ DS H BLKSIZE ) H'0'
&P.RECSIZ DS H RECSIZE ) H'0'
&P.KEYPOS DS H KEYPOS ) H'0'
&P.KEYLEN DS X KEYLEN ) X'00'
&P.PAD DS X PAD FCB X'00'
&P.LOGLN DS X LOGLEN ) X'00'
&P.VALLN DS X VALLEN ) X'00'
&P.KEY DS C DOES KEY EXISTS IN MEMBER ? C' '
&P.KEYY EQU C'Y' YES
&P.KEYN EQU C'N' NO
&P.CFID DS XL4 CFID ) XL4'00'
&P.CTRLI DS X BLKCTRL-INDICATOR ) X'00'
&P.CTRLN EQU X'80' S BLKCTRL=NO )
&P.CTRLP EQU X'40' S BLKCTRL=PAMKEY )
&P.CTRLD EQU X'20' S BLKCTRL=DATA )
&P.CTRL0 EQU X'10' S BLKCTRL=NULL )
&P.CTRLR EQU X'F0' R BLKCTRL=NOT SPECIFIED )
&P.BCF4K EQU X'08' S BLOCK CONTROL FIELD 4K )
&P.BCF2K EQU X'04' S BLOCK CONTROL FIELD 2K )
&P.CTRLU EQU X'03' R -- RESERVED, MUST BE 0 -- )
*
&P.PERF DS X IOPERF-INDICATOR ) X'00'
&P.PFVH EQU X'03' S IOPERF=VERY-HIGH )
&P.PFHI EQU X'02' S IOPERF=HIGH )
&P.PFST EQU X'01' S IOPERF=STD )
&P.PFNS EQU X'00' S IOPERF NOT SPECIFIED )
&P.USAG DS X IOUSAGE-INDICATOR ) X'00'
&P.USRW EQU X'03' S IOUSAGE=RDWRT )
&P.USWR EQU X'02' S IOUSAGE=WRITE )
&P.USRD EQU X'01' S IOUSAGE=READ )
&P.USNS EQU X'00' S IOUSAGE NOT SPECIFIED )
&P.EDMS3 DS X CATALOG-INDIC ) X'00'
&P.ESPEC EQU X'08' S PLAM FILE INDICATOR )
*
DS X FREE ( 0 ) ) X'00'
&P.AIXCNT DS H ALTERNATE INDEX COUNT ) H'0'
&P.AIXMAX EQU 30 MAX. NR. OF AIX ENTRIES )
&P.FSIZ DS XL4 FILE SIZE >= 32GB, ) XL4'00'
* &P.SIZE MUST BE X'FFFFFF'
&P.LBP DS XL2 LAST BYTE POINTER ) XL2'00'
&P.LBPV DS X LAST BYTE POINTER VALID ) X'00'
&P.LBP0 EQU X'00' LBP INVALID )
&P.LBP1 EQU X'01' LBP VALID )
*
&P.NCCS DS CL8 NET-CODED-CHAR-SET ) CL8' '
*
DS CL75 RESERVED, MUST BE 0 XL75'00'
*
&P.AIXNAM DS CL8 KEYNAME ) XL8'00'
&P.AIXKPO DS H KEYPOS ) H'0'
&P.AIXKLE DS AL1 KEYLEN ) AL1(0)
&P.AIXIND DS XL1 INDICATOR ) XL1'0'
&P.AIXIDK EQU X'80' S DUPKEY=YES )
* R DUPKEY=NO )
&P.AIX# EQU *-&P.AIXNAM LENGTH OF AIX ENTRY )
DS (&P.AIXMAX-1)CL(&P.AIX#) 29XL12'00'
*
&P.LEN EQU *-&P.RECLEN LENGTH OF PLAM RECORD