* 00050000 * %GOTO UCBL1; /* BILINGUAL MAPPING 00100000 MACRO 00150000 IEFUCBOB &LIST=NO,&PREFIX=NO */ 00200000 *%UCBL1 : ; 00250000 */* **************************************************************** */ 00300000 */* */ 00350000 */* U N I T C O N T R O L B L O C K */ 00400000 */* */ 00450000 */* **************************************************************** */ 00500000 */* */ 00550000 */* STATUS */ 00600000 */* */ 00650000 */* OS/VS2 PTF. 07/24/79, LEVEL=2, (3800 ENH. FDM1133 SUPPORT). */ 00660003 */* */ 00750000 */* METHOD OF ACCESS */ 00800000 */* */ 00850000 */* -MULTIPROCESSING PREFIX, COMMON AND DEVICE DEPENDENT SEGMENTS, */ 00900000 */* AND DEVICE DEPENDENT EXTENSIONS. */ 00950000 */* THE UCB ADDRESS LOCATED FROM THE UCB LOOK UP TABLE POINTS */ 01000000 */* TO THE COMMON SEGMENT. THIS ADDRESS MUST HAVE THE PREFIX */ 01050000 */* ADDRESSABILITY CONSTANT SUBTRACTED FROM IT IN ORDER TO MAP */ 01100000 */* THE PREFIX FIELDS AND STANDARD FIELDS VIA THIS MACRO. */ 01150000 */* */ 01200000 */* PL/S - DCL UCBPTR PTR */ 01250000 */* BAL - PREFIX=YES */ 01300000 */* A DSECT STATEMENT LABELED UCB IS PROVIDED. A */ 01350000 */* USING STATEMENT ON THE SYMBOL UCB WILL PROVIDE */ 01400000 */* ADDRESSABILITY TO ALL PORTIONS OF THIS MAPPING */ 01450000 */* MACRO EXCEPT THE EXTENSIONS. ADDITIONAL USING */ 01500000 */* STATEMENTS ARE NECESSARY TO OBTAIN ADDRESSING */ 01550000 */* TO THESE EXTENSIONS. THESE ARE AS FOLLOWS - */ 01600000 */* */ 01650000 */* COMMON EXTENSION UCBCMEXT */ 01700000 */* MAGNETIC TAPE EXTENSION UCBMT */ 01750000 */* OPTICAL CHARACTER READER EXT UCBOCR */ 01800000 */* 3540 DEVICE EXTENSION UCB3540X @Z30OP9A*/ 01820003 */* 3800 DEVICE EXTENSION UCB3800X @Z40MP9A*/ 01830004 */* UNIT RECORD WITH UCS EXTENSION UCBUCS */ 01850000 */* */ 01900000 */* WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH */ 01950000 */* DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER */ 02000000 */* IN THE DEFN COLUMN IN THE CROSS REFERENCE LISTING. */ 02050000 */* FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE */ 02100000 */* STATEMENT NUMBERS FOR UCBMT AND UCBOCR IS IN THE */ 02150000 */* UCBMT DSECT. */ 02200000 */* */ 02250000 */* -ALL PORTIONS EXCEPT THE MP PREFIX. */ 02300000 */* */ 02350000 */* BAL - PREFIX=NO OR THE PREFIX PARAMETER OMITTED OR EQUAL */ 02400000 */* TO ANY STRING OTHER THAN YES. */ 02450000 */* A DSECT STATEMENT SHOULD PRECEDE THE MACRO CALL. */ 02500000 */* SYMBOLS IN THE COMMON SECTION AND DEVICE DEPENDENT */ 02550000 */* SEGMENTS ARE ADDRESSABLE BY A USING ON UCBOB. */ 02600000 */* THE ABOVE COMMENTS ON THE EXTENSIONS APPLY HERE. */ 02650000 */* */ 02700000 */* F.E.'S */ 02750000 */* */ 02800000 */* MICROFICHE LISTING - IEFUCBOB */ 02850000 */* */ 02900000 */* DEVELOPERS */ 02950000 */* */ 03000000 */* BAL LISTING - SPECIFY LIST=YES ON MACRO CALL */ 03050000 */* PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE */ 03100000 */* */ 03150000 */* */ 03200000 */* FUNCTION */ 03250000 */* */ 03300000 */* A UNIT CONTROL BLOCK INCORPORATING A SYSTEM RESOURCE TABLE */ 03350000 */* RECORDS THE STATUS OF A PHYSICAL INPUT OUTPUT DEVICE */ 03400000 */* ADDRESS AND IS CREATED AND INITIALIZED DURING SYSTEM */ 03450000 */* GENERATION. THE UNIT CONTROL BLOCK RESIDES IN THE NUCLEUS */ 03500000 */* BELOW 64K AND MAY POINT TO A DEVICE TYPE DEPENDENT */ 03550003 */* EXTENSION RESIDING HIGHER IN THE NUCLEUS. */ 03600000 */* THE COMMON SEGMENT OF THE UCB IS POINTED TO BY */ 03650000 */* THE UCB LOOKUP TABLE WHICH IS INDEXED BY */ 03700000 */* A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRESS. */ 03750000 */* THE UCB MAY BE POINTED TO BY TASK INPUT/OUTPUT TABLES */ 03800000 */* AND DATA EXTENT BLOCKS. THE UCB WILL CONTAIN INDICES */ 03850000 */* INTO DEVICE STATISTICS, ATTENTION AND LOGICAL CHANNEL */ 03900000 */* TABLES. */ 03950000 */* */ 04000000 */* OUTPUT */ 04050000 */* MULTIPROCESSING PREFIX */ 04100000 */* SYSGEN INDEPENDENT COMMON SECTION */ 04150000 */* INCLUDING UCBTYP WORD */ 04200000 */* DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING) */ 04250000 */* DIRECT ACCESS */ 04300000 */* MAGNETIC TAPE */ 04350000 */* UNIT RECORD WITH UCS OR 3886 OR 3540 OR 3800 @Z40MP9A*/ 04400004 */* GRAPHICS EXCEPT 3270 */ 04450000 */* 3270 GRAPHICS */ 04500000 */* 3704, 3705 TELEPROCESSING DEVICE */ 04550000 */* CHANNEL-TO-CHANNEL DEVICE */ 04560004 */* 3851 OR 3838 DEVICE @G29AN9A*/ 04565016 */* COMMON EXTENSION */ 04600000 */* UCB EXTENSION (ONE OF THE FOLLOWING) */ 04650000 */* MAGNETIC TAPE */ 04700000 */* OPTICAL CHARACTER READER */ 04750000 */* 3540 DEVICE @Z30OP9A*/ 04770003 */* 3800 DEVICE @Z40MP9A*/ 04780004 */* UNIT RECORD WITH UNIVERSAL CHARACTER SET */ 04800000 */* */ 04850000 */* **************************************************************** */ 04900000 *%GOTO UCBL2; /* 04950000 PUSH PRINT 05000000 AIF ('&LIST' EQ 'YES').UCB1 05050000 PRINT OFF 05100000 .UCB1 ANOP 05150000 AIF ('&PREFIX' NE 'YES').UCB001 05200000 UCB DSECT , - UCBPTR-512 05250000 UCBBGN EQU * - MDC158 05300000 DS 126F - RESERVED 05350000 UCBPXST EQU * - START OF USED FIELDS IN PREFIX 05400000 * MDC187 05450000 UCBLOCK DS F - DEVICE LOCK MDC238 05500000 UCBIOQ DS A - ADDRESS OF LAST QUEUING ELEMENT USED 05550000 * FOR THIS DEVICE. ADDRESS OF ERP 05600000 * WORK AREA DURING INTERCEPT AND 05650000 * ASYNCHRONOUS ATTENTION/DEVICE END 05700000 * WITH UNIT CHECK CONDITIONS. WHEN 05750000 * DIRECT ACCESS VOLUME VERIFICATION 05800000 * (DAVV) IS WAITING FOR A VOLUME 05850000 * MOUNT, THIS FIELD WILL POINT TO THE 05900000 * DAVV SRB. MDC197 05950000 UCBCURPX EQU *-UCBPXST - ACTUAL PREFIX DATA LENGTH MDC151 06000000 UCBPRFX EQU *-UCB - TOTAL PREFIX LENGTH FOR PREFIX 06050000 * ADDRESSABILITY MDC152 06100000 SPACE 3 06150000 .UCB001 ANOP 06200000 *********************************************************************** 06250000 * 06300000 * SYSGEN-INDEPENDENT 06350000 * COMMON SECTION 06400000 * 06450000 UCBOB DS 0F 06500000 AIF ('&PREFIX' EQ 'YES').UCB002 06550000 UCBBGN EQU * - MDC158 06600000 .UCB002 ANOP 06650000 * 06700000 *********************************************************************** 06750000 * 06800000 UCBCMSEG EQU * - START OF COMMON SECTION MDC168 06850000 UCBJBNR DS B - FLAG BYTE (OS/VS2) MDC012 06900000 UCBVRDEV EQU X'80' - UCB FOR VIO DEVICE (MDC366) @G51BP9A 06950051 UCBJES3 EQU X'40' - ALL VOLUME MOUNTING AND DEVICE 07000000 * MANAGEMENT FOR THIS DEVICE IS 07050000 * CONTROLLED BY JES3 MDC246 07100000 UCBDUC EQU X'20' - DISPLAY DEVICE UNIT CHECK - IPL 07150004 * (MDC347) @ZA04127 07160004 UCBBOX EQU X'10' - IF THIS BIT AND UCBIORST BIT ARE ON, 07200041 * THE DEVICE HA BEEN FORCED OFFLINE 07210041 * DUE TO A ERROR (MDC383) @ZA36385 07220041 UCBOLDSM EQU X'08' - OLTEP COMMUNICATING DIRECTLY WITH 07250003 * THE MASS STORAGE CONTROL (MSC), 07258003 * NOT THROUGH THE MASS STORAGE SYSTEM 07266003 * COMMUNICATOR (MSSC) 07274003 * (MDC301) @Z30LP9A 07282003 UCBMMSGP EQU X'04' - MOUNT MESSAGE PENDING. THE DEVICE 07300003 * HAS BEEN SELECTED BY DEVICE 07310003 * ALLOCATION, BUT NO MOUNT MESSAGE HAS 07320003 * BEEN ISSUED. (MDC361) @ZA14242 07330003 UCBURINP EQU X'02' - UNCONDITIONAL RESERVE IN PROGRESS 07350041 * (MDC384) @ZA36385 07360041 UCBMONT EQU X'01' - VOLUME TO BE MOUNTED IS TO BE 07400000 * RETAINED OR CONTAIN A PASSED DATA 07450000 * SET (SET BY DEVICE ALLOCATION OR 07500000 * DATA MANAGEMENT FOR OS/VS2) MDC014 07550000 UCBFL5 DS B - FLAGS 07600000 UCBDCC EQU X'80' - DISCONNECT COMMAND CHAIN DEVICE 07650000 * MDC098 07700000 UCBAF EQU X'40' - ATTENTION FOR THIS CONSOLE DEVICE 07750000 * IS TO BE PROCESSED BY THE 07800000 * COMMUNICATIONS TASK ICB321 07850000 UCBAMV EQU X'40' - SUCCESSFUL COMPARISON CHECKING OF 07900000 * THE ACCESS METHOD CATALOG AND THE 07950000 * VTOC (VSAM DIRECT ACCESS DEVICES 08000000 * ONLY) ICB437 08050000 UCBSASK EQU X'20' - DEVICE REQUIRES STAND ALONE 08100000 * SEEK MDC099 08150000 UCBVSDR EQU X'10' - DEVICE HAS VARIABLE LENGTH SDR'S 08200000 UCBENVRD EQU X'08' - DEVICE RETURNS ENVIRONMENTAL 08250000 * DATA MDC100 08300000 UCBNALOC EQU X'04' - THIS OFFLINE DEVICE IS BEING USED BY 08350000 * A SYSTEM COMPONENT. THE DEVICE 08400000 * STATUS MUST NOT CHANGE TO ONLINE NOR 08450000 * WILL IT BE ALLOCATED. THE LAST 08500000 * PATH/CHANNEL/CPU TO THE DEVICE MUST 08550000 * NOT BE VARY'ED OFFLINE. THE DEVICE 08600000 * IS UNAVAILABLE FOR USAGE BY ANOTHER 08650000 * SYSTEM COMPONENT WHICH PROCESSES 08700000 * OFFLINE DEVICES. TO SET THIS 08750000 * INDICATOR ON, A COMPONENT MUST 08800000 * OBTAIN VIA ENQ, EXCLUSIVE, SYSTEM 08850000 * LEVEL CONTROL OF RESOURCE SYSIEFSD, 08900000 * Q4. SERIALIZATION IS NOT REQUIRED 08950000 * TO TURN THIS INDICATOR OFF. MDC027 09000000 UCBALTCU EQU X'02' - DEVICE HAS AN ALTERNATE CONTROL UNIT 09050000 * ADDRESS 09100000 UCBALTPH EQU X'01' - DEVICE HAS AN ALTERNATE PATH 09150000 UCBID DS C - UCB IDENTIFICATION (FF) 09200000 UCBSTND EQU X'FF' - STANDARD UCB MDC101 09250000 UCBSTAT DS B - DEVICE STATUS 09300000 UCBONLI EQU X'80' - DEVICE IS ONLINE 09350000 UCBCHGS EQU X'40' - DEVICE STATUS IS TO BE CHANGED FROM 09400000 * ONLINE TO OFFLINE, AND EITHER 09450000 * ALLOCATION IS ENQUEUED ON DEVICES 09500000 * OR THE DEVICE IS ALLOCATED. (BIT 0 09550000 * IS ALSO ON.) 09600000 UCBRESV EQU X'20' - THE MOUNT STATUS OF THE VOLUME ON 09650000 * THIS DEVICE IS RESERVED 09700000 UCBUNLD EQU X'10' - UNLOAD OPERATOR COMMAND HAS BEEN 09750000 * ADDRESSED TO THIS DEVICE. THE 09800000 * DEVICE IS NOT YET UNLOADED. 09850000 UCBALOC EQU X'08' - DEVICE IS ALLOCATED 09900000 UCBPRES EQU X'04' - THE MOUNT STATUS OF THE VOLUME ON 09950000 * THIS DEVICE IS PERMANENTLY RESIDENT 10000000 UCBSYSR EQU X'02' - SYSTEM RESIDENCE DEVICE OR 10050000 * PRIMARY CONSOLE OR 10100000 * ACTIVE CONSOLE 10150000 UCBDADI EQU X'01' - STANDARD TAPE LABELS HAVE BEEN 10200000 * VERIFIED FOR THIS TAPE VOLUME 10250000 * OR SECONDARY CONSOLE OR 10300000 * CONSOLE STATUS CHANGING 10350000 UCBCHAN DS 0FL2 - BINARY CHANNEL/UNIT ADDRESS MDC102 10400000 UCBCHA DS FL1 - BINARY CHANNEL ADDRESS OF LAST 10450000 * STARTED I/O OPERATION 10500000 UCBUA DS FL1 - BINARY UNIT ADDRESS 10550000 UCBSFLS DS 0BL2 - DEVICE STATUS FLAGS MDC103 10600000 UCBFLA DS BL1 - I/O SUPERVISOR FLAG BYTE A MDC104 10650000 UCBFL1 EQU UCBFLA - ALIAS 10700000 UCBBSY EQU X'80' - DEVICE IS BUSY MDC105 10750000 UCBBUSYD EQU UCBBSY - ALIAS 10800000 UCBNRY EQU X'40' - DEVICE NOT READY MDC106 10850000 UCBNOTRD EQU UCBNRY - ALIAS 10900000 UCBPST EQU X'20' - POST FLAG (ASSOC IOQE) MDC107 10950000 UCBUSING EQU UCBPST - ALIAS 11000000 UCBPSNS EQU X'10' - PENDING SENSE OPERATION MDC108 11050000 UCBCUB EQU X'08' - CONTROL UNIT BUSY MDC109 11100000 UCBNOTRC EQU UCBCUB - ALIAS 11150000 UCBSAP EQU X'04' - STAND ALONE PROCESS ON DEVICE ACTIVE 11200000 * (EG., RESERVE) MDC110 11250000 UCBACTV EQU X'02' - CHANNEL PROGRAM ACTIVE ON DEVICE 11300000 * MDC111 11350000 UCBQISCE EQU X'01' - DEVICE QUIESCED MDC112 11400000 UCBFLB DS BL1 - I/O SUPERVISOR FLAG BYTE B MDC113 11450000 UCBIORST EQU X'80' - I/O RESTART VIA ALTERNATE CPU 11500000 * RECOVERY HAS FACTORED DEVICE OUT 11550000 * OF CONFIGURATION BECAUSE OF 11600000 * NON-ACCESSABILITY. ALL INCOMING 11650000 * I/O REQUESTS ARE INTERCEPTED AND 11700000 * MARKED IN PERMANENT ERROR WITH A 11750000 * COMPLETION CODE OF X'51'. 11800003 * HOWEVER, IF CHANNEL RECONFIGURATION 11805003 * HARDWARE (CRH) IS ACTIVE AND CRH 11810003 * WILL BE USED TO ACCESS THE DEVICE 11815003 * ASSOCIATED WITH THE UCB, THIS BIT 11820003 * WILL BE ON IN EVERY UCB THAT HAS 11825003 * OUTSTANDING I/O ACROSS A CRH PATH. 11830003 * (MDC320) @Z30CQ9A 11835003 UCBASNS EQU X'40' - SENSE ACTIVE ON DEVICE MDC115 11850000 UCBSPST EQU X'20' - SENSE POST INDICATOR MDC116 11900000 UCBRESVH EQU X'10' - DEVICE RESERVED INDICATOR MDC157 11950000 UCBCRHRV EQU X'08' - RESERVED PATH THROUGH A CHANNEL 12000003 * RECONFIGURATION HARDWARE (CRH) 12010003 * CONNECTION (MDC303) @Z30CQ9A 12020003 UCBCRHSN EQU X'04' - IF 1, SENSE PENDING FROM INOPERATIVE 12050003 * CPU. IF 0, SENSE PENDING FROM 12058003 * OPERATIVE CPU. BIT IS SET ONLY WHEN 12066003 * CHANNEL RECONFIGURATION HARDWARE 12074003 * (CRH) IS ACTIVE. (MDC332) @Z30CQ9A 12082003 UCBVALPH EQU X'02' - PATH VALIDATION (MDC337) @ZA00078 12100003 UCBSIGP EQU X'01' - IOS SIGP INDICATOR TO PREVENT 12150004 * PING/PONG (MDC346) @ZA03601 12160004 UCBCHM DS 0B - PATH STATUS MASK FOR THIS DEVICE 12200000 * MDC198 12250000 UCBCHM1 DS B - SAME AS UCBCHM MDC199 12300000 UCBPTH0 EQU X'C0' - PATHS FROM CPU 0 MDC200 12350000 UCBPPA EQU X'80' - PRIMARY PATH CPU 0. IF 0, PATH IS 12400004 * AVAILABLE. IF 1, PATH IS 12410004 * UNAVAILABLE. (MDC350) @Z40AQ9A 12420004 UCBSPA EQU X'40' - SECONDARY PATH CPU 0. IF 0, PATH IS 12450004 * AVAILABLE. IF 1, PATH IS 12460004 * UNAVAILABLE. (MDC351) @Z40AQ9A 12470004 UCBPTH1 EQU X'30' - PATHS FROM CPU 1 MDC203 12500000 UCBPPB EQU X'20' - PRIMARY PATH CPU 1. IF 0, PATH IS 12550004 * AVAILABLE. IF 1, PATH IS 12560004 * UNAVAILABLE. (MDC352) @Z40AQ9A 12570004 UCBSPB EQU X'10' - SECONDARY PATH CPU 1. IF 0, PATH IS 12600004 * AVAILABLE. IF 1, PATH IS 12610004 * UNAVAILABLE. (MDC353) @Z40AQ9A 12620004 UCBRV014 EQU X'08',,C'X' - RESERVED 12650000 UCBRV015 EQU X'04',,C'X' - RESERVED 12700000 UCBRV016 EQU X'02',,C'X' - RESERVED 12750000 UCBRV017 EQU X'01',,C'X' - RESERVED 12800000 UCBCNT DS FL1 - COUNT OF QUEUED REQUESTS WAITING 12850000 * FOR DEVICE MDC206 12900000 UCBLCI DS FL1 - INCREMENT WHICH, WHEN MULTIPLIED BY 12950000 * 32, BECOMES AN INDEX TO THE LOGICAL 13000004 * CHANNEL TABLE (LCHTAB) 13050000 * (MDC349) @Z40AQ9A 13070004 UCBCPU DS XL1 - LAST SIO TO DEVICE ISSUED FROM THIS 13100000 * CPUID MDC207 13150000 UCBWGT DS B - FLAGS 13200000 UCBIN EQU X'80' - SYSIN 13250000 UCBOUT EQU X'40' - SYSOUT 13300000 UCBPUB EQU X'20' - ASSUMED THAT THIS DEVICE WILL BE 13350000 * ALLOCATED FOR A PUBLIC VOLUME 13400000 * REQUEST 13450000 UCBREW EQU X'10' - REWIND COMMAND HAS BEEN ADDRESSED TO 13500000 * THIS MAGNETIC DEVICE BY I/O SUPPORT 13550000 UCBMTPXP EQU X'08' - MULTIPLE EXPOSURE DEVICE MDC117 13600000 UCBVORSN EQU X'04' - VARY COMMAND OPERATOR REASON 13650000 * INDICATOR MDC118 13700000 UCBVHRSN EQU X'02' - VARY COMMAND HIERARCHY REASON 13750000 * INDICATOR MDC119 13800000 UCBRV029 EQU X'01',,C'X' - RESERVED MDC028 13850000 UCBNAME DS CL3 - UNIT NAME (EBCDIC) 13900000 UCBTYP DS 0CL4 - DEVICE TYPE 13950000 UCBTBYT1 DS B - MODEL BITS 14000000 UCB1FEA0 EQU X'80' - BIT 0 14050000 UCB1FEA1 EQU X'40' - BIT 1 14100000 UCB1FEA2 EQU X'20' - BIT 2 14150000 UCB1FEA3 EQU X'10' - BIT 3 14200000 UCB1FEA4 EQU X'08' - BIT 4 14250000 UCB1FEA5 EQU X'04' - BIT 5 14300000 UCBD1600 EQU X'04' - 1600 BPI ICB475 14350000 UCB1FEA6 EQU X'02' - BIT 6 14400000 UCBD6250 EQU X'02' - 6250 BPI ICB475 14450000 UCB1FEA7 EQU X'01' - BIT 7 14500000 UCBTBYT2 DS B - OPTION FLAGS 14550000 UCB2OPT0 EQU X'80' - FLAG 0 14600000 UCB2OPT1 EQU X'40' - FLAG 1 14650000 UCB2OPT2 EQU X'20' - FLAG 2 14700000 UCBDUDN1 EQU X'20' - DUAL DENSITY 800/1600 BPI ICB475 14750000 UCBRR EQU X'20' - THIS DEVICE IS SHARABLE BETWEEN 14800000 * TWO CPU'S (DIRECT ACCESS) MDC159 14850000 UCB2OPT3 EQU X'10' - FLAG 3 14900000 UCBDUDN2 EQU X'10' - DUAL DENSITY 1600/6250 BPI ICB475 14950000 UCBRPS EQU X'10' - ROTATIONAL POSITION SENSING (RPS) 15000000 * DEVICE (DIRECT ACCESS) MDC120 15050000 UCB2OPT4 EQU X'08' - FLAG 4 15100000 UCBRWTAU EQU X'08' - READ/WRITE TAPE CONTROL MDC166 15150000 UCBRVDEV EQU X'08' - IF 0, REAL DEVICE. IF 1, VIRTUAL 15160003 * DEVICE. (DIRECT ACCESS) 15170003 * (MDC300) @Z30LP9A 15180003 UCB2OPT5 EQU X'04' - FLAG 5 15200000 UCB2OPT6 EQU X'02' - FLAG 6 15250000 UCBVLPWR EQU X'02' - VOLUME REQUIRES ALTERNATE POWER 15300003 * SOURCE DEVICE (MDC322) @Z30AQ9A 15310003 UCB2OPT7 EQU X'01' - FLAG 7 15350000 UCBDVPWR EQU X'01' - DEVICE HAS ALTERNATE POWER SOURCE 15400003 * (MDC323) @Z30AQ9A 15410003 UCBDVCLS DS 0B - SAME AS UCBTBYT3 MDC169 15450000 UCBTBYT3 DS B - CLASS BITS 15500000 UCB3TAPE EQU X'80' - TAPE 15550000 UCB3COMM EQU X'40' - COMMUNICATIONS 15600000 UCB3CTC EQU X'41' - CHANNEL-TO-CHANNEL ADAPTER MDC239 15650000 UCB3DACC EQU X'20' - DIRECT ACCESS 15700000 UCB3DISP EQU X'10' - DISPLAY 15750000 UCB3UREC EQU X'08' - UNIT RECORD 15800000 UCB3CHAR EQU X'04' - CHARACTER READER 15850000 UCBRSV10 EQU X'02',,C'X' - RESERVED 15900000 UCBRSV11 EQU X'01',,C'X' - RESERVED 15950000 UCBUNTYP DS 0C - SAME AS UCBTBYT4 MDC170 16000000 UCBTBYT4 DS C - DEVICE CODE 16050000 UCB3791L EQU X'F1' - 3791 LOCAL CONTROL UNIT 16053004 * (MDC342) @Z40KP9A 16056004 UCB3838 EQU X'4C' - 3838 ARRAY PROCESSOR 16057016 * (MDC360) @G29AN9A 16058016 UCBDSM EQU X'42' - MASS STORAGE CONTROL (MSC) (3851) 16060003 * (MDC329) @Z30LP9A 16070003 UCB7443 EQU X'3D' - 7443 SERVICE RECORD FILE 16073051 * (MDC368) @G51DP9A 16076051 UCB3895 EQU X'19' - 3895 DEVICE (MDC363) @G30AP9A 16080016 UCB42AD1 EQU X'11' - 2702 CONTROL UNIT WITH TYPE 1 16100000 * ADAPTOR 16150000 UCB3800 EQU X'0E' - 3800 DEVICE (MDC321) @Z40MP9A 16170004 UCB3036 EQU X'0D' - 3036 DISPLAY CONSOLE 16180051 * (MDC367) @G51AP9A 16190051 UCB3211 EQU X'09' - 3211 PRINTER MDC165 16200000 UCB3400 EQU X'03' - 3400 MAGNETIC TAPE MDC021 16250000 UCB2400 EQU X'01' - 2400 SERIES MAGNETIC TAPE 16300000 * DEVICE ICB376 16350000 UCBEXTPT DS 0A - ADDRESS OF COMMON UCB EXTENSION 16400000 * MDC227 16450000 UCBFLC DS BL1 - I/O SUPERVISOR FLAG BYTE C MDC228 16500000 UCBATTP EQU X'80' - ATTENTION PENDING MDC229 16550000 UCBWAA EQU X'40' - WORK AREA APPENDED MDC230 16600000 UCBUDE EQU X'20' - UNSOLICITED DEVICE END RECEIVED 16650000 * MDC231 16700000 UCBITF EQU X'10' - INTERCEPT CONDITION MDC232 16750000 UCBIVRS EQU X'08' - INTERVENTION REQUIRED MESSAGE 16800000 * ISSUED MDC233 16850000 UCBIVRR EQU X'04' - INTERVENTION REQUIRED MESSAGE 16900000 * IS NEEDED MDC234 16950000 UCBTICBT EQU X'02' - CHANNEL END AND/OR DEVICE END 17000000 * OR MOUNT CONDITION PENDING. MDC235 17050000 UCBDDRSW EQU X'01' - DDR SWITCH PENDING ON THIS 17100000 * DEVICE MDC236 17150000 UCBEXTP DS AL3 - ADDRESS OF COMMON UCB EXTENSION 17200000 * MDC237 17250000 * 17300000 SRTEJBNR EQU UCBJBNR - ALIAS 17350000 SRTEMNT EQU UCBMONT - ALIAS 17400000 SRTESTAT EQU UCBSTAT - ALIAS 17450000 SRTEONLI EQU UCBONLI - ALIAS 17500000 SRTECHGS EQU UCBCHGS - ALIAS 17550000 SRTERESV EQU UCBRESV - ALIAS 17600000 SRTEUNLD EQU UCBUNLD - ALIAS 17650000 SRTEALOC EQU UCBALOC - ALIAS 17700000 SRTEPRES EQU UCBPRES - ALIAS 17750000 SRTESYSR EQU UCBSYSR - ALIAS 17800000 SRTEDADI EQU UCBDADI - ALIAS 17850000 UCBFL2 EQU UCBFL1 - ALIAS (UCBCHA WAS ONCE UCBFL1) 17900000 * 17950000 *********************************************************************** 18000000 * 18050000 * DEVICE-DEPENDENT UCB SEGMENTS 18100000 * 18150000 UCBDEV EQU * 18200000 * 18250000 *********************************************************************** 18300000 * 18350000 * DIRECT ACCESS DEVICE SEGMENT 18400000 * 18450000 ORG UCBDEV - DEVICE-DEPENDENT SEGMENT 18500000 * 18550000 * UCBVOLI, UCBSTAB AND UCBDMCT ARE SAME IN TAPE SEGMENT AS 18600000 * IN DIRECT ACCESS SEGMENT 18650000 * 18700000 *********************************************************************** 18750000 * 18800000 UCBVTOC DS CL4 - RELATIVE ADDRESS OF VTOC FOR THIS 18850000 * VOLUME, IN FORM TTR0 MDC085 18900000 UCBVOLI DS CL6 - VOLUME SERIAL NUMBER 18950000 UCBSTAB DS BL1 - VOLUME STATUS 19000000 UCBBSVL EQU X'80' - VOLUME DEMOUNTABLE BY DATA 19050000 * MANAGEMENT (DIRECT ACCESS) 19100000 * (OS/VS2) MDC008 19150000 UCBDVSHR EQU X'80' - DEVICE NOT SHARABLE AMONG SEVERAL 19200000 * CPU'S (3420 MAGNETIC TAPE DEVICES 19250000 * ONLY) (MDC245) XA03017 19300000 UCBPGFL EQU X'40' - UCB IS OPEN AND IS BEING USED AS A 19350000 * PAGE FILE 19400000 UCBPRSRS EQU X'20' - DURING VOLUME ATTRIBUTE PROCESSING 19450000 * THIS BIT IS USED BOTH TO DENOTE 19500000 * UCB'S THAT WERE MARKED PERMANENTLY 19550000 * RESIDENT PRIOR TO GETTING CONTROL 19600000 * AND TO IDENTIFY DEVICES THAT WERE 19650000 * SELECTED BY THE OPERATOR FOR 19700000 * MOUNTING VOLUMES (DIRECT ACCESS) 19750000 * MDC162 19800000 UCBBALB EQU X'20' - ADDITIONAL VOLUME LABEL PROCESSING 19850000 * (TAPE) 19900000 UCBBPRV EQU X'10' - PRIVATE - VOLUME USE STATUS 19950000 UCBBPUB EQU X'08' - PUBLIC - VOLUME USE STATUS 20000000 UCBBSTR EQU X'04' - STORAGE - VOLUME USE STATUS 20050000 * (DIRECT ACCESS) 20100000 * THE VOLUME MOUNTED HAS AN AMERICAN 20150000 * NATIONAL STANDARD LABEL (TAPE) 20200000 UCBSHAR EQU X'02' - VOLUME SHAREABLE AMONG JOB STEPS 20250000 * (OS/VS2) MDC020 20300000 UCBBNUL EQU X'01' - CONTROL VOLUME - A CATALOG DATA SET 20350000 * IS ON THIS VOLUME (DIRECT ACCESS) 20400000 * IF THE MULTIPLE CONSOLE SUPPORT 20450000 * OPTION IS IN THE SYSTEM, DEMOUNT OR 20500000 * MOUNT MESSAGES HAVE BEEN ISSUED AND 20550000 * THE MESSAGE ID'S ARE AT OFFSETS 40 20600000 * THROUGH 45. OPEN WILL DELETE THE 20650000 * MESSAGES AND TURN THIS BIT OFF. 20700000 * (TAPE) 20750000 UCBDMCT DS XL1 - VOLUME USE BYTE 20800000 UCBMOUNT EQU X'80' - IF 0, A MOUNT VERIFICATION HAS BEEN 20850000 * PERFORMED. IF 1, A MOUNT REQUEST 20900000 * HAS BEEN ISSUED. (DIRECT ACCESS) 20950000 * FOR TAPE, THE FOLLOWING MEANINGS 21000000 * APPLY. 21050000 * NORMAL SCHEDULER PROCESSING - IF 0, 21100000 * NO VOLUME HAS BEEN MOUNTED. IF 1, 21150000 * A VOLUME HAS BEEN MOUNTED BUT NO 21200000 * VOLUME LABEL PROCESSING HAS BEEN 21250000 * PERFORMED. 21300000 * SL OPEN ROUTINE - IF 0, STANDARD 21350000 * VOLUME LABEL AND CORRECT SERIAL 21400000 * NUMBER HAVE BEEN VERIFIED. IF 1, 21450000 * VOLUME LABEL IS NOT STANDARD FORMAT 21500000 * OR SERIAL NUMBER IS NOT CORRECT. 21550000 * (A MOUNT MESSAGE HAS BEEN ISSUED.) 21600000 * NSL OPEN ROUTINE - IF 0, 21650000 * NON-STANDARD VOLUME LABEL HAS BEEN 21700000 * VERIFIED. IF 1, VOLUME LABEL IS NOT 21750000 * STANDARD FORMAT. (CONTROL PASSES TO 21800000 * THE PROCESSING PROGRAM'S 21850000 * NON-STANDARD LABEL PROCESSING 21900000 * ROUTINE.) VOLUME LABEL IS STANDARD 21950000 * FORMAT. (CONTROL REMAINS WITH THE 22000000 * OPEN ROUTINE. A MOUNT MESSAGE HAS 22050000 * BEEN ISSUED.) 22100000 * BLP OPEN ROUTINE - IF 0, VOLUME 22150000 * LABEL HAS NOT BEEN PROCESSED. 22200000 UCBDMC EQU X'7F' - NUMBER OF DCB'S OPEN FOR THIS VOLUME 22250000 UCBDATP EQU * - END OF COMMON DIRECT ACCESS/TAPE 22300000 * AREA 22350000 UCBSQC DS FL1 - NUMBER OF RESERVE MACRO INSTRUCTIONS 22400000 * ISSUED MDC086 22450000 UCBFL4 DS BL1 - DIRECT ACCESS FLAG BYTE MDC087 22500000 UCBDAVV EQU X'80' - DIRECT ACCESS VOLUME VERIFICATION 22550000 * IN CONTROL (DAVV) MDC127 22600000 UCBWDAV EQU X'40' - DAVV WAITING FOR MOUNT MDC128 22650000 UCBRESVP EQU X'20' - RESERVE CHANNEL PROGRAM PENDING 22700003 * (MDC356) @ZA06072 22710003 UCBDSS EQU X'10' - READ HOME ADDRESS AND READ RECORD 22750000 * ZERO OPERATIONS HAVE BEEN PERFORMED 22800000 * BY DYNAMIC SUPPORT SYSTEM (DSS) 22850000 * MDC088 22900000 UCBATTN EQU X'08' - 3330V ATTENTION RECEIVED 22920016 * (MDC357) @G24LP9A 22950016 UCBHOLD EQU X'04' - 3330V CYLINDER FAULT PENDING 23000016 * (MDC358) @G24LP9A 23010016 UCBMAT EQU X'02' - 3330V ATTENTION OVERDUE 23050016 * (MDC359) @G24LP9A 23060016 UCBRRP EQU X'01' - - RESERVE/RELEASE PENDING 23100000 * (MDC373) @G64DP9A 23110000 UCBUSER DS FL1 - NUMBER OF CURRENT USERS MDC089 23150000 UCBSATI DS FL1 - ATTENTION TABLE INDEX @ZA41195 23200003 * SAVED BY THE SCHEDULER. 23216603 * (MDC395) @ZA41195 23233203 UCBBASE DS A - ADDRESS OF BASE EXPOSURE UCB MDC130 23250000 UCBNEXP DS A - BASE - ADDRESS OF LAST STARTED 23300000 * EXPOSURE 23350000 * NON-BASE - ADDRESS OF NEXT 23400000 * EXPOSURE IN THE RING 23450000 * THIS ADDRESS POINTS TO THE 23500000 * MULTIPROCESSING PREFIX MDC131 23550000 * 23600000 *********************************************************************** 23650000 * 23700000 * MAGNETIC TAPE SEGMENT 23750000 * 23800000 ORG UCBDEV - DEVICE-DEPENDENT SEGMENT 23850000 * 23900000 * UCBVOLI, UCBSTAB AND UCBDMCT ARE SAME IN TAPE SEGMENT AS 23950000 * IN DIRECT ACCESS SEGMENT 24000000 * 24050000 *********************************************************************** 24100000 * 24150000 UCBFSCT DS H - DATA SET SEQUENCE COUNT MDC090 24200000 UCBFSEQ DS H - DATA SET SEQUENCE NUMBER MDC091 24250000 DS CL8 - UCBVOLI, UCBSTAB AND UCBDMCT AS IN 24300000 * DIRECT ACCESS SEGMENT 24350000 UCBFSER DS CL6 - BEFORE OPEN, MESSAGE ID'S. SEE 24400000 * UCBSTAB BIT 7. AFTER OPEN, DATA 24450000 * SET SERIAL NUMBER MDC092 24500000 UCBRES1B DS XL1 - RESERVED 24550000 UCBTFL1 DS B - FLAG BYTE (TAPE DEVICES ONLY) MDC015 24600000 UCBNLTP EQU X'80' - TAPE VOLUME DOES NOT CONTAIN 24650000 * LABELS MDC016 24700000 UCBNSLTP EQU X'40' - TAPE CONTAINS NON-STANDARD 24750000 * LABELS MDC017 24800000 UCBDQDSP EQU X'20' - DEQUEUE TAPE VOLUME WHEN DEMOUNTED 24850003 * (MDC369) @ZA18180 24860003 UCBRV005 EQU X'10',,C'X' - RESERVED 24900000 UCBRV006 EQU X'08',,C'X' - RESERVED 24950000 UCBRV007 EQU X'04',,C'X' - RESERVED 25000000 UCBRV008 EQU X'02',,C'X' - RESERVED 25050000 UCBRV009 EQU X'01',,C'X' - RESERVED 25100000 UCBXTN DS 0A - ADDRESS OF THE MAGNETIC TAPE UCB 25150000 * EXTENSION MDC093 25200000 UCBVOPT DS BL1 - VOLUME STATISTICS OPTION BITS MDC094 25250000 UCBESV EQU X'80' - ERROR STATISTICS BY VOLUME (ESV) 25300000 * RECORDS KEPT MDC094 25350000 UCBEVA EQU X'40' - ERROR VOLUME ANALYSIS (EVA) RECORDS 25400000 * KEPT MDC094 25450000 UCBESVC EQU X'20' - IF 0, ESV RECORDS SENT TO SYS1.MAN 25500000 * (X OR Y) DATA SET. 25550000 * IF 1, ESV RECORDS SENT TO CONSOLE. 25600000 * MDC094 25650000 UCBERPC EQU X'10' - AN ERROR RECOVERY PROCEDURE HAS 25700000 * CONTROL MDC094 25750000 UCBESVE EQU X'08' - AN ESV RECORD HAS BEEN ISSUED FOR 25800000 * THIS VOLUME BECAUSE OF AN EOV 25850000 * CONDITION MDC094 25900000 UCBRSV20 EQU X'04',,C'X' - RESERVED MDC094 25950000 UCBRSV21 EQU X'02',,C'X' - RESERVED MDC094 26000000 UCBRSV22 EQU X'01',,C'X' - RESERVED MDC094 26050000 UCBXTNB DS AL3 - ADDRESS OF THE MAGNETIC TAPE UCB 26100000 * EXTENSION MDC095 26150000 * 26200000 SRTEVOLI EQU UCBVOLI - ALIAS 26250000 SRTESTAB EQU UCBSTAB - ALIAS 26300000 SRTEBSVL EQU UCBBSVL - ALIAS 26350000 SRTEBALB EQU UCBBALB - ALIAS 26400000 SRTEBPRV EQU UCBBPRV - ALIAS 26450000 SRTEBPUB EQU UCBBPUB - ALIAS 26500000 SRTEBSTR EQU UCBBSTR - ALIAS 26550000 SRTEASCI EQU UCBBSTR - ALIAS 26600000 UCBASCI EQU SRTEASCI - ALIAS 26650000 SRTEBVQS EQU SRTEBSTR - ALIAS 26700000 SRTEBNUL EQU UCBBNUL - ALIAS 26750000 SRTEDMCT EQU UCBDMCT - ALIAS 26800000 SRTEFSCT EQU UCBFSCT - ALIAS 26850000 SRTEFSEQ EQU UCBFSEQ - ALIAS 26900000 SRTEUSER EQU UCBUSER - ALIAS 26950000 * 27000000 *********************************************************************** 27050000 * 27100000 * UNIT RECORD WITH 27150000 * UNIVERSAL CHARACTER SET (1403, 3211) 27200000 * OR OPTICAL CHARACTER READER (3886) 27250000 * OR 3540 DEVICE @Z30OP9A 27270003 * OR 3800 DEVICE @Z40MP9A 27280004 * UCB SEGMENT 27300000 * 27350000 ORG UCBDEV - DEVICE-DEPENDENT SEGMENT 27400000 * 27450000 *********************************************************************** 27500000 * 27550000 UCBXTADR DS A - ADDRESS OF UCS UCB EXTENSION (1403 27600000 * OR 3211) OR ADDRESS OF OPTICAL 27650000 * CHARACTER READER UCB EXTENSION 27700000 * (3886) OR ADDRESS OF 3540 DEVICE 27750003 * UCB EXTENSION (3540) OR ADDRESS OF 27760004 * 3800 UCB EXTENSION (3800) (MDC304) 27763004 * @Z40MP9A 27770004 * 27800000 *********************************************************************** 27850000 * 27900000 * GRAPHICS EXCEPT 3270 27950000 * UCB SEGMENT 28000000 * 28050000 ORG UCBDEV - DEVICE-DEPENDENT SEGMENT 28100000 * 28150000 *********************************************************************** 28200000 * 28250000 UCBSTART DS H - LAST START ADDRESS (MDC247) YM4067 28300000 UCBOPEN DS FL1 - NUMBER OF DCB'S THAT ARE CURRENTLY 28350000 * OPEN FOR THIS DEVICE 28400000 UCBGCB DS C - GRAPHIC CONTROL BYTE USED FOR 28450000 * ATTENTION HANDLING 28500000 UCBTEB DS A - ADDRESS OF TASK ENTRY (TE) BLOCK 28550000 UCBSNS DS XL4 - SENSE INFORMATION (MDC248) YM4067 28600000 UCBBTA DS 0A - ADDRESS OF BUFFER TABLE 28650000 UCBDI DS FL1 - DEVICE OR DEVICES ON A CONTROL UNIT 28700000 * TO WHICH BUFFER SECTIONS ARE 28750000 * ASSIGNED 28800000 UCBBTB DS AL3 - ADDRESS OF BUFFER TABLE 28850000 * 28900000 *********************************************************************** 28950000 * 29000000 * 3270 GRAPHICS 29050000 * UCB SEGMENT 29100000 * 29150000 ORG UCBDEV - DEVICE-DEPENDENT SEGMENT ICB480 29200000 * 29250000 *********************************************************************** 29300000 * 29350000 UCBAOF DS 0BL2 - ADDITIONAL OPTIONAL FEATURES. AN 29400000 * EXTENSION OF THE OPTIONAL FEATURES 29450000 * BYTE OF THE UCBTYP FIELD. ICB480 29500000 UCBAOF1 DS B - FIRST BYTE OF UCBAOF ICB480 29550000 UCBOFMCR EQU X'80' - MAGNETIC CARD READER ADAPTER - 29600000 * FOR 3277 ONLY ICB480 29650000 UCBOFSP EQU X'40' - SELECTOR PEN - FOR 3277 ONLY ICB480 29700000 UCBOFNL EQU X'20' - NUMERIC LOCK - FOR 3277 ONLY ICB480 29750000 UCBOFPTR EQU X'10' - PREPARE TO READ FEATURE 29800003 * (MDC388) @ZA41164 29825003 UCBRSV65 EQU X'08',,C'X' - RESERVED ICB480 29850000 UCBRSV66 EQU X'04',,C'X' - RESERVED ICB480 29900000 UCBRSV67 EQU X'02',,C'X' - RESERVED ICB480 29950000 UCBRSV68 EQU X'01',,C'X' - RESERVED ICB480 30000000 UCBAOF2 DS B - SECOND BYTE OF UCBAOF ICB480 30050000 UCBRSV69 EQU X'80',,C'X' - RESERVED ICB480 30100000 UCBRSV70 EQU X'40',,C'X' - RESERVED ICB480 30150000 UCBRSV71 EQU X'20',,C'X' - RESERVED ICB480 30200000 UCBRSV72 EQU X'10',,C'X' - RESERVED ICB480 30250000 UCBRSV73 EQU X'08',,C'X' - RESERVED ICB480 30300000 UCBRSV74 EQU X'04',,C'X' - RESERVED ICB480 30350000 UCBRSV75 EQU X'02',,C'X' - RESERVED ICB480 30400000 UCBRSV76 EQU X'01',,C'X' - RESERVED ICB480 30450000 UCBATNCT DS FL1 - ATTENTION COUNT. THE NUMBER OF 30500000 * ATTENTIONS NOT SERVICED IN THE LINE 30550000 * GROUP. PRESENT ONLY IF THE DEVICE 30600000 * INDEX FIELD IS 1. OTHERWISE, THIS 30650000 * FIELD IS RESERVED. ICB480 30700000 DS B - UCBGCB - CONTROL BYTE. USED FOR 30750000 * ATTENTION HANDLING FLAGS ICB480 30800000 UCBOLTEP EQU X'80' - OLTEP IN CONTROL OF THE DEVICE 30850000 * ICB480 30900000 UCBRSV77 EQU X'40',,C'X' - RESERVED ICB480 30950000 UCBRSV78 EQU X'20',,C'X' - RESERVED ICB480 31000000 UCBRSV79 EQU X'10',,C'X' - RESERVED ICB480 31050000 UCBRTIAC EQU X'08' - READ TI ACTIVE MDC171 31100000 UCBRIPND EQU X'04' - READ INITIAL PENDING ICB480 31150000 UCBSKPFG EQU X'02' - SKIP FLAG ICB480 31200000 UCBATRCD EQU X'01' - ATTENTION RECEIVED FROM THE 31250000 * DEVICE ICB480 31300000 UCBIRB DS 0A - ADDRESS OF THE IRB USED FOR 31350000 * SCHEDULING THE SECOND LEVEL 31400000 * ATTENTION ROUTINE ICB480 31450000 UCBGRAF DS B - GRAPHICS STATUS FLAGS (BTAM) MDC172 31500000 UCBOIP EQU X'80' - OPEN IS IN PROGRESS MDC173 31550000 UCBDRO EQU X'40' - DEVICE READY IN OPEN MDC174 31600000 UCBDRNO EQU X'20' - DEVICE READY - NOT IN OPEN MDC175 31650000 UCBBTAM EQU X'10' - USE BTAM - IGG019UP MDC176 31700000 UCBUPM EQU X'08' - USE PROVIDED MODULE MDC177 31750000 UCBRPND EQU X'04' - READY PROCESSING NOT DONE MDC178 31800000 UCBDWNR EQU X'02' - DEVICE WENT NOT READY MDC179 31850000 UCBRV039 EQU X'01' - RESERVED - BTAM MDC180 31900000 UCBIRBA DS AL3 - ADDRESS OF THE IRB USED FOR 31950000 * SCHEDULING THE SECOND LEVEL 32000000 * ATTENTION ROUTINE MDC181 32050000 UCBLDNCA DS 0A - ADDRESS OF 3270 WORK AREA 32100000 * ESTABLISHED BY VTAM MDC132 32150000 UCBRDYQ DS 0A - ASYNCHRONOUS READY NOTIFICATION IRB 32200000 * ADDRESS (BTAM) MDC182 32250000 UCBINRLN DS 0FL1 - SAME AS UCBIRLN MDC183 32300000 UCBIRLN DS FL1 - INITIALIZED RLN. THE RELATIVE LINE 32350000 * NUMBER (RLN) OF THE IOB INITIALIZED 32400000 * FOR A READ INITIAL. IF 0, NO READ 32450000 * INITIAL IS OUTSTANDING. PRESENT 32500000 * ONLY IF THE DEVICE INDEX FIELD IS 1. 32550000 * OTHERWISE, THIS FIELD IS RESERVED. 32600000 * ICB480 32650000 UCBLDNCB DS 0AL3 - ADDRESS OF 3270 WORK AREA 32700000 * ESTABLISHED BY VTAM MDC133 32750000 UCBRDYQA DS AL3 - ASYNCHRONOUS READY NOTIFICATION IRB 32800000 * ADDRESS (BTAM) MDC184 32850000 UCBCTLNK DS 0A - SAME AS UCBCTLNA BELOW ICB480 32900000 UCBRLN DS FL1 - DEVICE INDEX. INDEX TO THE DEB UCB 32950000 * ADDRESS FIELD FOR THIS DEVICE. 33000000 * THIS VALUE IS ALSO THE RELATIVE 33050000 * LINE NUMBER. ICB480 33100000 UCBCTLNA DS AL3 - CONTROL BLOCK LINK. IF THE DEVICE 33150000 * INDEX FIELD IS 1, THIS FIELD 33200000 * CONTAINS THE ADDRESS OF THE DEB FOR 33250000 * THE LINE GROUP. IF THE DEVICE INDEX 33300000 * FIELD IS BETWEEN 2 AND 255 33350000 * INCLUSIVE, THIS FIELD CONTAINS THE 33400000 * ADDRESS OF THE UCB WITH A DEVICE 33450000 * INDEX OF 1. ICB480 33500000 * 33550000 *********************************************************************** 33600000 * 33650000 * 3704, 3705 TELEPROCESSING DEVICE 33700000 * UCB SEGMENT 33750000 * 33800000 ORG UCBDEV - DEVICE-DEPENDENT SEGMENT 33850000 * 33900000 *********************************************************************** 33950000 * 34000000 UCBRV040 DS A - RESERVED FOR USE AS TELEPROCESSING 34050000 * EXTENSION POINTER MDC185 34100000 UCBICNCB DS A - POINTER TO VTAM'S ICNCB MDC186 34150000 * 34200000 *********************************************************************** 34250000 * 34300000 * CHANNEL-TO-CHANNEL (CTC) DEVICE 34350000 * UCB SEGMENT 34400000 * 34450000 ORG UCBDEV - DEVICE-DEPENDENT SEGMENT 34500000 * 34550000 *********************************************************************** 34600000 * 34650000 UCBCTCAD DS 0A - ADDRESS OF AN SRB/IOSB TO BE USED 34700004 * FOR SENSE COMMAND BYTE BY IECTCATN 34750000 * IF UCBCTC80 BIT IS SET TO ZERO 34800004 * (MDC343) @Z40JP9A 34807004 UCBCTCAL DS A - ADDRESS OF JES3 ROUTINE FOR 34814004 * SWITCHING TO ALTERNATE PATH CTC IF 34821004 * UCBCTC80 BIT IS SET TO ONE 34828004 * (MDC344) @Z40JP9A 34835004 UCBCTCF1 DS B - CHANNEL-TO-CHANNEL (CTC) DEVICE FLAG 34850000 * BYTE MDC241 34900000 UCBCTC80 EQU X'80' - IF THIS BIT IS ON, ABOVE WORD HAS 34904004 * UCBCTCAL MEANING. IF THIS BIT IS 34908004 * OFF, ABOVE WORD HAS UCBCTCAD 34912004 * MEANING. (MDC345) @Z40JP9A 34916004 UCBRV076 EQU X'40',,C'X' - RESERVED @Z40JP9A 34920004 UCBRV077 EQU X'20',,C'X' - RESERVED @Z40JP9A 34924004 UCBRV078 EQU X'10',,C'X' - RESERVED @Z40JP9A 34928004 UCBRV079 EQU X'08',,C'X' - RESERVED @Z40JP9A 34932004 UCBRV080 EQU X'04',,C'X' - RESERVED @Z40JP9A 34936004 UCBRV081 EQU X'02',,C'X' - RESERVED @Z40JP9A 34940004 UCBRV082 EQU X'01',,C'X' - RESERVED @Z40JP9A 34944004 UCBRV042 DS XL3 - RESERVED MDC242 34950000 * 34953003 *********************************************************************** 34956003 * 34959003 * 3851 OR 3838 DEVICE (MDC362) @G29AN9A 34960016 * UCB SEGMENT 34965003 * 34968003 ORG UCBDEV - DEVICE-DEPENDENT SEGMENT 34971003 * 34974003 *********************************************************************** 34977003 * 34980003 UCBIOSBA DS A - ADDRESS OF IOSB. SET BY IOS FOR 34983003 * ERROR CONDITIONS. (MDC330) @Z30LP9A 34986003 UCBRV066 DS 0A - RESERVED (MDC331) @ZA56736 34990603 UCBAPUB DS A - 3838 VPSS APUB ADDRESS @ZA56736 34995203 * 35000000 *********************************************************************** 35050000 * 35100000 * UNIT CONTROL BLOCK EXTENSIONS 35150000 * 35200000 *********************************************************************** 35250000 * 35300000 * COMMON UCB EXTENSION 35350000 * 35400000 * THIS EXTENSION IS POINTED TO BY THE UCBEXTPT FIELD IN THE 35450000 * COMMON SEGMENT AND IS NOT CONTIGUOUS TO THE UCB. 35500000 * 35550000 UCBCMEXT DSECT , - MDC225 35600000 * 35650000 *********************************************************************** 35700000 * 35750000 UCBETI DS FL1 - A BINARY NUMBER USED BY THE EXIT 35800000 * EFFECTOR ROUTINE TO COMPLETE THE 35850000 * 8-BYTE NAME OF AN IBM-SUPPLIED 35900000 * ERROR ROUTINE FOR THIS DEVICE MDC209 35950000 UCBSTI DS FL1 - INCREMENT WHICH, WHEN MULTIPLIED BY 36000000 * 10, BECOMES AN INDEX TO THE 36050000 * STATISTICS TABLE (STATAB) MDC210 36100000 UCBDTI DS FL1 - INDEX TO THE DEVICE TABLE MDC211 36150000 UCBATI DS FL1 - INDEX TO THE ATTENTION TABLE (ANTAB) 36200000 * OR OPTIONAL JOB ENTRY SUBSYSTEM 36250000 * (JES) FLAG BYTE MDC212 36300000 UCBRSV04 EQU X'80',,C'X' - RESERVED 36350000 UCBRSV05 EQU X'40',,C'X' - RESERVED 36400000 UCBRSV06 EQU X'20',,C'X' - RESERVED 36450000 UCBRSV07 EQU X'10',,C'X' - RESERVED 36500000 UCBRSV08 EQU X'08',,C'X' - RESERVED 36550000 UCBRSV09 EQU X'04',,C'X' - RESERVED 36600000 UCBHALI EQU X'02' - OPTIONAL JOB ENTRY SUBSYSTEM (JES) 36650000 * ALLOCATION INDICATOR MDC213 36700000 UCBHPDV EQU X'01' - OPTIONAL JOB ENTRY SUBSYSTEM (JES) 36750000 * PSEUDO-DEVICE MDC214 36800000 UCBSNSCT DS FL1 - COUNT OF SENSE BYTES PRESENTED 36850000 * BY THIS DEVICE MDC215 36900000 UCBFLP1 DS B - FLAG BYTE MDC216 36950000 UCBNSRCH EQU X'80' - THE CURRENTLY ALLOCATED VOLUME WAS 37000000 * SPECIFICALLY REQUESTED BY VOLUME 37050000 * SERIAL NUMBER. IT IS NOT AVAILABLE 37100000 * FOR ASSIGNMENT BY OPEN/EOV FOR A 37150000 * NON-SPECIFIC VOLUME REQUEST. MDC217 37200000 UCBSHRUP EQU X'40' - SHAREABLE WHEN IN UNIPROCESSOR MODE 37250003 * (MDC333) @ZA00805 37260003 UCBNSWAP EQU X'20' - IF THIS BIT IS ON AND UCBPRES BIT IS 37300003 * ON, THIS FIXED HEAD DEVICE CANNOT BE 37310003 * SWAPPED (MDC364) @ZA16810 37320003 UCBINHIO EQU X'10' - INHIBIT HIO FROM SVC 33 37350003 * (MDC365) @ZA16811 37360003 UCBSWAPF EQU X'08' - WITH BIT SET, THE DEVICE IS ABLE TO 37400003 * BE SWAPPED (MDC370) @ZA31339 37410003 UCBERLOG EQU X'04' - INDICATES PRESENCE OF AN ERROR LOG 37420003 * IN A DEVICE (MDC328) @Z40MP9A 37430003 UCBRV035 EQU X'02',,C'X' - RESERVED MDC163 37440003 UCBRV036 EQU X'01',,C'X' - RESERVED MDC163 37490003 UCBRV041 DS CL2 - RESERVED MDC226 37600000 UCBCCWOF DS H - OFFSET TO CCW PREFIX MDC218 37650000 UCBPMSK DS BL2 - PATH MASK FOR MESSAGES ISSUED MDC219 37700000 UCBMFCNT DS H - MEASUREMENT FACILITIES TOTAL DEVICE 37750000 * SIO COUNT. DURING NIP UCB 37800000 * INITIALIZATION, USED FOR PREVIOUSLY 37850000 * TESTED INDICATOR. MDC220 37900000 UCBASID DS H - ASID OF THE MEMORY TO WHICH THIS 37950000 * DEVICE IS ALLOCATED EXCEPT FOR 38000004 * UNALLOCATED TAPE. FOR UNALLOCATED 38008004 * TAPE, ASID OF THE LAST MEMORY TO 38016004 * WHICH THIS DEVICE WAS ALLOCATED. 38024004 * (MDC348) @ZA05164 38032004 UCBMIHTI DS B - MISSING INTERRUPT HANDLER BYTE 38050041 * (MDC354) @ZA31340 38050441 UCBMIHSF EQU X'80' - MISSING INTERRUPT HANDLER UCB SCAN 38051441 * FLAG (MDC376) @ZA31340 38052141 UCBMIHPB EQU X'40' - WITH BIT SET, MISSING INTERRUPT 38052841 * HANDLER CHECKING OF DEVICE IS 38053541 * PERMANENTLY BYPASSED 38054241 * (MDC375) @ZA31340 38054941 UCBMIHT1 EQU X'20' - WITH BIT SET, MISSING INTERRUPT 38055641 * HANDLER CHECKING OF DEVICE IS 38056341 * TEMPORARILY BYPASSED 38057041 * (MDC374) @ZA31340 38057741 UCBMIHT2 EQU X'10' - WITH BIT SET, MISSING INTERRUPT 38058441 * HANDLER CHECKING OF DEVICE IS 38059141 * TEMPORARILY BYPASSED 38059841 * (MDC378) @ZA31340 38060541 UCBRV084 EQU X'08' - RESERVED (MDC377) @G64DP9A 38061200 UCBRV085 EQU X'04' - RESERVED (MDC377) @G64DP9A 38071200 UCBRV086 EQU X'02' - RESERVED (MDC377) @G64DP9A 38081200 UCBRV087 EQU X'01' - RESERVED (MDC377) @G64DP9A 38091200 UCBWTOID DS CL3 - WTO MESSAGE IDENTIFIER (MDC250) 38101200 * YM6828 38111200 UCBDDT DS A - ADDRESS OF DEVICE-DEPENDENT TABLE 38121200 * ASSOCIATED WITH UCB 38131200 * (MDC371) @G64DP9A 38141200 * 38200000 *********************************************************************** 38250000 * 38300000 * MAGNETIC TAPE 38350000 * UCB EXTENSION 38400000 * 38450000 * THIS EXTENSION IS POINTED TO BY THE UCBXTN FIELD OF THE 38500000 * UCB AND IS NOT CONTIGUOUS TO THE UCB. 38550000 * 38600000 UCBMT DSECT , - UCBXTN -> UCBMT 38650000 * 38700000 *********************************************************************** 38750000 * 38800000 UCBCTD DS H - SERIAL NUMBER IN BINARY OF TAPE 38850000 * DRIVE UPON WHICH THE VOLUME WAS 38900000 * CREATED MDC097 38950000 UCBTRT DS FL1 - TEMPORARY READ ERROR THRESHOLD (IF 39000000 * 0, EVA IS NOT IN EFFECT). A BINARY 39050000 * NUMBER FROM 1 THROUGH 255 AS 39100000 * SELECTED AT SYSGEN TIME ON THE 39150000 * SCHEDULR MACRO BY EVA=(N1,N2) WHERE 39200000 * N1 = TEMPORARY READ ERROR THRESHOLD. 39250000 * MDC097 39300000 UCBTWT DS FL1 - TEMPORARY WRITE ERROR THRESHOLD (IF 39350000 * 0, EVA IS NOT IN EFFECT). A BINARY 39400000 * NUMBER FROM 1 THROUGH 255 AS 39450000 * SELECTED AT SYSGEN TIME ON THE 39500000 * SCHEDULR MACRO BY EVA=(N1,N2) WHERE 39550000 * N2 = TEMPORARY WRITE ERROR 39600000 * THRESHOLD. MDC097 39650000 UCBTR DS FL1 - THE NUMBER (BINARY) OF TEMPORARY 39700000 * READ ERRORS THAT HAVE OCCURRED 39750000 * MDC097 39800000 UCBTW DS FL1 - THE NUMBER (BINARY) OF TEMPORARY 39850000 * WRITE ERRORS THAT HAVE OCCURRED 39900000 * MDC097 39950000 UCBSIO DS H - THE NUMBER (BINARY) OF START I/O 40000000 * OPERATIONS THAT HAVE OCCURRED MDC097 40050000 UCBPR DS FL1 - THE NUMBER (BINARY) OF PERMANENT 40100000 * READ ERRORS THAT HAVE OCCURRED 40150000 * MDC097 40200000 UCBPW DS FL1 - THE NUMBER (BINARY) OF PERMANENT 40250000 * WRITE ERRORS THAT HAVE OCCURRED 40300000 * MDC097 40350000 UCBNB DS FL1 - THE NUMBER (BINARY) OF NOISE BLOCKS 40400000 * THAT HAVE BEEN ENCOUNTERED MDC097 40450000 UCBMS DS CL1 - MODE SET OPERATION CODE FOR DATA 40500000 * BLOCKS ON A 3420 MAGNETIC TAPE UNIT 40550000 * MDC097 40600000 UCBERG DS H - THE NUMBER (BINARY) OF ERASE GAPS 40650000 * THAT HAVE BEEN ENCOUNTERED MDC097 40700000 UCBCLN DS H - THE NUMBER (BINARY) OF CLEANER 40750000 * ACTIONS THAT HAVE OCCURRED MDC097 40800000 * 40850000 *********************************************************************** 40900000 * 40950000 * OPTICAL CHARACTER READER (3886) 41000000 * UCB EXTENSION 41050000 * 41100000 * THIS EXTENSION IS POINTED TO BY THE UCBXTADR FIELD OF THE 41150000 * UCB AND IS NOT CONTIGUOUS TO THE UCB. 41200000 * 41250000 UCBOCR DSECT , - UCBXTADR -> UCBOCR MDC024 41300000 * 41350000 *********************************************************************** 41400000 * 41450000 UCBFRID DS CL4 - CURRENT FORMAT RECORD ID (FRID) 41500000 * LOADED MDC025 41550000 UCBRDATA DS XL4 - COMMAND DATA MDC026 41600000 * 41601003 *********************************************************************** 41602003 * 41603003 * 3540 DEVICE @Z30OP9A 41604003 * UCB EXTENSION @Z30OP9A 41605003 * 41606003 * THIS EXTENSION IS POINTED TO BY THE UCBXTADR FIELD OF THE 41607003 * UCB AND IS NOT CONTIGUOUS TO THE UCB. @Z30OP9A 41608003 * 41609003 UCB3540X DSECT , - UCBXTADR -> UCB3540X 41610003 * (MDC325) @Z30OP9A 41611003 * 41612003 *********************************************************************** 41613003 * 41614003 UCBVLSER DS CL6 - 3540 VOLID (MDC326) @Z30OP9A 41615003 UCBDKBYT DS B - FLAG BYTE (MDC334) @Z30OP9A 41616003 UCBDKAMX EQU X'80' - IBM-SUPPLIED DISKETTE READER, 41617003 * DISKETTE WRITER OR COPY/RESTORE 41618003 * UTILITIES ARE USING THIS 3540 41619003 * DEVICE (MDC335) @Z30OP9A 41620003 UCBVLVER EQU X'40' - VOLUME VERIFICATION IS REQUIRED FOR 41621003 * CERTAIN INTERVENTION REQUIRED 41622003 * CONDITIONS WHILE 3540 DISKETTE 41623003 * UTILITIES ARE USING THE DEVICE 41624003 * (MDC336) @Z30OP9A 41625003 UCBRV067 EQU X'20',,C'X' - RESERVED @Z30OP9A 41626003 UCBRV068 EQU X'10',,C'X' - RESERVED @Z30OP9A 41627003 UCBRV069 EQU X'08',,C'X' - RESERVED @Z30OP9A 41628003 UCBRV070 EQU X'04',,C'X' - RESERVED @Z30OP9A 41629003 UCBRV071 EQU X'02',,C'X' - RESERVED @Z30OP9A 41630003 UCBRV072 EQU X'01',,C'X' - RESERVED @Z30OP9A 41631003 UCBRV073 DS C - RESERVED @Z30OP9A 41632003 * 41650000 *********************************************************************** 41650804 * 41651604 * 3800 DEVICE @Z40MP9A 41652404 * UCB EXTENSION @Z40MP9A 41653204 * 41654004 * THIS EXTENSION IS POINTED TO BY THE UCBXTADR FIELD OF THE 41654804 * UCB AND IS NOT CONTIGUOUS TO THE UCB. @Z40MP9A 41655604 * 41656404 UCB3800X DSECT , - UCBXTADR -> UCB3800X (MDC305) 41657204 * @Z40MP9A 41658004 * 41658804 *********************************************************************** 41659604 * 41660404 UCBOPTNS DS B - OPTIONAL FEATURES INSTALLED ON 41661204 * PRINTER (MDC306) @Z40MP9A 41662004 UCBRV051 EQU X'80',,C'X' - RESERVED @Z40MP9A 41662804 UCBRV052 EQU X'40',,C'X' - RESERVED @Z40MP9A 41663604 UCBRV053 EQU X'20',,C'X' - RESERVED @Z40MP9A 41664404 UCBRV054 EQU X'10',,C'X' - RESERVED @Z40MP9A 41665204 UCBRV055 EQU X'08',,C'X' - RESERVED @Z40MP9A 41666004 UCBRV056 EQU X'04',,C'X' - RESERVED @Z40MP9A 41666804 UCBBRSTR EQU X'02' - RESERVED (MDC307) @Z40MP9A 41667604 UCBRV083 EQU X'01',,C'X' - RESERVED (MDC308) @Z40MP9A 41668404 UCBCGMNO DS FL1 - NUMBER OF WRITEABLE CHARACTER 41669204 * GENERATION MODULES (MDC309) @Z40MP9A 41670004 UCBGRAFS DS B - GRAPHIC CHARACTER FLAG BYTE 41670803 * (MDC387) @ZA42324 41670903 UCBRV046 EQU X'80',,C'X' - RESERVED (MDC387) @ZA42324 41671003 UCBRV047 EQU X'40',,C'X' - RESERVED (MDC387) @ZA42324 41671103 UCBRV048 EQU X'20',,C'X' - RESERVED (MDC387) @ZA42324 41671203 UCBRV049 EQU X'10',,C'X' - RESERVED (MDC387) @ZA42324 41671303 UCBGRAF0 EQU X'08' - WCGM 0 HAS BEEN MODIFIED BY A 41671403 * GRAPHIC CHARACTER MODIFICATION 41671503 * (MDC387) @ZA42324 41671603 UCBGRAF1 EQU X'04' - WCGM 1 HAS BEEN MODIFIED BY A 41671703 * GRAPHIC CHARACTER MODIFICATION 41671803 * (MDC387) @ZA42324 41671903 UCBGRAF2 EQU X'02' - WCGM 2 HAS BEEN MODIFIED BY A 41672003 * GRAPHIC CHARACTER MODIFICATION 41672103 * (MDC387) @ZA42324 41672203 UCBGRAF3 EQU X'01' - WCGM 3 HAS BEEN MODIFIED BY A 41672303 * GRAPHIC CHARACTER MODIFICATION 41672403 * (MDC387) @ZA42324 41672503 UCBACTIV DS B - ACTIVE FEATURES (MDC311) @Z40MP9A 41672603 UCBRV057 EQU X'80',,C'X' - RESERVED @Z40MP9A 41672703 UCBRV058 EQU X'40',,C'X' - RESERVED @Z40MP9A 41673204 UCBRV059 EQU X'20',,C'X' - RESERVED @Z40MP9A 41674004 UCBRV060 EQU X'10',,C'X' - RESERVED @Z40MP9A 41674804 UCBRV061 EQU X'08',,C'X' - RESERVED @Z40MP9A 41675604 UCBRV062 EQU X'04',,C'X' - RESERVED @Z40MP9A 41676404 UCBRV063 EQU X'02',,C'X' - RESERVED @Z40MP9A 41677204 UCBBRSTA EQU X'01' - RESERVED (MDC312) @Z40MP9A 41678004 UCBCGMID DS CL4 - FOUR ONE-BYTE ID'S FOR CHARACTER 41678804 * MODULES LOADED IN WRITEABLE 41679604 * CHARACTER GENERATION MODULES 41680404 * (WCGM'S) (MDC313) @Z40MP9A 41681204 UCBCHAR1 DS CL4 - NAME OF FIRST TRANSLATE TABLE 41682004 * (MDC314) @Z40MP9A 41682804 UCBCHAR2 DS CL4 - NAME OF SECOND TRANSLATE TABLE 41683604 * (MDC315) @Z40MP9A 41684404 UCBCHAR3 DS CL4 - NAME OF THIRD TRANSLATE TABLE 41685204 * (MDC316) @Z40MP9A 41686004 UCBCHAR4 DS CL4 - NAME OF FOURTH TRANSLATE TABLE 41686804 * (MDC317) @Z40MP9A 41687604 UCBFCBNM DS CL4 - FORMS CONTROL BUFFER (FCB) IMAGE 41688404 * NAME (MDC318) @Z40MP9A 41689204 UCBIMAGE DS CL4 - FORMS OVERLAY IMAGE IDENTIFICATION 41690004 * (MDC319) @Z40MP9A 41690804 UCBLDATA DS H - LOST DATA PAGE COUNT 41691603 * (MDC387) @ZA42324 41691703 UCBPGID DS H - ID OF THE LAST FUSED PAGE FOR 41691803 * SYSTEM RESTART OR PAGE AT THE 41691903 * TRANSFER STATION FOR CANCEL KEY 41692003 * (MDC387) @ZA42324 41692103 UCBMDRBF DS 0A - MISCELLANEOUS DATA RECORDING (MDR) 41692404 * BUFFER ADDRESS (MDC339) @Z40MP9A 41693204 UCBRV075 DS FL1 - RESERVED (MDC340) @Z40MP9A 41694004 UCBMDRBA DS AL3 - MDR BUFFER ADDRESS (MDC341) @Z40MP9A 41694804 * 41695604 *********************************************************************** 41700000 * 41750000 * UNIT RECORD WITH 41800000 * UNIVERSAL CHARACTER SET (1403, 3211) 41850000 * UCB EXTENSION 41900000 * 41950000 * THIS EXTENSION IS POINTED TO BY THE UCBXTADR FIELD OF THE 42000000 * UCB AND IS NOT CONTIGUOUS TO THE UCB. 42050000 * 42100000 UCBUCS DSECT , - UCBXTADR -> UCBUCS 42150000 * 42200000 *********************************************************************** 42250000 * 42300000 UCBUCSID DS CL4 - UCS IMAGE IDENTIFICATION IN BUFFER 42350000 UCBUCSOP DS B - FORMAT OF UCS IMAGE IN BUFFER 42400000 * (O FOR OPTION) 42450000 UCBUCSO1 EQU X'80' - UCS IMAGE IS A DEFAULT IMAGE 42500000 UCBUCSO2 EQU X'40' - UCS IMAGE IS IN FOLD MODE 42550000 UCBRSV39 EQU X'20',,C'X' - RESERVED 42600000 UCBRSV40 EQU X'10',,C'X' - RESERVED 42650000 UCBRSV41 EQU X'08',,C'X' - RESERVED 42700000 UCBRSV42 EQU X'04',,C'X' - RESERVED 42750000 UCBRSV43 EQU X'02',,C'X' - RESERVED 42800000 UCBUCSPE EQU X'01' - UCS IMAGE HAS PARITY ERROR (3211) 42850000 UCBFCBOP DS B - RESERVED (1403) OR FCB OPTIONS 42900000 * (3211) (O FOR OPTION) 42950000 UCBFCBO1 EQU X'80' - FCB IMAGE IS A DEFAULT IMAGE 43000000 UCBRSV44 EQU X'40',,C'X' - RESERVED 43050000 UCBRSV45 EQU X'20',,C'X' - RESERVED 43100000 UCBRSV46 EQU X'10',,C'X' - RESERVED 43150000 UCBRSV47 EQU X'08',,C'X' - RESERVED 43200000 UCBRSV48 EQU X'04',,C'X' - RESERVED 43250000 UCBRSV49 EQU X'02',,C'X' - RESERVED 43300000 UCBFCBPE EQU X'01' - FCB IMAGE HAS PARITY ERROR 43350003 * (MDC372) @ZA26074 43360003 UCBRSV51 DS X - RESERVED 43400000 UCBERCNT DS FL1 - CONTAINS A COUNT OF THE ERRORS THAT 43450000 * HAVE OCCURRED. THE COUNT, WHICH MAY 43500000 * WRAP AROUND, IS WRITTEN IN STANDARD 43550000 * OBR RECORDS (ONE PER ERROR) AND IN 43600000 * NEW DEVICE-DEPENDENT OBR RECORDS (0 43650000 * TO 3 PER ERROR) AND SERVE TO RELATE 43700000 * TO EACH OTHER THE STANDARD AND 43750000 * DEVICE-DEPENDENT OBR RECORDS THAT 43800000 * PERTAIN TO EACH ERROR (3211) 43850000 UCBFCBID DS CL4 - THE FCB IMAGE IDENTIFICATION 43900000 UCBERADR DS A - THE ADDRESS OF THE ERP LOGOUT AREA 43950000 POP PRINT 44000000 MEND , */ 44050000 *%UCBL2 : ; 44100000 *%IF IKEPLS='' %THEN 44150000 * %GOTO UCBL3; 44200000 *%IHALPUSH='@LISTPUSH'; 44250000 *%IHALPOP='@LISTPOP'; 44300000 *%IHALOFF='@LISTOFF'; 44350000 *IHALPUSH; 44400000 *%IF IHALIST='YES' %THEN 44450000 * %GOTO UCBL3; 44500000 *IHALOFF; 44550000 *%UCBL3 : ; 44600000 * 44650000 */* **************************************************************** */ 44700000 */* */ 44750000 */* MULTIPROCESSING UCB PREFIX */ 44800000 */* */ 44850000 */* **************************************************************** */ 44900000 * 44950000 *DECLARE 45000000 * 1 UCB BASED(UCBPTR-512) BDY(WORD), /* UCB PREFIX YM0450*/ 45050000 * 2 * CHAR(504), /* RESERVED */ 45100000 * 2 UCBPXST CHAR(0), /* START OF USED FIELDS IN PREFIX 45150000 * MDC187*/ 45200000 * 2 UCBLOCK FIXED(31), /* DEVICE LOCK MDC238*/ 45250000 * 2 UCBIOQ PTR(31), /* ADDRESS OF LAST QUEUING ELEMENT 45300000 * USED FOR THIS DEVICE. ADDRESS 45350000 * OF ERP WORK AREA DURING 45400000 * INTERCEPT AND ASYNCHRONOUS 45450000 * ATTENTION/DEVICE END WITH UNIT 45500000 * CHECK CONDITIONS. WHEN DIRECT 45550000 * ACCESS VOLUME VERIFICATION 45600000 * (DAVV) IS WAITING FOR A VOLUME 45650000 * MOUNT, THIS FIELD WILL POINT 45700000 * TO THE DAVV SRB. MDC197*/ 45750000 * 2 UCBPFXND CHAR(0); /* END OF PREFIX YM0450*/ 45800000 *%DCL UCBCURPX CHAR; 45850000 *%UCBCURPX='(ADDR(UCBPFXND)-ADDR(UCBPXST))'; /* ACTUAL PREFIX DATA 45900000 * LENGTH MDC151*/ 45950000 *%DCL UCBPRFX CHAR; 46000000 *%UCBPRFX='LENGTH(UCB)'; /* TOTAL PREFIX DATA LENGTH MDC152*/ 46050000 * 46100000 * 46150000 */* **************************************************************** */ 46200000 */* */ 46250000 */* SYSGEN-INDEPENDENT */ 46300000 */* COMMON SECTION */ 46350000 */* */ 46400000 */* **************************************************************** */ 46450000 * 46500000 *DECLARE 46550000 * 1 UCBOB BASED(UCBPTR) BDY(WORD), 46600000 * 2 UCBCMSEG CHAR(0), /* START OF COMMON SECTION MDC168*/ 46650000 * 2 UCBJBNR BIT(8) BDY(WORD),/* FLAG BYTE (OS/VS2) MDC012*/ 46700000 * 3 UCBVRDEV BIT(1), /* UCB FOR VIO DEVICE 46750051 * (MDC366) @G51BP9A*/ 46760051 * 3 UCBJES3 BIT(1), /* ALL VOLUME MOUNTING AND DEVICE 46800000 * MANAGEMENT FOR THIS DEVICE IS 46850000 * CONTROLLED BY JES3 MDC246*/ 46900000 * 3 UCBDUC BIT(1), /* DISPLAY DEVICE UNIT CHECK - IPL 46950004 * (MDC347) @ZA04127*/ 46960004 * 3 UCBBOX BIT(1), /* IF THIS BIT AND UCBIORST BIT 47000041 * ARE ON,THE DEVICE HAS BEEN 47010041 * FORCED OFFLINE DUE TO AN ERROR 47020041 * (MDC383) @ZA36385*/ 47030041 * 3 UCBOLDSM BIT(1), /* OLTEP COMMUNICATING DIRECTLY 47050003 * WITH THE MASS STORAGE CONTROL 47058003 * (MSC), NOT THROUGH THE MASS 47066003 * STORAGE SYSTEM COMMUNICATOR 47074003 * (MSSC) (MDC301) @Z30LP9A*/ 47082003 * 3 UCBMMSGP BIT(1), /* MOUNT MESSAGE PENDING. THE 47100003 * DEVICE HAS BEEN SELECTED BY 47108003 * DEVICE ALLOCATION, BUT NO MOUNT 47116003 * MESSAGE HAS BEEN ISSUED. 47124003 * (MDC361) @ZA14242*/ 47132003 * 3 UCBURINP BIT(1), /* UNCONDITIONAL RESERVE IN 47150041 * PROGRESS (MDC384) @ZA36385*/ 47160041 * 3 UCBMONT BIT(1), /* VOLUME TO BE MOUNTED IS TO BE 47200000 * RETAINED OR CONTAIN A PASSED 47250000 * DATA SET. (SET BY DEVICE 47300000 * ALLOCATION OR DATA MANAGEMENT 47350000 * FOR OS/VS2) MDC014*/ 47400000 * 2 UCBFL5 BIT(8), /* FLAGS */ 47450000 * 3 UCBDCC BIT(1), /* DISCONNECT COMMAND CHAIN DEVICE 47500000 * MDC098*/ 47550000 * 3 UCBAF BIT(1), /* ATTENTION FOR THIS CONSOLE 47600000 * DEVICE IS TO BE PROCESSED BY 47650000 * THE COMMUNICATIONS TASK ICB321*/ 47700000 * 4 UCBAMV BIT(1), /* SUCCESSFUL COMPARISON CHECKING 47750000 * OF THE ACCESS METHOD CATALOG 47800000 * AND THE VTOC (VSAM DIRECT 47850000 * ACCESS DEVICES ONLY) ICB437*/ 47900000 * 3 UCBSASK BIT(1), /* DEVICE REQUIRES STAND ALONE 47950000 * SEEK MDC099*/ 48000000 * 3 UCBVSDR BIT(1), /* DEVICE HAS VARIABLE LENGTH 48050000 * SDR'S */ 48100000 * 3 UCBENVRD BIT(1), /* DEVICE RETURNS ENVIRONMENTAL 48150000 * DATA MDC100*/ 48200000 * 3 UCBNALOC BIT(1), /* THIS OFFLINE DEVICE IS BEING 48250000 * USED BY A SYSTEM COMPONENT. 48300000 * THE DEVICE STATUS MUST NOT 48350000 * CHANGE TO ONLINE NOR WILL IT BE 48400000 * ALLOCATED. THE LAST PATH/ 48450000 * CHANNEL/CPU TO THE DEVICE MUST 48500000 * NOT BE VARY'ED OFFLINE. THE 48550000 * DEVICE IS UNAVAILABLE FOR USAGE 48600000 * BY ANOTHER SYSTEM COMPONENT 48650000 * WHICH PROCESSES OFFLINE DEVICES. 48700000 * TO SET THIS INDICATOR ON, A 48750000 * COMPONENT MUST OBTAIN VIA ENQ, 48800000 * EXCLUSIVE, SYSTEM LEVEL CONTROL 48850000 * OF RESOURCE SYSIEFSD, Q4. 48900000 * SERIALIZATION IS NOT REQUIRED 48950000 * TO TURN THIS INDICATOR OFF. 49000000 * MDC027*/ 49050000 * 3 UCBALTCU BIT(1), /* DEVICE HAS AN ALTERNATE CONTROL 49100000 * UNIT ADDRESS */ 49150000 * 3 UCBALTPH BIT(1), /* DEVICE HAS AN ALTERNATE PATH */ 49200000 * 2 UCBID CHAR(1), /* UCB IDENTIFICATION (FF) */ 49250000 *%DCL UCBSTND CHAR; 49300000 *%UCBSTND='''FF''X'; /* STANDARD UCB MDC101*/ 49350000 * 2 UCBSTAT BIT(8), /* DEVICE STATUS */ 49400000 * 3 UCBONLI BIT(1), /* DEVICE IS ONLINE */ 49450000 * 3 UCBCHGS BIT(1), /* DEVICE STATUS IS TO BE CHANGED 49500000 * FROM ONLINE TO OFFLINE, AND 49550000 * EITHER ALLOCATION IS ENQUEUED 49600000 * ON DEVICES OR THE DEVICE IS 49650000 * ALLOCATED. (BIT 0 IS ALSO ON.) */ 49700000 * 3 UCBRESV BIT(1), /* THE MOUNT STATUS OF THE VOLUME 49750000 * ON THIS DEVICE IS RESERVED */ 49800000 * 3 UCBUNLD BIT(1) ABNORMAL, /* UNLOAD OPERATOR COMMAND HAS 49850000 * BEEN ADDRESSED TO THIS DEVICE. 49900000 * THE DEVICE IS NOT YET UNLOADED. 49950000 * MDC167*/ 50000000 * 3 UCBALOC BIT(1), /* DEVICE IS ALLOCATED */ 50050000 * 3 UCBPRES BIT(1), /* THE MOUNT STATUS OF THE VOLUME 50100000 * ON THIS DEVICE IS PERMANENTLY 50150000 * RESIDENT */ 50200000 * 3 UCBSYSR BIT(1), /* SYSTEM RESIDENCE DEVICE OR 50250000 * PRIMARY CONSOLE OR 50300000 * ACTIVE CONSOLE */ 50350000 * 3 UCBDADI BIT(1), /* STANDARD TAPE LABELS HAVE BEEN 50400000 * VERIFIED FOR THIS TAPE VOLUME 50450000 * OR SECONDARY CONSOLE OR 50500000 * CONSOLE STATUS CHANGING */ 50550000 * 2 UCBCHAN CHAR(2), /* BINARY CHANNEL/UNIT ADDRESS 50600000 * MDC102*/ 50650000 * 3 UCBCHA PTR(8), /* BINARY CHANNEL ADDRESS OF LAST 50700000 * STARTED I/O OPERATION */ 50750000 * 3 UCBUA PTR(8), /* BINARY UNIT ADDRESS */ 50800000 * 2 UCBSFLS CHAR(2), /* DEVICE STATUS FLAGS MDC103*/ 50850000 * 3 UCBFLA BIT(8), /* I/O SUPERVISOR FLAG BYTE A 50900000 * MDC104*/ 50950000 * 4 UCBFL1 BIT(8), /* ALIAS */ 51000000 * 5 UCBBSY BIT(1), /* DEVICE IS BUSY MDC105*/ 51050000 * 6 UCBBUSYD BIT(1), /* ALIAS */ 51100000 * 5 UCBNRY BIT(1), /* DEVICE NOT READY MDC106*/ 51150000 * 6 UCBNOTRD BIT(1), /* ALIAS */ 51200000 * 5 UCBPST BIT(1), /* POST FLAG (ASSOC IOQE) MDC107*/ 51250000 * 6 UCBUSING BIT(1), /* ALIAS */ 51300000 * 5 UCBPSNS BIT(1), /* PENDING SENSE OPERATION MDC108*/ 51350000 * 5 UCBCUB BIT(1), /* CONTROL UNIT BUSY MDC109*/ 51400000 * 6 UCBNOTRC BIT(1), /* ALIAS */ 51450000 * 5 UCBSAP BIT(1), /* STAND ALONE PROCESS ON DEVICE 51500000 * ACTIVE (EG., RESERVE) MDC110*/ 51550000 * 5 UCBACTV BIT(1), /* CHANNEL PROGRAM ACTIVE ON 51600000 * DEVICE MDC111*/ 51650000 * 5 UCBQISCE BIT(1), /* DEVICE QUIESCED MDC112*/ 51700000 * 3 UCBFLB BIT(8), /* I/O SUPERVISOR FLAG BYTE B 51750000 * MDC113*/ 51800000 * 4 UCBIORST BIT(1), /* I/O RESTART VIA ALTERNATE CPU 51850000 * RECOVERY HAS FACTORED DEVICE 51900000 * OUT OF CONFIGURATION BECAUSE 51950000 * OF NON-ACCESSABILITY. ALL 52000000 * INCOMING I/O REQUESTS ARE 52050000 * INTERCEPTED AND MARKED IN 52100000 * PERMANENT ERROR WITH A 52150000 * COMPLETION CODE OF X'51'. 52200003 * HOWEVER, IF CHANNEL 52205003 * RECONFIGURATION HARDWARE (CRH) 52210003 * IS ACTIVE AND CRH WILL BE USED 52215003 * TO ACCESS THE DEVICE ASSOCIATED 52220003 * WITH THE UCB, THIS BIT WILL BE 52225003 * ON IN EVERY UCB THAT HAS 52230003 * OUTSTANDING I/O ACROSS A CRH 52235003 * PATH. (MDC320) @Z30CQ9A*/ 52240003 * 4 UCBASNS BIT(1), /* SENSE ACTIVE ON DEVICE MDC115*/ 52250000 * 4 UCBSPST BIT(1), /* SENSE POST INDICATOR MDC116*/ 52300000 * 4 UCBRESVH BIT(1), /* DEVICE RESERVED INDICATOR 52350000 * MDC157*/ 52400000 * 4 UCBCRHRV BIT(1), /* RESERVED PATH THROUGH A CHANNEL 52450003 * RECONFIGURATION HARDWARE (CRH) 52460003 * CONNECTION (MDC303) @Z30CQ9A*/ 52470003 * 4 UCBCRHSN BIT(1), /* IF 1, SENSE PENDING FROM 52500003 * INOPERATIVE CPU. IF 0, SENSE 52507003 * PENDING FROM OPERATIVE CPU. 52514003 * BIT IS SET ONLY WHEN CHANNEL 52521003 * RECONFIGURATION HARDWARE (CRH) 52528003 * IS ACTIVE. (MDC332) @Z30CQ9A*/ 52535003 * 4 UCBVALPH BIT(1), /* PATH VALIDATION 52550003 * (MDC337) @ZA00078*/ 52560003 * 4 UCBSIGP BIT(1), /* IOS SIGP INDICATOR TO PREVENT 52600004 * PING/PONG (MDC346) @ZA03601*/ 52610004 * 2 UCBCHM BIT(8), /* PATH STATUS MASK FOR THIS 52650000 * DEVICE MDC198*/ 52700000 * 3 UCBCHM1 BIT(8), /* SAME AS UCBCHM MDC199*/ 52750000 * 4 UCBPTH0 BIT(2), /* PATHS FROM CPU 0 MDC200*/ 52800000 * 5 UCBPPA BIT(1), /* PRIMARY PATH CPU 0. IF 0, PATH 52850004 * IS AVAILABLE. IF 1, PATH IS 52860004 * UNAVAILABLE. (MDC350) @Z40AQ9A*/ 52870004 * 5 UCBSPA BIT(1), /* SECONDARY PATH CPU 0. IF 0, 52900004 * PATH IS AVAILABLE. IF 1, PATH 52910004 * IS UNAVAILABLE. 52920004 * (MDC351) @Z40AQ9A*/ 52930004 * 4 UCBPTH1 BIT(2), /* PATHS FROM CPU 1 MDC203*/ 52950000 * 5 UCBPPB BIT(1), /* PRIMARY PATH CPU 1. IF 0, PATH 53000004 * IS AVAILABLE. IF 1, PATH IS 53010004 * UNAVAILABLE. (MDC352) @Z40AQ9A*/ 53020004 * 5 UCBSPB BIT(1), /* SECONDARY PATH CPU 1. IF 0, 53050004 * PATH IS AVAILABLE. IF 1, PATH 53060004 * IS UNAVAILABLE. 53070004 * (MDC353) @Z40AQ9A*/ 53080004 * 4 UCBRV014 BIT(1), /* RESERVED */ 53100000 * 4 UCBRV015 BIT(1), /* RESERVED */ 53150000 * 4 UCBRV016 BIT(1), /* RESERVED */ 53200000 * 4 UCBRV017 BIT(1), /* RESERVED */ 53250000 * 2 UCBCNT PTR(8), /* COUNT OF QUEUED REQUESTS 53300000 * WAITING FOR DEVICE MDC206*/ 53350000 * 2 UCBLCI PTR(8), /* INCREMENT WHICH, WHEN 53400000 * MULTIPLIED BY 32, BECOMES AN 53450004 * INDEX TO THE LOGICAL CHANNEL 53500000 * TABLE (LCHTAB) 53550004 * (MDC349) @Z40AQ9A*/ 53560004 * 2 UCBCPU CHAR(1), /* LAST SIO TO DEVICE ISSUED 53600000 * FROM THIS CPUID MDC207*/ 53650000 * 2 UCBWGT BIT(8) BDY(WORD),/* FLAGS */ 53700000 * 3 UCBIN BIT(1), /* SYSIN */ 53750000 * 3 UCBOUT BIT(1), /* SYSOUT */ 53800000 * 3 UCBPUB BIT(1), /* ASSUMED THAT THIS DEVICE WILL 53850000 * BE ALLOCATED FOR A PUBLIC 53900000 * VOLUME REQUEST */ 53950000 * 3 UCBREW BIT(1), /* REWIND COMMAND HAS BEEN 54000000 * ADDRESSED TO THIS MAGNETIC TAPE 54050000 * DEVICE BY I/O SUPPORT */ 54100000 * 3 UCBMTPXP BIT(1), /* MULTIPLE EXPOSURE DEVICE MDC117*/ 54150000 * 3 UCBVORSN BIT(1), /* VARY COMMAND OPERATOR REASON 54200000 * INDICATOR MDC118*/ 54250000 * 3 UCBVHRSN BIT(1), /* VARY COMMAND HIERARCHY REASON 54300000 * INDICATOR MDC119*/ 54350000 * 3 UCBRV029 BIT(1), /* RESERVED MDC028*/ 54400000 * 2 UCBNAME CHAR(3) BDY(WORD,2), /* UNIT NAME (EBCDIC) */ 54450000 * 2 UCBTYP CHAR(4) BDY(WORD), /* DEVICE TYPE */ 54500000 * 3 UCBTBYT1 BIT(8), /* MODEL BITS */ 54550000 * 4 UCB1FEA0 BIT(1), /* BIT 0 */ 54600000 * 4 UCB1FEA1 BIT(1), /* BIT 1 */ 54650000 * 4 UCB1FEA2 BIT(1), /* BIT 2 */ 54700000 * 4 UCB1FEA3 BIT(1), /* BIT 3 */ 54750000 * 4 UCB1FEA4 BIT(1), /* BIT 4 */ 54800000 * 4 UCB1FEA5 BIT(1), /* BIT 5 */ 54850000 * 5 UCBD1600 BIT(1), /* 1600 BPI ICB475*/ 54900000 * 4 UCB1FEA6 BIT(1), /* BIT 6 */ 54950000 * 5 UCBD6250 BIT(1), /* 6250 BPI ICB475*/ 55000000 * 4 UCB1FEA7 BIT(1), /* BIT 7 */ 55050000 * 3 UCBTBYT2 BIT(8), /* OPTION FLAGS */ 55100000 * 4 UCB2OPT0 BIT(1), /* FLAG 0 */ 55150000 * 4 UCB2OPT1 BIT(1), /* FLAG 1 */ 55200000 * 4 UCB2OPT2 BIT(1), /* FLAG 2 */ 55250000 * 5 UCBDUDN1 BIT(1), /* DUAL DENSITY 800/1600 BPI 55300000 * ICB475*/ 55350000 * 6 UCBRR BIT(1), /* THIS DEVICE IS SHARABLE BETWEEN 55400000 * TWO CPU'S (DIRECT ACCESS) 55450000 * MDC159*/ 55500000 * 4 UCB2OPT3 BIT(1), /* FLAG 3 */ 55550000 * 5 UCBDUDN2 BIT(1), /* DUAL DENSITY 1600/6250 BPI 55600000 * ICB475*/ 55650000 * 6 UCBRPS BIT(1), /* ROTATIONAL POSITION SENSING 55700000 * (RPS) DEVICE (DIRECT ACCESS) 55750000 * MDC120*/ 55800000 * 4 UCB2OPT4 BIT(1), /* FLAG 4 */ 55850000 * 5 UCBRWTAU BIT(1), /* READ/WRITE TAPE CONTROL MDC166*/ 55900000 * 6 UCBRVDEV BIT(1), /* IF 0, REAL DEVICE. 55910003 * IF 1, VIRTUAL DEVICE. 55920003 * (DIRECT ACCESS) 55930003 * (MDC300) @Z30LP9A*/ 55940003 * 4 UCB2OPT5 BIT(1), /* FLAG 5 */ 55950000 * 4 UCB2OPT6 BIT(1), /* FLAG 6 */ 56000000 * 5 UCBVLPWR BIT(1), /* VOLUME REQUIRES ALTERNATE POWER 56050003 * SOURCE DEVICE (MDC322) @Z30AQ9A*/ 56060003 * 4 UCB2OPT7 BIT(1), /* FLAG 7 */ 56100000 * 5 UCBDVPWR BIT(1), /* DEVICE HAS ALTERNATE POWER 56150003 * SOURCE (MDC323) @Z30AQ9A*/ 56160003 * 3 UCBTBYT3 BIT(8), /* CLASS BITS */ 56200000 * 4 UCBDVCLS BIT(8), /* SAME AS UCBTBYT3 MDC169*/ 56250000 * 5 UCB3TAPE BIT(1), /* TAPE */ 56300000 * 5 UCB3COMM BIT(1), /* COMMUNICATIONS */ 56350000 * %UCB3CTC='''41''X'; /* CHANNEL-TO-CHANNEL ADAPTER 56400000 * MDC239*/ 56450000 * 5 UCB3DACC BIT(1), /* DIRECT ACCESS */ 56500000 * 5 UCB3DISP BIT(1), /* DISPLAY */ 56550000 * 5 UCB3UREC BIT(1), /* UNIT RECORD */ 56600000 * 5 UCB3CHAR BIT(1), /* CHARACTER READER */ 56650000 * 5 UCBRSV10 BIT(1), /* RESERVED */ 56700000 * 5 UCBRSV11 BIT(1), /* RESERVED */ 56750000 * 3 UCBTBYT4 CHAR(1), /* DEVICE CODE */ 56800000 * 4 UCBUNTYP CHAR(1), /* SAME AS UCBTBYT4 MDC170*/ 56850000 * %UCB3791L='''F1''X'; /* 3791 LOCAL CONTROL UNIT 56853004 * (MDC342) @Z40KP9A*/ 56856004 * %UCB3838='''4C''X'; /* 3838 ARRAY PROCESSOR 56857016 * (MDC360) @G29AN9A*/ 56858016 * %UCBDSM='''42''X'; /* MASS STORAGE CONTROL (MSC) 56860003 * (3851) (MDC329) @Z30LP9A*/ 56870003 * %UCB7443='''3D''X'; /* 7443 SERVICE RECORD FILE 56873051 * (MDC368) @G51DP9A*/ 56876051 * %UCB3895='''19''X'; /* 3895 DEVICE (MDC363) @G30AP9A*/ 56880016 * %DCL UCB42AD1 CHAR; 56900000 * %UCB42AD1='''11''X'; /* 2702 CONTROL UNIT WITH TYPE 1 56950000 * ADAPTOR */ 57000000 * %UCB3800='''0E''X'; /* 3800 DEVICE (MDC321) @Z40MP9A*/ 57020004 * %UCB3036='''0D''X'; /* 3036 DISPLAY CONSOLE 57030051 * (MDC367) @G51AP9A*/ 57040051 * %UCB3211='''09''X'; /* 3211 PRINTER MDC165*/ 57050000 * %UCB3400='''03''X'; /* 3400 MAGNETIC TAPE MDC021*/ 57100000 * %UCB2400 ='''01''X'; /* 2400 SERIES MAGNETIC TAPE 57150000 * DEVICE ICB376*/ 57200000 * 2 UCBEXTPT PTR(31), /* ADDRESS OF COMMON UCB EXTENSION 57250000 * MDC227*/ 57300000 * 3 UCBFLC BIT(8), /* I/O SUPERVISOR FLAG BYTE C 57350000 * MDC228*/ 57400000 * 4 UCBATTP BIT(1), /* ATTENTION PENDING MDC229*/ 57450000 * 4 UCBWAA BIT(1), /* WORK AREA APPENDED MDC230*/ 57500000 * 4 UCBUDE BIT(1), /* UNSOLICITED DEVICE END 57550000 * RECEIVED MDC231*/ 57600000 * 4 UCBITF BIT(1), /* INTERCEPT CONDITION MDC232*/ 57650000 * 4 UCBIVRS BIT(1), /* INTERVENTION REQUIRED MESSAGE 57700000 * ISSUED MDC233*/ 57750000 * 4 UCBIVRR BIT(1), /* INTERVENTION REQUIRED MESSAGE 57800000 * IS NEEDED MDC234*/ 57850000 * 4 UCBTICBT BIT(1), /* CHANNEL END AND/OR DEVICE END 57900000 * OR MOUNT CONDITION PENDING. 57950000 * MDC235*/ 58000000 * 4 UCBDDRSW BIT(1), /* DDR SWITCH PENDING ON THIS 58050000 * DEVICE MDC236*/ 58100000 * 3 UCBEXTP PTR(24), /* ADDRESS OF COMMON UCB EXTENSION 58150000 * MDC237*/ 58200000 */* */ 58250000 */* **************************************************************** */ 58300000 */* */ 58350000 */* DEVICE-DEPENDENT UCB SEGMENTS */ 58400000 */* */ 58450000 * 2 UCBDEV CHAR(0) BDY(WORD); 58500000 */* */ 58550000 */* **************************************************************** */ 58600000 */* */ 58650000 */* DIRECT ACCESS */ 58700000 */* UCB SEGMENT */ 58750000 */* */ 58800000 */* UCBVOLI, UCBSTAB AND UCBDMCT ARE SAME IN TAPE SEGMENT AS */ 58850000 */* IN DIRECT ACCESS SEGMENT. */ 58900000 */* */ 58950000 *DECLARE 1 UCBOBS01 59000000 *%IF IKEPLS='2' %THEN 59050000 * %GOTO UCBA1; 59100000 * BASED(ADDR(UCBDEV)) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 59150000 *%GOTO UCBA2; 59200000 *%UCBA1 : ; 59250000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 59300000 *%UCBA2 : ; 59350000 * 59400000 */* **************************************************************** */ 59450000 */* */ 59500000 * 2 UCBVTOC CHAR(4) BDY(WORD),/* RELATIVE ADDRESS OF VTOC FOR 59550000 * THIS VOLUME, IN FORM TTR0 59600000 * MDC085*/ 59650000 * 2 UCBVOLI CHAR(6) BDY(WORD),/* VOLUME SERIAL NUMBER */ 59700000 * 2 UCBSTAB BIT(8), /* VOLUME STATUS */ 59750000 * 3 UCBBSVL BIT(1), /* VOLUME DEMOUNTABLE BY DATA 59800000 * MANAGEMENT (DIRECT ACCESS) 59850000 * (OS/VS2) MDC008*/ 59900000 * 4 UCBDVSHR BIT(1), /* DEVICE NOT SHARABLE AMONG 59950000 * SEVERAL CPU'S (3420 MAGNETIC 60000000 * TAPE DEVICES ONLY) (MDC245) 60050000 * XA03017*/ 60100000 * 3 UCBPGFL BIT(1), /* UCB IS OPEN AND IS BEING USED 60150000 * AS A PAGE FILE ICB338*/ 60200000 * 3 UCBPRSRS BIT(1), /* DURING VOLUME ATTRIBUTE 60250000 * PROCESSING THIS BIT IS USED 60300000 * BOTH TO DENOTE UCB'S THAT WERE 60350000 * MARKED PERMANENTLY RESIDENT 60400000 * PRIOR TO GETTING CONTROL AND 60450000 * TO IDENTIFY DEVICES THAT WERE 60500000 * SELECTED BY THE OPERATOR FOR 60550000 * MOUNTING VOLUMES 60600000 * (DIRECT ACCESS) MDC162*/ 60650000 * 4 UCBBALB BIT(1), /* ADDITIONAL VOLUME LABEL 60700000 * PROCESSING (TAPE) */ 60750000 * 3 UCBBPRV BIT(1), /* PRIVATE - VOLUME USE STATUS */ 60800000 * 3 UCBBPUB BIT(1), /* PUBLIC - VOLUME USE STATUS */ 60850000 * 3 UCBBSTR BIT(1), /* STORAGE - VOLUME USE STATUS 60900000 * (DIRECT ACCESS) 60950000 * THE VOLUME MOUNTED HAS AN 61000000 * AMERICAN NATIONAL STANDARD 61050000 * LABEL (TAPE) */ 61100000 * 3 UCBSHAR BIT(1), /* VOLUME SHAREABLE AMONG JOB 61150000 * STEPS (OS/VS2) MDC020*/ 61200000 * 3 UCBBNUL BIT(1), /* CONTROL VOLUME - A CATALOG DATA 61250000 * SET IS ON THIS VOLUME 61300000 * (DIRECT ACCESS) 61350000 * IF THE MULTIPLE CONSOLE SUPPORT 61400000 * OPTION IS IN THE SYSTEM, 61450000 * DEMOUNT OR MOUNT MESSAGES HAVE 61500000 * BEEN ISSUED AND THE MESSAGE 61550000 * ID'S ARE AT OFFSETS 40 THROUGH 61600000 * 45. OPEN WILL DELETE THE 61650000 * MESSAGES AND TURN THIS BIT OFF. 61700000 * (TAPE) */ 61750000 * 2 UCBDMCT CHAR(1), /* VOLUME USE BYTE */ 61800000 * 3 UCBMOUNT BIT(1), /* MOUNTED OR REQUEST ISSUED 61850000 * (OFF MEANS MOUNT VERIFIED) */ 61900000 * 3 UCBDMC BIT(7), /* NUMBER OF DCB'S OPEN FOR THIS 61950000 * VOLUME */ 62000000 * 2 UCBDATP CHAR(0) BDY(WORD),/* END OF COMMON DIRECT ACCESS/ 62050000 * TAPE AREA */ 62100000 * 2 UCBSQC PTR(8), /* NUMBER OF RESERVE MACRO 62150000 * INSTRUCTIONS ISSUED MDC086*/ 62200000 * 2 UCBFL4 BIT(8), /* DIRECT ACCESS FLAG BYTE MDC087*/ 62250000 * 3 UCBDAVV BIT(1), /* DIRECT ACCESS VOLUME VERIFICATION 62300000 * IN CONTROL (DAVV) MDC127*/ 62350000 * 3 UCBWDAV BIT(1), /* DAVV WAITING FOR MOUNT MDC128*/ 62400000 * 3 UCBRESVP BIT(1), /* RESERVE CHANNEL PROGRAM PENDING 62450003 * (MDC356) @ZA06072*/ 62460003 * 3 UCBDSS BIT(1), /* READ HOME ADDRESS AND READ 62500000 * RECORD ZERO OPERATIONS HAVE 62550000 * BEEN PERFORMED BY DYNAMIC 62600000 * SUPPORT SYSTEM (DSS) MDC088*/ 62650000 * 3 UCBATTN BIT(1), /* 3330V ATTENTION RECEIVED 62670016 * (MDC357) @G24LP9A*/ 62700016 * 3 UCBHOLD BIT(1), /* 3330V CYLINDER FAULT PENDING 62750016 * (MDC358) @G24LP9A*/ 62760016 * 3 UCBMAT BIT(1), /* 3330V ATTENTION OVERDUE 62800016 * (MDC359) @G24LP9A*/ 62810016 * 3 UCBRRP BIT(1), /* RESERVE/RELEASE PENDING 62850000 * (MDC373) @G64DP9A*/ 62860000 * 2 UCBUSER PTR(8), /* NUMBER OF CURRENT USERS MDC089*/ 62900000 * 2 UCBSATI PTR(8), /* ATTENTION TABLE INDEX SAVED 62950003 * BY SCHEDULER. (MDC395) @ZA41195*/ 62975003 * 2 UCBBASE PTR(31), /* ADDRESS OF BASE EXPOSURE UCB 63000000 * MDC130*/ 63050000 * 2 UCBNEXP PTR(31); /* BASE - ADDRESS OF LAST 63100000 * STARTED EXPOSURE 63150000 * NON-BASE - ADDRESS OF NEXT 63200000 * EXPOSURE IN THE RING 63250000 * THIS ADDRESS POINTS TO THE 63300000 * MULTIPROCESSING PREFIX MDC131*/ 63350000 * 63400000 */* **************************************************************** */ 63450000 */* */ 63500000 */* MAGNETIC TAPE UCB SEGMENT */ 63550000 */* */ 63600000 */* UCBVOLI, UCBSTAB AND UCBDMCT ARE SAME IN TAPE SEGMENT AS */ 63650000 */* IN DIRECT ACCESS SEGMENT. */ 63700000 */* */ 63750000 *DECLARE 1 UCBOBS02 63800000 *%IF IKEPLS='2' %THEN 63850000 * %GOTO UCBA3; 63900000 * BASED(ADDR(UCBDEV)) BDY(WORD), 63950000 *%GOTO UCBA4; 64000000 *%UCBA3 : ; 64050000 * DEF(UCBDEV) BDY(WORD), 64100000 *%UCBA4 : ; 64150000 */* **************************************************************** */ 64200000 * 64250000 * 2 UCBFSCT FIXED(15), /* DATA SET SEQUENCE COUNT MDC090*/ 64300000 * 2 UCBFSEQ FIXED(15), /* DATA SET SEQUENCE NUMBER MDC091*/ 64350000 * 2 * CHAR(8), /* UCBVOLI, UCBSTAB AND UCBDMCT AS 64400000 * IN DIRECT ACCESS SEGMENT */ 64450000 * 2 UCBFSER CHAR(6), /* BEFORE OPEN, MESSAGE ID'S. 64500000 * SEE UCBSTAB BIT 7. AFTER OPEN, 64550000 * DATA SET SERIAL NUMBER MDC092*/ 64600000 * 2 UCBRES1B CHAR(1), /* RESERVED */ 64650000 * 2 UCBTFL1 BIT(8), /* FLAG BYTE (TAPE DEVICES 64700000 * ONLY) MDC015*/ 64750000 * 3 UCBNLTP BIT(1), /* TAPE VOLUME DOES NOT CONTAIN 64800000 * LABELS MDC016*/ 64850000 * 3 UCBNSLTP BIT(1), /* TAPE CONTAINS NON-STANDARD 64900000 * LABELS MDC017*/ 64950000 * 3 UCBDQDSP BIT(1), /* DEQUEUE TAPE VOLUME WHEN 65000003 * DEMOUNTED (MDC369) @ZA18180*/ 65010003 * 3 UCBRV005 BIT(1), /* RESERVED */ 65050000 * 3 UCBRV006 BIT(1), /* RESERVED */ 65100000 * 3 UCBRV007 BIT(1), /* RESERVED */ 65150000 * 3 UCBRV008 BIT(1), /* RESERVED */ 65200000 * 3 UCBRV009 BIT(1), /* RESERVED */ 65250000 * 2 UCBXTN PTR(31), /* ADDRESS OF THE MAGNETIC TAPE 65300000 * UCB EXTENSION MDC093*/ 65350000 * 3 UCBVOPT BIT(8), /* VOLUME STATISTICS OPTION BITS 65400000 * MDC094*/ 65450000 * 4 UCBESV BIT(1), /* ERROR STATISTICS BY VOLUME 65500000 * (ESV) RECORDS KEPT MDC094*/ 65550000 * 4 UCBEVA BIT(1), /* ERROR VOLUME ANALYSIS (EVA) 65600000 * RECORDS KEPT MDC094*/ 65650000 * 4 UCBESVC BIT(1), /* IF 0, ESV RECORDS SENT TO 65700000 * SYS1.MAN (X OR Y) DATA SET. 65750000 * IF 1, ESV RECORDS SENT TO 65800000 * CONSOLE. MDC094*/ 65850000 * 4 UCBERPC BIT(1), /* AN ERROR RECOVERY PROCEDURE HAS 65900000 * CONTROL MDC094*/ 65950000 * 4 UCBESVE BIT(1), /* AN ESV RECORD HAS BEEN ISSUED 66000000 * FOR THIS VOLUME BECAUSE OF AN 66050000 * EOV CONDITION MDC094*/ 66100000 * 4 UCBRSV20 BIT(1), /* RESERVED MDC094*/ 66150000 * 4 UCBRSV21 BIT(1), /* RESERVED MDC094*/ 66200000 * 4 UCBRSV22 BIT(1), /* RESERVED MDC094*/ 66250000 * 3 UCBXTNB PTR(24); /* ADDRESS OF THE MAGNETIC TAPE 66300000 * UCB EXTENSION MDC095*/ 66350000 * 66400000 */* **************************************************************** */ 66450000 */* */ 66500000 */* UNIT RECORD WITH */ 66550000 */* UNIVERSAL CHARACTER SET (1403, 3211) */ 66600000 */* OR OPTICAL CHARACTER READER (3886) */ 66650000 */* OR 3540 DEVICE @Z30OP9A*/ 66670003 */* OR 3800 DEVICE @Z40MP9A*/ 66680004 */* UCB SEGMENT */ 66700000 */* */ 66750000 *DECLARE 1 UCBOBS03 66800000 *%IF IKEPLS='2' %THEN 66850000 * %GOTO UCBA5; 66900000 * BASED(ADDR(UCBDEV)) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 66950000 *%GOTO UCBA6; 67000000 *%UCBA5 : ; 67050000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 67100000 *%UCBA6 : ; 67150000 * 67200000 */* **************************************************************** */ 67250000 * 67300000 * 2 UCBXTADR PTR(31); /* ADDRESS OF UCS UCB EXTENSION 67350000 * (1403 OR 3211) OR ADDRESS OF 67400000 * OPTICAL CHARACTER READER UCB 67450000 * EXTENSION (3886) OR ADDRESS OF 67500003 * 3540 DEVICE UCB EXTENSION 67510003 * (3540) OR ADDRESS OF 3800 67520004 * DEVICE UCB EXTENSION (3800) 67527004 * (MDC304) @Z40MP9A*/ 67534004 * 67550000 */* **************************************************************** */ 67600000 */* */ 67650000 */* GRAPHICS EXCEPT 3270 */ 67700000 */* UCB SEGMENT */ 67750000 */* */ 67800000 *DECLARE 1 UCBOBS04 67850000 *%IF IKEPLS='2' %THEN 67900000 * %GOTO UCBA7; 67950000 * BASED(ADDR(UCBDEV)) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 68000000 *%GOTO UCBA8; 68050000 *%UCBA7 : ; 68100000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 68150000 *%UCBA8 : ; 68200000 * 68250000 */* **************************************************************** */ 68300000 */* */ 68350000 * 2 UCBSTART PTR(15), /* LAST START ADDRESS (MDC247) 68400000 * YM4067*/ 68450000 * 2 UCBOPEN PTR(8), /* NUMBER OF DCB'S THAT ARE 68500000 * CURRENTLY OPEN FOR THIS DEVICE */ 68550000 * 2 UCBGCB CHAR(1), /* GRAPHIC CONTROL BYTE USED FOR 68600000 * ATTENTION HANDLING */ 68650000 * 2 UCBTEB PTR(31), /* ADDRESS OF TASK ENTRY (TE) 68700000 * BLOCK */ 68750000 * 2 UCBSNS CHAR(4) BDY(WORD), /* SENSE INFORMATION (MDC248) 68800000 * YM4067*/ 68850000 * 2 UCBBTA PTR(31), /* ADDRESS OF BUFFER TABLE */ 68900000 * 3 UCBDI PTR(8), /* DEVICE OR DEVICES ON A CONTROL 68950000 * UNIT TO WHICH BUFFER SECTIONS 69000000 * ARE ASSIGNED */ 69050000 * 3 UCBBTB PTR(24); /* ADDRESS OF BUFFER TABLE */ 69100000 * 69150000 */* **************************************************************** */ 69200000 */* */ 69250000 */* 3270 GRAPHICS */ 69300000 */* UCB SEGMENT */ 69350000 */* */ 69400000 *DECLARE 1 UCBOBS06 69450000 *%IF IKEPLS='2' %THEN 69500000 * %GOTO UCBA11; 69550000 * BASED(ADDR(UCBDEV)) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT 69600000 * ICB480*/ 69650000 *%GOTO UCBA12; 69700000 *%UCBA11 : ; 69750000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT ICB480*/ 69800000 *%UCBA12 : ; 69850000 * 69900000 */* **************************************************************** */ 69950000 */* */ 70000000 * 2 UCBAOF CHAR(2), /* ADDITIONAL OPTIONAL FEATURES. 70050000 * AN EXTENSION OF THE OPTIONAL 70100000 * FEATURES BYTE OF THE UCBTYP 70150000 * FIELD. ICB480*/ 70200000 * 3 UCBAOF1 BIT(8), /* FIRST BYTE OF UCBAOF ICB480*/ 70250000 * 4 UCBOFMCR BIT(1), /* MAGNETIC CARD READER ADAPTER - 70300000 * FOR 3277 ONLY ICB480*/ 70350000 * 4 UCBOFSP BIT(1), /* SELECTOR PEN - FOR 3277 70400000 * ONLY ICB480*/ 70450000 * 4 UCBOFNL BIT(1), /* NUMERIC LOCK - FOR 3277 70500000 * ONLY ICB480*/ 70550000 * 4 UCBOFPTR BIT(1), /* PREPARE TO READ FEATURE 70600003 * (MDC388) @ZA41164*/ 70625003 * 4 UCBRSV65 BIT(1), /* RESERVED ICB480*/ 70650000 * 4 UCBRSV66 BIT(1), /* RESERVED ICB480*/ 70700000 * 4 UCBRSV67 BIT(1), /* RESERVED ICB480*/ 70750000 * 4 UCBRSV68 BIT(1), /* RESERVED ICB480*/ 70800000 * 3 UCBAOF2 BIT(8), /* SECOND BYTE OF UCBAOF ICB480*/ 70850000 * 4 UCBRSV69 BIT(1), /* RESERVED ICB480*/ 70900000 * 4 UCBRSV70 BIT(1), /* RESERVED ICB480*/ 70950000 * 4 UCBRSV71 BIT(1), /* RESERVED ICB480*/ 71000000 * 4 UCBRSV72 BIT(1), /* RESERVED ICB480*/ 71050000 * 4 UCBRSV73 BIT(1), /* RESERVED ICB480*/ 71100000 * 4 UCBRSV74 BIT(1), /* RESERVED ICB480*/ 71150000 * 4 UCBRSV75 BIT(1), /* RESERVED ICB480*/ 71200000 * 4 UCBRSV76 BIT(1), /* RESERVED ICB480*/ 71250000 * 2 UCBATNCT PTR(8), /* ATTENTION COUNT. THE NUMBER OF 71300000 * ATTENTIONS NOT SERVICED IN THE 71350000 * LINE GROUP. PRESENT ONLY IF 71400000 * THE DEVICE INDEX FIELD IS 1. 71450000 * OTHERWISE, THIS FIELD IS 71500000 * RESERVED. ICB480*/ 71550000 * 2 * BIT(8), /* UCBGCB - CONTROL BYTE. 71600000 * USED FOR ATTENTION HANDLING 71650000 * FLAGS. ICB480*/ 71700000 * 3 UCBOLTEP BIT(1), /* OLTEP IN CONTROL OF THE 71750000 * DEVICE ICB480*/ 71800000 * 3 UCBRSV77 BIT(1), /* RESERVED ICB480*/ 71850000 * 3 UCBRSV78 BIT(1), /* RESERVED ICB480*/ 71900000 * 3 UCBRSV79 BIT(1), /* RESERVED ICB480*/ 71950000 * 3 UCBRTIAC BIT(1), /* READ TI ACTIVE MDC171*/ 72000000 * 3 UCBRIPND BIT(1), /* READ INITIAL PENDING ICB480*/ 72050000 * 3 UCBSKPFG BIT(1), /* SKIP FLAG ICB480*/ 72100000 * 3 UCBATRCD BIT(1), /* ATTENTION RECEIVED FROM THE 72150000 * DEVICE ICB480*/ 72200000 * 2 UCBIRB PTR(31), /* ADDRESS OF THE IRB USED FOR 72250000 * SCHEDULING THE SECOND LEVEL 72300000 * ATTENTION ROUTINE ICB480*/ 72350000 * 3 UCBGRAF BIT(8), /* GRAPHICS STATUS FLAGS (BTAM) 72400000 * MDC172*/ 72450000 * 4 UCBOIP BIT(1), /* OPEN IS IN PROGRESS MDC173*/ 72500000 * 4 UCBDRO BIT(1), /* DEVICE READY IN OPEN MDC174*/ 72550000 * 4 UCBDRNO BIT(1), /* DEVICE READY - NOT IN OPEN 72600000 * MDC175*/ 72650000 * 4 UCBBTAM BIT(1), /* USE BTAM - IGG019UP MDC176*/ 72700000 * 4 UCBUPM BIT(1), /* USE PROVIDED MODULE MDC177*/ 72750000 * 4 UCBRPND BIT(1), /* READY PROCESSING NOT DONE 72800000 * MDC178*/ 72850000 * 4 UCBDWNR BIT(1), /* DEVICE WENT NOT READY MDC179*/ 72900000 * 4 UCBRV039 BIT(1), /* RESERVED - BTAM MDC180*/ 72950000 * 3 UCBIRBA PTR(24), /* ADDRESS OF THE IRB USED FOR 73000000 * SCHEDULING THE SECOND LEVEL 73050000 * ATTENTION ROUTINE MDC181*/ 73100000 * 2 UCBLDNCA PTR(31), /* ADDRESS OF 3270 WORK AREA 73150000 * ESTABLISHED BY VTAM MDC132*/ 73200000 * 3 UCBRDYQ PTR(31), /* ASYNCHRONOUS READY NOTIFICATION 73250000 * IRB ADDRESS (BTAM) MDC182*/ 73300000 * 4 UCBIRLN PTR(8), /* INITIALIZED RLN. THE RELATIVE 73350000 * LINE NUMBER (RLN) OF THE IOB 73400000 * INITIALIZED FOR A READ INITIAL. 73450000 * IF 0, NO READ INITIAL IS 73500000 * OUTSTANDING. PRESENT ONLY IF 73550000 * THE DEVICE INDEX FIELD IS 1. 73600000 * OTHERWISE, THIS FIELD IS 73650000 * RESERVED. ICB480*/ 73700000 * 5 UCBINRLN PTR(8), /* SAME AS UCBIRLN MDC183*/ 73750000 * 4 UCBLDNCB PTR(24), /* ADDRESS OF 3270 WORK AREA 73800000 * ESTABLISHED BY VTAM MDC133*/ 73850000 * 5 UCBRDYQA PTR(24), /* ASYNCHRONOUS READY NOTIFICATION 73900000 * IRB ADDRESS (BTAM) MDC184*/ 73950000 * 2 UCBCTLNK PTR(31), /* SAME AS UCBCTLNA BELOW ICB480*/ 74000000 * 3 UCBRLN PTR(8), /* DEVICE INDEX. INDEX TO THE DEB 74050000 * UCB ADDRESS FIELD FOR THIS 74100000 * DEVICE. THIS VALUE IS ALSO THE 74150000 * RELATIVE LINE NUMBER. ICB480*/ 74200000 * 3 UCBCTLNA PTR(24); /* CONTROL BLOCK LINK. IF THE 74250000 * DEVICE INDEX FIELD IS 1, THIS 74300000 * FIELD CONTAINS THE ADDRESS OF 74350000 * THE DEB FOR THE LINE GROUP. 74400000 * IF THE DEVICE INDEX FIELD IS 74450000 * BETWEEN 2 AND 255 INCLUSIVE, 74500000 * THIS FIELD CONTAINS THE 74550000 * ADDRESS OF THE UCB WITH A 74600000 * DEVICE INDEX OF 1. ICB480*/ 74650000 * 74700000 */* **************************************************************** */ 74750000 */* */ 74800000 */* 3704, 3705 TELEPROCESSING DEVICE */ 74850000 */* UCB SEGMENT */ 74900000 */* */ 74950000 *DECLARE 1 UCBOBS07 75000000 *%IF IKEPLS='2' %THEN 75050000 * %GOTO UCBA15; 75100000 * BASED(ADDR(UCBDEV)) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 75150000 *%GOTO UCBA16; 75200000 *%UCBA15 : ; 75250000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 75300000 *%UCBA16 : ; 75350000 * 75400000 */* **************************************************************** */ 75450000 */* */ 75500000 * 2 UCBRV040 PTR(31), /* RESERVED FOR USE AS 75550000 * TELEPROCESSING EXTENSION 75600000 * POINTER MDC185*/ 75650000 * 2 UCBICNCB PTR(31); /* POINTER TO VTAM'S ICNCB MDC186*/ 75700000 * 75750000 */* **************************************************************** */ 75800000 */* */ 75850000 */* CHANNEL-TO-CHANNEL (CTC) DEVICE */ 75900000 */* UCB SEGMENT */ 75950000 */* */ 76000000 *DECLARE 1 UCBOBS08 76050000 *%IF IKEPLS='2' %THEN 76100000 * %GOTO UCBA17; 76150000 * BASED(ADDR(UCBDEV)) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 76200000 *%GOTO UCBA18; 76250000 *%UCBA17 : ; 76300000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 76350000 *%UCBA18 : ; 76400000 * 76450000 */* **************************************************************** */ 76500000 */* */ 76550000 * 2 UCBCTCAD PTR(31), /* ADDRESS OF AN SRB/IOSB TO BE 76600000 * USED FOR SENSE COMMAND BYTE BY 76650000 * IECTCATN IF UCBCTC80 BIT IS SET 76700004 * TO ZERO (MDC343) @Z40JP9A*/ 76707004 * 3 UCBCTCAL PTR(31), /* ADDRESS OF JES3 ROUTINE FOR 76714004 * SWITCHING TO ALTERNATE PATH CTC 76721004 * IF UCBCTC80 BIT IS SET TO ONE 76728004 * (MDC344) @Z40JP9A*/ 76735004 * 2 UCBCTCF1 BIT(8), /* CHANNEL-TO-CHANNEL (CTC) DEVICE 76750000 * FLAG BYTE MDC241*/ 76800000 * 3 UCBCTC80 BIT(1), /* IF THIS BIT IS ON, ABOVE WORD 76803004 * HAS UCBCTCAL MEANING. IF THIS 76806004 * BIT IS OFF, ABOVE WORD HAS 76809004 * UCBCTCAD MEANING. 76812004 * (MDC345) @Z40JP9A*/ 76815004 * 3 UCBRV076 BIT(1), /* RESERVED @Z40JP9A*/ 76818004 * 3 UCBRV077 BIT(1), /* RESERVED @Z40JP9A*/ 76821004 * 3 UCBRV078 BIT(1), /* RESERVED @Z40JP9A*/ 76824004 * 3 UCBRV079 BIT(1), /* RESERVED @Z40JP9A*/ 76827004 * 3 UCBRV080 BIT(1), /* RESERVED @Z40JP9A*/ 76830004 * 3 UCBRV081 BIT(1), /* RESERVED @Z40JP9A*/ 76833004 * 3 UCBRV082 BIT(1), /* RESERVED @Z40JP9A*/ 76836004 * 2 UCBRV042 CHAR(3); /* RESERVED MDC242*/ 76850000 * 76852003 */* **************************************************************** */ 76854003 */* */ 76856003 */* 3851 OR 3838 DEVICE (MDC362) @G29AN9A*/ 76857016 */* UCB SEGMENT */ 76860003 */* */ 76862003 *DECLARE 1 UCBOBS09 76864003 *%IF IKEPLS='2' %THEN 76866003 * %GOTO UCBA19; 76868003 * BASED(ADDR(UCBDEV)) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 76870003 *%GOTO UCBA20; 76872003 *%UCBA19 : ; 76874003 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 76876003 *%UCBA20 : ; 76878003 * 76880003 */* **************************************************************** */ 76882003 */* */ 76884003 * 2 UCBIOSBA PTR(31), /* ADDRESS OF IOSB. SET BY IOS 76886003 * FOR ERROR CONDITIONS. 76888003 * (MDC330) @Z30LP9A*/ 76890003 * 2 UCBRV066 PTR(31), /* RESERVED (MDC331) @Z30LP9A*/ 76893303 * 4 UCBAPUB PTR(31); /* 3838 VPSS APUB ADDRESS @ZA56736*/ 76896603 * 76900000 * 76950000 */* **************************************************************** */ 77000000 */* */ 77050000 */* UNIT CONTROL BLOCK EXTENSIONS */ 77100000 */* */ 77150000 */* **************************************************************** */ 77200000 * 77250000 */* **************************************************************** */ 77300000 */* */ 77350000 */* COMMON UCB EXTENSION */ 77400000 */* */ 77450000 */* THIS EXTENSION IS POINTED TO BY THE UCBEXTPT FIELD IN THE */ 77500000 */* COMMON SEGMENT AND IS NOT CONTIGUOUS TO THE UCB. */ 77550000 */* */ 77600000 *DECLARE 77650000 * 1 UCBCMEXT BASED(UCBEXTPT) BDY(WORD), /* MDC225*/ 77700000 * 77750000 */* **************************************************************** */ 77800000 */* */ 77850000 * 2 UCBETI PTR(8) BDY(WORD),/* A BINARY NUMBER USED BY THE 77900000 * EXIT EFFECTOR ROUTINE TO 77950000 * COMPLETE THE 8-BYTE NAME OF AN 78000000 * IBM-SUPPLIED ERROR ROUTINE FOR 78050000 * THIS DEVICE MDC209*/ 78100000 * 2 UCBSTI PTR(8), /* INCREMENT WHICH, WHEN 78150000 * MULTIPLIED BY 10, BECOMES AN 78200000 * INDEX TO THE STATISTICS TABLE 78250000 * (STATAB) MDC210*/ 78300000 * 2 UCBDTI PTR(8), /* INDEX TO THE DEVICE TABLE 78350000 * MDC211*/ 78400000 * 2 UCBATI PTR(8), /* INDEX TO THE ATTENTION TABLE 78450000 * (ANTAB) MDC212*/ 78500000 * 3 * BIT(8), /* OPTIONAL JOB ENTRY SUBSYSTEM 78550000 * (JES) FLAG BYTE ICB455*/ 78600000 * 4 UCBRSV04 BIT(1), /* RESERVED */ 78650000 * 4 UCBRSV05 BIT(1), /* RESERVED */ 78700000 * 4 UCBRSV06 BIT(1), /* RESERVED */ 78750000 * 4 UCBRSV07 BIT(1), /* RESERVED */ 78800000 * 4 UCBRSV08 BIT(1), /* RESERVED */ 78850000 * 4 UCBRSV09 BIT(1), /* RESERVED */ 78900000 * 4 UCBHALI BIT(1), /* OPTIONAL JOB ENTRY SUBSYSTEM 78950000 * (JES) ALLOCATION INDICATOR 79000000 * MDC213*/ 79050000 * 4 UCBHPDV BIT(1), /* OPTIONAL JOB ENTRY SUBSYSTEM 79100000 * (JES) PSEUDO-DEVICE MDC214*/ 79150000 * 2 UCBSNSCT PTR(8), /* COUNT OF SENSE BYTES PRESENTED 79200000 * BY THIS DEVICE MDC215*/ 79250000 * 2 UCBFLP1 BIT(8), /* FLAG BYTE MDC216*/ 79300000 * 3 UCBNSRCH BIT(1), /* THE CURRENTLY ALLOCATED VOLUME 79350000 * WAS SPECIFICALLY REQUESTED BY 79400000 * VOLUME SERIAL NUMBER. IT IS 79450000 * NOT AVAILABLE FOR ASSIGNMENT 79500000 * BY OPEN/EOV FOR A NON-SPECIFIC 79550000 * VOLUME REQUEST. MDC217*/ 79600000 * 3 UCBSHRUP BIT(1), /* SHAREABLE WHEN IN UNIPROCESSOR 79650003 * MODE (MDC333) @ZA00805*/ 79660003 * 3 UCBNSWAP BIT(1), /* IF THIS BIT IS ON AND UCBPRES 79700003 * BIT IS ON, THIS FIXED HEAD 79710003 * DEVICE CANNOT BE SWAPPED 79720003 * (MDC364) @ZA16810*/ 79730003 * 3 UCBINHIO BIT(1), /* INHIBIT HIO FROM SVC 33 79750003 * (MDC365) @ZA16811*/ 79760003 * 3 UCBSWAPF BIT(1), /* WITH BIT SET, THE DEVICE IS 79800003 * ABLE TO BE SWAPPED 79810003 * (MDC370) @ZA31339*/ 79820003 * 3 UCBERLOG BIT(1), /* INDICATES PRESENCE OF AN ERROR 79830003 * LOG IN A DEVICE (MDC328) 79840003 * @Z40MP9A*/ 79850003 * 3 UCBRV035 BIT(1), /* RESERVED MDC163*/ 79860003 * 3 UCBRV036 BIT(1), /* RESERVED MDC163*/ 79900003 * 2 UCBRV041 CHAR(2), /* RESERVED MDC226*/ 80000000 * 2 UCBCCWOF FIXED(15), /* OFFSET TO CCW PREFIX MDC218*/ 80050000 * 2 UCBPMSK BIT(16), /* PATH MASK FOR MESSAGES 80100000 * ISSUED MDC219*/ 80150000 * 2 UCBMFCNT FIXED(15), /* MEASUREMENT FACILITIES TOTAL 80200000 * DEVICE SIO COUNT. DURING NIP 80250000 * UCB INITIALIZATION, USED FOR 80300000 * PREVIOUSLY TESTED INDICATOR. 80350000 * MDC220*/ 80400000 * 2 UCBASID FIXED(15), /* ASID OF THE MEMORY TO WHICH 80450000 * THIS DEVICE IS ALLOCATED EXCEPT 80500004 * FOR UNALLOCATED TAPE. FOR 80507004 * UNALLOCATED TAPE, ASID OF THE 80514004 * LAST MEMORY TO WHICH THIS 80521004 * DEVICE WAS ALLOCATED. 80528004 * (MDC348) @ZA05164*/ 80535004 * 2 UCBMIHTI BIT(8) ABNORMAL, /* MISSING INTERRUPT HANDLER BYTE 80550041 * (MDC354) @ZA31340*/ 80550241 * 3 UCBMIHSF BIT(1), /* MISSING INTERRUPT HANDLER UCB 80550841 * SCAN FLAG (MDC376) @ZA31340*/ 80551241 * 3 UCBMIHPB BIT(1), /* WITH BIT SET, MISSING INTERRUPT 80551641 * HANDLER CHECKING OF DEVICE IS 80552041 * PERMANENTLY BYPASSED 80552441 * (MDC375) @ZA31340*/ 80552841 * 3 UCBMIHT1 BIT(1), /* WITH BIT SET, MISSING INTERRUPT 80553241 * HANDLER CHECKING OF DEVICE IS 80553641 * TEMPORARILY BYPASSED 80554041 * (MDC374) @ZA31340*/ 80554441 * 3 UCBMIHT2 BIT(1), /* WITH BIT SET, MISSING INTERRUPT 80554841 * HANDLER CHECKING OF DEVICE IS 80555241 * TEMPORARILY BYPASSED 80555641 * (MDC378) @ZA31340*/ 80556041 * 3 UCBRV084 BIT(1), /* RESERVED (MDC377) @G64DP9A*/ 80556400 * 3 UCBRV085 BIT(1), /* RESERVED (MDC377) @G64DP9A*/ 80566400 * 3 UCBRV086 BIT(1), /* RESERVED (MDC377) @G64DP9A*/ 80576400 * 3 UCBRV087 BIT(1), /* RESERVED (MDC377) @G64DP9A*/ 80586400 * 2 UCBWTOID CHAR(3), /* WTO MESSAGE IDENTIFIER 80596400 * (MDC250) YM6828*/ 80606400 * 2 UCBDDT PTR(31); /* ADDRESS OF DEVICE-DEPENDENT 80616400 * TABLE ASSOCIATED WITH UCB 80626400 * (MDC371) @G64DP9A*/ 80636400 * 80700000 */* **************************************************************** */ 80750000 */* */ 80800000 */* MAGNETIC TAPE */ 80850000 */* UCB EXTENSION */ 80900000 */* */ 80950000 */* THIS EXTENSION IS POINTED TO BY THE UCBXTN FIELD OF THE */ 81000000 */* UCB AND IS NOT CONTIGUOUS TO THE UCB. */ 81050000 */* */ 81100000 *DECLARE 81150000 * 1 UCBMT BASED(UCBXTN) BDY(WORD), 81200000 * 81250000 */* **************************************************************** */ 81300000 */* */ 81350000 * 2 UCBCTD FIXED(15), /* SERIAL NUMBER IN BINARY OF TAPE 81400000 * DRIVE UPON WHICH THE VOLUME 81450000 * WAS CREATED MDC097*/ 81500000 * 2 UCBTRT PTR(8), /* TEMPORARY READ ERROR THRESHOLD 81550000 * (IF 0, EVA IS NOT IN EFFECT). 81600000 * A BINARY NUMBER FROM 1 THROUGH 81650000 * 255 AS SELECTED AT SYSGEN TIME 81700000 * ON THE SCHEDULR MACRO BY 81750000 * EVA=(N1,N2) WHERE N1 = TEMPORARY 81800000 * READ ERROR THRESHOLD. MDC097*/ 81850000 * 2 UCBTWT PTR(8), /* TEMPORARY WRITE ERROR THRESHOLD 81900000 * (IF 0, EVA IS NOT IN EFFECT). 81950000 * A BINARY NUMBER FROM 1 THROUGH 82000000 * 255 AS SELECTED AT SYSGEN TIME 82050000 * ON THE SCHEDULR MACRO BY 82100000 * EVA=(N1,N2) WHERE N2 = TEMPORARY 82150000 * WRITE ERROR THRESHOLD. MDC097*/ 82200000 * 2 UCBTR PTR(8) BDY(WORD),/* THE NUMBER (BINARY) OF 82250000 * TEMPORARY READ ERRORS THAT HAVE 82300000 * OCCURRED MDC097*/ 82350000 * 2 UCBTW PTR(8), /* THE NUMBER (BINARY) OF 82400000 * TEMPORARY WRITE ERRORS THAT 82450000 * HAVE OCCURRED MDC097*/ 82500000 * 2 UCBSIO FIXED(15), /* THE NUMBER (BINARY) OF START 82550000 * I/O OPERATIONS THAT HAVE 82600000 * OCCURRED MDC097*/ 82650000 * 2 UCBPR PTR(8) BDY(WORD),/* THE NUMBER (BINARY) OF 82700000 * PERMANENT READ ERRORS THAT HAVE 82750000 * OCCURRED MDC097*/ 82800000 * 2 UCBPW PTR(8), /* THE NUMBER (BINARY) OF 82850000 * PERMANENT WRITE ERRORS THAT 82900000 * HAVE OCCURRED MDC097*/ 82950000 * 2 UCBNB PTR(8), /* THE NUMBER (BINARY) OF NOISE 83000000 * BLOCKS THAT HAVE BEEN 83050000 * ENCOUNTERED MDC097*/ 83100000 * 2 UCBMS CHAR(1), /* MODE SET OPERATION CODE FOR 83150000 * DATA BLOCKS ON A 3420 MAGNETIC 83200000 * TAPE UNIT MDC097*/ 83250000 * 2 UCBERG FIXED(15) BDY(WORD),/* THE NUMBER (BINARY) OF ERASE 83300000 * GAPS THAT HAVE BEEN 83350000 * ENCOUNTERED MDC097*/ 83400000 * 2 UCBCLN FIXED(15); /* THE NUMBER (BINARY) OF CLEANER 83450000 * ACTIONS THAT HAVE OCCURRED 83500000 * MDC097*/ 83550000 * 83600000 */* **************************************************************** */ 83650000 */* */ 83700000 */* OPTICAL CHARACTER READER (3886) */ 83750000 */* UCB EXTENSION */ 83800000 */* */ 83850000 */* THIS EXTENSION IS POINTED TO BY THE UCBXTADR FIELD OF THE */ 83900000 */* UCB AND IS NOT CONTIGUOUS TO THE UCB. */ 83950000 */* */ 84000000 *DECLARE 84050000 * 1 UCBOCR BASED(UCBXTADR) BDY(WORD), /* MDC024*/ 84100000 * 84150000 */* **************************************************************** */ 84200000 */* */ 84250000 * 2 UCBFRID CHAR(4) BDY(WORD), /* CURRENT FORMAT RECORD ID 84300000 * (FRID) LOADED MDC025*/ 84350000 * 2 UCBRDATA CHAR(4) BDY(WORD); /* COMMAND DATA MDC026*/ 84400000 * 84450000 */* **************************************************************** */ 84451003 */* */ 84452003 */* 3450 DEVICE @Z30OP9A*/ 84453003 */* UCB EXTENSION @Z30OP9A*/ 84454003 */* */ 84455003 */* THIS EXTENSION IS POINTED TO BY THE UCBXTADR FIELD OF THE */ 84456003 */* UCB AND IS NOT CONTIGUOUS TO THE UCB. @Z30OP9A*/ 84457003 */* */ 84458003 *DECLARE 84459003 * 1 UCB3540X BASED(UCBXTADR) BDY(WORD), /* (MDC325) @Z30OP9A*/ 84460003 * 84461003 */* **************************************************************** */ 84462003 */* */ 84463003 * 2 UCBVLSER CHAR(6), /* 3540 VOLID (MDC326) @Z30OP9A*/ 84464003 * 2 UCBDKBYT BIT(8), /* FLAG BYTE (MDC334) @Z30OP9A*/ 84465003 * 3 UCBDKAMX BIT(1), /* IBM-SUPPLIED DISKETTE READER, 84466003 * DISKETTE WRITER OR COPY/RESTORE 84467003 * UTILITIES ARE USING THIS 3540 84468003 * DEVICE (MDC335) @Z30OP9A*/ 84469003 * 3 UCBVLVER BIT(1), /* VOLUME VERIFICATION IS REQUIRED 84470003 * FOR CERTAIN INTERVENTION 84471003 * REQUIRED CONDITIONS WHILE 3540 84472003 * DISKETTE UTILITIES ARE USING 84473003 * THE DEVICE (MDC336) @Z30OP9A*/ 84474003 * 3 UCBRV067 BIT(1), /* RESERVED @Z30OP9A*/ 84475003 * 3 UCBRV068 BIT(1), /* RESERVED @Z30OP9A*/ 84476003 * 3 UCBRV069 BIT(1), /* RESERVED @Z30OP9A*/ 84477003 * 3 UCBRV070 BIT(1), /* RESERVED @Z30OP9A*/ 84478003 * 3 UCBRV071 BIT(1), /* RESERVED @Z30OP9A*/ 84479003 * 3 UCBRV072 BIT(1), /* RESERVED @Z30OP9A*/ 84480003 * 2 UCBRV073 CHAR(1); /* RESERVED @Z30OP9A*/ 84481003 * 84482003 */* **************************************************************** */ 84500004 */* */ 84500704 */* 3800 DEVICE @Z40MP9A*/ 84501404 */* UCB EXTENSION @Z40MP9A*/ 84502104 */* */ 84502804 */* THIS EXTENSION IS POINTED TO BY THE UCBXTADR FIELD OF THE */ 84503504 */* UCB AND IS NOT CONTIGUOUS TO THE UCB. @Z40MP9A*/ 84504204 */* */ 84504904 *DECLARE 84505604 * 1 UCB3800X BASED(UCBXTADR) BDY(WORD), /* (MDC305) @Z40MP9A*/ 84506304 * 84507004 */* **************************************************************** */ 84507704 */* */ 84508404 * 2 UCBOPTNS BIT(8), /* OPTIONAL FEATURES INSTALLED ON 84509104 * PRINTER (MDC306) @Z40MP9A*/ 84509804 * 3 UCBRV051 BIT(1), /* RESERVED @Z40MP9A*/ 84510504 * 3 UCBRV052 BIT(1), /* RESERVED @Z40MP9A*/ 84511204 * 3 UCBRV053 BIT(1), /* RESERVED @Z40MP9A*/ 84511904 * 3 UCBRV054 BIT(1), /* RESERVED @Z40MP9A*/ 84512604 * 3 UCBRV055 BIT(1), /* RESERVED @Z40MP9A*/ 84513304 * 3 UCBRV056 BIT(1), /* RESERVED @Z40MP9A*/ 84514004 * 3 UCBBRSTR BIT(1), /* RESERVED (MDC307) @Z40MP9A*/ 84514704 * 3 UCBRV083 BIT(1), /* RESERVED (MDC308) @Z40MP9A*/ 84515404 * 2 UCBCGMNO PTR(8), /* NUMBER OF WRITEABLE CHARACTER 84516104 * GENERATION MODULES 84516804 * (MDC309) @Z40MP9A*/ 84517504 * 2 UCBGRAFS BIT(8), /* GRAPHIC CHARACTER FLAG BYTE 84518203 * (MDC387) @ZA42324*/ 84518303 * 3 UCBRV046 BIT(1), /* RESERVED (MDC387) @ZA42324*/ 84518403 * 3 UCBRV047 BIT(1), /* RESERVED (MDC387) @ZA42324*/ 84518503 * 3 UCBRV048 BIT(1), /* RESERVED (MDC387) @ZA42324*/ 84518603 * 3 UCBRV049 BIT(1), /* RESERVED (MDC387) @ZA42324*/ 84518703 * 3 UCBGRAF0 BIT(1), /* WCGM 0 HAS BEEN MODIFIED BY A 84518803 * GRAPHIC CHARACTER MODIFICATION 84518903 * (MDC387) @ZA42324*/ 84519003 * 3 UCBGRAF1 BIT(1), /* WCGM 1 HAS BEEN MODIFIED BY A 84519103 * GRAPHIC CHARACTER MODIFICATION 84519203 * (MDC387) @ZA42324*/ 84519303 * 3 UCBGRAF2 BIT(1), /* WCGM 2 HAS BEEN MODIFIED BY A 84519403 * GRAPHIC CHARACTER MODIFICATION 84519503 * (MDC387) @ZA42324*/ 84519603 * 3 UCBGRAF3 BIT(1), /* WCGM 3 HAS BEEN MODIFIED BY A 84519703 * GRAPHIC CHARACTER MODIFICATION 84519803 * (MDC387) @ZA42324*/ 84519903 * 2 UCBACTIV BIT(8), /* ACTIVE FEATURES 84520003 * (MDC311) @Z40MP9A*/ 84520103 * 3 UCBRV057 BIT(1), /* RESERVED @Z40MP9A*/ 84520304 * 3 UCBRV058 BIT(1), /* RESERVED @Z40MP9A*/ 84521004 * 3 UCBRV059 BIT(1), /* RESERVED @Z40MP9A*/ 84521704 * 3 UCBRV060 BIT(1), /* RESERVED @Z40MP9A*/ 84522404 * 3 UCBRV061 BIT(1), /* RESERVED @Z40MP9A*/ 84523104 * 3 UCBRV062 BIT(1), /* RESERVED @Z40MP9A*/ 84523804 * 3 UCBRV063 BIT(1), /* RESERVED @Z40MP9A*/ 84524504 * 3 UCBBRSTA BIT(1), /* RESERVED (MDC312) @Z40MP9A*/ 84525204 * 2 UCBCGMID (4) CHAR(1), /* FOUR ONE-BYTE ID'S FOR 84525904 * CHARACTER MODULES LOADED IN 84526604 * WRITEABLE CHARACTER GENERATION 84527304 * MODULES (WCGM'S) 84528004 * (MDC313) @Z40MP9A*/ 84528704 * 2 UCBCHAR1 CHAR(4) BDY(WORD), /* NAME OF FIRST TRANSLATE TABLE 84529404 * (MDC314) @Z40MP9A*/ 84530104 * 2 UCBCHAR2 CHAR(4) BDY(WORD), /* NAME OF SECOND TRANSLATE TABLE 84530804 * (MDC315) @Z40MP9A*/ 84531504 * 2 UCBCHAR3 CHAR(4) BDY(WORD), /* NAME OF THIRD TRANSLATE TABLE 84532204 * (MDC316) @Z40MP9A*/ 84532904 * 2 UCBCHAR4 CHAR(4) BDY(WORD), /* NAME OF FOURTH TRANSLATE TABLE 84533604 * (MDC317) @Z40MP9A*/ 84534304 * 2 UCBFCBNM CHAR(4) BDY(WORD), /* FORMS CONTROL BUFFER (FCB) 84535004 * IMAGE NAME (MDC318) @Z40MP9A*/ 84535704 * 2 UCBIMAGE CHAR(4) BDY(WORD), /* FORMS OVERLAY IMAGE 84536404 * IDENTIFICATION 84537104 * (MDC319) @Z40MP9A*/ 84537804 * 2 UCBLDATA FIXED(16), /* LOST DATA PAGE COUNT 84538503 * (MDC387) @ZA42324*/ 84538603 * 2 UCBPGID FIXED(16), /* ID OF THE LAST FUSED PAGE FOR 84538703 * SYSTEM RESTART OR PAGE AT THE 84538803 * TRANSFER STATION FOR CANCEL KEY 84538903 * (MDC387) @ZA42324*/ 84539003 * 2 UCBMDRBF PTR(31), /* MISCELLANEOUS DATA RECORDING 84539204 * (MDR) BUFFER ADDRESS 84539904 * (MDC339) @Z40MP9A*/ 84540604 * 3 UCBRV075 PTR(8), /* RESERVED (MDC340) @Z40MP9A*/ 84541304 * 3 UCBMDRBA PTR(24); /* MDR BUFFER ADDRESS 84542004 * (MDC341) @Z40MP9A*/ 84542704 * 84543404 */* **************************************************************** */ 84544104 */* */ 84550000 */* UNIT RECORD WITH */ 84600000 */* UNIVERSAL CHARACTER SET (1403, 3211) */ 84650000 */* UCB EXTENSION */ 84700000 */* */ 84750000 */* THIS EXTENSION IS POINTED TO BY THE UCBXTADR FIELD OF THE */ 84800000 */* UCB AND IS NOT CONTIGUOUS TO THE UCB. */ 84850000 */* */ 84900000 *DECLARE 1 UCBUCS 84950000 * BASED(UCBXTADR) BDY(WORD), /* DEVICE DEPENDENT SEGMENT */ 85000000 * 85050000 */* **************************************************************** */ 85100000 * 85150000 * 2 UCBUCSID CHAR(4) BDY(WORD),/* UCS IMAGE IDENTIFICATION IN 85200000 * BUFFER */ 85250000 * 2 UCBUCSOP BIT(8), /* FORMAT OF UCS IMAGE IN BUFFER 85300000 * (O FOR OPTION) */ 85350000 * 3 UCBUCSO1 BIT(1), /* UCS IMAGE IS A DEFAULT IMAGE */ 85400000 * 3 UCBUCSO2 BIT(1), /* UCS IMAGE IS IN FOLD MODE */ 85450000 * 3 UCBRSV39 BIT(1), /* RESERVED */ 85500000 * 3 UCBRSV40 BIT(1), /* RESERVED */ 85550000 * 3 UCBRSV41 BIT(1), /* RESERVED */ 85600000 * 3 UCBRSV42 BIT(1), /* RESERVED */ 85650000 * 3 UCBRSV43 BIT(1), /* RESERVED */ 85700000 * 3 UCBUCSPE BIT(1), /* UCS IMAGE HAS PARITY ERROR 85750000 * (3211) */ 85800000 * 2 UCBFCBOP BIT(8), /* RESERVED (1403) OR FCB OPTIONS 85850000 * (3211) (O FOR OPTION) */ 85900000 * 3 UCBFCBO1 BIT(1), /* FCB IMAGE IS A DEFAULT IMAGE */ 85950000 * 3 UCBRSV44 BIT(1), /* RESERVED */ 86000000 * 3 UCBRSV45 BIT(1), /* RESERVED */ 86050000 * 3 UCBRSV46 BIT(1), /* RESERVED */ 86100000 * 3 UCBRSV47 BIT(1), /* RESERVED */ 86150000 * 3 UCBRSV48 BIT(1), /* RESERVED */ 86200000 * 3 UCBRSV49 BIT(1), /* RESERVED */ 86250000 * 3 UCBFCBPE BIT(1), /* FCB IMAGE HAS PARITY ERROR 86300003 * (MDC372) @ZA26074*/ 86310003 * 2 UCBRSV51 PTR(8), /* RESERVED */ 86350000 * 2 UCBERCNT PTR(8), /* CONTAINS A COUNT OF THE ERRORS 86400000 * THAT HAVE OCCURRED. THE COUNT, 86450000 * WHICH MAY WRAP AROUND, IS 86500000 * WRITTEN IN STANDARD OBR RECORDS 86550000 * (ONE PER ERROR) AND IN NEW 86600000 * DEVICE-DEPENDENT OBR RECORDS (0 86650000 * TO 3 PER ERROR) AND SERVE TO 86700000 * RELATE TO EACH OTHER THE 86750000 * STANDARD AND DEVICE-DEPENDENT 86800000 * OBR RECORDS THAT PERTAIN TO 86850000 * EACH ERROR (3211) */ 86900000 * 2 UCBFCBID CHAR(4) BDY(WORD),/* THE FCB IMAGE IDENTIFICATION */ 86950000 * 2 UCBERADR PTR(31); /* THE ADDRESS OF THE ERP LOGOUT 87000000 * AREA */ 87050000 * 87100000 * 87150000 *DECLARE UCBBGN BASED(UCBPTR-512) CHAR(536) BDY(WORD); 87200000 *%IF IKEPLS='' %THEN 87250000 * %GOTO UCBL6; 87300000 *IHALPOP; 87350000 *%UCBL6 : ; 87400000