* %GOTO SCBBSL1; /* 00050002 MACRO 00100001 IHASCB &DSECT=YES */ 00150002 *%SCBBSL1 : ; 00160002 * /* MACMEAN SCB MEANS STAE CONTROL BLOCK */ 00170002 * /* MACCOMP Y-1 SC1C5/PZD81 */ 00180002 * /* MACSTAT Y-1 72245/20145 */ 00190002 * %GOTO SCBBSL; /* 00192002 AIF ('&DSECT' EQ 'YES').SCB001 00242002 SCB DS 0D - 00244002 AGO .SCB002 00246002 .SCB001 ANOP 00248002 SCB DSECT , SCBPTR 00250001 .SCB002 SPACE 2 00260002 SCBCHAIN DS A - POINTER TO NEXT SCB ON CHAIN 00300001 SCBEXIT DS A - POINTER TO USER WRITTEN EXIT ROUTINE 00350001 SCBPARM DS 0A - ADDRESS OF PARAMETER LIST FOR STA EXIT 00400001 SCBFLGS1 DS B - FIRST FLAG BYTE... 00450001 SCBSTAI EQU X'80' - .STAI SCB 00500001 SCBSTAR EQU X'40' - .STAR SCB 00550001 * .SCB IS FOR STAE IF NEITHER SCBSTAI 00600001 * NOR SCBSTAR BIT IS SET ON 00650001 SCBDUMMY EQU X'20' - .DUMMY SCB - (WILL NOT BE SCHEDULED) 00700001 SCBESTAE EQU X'10' - .ESTAE INDICATOR 00750002 * X'08' - .(RESERVED) 00800001 SCBASYNC EQU X'04' - .ALLOW ASYNCHRONOUS INTERRUPTS 00850001 SCBIOPRC EQU X'03' - .I/O PROCESSING OPTION, BITS 6 AND 7-- 00900001 * 00 - QUIESCE I/O 00950001 * 01 - HALT I/O 01000001 * 10 - BYPASS I/O INTERVENTION 01050001 * 11 - (RESERVED) 01100001 SCBNOIOP EQU X'02' - .BYPASS I/O INTERVENTION 01150001 SCBHALT EQU X'01' - .HALT I/O 01200001 SCBPARMA DS AL3 - ADDRESS OF PARAMETER LIST FOR STA EXIT 01250001 SCBOWNR DS 0A - TCB/RB ADDRESS CONTROLLING THIS SCB 01300001 SCBFLGS2 DS B - SECOND FLAG BYTE... 01350001 * X'80' - .RESERVED 01400002 SCBXCTL2 EQU X'40' - .RETAIN THIS SCB ACROSS XCTL 01450001 * X'20' - .(RESERVED) 01500001 SCBINUSE EQU X'10' - .THIS SCB IN USE 01550001 * X'08' - .(RESERVED) 01600001 * X'04' - .(RESERVED) 01650001 SCBKEY0 EQU X'02' - .USER IN KEY 0 01700001 SCBSUPER EQU X'01' - .USER IN SUPERVISOR MODE 01750001 SCBOWNRA DS AL3 - RB ADDRESS IF STAE/STAR, 01800001 * TCB ADDRESS IF STAI. 01850001 SCBDATA DS 0A - FLAGS AND DATA FIELD 01852002 SCBFLGS3 DS B - OPTION FLAGS 01860002 * X'80' - .(RESERVED) 01870002 SCBTERMI EQU X'40' - .AUTHORIZED FOR TERM PROCESSING 01880002 SCBRECRD EQU X'20' - .ERROR RECORD TO BE WRITTEN TO SYS1.LOGREC 01890002 SCBCNCEL EQU X'10' - .SCB IS LOGICALLY CANCELED 01892002 SCBPRNTR EQU X'08' - .SCB PREVIOUSLY ENTERED 01894002 SCBBRNTR EQU X'04' - .BRANCH ENTERED SVC 60 01896002 SCBTERMO EQU X'02' - .TERM PROCESSING ONLY 01898002 * X'01' - .(RESERVED) 01898402 SCBPKEY DS C - PROGRAM KEY 01898502 SCBID DS C - SCB IDENTIFIER 01898602 SCBRSVRE DS C - RESERVED 01898802 SCBLEN EQU *-SCB LENGTH OF SCB 01900002 MEND , */ 01950001 *%SCBBSL : ; 02000001 *DECLARE 02100001 * 1 SCB BASED(SCBPTR), 02150001 * 2 SCBCHAIN PTR(31), /* POINTER TO NEXT SCB ON 02200001 * CHAIN */ 02250001 * 2 SCBEXIT PTR(31), /* POINTER TO USER WRITTEN 02300001 * EXIT ROUTINE */ 02350001 * 2 SCBPARM PTR(31), /* ADDRESS OF PARAMETER 02400001 * LIST FOR STA EXIT */ 02450001 * 3 SCBFLGS1 CHAR(1), /* FIRST FLAG BYTE... */ 02500001 * 4 SCBSTAI BIT(1), /* .STAI SCB */ 02550001 * 4 SCBSTAR BIT(1), /* .STAR SCB .SCB IS FOR 02600001 * STAE IF NEITHER SCBSTAI 02650001 * NOR SCBSTAR BIT IS SET 02700001 * ON */ 02750001 * 4 SCBDUMMY BIT(1), /* .DUMMY SCB - (WILL NOT 02800001 * BE SCHEDULED) X'10' - 02850001 * .(RESERVED) X'08' - 02900001 * .(RESERVED) */ 02950001 * 4 SCBESTAE BIT(1), /* ESTAE INDICATOR */ 03000002 * 4 * BIT(1), /* RESERVED */ 03050001 * 4 SCBASYNC BIT(1), /* .ALLOW ASYNCHRONOUS 03100001 * INTERRUPTS */ 03150001 * 4 SCBIOPRC BIT(2), /* .I/O PROCESSING OPTION, 03200001 * BITS 6 AND 7-- 00 - 03250001 * QUIESCE I/O 01 - HALT 03300001 * I/O 10 - BYPASS I/O 03350001 * INTERVENTION 11 - 03400001 * (RESERVED) */ 03450001 * 5 SCBNOIOP BIT(1), /* .BYPASS I/O INTERVENTION */ 03500001 * 5 SCBHALT BIT(1), /* .HALT I/O */ 03550001 * 3 SCBPARMA PTR(24) BDY(BYTE), /* ADDRESS OF PARAMETER 03600001 * LIST FOR STA EXIT */ 03650001 * 2 SCBOWNR PTR(31), /* TCB/RB ADDRESS 03700001 * CONTROLLING THIS SCB */ 03750001 * 3 SCBFLGS2 CHAR(1), /* SECOND FLAG BYTE... */ 03800001 * 4 * BIT(1), /* .RESERVED */ 03850002 * 4 SCBXCTL2 BIT(1), /* .RETAIN THIS SCB ACROSS 03950001 * XCTL X'40' - 04000002 * .(RESERVED) */ 04050001 * 4 * BIT(1), /* RESERVED */ 04100001 * 4 SCBINUSE BIT(1), /* .THIS SCB IN USE X'08' 04150001 * - .(RESERVED) X'04' - 04200001 * .(RESERVED) */ 04250001 * 4 * BIT(1), /* RESERVED */ 04300001 * 4 * BIT(1), /* RESERVED */ 04350001 * 4 SCBKEY0 BIT(1), /* .USER IN KEY 0 */ 04400001 * 4 SCBSUPER BIT(1), /* .USER IN SUPERVISOR MODE */ 04450001 * 3 SCBOWNRA PTR(24) BDY(BYTE), /* RB ADDRESS IF STAE/STAR, 04500002 * TCB ADDRESS IF STAI. */ 04550001 * 2 SCBDATA PTR(31), /* FLAGS AND DATA FIELD */ 04560002 * 3 SCBFLGS3 CHAR(1), /* OPTION FLAGS ... */ 04570002 * 4 * BIT(1), /* RESERVED */ 04580002 * 4 SCBTERMI BIT(1), /* AUTHORIZED FOR SPECIAL */ 04590002 * /* TERM PROCESSING */ 04594002 * 4 SCBRECRD BIT(1), /* ON INDICATES ERROR RECORD*/ 04596002 * /* TO BE WRITTEN TO */ 04598002 * /* SYS1.LOGREC */ 04598402 * 4 SCBCNCEL BIT(1), /* SCB IS LOGICALLY CANCELED*/ 04598802 * 4 SCBPRNTR BIT(1), /* SCB PREVIOUSLY ENTERED */ 04599202 * 4 SCBBRNTR BIT(1), /* BRANCH ENTERED SVC 60 */ 04599602 * 4 SCBTERMO BIT(1), /* TERM PROCESSING ONLY */ 04599702 * 4 * BIT(1), /* RESERVED */ 04599802 * 3 SCBPKEY CHAR(1), /* PROGRAM KEY */ 04610902 * 3 SCBID CHAR(1), /* SCB IDENTIFIER */ 04620902 * 3 SCBRSVRE CHAR(1); /* RESERVED */ 04622202 *%SCBLEN='LENGTH(SCB)'; /* LENGTH OF SCB */ 04633302