General
Application area: | Multiprocessor systems; see "Multiprocessor systems" |
Macro type: | Type S, MF format 2: standard/E/L/C/D/M form; see "S-type macros" |
Each pubset contains a file catalog TSOSCAT which can be uniquely identified by means of its catalog ID. Furthermore, each TSOSCAT (and thus each pubset) is uniquely assigned to one system (BS2000 native or VM2000 guest system).
The TSOSCAT of each home pubset contains the pubset's entry from the MRSCAT, a catalog of all pubsets existing in the computer network. Each pubset can contain a complete MRSCAT. An entry in the MRSCAT includes
the catalog ID of a TSOSCAT;
the BCAM name of the system to which this TSOSCAT is assigned;
the device type of the corresponding pubset;
status information relating to the pubset.
pubset-specific operands (EAM, cache, allocator,...)
Macro description
The STAMCE macro outputs an extract from one selected entry, or all entries, of the
MRS catalog (MRSCAT) to an output area that is either defined by the user or created by the macro. The extracts provide information about to the pubsets initialized in the computer network, relating to:
device information (catalog ID, device type code, system's BCAM name if the pubset is managed by a remote system, etc.)
status (home pubset, local pubset, pubset not accessible, etc.)
pubset usage (paging, data access, ...)
attributes (EAM operand, cache configuration, etc.)
System administration or operator only:number, TSNs and user IDs of all jobs occupying the pubset (either as opened files or through reservation requests (SECURE locks), number and location of the CMS buffers as per default and current setting, etc.)
Individual entries are identified via the catalog ID of the pubset. Output is restricted to entries in the MRSCAT on the home pubset.
Notes
Both the operand list and the output area have had their layout adapted to the functional enhancements of the individual BS2000 versions. For the sake of compatibility it is also possible to generate the layouts of older versions, using the STAMCE macro (VERSION operand).
If MF=M, the following restriction applies:If the CATID or AREA operand is specified, register R15 may not be used as the base register for the parameter list or for the fields defined via these operands.
Macro format and description of operands
STAMCE |
CATID= [,AREA=addr / (r)] [,LENGTH=length] ,REF=NO / YES / ALL [,HOST=*LOCAL / '*LOCAL' / *ALL / '*ALL' / 'bcam-name' / addr] ,SELECT=ALL / ACCESSIBLE / DEF_XCS_CONF / EXCLUSIVE / HSMS_SUPPORTED / INACCESSIBLE / LOCAL / LOCAL_ACCESSIBLE / MASTER_CHANGE_ERROR / PAGING / QUIET / REMOTE / REMOTE_ACCESSIBLE / SCA / SHARED / SINGLE_FEATURE / SYSTEM_MANAGED / UNUSED_VOLSETS / VOLUME_SETS / XCS_CONFIGURATED [,PUBSET=*ALL / 'catid' / addr] [,XPAND=PL / *ALL / MCE / OCC] [,VERSION=5 / 3] ,MF=S / E / L / C / D / M [,PARAM=addr / (r)] ,PREFIX=D / p [,MACID=macid] |
The operands are described below in alphabetical order.
AREA=
Specifies the address of an output area in which STAMCE transfers the requested
MRSCAT entries. If the operand is not specified, STAMCE requests class 6 memory for the output (in units of 4096-byte main memory pages) and supplies the DMCEAREA and DMCEARLN fields of the operand list with the address and length (in bytes) of this output area. The caller is responsible for returning the memory area requested by the macro (RELM macro). The caller is responsible for returning the memory area requested by the macro (RELM macro).
addr
Symbolic address (name) of a field which accepts the requested MRSCAT entries. The field is aligned on a word boundary.
(r)
Register containing the address value “addr”. May be specified only in conjunction with MF=M.
CATID=
Defines the catalog IDs of the pubsets whose MRSCAT entries are to be output.
''BLANK''
A blank enclosed in single quotes is the default setting.
The SELECT operand can be used to provide a narrower selection of MRSCAT entries to be output.
'catid'
Either an explicitly specified catalog ID or a wildcard expression for selecting catalog IDs. The specified character string should always be enclosed in apostrophes.
The following rules apply to the “catid” format, depending on whether the catalog ID is specified explicitly or as a wildcard expression:
Catalog ID specified explicitly:
catid is either a string one to four characters long, comprising the letters A,...,Z and the digits 0,...,9 with the strings PUB and PUBx (x = any character) being excluded
or the character # (for the home pubset).
Catalog ID specified as a wildcard expression:
catid is a string one to four characters long, which may contain the following wildcard characters in addition to letters and digits:
* Wildcard for any (also empty) string
/ Wildcard for a single character
<s1> | Wildcard for the string s1 specified in parentheses (maximum two |
Negation symbol for the subsequent entries (only permissible as the first character in the expression).
The SELECT operand may be used to provide a narrower selection of the MRSCAT entries to be output.
addr
Symbolic address (name) of a field which contains either an explicitly specified catalog ID or a wildcard expression for selecting catalog IDs. In either case, the caller must enter this information in the appropriate format:
Catalog ID specified explicitly:
One of the following entries is to be placed in the field:
a string in the form
[:]catid[' ' / :]where catid is a string one to four characters long, comprising the letters A,...,Z and the digits 0,...,9 with the strings PUB and PUBx (where x = any character) being excluded. If catid is less than four characters it must be delimited on the right (as shown above) by a blank (' '; X'40') or by a colon (:). This delimiter may be omitted if the catalog ID is four characters long.the character # (for the home pubset)Catalog ID specified as wildcard expression:A string in the following format is to be placed in the field:
[:]catid[' ' / :]where catid is a wildcard expression which, including the right delimiter if present, may be up to 256 characters long and may contain the following wildcard characters in addition to letters and digits:*
Wildcard for any (also empty) string
/
Wildcard for a single character
<s1:s2>
Wildcard for a string which lies between s1 and s2 in the
lexicographical order<s1,...>
Wildcard for one of the strings enclosed in parentheses
-
Negation symbol for the subsequent entries (only permissible as the
first character of the expression).If the wildcard expression is less than 256 characters it must be delimited on the right, as shown above, by a blank (
' '; X'40') or by a colon (:). The delimiter may only be omitted in expressions with 256 characters.The SELECT operand may be used to provide a narrower selection of the MRSCAT entries to be output.
(r)
Register containing the address value “addr”.
May be specified only in conjunction with MF=M.
Note
If MF=M and the CATID or AREA operand is specified, register R15 may not be used as a base register for the parameter list or for the fields defined via these operands.
HOST=
From amongst the systems having common access rights to a pubset, specifies the system about whose tasks the information requested with REF=ALL is to be output.
The operand is effective only if specified in conjunction with REF=ALL, otherwise it is ignored.
*LOCAL
'*LOCAL'
The information requested with REF=ALL is output for local tasks occupying the pubset.
*ALL
'*ALL'
If the pubset specified in the CATID operand is shareable and the local system is the master of the pubset, the information requested with REF=ALL is output for all (local and remote) tasks occupying this pubset; otherwise, information is output only for local tasks.
'bcamname'
BCAM name of the local system or (if the local system is the master of the pubset) name of a slave system.
addr
Symbolic address (name) of a field containing one of the values '*LOCAL', '*ALL' or 'bcamname'.
LENGTH=length
Specifies the length of the output area for the requested MRSCAT entries.
The implicit length of a field specified with the AREA operand is not assumed as the length of the output area even if the LENGTH operand is not specified.
With MF=S, LENGTH may only be specified in conjunction with AREA.
length
Length (in bytes) of the field with the address “addr2”.
The minimum length of the output area depends on the number of requested MRSCAT entries and the scope of the information specified in the REF operand. The following values apply:
An individual MRSCAT entry is requested:
When REF=NO or REF=YES the output area must be at least as long as the MRSCAT entry to be output. The layout of this entry is illustrated as a DSECT following the return codes.
When REF=ALL the minimum length lAREA of the output area is determined by the following formula:
lAREA = lMCE + nOCC * lOCC + 1
Where:
lAREA | Minimum length of the output area (in bytes) |
lMCE | Length of the MRSCAT entry to be output (for layout see DSECT |
nOCC | Number of occupation entries for the pubset to which the MRSCAT |
lOCC | Length of an occupation entry (for layout see DSECT following |
Several entries are requested:
The following formula applies for the minimum length lAREA of the output area:
lAREA = nMCE * lMCE + 4
Where:
lAREA | Minimum length of the output area (in bytes) |
nMCE | Number of MRSCAT entries to be output |
lMCE | Length of the MRSCAT entry to be output (for layout see DSECT |
MF=
For a general description of the MF operand, its operand values and any subsequent operands (e.g. PREFIX, MACID and PARAM), see section “S-type macros”. The valid MF values are given at the start of the macro description under “Macro type” and are included in the macro format.
A PREFIX can be specified in the C form, D form or M form of the macro and additionally a MACID in the C form or M form (see section “S-type macros”).
Default values:MACID = MCE if XPAND=PLMACID = MCF if XPAND=MCEMACID = MCH if XPAND=OCC
PUBSET=
May only be specified in conjunction with SELECT=VOLUME_SETS .Specifies the catid of the SM pubset whose volume set is returned.
*ALL
The volume sets of all SM pubsets are returned.
'catid'
Catid of the SM pubsets for whose volume sets information is is to be returned.
addr
Symbolic address (name) of a field containing the catalog id of the SM pubset for whose volume sets information is to be returned.
REF=
Determines whether further information about the specified pubsets is to be output in addition to the MRSCAT entries (in other words in addition to the information which the /SHOW-MASTER-CATALOG-ENTRY command supplies).
NO
Default setting: no further information is to be output.
YES
In addition to the MRSCAT entry, the pubset parameters are also output (see the SHOW-PUBSET-PARAMETERS command). Only the occupying tasks are missing; these are only output when REF=ALL.
This entry is interpreted for macro calls only under the system administration ID (TSOS); it is ignored for all other users.
ALL
In addition to the information described under REF=YES, the user IDs, the TSNs and the TIDs of the tasks occupying the pubset are output for a pubset, as well as the SYSIDs of the systems on which these tasks are running. The entries output are sorted for each system: firstly according to user ID, then according to TSN and finally according to TID.
REF=ALL is only permissible if the catalog ID of a pubset is specified explicitly in the CATID operand. When a wildcard expression or the (default) value ' ' is specified in the CATID operand, REF=ALL is converted internally into REF=YES.
This entry is interpreted for macro calls only under the system administration ID (TSOS); it is ignored for all other users.
SELECT=
When a wildcard expression or the (default) value ' ' (blank) is specified in the CATID operand, permits a narrower selection of the pubset thus specified.
ALL
Default setting: the requested information is output for all the pubsets specified in the CATID operand.
ACCESSIBLE
The requested information is output only for pubsets whose file catalog can be accessed.
DEF_XCS_CONF
The requested information is output only for pubsets defined as XCS pubset.
EXCLUSIVE
The requested information is output only for pubsets which are not imported as shared pubsets.
HSMS_SUPPORTED
The requested information is output only for SM pubsets to which the HSMS SUPPORTED attribute is applicable.
INACCESSIBLE
The requested information is output only for pubsets which are not imported.
LOCAL
The requested information is output only for pubsets which are imported locally.
LOCAL_ACCESSIBLE
The requested information is output only for pubsets which are imported locally and do not have quiet status.
MASTER_CHANGE_ERROR
The requested information is output only for shared pubsets in which a master change was terminated with errors.
PAGING
The requested information is output only for pubsets with paging areas which are used locally.
QUIET
The requested information is output only for pubsets which are in the quiet status.
REMOTE
The requested information is output only for pubsets where the LOCAL selection criterion is not applicable.
REMOTE_ACCESSIBLE
The requested information is output only for pubsets which are not imported locally, but whose catalog can still be accessed because an MSCF connection to a remote system which has imported the pubset locally currently exists.
SCA
The requested information is output only for pubsets for which the local system handles the catalog accesses via SCA.
SCA = Speed Catalog Access. This replaces sequential access to the TSOSCAT with indexed sequential (direct) file access.
SHARED
The requested information is output only for pubsets which are imported as shared pubsets.
SINGLE_FEATURE
The requested information is output only for SF pubsets.
SYSTEM_MANAGED
The requested information is output only for SM pubsets.
UNUSED_VOLSETS
The requested information is output only for volume sets which are in the DEFINED ONLY status.
VOLUME_SETS
The requested information is output only for volume sets.
The selection of volume set entries to be output can be narrowed with the PUBSET operand.
XCS_CONFIGURATED
The requested information is output only for pubsets which are used as an XCS pubset.
VERSION=
Specifies for which BS2000 version the layout is to be created and information output.
If the VERSION operand is not specified, layout and information for BS2000 Version V10.0 are created or output.
5
Layout and information are created or output for BS2000/OSD-BC as of V3.0.
3
Layout and information for Versions BS2000/OSD-BC V1.0 and V2.0 are created or output.
XPAND=
Only interpreted in conjunction with MF=C or MF=D and determines for which data area a CSECT or DSECT is to be generated.
PL
A CSECT/DSECT is generated for the parameter area. This is the default setting when MF=C.
*ALL
CSECTs/DSECTs are generated for the parameter area and the output area with the occupation entry. This is the default setting when MF=D.
MCE
A CSECT/DSECT is generated for an MRSCAT entry.
OCC
A CSECT/DSECT is generated for the additional occupation information output with REF=ALL.
Return information and error flags
Standard header:
+---------------+ | | | | | |c|c|b|b|a|a|a|a| +---------------+
A return code relating to the execution of the STAMCE macro is transferred in the standard header:
(cc= Subcode2, bb=Subcode1, aaaa=Maincode)
Subcode2 (X'cc') is not shown in the table below. It may assume the values X'00' and X'01'. They have the following meanings:
X'00': | Error in local system |
X'01': | Only for REF=ALL: error in remote system |
X'bb' | X'aaaa' | Meaning |
X'00' | X'0000' | Function executed successfully; no error. |
X'20' | X'0310' | System error: error during privilege check. |
X'01' | X'0311' | Operand error:
|
X'40' | X'0312' | MRSCAT entry being sought not found:
|
X'20' | X'0313' | Error with REQM/RELM: memory space for the output could not be requested/ |
X'40' | X'0313' | Error with REQM/RELM: insufficient class 6 memory available |
X'01' | X'0314' | Catalog ID / wildcard expression invalid: |
X'40' | X'0316' | Output area too small: the output area specified by the user is too small to accept |
X'40' | X'0317' | System error: conflict with MRSCAT lock |
X'20' | X'0318' | System error: synchronization error |
X'40' | X'031A' | MRSCAT not yet initialized: |
X'20' | X'031B' | Transmission error, occurs only with REF=ALL: |
X'01' | X'031C' | Invalid BCAM name, occurs only with REF=ALL:
|
X'01' | X'031F' | Incorrect SELECT operand in the operand list: |
X'01' | X'FFFF' | Interface error: incorrect unit or function code |
X'03' | X'FFFF' | Interface error: incorrect version number |
The following values may be returned as additional return codes in the rightmost two bytes of register 15:
X'04A4': | An attempt was made to execute a STAMCE of a version < V9.5 and an invalid |
X'04A0': | As above; in addition, the JV (“Job Variables”) subsystem is not available. |
Other return codes which, in accordance with conventions, apply to all macros are given in table “Standard return codes” (Standard header).
The calling program is terminated when the following errors occur:
The data area is not assigned to the caller.
The data area is not aligned on a word boundary.
The data area is protected against write access.
DSECT for the operand list of the macro (XPAND=PL)
STAMCE MF=D,PREFIX=D,XPAND=PL,VERSION=5 1 #INTF REFTYPE=REQUEST, C 1 INTNAME=STAM, C 1 INTCOMP=5 1 MFCHK MF=D, C 1 SUPPORT=(C,D,E,L,M,S), C 1 PREFIX=D, C 1 MACID=MCE, C 1 DMACID=MCE, C 1 DNAME=MCEPL, C 1 PARAM=, C 1 SVC=33, C 1 ALIGN=F 2 DMCEPL DSECT , 2 *,##### PREFIX=D, MACID=MCE ##### 1 STAMLY MF=D, C 1 PREFIX=D, C 1 MACID=MCE, C 1 PARAM=, C 1 VERSION=5, C 1 XPAND=PL, C 1 FUNCT=1, C 1 CG27=DMCE, C 1 CATID=, C 1 AREA=, C 1 LENGTH=, C 1 REF=, C 1 HOST=, C 1 SELECT=, C 1 PUBSET= 2 #INTF REFTYPE=REQUEST, C 2 INTNAME=STAMLY, C 2 INTCOMP=5 2 ******************** 2 * parameter list * 2 ******************** 2 DMCEFHDR FHDR MF=(C,DMCE),EQUATES=NO standard header 3 DMCEFHDR DS 0A 3 DMCEFHE DS 0XL8 0 GENERAL PARAMETER AREA HEADER 3 * 3 DMCEIFID DS 0A 0 INTERFACE IDENTIFIER 3 DMCEFCTU DS AL2 0 FUNCTION UNIT NUMBER 3 * BIT 15 HEADER FLAG BIT, 3 * MUST BE RESET UNTIL FURTHER NOTICE 3 * BIT 14-12 UNUSED, MUST BE RESET 3 * BIT 11-0 REAL FUNCTION UNIT NUMBER
3 DMCEFCT DS AL1 2 FUNCTION NUMBER 3 DMCEFCTV DS AL1 3 FUNCTION INTERFACE VERSION NUMBER 3 * 3 DMCERET DS 0A 4 GENERAL RETURN CODE 3 DMCESRET DS 0AL2 4 SUB RETURN CODE 3 DMCESR2 DS AL1 4 SUB RETURN CODE 2 3 DMCESR1 DS AL1 5 SUB RETURN CODE 1 3 DMCEMRET DS 0AL2 6 MAIN RETURN CODE 3 DMCEMR2 DS AL1 6 MAIN RETURN CODE 2 3 DMCEMR1 DS AL1 7 MAIN RETURN CODE 1 3 DMCEFHL EQU 8 8 GENERAL OPERAND LIST HEADER LENGTH 3 * 2 DMCEAREA DS A area address 2 DMCECTAD DS A catid address 2 DMCECTID DS CL4 catid 2 DMCEARLN DS F area length 2 DMCERESA DS A reserved (mf=m buffer) 2 DMCEHOST DS CL8 bcam name of the host 2 DMCESLCT DS C SELECT value 2 DMCEFLAG DS X flags 2 DMCESMPU DS CL4 id of sm pubset 2 DMCEUNUS DS XL6 unused 2 DMCE# EQU *-DMCEFHDR length parameter list 2 * 2 * return codes 2 * 2 DMCEOK EQU X'0000' NO_ERROR 2 DMCESRPM EQU X'0310' SRPM_ERROR 2 DMCEOPER EQU X'0311' OPERAND_ERROR_IN_STAM 2 DMCENFND EQU X'0312' MCE_CANNOT_BE_FOUND 2 DMCERQRL EQU X'0313' REQM_RELM_ERROR 2 DMCEICOW EQU X'0314' INVALID_CATID_OR_WILDCARD 2 DMCEATS EQU X'0316' AREA_TOO_SMALL 2 DMCELCKC EQU X'0317' MRSCAT_LOCK_CONFLICT 2 DMCESYER EQU X'0318' SYNCHRONIZATION_ERROR 2 DMCENINI EQU X'031A' MRSCAT_NOT_INITIALIZED 2 DMCETRER EQU X'031B' TRANSMISSION_ERROR 2 DMCEHOIN EQU X'031C' INVALID_HOST_NAME 2 DMCEPAER EQU X'031F' MRS_PARAM_ERROR 2 * 2 * subcode 2 2 * 2 DMCESC2L EQU X'00' LOCAL_ERROR 2 DMCESC2R EQU X'01' REMOTE_ERROR 2 * 2 * last catid 2 * 2 DMCELAST EQU X'40404040'
2 * 2 * last occupation 2 * 2 DMCELOCC EQU X'00' 2 * 2 * SELECT values 2 * 2 DMCEALL EQU 0 all the pubsets 2 DMCEPAGI EQU 1 paging pubsets 2 DMCELOCA EQU 2 local pubsets 2 DMCEREMO EQU 3 remote pubsets 2 DMCEACCE EQU 4 pubsets accessible 2 DMCELOAC EQU 5 pubsets local and accessible 2 DMCESHAR EQU 6 shared pubsets 2 DMCEEXCL EQU 7 exclusive pubsets 2 DMCEREAC EQU 8 pubsets remote and accessible 2 DMCESCA EQU 9 local and accessible pubsets which 2 * are connected to SPEEDCAT 2 DMCEXCS EQU 10 XCS configurated pubsets 2 DMCEHSMS EQU 11 all HSMS supported sm pubsets 2 DMCESF EQU 12 all single feature pubsets 2 DMCESM EQU 13 all system managed pubsets 2 DMCEVOL EQU 14 all volume sets of a sm pubset 2 DMCEDEF EQU 15 volume sets of sm pubsets which are 2 * defined but not in use 2 DMCEMCHE EQU 16 pubsets where an error occured during 2 * master change processing 2 DMCEINAC EQU 17 pubsets which are inaccessible 2 DMCEDXCS EQU 18 defined XCS configurated 2 DMCEQUIT EQU 19 pubset in quiet status 2 * 2 * flags 2 * 2 DMCEMPVS EQU X'80' set: MPVS mode 2 DMCEREF EQU X'40' set: REF = YES 2 DMCERALL EQU X'20' set: REF = ALL
DSECT for the output area of the macro (XPAND=MCE)
STAMCE MF=D,PREFIX=D,XPAND=MCE,VERSION=5 1 #INTF REFTYPE=REQUEST, C 1 INTNAME=STAM, C 1 INTCOMP=5 1 MFCHK MF=D, C 1 SUPPORT=(C,D,E,L,M,S), C 1 PREFIX=D, C 1 MACID=MCF, C 1 DMACID=MCF, C 1 DNAME=MCFMCE, C 1 PARAM=, C 1 SVC=33, C 1 ALIGN=F 2 DMCFMCE DSECT , 2 *,##### PREFIX=D, MACID=MCF ##### 1 STAMLY MF=D, C 1 PREFIX=D, C 1 MACID=MCF, C 1 PARAM=, C 1 VERSION=5, C 1 XPAND=MCE, C 1 FUNCT=1, C 1 CG27=DMCF, C 1 CATID=, C 1 AREA=, C 1 LENGTH=, C 1 REF=, C 1 HOST=, C 1 SELECT=, C 1 PUBSET= 2 #INTF REFTYPE=REQUEST, C 2 INTNAME=STAMLY, C 2 INTCOMP=5 2 DMCFMST DS 0D 2 MCEDSK VERSION=5,CG27=DMCF 3 #INTF REFTYPE=REQUEST, C 3 INTNAME=MCEDSK, C 3 INTCOMP=5 3 ******************************* 3 * header of all entry types * 3 ******************************* 3 DS 0D DW alignement 3 DMCFSHDR DS 0XL8 header 3 DMCFSCTD DS CL4 catid 3 * 3 DMCFSENT DS X entry type set
3 DMCFSSF EQU 0 single feature pubset 3 DMCFSSM EQU 1 system managed pubset 3 DMCFSVOL EQU 2 volume set 3 * 3 DS XL3 unused 3 ********************************************* 3 * starting point of the static entry part * 3 ********************************************* 3 DMCFSDSC DS 0D starting point of static part 3 ************************************************** 3 * static part of a single feature pubset entry * 3 ************************************************** 3 DMCFSBCA DS CL8 BCAM name for RFA 3 DMCFSDEM DS 0XL2 device mnemonic 3 DMCFSDEV DS XL1 device code 3 DMCFSDEF DS XL1 device filler 3 DMCFSBNU DS XL2 static number of CMS buffer 3 DMCFSBWT DS F batch wait time 3 DMCFSDWT DS F dialog wait time 3 * 3 * static pubset status values (1) 3 * 3 DMCFSSTA DS X static status byte (1) 3 DMCFSAUT EQU X'80' set : autoquiet selected 3 DMCFSBDF EQU X'40' set : static buffer defined 3 DMCFSBCL EQU X'20' set : static buffer resident (cl.3) 3 * reset: static buffer non-res. (cl.4) 3 DMCFSSH EQU X'10' set : pubset shared (next import) 3 * reset: pubset exclusive (next import) 3 DMCFSAC EQU X'08' set : pubset with controlled use 3 DMCFSUVA EQU X'04' set : physical allocation by users allowed 3 DMCFSFIM EQU X'02' set : continue IMPORT if cache can't be 3 * connected 3 * reset: abort IMPORT if cache can't be 3 * connected 3 DMCFSXCS EQU X'01' set : XCS pubset at startup 3 * 3 DMCFSSPC DS X SPEEDCAT set 3 DMCFSNSP EQU 0 no automatic start 3 DMCFSSSP EQU 1 SPEEDCAT task 3 DMCFSUSP EQU 2 SPEEDCAT own task 3 DMCFSNSS EQU 4 no, non start SPEEDCAT 3 * 3 * static pubset status values (2) 3 * 3 DMCFSST2 DS X static status byte (2) 3 DMCFSRIM EQU X'80' set : remote import by command only 3 * reset: remote import by connection
3 DMCFSCCT EQU X'40' set : TSOSCAT is to be converted to V10 3 * format during next EXPORT 3 DS XL1 unused 3 DMCFSUID DS CL8 userid allowed to access pubset 3 * 3 * static cache values 3 * 3 DMCFSCBS DS F cache size 3 * 3 DMCFSCBY DS X byte for bit values 3 DMCFSCBU EQU X'80' set : cache size unit is KB 3 * reset: cache size unit is MB 3 DMCFSCST EQU X'40' set : size tolerance 3 * 3 DMCFSCM DS X cache medium set 3 DMCFSCNC EQU 0 no cache 3 DMCFSCDC EQU 1 controller 3 DMCFSCES EQU 2 expanded storage 3 DMCFSCGS EQU 3 global storage 3 DMCFSCMM EQU 4 main memory 3 * 3 DMCFSCSZ DS X segment size set 3 DMCFSC4 EQU 0 4 KB 3 DMCFSC8 EQU 1 8 KB 3 DMCFSC16 EQU 2 16 KB 3 DMCFSC32 EQU 3 32 KB 3 * 3 DMCFSCFS DS X file selection 3 DMCFSBUS EQU 0 by user 3 DMCFSALL EQU 1 all 3 DMCFSAUS EQU 2 autoselected 3 * 3 DMCFSGDS DS X GS data security set 3 DMCFSGNS EQU 0 no security 3 DMCFSGCO EQU 1 connect 3 * 3 DMCFSGU1 DS XL1 GS unit=1 or 2 3 DMCFSGU2 DS XL1 unused 3 * 3 DMCFSGDB DS X GS double recording by buffer set 3 DMCFSGST EQU 0 std 3 DMCFSGNY EQU 1 mono 3 DMCFSGNN EQU 2 any 3 DMCFSGYE EQU 3 yes 3 * 3 DMCFSGFO DS X force out set 3 DMCFSGNF EQU 0 no force out 3 DMCFSGLF EQU 1 at low filling
3 DMCFSGHF EQU 2 at high filling 3 * 3 DMCFSCFE DS X DC prefetch set 3 DMCFSCFN EQU 0 no prefetch 3 DMCFSCFL EQU 1 low 3 DMCFSCFH EQU 2 high 3 * 3 * static attach/detach pubset 3 * 3 DMCFSMN DS XL2 attach pubset with dev# 3 * 3 * static allocator values 3 * 3 DMCFSAL1 DS F residual space at sat level 1 3 DMCFSAL2 DS F residual space at sat level 2 3 DMCFSAL3 DS F residual space at sat level 3 3 DMCFSAL4 DS F residual space at sat level 4 3 DMCFSAL5 DS F residual space at sat level 5 3 DMCFSAPA DS F predet primary alloc amount 3 DMCFSASA DS F predet secondary alloc amount 3 DMCFSADL DS F sec alloc doubling limit 3 DMCFSAZP DS F residual space for ZIP startup 3 * 3 * static eam values 3 * 3 DMCFSEMA DS F maximal size of file SYSEAM 3 DMCFSEMI DS F minimal size of file SYSEAM 3 DMCFSESA DS F secondary allocation of file SYSEAM 3 DMCFSEMS DS F virtual memory size of file SYSEAM 3 * 3 DMCFS# EQU *-DMCFSBCA length of the static part of a single 3 * feature pubset entry 3 ORG DMCFSDSC starting point of static part 3 ************************************************** 3 * static part of a system managed pubset entry * 3 ************************************************** 3 DMCFHBCA DS CL8 BCAM name for RFA 3 DMCFHDEM DS 0XL2 device mnemonic of volres of ctl volset 3 DMCFHDEV DS XL1 device code 3 DMCFHDEF DS XL1 device filler 3 DMCFHBNU DS XL2 static number of CMS buffer 3 DMCFHBWT DS F batch wait time 3 DMCFHDWT DS F dialog wait time 3 * 3 * static pubset status values (1) 3 * 3 DMCFHSTA DS X static status byte (1) 3 DMCFHAUT EQU X'80' set : autoquiet selected
3 DMCFHBDF EQU X'40' set : static buffer defined 3 DMCFHBCL EQU X'20' set : static buffer resident (cl.3) 3 * reset: static buffer non-res. (cl.4) 3 DMCFHSH EQU X'10' set : pubset shared (next import) 3 * reset: pubset exclusive (next import) 3 DMCFHAC EQU X'08' set : pubset with controlled use 3 DMCFHHSM EQU X'04' set : pubset is HSMS supported 3 DMCFHFIM EQU X'02' set : continue IMPORT if cache can't be 3 * connected 3 * reset: abort IMPORT if cache can't be 3 * connected 3 DMCFHXCS EQU X'01' set : XCS pubset at startup 3 * 3 DS XL1 unused 3 * 3 * static pubset status values (2) 3 * 3 DMCFHST2 DS X static status byte (2) 3 DMCFHRIM EQU X'80' set : remote import by command only 3 * reset: remote import by connection 3 DS XL1 unused 3 DMCFHUID DS CL8 userid allowed to access pubset 3 * 3 * static cache values 3 * 3 DS XL4 unused 3 DMCFHCBY DS X byte for bit values 3 DMCFHCST EQU X'40' set : size tolerance 3 * 3 DMCFHVID DS CL4 catid of ctl volset 3 * 3 DMCFHDFF DS X default file format set 3 DMCFHDST EQU 0 std 3 DMCFHPAM EQU 1 pamkey format 3 DMCFHNK2 EQU 2 NK2 format 3 DMCFHNK4 EQU 3 NK4 format 3 * 3 DS XL4 unused 3 * 3 * static attach/detach pubset 3 * 3 DMCFHMN DS XL2 attach pubset with dev# 3 * 3 * static allocator values 3 * 3 DS XL20 unused 3 DMCFHAPA DS F predet primary alloc amount 3 DMCFHASA DS F predet secondary alloc amount
3 DMCFHADL DS F sec alloc doubling limit 3 DS XL4 unused 3 * 3 * static EAM values 3 * 3 DMCFHEMA DS F maximal size of file SYSEAM 3 DMCFHEMI DS F minimal size of file SYSEAM 3 DMCFHESA DS F secondary allocation of file SYSEAM 3 DMCFHEMS DS F virtual memory size of file SYSEAM 3 * 3 DMCFH# EQU *-DMCFHBCA length of the static part of a system 3 * managed pubset entry 3 ORG DMCFSDSC starting point of static part 3 *********************************** 3 * static part of a pubset entry * 3 *********************************** 3 DMCFFBCA DS CL8 BCAM name for RFA 3 DMCFFDEM DS 0XL2 device mnemonic 3 DMCFFDEV DS XL1 device code 3 DMCFFDEF DS XL1 device filler 3 DMCFFBNU DS XL2 static number of CMS buffer 3 DMCFFBWT DS F batch wait time 3 DMCFFDWT DS F dialog wait time 3 * 3 * static pubset status values (1) 3 * 3 DMCFFSTA DS X static status byte (1) 3 DMCFFAUT EQU X'80' set : autoquiet selected 3 DMCFFBDF EQU X'40' set : static buffer defined 3 DMCFFBCL EQU X'20' set : static buffer resident (cl.3) 3 * reset: static buffer non-res. (cl.4) 3 DMCFFSH EQU X'10' set : pubset shared (next import) 3 * reset: pubset exclusive (next import) 3 DMCFFAC EQU X'08' set : pubset with controlled use 3 DMCFFUVA EQU X'04' set : physical allocation by users allowed 3 DMCFFFIM EQU X'02' set : continue IMPORT if cache can't be 3 * connected 3 * reset: abort IMPORT if cache can't be 3 * connected 3 DMCFFXCS EQU X'01' set : XCS pubset at startup 3 DS XL1 unused 3 * 3 * static pubset status values (2) 3 * 3 DMCFFST2 DS X static status byte (2) 3 DMCFFRIM EQU X'80' set : remote import by command only 3 * reset: remote import by connection 3 DS XL1 unused
3 DMCFFUID DS CL8 userid allowed to access pubset 3 * 3 * static cache values 3 * 3 DS XL4 unused 3 DMCFFCBY DS X byte for bit values 3 DMCFFCST EQU X'40' set : size tolerance 3 * 3 DS XL9 unused 3 * 3 * static attach/detach pubset 3 * 3 DMCFFMN DS XL2 attach pubset with dev# 3 * 3 * static allocator values 3 * 3 DS XL20 unused 3 DMCFFAPA DS F predet primary alloc amount 3 DMCFFASA DS F predet secondary alloc amount 3 DMCFFADL DS F sec alloc doubling limit 3 DS XL4 unused 3 * 3 * static eam values 3 * 3 DMCFFEMA DS F maximal size of file SYSEAM 3 DMCFFEMI DS F minimal size of file SYSEAM 3 DMCFFESA DS F secondary allocation of file SYSEAM 3 DMCFFEMS DS F virtual memory size of file SYSEAM 3 * 3 DMCFF# EQU *-DMCFFBCA length of the static part of a pubset 3 * entry 3 ORG DMCFSDSC starting point of static part 3 *************************************** 3 * static part of a volume set entry * 3 *************************************** 3 DMCFBPID DS CL4 corresponding pubset id 3 DS XL4 unused 3 DMCFBDEM DS 0XL2 device mnemonic 3 DMCFBDEV DS XL1 device code 3 DMCFBDEF DS XL1 device filler 3 * 3 * static performance attributes 3 * 3 DMCFBVSU DS X volset usage set 3 DMCFBVST EQU 0 standard volset 3 DMCFBWRK EQU 1 work volset 3 DMCFBHSM EQU 2 HSMS controlled volset 3 *
3 DMCFBAVA DS X availability set 3 DMCFBAST EQU 0 standard availability 3 DMCFBHIG EQU 1 high availability 3 * 3 DMCFBPER DS X performance profile 3 DMCFBPST EQU X'80' standard performance 3 DMCFBHIH EQU X'40' high performance 3 DMCFBVHI EQU X'20' very high performance 3 * 3 DMCFBCRE DS X write consistency set 3 DMCFBBYC EQU 0 by close 3 DMCFBIMM EQU 1 immediate 3 * 3 DS XL1 unused 3 * 3 DMCFBNFA DS X new file allocation 3 DMCFBNNR EQU 0 not restricted 3 DMCFBNPO EQU 1 physical only 3 DMCFBNNA EQU 2 not allowed 3 * 3 DMCFBVAC DS X volset access 3 DMCFBVNR EQU 0 not restricted 3 DMCFBVAO EQU 1 administrator only 3 * 3 DMCFBVSS DS X volset status 3 DMCFBVSD EQU 0 normal use 3 DMCFBVDO EQU 1 defined only 3 DMCFBVIH EQU 2 in hold 3 DMCFBVDF EQU 3 defect 3 * 3 DS XL2 unused 3 * 3 * static volset status values 3 * 3 DMCFBSTA DS X static status byte 3 DMCFBCVS EQU X'04' set: volset is ctl volset of a sm pubset 3 DS XL11 unused 3 * 3 * static cache values 3 * 3 DMCFBCBS DS F cache size 3 * 3 DMCFBCBY DS X byte for bit values 3 DMCFBCBU EQU X'80' set : cache size unit is KB 3 * reset: cache size unit is MB 3 * 3 DMCFBCM DS X cache medium set 3 DMCFBCNC EQU 0 no cache
3 DMCFBCDC EQU 1 controller 3 DMCFBCES EQU 2 expanded storage 3 DMCFBCGS EQU 3 global storage 3 DMCFBCMM EQU 4 main memory 3 * 3 DMCFBCSZ DS X segment size set 3 DMCFBC4 EQU 0 4 KB 3 DMCFBC8 EQU 1 8 KB 3 DMCFBC16 EQU 2 16 KB 3 DMCFBC32 EQU 3 32 KB 3 * 3 DMCFBCFS DS X file selection 3 DMCFBBUS EQU 0 by user 3 DMCFBALL EQU 1 all 3 DMCFBAUS EQU 2 autoselected 3 * 3 DMCFBGDS DS X GS data security set 3 DMCFBGNS EQU 0 no security 3 DMCFBGCO EQU 1 connect 3 * 3 DMCFBGU1 DS XL1 GS unit=1 or 2 3 DMCFBGU2 DS XL1 unused 3 * 3 DMCFBGDB DS X GS double recording by buffer set 3 DMCFBGST EQU 0 standard 3 DMCFBGNY EQU 1 mono 3 DMCFBGNN EQU 2 any 3 DMCFBGYE EQU 3 dual 3 * 3 DMCFBGFO DS X force out set 3 DMCFBGNF EQU 0 no force out 3 DMCFBGLF EQU 1 at low filling 3 DMCFBGHF EQU 2 at high filling 3 * 3 DMCFBCFE DS X DC prefetch set 3 DMCFBCFN EQU 0 no prefetch 3 DMCFBCFL EQU 1 low 3 DMCFBCFH EQU 2 high 3 * 3 * static allocator values 3 * 3 DMCFBAL1 DS F residual space at sat level 1 3 DMCFBAL2 DS F residual space at sat level 2 3 DMCFBAL3 DS F residual space at sat level 3 3 DMCFBAL4 DS F residual space at sat level 4 3 DMCFBAL5 DS F residual space at sat level 5 3 DS XL12 unused 3 DMCFBAZP DS F residual space for ZIP startup
3 * 3 DS XL16 unused 3 * 3 DMCFB# EQU *-DMCFBPID length of the static part of a volume 3 * set entry 3 ORG DMCFSDSC+DMCFS# length of a static MRSCAT entry 2 ********************************************** 2 * starting point of the dynamic entry part * 2 ********************************************** 2 DMCFD DS 0D starting point of dynamic part 2 *************************************************** 2 * dynamic part of a single feature pubset entry * 2 *************************************************** 2 DMCFDOC# DS F counter for occupations 2 * 2 * dynamic pubset status values (1) 2 * 2 DMCFDSTA DS X dynamic status byte (1) 2 DMCFDLOC EQU X'80' set: local reset: remote 2 DMCFDHOM EQU X'40' set: home reset: imported 2 DMCFDSH EQU X'20' set: shared reset: exclusive 2 DMCFDIMC EQU X'10' set: import in process 2 DMCFDEXC EQU X'08' set: export in process 2 DMCFDMAS EQU X'04' set: master reset: slave 2 DMCFDINA EQU X'02' set: inaccessible reset: not inacc 2 DMCFDQUI EQU X'01' set: quiet 2 * 2 * dynamic pubset status values (2) 2 * 2 DMCFDST2 DS X dynamic status byte (2) 2 DMCFDUVA EQU X'10' set: physical allocation by users allowed 2 DMCFDAC EQU X'08' set: pubset with controlled use 2 DMCFDMCP EQU X'04' set: master change in process 2 DMCFDPAG EQU X'02' set: paging pubset 2 DMCFDERI EQU X'01' set: eram inhibit 2 * 2 DMCFDSES DS X pubset session number 2 * 2 DMCFDFLA DS X CMS flags 2 DMCFDBDF EQU X'80' set: CMS buffers defined 2 DMCFDBCL EQU X'40' set: CMS buffers resident (class 3) 2 * reset: CMS buffers not resident (class 4) 2 DMCFDSPC EQU X'20' set: speedcat is running 2 DMCFDELC EQU X'10' set: Extra_large_catalog 2 * 2 DMCFDBNU DS XL2 number of CMS buffers 2 * 2 DMCFDATT DS X attribute
2 DMCFDLOB EQU X'40' set: large_objects 2 * files/volumes with more than 32 GB 2 DMCFDLFA EQU X'20' set: large_files_allowed 2 DMCFDRAI EQU X'10' set: pubset with RAID volumes 2 DMCFDGSV EQU X'08' set: gs volumes 2 DMCFDDRV EQU X'02' set: high availability by DRV 2 DMCFDKEY EQU X'01' set: key pubset 2 * 2 DMCFDXCN DS CL8 XCS name 2 DMCFDHOS DS CL8 host name :* MSCF host name 2 * 2 DMCFDPUB DS X pubset set 2 DMCFD2KN EQU 0 NK2 (2K native) 2 DMCFD4KN EQU 1 NK4 (4K native) 2 DMCFD4KO EQU 2 NK2, allocation unit multiple of 4K 2 * (4K oriented) 2 * dynamic cache values 2 * 2 DMCFDCSZ DS F size of cache buffer 2 * 2 DMCFDCB8 DS X byte for bit values 2 DMCFDCBU EQU X'80' set : cache size unit is KB 2 * reset: cache size unit is MB 2 DMCFDCDS EQU X'40' set : data security ensured 2 DMCFDCDB EQU X'20' set : double recording by buffer 2 DMCFDCDD EQU X'10' set : cache deactivated 2 DMCFDCIH EQU X'08' set : cache in hold 2 DMCFDCCU EQU X'04' set : cache used 2 DMCFDCSF EQU X'02' set : save file failed 2 * 2 DMCFDCM DS X cache medium set 2 DMCFDCNC EQU 0 no cache 2 DMCFDCDC EQU 1 controller 2 DMCFDCES EQU 2 expanded storage 2 DMCFDCGS EQU 3 global storage 2 DMCFDCMM EQU 4 main memory 2 * 2 DMCFDCS DS X segment size set 2 DMCFDC4 EQU 0 4 KB 2 DMCFDC8 EQU 1 8 KB 2 DMCFDC16 EQU 2 16 KB 2 DMCFDC32 EQU 3 32 KB 2 * 2 DMCFDCU1 DS XL1 GS unit=1 or 2 2 DMCFDCU2 DS XL1 unused 2 * 2 DMCFDCFO DS X force out set 2 DMCFDCNF EQU 0 no force out
2 DMCFDCIP EQU 1 at low filling 2 DMCFDCIN EQU 2 at high filling 2 * 2 DMCFDCFE DS X prefetch set 2 DMCFDCFN EQU 0 no prefetch 2 DMCFDCFL EQU 1 low 2 DMCFDCFH EQU 2 high 2 * 2 DMCFDCFS DS X file selection 2 DMCFDBUS EQU 0 by user 2 DMCFDALL EQU 1 all 2 DMCFDAUS EQU 2 auto select 2 * 2 DMCFDCAS DS H size of allocation unit (# of half pages) 2 DMCFDMTL DS H maximal I/O transfer length 2 DMCFDUID DS CL8 userid allowed to access pubset 2 * 2 DS XL2 unused 2 * 2 * dynamic allocator values 2 * 2 DMCFDAL5 DS F residual space at sat level 5 2 DMCFDAL4 DS F residual space at sat level 4 2 DMCFDAL3 DS F residual space at sat level 3 2 DMCFDAL2 DS F residual space at sat level 2 2 DMCFDAL1 DS F residual space at sat level 1 2 DMCFDAPA DS F predet primary alloc amount 2 DMCFDASA DS F predet secondary alloc amount 2 DMCFDADL DS F sec alloc doubling limit 2 DMCFDAZP DS F residual space for ZIP startup 2 * 2 * dynamic EAM values 2 * 2 DMCFDEMA DS F minimal size of file SYSEAM 2 DMCFDEMI DS F maximal size of file SYSEAM 2 DMCFDESA DS F secondary allocation of file SYSEAM 2 DMCFDEMS DS F virtual memory size of file SYSEAM 2 * 2 DMCFDREF DS XL4 counter of occupations (duplicate) 2 * 2 DMCF# EQU *-DMCFMST length of the STAM single 2 * feature pubset entry 2 ORG DMCFD starting point of dynamic part 2 *************************************************** 2 * dynamic part of a system managed pubset entry * 2 *************************************************** 2 DMCFKOC# DS F counter for occupations 2 *
2 * dynamic pubset status values (1) 2 * 2 DMCFKSTA DS X dynamic status byte (1) 2 DMCFKLOC EQU X'80' set: local reset: remote 2 DMCFKHOM EQU X'40' set: home reset: imported 2 DMCFKSH EQU X'20' set: shared reset: exclusive 2 DMCFKIMC EQU X'10' set: import in process 2 DMCFKEXC EQU X'08' set: export in process 2 DMCFKMAS EQU X'04' set: master reset: slave 2 DMCFKINA EQU X'02' set: inaccessible reset: not inacc 2 DMCFKQUI EQU X'01' set: quiet 2 * 2 * dynamic pubset status values (2) 2 * 2 DMCFKST2 DS X dynamic status byte (2) 2 DMCFKAC EQU X'08' set: pubset with controlled use 2 DMCFKMCP EQU X'04' set: master change in process 2 DMCFKPAG EQU X'02' set: paging pubset 2 DMCFKERI EQU X'01' set: eram inhibit 2 * 2 DMCFKSES DS X session number 2 * 2 DMCFKFLA DS X CMS flags 2 DMCFKBDF EQU X'80' set: CMS buffers defined 2 DMCFKBCL EQU X'40' set: CMS buffers resident (class 3) 2 * reset: CMS buffers not resident (class 4) 2 DMCFKBNU DS XL2 number of CMS buffers 2 * 2 * dynamic sm pubset status values 2 * 2 DMCFKSMS DS X special status bytes for sm pubsets 2 DMCFKGEN EQU X'80' set: pubset is in generation 2 ORG DMCFKSMS 2 DMCFKATT DS X attribute 2 DMCFKLOB EQU X'40' set: large_objects 2 * files/volumes with more than 32 GB 2 DMCFKLFA EQU X'20' set: large_files_allowed 2 DMCFKXCN DS CL8 XCS name 2 DMCFKHOS DS CL8 host name :* MSCF host name 2 * 2 DMCFKDFF DS X default file format set 2 DMCFKPAM EQU 0 pamkey format 2 DMCFKNO2 EQU 1 NK2 format 2 DMCFKNO4 EQU 2 NK4 format 2 * 2 * dynamic performance attributes 2 * 2 DMCFKPER DS X performance profile
2 DMCFKSTD EQU X'80' standard performance 2 DMCFKHIG EQU X'40' high performance 2 DMCFKVHI EQU X'20' very high performance 2 * 2 DMCFKWRC DS X write consistency 2 DMCFKBC EQU X'80' by close 2 DMCFKIMM EQU X'40' immediate 2 * 2 DMCFKAVA DS X availability 2 DMCFKAST EQU X'80' standard availability 2 DMCFKAHI EQU X'40' high availability 2 * 2 DS XL1 unused 2 * 2 DMCFKFMT DS X format profile 2 DMCFKK EQU X'80' system managed pubset with K volsets 2 DMCFKNK2 EQU X'40' system managed pubset with NK2 volsets 2 DMCFKFN4 EQU X'20' system managed pubset with NK4 volsets 2 * 2 DMCFKUSA DS X volume set usage 2 DMCFKUST EQU X'80' sm pubset with standard volsets 2 DMCFKWRK EQU X'40' sm pubset with work volsets 2 DMCFKHSS EQU X'20' sm pubset with HSMS controlled volsets 2 * 2 DS XL2 unused 2 DMCFKNOV DS F number of volsets 2 DS XL1 unused 2 DMCFKMTL DS H maximal I/O transfer length 2 DMCFKUID DS CL8 userid allowed to access the pubset 2 DS XL4 unused 2 * 2 * dynamic allocator values 2 * 2 DS XL20 unused 2 DMCFKAPA DS F predet primary alloc amount 2 DMCFKASA DS F predet secondary alloc amount 2 DMCFKADL DS F sec alloc doubling limit 2 DS XL4 unused 2 * 2 * dynamic EAM values 2 * 2 DMCFKEMA DS F maximal size of file SYSEAM 2 DMCFKEMI DS F minimal size of file SYSEAM 2 DMCFKESA DS F secondary allocation of file SYSEAM 2 DMCFKEMS DS F virtual memory size of file SYSEAM 2 * 2 DMCFKREF DS XL4 counter of occupations (duplicate) 2 *
2 DMCFK# EQU *-DMCFMST length of the STAM system 2 * managed pubset entry 2 ORG DMCFD starting point of dynamic part 2 ************************************ 2 * dynamic part of a pubset entry * 2 ************************************ 2 DMCFGOC# DS F counter for occupations 2 * 2 * dynamic pubset status values (1) 2 * 2 DMCFGSTA DS X dynamic status byte (1) 2 DMCFGLOC EQU X'80' set: local reset: remote 2 DMCFGHOM EQU X'40' set: home reset: imported 2 DMCFGSH EQU X'20' set: shared reset: exclusive 2 DMCFGIMC EQU X'10' set: import in process 2 DMCFGEXC EQU X'08' set: export in process 2 DMCFGMAS EQU X'04' set: master reset: slave 2 DMCFGINA EQU X'02' set: inaccessible reset: not inacc 2 DMCFGQUI EQU X'01' set: quiet 2 * 2 * dynamic pubset status values (2) 2 * 2 DMCFGST2 DS X dynamic status byte (2) 2 DMCFGAC EQU X'08' set: pubset with controlled use 2 DMCFGMCP EQU X'04' set: master change in process 2 DMCFGPAG EQU X'02' set: paging pubset 2 DMCFGERI EQU X'01' set: eram inhibit 2 * 2 DMCFGSES DS X session number 2 * 2 DMCFGFLA DS X CMS flags 2 DMCFGBDF EQU X'80' set: CMS buffers defined 2 DMCFGBCL EQU X'40' set: CMS buffers resident (class 3) 2 * reset: CMS buffers not resident (class 4) 2 DMCFGBNU DS XL2 number of CMS buffers 2 DMCFGATT DS X attribute 2 DMCFGLOB EQU X'40' set: large_objects 2 * files/volumes with more than 32 GB 2 DMCFGLFA EQU X'20' set: large_files_allowed 2 DMCFGXCN DS CL8 XCS name 2 DMCFGHOS DS CL8 host name :* MSCF host name 2 DS XL14 unused 2 DMCFGMTL DS H maximal I/O transfer length 2 DMCFGUID DS CL8 userid allowed to access pubset 2 DS XL4 unused 2 * 2 * dynamic allocator values 2 *
2 DS XL20 unused 2 DMCFGAPA DS F predet primary alloc amount 2 DMCFGASA DS F predet secondary alloc amount 2 DMCFGADL DS F sec alloc doubling limit 2 DS XL4 unused 2 * 2 * dynamic EAM values 2 * 2 DMCFGEMA DS F minimal size of file SYSEAM 2 DMCFGEMI DS F maximal size of file SYSEAM 2 DMCFGESA DS F secondary allocation of file SYSEAM 2 DMCFGEMS DS F virtual memory size of file SYSEAM 2 * 2 DMCFGREF DS XL4 counter of occupations (duplicate) 2 * 2 DMCFG# EQU *-DMCFMST length of the STAM pubset entry 2 * 2 ORG DMCFD starting point of dynamic part 2 **************************************** 2 * dynamic part of a volume set entry * 2 **************************************** 2 DMCFEOC# DS F counter for occupations 2 * 2 * dynamic volume set status values (1) 2 * 2 DMCFESTA DS X dynamic status bytes (1) 2 DMCFECON EQU X'80' set: volume set is connected 2 * 2 * dynamic volume set status values (2) 2 * 2 DMCFEST2 DS X dynamic status bytes (2) 2 DMCFEMCP EQU X'04' set: master change in process 2 DMCFEERI EQU X'01' set: eram inhibit 2 * 2 DS XL4 unused 2 * 2 DMCFEATT DS X attribute 2 DMCFERAI EQU X'10' set: volset with RAID volumes 2 DMCFEGSV EQU X'08' set: gs volumes 2 DMCFEDRV EQU X'02' set: high availability by DRV 2 DMCFEKEY EQU X'01' set: key volset 2 * 2 DS XL16 unused 2 * 2 DMCFEVOL DS X volume set format set 2 DMCFE2KN EQU 0 NK2 (2K native) 2 DMCFE4KN EQU 1 NK4 (4K native) 2 DMCFE4KO EQU 2 NK2, allocation unit multiple of 4K
2 * (4K oriented) 2 * dynamic cache values 2 * 2 DMCFECSZ DS F size of cache buffer 2 * 2 DMCFECB8 DS X byte for bit values 2 DMCFECBU EQU X'80' set : cache size unit is KB 2 * reset: cache size unit is MB 2 DMCFECDS EQU X'40' set : data security ensured 2 DMCFECDB EQU X'20' set : double recording by buffer 2 DMCFECDD EQU X'10' set : cache deactivated 2 DMCFECIH EQU X'08' set : cache in hold 2 DMCFECCU EQU X'04' set : cache used 2 DMCFECSF EQU X'02' set : save file failed 2 * 2 DMCFECM DS X cache medium set 2 DMCFECNC EQU 0 no cache 2 DMCFECDC EQU 1 controller 2 DMCFECES EQU 2 expanded storage 2 DMCFECGS EQU 3 global storage 2 DMCFECMM EQU 4 main memory 2 * 2 DMCFECS DS X segment size set 2 DMCFEC4 EQU 0 4 KB 2 DMCFEC8 EQU 1 8 KB 2 DMCFEC16 EQU 2 16 KB 2 DMCFEC32 EQU 3 32 KB 2 * 2 DMCFECU1 DS XL1 GS unit_1 2 DMCFECU2 DS XL1 GS unit_2 2 * 2 DMCFECFO DS X force out set 2 DMCFECNF EQU 0 no force out 2 DMCFECIP EQU 1 at low filling 2 DMCFECIN EQU 2 at high filling 2 * 2 DMCFECFE DS X prefetch set 2 DMCFECFN EQU 0 no prefetch 2 DMCFECFL EQU 1 low 2 DMCFECFH EQU 2 high 2 * 2 DMCFECFS DS X file selection 2 DMCFEBUS EQU 0 by user 2 DMCFEALL EQU 1 all 2 DMCFEAUS EQU 2 auto select 2 * 2 DMCFECAS DS H size of allocation unit (# of half pages) 2 DMCFEMTL DS H maximal I/O transfer length
2 DS XL10 unused 2 * 2 * dynamic allocator values 2 * 2 DMCFEAL5 DS F residual space at sat level 5 2 DMCFEAL4 DS F residual space at sat level 4 2 DMCFEAL3 DS F residual space at sat level 3 2 DMCFEAL2 DS F residual space at sat level 2 2 DMCFEAL1 DS F residual space at sat level 1 2 DS XL12 unused 2 DMCFEAZP DS F residual space for ZIP startup 2 * 2 DS XL16 unused 2 DMCFEREF DS XL4 counter of occupations (duplicate) 2 * 2 DMCFE# EQU *-DMCFMST length of the STAM volume 2 * set entry
DSECT for the output area of the macro (XPAND=OCC)
STAMCE MF=D,PREFIX=D,XPAND=OCC,VERSION=5 1 #INTF REFTYPE=REQUEST, C 1 INTNAME=STAM, C 1 INTCOMP=5 1 MFCHK MF=D, C 1 SUPPORT=(C,D,E,L,M,S), C 1 PREFIX=D, C 1 MACID=MCH, C 1 DMACID=MCH, C 1 DNAME=MCHOCC, C 1 PARAM=, C 1 SVC=33, C 1 ALIGN=F 2 DMCHOCC DSECT , 2 *,##### PREFIX=D, MACID=MCH ##### 1 STAMLY MF=D, C 1 PREFIX=D, C 1 MACID=MCH, C 1 PARAM=, C 1 VERSION=5, C 1 XPAND=OCC, C 1 FUNCT=1, C 1 CG27=DMCH, C 1 CATID=, C 1 AREA=, C 1 LENGTH=, C 1 REF=, C 1 HOST=, C 1 SELECT=, C 1 PUBSET= 2 #INTF REFTYPE=REQUEST, C 2 INTNAME=STAMLY, C 2 INTCOMP=5 2 DMCHOST DS 0F 2 DMCHSYS DS X sysid 2 DMCHUNUS DS XL3 unused 2 DMCHUSID DS CL8 userid 2 DMCHTSN DS CL4 tsn 2 DMCHTID DS F tid 2 DMCH# EQU *-DMCHOST length of the occupation entry
Example
In the following program, the STAMCE macro is called. The catalog ID and the BCAM name of the system of the first 25 MRSCAT entries transferred by STAMCE are output on the screen.
STAMCE START
PRINT NOGEN
BALR 10,0
USING *,10
USING DSTAM3,6 ——————————————————————————————————————————— (1)
USING DSTAM4,7 ——————————————————————————————————————————— (2)
STAMCE MF=E,PARAM=STAM3,VERSION=5 ————————————————————————— (3)
LR 7,1 ———————————————————————————————————————————————— (4)
L 6,DMCEAREA ————————————————————————————————————————— (5)
L 5,=F'25'
WROUT HEADER,WROUTERR ————————————————————————————————————— (6)
SHOW CLC DMCFSCTD,=AL4(DMCELAST)—————————————————————————————— (7)
BE WROUTERR
MVC CATID,DMCFSCTD——————————————————————————————————————— (8)
MVC PROCESS,DMCFFBCA
CLI PROCESS,X'00'
BNE WROUT2
MVC PROCESS,=CL8' '
WROUT2 WROUT OUTREC,WROUTERR
LA 6,DMCFG#(6)
BCT 5,SHOW
WROUTERR TERM
*** Definitions
STAM3 STAMCE CATID=' ',MF=L,VERSION=5
HEADER DC Y(HEADERE-HEADER)
DC CL2' '
DC CL1' '
DC C'CATID PROCESSOR '
HEADERE EQU *
OUTREC DC Y(OUTRECE-OUTREC)
DC CL2' '
DC CL1' '
CATID DS CL4
DC CL3' '
PROCESS DS CL8
OUTRECE EQU *
LTORG
DS 0F
DSTAM3 STAMCE MF=D,PREFIX=D,XPAND=MCE,VERSION=5
DSTAM4 STAMCE MF=D,PREFIX=D,XPAND=PL,VERSION=5
END
Runtime log:
/start-assembh % BLS0500 PROGRAM 'ASSEMBH', VERSION '<ver>' OF '<date>' LOADED % ASS6010 <ver> OF BS2000 ASSEMBH READY //compile source=*library-element(macexmp.lib,stamce), - // compiler-action=module-generation(module-format=llm), - // module-library=macexmp.lib, - // listing=parameters(output=*library-element(macexmp.lib,stamce)) % ASS6011 ASSEMBLY TIME: 210 MSEC % ASS6018 0 FLAGS, 0 PRIVILEGED FLAGS, 0 MNOTES % ASS6019 HIGHEST ERROR-WEIGHT: NO ERRORS % ASS6006 LISTING GENERATOR TIME: 27 MSEC //end % ASS6012 END OF ASSEMBH /start-executable-program library=macexmp.lib,element-or-symbol=stamce % BLS0523 ELEMENT 'STAMCE', VERSION '@' FROM LIBRARY ':2OSG:$QM212.MACEXMP.LIB' IN PROCESS % BLS0524 LLM 'STAMCE', VERSION ' ' OF '<date> <time>' LOADED CATID PROCESSOR —————————————————————————————————————————————————————— (9) A N89H04 AAK3 D015B219 AAK4 D015B219 AAN3 D015B219 AA4N AKEY HELIOS2 ALB2 ANG3 ANGELA2 AP13 STARTB2 BAB2 BABETTE2 BAB3 BABETTE2 BECK BEDS SOPHIE2 BSAD D015B007 BS41 BUEB D015B011 BUR3 D017ZE39 BUR4 D017ZE39 BUR5 . . . B202 B203 D015B019
(1) | Register 6 is assigned to the Assembler as the base address register for addressing the DSECT for the output area of the STAMCE macro (in BS2000/OSD-BC V3.0 format). This DSECT is generated at the symbolic address DSTAM3 by means of a STAMCE call with MF=D and XPAND=MCE. |
(2) | Register 7 is assigned to the Assembler as the base address register for addressing the DSECT for the output area of the STAMCE macro (in BS2000/OSD-BC V3.0 format). This DSECT is generated at the symbolic address DSTAM4 by means of a STAMCE call with MF=D and XPAND=PL. |
(3) | The STAMCE macro is called in its E form. The associated operand list is generated at the symbolic address STAM3 by means of a STAMCE call with MF=L, where CATID=' ' (blank, for all MRSCAT entries) is entered.Since no value is specified for AREA, the AREA address is written implicitly to the DMCAREA field of the operand list for the STAMCE macro (see DSTAM4: STAMCE MF=D, PREFIX=D, XPAND=PL, VERSION=5). |
(4) | The start address of the operand list for the STAMCE macro is loaded into register R7 so that the output area can be addressed via DMCAREA (points to the address of the output area). |
(5) | Register R6 is loaded with the address of the output area. |
(6) | Output of a header line |
(7) | Check to see whether the end of the MRSCAT entries supplied has been reached. |
(8) | The first 25 MRSCAT entries that have been transferred to the output area by STAMCE are evaluated in a loop: for each entry, the catalog ID (DMCFSCTD field of the DSECT) and the BCAM name of the system (DMCFFBCA field of the DSECT) - or blanks if no BCAM name is entered - are transferred to an output record and output to the screen. The DSECT is subsequently shifted by the length of an entry (DMCFG#). |
(9) | Output of the first 25 MRSCAT entries (shortened). |