Loading...
Select Version
LMSASSLI generates the library information.
Name | Operation | Operands |
name | LMSASSL | [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 LMSASSLI
***********************************************************************
* *
* LIBRARY INFORMATION (DSECT) *
* *
***********************************************************************
SPACE
&NAME DSECT
&P.PTAD DS CL1 PROT. TYPE INDI. FOR ADMIN OUT CL1' '
.* 'N': NO SPECIAL PROTECTION
.* 'Y': SPECIAL PROTECTION
.* 'G': PROTECTION BY GUARD
&P.PADU DS CL1 ADMIN INDICATOR FOR OWNER OUT CL1' '
&P.PADG DS CL1 ADMIN INDICATOR FOR GROUP OUT CL1' '
&P.PADO DS CL1 ADMIN INDICATOR FOR OTHERS OUT CL1' '
&P.PADP DS CL1 ADMIN PASSWORD INDICATOR OUT CL1' '
&P.RES1 DS FL4 FL4'0'
&P.PGAD DS CL18 ADMIN GUARD OUT CL18' '
*
&P.STOR DS CL1 STORAGE FORM FOR LIBRARY OUT CL1' '
.* 'S': STD ( FULL OR DELTA )
.* 'V': FULL ELEMENT
.* 'D': DELTA ELEMENT
&P.WRCT DS CL1 WRITE-CONTROL FOR LIBRARY OUT CL1' '
.* 'A': ACTIVE
.* 'D': DEACTIVATED
&P.ADAT DS CL1 ACCESS DATE OUT CL1' '
.* 'N': NONE (DONT KEEP)
.* 'K': KEEP
&P.RES2 DS CL24 FREE CL24' '
&P.LFORM DS CL1 LIBRARY FORMAT (NK2/NK4) OUT CL1' '
* '2' : NK2 LIBRARY FORMAT
* '4' : NK4 LIBRARY FORMAT
&P.UPROT DS CL1 UPAM PROTECTED (YES/NO) OUT CL1' '
* 'Y' : LIB IS UPAM PROTECTED
* 'N' : LIB IS NOT UPAM PROTECTED
&P.FILSZ DS F FILE SIZE OUT F'0'
&P.FRESZ DS F FREE SIZE OUT F'0'
*
*********** PROTECTION ATTRIBUTES ********************************
*
&P.PTRD DS CL1 PROT. TYPE INDI. FOR READ OUT CL1' '
&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.RES3 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.RES4 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.RES5 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.PTHO DS CL1 IND. FOR HOLDER-AUTHORIZATION 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.RES6 DS FL4 FL4'0'
&P.PGHO DS CL18 HOLDER GUARD OUT CL18' '
*
&P.RES7 DS CL68 FREE CL68' '
&P.PLNG EQU *-&P.PTAD LI LENGTH