* 00100000 * %GOTO DECBL1; /* 00150000 MACRO 00200000 IHADECB &DSECT=YES 00300000 AIF ('&DSECT' EQ 'NO').NODSCT 00400000 DECB DSECT , - DECBPTR 00500000 AGO .CONT 00600000 .NODSCT ANOP 00700000 DS 0D 00800000 DECB EQU * - DECBPTR 00900000 .CONT ANOP , */ 01000000 *%DECBL1 : ; 01050000 * 01100000 */* **************************************************************** */ 01200000 */* DATA EVENT CONTROL BLOCKS FOR - */ 01300000 */* BSAM, BISAM, BDAM, QTAM, BTAM */ 01400000 */* */ 01500000 */* OS/VS2 RELEASE 3, OS/VS1 RELEASE 4, 08/30/74, LEVEL=1 */ 01600000 */* */ 01650000 */* METHOD OF ACCESS */ 01660000 */* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 01670000 */* USING ON DECB GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 01680000 */* PL/S - DCL DECBPT PTR */ 01690000 */* **************************************************************** */ 01700000 *%GOTO DECBL2; /* 01750000 SPACE 1 01800000 IEZBITS , - SYMBOLIC BIT DEFINITIONS 01850000 SPACE 1 01860000 *********************************************************************** 01900000 * DATA EVENT CONTROL BLOCK FOR BSAM * 02000000 *********************************************************************** 02100000 SPACE 1 02200000 DECSDECB DS CL4 - EVENT CONTROL BLOCK 02300000 DECBPTR DS 0A - FOR IBM 1419 MAGNETIC CHARACTER READER 02400000 * AND IBM 1275 OPTICAL READER SORTER, A 02500000 * POINTER TO NEXT DECB TO BE TESTED FOR 02600000 * COMPLETION BY THE CHECK MACRO 02700000 * INSTRUCTION. (DECB CHAINING APPLIES TO 02750000 * THE USE OF MORE THAN ONE DEVICE.) THIS 02760000 * FIELD IN THE LAST DECB MUST BE ZERO. 02770000 DECTYPE DS 0BL2 - TYPE OF I/O REQUEST 02800000 DECTYPE1 DS B - TYPE OF LENGTH OPERAND 02900000 DECLNS EQU BIT0 - S CODED FOR LENGTH 03000000 DECRSV01 EQU BIT1,,C'X' - RESERVED 03050000 DECRSV02 EQU BIT2,,C'X' - RESERVED 03060000 DECRSV03 EQU BIT3,,C'X' - RESERVED 03070000 DECRSV04 EQU BIT4,,C'X' - RESERVED 03080000 DECRSV05 EQU BIT5,,C'X' - RESERVED 03090000 DECRSV06 EQU BIT6,,C'X' - RESERVED 03092000 DECRSV07 EQU BIT7,,C'X' - RESERVED 03094000 DECTYPE2 DS B - TYPE OF OPERATION 03100000 DECRDSF EQU BIT0 - READ SF 03200000 DECRDSB EQU BIT1 - READ SB 03300000 DECWRSF EQU BIT2 - WRITE SF 03400000 DECWRSD EQU BIT3 - WRITE SD 03500000 DECRSV08 EQU BIT4,,C'X' - RESERVED 03550000 DECWRSZ EQU BIT5 - WRITE SZ 03600000 DECRSV09 EQU BIT6,,C'X' - RESERVED 03650000 DECWRSFR EQU BIT7 - WRITE SFR (BIT 2 IS ALSO ON) OR 03700000 * READ RBL (BIT 0 IS ALSO ON) MDC004 03710000 DECLNGTH DS H - LENGTH OF KEY AND DATA 03800000 DECDCBAD DS A - ADDRESS OF THE DCB TO WHICH THIS I/O 03900000 * REQUEST IS RELATED 04000000 DECAREA DS A - ADDRESS OF KEY AND DATA, OR FOR 1287 OR 04100000 * 1288 OPTICAL READERS, THE ADDRESS OF A 04200000 * USER-SPECIFIED CHANNEL PROGRAM 04300000 DECIOBPT DS A - ADDRESS OF THE IOB 04400000 DECNEXT DS 0A - SAME AS DECNEXTA BELOW 04500000 DECRSV10 DS X - RESERVED 04600000 DECNEXTA DS AL3 - ADDRESS OF THE NEXT ADDRESS FEEDBACK 04700000 * FIELD. PRESENT ONLY IF R IS CODED IN 04800000 * THE WRITE MACRO. 04802000 SPACE 2 04805000 ORG DECNEXT - FOR 3886 ONLY, DEVICE DEPENDENT FIELDS 04810000 DECBHDRA DS A - FOR READ RBL, ADDRESS OF 3886 DATA 04815000 * HEADER RECORD AFTER READ MDC001 04820000 DECBLNNM DS A - FOR READ RBL, ADDRESS OF LINE NUMBER OR 04825000 * NEGATIVE OF LINE NUMBER MDC002 04830000 DECBLFMT DS A - FOR READ RBL, ADDRESS OF LINE FORMAT 04835000 * NUMBER OR NEGATIVE OF LINE FORMAT 04840000 * NUMBER MDC003 04845000 SPACE 2 04900000 *********************************************************************** 05000000 * DATA EVENT CONTROL BLOCK FOR BISAM * 05100000 *********************************************************************** 05200000 SPACE 1 05300000 ORG DECB 05400000 DECBECB DS 0CL4 - EVENT CONTROL BLOCK 05500000 DECBRB DS 0A - SAME AS DECBRBA BELOW 05600000 DECBECBF DS B - FLAG FIELD 05700000 DECBWAIT EQU BIT0 - AWAITING COMPLETION OF EVENT 05800000 DECBPOST EQU BIT1 - EVENT HAS COMPLETED NORMALLY OR 05900000 * ABNORMALLY. IF THE EVENT COMPLETED 05920000 * ABNORMALLY, FIELDS DECBEXC1 AND DECBEXC2 05930000 * WILL SHOW THE REASON. 05940000 DECRSV11 EQU BIT2,,C'X' - RESERVED 05950000 DECRSV12 EQU BIT3,,C'X' - RESERVED 05960000 DECRSV13 EQU BIT4,,C'X' - RESERVED 05970000 DECRSV14 EQU BIT5,,C'X' - RESERVED 05980000 DECRSV15 EQU BIT6,,C'X' - RESERVED 05990000 DECRSV16 EQU BIT7,,C'X' - RESERVED 05992000 DECBRBA DS AL3 - ADDRESS OF THE RB FOR THE PROGRAM 06000000 * AWAITING EVENT (BEFORE EVENT COMPLETION) 06100000 * OR RESERVED (AFTER EVENT COMPLETION) 06200000 DECBTYP1 DS B - OPTION BYTE 06300000 DECRSV17 EQU BIT0,,C'X' - RESERVED 06350000 DECRSV18 EQU BIT1,,C'X' - RESERVED 06352000 DECRSV19 EQU BIT2,,C'X' - RESERVED 06354000 DECRSV20 EQU BIT3,,C'X' - RESERVED 06360000 DECRSV21 EQU BIT4,,C'X' - RESERVED 06370000 DECRSV22 EQU BIT5,,C'X' - RESERVED 06380000 DECBLNS EQU BIT6 - LENGTH CODED AS 'S' 06400000 DECBARS EQU BIT7 - AREA CODED AS 'S' 06500000 DECBTYP2 DS B - TYPE OF I/O REQUEST 06600000 DECBRDK EQU BIT0 - READ K 06700000 DECRSV23 EQU BIT1,,C'X' - RESERVED 06750000 DECBRDKU EQU BIT2 - READ KU 06800000 DECRSV24 EQU BIT3,,C'X' - RESERVED 06850000 DECBWRK EQU BIT4 - WRITE K 06900000 DECBWRKN EQU BIT5 - WRITE KN 07000000 DECRSV25 EQU BIT6,,C'X' - RESERVED 07050000 DECRSV26 EQU BIT7,,C'X' - RESERVED 07060000 DECBLGTH DS H - NUMBER OF BYTES READ OR WRITTEN 07100000 DECBDCBA DS A - ADDRESS OF THE DATA CONTROL BLOCK 07200000 DECBAREA DS A - ADDRESS OF THE AREA IN STORAGE FOR THE 07300000 * RECORD 07350000 DECBLOGR DS A - ADDRESS OF THE LOGICAL RECORD 07400000 DECBKEY DS A - ADDRESS OF THE KEY PORTION OF THE RECORD 07500000 DECBEXC1 DS B - EXCEPTIONAL CONDITION CODE BYTE 1 07600000 DECEXRNF EQU BIT0 - RECORD NOT FOUND 07700000 DECEXRLC EQU BIT1 - RECORD LENGTH CHECK 07800000 DECEXNSP EQU BIT2 - SPACE NOT FOUND IN WHICH TO ADD A RECORD 07900000 DECEXINV EQU BIT3 - INVALID REQUEST 08000000 DECEXERR EQU BIT4 - UNCORRECTABLE I/O ERROR 08100000 DECEXUBK EQU BIT5 - UNREACHABLE BLOCK 08200000 DECEXOFL EQU BIT6 - OVERFLOW RECORD 08300000 DECEXDUP EQU BIT7 - DUPLICATE RECORD PRESENTED FOR INCLUSION 08400000 * IN THE DATA SET 08500000 DECBEXC2 DS B - EXCEPTIONAL CONDITION CODE BYTE 2 08600000 DECRSV27 EQU BIT0,,C'X' - RESERVED 08650000 DECRSV28 EQU BIT1,,C'X' - RESERVED 08660000 DECRSV29 EQU BIT2,,C'X' - RESERVED 08670000 DECRSV30 EQU BIT3,,C'X' - RESERVED 08680000 DECRSV31 EQU BIT4,,C'X' - RESERVED 08690000 DECRSV32 EQU BIT5,,C'X' - RESERVED 08692000 DECEXASR EQU BIT6 - EXECUTION OF THE LAST CHANNEL PROGRAM WAS 08700000 * INSTITUTED BY AN ASYNCHRONOUS ROUTINE 08800000 DECEXRKU EQU BIT7 - PREVIOUS MACRO INSTRUCTION WAS READ KU 08900000 SPACE 2 09000000 *********************************************************************** 09100000 * DATA EVENT CONTROL BLOCK FOR BDAM * 09200000 *********************************************************************** 09300000 SPACE 1 09400000 ORG DECB 09500000 DS 0CL4 - DECSDECB - EVENT CONTROL BLOCK 09600000 DS B - COMPLETION CODE BYTE 1 09700000 DECCC2 DS B - COMPLETION CODE BYTE 2 09800000 DECCCRNF EQU BIT0 - RECORD NOT FOUND 09900000 DECCCRLC EQU BIT1 - RECORD LENGTH CHECK 10000000 DECCCNSP EQU BIT2 - SPACE NOT FOUND 10100000 DECCCINV EQU BIT3 - INVALID REQUEST. (THIS CONDITION ALSO 10200000 * SETS A BIT IN THE NEXT BYTE.) 10250000 DECCCERR EQU BIT4 - UNCORRECTABLE I/O ERROR 10300000 DECCCEOD EQU BIT5 - END OF DATA 10400000 DECCCUER EQU BIT6 - UNCORRECTABLE ERROR OTHER THAN AN I/O 10500000 * ERROR 10550000 DECCCREX EQU BIT7 - A WRITE WITH EXCLUSIVE CONTROL WAS NOT 10600000 * PRECEDED BY A READ WITH EXCLUSIVE CONTROL 10700000 * (MDC300) @Z30AQ9A 10800000 DECCC3 DS B - COMPLETION CODE BYTE 3 10900000 DECRSV33 EQU BIT0,,C'X' - RESERVED 10950000 DECCCWRI EQU BIT1 - A WRITE MACRO INSTRUCTION WAS ADDRESSED 11000000 * TO AN INPUT DATA SET 11100000 DECCCEXS EQU BIT2 - AN EXTENDED SEARCH WAS SPECIFIED WITH THE 11200000 * DCBLIMCT FIELD SET TO ZERO 11300000 DECCCNBK EQU BIT3 - THE BLOCK REQUESTED IS NOT WITHIN THE 11400000 * DATA SET 11450000 DECCCWDI EQU BIT4 - A WRITE-BY-IDENTIFICATION (DI) ADDRESSED 11500000 * RECORD ZERO 11600000 DECCCSDK EQU BIT5 - A SEARCH-ON-KEY (DK) WAS SPECIFIED WITH 11700000 * THE DCBKEYLE FIELD SET TO ZERO OR WITHOUT 11800000 * AN ADDRESS FOR THE KEY 11900000 DECCCOPT EQU BIT6 - A MACRO INSTRUCTION USED AN OPTION NOT 12000000 * SET IN THE DCB 12100000 DECCCKFF EQU BIT7 - THE KEY FOR THE FIXED-LENGTH RECORD TO BE 12200000 * ADDED BEGINS WITH X'FF' 12300000 DECRSV34 DS X - RESERVED 12400000 DS 0BL2 - DECTYPE - TYPE OF I/O REQUEST 12500000 DS B - DECTYPE1 - FIRST BYTE OF DECTYPE 12600000 DECVERFY EQU BIT0 - VERIFY 12700000 DECOFLOW EQU BIT1 - OVERFLOW 12800000 DECEXSRC EQU BIT2 - EXTENDED SEARCH 12900000 DECFDBCK EQU BIT3 - FEEDBACK 13000000 DECACTAD EQU BIT4 - ACTUAL ADDRESSING 13100000 DECDYNBF EQU BIT5 - DYNAMIC BUFFERING 13200000 DECRDEX EQU BIT6 - READ EXCLUSIVE 13300000 DECRELBA EQU BIT7 - RELATIVE BLOCK ADDRESSING 13400000 DS B - DECTYPE2 - SECOND BYTE OF DECTYPE 13500000 DECKEYS EQU BIT0 - S CODED FOR KEY ADDRESS 13600000 DECBKLNS EQU BIT1 - S CODED FOR BLOCK LENGTH 13700000 DECTYPRU EQU BIT2+BIT3 - RU IS SUFFIXED TO THE TYPE, INDICATING 13800000 * THAT THE FEEDBACK ADDRESS POINTED TO BY 13900000 * DECNXADR CAN BE THE ADDRESS OF EITHER THE 14000000 * NEXT DATA RECORD OR THE NEXT CAPACITY 14100000 * RECORD, WHICHEVER OCCURS FIRST 14200000 DECTYPR EQU BIT3 - R IS SUFFIXED TO THE TYPE, INDICATING 14300000 * THAT THE FEEDBACK ADDRESS POINTED TO BY 14400000 * DECNXADR IS THE ADDRESS OF THE NEXT DATA 14500000 * RECORD. (BIT 2 IS ZERO) 14600000 DECOPRD EQU BIT4 - TYPE OF OPERATION - 0 IS WRITE, 1 IS READ 14700000 DECSRKEY EQU BIT5 - TYPE OF SEARCH ARGUMENT - 0 IS ID, 14800000 * 1 IS KEY 14900000 DECWRADD EQU BIT6 - ADD OPTION OF WRITE OPERATION 15000000 DECRSV35 EQU BIT7,,C'X' - RESERVED 15050000 DS H - DECLNGTH - LENGTH OF DATA 15100000 DS A - DECDCBAD - ADDRESS OF DCB TO WHICH THIS 15200000 * I/O REQUEST IS RELATED 15300000 DS A - DECAREA - ADDRESS OF THE DATA 15400000 DS A - DECIOBPT - ADDRESS OF THE IOB 15500000 DECKYADR DS A - ADDRESS OF THE KEY 15600000 DECRECPT DS A - ADDRESS OF THE BLOCK REFERENCE FIELD 15700000 DECNA DS 0A - SAME AS DECNAA BELOW 15800000 DECRSV36 DS X - RESERVED 15900000 DECNAA DS AL3 - ADDRESS OF THE NEXT ADDRESS FEEDBACK 16000000 * FIELD. PRESENT ONLY IF R OR RU IS CODED 16100000 * IN THE READ MACRO. 16200000 SPACE 2 16300000 *********************************************************************** 16400000 * DATA EVENT CONTROL BLOCK FOR QTAM * 16500000 *********************************************************************** 16600000 SPACE 1 16700000 ORG DECB 16800000 LINEDECB DS CL4 - ALWAYS ZERO 16900000 DECRSV37 DS X - RESERVED 17000000 DECOPCOD DS C - OPERATION CODE FOR CURRENT SEGMENT 17100000 DS H - DECLNGTH - LENGTH OF INPUT AREA FOR 17200000 * INITIAL READ 17300000 DS A - DECDCBAD - ADDRESS OF DCB 17400000 DS A - DECAREA - STARTING ADDRESS FOR DATA IN A 17500000 * BUFFER 17600000 DECRSV38 DS XL4 - RESERVED 17700000 DECCPOL DS 0A - SAME AS DECCPOLA BELOW 17800000 DECNMMSG DS FL1 - NUMBER OF MESSAGES RECEIVED 17900000 DECCPOLA DS AL3 - ADDRESS OF CURRENTLY ACTIVE ENTRY IN 18000000 * POLLING LIST 18100000 DECRSV39 DS X - RESERVED 18200000 DECUCBDX DS FL1 - INDEX TO UCB ADDRESS IN DEB 18300000 DECRSV40 DS XL2 - RESERVED 18400000 DECRSV41 DS XL4 - RESERVED 18500000 DECADRCH DS A - ADDRESS OF ADDRESSING CHARACTERS IN 18600000 * TERMINAL ENTRY 18700000 DS 0A - DECPOLPT - ADDRESS OF POLLING LIST 18800000 DECRSV42 DS X - RESERVED 18900000 DS AL3 - DECPOLPA - ADDRESS OF POLLING LIST 19000000 SPACE 2 19100000 *********************************************************************** 19200000 * DATA EVENT CONTROL BLOCK FOR BTAM * 19300000 *********************************************************************** 19400000 SPACE 1 19500000 ORG DECB 19600000 DS CL4 - DECSDECB - EVENT CONTROL BLOCK 19700000 DS 0BL2 - DECTYPE - PROGRAMMING INDICATORS 19800000 DS B - DECTYPE1 - FIRST BYTE OF DECTYPE 19900000 DECRDAPL EQU BIT0 - READ, USING AUTOPOLL 20000000 DECRSV43 EQU BIT1,,C'X' - RESERVED 20050000 DECRSV44 EQU BIT2,,C'X' - RESERVED 20060000 DECRSV45 EQU BIT3,,C'X' - RESERVED 20070000 DECRSV46 EQU BIT4,,C'X' - RESERVED 20080000 DECSTRME EQU BIT5 - 'S' CODED FOR TERMINAL ENTRY 20100000 DECSAREA EQU BIT6 - 'S' CODED FOR AREA 20200000 DECSLNTH EQU BIT7 - 'S' CODED FOR LENGTH 20300000 DS C - DECTYPE2 - COMMAND CODE 20400000 DS H - DECLNGTH - LENGTH OF BUFFER OR MESSAGE 20500000 * AREA 20600000 DS 0A - DECDCBAD - ADDRESS OF ASSOCIATED DCB 20700000 DECBUFCT DS 0FL1 - CONTAINS A RUNNING COUNT OF BUFFERS 20800000 * OBTAINED BY BTAM FOR THE CURRENT READ 20900000 * OPERATION. (DYNAMIC BUFFERING ONLY.) 21000000 * USE DIFFERS DURING BSC AND 2760 ONLINE 21100000 * TEST. 21200000 DECONLTT DS B - FLAG BYTE FOR BSC AND 2760 ONLINE TEST 21300000 DECONLTS EQU BIT0 - IF ZERO, ONLINE TEST REQUESTED BY RFT 21400000 * MESSAGE (BSC). IF ONE, ONLINE TEST 21500000 * INITIATED BY ONLTST MACRO INSTRUCTION 21600000 * (BSC). 21700000 DECRCVMS EQU BIT1 - IF ZERO, SENDING TEST MESSAGES (BSC). 21800000 * IF ONE, RECEIVING TEST MESSAGES (BSC) OR 21900000 * TYPE 11 ONLINE TEST FOR 2760 OPTICAL 22000000 * IMAGE UNIT. 22100000 DECRSV47 EQU BIT2,,C'X' - RESERVED 22150000 DECRSV48 EQU BIT3,,C'X' - RESERVED 22160000 DECRSV49 EQU BIT4,,C'X' - RESERVED 22170000 DECRSV50 EQU BIT5,,C'X' - RESERVED 22180000 DECRSV51 EQU BIT6,,C'X' - RESERVED 22190000 DECRSV52 EQU BIT7,,C'X' - RESERVED 22192000 DECDCBAA DS AL3 - ADDRESS OF ASSOCIATED DCB 22200000 DS A - DECAREA - ADDRESS OF BUFFER OR MESSAGE 22300000 * AREA 22400000 DECSENS0 DS B - SENSE INFORMATION 22500000 DECSENS1 DS B - RESERVED 22600000 DECCOUNT DS H - RESIDUAL COUNT FROM CSW FOR LAST CCW 22700000 * EXECUTED 22800000 DECENTRY DS 0A - ADDRESS OF THE TERMINAL LIST 22900000 DECCMCOD DS C - COMMAND FOR WHICH THE ERROR OCCURRED 23000000 DECENTRA DS AL3 - ADDRESS OF THE TERMINAL LIST 23100000 DECFLAGS DS B - OPERATION STATUS 23200000 DECWACK EQU BIT0+BIT1 - WACK WAS RECEIVED (BSC) 23300000 DECERRMS EQU BIT0 - ERROR STATUS MESSAGE WAS RECEIVED (BSC). 23400000 * BIT 1 IS OFF. 23500000 DECDIFAC EQU BIT1 - ACKNOWLEDGMENT OTHER THAN ACK-0 OR ACK-1 23600000 * RECEIVED (BSC) 23700000 DECALTAC EQU BIT2 - ACKNOWLEDGMENT ALTERNATION INCORRECT 23800000 DECBADID EQU BIT3 - FOR TWX 33/35 STATION AND BSC STATION, 23900000 * INCORRECT ID RECEIVED. FOR AUTOPOLL, 24000000 * INDEX BYTE RECEIVED DOES NOT MATCH AN 24100000 * ACTIVE ONE. FOR BSC NONSWITCHED 24200000 * POINT-TO-POINT LINE, CONTENTION OCCURRED. 24300000 * FOR WTTA, CONTENTION OCCURRED OR 24400000 * INCORRECT ID RECEIVED. 24500000 DECNOBUF EQU BIT4 - FOR READ, DYNAMIC BUFFERING, NO BUFFER 24600000 * WAS AVAILABLE. (MESSAGE LOST) 24700000 DECNEGRP EQU BIT5 - FOR OPENLST, POLLING, NEGATIVE RESPONSE 24800000 * TO POLLING RECEIVED. FOR WRAPLST, ALL 24900000 * ENTRIES ARE INACTIVE. FOR ADDRESSING, 25000000 * NEGATIVE RESPONSE TO ADDRESSING 25100000 * RECEIVED. FOR WTTA, LAST MESSAGE 25200000 * RECEIVED ENDED WITH EOT OR TIME-OUT. 25300000 * FOR 2741, POWER IS OFF OR OTHER 25400000 * INTERVENTION REQUIRED CONDITION EXISTS. 25500000 DECREVRS EQU BIT6 - FOR WTTA, MESSAGE ENDED WITH WRU SIGNAL. 25600000 * FOR BSC STATIONS, REVERSE INTERRUPT (RVI) 25700000 * SEQUENCE WAS RECEIVED (SEE ALSO BIT 1). 25800000 * FOR 2741, WRITE OPERATION WAS ENDED BY 25900000 * TERMINAL INTERRUPT. 26000000 DECSSMSG EQU BIT6 - A 3270 REMOTE SENSE/STATUS MESSAGE WAS 26050000 * RECEIVED IF THIS BIT IS ONE AND BIT 1 26060000 * IS ZERO ICB479 26070000 DECSTXNQ EQU BIT7 - FOR WTTA, CONTENTION CONDITION WAS 26100000 * ENCOUNTERED. FOR BSC STATIONS, STX ENQ 26200000 * SEQUENCE WAS RECEIVED. 26300000 DECRLN DS FL1 - RELATIVE LINE NUMBER 26400000 DECRESPN DS CL2 - FOR BSC OPERATIONS, RESPONSE FROM A 26500000 * TERMINAL TO ADDRESSING. FOR STOP-START 26600000 * OPERATIONS, BYTE 1 IS RESPONSE FROM A 26700000 * TERMINAL TO ADDRESSING AND BYTE 2 IS 26800000 * VERTICAL REDUNDANCY CHARACTER AND 26900000 * LONGITUDINAL REDUNDANCY CHARACTER 27000000 * (VRC/LRC) RESPONSE. 27100000 DECTPCOD DS C - TP OPERATION CODE 27200000 DECERRST DS B - I/O ERROR STATUS FLAGS 27300000 DECSIO3 EQU BIT0 - SIO RESULTED IN A CONDITION CODE OF 3 27400000 DECUNDEF EQU BIT1 - UNDEFINED ERROR CONDITION 27500000 DECERPER EQU BIT2 - AN ERROR CONDITION OCCURRED DURING AN I/O 27600000 * OPERATION INITIATED BY ERROR RECOVERY 27700000 * ROUTINES 27800000 DECDIAGN EQU BIT3 - DIAGNOSTIC WRITE/READ OPERATION ENDED 27900000 * BECAUSE OF ERROR (2701 ONLY) 28000000 DECDSABL EQU BIT4 - DISABLE COMMAND ISSUED TO SWITCHED LINE 28100000 * BY ERROR RECOVERY ROUTINE BECAUSE OF 28200000 * PERMANENT ERROR ON THAT LINE 28300000 DECRSV53 EQU BIT5,,C'X' - RESERVED 28350000 DECRSV54 EQU BIT6,,C'X' - RESERVED 28360000 DECRSV55 EQU BIT7,,C'X' - RESERVED 28370000 DECCSWST DS BL2 - STATUS BITS FROM CSW FOR LAST CCW 28400000 * EXECUTED 28500000 DECADRPT DS A - ADDRESS OF ADDRESSING LIST ENTRY USED IN 28600000 * PREVIOUS OPERATION 28700000 DECPOLPT DS 0A - SAME AS DECPOLPA BELOW 28800000 DECNDXPL DS FL1 - FOR AUTOPOLL, INDEX TO CURRENT ENTRY IN 28900000 * POLLING LIST 29000000 DECPOLPA DS AL3 - FOR PROGRAMMED POLLING, ADDRESS OF THE 29100000 * CURRENT ENTRY IN THE POLLING LIST. FOR 29200000 * AUTOPOLL, ADDRESS OF POLLING LIST. FOR 29300000 * BSC ON-LINE TEST, ADDRESS OF TEXT DATA. 29400000 SPACE 1 29500000 * BSC EXTENSION 29600000 * FIELDS ARE PRESENT ONLY IF A SUBLIST IS CODED FOR THE 29700000 * AREA AND LENGTH OPERANDS OF THE READ OR WRITE MACRO 29800000 * INSTRUCTION THAT DEFINES THE DECB. 29900000 SPACE 1 30000000 DECRSV56 DS XL2 - RESERVED 30100000 DECWLNG DS H - LENGTH, IN BYTES, OF THE DATA AREA IN 30200000 * LEADING-GRAPHICS AND CONVERSATIONAL TYPE 30300000 * OPERATIONS OR OF THE AREA CONTAINING THE 30400000 * TONE CHARACTERS IN READ CONNECT WITH TONE 30500000 * (TCW) OPERATIONS 30600000 DECWAREA DS A - ADDRESS OF THE DATA AREA IN 30700000 * LEADING-GRAPHICS AND CONVERSATIONAL 30800000 * OPERATIONS, OR OF THE AREA CONTAINING THE 30900000 * TONE CHARACTERS IN READ TCW OPERATIONS 31000000 MEND , */ 31100000 *%DECBL2 : ; 31200000 * 31300000 * 32100000 */* **************************************************************** */ 32300000 */* DATA EVENT CONTROL BLOCK FOR BSAM */ 32400000 */* **************************************************************** */ 32500000 * 32600000 *DECLARE 32700000 * 1 DECB BASED(DECBPT) BDY(WORD), 32800000 * 2 DECSDECB CHAR(4) BDY(WORD), /* EVENT CONTROL BLOCK */ 32900000 * 2 DECBPTR PTR(31), /* FOR IBM 1419 MAGNETIC 33000000 * CHARACTER READER AND 33100000 * IBM 1275 OPTICAL READER 33200000 * SORTER, A POINTER TO 33300000 * NEXT DECB TO BE TESTED 33400000 * FOR COMPLETION BY THE 33500000 * CHECK MACRO INSTRUCTION. 33600000 * (DECB CHAINING APPLIES TO 33650000 * THE USE OF MORE THAN ONE 33660000 * DEVICE.) THIS FIELD IN 33670000 * THE LAST DECB MUST BE 33680000 * ZERO. */ 33690000 * 3 DECTYPE CHAR(2), /* TYPE OF I/O REQUEST */ 33700000 * 4 DECTYPE1 CHAR(1), /* TYPE OF LENGTH OPERAND */ 33800000 * 5 DECLNS BIT(1), /* S CODED FOR LENGTH */ 33900000 * 5 DECRSV01 BIT(1), /* RESERVED */ 34000000 * 5 DECRSV02 BIT(1), /* RESERVED */ 34050000 * 5 DECRSV03 BIT(1), /* RESERVED */ 34100000 * 5 DECRSV04 BIT(1), /* RESERVED */ 34150000 * 5 DECRSV05 BIT(1), /* RESERVED */ 34200000 * 5 DECRSV06 BIT(1), /* RESERVED */ 34250000 * 5 DECRSV07 BIT(1), /* RESERVED */ 34300000 * 4 DECTYPE2 CHAR(1), /* TYPE OF OPERATION */ 34700000 * 5 DECRDSF BIT(1), /* READ SF */ 34800000 * 5 DECRDSB BIT(1), /* READ SB */ 34900000 * 5 DECWRSF BIT(1), /* WRITE SF */ 35000000 * 5 DECWRSD BIT(1), /* WRITE SD */ 35100000 * 5 DECRSV08 BIT(1), /* RESERVED */ 35200000 * 5 DECWRSZ BIT(1), /* WRITE SZ */ 35300000 * 5 DECRSV09 BIT(1), /* RESERVED */ 35400000 * 5 DECWRSFR BIT(1), /* WRITE SFR (BIT 2 IS ALSO 35500000 * ON) OR READ RBL (BIT 0 IS 35600000 * ALSO ON) MDC004*/ 35610000 * 3 DECLNGTH FIXED(15), /* LENGTH OF KEY AND DATA */ 35700000 * 2 DECDCBAD PTR(31), /* ADDRESS OF THE DCB TO 35800000 * WHICH THIS I/O REQUEST 35900000 * IS RELATED */ 36000000 * 2 DECAREA PTR(31), /* ADDRESS OF KEY AND DATA, 36100000 * OR FOR 1287 OR 1288 36200000 * OPTICAL READERS, ADDRESS 36300000 * OF A USER-SPECIFIED 36400000 * CHANNEL PROGRAM */ 36500000 * 2 DECIOBPT PTR(31), /* ADDRESS OF THE IOB */ 36600000 * 2 DECNEXT PTR(31), /* SAME AS DECNEXTA BELOW */ 36700000 * 3 DECRSV10 CHAR(1), /* RESERVED */ 36800000 * 3 DECNEXTA PTR(24); /* ADDRESS OF THE NEXT 36900000 * ADDRESS FEEDBACK FIELD. 37000000 * PRESENT ONLY IF R IS 37100000 * CODED IN THE WRITE MACRO.*/ 37200000 * 37202000 * 37204000 *DECLARE 1 DECBS05 37206000 *%IF IKEPLS='2' %THEN 37208000 * %GOTO DECBA1; 37210000 * BASED(ADDR(DECNEXT)) BDY(WORD), 37212000 *%GOTO DECBA2; 37214000 *%DECBA1 : ; 37216000 * DEF(DECNEXT) BDY(WORD), 37218000 *%DECBA2 : ; 37220000 * /* FOR 3886 ONLY, DEVICE 37222000 * DEPENDENT FIELDS */ 37224000 * 2 DECBHDRA PTR(31), /* FOR READ RBL, ADDRESS OF 37226000 * 3886 DATA HEADER RECORD 37228000 * AFTER READ MDC001*/ 37230000 * 2 DECBLNNM PTR(31), /* FOR READ RBL, ADDRESS OF 37232000 * LINE NUMBER OR NEGATIVE 37234000 * OF LINE NUMBER MDC002*/ 37236000 * 2 DECBLFMT PTR(31); /* FOR READ RBL, ADDRESS OF 37238000 * LINE FORMAT NUMBER OR 37240000 * NEGATIVE OF LINE FORMAT 37242000 * NUMBER MDC003*/ 37244000 * 37300000 * 37400000 */* **************************************************************** */ 37500000 */* DATA EVENT CONTROL BLOCK FOR BISAM */ 37600000 */* **************************************************************** */ 37700000 * 37800000 *DECLARE 1 DECBS01 37900000 * BASED(DECBPT) BDY(WORD), 38000000 * 2 DECBECB CHAR(4) BDY(WORD), /* EVENT CONTROL BLOCK */ 38200000 * 3 DECBRB PTR(31), /* SAME AS DECBRBA BELOW */ 38300000 * 4 DECBECBF CHAR(1), /* FLAG FIELD */ 38350000 * 5 DECBWAIT BIT(1), /* AWAITING COMPLETION OF 38400000 * EVENT */ 38500000 * 5 DECBPOST BIT(1), /* EVENT HAS COMPLETED 38600000 * NORMALLY OR ABNORMALLY. 38650000 * IF THE EVENT COMPLETED 38660000 * ABNORMALLY, FIELDS 38670000 * DECBEXC1 AND DECBEXC2 38680000 * WILL SHOW THE REASON. */ 38690000 * 5 DECRSV11 BIT(1), /* RESERVED */ 38700000 * 5 DECRSV12 BIT(1), /* RESERVED */ 38750000 * 5 DECRSV13 BIT(1), /* RESERVED */ 38800000 * 5 DECRSV14 BIT(1), /* RESERVED */ 38850000 * 5 DECRSV15 BIT(1), /* RESERVED */ 38900000 * 5 DECRSV16 BIT(1), /* RESERVED */ 38950000 * 4 DECBRBA PTR(24), /* ADDRESS OF THE RB FOR 39300000 * THE PROGRAM AWAITING 39400000 * EVENT (BEFORE EVENT 39500000 * COMPLETION) OR RESERVED 39600000 * (AFTER EVENT COMPLETION) */ 39700000 * 2 DECBTYP1 CHAR(1), /* OPTION BYTE */ 39800000 * 3 DECRSV17 BIT(1), /* RESERVED */ 39900000 * 3 DECRSV18 BIT(1), /* RESERVED */ 39950000 * 3 DECRSV19 BIT(1), /* RESERVED */ 40000000 * 3 DECRSV20 BIT(1), /* RESERVED */ 40050000 * 3 DECRSV21 BIT(1), /* RESERVED */ 40100000 * 3 DECRSV22 BIT(1), /* RESERVED */ 40150000 * 3 DECBLNS BIT(1), /* LENGTH CODED AS 'S' */ 40500000 * 3 DECBARS BIT(1), /* AREA CODED AS 'S' */ 40600000 * 2 DECBTYP2 CHAR(1), /* TYPE OF I/O REQUEST */ 40700000 * 3 DECBRDK BIT(1), /* READ K */ 40800000 * 3 DECRSV23 BIT(1), /* RESERVED */ 40900000 * 3 DECBRDKU BIT(1), /* READ KU */ 41000000 * 3 DECRSV24 BIT(1), /* RESERVED */ 41100000 * 3 DECBWRK BIT(1), /* WRITE K */ 41200000 * 3 DECBWRKN BIT(1), /* WRITE KN */ 41300000 * 3 DECRSV25 BIT(1), /* RESERVED */ 41400000 * 3 DECRSV26 BIT(1), /* RESERVED */ 41450000 * 2 DECBLGTH FIXED(15), /* NUMBER OF BYTES READ OR 41600000 * WRITTEN */ 41700000 * 2 DECBDCBA PTR(31), /* ADDRESS OF THE DATA 41800000 * CONTROL BLOCK */ 41900000 * 2 DECBAREA PTR(31), /* ADDRESS OF THE AREA IN 42000000 * STORAGE FOR THE RECORD */ 42100000 * 2 DECBLOGR PTR(31), /* ADDRESS OF THE LOGICAL 42200000 * RECORD */ 42300000 * 2 DECBKEY PTR(31), /* ADDRESS OF THE KEY 42400000 * PORTION OF THE RECORD */ 42500000 * 2 DECBEXC1 CHAR(1), /* EXCEPTIONAL CONDITION 42600000 * CODE BYTE 1 */ 42700000 * 3 DECEXRNF BIT(1), /* RECORD NOT FOUND */ 42800000 * 3 DECEXRLC BIT(1), /* RECORD LENGTH CHECK */ 42900000 * 3 DECEXNSP BIT(1), /* SPACE NOT FOUND IN WHICH 43000000 * TO ADD A RECORD */ 43100000 * 3 DECEXINV BIT(1), /* INVALID REQUEST */ 43200000 * 3 DECEXERR BIT(1), /* UNCORRECTABLE I/O ERROR */ 43300000 * 3 DECEXUBK BIT(1), /* UNREACHABLE BLOCK */ 43400000 * 3 DECEXOFL BIT(1), /* OVERFLOW RECORD */ 43500000 * 3 DECEXDUP BIT(1), /* DUPLICATE RECORD 43600000 * PRESENTED FOR INCLUSION 43700000 * IN THE DATA SET */ 43800000 * 2 DECBEXC2 CHAR(1), /* EXCEPTIONAL CONDITION 43900000 * CODE BYTE 2 */ 44000000 * 3 DECRSV27 BIT(1), /* RESERVED */ 44100000 * 3 DECRSV28 BIT(1), /* RESERVED */ 44150000 * 3 DECRSV29 BIT(1), /* RESERVED */ 44200000 * 3 DECRSV30 BIT(1), /* RESERVED */ 44250000 * 3 DECRSV31 BIT(1), /* RESERVED */ 44300000 * 3 DECRSV32 BIT(1), /* RESERVED */ 44350000 * 3 DECEXASR BIT(1), /* EXECUTION OF THE LAST 44700000 * CHANNEL PROGRAM WAS 44800000 * INSTITUTED BY AN 44900000 * ASYNCHRONOUS ROUTINE */ 45000000 * 3 DECEXRKU BIT(1); /* PREVIOUS MACRO 45100000 * INSTRUCTION WAS READ KU */ 45200000 * 45300000 * 45400000 */* **************************************************************** */ 45500000 */* DATA EVENT CONTROL BLOCK FOR BDAM */ 45600000 */* **************************************************************** */ 45700000 * 45800000 *DECLARE 1 DECBS02 45900000 * BASED(DECBPT) BDY(WORD), 46000000 * 2 * CHAR(4) BDY(WORD), /* DECSDECB - EVENT CONTROL 46100000 * BLOCK */ 46150000 * 3 * CHAR(1), /* COMPLETION CODE BYTE 1 */ 46200000 * 3 DECCC2 CHAR(1), /* COMPLETION CODE BYTE 2 */ 46300000 * 4 DECCCRNF BIT(1), /* RECORD NOT FOUND */ 46400000 * 4 DECCCRLC BIT(1), /* RECORD LENGTH CHECK */ 46500000 * 4 DECCCNSP BIT(1), /* SPACE NOT FOUND */ 46600000 * 4 DECCCINV BIT(1), /* INVALID REQUEST. (THIS 46700000 * CONDITION ALSO SETS A BIT 46750000 * IN THE NEXT BYTE.) */ 46760000 * 4 DECCCERR BIT(1), /* UNCORRECTABLE I/O ERROR */ 46800000 * 4 DECCCEOD BIT(1), /* END OF DATA */ 46900000 * 4 DECCCUER BIT(1), /* UNCORRECTABLE ERROR OTHER 47000000 * THAN AN I/O ERROR */ 47100000 * 4 DECCCREX BIT(1), /* A WRITE WITH EXCLUSIVE 47200000 * CONTROL WAS NOT PRECEDED 47300000 * BY A READ WITH EXCLUSIVE 47400000 * CONTROL (MDC300) @Z30AQ9A*/ 47500000 * 3 DECCC3 CHAR(1), /* COMPLETION CODE BYTE 3 */ 47600000 * 4 DECRSV33 BIT(1), /* RESERVED */ 47700000 * 4 DECCCWRI BIT(1), /* A WRITE MACRO INSTRUCTION 47800000 * WAS ADDRESSED TO AN INPUT 48000000 * DATA SET */ 48100000 * 4 DECCCEXS BIT(1), /* AN EXTENDED SEARCH WAS 48200000 * SPECIFIED WITH DCBLIMCT 48300000 * FIELD SET TO ZERO */ 48400000 * 4 DECCCNBK BIT(1), /* THE BLOCK REQUESTED IS 48500000 * NOT WITHIN THE DATA SET */ 48600000 * 4 DECCCWDI BIT(1), /* A WRITE-BY-IDENTIFICATION 48700000 * (DI) ADDRESSED RECORD 48900000 * ZERO */ 49000000 * 4 DECCCSDK BIT(1), /* A SEARCH-ON-KEY (DK) WAS 49100000 * SPECIFIED WITH THE 49200000 * DCBKEYLE FIELD SET TO 49300000 * ZERO OR WITHOUT AN 49400000 * ADDRESS FOR THE KEY */ 49500000 * 4 DECCCOPT BIT(1), /* A MACRO INSTRUCTION USED 49600000 * AN OPTION NOT SET IN 49700000 * THE DCB */ 49800000 * 4 DECCCKFF BIT(1), /* THE KEY FOR THE FIXED- 49900000 * LENGTH RECORD TO BE 50000000 * ADDED BEGINS WITH X'FF' */ 50100000 * 3 DECRSV34 CHAR(1), /* RESERVED */ 50300000 * 2 * CHAR(2), /* DECTYPE - TYPE OF I/O 50400000 * REQUEST */ 50450000 * 3 * CHAR(1), /* DECTYPE1 - FIRST BYTE OF 50500000 * DECTYPE */ 50600000 * 4 DECVERFY BIT(1), /* VERIFY */ 50700000 * 4 DECOFLOW BIT(1), /* OVERFLOW */ 50800000 * 4 DECEXSRC BIT(1), /* EXTENDED SEARCH */ 50900000 * 4 DECFDBCK BIT(1), /* FEEDBACK */ 51000000 * 4 DECACTAD BIT(1), /* ACTUAL ADDRESSING */ 51100000 * 4 DECDYNBF BIT(1), /* DYNAMIC BUFFERING */ 51200000 * 4 DECRDEX BIT(1), /* READ EXCLUSIVE */ 51300000 * 4 DECRELBA BIT(1), /* RELATIVE BLOCK ADDRESSING*/ 51400000 * 3 * CHAR(1), /* DECTYPE2 - SECOND BYTE 51600000 * OF DECTYPE */ 51700000 * 4 DECKEYS BIT(1), /* S CODED FOR KEY ADDRESS */ 51800000 * 4 DECBKLNS BIT(1), /* S CODED FOR BLOCK LENGTH */ 51900000 * 4 DECTYPRU BIT(2), /* RU IS SUFFIXED TO THE 51950000 * TYPE, INDICATING THAT THE 52000000 * FEEDBACK ADDRESS POINTED 52050000 * TO BY DECNXADR CAN BE THE 52100000 * ADDRESS OF EITHER THE 52150000 * NEXT DATA RECORD OR THE 52200000 * NEXT CAPACITY RECORD, 52250000 * WHICHEVER OCCURS FIRST */ 52300000 * 5 DECTYPU BIT(1), /* OFF IF R IS SUFFIXED, 52400000 * ONE IF RU IS SUFFIXED */ 52450000 * 5 DECTYPR BIT(1), /* R IS SUFFIXED TO THE TYPE, 52500000 * INDICATING THAT THE 52600000 * FEEDBACK ADDRESS POINTED 52700000 * TO BY DECNXADR IS THE 52800000 * ADDRESS OF THE NEXT DATA 52900000 * RECORD (BIT 2 IS ZERO) */ 53000000 * 4 DECOPRD BIT(1), /* TYPE OF OPERATION - 0 IS 53100000 * WRITE, 1 IS READ */ 53200000 * 4 DECSRKEY BIT(1), /* TYPE OF SEARCH ARGUMENT 53300000 * - 0 IS ID, 1 IS KEY */ 53400000 * 4 DECWRADD BIT(1), /* ADD OPTION OF WRITE 53500000 * OPERATION */ 53600000 * 4 DECRSV35 BIT(1), /* RESERVED */ 53700000 * 2 * FIXED(15), /* DECLNGTH - LENGTH OF 53800000 * DATA */ 53900000 * 2 * PTR(31), /* DECDCBAD - ADDRESS OF 54000000 * DCB TO WHICH THIS I/O 54100000 * REQUEST IS RELATED */ 54200000 * 2 * PTR(31), /* DECAREA - ADDRESS OF THE 54300000 * DATA */ 54400000 * 2 * PTR(31), /* DECIOBPT - ADDRESS OF THE 54500000 * IOB */ 54600000 * 2 DECKYADR PTR(31), /* ADDRESS OF THE KEY */ 54700000 * 2 DECRECPT PTR(31), /* ADDRESS OF THE BLOCK 54800000 * REFERENCE FIELD */ 54900000 * 2 DECNA PTR(31), /* SAME AS DECNAA BELOW */ 55000000 * 3 DECRSV36 CHAR(1), /* RESERVED */ 55100000 * 3 DECNAA PTR(24); /* ADDRESS OF THE NEXT 55200000 * ADDRESS FEEDBACK FIELD. 55300000 * PRESENT ONLY IF R OR RU 55400000 * IS CODED IN READ MACRO. */ 55500000 * 55600000 * 55700000 */* **************************************************************** */ 55800000 */* DATA EVENT CONTROL BLOCK FOR QTAM */ 55900000 */* **************************************************************** */ 56000000 * 56100000 *DECLARE 1 DECBS03 56200000 * BASED(DECBPT) BDY(WORD), 56300000 * 2 LINEDECB CHAR(4) BDY(WORD), /* ALWAYS ZERO */ 56400000 * 2 DECRSV37 CHAR(1), /* RESERVED */ 56500000 * 2 DECOPCOD CHAR(1), /* OPERATION CODE FOR 56600000 * CURRENT SEGMENT */ 56700000 * 2 * FIXED(15), /* DECLNGTH - LENGTH OF 56800000 * INPUT AREA FOR INITIAL 56900000 * READ */ 57000000 * 2 * PTR(31), /* DECDCBAD - ADDRESS OF 57100000 * DCB */ 57200000 * 2 * PTR(31), /* DECAREA - STARTING 57300000 * ADDRESS FOR DATA IN A 57400000 * BUFFER */ 57500000 * 2 DECRSV38 CHAR(4) BDY(WORD), /* RESERVED */ 57600000 * 2 DECCPOL PTR(31), /* SAME AS DECCPOLA BELOW */ 57700000 * 3 DECNMMSG PTR(8), /* NUMBER OF MESSAGES 57800000 * RECEIVED */ 57900000 * 3 DECCPOLA PTR(24), /* ADDRESS OF CURRENTLY 58000000 * ACTIVE ENTRY IN POLLING 58100000 * LIST */ 58200000 * 2 DECRSV39 CHAR(1), /* RESERVED */ 58300000 * 2 DECUCBDX PTR(8), /* INDEX TO UCB ADDRESS IN 58400000 * DEB */ 58500000 * 2 DECRSV40 CHAR(2) BDY(WORD,3), /* RESERVED */ 58600000 * 2 DECRSV41 CHAR(4) BDY(WORD), /* RESERVED */ 58700000 * 2 DECADRCH PTR(31), /* ADDRESS OF ADDRESSING 58800000 * CHARACTERS IN TERMINAL 58900000 * ENTRY */ 59000000 * 2 * PTR(31), /* DECPOLPT - ADDRESS OF 59100000 * POLLING LIST */ 59150000 * 3 DECRSV42 CHAR(1), /* RESERVED */ 59200000 * 3 * PTR(24); /* DECPOLPA - ADDRESS OF 59300000 * POLLING LIST */ 59400000 * 59500000 * 59600000 */* **************************************************************** */ 59700000 */* DATA EVENT CONTROL BLOCK FOR BTAM */ 59800000 */* **************************************************************** */ 59900000 * 60000000 *DECLARE 1 DECBS04 60100000 * BASED(DECBPT) BDY(WORD), 60200000 * 2 * CHAR(4) BDY(WORD), /* DECSDECB - EVENT CONTROL 60300000 * BLOCK */ 60400000 * 2 * CHAR(2), /* DECTYPE - PROGRAMMING 60500000 * INDICATORS */ 60550000 * 3 * CHAR(1), /* DECTYPE1 - FIRST BYTE OF 60600000 * DECTYPE */ 60700000 * 4 DECRDAPL BIT(1), /* READ, USING AUTOPOLL */ 60800000 * 4 DECRSV43 BIT(1), /* RESERVED */ 60900000 * 4 DECRSV44 BIT(1), /* RESERVED */ 60950000 * 4 DECRSV45 BIT(1), /* RESERVED */ 61000000 * 4 DECRSV46 BIT(1), /* RESERVED */ 61050000 * 4 DECSTRME BIT(1), /* 'S' CODED FOR TERMINAL 61300000 * ENTRY */ 61400000 * 4 DECSAREA BIT(1), /* 'S' CODED FOR AREA */ 61500000 * 4 DECSLNTH BIT(1), /* 'S' CODED FOR LENGTH */ 61600000 * 3 * CHAR(1), /* DECTYPE2 - COMMAND 61700000 * CODE */ 61800000 * 2 * FIXED(15), /* DECLNGTH - LENGTH OF 61900000 * BUFFER OR MESSAGE AREA */ 62000000 * 2 * PTR(31), /* DECDCBAD - ADDRESS OF 62100000 * ASSOCIATED DCB */ 62150000 * 3 DECBUFCT PTR(8), /* CONTAINS A RUNNING COUNT 62400000 * OF BUFFERS OBTAINED BY 62500000 * BTAM FOR THE CURRENT READ 62600000 * OPERATION. (DYNAMIC 62700000 * BUFFERING ONLY.) USE 62800000 * DIFFERS DURING BSC AND 62900000 * 2760 ONLINE TEST. */ 63000000 * 4 DECONLTT CHAR(1), /* FLAG BYTE FOR BSC AND 63050000 * 2760 ONLINE TEST */ 63060000 * 5 DECONLTS BIT(1), /* IF ZERO, ONLINE TEST 63100000 * REQUESTED BY RFT MESSAGE 63200000 * (BSC). IF ONE, ONLINE 63300000 * TEST INITIATED BY ONLTST 63400000 * MACRO INSTRUCTION (BSC). */ 63600000 * 5 DECRCVMS BIT(1), /* IF ZERO, SENDING TEST 63700000 * MESSAGES (BSC). IF ONE, 63800000 * RECEIVING TEST MESSAGES 63900000 * (BSC) OR TYPE 11 ONLINE 64000000 * TEST FOR 2760 OPTICAL 64100000 * IMAGE UNIT. */ 64200000 * 5 DECRSV47 BIT(1), /* RESERVED */ 64300000 * 5 DECRSV48 BIT(1), /* RESERVED */ 64350000 * 5 DECRSV49 BIT(1), /* RESERVED */ 64400000 * 5 DECRSV50 BIT(1), /* RESERVED */ 64450000 * 5 DECRSV51 BIT(1), /* RESERVED */ 64500000 * 5 DECRSV52 BIT(1), /* RESERVED */ 64550000 * 3 DECDCBAA PTR(24), /* ADDRESS OF ASSOCIATED 64900000 * DCB */ 65000000 * 2 * PTR(31), /* DECAREA - ADDRESS OF 65100000 * BUFFER OR MESSAGE AREA */ 65200000 * 2 DECSENS0 CHAR(1), /* SENSE INFORMATION */ 65300000 * 2 DECSENS1 CHAR(1), /* RESERVED */ 65400000 * 2 DECCOUNT FIXED(15), /* RESIDUAL COUNT FROM CSW 65500000 * FOR LAST CCW EXECUTED */ 65600000 * 2 DECENTRY PTR(31), /* ADDRESS OF THE TERMINAL 65700000 * LIST */ 65750000 * 3 DECCMCOD CHAR(1), /* COMMAND FOR WHICH THE 65800000 * ERROR OCCURRED */ 65900000 * 3 DECENTRA PTR(24), /* ADDRESS OF THE TERMINAL 66000000 * LIST */ 66050000 * 2 DECFLAGS CHAR(1), /* OPERATION STATUS */ 66100000 * 3 DECWACK BIT(2), /* WACK WAS RECEIVED (BSC) */ 66150000 * 4 DECERRMS BIT(1), /* ERROR STATUS MESSAGE WAS 66200000 * RECEIVED (BSC). BIT 1 IS 66300000 * OFF. */ 66400000 * 4 DECDIFAC BIT(1), /* ACKNOWLEDGMENT OTHER 66500000 * THAN ACK-0 OR ACK-1 66600000 * RECEIVED (BSC) */ 66700000 * 3 DECALTAC BIT(1), /* ACKNOWLEDGMENT 66800000 * ALTERNATION INCORRECT */ 66900000 * 3 DECBADID BIT(1), /* FOR TWX 33/35 STATION 67000000 * AND BSC STATION, 67100000 * INCORRECT ID RECEIVED. 67200000 * FOR AUTOPOLL, INDEX 67300000 * BYTE RECEIVED DOES NOT 67400000 * MATCH AN ACTIVE ONE. 67500000 * FOR BSC NONSWITCHED 67600000 * POINT-TO-POINT LINE, 67700000 * CONTENTION OCCURRED. FOR 67800000 * WTTA, CONTENTION 67900000 * OCCURRED OR INCORRECT 68000000 * ID RECEIVED. */ 68100000 * 3 DECNOBUF BIT(1), /* FOR READ, DYNAMIC 68200000 * BUFFERING, NO BUFFER 68300000 * WAS AVAILABLE. (MESSAGE 68400000 * LOST) */ 68500000 * 3 DECNEGRP BIT(1), /* FOR OPENLST, POLLING, 68600000 * NEGATIVE RESPONSE TO 68700000 * POLLING RECEIVED. FOR 68800000 * WRAPLST, ALL ENTRIES 68900000 * ARE INACTIVE. FOR 69000000 * ADDRESSING, NEGATIVE 69100000 * RESPONSE TO ADDRESSING 69200000 * RECEIVED. FOR WTTA, LAST 69300000 * MESSAGE RECEIVED ENDED 69400000 * WITH EOT OR TIME-OUT. 69500000 * FOR 2741, POWER IS OFF 69600000 * OR OTHER INTERVENTION 69700000 * REQUIRED CONDITION 69800000 * EXISTS. */ 69900000 * 3 DECREVRS BIT(1), /* FOR WTTA, MESSAGE ENDED 70000000 * WITH WRU SIGNAL. FOR 70100000 * BSC STATIONS, REVERSE 70200000 * INTERRUPT (RVI) SEQUENCE 70300000 * WAS RECEIVED (SEE ALSO 70400000 * BIT 1). FOR 2741, WRITE 70500000 * OPERATION WAS ENDED BY 70600000 * TERMINAL INTERRUPT. */ 70700000 * 4 DECSSMSG BIT(1), /* A 3270 REMOTE SENSE/STATUS 70750000 * MESSAGE WAS RECEIVED IF 70760000 * THIS BIT IS ONE AND BIT 1 70770000 * IS ZERO ICB479*/ 70780000 * 3 DECSTXNQ BIT(1), /* FOR WTTA, CONTENTION 70800000 * CONDITION WAS 70900000 * ENCOUNTERED. FOR BSC 71000000 * STATIONS, STX ENQ 71100000 * SEQUENCE WAS RECEIVED. */ 71200000 * 2 DECRLN PTR(8), /* RELATIVE LINE NUMBER */ 71300000 * 2 DECRESPN CHAR(2), /* FOR BSC OPERATIONS, 71400000 * RESPONSE FROM A 71500000 * TERMINAL TO ADDRESSING. 71600000 * FOR STOP-START 71700000 * OPERATIONS, BYTE 1 IS 71800000 * RESPONSE FROM A 71900000 * TERMINAL TO ADDRESSING 72000000 * AND BYTE 2 IS VERTICAL 72100000 * REDUNDANCY CHARACTER AND 72200000 * LONGITUDINAL REDUNDANCY 72300000 * CHARACTER (VRC/LRC) 72400000 * RESPONSE. */ 72500000 * 2 DECTPCOD CHAR(1), /* TP OPERATION CODE */ 72600000 * 2 DECERRST CHAR(1), /* I/O ERROR STATUS FLAGS */ 72700000 * 3 DECSIO3 BIT(1), /* SIO RESULTED IN A 72800000 * CONDITION CODE OF 3 */ 72900000 * 3 DECUNDEF BIT(1), /* UNDEFINED ERROR 73000000 * CONDITION */ 73100000 * 3 DECERPER BIT(1), /* AN ERROR CONDITION 73200000 * OCCURRED DURING AN I/O 73300000 * OPERATION INITIATED BY 73400000 * ERROR RECOVERY ROUTINES */ 73500000 * 3 DECDIAGN BIT(1), /* DIAGNOSTIC WRITE/READ 73600000 * OPERATION ENDED BECAUSE 73700000 * OF ERROR (2701 ONLY) */ 73800000 * 3 DECDSABL BIT(1), /* DISABLE COMMAND ISSUED 73900000 * TO SWITCHED LINE BY 74000000 * ERROR RECOVERY ROUTINE 74100000 * BECAUSE OF PERMANENT 74200000 * ERROR ON THAT LINE */ 74300000 * 3 DECRSV53 BIT(1), /* RESERVED */ 74400000 * 3 DECRSV54 BIT(1), /* RESERVED */ 74450000 * 3 DECRSV55 BIT(1), /* RESERVED */ 74500000 * 2 DECCSWST CHAR(2), /* STATUS BITS FROM CSW FOR 74700000 * LAST CCW EXECUTED */ 74800000 * 2 DECADRPT PTR(31), /* ADDRESS OF ADDRESSING 74900000 * LIST ENTRY USED IN 75000000 * PREVIOUS OPERATION */ 75100000 * 2 DECPOLPT PTR(31), /* SAME AS DECPOLPA BELOW */ 75200000 * 3 DECNDXPL PTR(8), /* FOR AUTOPOLL, INDEX TO 75300000 * CURRENT ENTRY IN 75400000 * POLLING LIST */ 75500000 * 3 DECPOLPA PTR(24), /* FOR PROGRAMMED POLLING, 75600000 * ADDRESS OF THE CURRENT 75700000 * ENTRY IN THE POLLING 75800000 * LIST. FOR AUTOPOLL, 75900000 * ADDRESS OF POLLING LIST. 76000000 * FOR BSC ON-LINE TEST, 76100000 * ADDRESS OF TEXT DATA. */ 76200000 * 76300000 */* BSC EXTENSION */ 76400000 */* FIELDS ARE PRESENT ONLY IF A SUBLIST IS CODED FOR THE */ 76500000 */* AREA AND LENGTH OPERANDS OF THE READ OR WRITE MACRO */ 76600000 */* INSTRUCTION THAT DEFINES THE DECB. */ 76700000 * 76800000 * 2 DECRSV56 CHAR(2), /* RESERVED */ 76900000 * 2 DECWLNG FIXED(15), /* LENGTH, IN BYTES, OF 77000000 * THE DATA AREA IN 77100000 * LEADING-GRAPHICS AND 77200000 * CONVERSATIONAL TYPE 77300000 * OPERATIONS OR OF THE AREA 77400000 * CONTAINING THE TONE 77500000 * CHARACTERS IN READ 77600000 * CONNECT WITH TONE (TCW) 77700000 * OPERATIONS */ 77800000 * 2 DECWAREA PTR(31); /* ADDRESS OF THE DATA AREA 77900000 * IN LEADING-GRAPHICS AND 78000000 * CONVERSATIONAL 78100000 * OPERATIONS, OR OF THE 78200000 * AREA CONTAINING THE TONE 78300000 * CHARACTERS IN READ TCW 78400000 * OPERATIONS */ 78500000