*% GO TO DEVTAB1; /* 00400002 MACRO 00800002 IFDEVTAB 01200002 DEVTABMP DSECT 01600002 DS 0D 02000002 DS 0CL56 MAP OF A DEVTAB ENTRY IN OLTEP COMMON 02400002 .CONT ANOP . */ 02800002 *%DEVTAB1 : ; 03200002 * 03600002 */*************************************************************Y02906*/ 04000002 */* DEVTAB Y02906*/ 04400002 */* DEVICE TABLE ENTRY MAP FOR OLTEP Y02906*/ 04800002 */* Y02906*/ 05200002 */* OLTEP/VS2 RELEASE 2 Y02906*/ 05600002 */* Y02906*/ 06000002 */* METHOD OF ACCESS Y02906*/ 06400002 */* BAL - DSECT NAMED 'DEVTAB' IS PRODUCED Y02906*/ 06800002 */* A 'USING' ON SYMBOL 'DEVTAB' GIVES ADDRESSABILITY Y02906*/ 07200002 */* FOR ALL SYMBOLS. Y02906*/ 07600002 */* Y02906*/ 08000002 */* PL/S - DECLARE DEVTABPT PTR, IS NECESSARY FOR ADDRESSY02906*/ 08400002 */* ABILITY Y02906*/ 08800002 */* Y02906*/ 09200002 */*************************************************************Y02906*/ 09600002 * %GOTO DEVTAB2; /* Y02906 10000002 SPACE 2 10400002 DEVEBCAD DS CL8 EBCDIC DEVICE ADDRESS 10800002 DEVUCBAD DS F UCB ADDRESS FOR THIS DEVICE 11200002 DEVFLAG1 DS CL1 FIRST FLAG BYTE 11600002 ONLINE EQU X'80' DEVICE IS ONLINE IF BIT = 1 12000002 PRIMARY EQU X'40' DEVICE IS PRIMARY IF BIT =1 12400002 DPDONE EQU X'20' DATA PROTECTION HAS BEEN DONE IF 1 12800002 ACTIVE EQU X'10' DEVICE IS ACTIVE 13200002 ALOCATED EQU X'08' DEVICE HAS HAD ALLOCATION 13600002 GRABED EQU X'04' DEVICE IS A SECONDARY DEVICE 14000002 FILEPRT EQU X'02' DEVICE IS FILE PROTECTED 14400002 SYMBSSID EQU X'01' SSID IN SYMBOLIC NAME FIELD @Y30LPAW 14800003 DEVFLAG2 DS CL1 2ND DEVICE FLAG 15200002 DSNAME EQU X'80' DATA SET NAME FLIP-FLOP 15600002 SHARED EQU X'40' DEVICE IS SHARED IF = 1 16000002 CEVOLUMN EQU X'20' A CE VOLUME IS MOUNTED ON THIS DEVICE 16400002 STANDLBL EQU X'10' DEVICE (TAPE) HAS A STANDARD LABEL 16800002 HIODONE EQU X'08' DIO/HIO DONE TO THIS DEVICE 17200002 EXIOLVL3 EQU X'04' EXIO CALL FROM A LEVEL 3 MACRO 17600002 PCIIND EQU X'02' A PCI EVENT HAS BEEN POSTED IN TECB 18000002 UNUSED1 EQU X'01' UNUSED @ZM00190 18400003 DEVFLAG3 DS CL1 18800002 ANRNOTST EQU X'80' 19200002 UNUSED2 EQU X'40' UNUSED @ZM00190 19600003 UNUSED3 EQU X'20' UNUSED @ZM00190 20000003 TAPEBIT EQU X'10' 20400002 NOTEST EQU X'08' 20800002 DEVALC EQU X'04' 21200002 WAITPOST EQU X'02' 21600002 REIPSEUD EQU X'01' 22000002 DEVFLAG4 DS CL1 4TH DEVICE FLAG BYTE 22400002 DEVREMDA EQU X'80' REMOTE DEVICE DISABLED BY OLTEP 22800002 DEVREMEA EQU X'40' REMOTE DEVICE ENABLED BY OLTEP 23200002 RESERVD1 EQU X'20' 23600002 RESERVD2 EQU X'10' UNUSED 24000002 UNUSED4 EQU X'08' UNUSED @ZM00190 24400003 UNUSED5 EQU X'04' UNUSED @ZM00190 24800003 UNUSED6 EQU X'02' UNUSED @ZM00190 25200003 UNUSED7 EQU X'01' UNUSED @ZM00190 25600003 DEVLOEXT DS 0CL6 LOW EXTENT ADDRESS FOR DASD 26000002 LOEXTBB DS CL2 LOW EXTENT BIN NUMBER 26400002 LOEXTCC DS CL2 LOW EXTENT CYLINDER NUMBER 26800002 LOEXTHH DS CL2 LOW EXTENT HEAD NUMBER 27200002 DEVHIEXT DS 0CL6 HIGH EXTENT ADDRESS FOR DASD 27600002 HIEXTBB DS CL2 HIGH EXTENT BIN NUMBER 28000002 HIEXTCC DS CL2 HIGH EXTENT CYLINDER NUMBER 28400002 HIEXTHH DS CL2 HIGH EXTENT HEAD NUMBER 28800002 TAPELABL DS CL1 DATA BYTE FOR TAPE LABEL SAVE 29200002 UNUSEDX DS CL1 UNUSED 30400002 DEVMODE DS CL1 MODE SET SAVE AREA FOR TAPE 30800002 DEVEXPOS DS CL1 EXPOSURE NUMBER FOR MULTI-EXPOSURE 31200002 * TYPE DEVICE-2305. 31600002 DEVHEXAD DS 0F HEX DEVICE ADDRESS 32000002 DEVADPAD DS CL2 PADDING FOR 2 BYTES 32400002 DEVAD DS CL2 DEVICE ADDRESS 32800002 DEVDESCR DS 0F DEVICE DESCRIPTORS FROM CDS 33200002 DEVMODEL DS CL1 DEVICE MODEL 33600002 DEVFEATR DS CL1 DEVICE FEATURES FLAG 34000002 DEVCLASS DS CL1 DEVICE CLASS 34400002 DEVUNTYP DS CL1 DEVICE UNIT TYPE 34800002 DEVCDSCT DS CL1 DEVICE CDS BYTE COUNT 35200002 DEVCDSFG DS 0CL2 FLAG BYTES FROM CDS 35600002 CDSFLAG1 DS CL1 CDS FLAG BYTE 1 36000002 CDSFILPT EQU X'80' RUN FILE PROTECT MODE IF 1 36400002 CDSSHRED EQU X'40' DEVICE IS SHARED IF 1 36800002 CDSCEMNT EQU X'20' CE VOLUME IS MOUNTED IF 1 37200002 CDSEXMSK EQU X'10' EXTERNAL SIGNAL MASK IN CDS BYTE 37600002 * 11 IF 1 38000002 CDSYMBLC EQU X'08' SYMBOLIC NAME IN CDS BYTES 12-19 38400002 * IF 1 38800002 CDS2CHSW EQU X'04' 2 CHANNEL SWITCH ON THIS DEVICE IF 1 39200002 CDSREMDV EQU X'02' THIS CDS FOR A REMOTE DEVICE IF 1 39600002 CDSLNCON EQU X'01' LINE CONNECTION REQUIRED FOR THIS 40000002 * DEVICE IF 1 40400002 CDSFLAG2 DS CL1 CDS FLAG BYTE 2 40800002 CDSNOPRI EQU X'80' DON'T ASSIGN THIS DEVICE AS PRIMARY 41200002 * IF 1 41600002 UNUSED8 EQU X'40' UNUSED @ZM00190 42000003 UNUSED9 EQU X'20' UNUSED @ZM00190 42400003 UNUSED10 EQU X'10' UNUSED @ZM00190 42800003 UNUSED11 EQU X'08' UNUSED @ZM00190 43200003 UNUSED12 EQU X'04' UNUSED @ZM00190 43600003 UNUSED13 EQU X'02' UNUSED @ZM00190 44000003 UNUSED14 EQU X'01' UNUSED @ZM00190 44400003 CDSEXTSG DS CL1 DEVICE EXTERNAL SIGNAL MASK 44800002 DEVSYMAM DS CL8 DEVICE SYMBOLIC NAME 45200002 SAVMDMSK DS CL1 SAVED MODESET/FILEMASK 45400002 DEVINTPT DS CL1 COUNT OF INTERRUPTS POSTED FROM OECB 45450002 * TO THIS POINT. USED TO SYNCHRONIZE 45500002 * WAITIO-POLL POSTING AND THIS MODULE. 45550002 DEVEXPAN DS CL2 UNUSED 45600002 MEND . */ 46000002 *%DEVTAB2 : ; 46400002 * 46800002 * DECLARE 47200002 * 1 DEVTABMP CHAR(56) BASED(DEVTABPT) BDY(WORD), 47600002 * 3 DEVEBCAD CHAR(8), /* EBCDIC DEVICE ADDRESS */ 48000002 * 3 DEVUCBAD PTR(31), /* UCB POINTER FOR THIS DEVICE */ 48400002 * 3 DEVFLAG1 CHAR(1), /* DEVICE FLAG BYTE 1 */ 48800002 * 5 ONLINE BIT(1), /* IF 1- DEVICE IS ONLINE */ 49200002 * 5 PRIMARY BIT(1), /* IF 1- DEVICE IS PRIMARY */ 49600002 * 5 DPDONE BIT(1), /* IF 1- DEVICE IS DATA PROTECTED */ 50000002 * 5 ACTIVE BIT(1), /* IF 1- DEVICE IS ACTIVE */ 50400002 * 5 ALOCATED BIT(1), /* IF 1- DEVICE IS ALOCATED */ 50800002 * 5 GRABED BIT(1), /* IF 1- DEVICE IS GRABBED 2NDARY */ 51200002 * 5 FILEPRT BIT(1), /* IF 1- DEVICE IS FILE PROTECTED */ 51600002 * 5 SYMBSSID BIT(1), /* SSID IN SYMB NAME FLD @Y30LPAW*/ 52000003 * 3 DEVFLAG2 CHAR(1), /* DEVICE FLAG BYTE 2 */ 52400002 * 5 DSNAME BIT(1), /* IF 0 AND ALOCATED=1-DATA SET */ 52800002 * /* NAME IS OSOLTEP1. */ 53200002 * /* IF 1 AND ALOCATED=1-DATA SET */ 53600002 * /* NAME IS OSOLTEP2. */ 54000002 * 5 SHARED BIT(1), /* IF 1-DEVICE IS SHARED */ 54400002 * 5 CEVOLUMN BIT(1), /* IF 1-DASD HAS A CE VOLUME ON */ 54800002 * 5 STANDLBL BIT(1), /* IF 1-TAPE HAS A STANDARD LABLE*/ 55200002 * 5 HIODONE BIT(1), /* IF 1-HALT I/O DONE TO THIS DEV */ 55600002 * 5 EXIOLVL3 BIT(1), /* IF 1-EXIO MACRO WAS A LEVEL 3 */ 56000002 * 5 PCIIND BIT(1), /* IF 1-A PCI INTERRUPT OCCURRED */ 56400002 * 5 * BIT(1), /* UNUSED */ 56800002 * 3 DEVFLAG3 CHAR(1), /* DEVICE FLAG BYTE 3 */ 57200002 * 5 ANRNOTST BIT(1), /* */ 57600002 * 5 * BIT(1), /* UNUSED */ 58000002 * 5 * BIT(1), /* UNUSED */ 58400002 * 5 TAPEBIT BIT(1), /* UNUSED */ 58800002 * 5 NOTEST BIT(1), /* NOT TESTABLE */ 59200002 * 5 DEVALC BIT(1), /* ALLOCATED */ 59600002 * 5 WAITPOST BIT(1), /* WAITIO IS POSTING */ 60000002 * 5 REISPEUD BIT(1), /* REI PSEUDO DEV TAB */ 60400002 * 3 DEVFLAG4 CHAR(1), /* DEVICE FLAG BYTE 4 */ 60800002 * 5 DEVREMDA BIT(1), /* */ 61200002 * 5 DEVREMEA BIT(1), /* */ 61600002 * 5 RESERVD1 BIT(1), /* */ 62000002 * 5 RESERVD2 BIT(1), /* UNUSED */ 62400002 * 5 * BIT(1), /* UNUSED */ 62800002 * 5 * BIT(1), /* UNUSED */ 63200002 * 5 * BIT(1), /* UNUSED */ 63600002 * 5 * BIT(1), /* UNUSED */ 64000002 * 3 DEVLOEXT CHAR(6), /* LOW EXTENT FOR THIS DEVICE */ 64400002 * 5 LOEXTBB CHAR(2), /* LOW EXTENT BB */ 64800002 * 5 LOEXTCC CHAR(2), /* LOW EXTENT CC */ 65200002 * 5 LOEXTHH CHAR(2), /* LOW EXTENT HH */ 65600002 * 3 DEVHIEXT CHAR(6), /* HIGH EXTENT FOR THIS DEVICE */ 66000002 * 5 HIEXTBB CHAR(2), /* HIGH EXTENT BB */ 66400002 * 5 HIEXTCC CHAR(2), /* HIGH EXTENT CC */ 66800002 * 5 HIEXTHH CHAR(2), /* HIGH EXTENT BB */ 67200002 * 3 TAPELABL CHAR(1), /* DATA BYTE FOR TAPE LABEL SAVE */ 67600002 * 3 * CHAR(1), /* UNUSED */ 69200002 * 3 DEVMODE CHAR(1), /* MODE SET SAVE AREA FOR TAPE */ 69600002 * 3 DEVEXPOS CHAR(1), /* EXPOSURE NUMBER FOR MULTI-EXPO- */ 70000002 * /* SURE TYPE DEVICE-2305. */ 70400002 * 3 DEVHEXAD CHAR(4), /* DEVICE ADDRESS IN HEX */ 70800002 * 5 DEVADPAD CHAR(2), /* 2 BYTES PADDING */ 71200002 * 5 DEVAD CHAR(2), /* 2 BYTE HEX DEVICE ADDRESS */ 71600002 * 7 * BIT(4), /* NOT APPLICABLE */ 72000002 * 7 DEVCHANL BIT(4), /* DEVICE CHANNEL ADDRESS */ 72400002 * 7 DEVCTRLU BIT(4), /* DEVICE CONTROL UNIT ADDRESS */ 72800002 * 7 DEVADDR BIT(4), /* DEVICE ADDRESS */ 73200002 * 3 DEVDESCR CHAR(4), /* DEVICE DESCRIPTORS */ 73600002 * 5 DEVMODEL CHAR(1), /* DEVICE MODEL NUMBER */ 74000002 * 5 DEVFEATR CHAR(1), /* DEVICE FEATURES */ 74400002 * 5 DEVCLASS CHAR(1), /* DEVICE CLASS */ 74800002 * 5 DEVUNTYP CHAR(1), /* DEVICE UNIT TYPE */ 75200002 * 3 DEVCDSCT CHAR(1), /* ACTUAL CDS INFORMATION BYTE CNT */ 75600002 * 3 DEVCDSFG CHAR(2), /* FLAG BYTES FROM CDS */ 76000002 * 5 CDSFLAG1 CHAR(1), /* CDS FLAG BYTE 1 */ 76400002 * 7 CDSFILPT BIT(1), /* RUN FILE PROTECT MODE IF 1 */ 76800002 * 7 CDSSHRED BIT(1), /* DEVICE IS SHARED IF 1 */ 77200002 * 7 CDSCEMNT BIT(1), /* CE VOLUME IS MOUNTED IF 1 */ 77600002 * 7 CDSEXMSK BIT(1), /* EXTERNAL SIGNAL MASK IN CDS BYTE*/ 78000002 * /* 11 IF 1 */ 78400002 * 7 CDSYMBLC BIT(1), /* SYMBOLIC NAME IN CDS BYTES 12-19*/ 78800002 * /* IF 1 */ 79200002 * 7 CDS2CHSW BIT(1), /* 2 CHANNEL SWITCH ON THIS DEVICE */ 79600002 * /* IF 1 */ 80000002 * 7 CDSREMDV BIT(1), /* THIS CDS FOR A REMOTE DEVICE */ 80400002 * /* IF 1 */ 80800002 * 7 CDSLNCON BIT(1), /* LINE CONNECTION REQUIRED FOR */ 81200002 * /* THIS DEVICE IF 1 */ 81600002 * 5 CDSFLAG2 CHAR(1), /* CDS FLAG BYTE 2 */ 82000002 * 7 CDSNOPRI BIT(1), /* DON'T ASSIGN THIS DEVICE AS */ 82400002 * /* PRIMARY IF 1 */ 82800002 * 7 * BIT(1), /* UNDEFINED */ 83200002 * 7 * BIT(1), /* UNDEFINED */ 83600002 * 7 * BIT(1), /* UNDEFINED */ 84000002 * 7 * BIT(1), /* UNDEFINED */ 84400002 * 7 * BIT(1), /* UNDEFINED */ 84800002 * 7 * BIT(1), /* UNDEFINED */ 85200002 * 7 * BIT(1), /* UNDEFINED */ 85600002 * 3 CDSEXTSG CHAR(1), /* CDS EXTERNAL SIGNAL MASK IF FLAG*/ 86000002 * /* 1 BIT 3 IS 1 */ 86400002 * 3 CDSYMNAM CHAR(8), /* SYMBOLIC NAME FOR THIS DEVICE */ 86800002 * /* IF FLAG 1 BIT 4 IS ON */ 87200002 * 3 SAVMDMSK CHAR(1), /* SAVED MODESET/FILEMASK */ 87400002 * 3 DEVINTPT CHAR(1), /* COUNT OF INTERRUPTS POSTED IN */ 87440002 * /* OECB TO THIS POINT. USED TO */ 87480002 * /* SYNCHRONIZE WAITIO-POLL POSTING*/ 87520002 * /* AND NAPA-IFDOLT58 */ 87560002 * 3 DEVEXPAN CHAR(2); /* 3 CHAR FOR EXPANSION */ 87600002