Installation exit mapping macro: EDGPL100

EDGPL100 maps the EDG_EXIT100 installation exit parameter list. See Using the DFSMSrmm EDG_EXIT100 installation exit for information about using the EDG_EXIT100 installation exit parameter list.

A DSECT addressed by PL100_LABINFO is passed to EDG_EXIT100 user exit. This information is provided by DFSMSrmm to allow sticky label processing by EDG_EXIT100.

    Common Name:          EDG_EXIT100 Parameter List
    Macro ID:             EDGPL100
    DSECT Name:           PL100
    Owning Component:     DFSMSrmm (DF186)
    Eye-Catcher ID:       EDGPL100
    Storage Attributes:   Subpool: 230
                          Key: N/A
                          Residency: N/A
    Size:                 See PL100_LENGTH
    Created by:           Callers of EDG_EXIT100 exit
    Pointed to by:        Register 1 on entry to EDG_EXIT100 exit
                          modules
    Serialization:        None
    Function:             Used by EDG_EXIT100 exit modules and their
                          callers to map the parameter list

Table 1. Structure PL100
`Offset`	`Offset`
`Dec`	`Hex`	`Type`	`Len`	`Name(Dim)`	`Description`
`0`	`(0)`	`STRUCTURE`	`288`	`PL100`	`EDG_EXIT100 parameter list`
`0`	`(0)`	`CHARACTER`	`16`	`PL100_HDR`	`Control block header`
`0`	`(0)`	`CHARACTER`	`8`	`PL100_IDENT`	`Control block ID`
`8`	`(8)`	`UNSIGNED`	`1`	`PL100_VERNO`	`Control block version number`
`9`	`(9)`	`UNSIGNED`	`1`	`PL100_REVNO`	`Control block revision number`
`10`	`(A)`	`UNSIGNED`	`2`	`PL100_SUBPOOL`	`Control block subpool number`
`12`	`(C)`	`UNSIGNED`	`4`	`PL100_LENGTH`	`Control block length`
`Start of input fields`
`16`	`(10)`	`BIT(8)`	`1`	`PL100_VALID`	`Valid functions`
		`1... ....`		`PL100_CAN_IGNORE`	`Requested volume can be ignored`
		`.1.. ....`		`PL100_CAN_VRS`	`Requested VRS can be updated`
		`..1. ....`		`PL100_CAN_RACKNO`	`Rack number can be returned`
		`...1 ....`		`PL100_CAN_IGNORE_FILE2_TON`
					`Data set record can be ignored`
		`.... 1...`		`PL100_CAN_COPYFROM`	`Tape Copyfrom supported`
		`.... .1..`		`PL100_CAN_POOL`	`Scratch pool name can be set`
		`.... ..1.`		`PL100_ITS_CLOSE`	`Exit called at CLOSE/EOV`
		`.... ...1`		`PL100_CAN_RETMET`	`Can assign retention method`
`17`	`(11)`	`BIT(8)`	`1`	`PL100_INFO`	`Information byte`
		`1... ....`		`PL100_INFO_IGNORE`	`Volume ignored by RMM`
		`.1.. ....`		`PL100_INFO_NOTRMM`	`Volume not RMM managed`
		`..1. ....`		`PL100_INFO_DISPDD`	`Disposition control file entry processed`
		`...1 ....`		`PL100_INFO_CMOVE`	`Disposition control location assignment requests move confirmation at a later time`
		`.... 1...`		`PL100_INFO_USERDATA`	`USERDATA provided`
		`.... .1..`		`PL100_INFO_MTL`	`Allocated tape drive MTL`
		`.... ..1.`		`PL100_INFO_DISPLAB`	`Label requested by disposition DD entry`
		`.... ...1`		`PL100_INFO_IGNORE_REQUEST_BYRULE`
`18`	`(12)`	`BIT(8)`	`1`	`PL100_VALID2`	`Valid functions 2`
		`1... ....`		`PL100_CAN_VRSELEXCLUDE`	`VRSELEXCLUDE supported`
`20`	`(14)`	`CHARACTER`	`6`	`PL100_REQ_VOLSER`	`Requested volume serial number`
`26`	`(1A)`	`CHARACTER`	`6`	`PL100_MOUNT_VOLSER`	`Mounted volume serial number`
`32`	`(20)`	`ADDRESS`	`4`	`PL100_WTOPTR`	`Address of WTO message`
`Start of output fields`
`36`	`(24)`	`BIT(8)`	`1`	`PL100_FUNCTION`	`Requested function`
		`1... ....`		`PL100_SET_IGNORE`	`Volume is ignored`
		`.1.. ....`		`PL100_SET_IGNORE_MOUNTED`	`Mounted volume is ignored`
		`..1. ....`		`PL100_SET_IGNORE_REQUESTED`
					`Requested volume is ignored`
		`...1 ....`		`PL100_SET_IGNORE_FILE2_TON`
					`Data set record is ignored`
		`.... 1...`		`PL100_SET_NOLABEL`	`Suppress sticky label`
		`.... .1..`		`PL100_SET_POOL`	`Scratch pool name is set`
		`.... ...1`		`PL100_SET_ACLOFF`	`Request no mount from ACL`
`37`	`(25)`	`BIT(8)`	`1`	`PL100_FUNCTION2`	`Requested function 2`
		`1... ....`		`PL100_SET_CMOVE`	`Confirm move is required`
		`.1.. ....`		`PL100_SET_NOCMOVE`	`Confirm move is not required`
		`..1. ....`		`PL100_SET_IGNORE_SGNAME`	`Use system based scratch pooling`
		`...1 ....`		`PL100_SET_NOTBYPASS_SAFRC8`
					`Do not bypass SAF return code 8`
		`.... 1...`		`PL100_SET_RETMET`	`Retention method assigned`
		`.... .1..`		`PL100_SET_COPYFROM`	`Tape Copyfrom requested`
		`.... ..1.`		`PL100_SET_VRSELEXCLUDE`	`VRSELEXCLUDE requested`
`38`	`(26)`	`UNSIGNED`	`1`	`PL100_RETENTIONMETHOD`	`Retention method`
`40`	`(28)`	`ADDRESS`	`4`	`PL100_JFCBPTR`	`Pointer to copy of JFCB`
`44`	`(2C)`	`CHARACTER`	`8`	`PL100_VRS`	`New VRS management value`
`52`	`(34)`	`CHARACTER`	`6`	`PL100_RACKNO`	`External volume serial number`
`52`	`(34)`	`CHARACTER`	`6`	`PL100_POOL`	`Scratch pool name`
`60`	`(3C)`	`ADDRESS`	`4`	`PL100_LABINFO`	`Address of label information block`
`Start of version 2 fields`
`64`	`(40)`	`CHARACTER`	`69`	`PL100_LAB_USERDATA`	`User data for label processing`
`136`	`(88)`	`ADDRESS`	`4`	`PL100_LABPTR`	`Address of prepared label`
`140`	`(8C)`	`CHARACTER`	`8`	`PL100_LOCATION`	`Target location name`
`148`	`(94)`	`BIT(8)`	`1`	`PL100_LOCTYPE`	`Target location type`
`152`	`(98)`	`CHARACTER`	`8`	`PL100_DDNAME`	`DD name`
`160`	`(A0)`	`CHARACTER`	`8`	`PL100_DISPDD`	`Disposition DD name`
`168`	`(A8)`	`CHARACTER`	`8`	`PL100_ACCODE`	`ACCODE parameter value or blank if no ACCODE or 'ACCODE=' is specified`
`176`	`(B0)`	`ADDRESS`	`4`	`PL100_ACEROPTR`	`Address of IGDACERO`
`Start of version 3 fields`
`192`	`(C0)`	`CHARACTER`	`44`	`PL100_COPYFROM_DSN`	`TAPE COPYFROM DSN`
`236`	`(EC)`	`CHARACTER`	`6`	`PL100_COPYFROM_VOLSER`	`TAPE COPYFROM DSN VOLSER`
`244`	`(F4)`	`UNSIGNED`	`4`	`PL100_COPYFROM_DSEQ`	`TAPE COPYFROM DSN SEQ#`
`248`	`(F8)`	`CHARACTER`	`8`	`PL100_COPYFROM_OWNER`	`TAPE COPYFROM OWNER (OPT)`
`288`	`(120)`	`CHARACTER`	`0`	`PL100_END`	`End of PL100`

    The following DSECT is passed to EDG_EXIT100 exit modules
    and will be addressed by PL100_LABINFO. The information is
    provided by DFSMSrmm to allow sticky label processing by
    EDG_EXIT100.

Table 2. Structure PL100_LABDS
`Offset`	`Offset`
`Dec`	`Hex`	`Type`	`Len`	`Name(Dim)`	`Description`
`0`	`(0)`	`STRUCTURE`	`137`	`PL100_LABDS`	`Label information block`
`0`	`(0)`	`CHARACTER`	`44`	`PL100_DSN`	`Data set name`
`44`	`(2C)`	`CHARACTER`	`1`	`PL100_LTYP`	`Label type`
		`.1.. ....`		`PL100_AL`	`ANSI label`
		`...1 ....`		`PL100_BLP`	`Bypass label processing`
		`.... 1...`		`PL100_UL`	`User label`
		`.... .1..`		`PL100_NSL`	`None standard label`
		`.... ..1.`		`PL100_SL`	`Standard label`
		`.... ...1`		`PL100_NL`	`No label`
`The following 2 date fields are copied from the JFCB and thus contain 'YYDDDD' in which the 'YY' is an offset from 1900 and 'DDDD' contain the Julian day of the year. Example: X'590008' represents January 8, 1989.`
`45`	`(2D)`	`CHARACTER`	`3`	`PL100_CRDT`	`Creation date YYDDDD`
`48`	`(30)`	`CHARACTER`	`3`	`PL100_XPDT`	`Expiration date YYDDDD`
`51`	`(33)`	`CHARACTER`	`1`	`PL100_OFLAG`	`Open flags`
		`1... ....`		`PL100_FOUT`	`Data set opened for output`
		`..1. ....`		`PL100_FEOV`	`Call for end of volume`
`52`	`(34)`	`CHARACTER`	`6`	`PL100_VOLSER`	`Volume serial number`
`58`	`(3A)`	`CHARACTER`	`8`	`PL100_JOBNAM`	`Job name`
`66`	`(42)`	`CHARACTER`	`8`	`PL100_STPNAM`	`Step name`
`74`	`(4A)`	`CHARACTER`	`8`	`PL100_SYSTEM`	`System ID`
`82`	`(52)`	`SIGNED`	`2`	`PL100_LRECL`	`Logical record length`
`84`	`(54)`	`SIGNED`	`2`	`PL100_BLKSI`	`Blocksize`
`86`	`(56)`	`CHARACTER`	`2`	`PL100_UNIT`	`Unit address (binary)`
`88`	`(58)`	`SIGNED`	`4`	`PL100_BLK#`	`Number of blocks written`
`92`	`(5C)`	`UNSIGNED`	`2`	`PL100_FSCT`	`Data set sequence count`
`94`	`(5E)`	`CHARACTER`	`1`	`PL100_RECFM`	`Record format`
		`11.. ....`		`PL100_UND`	`Undefined`
		`1... ....`		`PL100_FIX`	`Fixed`
		`.1.. ....`		`PL100_VAR`	`Variable`
		`..1. ....`		`PL100_RFO`	`Track overflow`
		`...1 ....`		`PL100_RFB`	`Blocked`
		`.... 1...`		`PL100_RFS`	`Standard/spanned record`
		`.... .1..`		`PL100_ASA`	`ASA control characters`
		`.... ..1.`		`PL100_MAC`	`Machine control characters`
`95`	`(5F)`	`CHARACTER`	`1`	`PL100_NVOL`	`Volume sequence number`
`96`	`(60)`	`CHARACTER`	`1`	`PL100_DEN`	`Tape density from JFCB`
`PL100_TDSI1/2 are no longer used - use PL100_TEPMTDS1/2/3/4 instead`
`97`	`(61)`	`BIT(8)`	`1`	`PL100_TDSI1_OLD`	`TDSI byte 1`
`98`	`(62)`	`CHARACTER`	`1`	`PL100_TDSI2_OLD`	`TDSI byte 2`
`Start of VERSION 2 fields`
`99`	`(63)`	`CHARACTER`	`8`	`PL100_MEDIANAME`	`Volume media name`
`107`	`(6B)`	`CHARACTER`	`4`	`PL100_CRDATE`	`Data set creation date as packed decimal YYYYDDD`
`111`	`(6F)`	`CHARACTER`	`4`	`PL100_CRTIME`	`Data set creation time as packed decimal HHMMSST`
`115`	`(73)`	`CHARACTER`	`4`	`PL100_XPDATE`	`Data set expiration date as packed decimal YYYYDDD`
`119`	`(77)`	`CHARACTER`	`6`	`PL100_PREVOL`	`Previous volume in sequence`
`125`	`(7D)`	`CHARACTER`	`8`	`PL100_CRJOB`	`Creating job name`
`133`	`(85)`	`CHARACTER`	`4`	`PL100_TEPMTDSI`	`TDSI from IFGTEP work area`
`133`	`(85)`	`CHARACTER`	`1`	`PL100_TEPMTDS1`	`Recording technology`
`134`	`(86)`	`CHARACTER`	`1`	`PL100_TEPMTDS2`	`Media type`
`135`	`(87)`	`CHARACTER`	`1`	`PL100_TEPMTDS3`	`Compaction`
`136`	`(88)`	`CHARACTER`	`1`	`PL100_TEPMTDS4`	`Special attributes`

Table 3. Constants for PL100
`Len`	`Type`	`Value`	`Name`	`Description`
`Constants used to initialize the PL100 header section`
`8`	`CHARACTER`	`EDGPL100`	`PL100_IDENTV`	`Control block ID`
`1`	`DECIMAL`	`3`	`PL100_VER#`	`Version number`
`1`	`DECIMAL`	`0`	`PL100_REV#`	`Revision number`
`1`	`DECIMAL`	`0`	`PL100_SP#`	`Subpool number`
`2`	`DECIMAL`	`288`	`PL100_LEN#`	`Control block length`
`Constants to compaction and read compatibility for 4 byte TDSI`
`1`	`DECIMAL`	`1`	`PL100_TEPM_NOCMP`	`Compaction not used`
`1`	`DECIMAL`	`2`	`PL100_TEPM_BIDRC`	`Compaction yes (IDRC)`
`1`	`DECIMAL`	`1`	`PL100_TEPM_RDCOM`	`Read compatibility`
`Constants to define location type`
`1`	`HEX`	`00`	`PL100_LOC_LOAN`	`Loan location`
`1`	`HEX`	`01`	`PL100_LOC_STORE`	`Storage location`
`1`	`HEX`	`02`	`PL100_LOC_LIBRARY`	`Library`
`Constants to define retention method`
`1`	`DECIMAL`	`0`	`PL100_RM_VRSEL`
`1`	`DECIMAL`	`1`	`PL100_RM_EXPDT`

Table 4. Cross Reference for PL100
`Name`	`Offset`	`Hex Tag`	`Level`
`PL100`	`0`		`1`
`PL100_ACCODE`	`A8`		`2`
`PL100_ACEROPTR`	`B0`		`2`
`PL100_AL`	`2C`	`40`	`3`
`PL100_ASA`	`5E`	`04`	`3`
`PL100_BLK#`	`58`		`2`
`PL100_BLKSI`	`54`		`2`
`PL100_BLP`	`2C`	`10`	`3`
`PL100_CAN_COPYFROM`	`10`	`08`	`3`
`PL100_CAN_IGNORE`	`10`	`80`	`3`
`PL100_CAN_IGNORE_FILE2_TON`	`10`	`10`	`3`
`PL100_CAN_POOL`	`10`	`04`	`3`
`PL100_CAN_RACKNO`	`10`	`20`	`3`
`PL100_CAN_RETMET`	`10`	`01`	`3`
`PL100_CAN_VRS`	`10`	`40`	`3`
`PL100_CAN_VRSELEXCLUDE`	`12`	`80`	`3`
`PL100_COPYFROM_DSEQ`	`F4`		`2`
`PL100_COPYFROM_DSN`	`C0`		`2`
`PL100_COPYFROM_OWNER`	`F8`		`2`
`PL100_COPYFROM_VOLSER`	`EC`		`2`
`PL100_CRDATE`	`6B`		`2`
`PL100_CRDT`	`2D`		`2`
`PL100_CRJOB`	`7D`		`2`
`PL100_CRTIME`	`6F`		`2`
`PL100_DDNAME`	`98`		`2`
`PL100_DEN`	`60`		`2`
`PL100_DISPDD`	`A0`		`2`
`PL100_DSN`	`0`		`2`
`PL100_END`	`120`		`2`
`PL100_FEOV`	`33`	`20`	`3`
`PL100_FIX`	`5E`	`80`	`4`
`PL100_FOUT`	`33`	`80`	`3`
`PL100_FSCT`	`5C`		`2`
`PL100_FUNCTION`	`24`		`2`
`PL100_FUNCTION2`	`25`		`2`
`PL100_HDR`	`0`		`2`
`PL100_IDENT`	`0`		`3`
`PL100_INFO`	`11`		`2`
`PL100_INFO_CMOVE`	`11`	`10`	`3`
`PL100_INFO_DISPDD`	`11`	`20`	`3`
`PL100_INFO_DISPLAB`	`11`	`02`	`3`
`PL100_INFO_IGNORE`	`11`	`80`	`3`
`PL100_INFO_IGNORE_REQUEST_BYRULE`	`11`	`01`	`3`
`PL100_INFO_MTL`	`11`	`04`	`3`
`PL100_INFO_NOTRMM`	`11`	`40`	`3`
`PL100_INFO_USERDATA`	`11`	`08`	`3`
`PL100_ITS_CLOSE`	`10`	`02`	`3`
`PL100_JFCBPTR`	`28`		`2`
`PL100_JOBNAM`	`3A`		`2`
`PL100_LAB_USERDATA`	`40`		`2`
`PL100_LABDS`	`0`		`1`
`PL100_LABINFO`	`3C`		`2`
`PL100_LABPTR`	`88`		`2`
`PL100_LENGTH`	`C`		`3`
`PL100_LOCATION`	`8C`		`2`
`PL100_LOCTYPE`	`94`		`2`
`PL100_LRECL`	`52`		`2`
`PL100_LTYP`	`2C`		`2`
`PL100_MAC`	`5E`	`02`	`3`
`PL100_MEDIANAME`	`63`		`2`
`PL100_MOUNT_VOLSER`	`1A`		`2`
`PL100_NL`	`2C`	`01`	`3`
`PL100_NSL`	`2C`	`04`	`3`
`PL100_NVOL`	`5F`		`2`
`PL100_OFLAG`	`33`		`2`
`PL100_POOL`	`34`		`3`
`PL100_PREVOL`	`77`		`2`
`PL100_RACKNO`	`34`		`2`
`PL100_RECFM`	`5E`		`2`
`PL100_REQ_VOLSER`	`14`		`2`
`PL100_RETENTIONMETHOD`	`26`		`2`
`PL100_REVNO`	`9`		`3`
`PL100_RFB`	`5E`	`10`	`3`
`PL100_RFO`	`5E`	`20`	`3`
`PL100_RFS`	`5E`	`08`	`3`
`PL100_SET_ACLOFF`	`24`	`01`	`3`
`PL100_SET_CMOVE`	`25`	`80`	`3`
`PL100_SET_COPYFROM`	`25`	`04`	`3`
`PL100_SET_IGNORE`	`24`	`80`	`3`
`PL100_SET_IGNORE_FILE2_TON`	`24`	`10`	`3`
`PL100_SET_IGNORE_MOUNTED`	`24`	`40`	`3`
`PL100_SET_IGNORE_REQUESTED`	`24`	`20`	`3`
`PL100_SET_IGNORE_SGNAME`	`25`	`20`	`3`
`PL100_SET_NOCMOVE`	`25`	`40`	`3`
`PL100_SET_NOLABEL`	`24`	`08`	`3`
`PL100_SET_NOTBYPASS_SAFRC8`	`25`	`10`	`3`
`PL100_SET_POOL`	`24`	`04`	`3`
`PL100_SET_RETMET`	`25`	`08`	`3`
`PL100_SET_VRSELEXCLUDE`	`25`	`02`	`3`
`PL100_SL`	`2C`	`02`	`3`
`PL100_STPNAM`	`42`		`2`
`PL100_SUBPOOL`	`A`		`3`
`PL100_SYSTEM`	`4A`		`2`
`PL100_TDSI1_OLD`	`61`		`2`
`PL100_TDSI2_OLD`	`62`		`2`
`PL100_TEPMTDSI`	`85`		`2`
`PL100_TEPMTDS1`	`85`		`3`
`PL100_TEPMTDS2`	`86`		`3`
`PL100_TEPMTDS3`	`87`		`3`
`PL100_TEPMTDS4`	`88`		`3`
`PL100_UL`	`2C`	`08`	`3`
`PL100_UND`	`5E`	`C0`	`3`
`PL100_UNIT`	`56`		`2`
`PL100_VALID`	`10`		`2`
`PL100_VALID2`	`12`		`2`
`PL100_VAR`	`5E`	`40`	`4`
`PL100_VERNO`	`8`		`3`
`PL100_VOLSER`	`34`		`2`
`PL100_VRS`	`2C`		`2`
`PL100_WTOPTR`	`20`		`2`
`PL100_XPDATE`	`73`		`2`
`PL100_XPDT`	`30`		`2`