Loading...
Select Version
LMSASSEI generates the member information.
Name | Operation | Operands |
name | LMSASSEI | [P=prefix,]MF={ D | C | L } |
prefix | Up to 3 characters to be prefixed to the field names. |
D C L | A dummy section (DSECT) is generated. A storage area is generated (without CSECT statement). Constants are defined which can be used for initialization of the control blocks. |
Expansion of LMSASSEI
***********************************************************************
* *
* ELEMENT INFORMATION (DSECT) *
* *
***********************************************************************
SPACE
&NAME DSECT
&P.ELEM DS 0CL96 ELEMENT IDENTIFIER OUT
&P.TYPE DS CL8 ELEMENT TYPE OUT CL8' '
&P.NAME DS CL64 ELEMENT NAME OUT CL64' '
&P.VERS DS CL24 ELEMENT VERSION OUT CL24' '
&P.STOR DS CL1 STORAGE FORM OUT CL1' '
&P.UDAT DS CL14 USER DATE OUT CL14' '
&P.UTIM DS CL8 USER TIME OUT CL8' '
&P.CDAT DS CL14 CREATION DATE OUT CL14' '
&P.CTIM DS CL8 CREATION TIME OUT CL8' '
&P.MDAT DS CL14 MODIFICATION DATE OUT CL14' '
&P.MTIM DS CL8 MODIFICATION TIME OUT CL8' '
&P.SECN DS CL32 SECONDARY NAME OUT CL32' '
&P.SECA DS CL8 SECONDARY ATTRIBUTE OUT CL8' '
&P.RES1 DS CL5 FREE CL5' '
*
*********** PROTECTION ATTRIBUTES ********************************
*
&P.PTRD DS CL1 PROT. TYPE INDI. FOR READ OUT CL1' '
.* 'N': NO SPECIAL PROTECTION
.* 'Y': SPECIAL PROTECTION
.* 'G': PROTECTION BY GUARD
&P.PRDU DS CL1 READ INDICATOR FOR OWNER OUT CL1' '
&P.PRDG DS CL1 READ INDICATOR FOR GROUP OUT CL1' '
&P.PRDO DS CL1 READ INDICATOR FOR OTHERS OUT CL1' '
&P.PRDP DS CL1 READ PASSWORD INDICATOR OUT CL1' '
&P.RES2 DS FL4 FL4'0'
*
&P.PTWR DS CL1 PROT. TYPE INDI. FOR WRITE OUT CL1' '
&P.PWRU DS CL1 WRITE INDICATOR FOR OWNER OUT CL1' '
&P.PWRG DS CL1 WRITE INDICATOR FOR GROUP OUT CL1' '
&P.PWRO DS CL1 WRITE INDICATOR FOR OTHERS OUT CL1' '
&P.PWRP DS CL1 WRITE PASSWORD INDICATOR OUT CL1' '
&P.RES3 DS FL4 FL4'0'
*
&P.PTEX DS CL1 PROT. TYPE INDI. FOR EXEC OUT CL1' '
&P.PEXU DS CL1 EXEC INDICATOR FOR OWNER OUT CL1' '
&P.PEXG DS CL1 EXEC INDICATOR FOR GROUP OUT CL1' '
&P.PEXO DS CL1 EXEC INDICATOR FOR OTHERS OUT CL1' '
&P.PEXP DS CL1 EXEC PASSWORD INDICATOR OUT CL1' '
&P.RES4 DS FL4 FL4'0'
*
&P.PGRD DS CL18 READ GUARD OUT CL18' '
&P.PGWR DS CL18 WRITE GUARD OUT CL18' '
&P.PGEX DS CL18 EXEC GUARD OUT CL18' '
&P.CCSN DS CL8 CODED CHARACTER SET NAME OUT CL8' '
*
*********** SOURCE CODE CONTROL ********************************
*
&P.PTHO DS CL1 IND. FOR HOLDER-AUTHORIZATION UT CL1' '
.* 'N': NO SPECIAL AUTHORIZATION
.* 'Y': SPECIAL AUTHORIZATION
.* 'G': AUTHORIZATION BY GUARD
&P.PHOU DS CL1 HOLDER INDICATOR FOR OWNER OUT CL1' '
&P.PHOG DS CL1 HOLDER INDICATOR FOR GROUP OUT CL1' '
&P.PHOO DS CL1 HOLDER INDICATOR FOR OTHERS OUT CL1' '
&P.PHOP DS CL1 HOLDER PASSWORD INDICATOR OUT CL1' '
&P.RES5 DS FL4 FL4'0'
&P.PGHO DS CL18 HOLDER GUARD OUT CL18' '
*
&P.HOSTA DS CL1 HOLD FLAG OUT CL1' '
.* '-': FREE
.* 'H': IN HOLD
&P.HOLD DS CL8 HOLDER USERID OUT CL8' '
&P.ADAT DS CL14 ACCESS DATE OUT CL14' '
&P.ATIM DS CL8 ACCESS TIME OUT CL8' '
*
&P.RES6 DS CL1 CL1' '
&P.ESIZE DS F ELEMENT-SIZE OUT FL4'0'
*
&P.DESTR DS CL1 DESTROY-DATA OUT
*
&P.RES7 DS CL39 FREE
&P.PLNG EQU *-&P.ELEM EI LENGTH