Defining fields for LSPACE DASD free space monitoring
Sample LSPA11S record layout
LSPA11S DSECT ,
LSPACE_rec EQU LSPA11S
*
* Input VOLSER from caller
VOLSER DS CL6
DS 0F Restore alignment
*
* The remainder of the record is set by this code & returned to caller
*
* The next three fields are returned from UCBSCAN
UCBSCAN_RETCODE DS F Return code from UCBSCAN. If non-
* zero then LSPACE_xxxxxx fields
* are not valid
UCBSCAN_RSNCODE DS F Reason code from UCBSCAN
UCBSCAN_LDEVNCHAR DS CL5 EBCDIC Logical Device number from
* UCBSCAN
DS 0D Force alignment
*
* The remaining fields are returned from LSPACE. They are not valid
* unless UCBSCAN_RETCODE is zero
LSPACE_RETCODE DS F Return code from LSPACE
LSPACE_RSNCODE DS F Reason code from LSPACE
*
* LSPACE return area
LSPACE_EXPDATA EQU *
LSPACE MF=(D,EXPDATA)
*
LSPACE_Length EQU *-LSPACE_EXPDATA
LSPACE_rec EQU LSPA11S
*
* Input VOLSER from caller
VOLSER DS CL6
DS 0F Restore alignment
*
* The remainder of the record is set by this code & returned to caller
*
* The next three fields are returned from UCBSCAN
UCBSCAN_RETCODE DS F Return code from UCBSCAN. If non-
* zero then LSPACE_xxxxxx fields
* are not valid
UCBSCAN_RSNCODE DS F Reason code from UCBSCAN
UCBSCAN_LDEVNCHAR DS CL5 EBCDIC Logical Device number from
* UCBSCAN
DS 0D Force alignment
*
* The remaining fields are returned from LSPACE. They are not valid
* unless UCBSCAN_RETCODE is zero
LSPACE_RETCODE DS F Return code from LSPACE
LSPACE_RSNCODE DS F Reason code from LSPACE
*
* LSPACE return area
LSPACE_EXPDATA EQU *
LSPACE MF=(D,EXPDATA)
*
LSPACE_Length EQU *-LSPACE_EXPDATA
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*