* 00050001 * %GOTO DOMCL1; /* BILINGUAL MAPPING 00060001 MACRO 00100001 IHADOMC &DSECT=YES */ 00150001 *%DOMCL1 : ; 00160001 * 00500001 */* **************************************************************** */ 00550001 */* */ 00700001 */* DELETE-OPERATOR-MESSAGE CONTROL BLOCK (DOMC) DEFINITION */ 00750001 */* */ 00760001 */* OS/VS2 RELEASE 3, OS/VS1 RELEASE 4, 02/07/74, LEVEL=1 */ 00780003 */* */ 00790001 */* METHOD OF ACCESS */ 00800001 */* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 00810001 */* USING ON DOMC GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 00820001 */* PL/S - DCL DOMCPTR PTR */ 00830001 */* **************************************************************** */ 00850001 *%GOTO DOMCL2; /* 00860001 IEZBITS , - SYMBOLIC BIT DEFINITIONS 01050001 AIF ('&DSECT' EQ 'NO').DOM0000 01052001 DOMC DSECT , - START OF DOMC 01054001 AGO .DOM0020 01056001 .DOM0000 ANOP 01058001 DS 0D 01060001 DOMC EQU * - START OF DOMC 01062001 .DOM0020 ANOP 01064001 SPACE 01066001 DOMCLNK DS 0A - POINTER TO NEXT DOMC 01150001 DOMCNTRL DS B - CONTROL FLAGS 01200001 DOMCRS01 EQU BIT0,,C'X' - RESERVED 01200401 DOMCRS02 EQU BIT1,,C'X' - RESERVED 01200801 DOMCRS03 EQU BIT2,,C'X' - RESERVED 01201201 DOMCAUTH EQU BIT3 - DOM ISSUED BY AUTHORIZED USER. ALL 01201602 * MESSAGE ID'S ARE VALID. USED ONLY WHEN 01201702 * DOMCDBL AND DOMCDBAJ ARE OFF. MDC008 01208702 DOMCDBAJ EQU BIT4 - DOM BY ASID AND JOB STEP TCB ADDRESS, NO 01215702 * DOMCID FIELD EXISTS (OS/VS2) MDC004 01222702 DOMCWR EQU BIT5 - DOM WITH REPLY REUESTED (OS/VS2) MDC005 01229702 DOMCDBL EQU BIT6 - NO DOMCID FIELD EXISTS, DOM BY LSQA/TJID 01236702 * IS IN EFFECT (OS/VS1) 01243702 * DOM BY ASID ONLY, NO DOMCID FIELD EXISTS 01254002 * (OS/VS2) MDC003 01304002 DOMCPROC EQU BIT7 - DOMC HAS BEEN PROCESSED 01550001 DOMCLNKA DS AL3 - ADDR OF NEXT DOMC OR ZERO 01600001 SPACE 01650001 DOMCID DS 0A - DOMC MESSAGE ID ENTRY (MAXIMUM OF 60 01700001 * ENTRIES) 01750001 DOMCFLAG DS B - DOMCID ENTRY FLAGS 01800001 DOMCEND EQU BIT0 - THIS IS THE LAST DOMCID ENTRY IN THIS 01850001 * DOMC 01900001 DOMCSEXT EQU BIT1 - SUBSYSTEM EXIT TO BE TAKEN (OS/VS2) 01910002 * (MDC009) Y02038 01915002 DOMCRS08 EQU BIT2,,C'X' - RESERVED 01920001 DOMCRS09 EQU BIT3,,C'X' - RESERVED 01930001 DOMCRS10 EQU BIT4,,C'X' - RESERVED 01940001 DOMCRS11 EQU BIT5,,C'X' - RESERVED 01942001 DOMCRS12 EQU BIT6,,C'X' - RESERVED 01944001 DOMCRS13 EQU BIT7,,C'X' - RESERVED 01946001 DOMCIDA DS AL3 - MESSAGE ID TO BE DOM'ED 01950001 SPACE 02000001 * THE FOLLOWING FIELDS ARE LOCATED IMMEDIATELY FOLLOWING THE 02050001 * LAST DOMCID ENTRY 02100001 SPACE 02150001 DOMCTJID DS 0CL2 - TJID OF TSO USER, OR ZERO (OS/VS1) MDC001 02200002 DOMCASID DS H - ASID OF DOM ISSUER (OS/VS2) MDC006 02210002 DOMCSIZE DS FL1 - SIZE OF DOMC IN BYTES (ROUNDED UP 02250001 * TO A DOUBLE WORD VALUE) 02260001 DOMCLSQA DS FL1 - LSQA INDEX OF ISSUING TCB, OR ZERO 02300001 * WHEN ISSUER IS SUPERVISOR MODE OR KEY 0 02302001 * OR APF AUTHORIZED. (MAY ALSO BE ZERO 02304001 * WHEN USED IN CONJUNCTION WITH DOMCDBL) 02306001 * (OS/VS1) MDC002 02316002 DOMCJTCB DS A - ADDRESS OF THE JOB STEP'S TCB 02326002 * (OS/VS2) MDC007 02336002 MEND , - */ 02350002 *%DOMCL2: ; 02400001 * 02900001 *DECLARE 02950001 * 1 DOMC BASED (DOMCPTR) BDY(WORD), /* START OF DOMC */ 03000001 * 2 DOMCLNK PTR(31), /* POINTER TO NEXT DOMC */ 03050001 * 3 DOMCNTRL BIT(8), /* CONTROL FLAGS */ 03100001 * 4 DOMCRS01 BIT(1), /* RESERVED */ 03500001 * 4 DOMCRS02 BIT(1), /* RESERVED */ 03500401 * 4 DOMCRS03 BIT(1), /* RESERVED */ 03500801 * 4 DOMCAUTH BIT(1), /* DOM ISSUED BY AUTHORIZED 03501202 * USER. ALL MESSAGE ID'S 03501302 * ARE VALID. USED ONLY 03501402 * WHEN DOMCDBL AND DOMCDBAJ 03501502 * ARE OFF. MDC008*/ 03501602 * 4 DOMCDBAJ BIT(1), /* DOM BY ASID AND JOB STEP 03511502 * TCB ADDRESS, NO DOMCID 03521202 * FIELD EXISTS (OS/VS2) 03525202 * MDC004*/ 03530802 * 4 DOMCWR BIT(1), /* DOM WITH REPLY REQUESTED 03540402 * (OS/VS2) MDC005*/ 03542402 * 4 DOMCDBL BIT(1), /* NO DOMCID FIELD EXISTS, 03550002 * DOM BY LSQA/TJID IS IN 03557002 * EFFECT (OS/VS1) 03564002 * DOM BY ASID ONLY, NO 03571002 * DOMCID FIELD EXISTS 03578002 * (OS/VS2) MDC003*/ 03585002 * 4 DOMCPROC BIT(1), /* DOMC HAS BEEN PROCESSED */ 03592002 * 3 DOMCLNKA PTR(24); /* ADDR OF NEXT DOMC OR 03600001 * ZERO */ 03650001 * 03700001 * 03850001 *DECLARE 03900001 *%IF DOMCIDPT='' %THEN 03910001 * %GOTO DOMCA1; 03920001 * 1 DOMCID BASED (DOMCIDPT) BDY(WORD), 03950001 *%GOTO DOMCA3; 03952001 *%DOMCA1 : ; 03954001 *%IF IKEPLS='2' %THEN 03956001 * %GOTO DOMCA2; 03958001 * 1 DOMCID BASED(ADDR(DOMCLNK)+4) BDY(WORD), 03958401 *%GOTO DOMCA3; 03958801 *%DOMCA2 : ; 03959201 * 1 DOMCID DEF(DOMCLNK) POS(5) BDY(WORD), 03959601 *%DOMCA3 : ; 03959701 * /* DOMC MESSAGE ID ENTRY 03960001 * (MAXIMUM OF 60 ENTRIES) */ 04000001 * 2 DOMCFLAG BIT(8), /* DOMCID ENTRY FLAGS */ 04050001 * 3 DOMCEND BIT(1), /* THIS IS THE LAST DOMCID 04100001 * ENTRY IN THIS DOMC */ 04150001 * 3 DOMCSEXT BIT(1), /* SUBSYSTEM EXIT TO BE 04200002 * TAKEN (OS/VS2) 04203002 * (MDC009) Y02038*/ 04206002 * 3 DOMCRS08 BIT(1), /* RESERVED */ 04210001 * 3 DOMCRS09 BIT(1), /* RESERVED */ 04220001 * 3 DOMCRS10 BIT(1), /* RESERVED */ 04230001 * 3 DOMCRS11 BIT(1), /* RESERVED */ 04240001 * 3 DOMCRS12 BIT(1), /* RESERVED */ 04242001 * 3 DOMCRS13 BIT(1), /* RESERVED */ 04244001 * 2 DOMCIDA PTR(24), /* MESSAGE ID TO BE DOM'ED */ 04250001 * 04350001 */* THE FOLLOWING FIELDS ARE LOCATED IMMEDIATELY FOLLOWING */ 04400001 */* THE LAST DOMCID ENTRY */ 04450001 * 04500001 * 2 DOMCTJID CHAR(2) BDY(WORD), /* TJID OF TSO USER OR ZERO 04550002 * (OS/VS1) MDC001*/ 04560002 * 3 DOMCASID FIXED(15), /* ASID OF DOM ISSUER 04570002 * (OS/VS2) MDC006*/ 04580002 * 2 DOMCSIZE PTR(8), /* SIZE OF DOMC IN BYTES 04600001 * (ROUNDED UP TO A DOUBLE 04610001 * WORD VALUE) */ 04620001 * 2 DOMCLSQA PTR(8), /* LSQA INDEX OF ISSUING 04650002 * TCB, OR ZERO WHEN ISSUER 04652001 * IS SUPERVISOR MODE OR 04654001 * KEY 0 OR APF AUTHORIZED. 04656001 * (MAY ALSO BE ZERO WHEN 04658001 * USED IN CONJUNCTION WITH 04660001 * DOMCDBL). (OS/VS1) MDC002*/ 04662002 * 2 DOMCJTCB PTR(31); /* ADDRESS OF THE JOB STEP'S 04672002 * TCB (OS/VS2) MDC007*/ 04682002 * 04700001 */************************ END OF DOMC ************************/ 04750001