*%GOTO DCE; /* DASD CLASS EXTENSION MAPPING MACRO 00000100 MACRO 00000200 &LABEL IECDDCE 00000300 .***** START OF SPECIFICATIONS **************************************** 00000400 .* 00000500 .* $MAC(IECDDCE) COMP(SC1D1) PROD(DMS-Z): DASD SUPPORT 3380SMB 00000600 .* 00050600 .* DESCRIPTIVE-NAME = UCB DASD CLASS EXTENSION 00100600 .* 00150600 .* COPYRIGHT = NONE 00200600 .* 00360600 .* STATUS = RELEASE , LEVEL 00405600 .* 00450634 .* FUNCTION = THIS MACRO MAPS THE UCB DASD CLASS EXTENSION (DCE) 00500634 .* 00550634 .* NOTES = NONE 00600634 .* 00650634 .* PATCH-LABEL = NOT APPLICABLE 00700634 .* 00750634 .* MODULE-TYPE = MACRO 00800634 .* 00850634 .* PROCESSOR = PLS OR BAL 00900634 .* 00950634 .* ATTRIBUTES = MAPPING MACRO 01000634 .* 01050634 .* ENTRY-POINT = IECDDCE 01100634 .* 01150634 .* PURPOSE = SEE FUNCTION ABOVE. 01200634 .* 01250634 .* LINKAGE = PLS - INCLUDE IECDDCE 01300600 .* BAL - LABEL IECDDCE 01350600 .* 01400600 .* INPUT = PLS - NONE 01450600 .* BAL - 'LABEL' WILL CAUSE A LABEL DSECT STATEMENT 01500600 .* INSTEAD OF 'DCE' DSECT STATEMENT. 01550600 .* 01600634 .* OUTPUT = DCE EXPANSION. 01650634 .* 01700634 .* EXIT-NORMAL = END OR MEND STATEMENT 01750634 .* 01800634 .* EXIT-ERROR = NONE 01850634 .* 01900634 .* EXTERNAL-REFERENCES = N/A 01950634 .* 02000634 .* TABLES = NONE 02050634 .* 02100634 .* MACROS = NONE 02150634 .* 02200634 .* CHANGE-ACTIVITY = 02250600 .* $H1=3380SMB,JDM1136,T800475,STLFS: DEVICE SUPPORT 02300600 .* 02400634 .*** END OF SPECIFICATIONS ******************************************** 02450634 LCLC &L DEFINE LOCAL CHAR VARIABLE 02500634 &L SETC 'DCE' 02550634 AIF ('&LABEL' EQ '').DSECT 02600634 &L SETC '&LABEL' 02650634 .DSECT ANOP 02700634 SPACE 1 02750634 *********************************************************************** 02800634 * DCE - UCB DASD CLASS EXTENSION MAPPING MACRO 02850634 *********************************************************************** 02900634 SPACE 1 02950634 &L DSECT - UCB DASD CLASS EXTENSION 03000634 DCELEN DS B - LENGTH OF DCE IN BYTES 03050634 DCEFLAG1 DS B - DCE FLAG BYTE 1 03100634 DCECVGTF EQU X'80' - CVAF GTF ACTIVE 03150634 DCEVFEAT EQU X'40' - FEATURE BITS VALID @H1A 03175500 DCEFLAG2 DS B - DCE FLAG BYTE 2 - RESERVED 03200634 DCEFLAG3 DS B - DCE FLAG BYTE 3 - RESERVED 03250634 DCEVIB DS A - VTOC INFORMATION BLOCK PTR 03300634 DCEVVDS DS A - RESERVED 03350634 DCESCHED DS A - RESERVED 03400634 DCEFEATS DS 0XL2 SENSE ID FEATURE BITS @H1A 03450600 DCEFEAT1 DS BL1 SENSE ID BYTE 3 @H1A 03453700 * CKD EXTENSIONS-REFERENCE 03456800 * DCENECKD,DCEDEFEX,DCEDEFLR 03459900 DCENECKD EQU X'C0' 00XX,XXXX= CKD EXTENSIONS NOT 03463000 * IMPLEMENTED @H1A 03466100 DCEDEFLR EQU X'C0' 11XX,XXXX= DEFINE EXTENT, LOCATE 03469200 * RECORD AND RELATED TRANSFER 03472300 * COMMANDS IMPLEMENTED @H1A 03475400 * IMPLEMENTED @H1A 03478500 DCERSVD1 EQU X'80' 10XX,XXXX=RSVD FOR EXT @H1A 03481600 DCEDEFEX EQU X'40' 01XX,XXXX=DEF EXT ONLY @H1A 03484700 DCEINDF0 EQU X'20' MOD INDEP FEAT-RSVD @H1A 03487800 DCEINDF1 EQU X'10' MOD INDEP FEAT-RSVD @H1A 03490900 DCEFEAT2 DS BL1 RESERVED @H1A 03494000 DCESPARE DS H RESERVED @H1A 03497100 DCEUCBEX EQU X'18' OFFSET INTO THE COMMON UCB 03497300 * EXTENSION OF THE FULLWORD WHICH 03497500 * CONTAINS THE DCE ADDRESS (THE 03497700 * EXTENSION IS POINTED TO BY 03497900 * UCBEXTPT) 03498100 DCECVTCV EQU X'0C' OFFSET INTO THE OS/VS COMMON 03498300 * EXTENSION TO THE CVT OF THE 03498500 * FULLWORD WHICH CONTAINS THE 03498700 * POINTER TO THE CVAF TABLE (THE 03498900 * EXTENSION IS POINTED TO BY 03499100 * CVTEXT1) 03499300 SPACE 1 03500634 MEND 03550634 **********************************************************************/ 03600634 *%DCE: ; 03650634 * 03700634 */********************************************************************/ 03750634 */* DCE - UCB DASD CLASS EXTENSION */ 03800634 */********************************************************************/ 03850634 * 03900634 * 03950634 * DCL 1 DCE BASED(UCBCLEXT) BDY(WORD), /* UCB DASD CLASS EXTENSION */ 04000634 * 2 DCELEN FIXED(8), /* LENGTH OF DCE IN BYTES */ 04050634 * 2 DCEFLAG1 BIT(8), /* DCE FLAG BYTE 1 */ 04100634 * 3 DCECVGTF BIT(1), /* CVAF GTF ACTIVE */ 04150634 * 3 DCEVFEAT BIT(1), /* FEATURE BITS VALID @H1A*/ 04200600 * 3 * BIT(6), /* RESERVED @H1A*/ 04225600 * 2 DCEFLAG2 BIT(8), /* DCE FLAG BYTE 2 */ 04250634 * 2 DCEFLAG3 BIT(8), /* DCE FLAG BYTE 3 */ 04300634 * 2 DCEVIB PTR(31), /* VTOC INFORMATION BLOCK PTR */ 04350634 * 2 DCEVVDS PTR(31), /* RESERVED */ 04400634 * 2 DCESCHED PTR(31), /* RESERVED */ 04450634 * 2 DCEFEATS CHAR(2), /* SENSE ID FEATURE BITS @H1A*/ 04500600 * 4 DCEFEAT1 BIT(8), /* SENSE ID BYTE 3 @H1A*/ 04550600 * 6 DCECKDEX BIT(2), /* CKD EXTENSIONS REFERENCE-DCENECKD 04600600 * DCEDEFEX,DCEDEFLR @H1A*/ 04650600 * 6 DCEINDF0 BIT(1), /* MOD INDEP FEAT-RSVD @H1A*/ 04700600 * 6 DCEINDF1 BIT(1), /* MOD INDEP FEAT-RSVD @H1A*/ 04750600 * 6 * BIT(4), /* RESERVED @H1A*/ 04800600 * 4 DCEFEAT2 BIT(8), /* RESERVED @H1A*/ 04850600 * 2 DCESPARE FIXED(16); /* RESERVED @H1A*/ 04900600 * DCL DCENECKD BIT(2) CONSTANT('00'B),/* CKD EXTENSIONS NOT 04950600 * IMPLEMENTED @H1A*/ 05000600 * DCEDEFEX BIT(2) CONSTANT('01'B),/* DEFINE EXTENT IMPLEMENTED 05050600 * @H1A*/ 05100600 * DCERSVD1 BIT(2) CONSTANT('10'B),/* RESERVED FOR EXTENSION 05150600 * @H1A*/ 05200600 * DCEDEFLR BIT(2) CONSTANT('11'B),/* DEFINE EXTENT, LOCATE RECORD 05250600 * AND RELATED TRANSFER COMMANDS 05300600 * IMPLEMENTED @H1A*/ 05350600 * DCEUCBEX BIT(8) CONSTANT('18'X),/* OFFEST INTO THE COMMON UCB 05400600 * EXTENSION OF THE FULLWORD WHICH 05450600 * CONTAINS THE DCE ADDRESS (THE 05500600 * EXTENSION IS POINTED TO BY 05550600 * UCBEXTPT) */ 05600600 * DCECVTCV BIT(8) CONSTANT('0C'X);/* OFFSET INTO THE OS/VS COMMON 05650600 * EXTENSION TO THE CVT OF THE 05700600 * FULLWORD WHICH CONTAINS THE 05750600 * POINTER TO THE CVAF TABLE (THE 05800600 * EXTENSION IS POINTED TO BY 05850600 * CVTEXT1) */ 05900600