LABEL macro - is type 3, gets no lock.
Calls module IGC0003I.
APF protected. GTF data is:
- R15 and R0
- No applicable data.
- R1
- Address of the parameter list. This parameter list must be in
24-bit addressable storage.
- PLIST
- 68 bytes long, format is:
- Bytes
- Contents
- 0-2
- C00004 REWIND option.
- C00000 UNLOAD option.
- 3
- Relative UCB in the TIOT to use for mounting purposes. XTIOT is supported by setting SPLUCLST bit and passing
address of the UCB list in SPLDDPTR.
- 4-7
- Address of the 8-byte ddname for the DD card that allocates the
device or address of the UCB list in the XTIOT when
SPLUCLST is set.
- 8-11
- Address of the volume label set.
- 12-13
- Length of one volume label.
- 14
- Number of labels in the volume label set.
- 15
- Command byte of the control CCW.
- 16-19
- Address of the first 10 bytes of the volume header label.
- 20-22
- Flags bytes for communicating with the calling program.
- Bytes
- Contents
- 20
- First flags byte - Bits as follows:
- 1... ....
- LACS message issued during SVC.
- .1.. ....
- Extended PLIST passed in.
- ..1. ....
- SERVO INIT without permission.
- ...1 ....
- Do not do SERVO INIT.
- .... 1...
- Cannot SERVO INIT.
- .... .1..
- RACHECK authorization failure.
- .... ..1.
- ANSI access passed in.
- .... ...1
- SPLUCLST is set for XTIOT support - UCB list passed in SPLDDPTR.
- 21
- Second flags byte - Bits as follows:
- 1... ....
- Second load of SVC 39 not available.
- .1.. ....
- ANSI label requested.
- ..1. ....
- Do not read mounted volume label ('READLBL=NO' specified).
- ...1 ....
- NUMBTAPE specified in INITT statement.
- .... xxxx
- Reserved.
- 22
- Third flags byte - Reserved.
- 23
- Requested ANSI access code.
- 24
- LACS error return code.
- 25-26
- LACS error reason code.
- 27-34
- LACS function at point of failure.
- 35
- RACHECK error return code.
- 36-37
- RACHECK error reason code.
- 38
- RACF® SAF error return code.
- 39
- Dynamic exit service error return code.
- 40-41
- Dynamic exit service error reason code.
- 42-43
- Return code of the last exit routine that failed.
- 44-45
- Reason code of the last exit routine that failed.
- 46-47
- Unused.
- 48-51
- Return code from RMM EDGXCI API call.
- 52-55
- Reason code from RMM EDGXCI API call.
- 56-59
- Flags bytes for communication between IGC0003I and IGC0103I
- 60-63
- Flags bytes for passing the results of processing to the post
exit.
- 64-67
- Flags bytes for reasons why the request failed.