* 00100001 * %GOTO DECBL1; /* 00150001 MACRO 00200001 IHADECB &DSECT=YES 00300001 AIF ('&DSECT' EQ 'NO').NODSCT 00400001 DECB DSECT , - DECBPTR 00500001 AGO .CONT 00600001 .NODSCT ANOP 00700001 DS 0D 00800001 DECB EQU * - DECBPTR 00900001 .CONT ANOP , */ 01000001 *%DECBL1 : ; 01050001 * 01100001 */* **************************************************************** */ 01200001 */* DATA EVENT CONTROL BLOCKS FOR - */ 01300001 */* BSAM, BISAM, BDAM, QTAM, BTAM */ 01400001 */* */ 01500001 */* OS/VS2 RELEASE 3, OS/VS1 RELEASE 4, 08/30/74, LEVEL=1 */ 01600003 */* */ 01650001 */* METHOD OF ACCESS */ 01660001 */* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 01670001 */* USING ON DECB GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 01680001 */* PL/S - DCL DECBPT PTR */ 01690001 */* **************************************************************** */ 01700001 *%GOTO DECBL2; /* 01750001 SPACE 1 01800001 IEZBITS , - SYMBOLIC BIT DEFINITIONS 01850001 SPACE 1 01860001 *********************************************************************** 01900001 * DATA EVENT CONTROL BLOCK FOR BSAM * 02000001 *********************************************************************** 02100001 SPACE 1 02200001 DECSDECB DS CL4 - EVENT CONTROL BLOCK 02300001 DECBPTR DS 0A - FOR IBM 1419 MAGNETIC CHARACTER READER 02400001 * AND IBM 1275 OPTICAL READER SORTER, A 02500001 * POINTER TO NEXT DECB TO BE TESTED FOR 02600001 * COMPLETION BY THE CHECK MACRO 02700002 * INSTRUCTION. (DECB CHAINING APPLIES TO 02750002 * THE USE OF MORE THAN ONE DEVICE.) THIS 02760002 * FIELD IN THE LAST DECB MUST BE ZERO. 02770002 DECTYPE DS 0BL2 - TYPE OF I/O REQUEST 02800001 DECTYPE1 DS B - TYPE OF LENGTH OPERAND 02900001 DECLNS EQU BIT0 - S CODED FOR LENGTH 03000001 DECRSV01 EQU BIT1,,C'X' - RESERVED 03050001 DECRSV02 EQU BIT2,,C'X' - RESERVED 03060001 DECRSV03 EQU BIT3,,C'X' - RESERVED 03070001 DECRSV04 EQU BIT4,,C'X' - RESERVED 03080001 DECRSV05 EQU BIT5,,C'X' - RESERVED 03090001 DECRSV06 EQU BIT6,,C'X' - RESERVED 03092001 DECRSV07 EQU BIT7,,C'X' - RESERVED 03094001 DECTYPE2 DS B - TYPE OF OPERATION 03100001 DECRDSF EQU BIT0 - READ SF 03200001 DECRDSB EQU BIT1 - READ SB 03300001 DECWRSF EQU BIT2 - WRITE SF 03400001 DECWRSD EQU BIT3 - WRITE SD 03500001 DECRSV08 EQU BIT4,,C'X' - RESERVED 03550001 DECWRSZ EQU BIT5 - WRITE SZ 03600001 DECRSV09 EQU BIT6,,C'X' - RESERVED 03650001 DECWRSFR EQU BIT7 - WRITE SFR (BIT 2 IS ALSO ON) OR 03700002 * READ RBL (BIT 0 IS ALSO ON) MDC004 03710002 DECLNGTH DS H - LENGTH OF KEY AND DATA 03800001 DECDCBAD DS A - ADDRESS OF THE DCB TO WHICH THIS I/O 03900002 * REQUEST IS RELATED 04000002 DECAREA DS A - ADDRESS OF KEY AND DATA, OR FOR 1287 OR 04100001 * 1288 OPTICAL READERS, THE ADDRESS OF A 04200002 * USER-SPECIFIED CHANNEL PROGRAM 04300001 DECIOBPT DS A - ADDRESS OF THE IOB 04400002 DECNEXT DS 0A - SAME AS DECNEXTA BELOW 04500001 DECRSV10 DS X - RESERVED 04600001 DECNEXTA DS AL3 - ADDRESS OF THE NEXT ADDRESS FEEDBACK 04700002 * FIELD. PRESENT ONLY IF R IS CODED IN 04800002 * THE WRITE MACRO. 04802002 SPACE 2 04805002 ORG DECNEXT - FOR 3886 ONLY, DEVICE DEPENDENT FIELDS 04810002 DECBHDRA DS A - FOR READ RBL, ADDRESS OF 3886 DATA 04815002 * HEADER RECORD AFTER READ MDC001 04820002 DECBLNNM DS A - FOR READ RBL, ADDRESS OF LINE NUMBER OR 04825002 * NEGATIVE OF LINE NUMBER MDC002 04830002 DECBLFMT DS A - FOR READ RBL, ADDRESS OF LINE FORMAT 04835002 * NUMBER OR NEGATIVE OF LINE FORMAT 04840002 * NUMBER MDC003 04845002 SPACE 2 04900001 *********************************************************************** 05000001 * DATA EVENT CONTROL BLOCK FOR BISAM * 05100001 *********************************************************************** 05200001 SPACE 1 05300001 ORG DECB 05400001 DECBECB DS 0CL4 - EVENT CONTROL BLOCK 05500001 DECBRB DS 0A - SAME AS DECBRBA BELOW 05600001 DECBECBF DS B - FLAG FIELD 05700001 DECBWAIT EQU BIT0 - AWAITING COMPLETION OF EVENT 05800001 DECBPOST EQU BIT1 - EVENT HAS COMPLETED NORMALLY OR 05900002 * ABNORMALLY. IF THE EVENT COMPLETED 05920002 * ABNORMALLY, FIELDS DECBEXC1 AND DECBEXC2 05930002 * WILL SHOW THE REASON. 05940002 DECRSV11 EQU BIT2,,C'X' - RESERVED 05950001 DECRSV12 EQU BIT3,,C'X' - RESERVED 05960001 DECRSV13 EQU BIT4,,C'X' - RESERVED 05970001 DECRSV14 EQU BIT5,,C'X' - RESERVED 05980001 DECRSV15 EQU BIT6,,C'X' - RESERVED 05990001 DECRSV16 EQU BIT7,,C'X' - RESERVED 05992001 DECBRBA DS AL3 - ADDRESS OF THE RB FOR THE PROGRAM 06000002 * AWAITING EVENT (BEFORE EVENT COMPLETION) 06100002 * OR RESERVED (AFTER EVENT COMPLETION) 06200002 DECBTYP1 DS B - OPTION BYTE 06300001 DECRSV17 EQU BIT0,,C'X' - RESERVED 06350001 DECRSV18 EQU BIT1,,C'X' - RESERVED 06352001 DECRSV19 EQU BIT2,,C'X' - RESERVED 06354001 DECRSV20 EQU BIT3,,C'X' - RESERVED 06360001 DECRSV21 EQU BIT4,,C'X' - RESERVED 06370001 DECRSV22 EQU BIT5,,C'X' - RESERVED 06380001 DECBLNS EQU BIT6 - LENGTH CODED AS 'S' 06400001 DECBARS EQU BIT7 - AREA CODED AS 'S' 06500001 DECBTYP2 DS B - TYPE OF I/O REQUEST 06600001 DECBRDK EQU BIT0 - READ K 06700001 DECRSV23 EQU BIT1,,C'X' - RESERVED 06750001 DECBRDKU EQU BIT2 - READ KU 06800001 DECRSV24 EQU BIT3,,C'X' - RESERVED 06850001 DECBWRK EQU BIT4 - WRITE K 06900001 DECBWRKN EQU BIT5 - WRITE KN 07000001 DECRSV25 EQU BIT6,,C'X' - RESERVED 07050001 DECRSV26 EQU BIT7,,C'X' - RESERVED 07060001 DECBLGTH DS H - NUMBER OF BYTES READ OR WRITTEN 07100001 DECBDCBA DS A - ADDRESS OF THE DATA CONTROL BLOCK 07200002 DECBAREA DS A - ADDRESS OF THE AREA IN STORAGE FOR THE 07300002 * RECORD 07350002 DECBLOGR DS A - ADDRESS OF THE LOGICAL RECORD 07400002 DECBKEY DS A - ADDRESS OF THE KEY PORTION OF THE RECORD 07500002 DECBEXC1 DS B - EXCEPTIONAL CONDITION CODE BYTE 1 07600001 DECEXRNF EQU BIT0 - RECORD NOT FOUND 07700001 DECEXRLC EQU BIT1 - RECORD LENGTH CHECK 07800001 DECEXNSP EQU BIT2 - SPACE NOT FOUND IN WHICH TO ADD A RECORD 07900001 DECEXINV EQU BIT3 - INVALID REQUEST 08000001 DECEXERR EQU BIT4 - UNCORRECTABLE I/O ERROR 08100001 DECEXUBK EQU BIT5 - UNREACHABLE BLOCK 08200001 DECEXOFL EQU BIT6 - OVERFLOW RECORD 08300001 DECEXDUP EQU BIT7 - DUPLICATE RECORD PRESENTED FOR INCLUSION 08400001 * IN THE DATA SET 08500002 DECBEXC2 DS B - EXCEPTIONAL CONDITION CODE BYTE 2 08600001 DECRSV27 EQU BIT0,,C'X' - RESERVED 08650001 DECRSV28 EQU BIT1,,C'X' - RESERVED 08660001 DECRSV29 EQU BIT2,,C'X' - RESERVED 08670001 DECRSV30 EQU BIT3,,C'X' - RESERVED 08680001 DECRSV31 EQU BIT4,,C'X' - RESERVED 08690001 DECRSV32 EQU BIT5,,C'X' - RESERVED 08692001 DECEXASR EQU BIT6 - EXECUTION OF THE LAST CHANNEL PROGRAM WAS 08700002 * INSTITUTED BY AN ASYNCHRONOUS ROUTINE 08800001 DECEXRKU EQU BIT7 - PREVIOUS MACRO INSTRUCTION WAS READ KU 08900001 SPACE 2 09000001 *********************************************************************** 09100001 * DATA EVENT CONTROL BLOCK FOR BDAM * 09200001 *********************************************************************** 09300001 SPACE 1 09400001 ORG DECB 09500001 DS 0CL4 - DECSDECB - EVENT CONTROL BLOCK 09600001 DS B - COMPLETION CODE BYTE 1 09700001 DECCC2 DS B - COMPLETION CODE BYTE 2 09800001 DECCCRNF EQU BIT0 - RECORD NOT FOUND 09900001 DECCCRLC EQU BIT1 - RECORD LENGTH CHECK 10000001 DECCCNSP EQU BIT2 - SPACE NOT FOUND 10100001 DECCCINV EQU BIT3 - INVALID REQUEST. (THIS CONDITION ALSO 10200002 * SETS A BIT IN THE NEXT BYTE.) 10250002 DECCCERR EQU BIT4 - UNCORRECTABLE I/O ERROR 10300001 DECCCEOD EQU BIT5 - END OF DATA 10400001 DECCCUER EQU BIT6 - UNCORRECTABLE ERROR OTHER THAN AN I/O 10500002 * ERROR 10550002 DECCCREX EQU BIT7 - A WRITE WITH EXCLUSIVE CONTROL WAS NOT 10600003 * PRECEDED BY A READ WITH EXCLUSIVE CONTROL 10700003 * (MDC300) @Z30AQ9A 10800003 DECCC3 DS B - COMPLETION CODE BYTE 3 10900001 DECRSV33 EQU BIT0,,C'X' - RESERVED 10950001 DECCCWRI EQU BIT1 - A WRITE MACRO INSTRUCTION WAS ADDRESSED 11000001 * TO AN INPUT DATA SET 11100001 DECCCEXS EQU BIT2 - AN EXTENDED SEARCH WAS SPECIFIED WITH THE 11200002 * DCBLIMCT FIELD SET TO ZERO 11300001 DECCCNBK EQU BIT3 - THE BLOCK REQUESTED IS NOT WITHIN THE 11400002 * DATA SET 11450002 DECCCWDI EQU BIT4 - A WRITE-BY-IDENTIFICATION (DI) ADDRESSED 11500001 * RECORD ZERO 11600001 DECCCSDK EQU BIT5 - A SEARCH-ON-KEY (DK) WAS SPECIFIED WITH 11700001 * THE DCBKEYLE FIELD SET TO ZERO OR WITHOUT 11800002 * AN ADDRESS FOR THE KEY 11900002 DECCCOPT EQU BIT6 - A MACRO INSTRUCTION USED AN OPTION NOT 12000001 * SET IN THE DCB 12100001 DECCCKFF EQU BIT7 - THE KEY FOR THE FIXED-LENGTH RECORD TO BE 12200001 * ADDED BEGINS WITH X'FF' 12300002 DECRSV34 DS X - RESERVED 12400001 DS 0BL2 - DECTYPE - TYPE OF I/O REQUEST 12500001 DS B - DECTYPE1 - FIRST BYTE OF DECTYPE 12600001 DECVERFY EQU BIT0 - VERIFY 12700001 DECOFLOW EQU BIT1 - OVERFLOW 12800001 DECEXSRC EQU BIT2 - EXTENDED SEARCH 12900001 DECFDBCK EQU BIT3 - FEEDBACK 13000001 DECACTAD EQU BIT4 - ACTUAL ADDRESSING 13100001 DECDYNBF EQU BIT5 - DYNAMIC BUFFERING 13200001 DECRDEX EQU BIT6 - READ EXCLUSIVE 13300001 DECRELBA EQU BIT7 - RELATIVE BLOCK ADDRESSING 13400001 DS B - DECTYPE2 - SECOND BYTE OF DECTYPE 13500001 DECKEYS EQU BIT0 - S CODED FOR KEY ADDRESS 13600001 DECBKLNS EQU BIT1 - S CODED FOR BLOCK LENGTH 13700001 DECTYPRU EQU BIT2+BIT3 - RU IS SUFFIXED TO THE TYPE, INDICATING 13800001 * THAT THE FEEDBACK ADDRESS POINTED TO BY 13900001 * DECNXADR CAN BE THE ADDRESS OF EITHER THE 14000002 * NEXT DATA RECORD OR THE NEXT CAPACITY 14100002 * RECORD, WHICHEVER OCCURS FIRST 14200002 DECTYPR EQU BIT3 - R IS SUFFIXED TO THE TYPE, INDICATING 14300001 * THAT THE FEEDBACK ADDRESS POINTED TO BY 14400001 * DECNXADR IS THE ADDRESS OF THE NEXT DATA 14500002 * RECORD. (BIT 2 IS ZERO) 14600002 DECOPRD EQU BIT4 - TYPE OF OPERATION - 0 IS WRITE, 1 IS READ 14700001 DECSRKEY EQU BIT5 - TYPE OF SEARCH ARGUMENT - 0 IS ID, 14800002 * 1 IS KEY 14900001 DECWRADD EQU BIT6 - ADD OPTION OF WRITE OPERATION 15000001 DECRSV35 EQU BIT7,,C'X' - RESERVED 15050001 DS H - DECLNGTH - LENGTH OF DATA 15100001 DS A - DECDCBAD - ADDRESS OF DCB TO WHICH THIS 15200001 * I/O REQUEST IS RELATED 15300001 DS A - DECAREA - ADDRESS OF THE DATA 15400002 DS A - DECIOBPT - ADDRESS OF THE IOB 15500002 DECKYADR DS A - ADDRESS OF THE KEY 15600002 DECRECPT DS A - ADDRESS OF THE BLOCK REFERENCE FIELD 15700002 DECNA DS 0A - SAME AS DECNAA BELOW 15800001 DECRSV36 DS X - RESERVED 15900001 DECNAA DS AL3 - ADDRESS OF THE NEXT ADDRESS FEEDBACK 16000002 * FIELD. PRESENT ONLY IF R OR RU IS CODED 16100002 * IN THE READ MACRO. 16200002 SPACE 2 16300001 *********************************************************************** 16400001 * DATA EVENT CONTROL BLOCK FOR QTAM * 16500001 *********************************************************************** 16600001 SPACE 1 16700001 ORG DECB 16800001 LINEDECB DS CL4 - ALWAYS ZERO 16900001 DECRSV37 DS X - RESERVED 17000001 DECOPCOD DS C - OPERATION CODE FOR CURRENT SEGMENT 17100001 DS H - DECLNGTH - LENGTH OF INPUT AREA FOR 17200001 * INITIAL READ 17300001 DS A - DECDCBAD - ADDRESS OF DCB 17400001 DS A - DECAREA - STARTING ADDRESS FOR DATA IN A 17500001 * BUFFER 17600001 DECRSV38 DS XL4 - RESERVED 17700001 DECCPOL DS 0A - SAME AS DECCPOLA BELOW 17800001 DECNMMSG DS FL1 - NUMBER OF MESSAGES RECEIVED 17900001 DECCPOLA DS AL3 - ADDRESS OF CURRENTLY ACTIVE ENTRY IN 18000001 * POLLING LIST 18100001 DECRSV39 DS X - RESERVED 18200001 DECUCBDX DS FL1 - INDEX TO UCB ADDRESS IN DEB 18300001 DECRSV40 DS XL2 - RESERVED 18400001 DECRSV41 DS XL4 - RESERVED 18500001 DECADRCH DS A - ADDRESS OF ADDRESSING CHARACTERS IN 18600001 * TERMINAL ENTRY 18700001 DS 0A - DECPOLPT - ADDRESS OF POLLING LIST 18800001 DECRSV42 DS X - RESERVED 18900001 DS AL3 - DECPOLPA - ADDRESS OF POLLING LIST 19000001 SPACE 2 19100001 *********************************************************************** 19200001 * DATA EVENT CONTROL BLOCK FOR BTAM * 19300001 *********************************************************************** 19400001 SPACE 1 19500001 ORG DECB 19600001 DS CL4 - DECSDECB - EVENT CONTROL BLOCK 19700001 DS 0BL2 - DECTYPE - PROGRAMMING INDICATORS 19800001 DS B - DECTYPE1 - FIRST BYTE OF DECTYPE 19900001 DECRDAPL EQU BIT0 - READ, USING AUTOPOLL 20000001 DECRSV43 EQU BIT1,,C'X' - RESERVED 20050001 DECRSV44 EQU BIT2,,C'X' - RESERVED 20060001 DECRSV45 EQU BIT3,,C'X' - RESERVED 20070001 DECRSV46 EQU BIT4,,C'X' - RESERVED 20080001 DECSTRME EQU BIT5 - 'S' CODED FOR TERMINAL ENTRY 20100001 DECSAREA EQU BIT6 - 'S' CODED FOR AREA 20200001 DECSLNTH EQU BIT7 - 'S' CODED FOR LENGTH 20300001 DS C - DECTYPE2 - COMMAND CODE 20400002 DS H - DECLNGTH - LENGTH OF BUFFER OR MESSAGE 20500001 * AREA 20600001 DS 0A - DECDCBAD - ADDRESS OF ASSOCIATED DCB 20700001 DECBUFCT DS 0FL1 - CONTAINS A RUNNING COUNT OF BUFFERS 20800001 * OBTAINED BY BTAM FOR THE CURRENT READ 20900002 * OPERATION. (DYNAMIC BUFFERING ONLY.) 21000001 * USE DIFFERS DURING BSC AND 2760 ONLINE 21100002 * TEST. 21200001 DECONLTT DS B - FLAG BYTE FOR BSC AND 2760 ONLINE TEST 21300001 DECONLTS EQU BIT0 - IF ZERO, ONLINE TEST REQUESTED BY RFT 21400001 * MESSAGE (BSC). IF ONE, ONLINE TEST 21500001 * INITIATED BY ONLTST MACRO INSTRUCTION 21600001 * (BSC). 21700001 DECRCVMS EQU BIT1 - IF ZERO, SENDING TEST MESSAGES (BSC). 21800001 * IF ONE, RECEIVING TEST MESSAGES (BSC) OR 21900001 * TYPE 11 ONLINE TEST FOR 2760 OPTICAL 22000001 * IMAGE UNIT. 22100001 DECRSV47 EQU BIT2,,C'X' - RESERVED 22150001 DECRSV48 EQU BIT3,,C'X' - RESERVED 22160001 DECRSV49 EQU BIT4,,C'X' - RESERVED 22170001 DECRSV50 EQU BIT5,,C'X' - RESERVED 22180001 DECRSV51 EQU BIT6,,C'X' - RESERVED 22190001 DECRSV52 EQU BIT7,,C'X' - RESERVED 22192001 DECDCBAA DS AL3 - ADDRESS OF ASSOCIATED DCB 22200001 DS A - DECAREA - ADDRESS OF BUFFER OR MESSAGE 22300001 * AREA 22400001 DECSENS0 DS B - SENSE INFORMATION 22500001 DECSENS1 DS B - RESERVED 22600001 DECCOUNT DS H - RESIDUAL COUNT FROM CSW FOR LAST CCW 22700001 * EXECUTED 22800001 DECENTRY DS 0A - ADDRESS OF THE TERMINAL LIST 22900002 DECCMCOD DS C - COMMAND FOR WHICH THE ERROR OCCURRED 23000002 DECENTRA DS AL3 - ADDRESS OF THE TERMINAL LIST 23100002 DECFLAGS DS B - OPERATION STATUS 23200001 DECWACK EQU BIT0+BIT1 - WACK WAS RECEIVED (BSC) 23300001 DECERRMS EQU BIT0 - ERROR STATUS MESSAGE WAS RECEIVED (BSC). 23400001 * BIT 1 IS OFF. 23500002 DECDIFAC EQU BIT1 - ACKNOWLEDGMENT OTHER THAN ACK-0 OR ACK-1 23600001 * RECEIVED (BSC) 23700001 DECALTAC EQU BIT2 - ACKNOWLEDGMENT ALTERNATION INCORRECT 23800001 DECBADID EQU BIT3 - FOR TWX 33/35 STATION AND BSC STATION, 23900001 * INCORRECT ID RECEIVED. FOR AUTOPOLL, 24000001 * INDEX BYTE RECEIVED DOES NOT MATCH AN 24100001 * ACTIVE ONE. FOR BSC NONSWITCHED 24200001 * POINT-TO-POINT LINE, CONTENTION OCCURRED. 24300001 * FOR WTTA, CONTENTION OCCURRED OR 24400001 * INCORRECT ID RECEIVED. 24500001 DECNOBUF EQU BIT4 - FOR READ, DYNAMIC BUFFERING, NO BUFFER 24600001 * WAS AVAILABLE. (MESSAGE LOST) 24700001 DECNEGRP EQU BIT5 - FOR OPENLST, POLLING, NEGATIVE RESPONSE 24800001 * TO POLLING RECEIVED. FOR WRAPLST, ALL 24900001 * ENTRIES ARE INACTIVE. FOR ADDRESSING, 25000001 * NEGATIVE RESPONSE TO ADDRESSING 25100001 * RECEIVED. FOR WTTA, LAST MESSAGE 25200001 * RECEIVED ENDED WITH EOT OR TIME-OUT. 25300001 * FOR 2741, POWER IS OFF OR OTHER 25400001 * INTERVENTION REQUIRED CONDITION EXISTS. 25500001 DECREVRS EQU BIT6 - FOR WTTA, MESSAGE ENDED WITH WRU SIGNAL. 25600001 * FOR BSC STATIONS, REVERSE INTERRUPT (RVI) 25700001 * SEQUENCE WAS RECEIVED (SEE ALSO BIT 1). 25800002 * FOR 2741, WRITE OPERATION WAS ENDED BY 25900001 * TERMINAL INTERRUPT. 26000001 DECSSMSG EQU BIT6 - A 3270 REMOTE SENSE/STATUS MESSAGE WAS 26050001 * RECEIVED IF THIS BIT IS ONE AND BIT 1 26060001 * IS ZERO ICB479 26070001 DECSTXNQ EQU BIT7 - FOR WTTA, CONTENTION CONDITION WAS 26100001 * ENCOUNTERED. FOR BSC STATIONS, STX ENQ 26200001 * SEQUENCE WAS RECEIVED. 26300001 DECRLN DS FL1 - RELATIVE LINE NUMBER 26400001 DECRESPN DS CL2 - FOR BSC OPERATIONS, RESPONSE FROM A 26500001 * TERMINAL TO ADDRESSING. FOR STOP-START 26600001 * OPERATIONS, BYTE 1 IS RESPONSE FROM A 26700001 * TERMINAL TO ADDRESSING AND BYTE 2 IS 26800001 * VERTICAL REDUNDANCY CHARACTER AND 26900001 * LONGITUDINAL REDUNDANCY CHARACTER 27000001 * (VRC/LRC) RESPONSE. 27100001 DECTPCOD DS C - TP OPERATION CODE 27200001 DECERRST DS B - I/O ERROR STATUS FLAGS 27300001 DECSIO3 EQU BIT0 - SIO RESULTED IN A CONDITION CODE OF 3 27400001 DECUNDEF EQU BIT1 - UNDEFINED ERROR CONDITION 27500001 DECERPER EQU BIT2 - AN ERROR CONDITION OCCURRED DURING AN I/O 27600001 * OPERATION INITIATED BY ERROR RECOVERY 27700001 * ROUTINES 27800002 DECDIAGN EQU BIT3 - DIAGNOSTIC WRITE/READ OPERATION ENDED 27900001 * BECAUSE OF ERROR (2701 ONLY) 28000001 DECDSABL EQU BIT4 - DISABLE COMMAND ISSUED TO SWITCHED LINE 28100001 * BY ERROR RECOVERY ROUTINE BECAUSE OF 28200001 * PERMANENT ERROR ON THAT LINE 28300001 DECRSV53 EQU BIT5,,C'X' - RESERVED 28350001 DECRSV54 EQU BIT6,,C'X' - RESERVED 28360001 DECRSV55 EQU BIT7,,C'X' - RESERVED 28370001 DECCSWST DS BL2 - STATUS BITS FROM CSW FOR LAST CCW 28400001 * EXECUTED 28500001 DECADRPT DS A - ADDRESS OF ADDRESSING LIST ENTRY USED IN 28600001 * PREVIOUS OPERATION 28700001 DECPOLPT DS 0A - SAME AS DECPOLPA BELOW 28800001 DECNDXPL DS FL1 - FOR AUTOPOLL, INDEX TO CURRENT ENTRY IN 28900001 * POLLING LIST 29000001 DECPOLPA DS AL3 - FOR PROGRAMMED POLLING, ADDRESS OF THE 29100002 * CURRENT ENTRY IN THE POLLING LIST. FOR 29200002 * AUTOPOLL, ADDRESS OF POLLING LIST. FOR 29300001 * BSC ON-LINE TEST, ADDRESS OF TEXT DATA. 29400001 SPACE 1 29500001 * BSC EXTENSION 29600001 * FIELDS ARE PRESENT ONLY IF A SUBLIST IS CODED FOR THE 29700001 * AREA AND LENGTH OPERANDS OF THE READ OR WRITE MACRO 29800001 * INSTRUCTION THAT DEFINES THE DECB. 29900001 SPACE 1 30000001 DECRSV56 DS XL2 - RESERVED 30100001 DECWLNG DS H - LENGTH, IN BYTES, OF THE DATA AREA IN 30200002 * LEADING-GRAPHICS AND CONVERSATIONAL TYPE 30300001 * OPERATIONS OR OF THE AREA CONTAINING THE 30400002 * TONE CHARACTERS IN READ CONNECT WITH TONE 30500002 * (TCW) OPERATIONS 30600001 DECWAREA DS A - ADDRESS OF THE DATA AREA IN 30700002 * LEADING-GRAPHICS AND CONVERSATIONAL 30800002 * OPERATIONS, OR OF THE AREA CONTAINING THE 30900002 * TONE CHARACTERS IN READ TCW OPERATIONS 31000002 MEND , */ 31100001 *%DECBL2 : ; 31200001 * 31300001 * 32100001 */* **************************************************************** */ 32300001 */* DATA EVENT CONTROL BLOCK FOR BSAM */ 32400001 */* **************************************************************** */ 32500001 * 32600001 *DECLARE 32700001 * 1 DECB BASED(DECBPT) BDY(WORD), 32800001 * 2 DECSDECB CHAR(4) BDY(WORD), /* EVENT CONTROL BLOCK */ 32900001 * 2 DECBPTR PTR(31), /* FOR IBM 1419 MAGNETIC 33000001 * CHARACTER READER AND 33100001 * IBM 1275 OPTICAL READER 33200001 * SORTER, A POINTER TO 33300001 * NEXT DECB TO BE TESTED 33400001 * FOR COMPLETION BY THE 33500001 * CHECK MACRO INSTRUCTION. 33600002 * (DECB CHAINING APPLIES TO 33650002 * THE USE OF MORE THAN ONE 33660002 * DEVICE.) THIS FIELD IN 33670002 * THE LAST DECB MUST BE 33680002 * ZERO. */ 33690002 * 3 DECTYPE CHAR(2), /* TYPE OF I/O REQUEST */ 33700001 * 4 DECTYPE1 CHAR(1), /* TYPE OF LENGTH OPERAND */ 33800001 * 5 DECLNS BIT(1), /* S CODED FOR LENGTH */ 33900001 * 5 DECRSV01 BIT(1), /* RESERVED */ 34000001 * 5 DECRSV02 BIT(1), /* RESERVED */ 34050001 * 5 DECRSV03 BIT(1), /* RESERVED */ 34100001 * 5 DECRSV04 BIT(1), /* RESERVED */ 34150001 * 5 DECRSV05 BIT(1), /* RESERVED */ 34200001 * 5 DECRSV06 BIT(1), /* RESERVED */ 34250001 * 5 DECRSV07 BIT(1), /* RESERVED */ 34300001 * 4 DECTYPE2 CHAR(1), /* TYPE OF OPERATION */ 34700001 * 5 DECRDSF BIT(1), /* READ SF */ 34800001 * 5 DECRDSB BIT(1), /* READ SB */ 34900001 * 5 DECWRSF BIT(1), /* WRITE SF */ 35000001 * 5 DECWRSD BIT(1), /* WRITE SD */ 35100001 * 5 DECRSV08 BIT(1), /* RESERVED */ 35200001 * 5 DECWRSZ BIT(1), /* WRITE SZ */ 35300001 * 5 DECRSV09 BIT(1), /* RESERVED */ 35400001 * 5 DECWRSFR BIT(1), /* WRITE SFR (BIT 2 IS ALSO 35500001 * ON) OR READ RBL (BIT 0 IS 35600002 * ALSO ON) MDC004*/ 35610002 * 3 DECLNGTH FIXED(15), /* LENGTH OF KEY AND DATA */ 35700001 * 2 DECDCBAD PTR(31), /* ADDRESS OF THE DCB TO 35800002 * WHICH THIS I/O REQUEST 35900002 * IS RELATED */ 36000002 * 2 DECAREA PTR(31), /* ADDRESS OF KEY AND DATA, 36100001 * OR FOR 1287 OR 1288 36200001 * OPTICAL READERS, ADDRESS 36300001 * OF A USER-SPECIFIED 36400001 * CHANNEL PROGRAM */ 36500001 * 2 DECIOBPT PTR(31), /* ADDRESS OF THE IOB */ 36600002 * 2 DECNEXT PTR(31), /* SAME AS DECNEXTA BELOW */ 36700001 * 3 DECRSV10 CHAR(1), /* RESERVED */ 36800001 * 3 DECNEXTA PTR(24); /* ADDRESS OF THE NEXT 36900002 * ADDRESS FEEDBACK FIELD. 37000002 * PRESENT ONLY IF R IS 37100002 * CODED IN THE WRITE MACRO.*/ 37200002 * 37202002 * 37204002 *DECLARE 1 DECBS05 37206002 *%IF IKEPLS='2' %THEN 37208002 * %GOTO DECBA1; 37210002 * BASED(ADDR(DECNEXT)) BDY(WORD), 37212002 *%GOTO DECBA2; 37214002 *%DECBA1 : ; 37216002 * DEF(DECNEXT) BDY(WORD), 37218002 *%DECBA2 : ; 37220002 * /* FOR 3886 ONLY, DEVICE 37222002 * DEPENDENT FIELDS */ 37224002 * 2 DECBHDRA PTR(31), /* FOR READ RBL, ADDRESS OF 37226002 * 3886 DATA HEADER RECORD 37228002 * AFTER READ MDC001*/ 37230002 * 2 DECBLNNM PTR(31), /* FOR READ RBL, ADDRESS OF 37232002 * LINE NUMBER OR NEGATIVE 37234002 * OF LINE NUMBER MDC002*/ 37236002 * 2 DECBLFMT PTR(31); /* FOR READ RBL, ADDRESS OF 37238002 * LINE FORMAT NUMBER OR 37240002 * NEGATIVE OF LINE FORMAT 37242002 * NUMBER MDC003*/ 37244002 * 37300001 * 37400001 */* **************************************************************** */ 37500001 */* DATA EVENT CONTROL BLOCK FOR BISAM */ 37600001 */* **************************************************************** */ 37700001 * 37800001 *DECLARE 1 DECBS01 37900001 * BASED(DECBPT) BDY(WORD), 38000001 * 2 DECBECB CHAR(4) BDY(WORD), /* EVENT CONTROL BLOCK */ 38200001 * 3 DECBRB PTR(31), /* SAME AS DECBRBA BELOW */ 38300001 * 4 DECBECBF CHAR(1), /* FLAG FIELD */ 38350001 * 5 DECBWAIT BIT(1), /* AWAITING COMPLETION OF 38400001 * EVENT */ 38500001 * 5 DECBPOST BIT(1), /* EVENT HAS COMPLETED 38600002 * NORMALLY OR ABNORMALLY. 38650002 * IF THE EVENT COMPLETED 38660002 * ABNORMALLY, FIELDS 38670002 * DECBEXC1 AND DECBEXC2 38680002 * WILL SHOW THE REASON. */ 38690002 * 5 DECRSV11 BIT(1), /* RESERVED */ 38700001 * 5 DECRSV12 BIT(1), /* RESERVED */ 38750001 * 5 DECRSV13 BIT(1), /* RESERVED */ 38800001 * 5 DECRSV14 BIT(1), /* RESERVED */ 38850001 * 5 DECRSV15 BIT(1), /* RESERVED */ 38900001 * 5 DECRSV16 BIT(1), /* RESERVED */ 38950001 * 4 DECBRBA PTR(24), /* ADDRESS OF THE RB FOR 39300002 * THE PROGRAM AWAITING 39400002 * EVENT (BEFORE EVENT 39500002 * COMPLETION) OR RESERVED 39600001 * (AFTER EVENT COMPLETION) */ 39700001 * 2 DECBTYP1 CHAR(1), /* OPTION BYTE */ 39800001 * 3 DECRSV17 BIT(1), /* RESERVED */ 39900001 * 3 DECRSV18 BIT(1), /* RESERVED */ 39950001 * 3 DECRSV19 BIT(1), /* RESERVED */ 40000001 * 3 DECRSV20 BIT(1), /* RESERVED */ 40050001 * 3 DECRSV21 BIT(1), /* RESERVED */ 40100001 * 3 DECRSV22 BIT(1), /* RESERVED */ 40150001 * 3 DECBLNS BIT(1), /* LENGTH CODED AS 'S' */ 40500001 * 3 DECBARS BIT(1), /* AREA CODED AS 'S' */ 40600001 * 2 DECBTYP2 CHAR(1), /* TYPE OF I/O REQUEST */ 40700001 * 3 DECBRDK BIT(1), /* READ K */ 40800001 * 3 DECRSV23 BIT(1), /* RESERVED */ 40900001 * 3 DECBRDKU BIT(1), /* READ KU */ 41000001 * 3 DECRSV24 BIT(1), /* RESERVED */ 41100001 * 3 DECBWRK BIT(1), /* WRITE K */ 41200001 * 3 DECBWRKN BIT(1), /* WRITE KN */ 41300001 * 3 DECRSV25 BIT(1), /* RESERVED */ 41400001 * 3 DECRSV26 BIT(1), /* RESERVED */ 41450001 * 2 DECBLGTH FIXED(15), /* NUMBER OF BYTES READ OR 41600001 * WRITTEN */ 41700001 * 2 DECBDCBA PTR(31), /* ADDRESS OF THE DATA 41800002 * CONTROL BLOCK */ 41900002 * 2 DECBAREA PTR(31), /* ADDRESS OF THE AREA IN 42000002 * STORAGE FOR THE RECORD */ 42100002 * 2 DECBLOGR PTR(31), /* ADDRESS OF THE LOGICAL 42200002 * RECORD */ 42300001 * 2 DECBKEY PTR(31), /* ADDRESS OF THE KEY 42400002 * PORTION OF THE RECORD */ 42500002 * 2 DECBEXC1 CHAR(1), /* EXCEPTIONAL CONDITION 42600001 * CODE BYTE 1 */ 42700001 * 3 DECEXRNF BIT(1), /* RECORD NOT FOUND */ 42800001 * 3 DECEXRLC BIT(1), /* RECORD LENGTH CHECK */ 42900001 * 3 DECEXNSP BIT(1), /* SPACE NOT FOUND IN WHICH 43000001 * TO ADD A RECORD */ 43100001 * 3 DECEXINV BIT(1), /* INVALID REQUEST */ 43200001 * 3 DECEXERR BIT(1), /* UNCORRECTABLE I/O ERROR */ 43300001 * 3 DECEXUBK BIT(1), /* UNREACHABLE BLOCK */ 43400001 * 3 DECEXOFL BIT(1), /* OVERFLOW RECORD */ 43500001 * 3 DECEXDUP BIT(1), /* DUPLICATE RECORD 43600001 * PRESENTED FOR INCLUSION 43700001 * IN THE DATA SET */ 43800002 * 2 DECBEXC2 CHAR(1), /* EXCEPTIONAL CONDITION 43900001 * CODE BYTE 2 */ 44000001 * 3 DECRSV27 BIT(1), /* RESERVED */ 44100001 * 3 DECRSV28 BIT(1), /* RESERVED */ 44150001 * 3 DECRSV29 BIT(1), /* RESERVED */ 44200001 * 3 DECRSV30 BIT(1), /* RESERVED */ 44250001 * 3 DECRSV31 BIT(1), /* RESERVED */ 44300001 * 3 DECRSV32 BIT(1), /* RESERVED */ 44350001 * 3 DECEXASR BIT(1), /* EXECUTION OF THE LAST 44700002 * CHANNEL PROGRAM WAS 44800001 * INSTITUTED BY AN 44900001 * ASYNCHRONOUS ROUTINE */ 45000001 * 3 DECEXRKU BIT(1); /* PREVIOUS MACRO 45100001 * INSTRUCTION WAS READ KU */ 45200001 * 45300001 * 45400001 */* **************************************************************** */ 45500001 */* DATA EVENT CONTROL BLOCK FOR BDAM */ 45600001 */* **************************************************************** */ 45700001 * 45800001 *DECLARE 1 DECBS02 45900001 * BASED(DECBPT) BDY(WORD), 46000001 * 2 * CHAR(4) BDY(WORD), /* DECSDECB - EVENT CONTROL 46100001 * BLOCK */ 46150001 * 3 * CHAR(1), /* COMPLETION CODE BYTE 1 */ 46200001 * 3 DECCC2 CHAR(1), /* COMPLETION CODE BYTE 2 */ 46300001 * 4 DECCCRNF BIT(1), /* RECORD NOT FOUND */ 46400001 * 4 DECCCRLC BIT(1), /* RECORD LENGTH CHECK */ 46500001 * 4 DECCCNSP BIT(1), /* SPACE NOT FOUND */ 46600001 * 4 DECCCINV BIT(1), /* INVALID REQUEST. (THIS 46700002 * CONDITION ALSO SETS A BIT 46750002 * IN THE NEXT BYTE.) */ 46760002 * 4 DECCCERR BIT(1), /* UNCORRECTABLE I/O ERROR */ 46800001 * 4 DECCCEOD BIT(1), /* END OF DATA */ 46900001 * 4 DECCCUER BIT(1), /* UNCORRECTABLE ERROR OTHER 47000002 * THAN AN I/O ERROR */ 47100002 * 4 DECCCREX BIT(1), /* A WRITE WITH EXCLUSIVE 47200003 * CONTROL WAS NOT PRECEDED 47300001 * BY A READ WITH EXCLUSIVE 47400003 * CONTROL (MDC300) @Z30AQ9A*/ 47500003 * 3 DECCC3 CHAR(1), /* COMPLETION CODE BYTE 3 */ 47600001 * 4 DECRSV33 BIT(1), /* RESERVED */ 47700001 * 4 DECCCWRI BIT(1), /* A WRITE MACRO INSTRUCTION 47800001 * WAS ADDRESSED TO AN INPUT 48000001 * DATA SET */ 48100001 * 4 DECCCEXS BIT(1), /* AN EXTENDED SEARCH WAS 48200001 * SPECIFIED WITH DCBLIMCT 48300001 * FIELD SET TO ZERO */ 48400001 * 4 DECCCNBK BIT(1), /* THE BLOCK REQUESTED IS 48500002 * NOT WITHIN THE DATA SET */ 48600002 * 4 DECCCWDI BIT(1), /* A WRITE-BY-IDENTIFICATION 48700001 * (DI) ADDRESSED RECORD 48900001 * ZERO */ 49000001 * 4 DECCCSDK BIT(1), /* A SEARCH-ON-KEY (DK) WAS 49100001 * SPECIFIED WITH THE 49200002 * DCBKEYLE FIELD SET TO 49300002 * ZERO OR WITHOUT AN 49400002 * ADDRESS FOR THE KEY */ 49500002 * 4 DECCCOPT BIT(1), /* A MACRO INSTRUCTION USED 49600001 * AN OPTION NOT SET IN 49700001 * THE DCB */ 49800001 * 4 DECCCKFF BIT(1), /* THE KEY FOR THE FIXED- 49900001 * LENGTH RECORD TO BE 50000001 * ADDED BEGINS WITH X'FF' */ 50100002 * 3 DECRSV34 CHAR(1), /* RESERVED */ 50300001 * 2 * CHAR(2), /* DECTYPE - TYPE OF I/O 50400001 * REQUEST */ 50450001 * 3 * CHAR(1), /* DECTYPE1 - FIRST BYTE OF 50500001 * DECTYPE */ 50600001 * 4 DECVERFY BIT(1), /* VERIFY */ 50700001 * 4 DECOFLOW BIT(1), /* OVERFLOW */ 50800001 * 4 DECEXSRC BIT(1), /* EXTENDED SEARCH */ 50900001 * 4 DECFDBCK BIT(1), /* FEEDBACK */ 51000001 * 4 DECACTAD BIT(1), /* ACTUAL ADDRESSING */ 51100001 * 4 DECDYNBF BIT(1), /* DYNAMIC BUFFERING */ 51200001 * 4 DECRDEX BIT(1), /* READ EXCLUSIVE */ 51300001 * 4 DECRELBA BIT(1), /* RELATIVE BLOCK ADDRESSING*/ 51400001 * 3 * CHAR(1), /* DECTYPE2 - SECOND BYTE 51600001 * OF DECTYPE */ 51700001 * 4 DECKEYS BIT(1), /* S CODED FOR KEY ADDRESS */ 51800001 * 4 DECBKLNS BIT(1), /* S CODED FOR BLOCK LENGTH */ 51900001 * 4 DECTYPRU BIT(2), /* RU IS SUFFIXED TO THE 51950001 * TYPE, INDICATING THAT THE 52000001 * FEEDBACK ADDRESS POINTED 52050001 * TO BY DECNXADR CAN BE THE 52100002 * ADDRESS OF EITHER THE 52150002 * NEXT DATA RECORD OR THE 52200002 * NEXT CAPACITY RECORD, 52250002 * WHICHEVER OCCURS FIRST */ 52300001 * 5 DECTYPU BIT(1), /* OFF IF R IS SUFFIXED, 52400001 * ONE IF RU IS SUFFIXED */ 52450001 * 5 DECTYPR BIT(1), /* R IS SUFFIXED TO THE TYPE, 52500002 * INDICATING THAT THE 52600002 * FEEDBACK ADDRESS POINTED 52700002 * TO BY DECNXADR IS THE 52800002 * ADDRESS OF THE NEXT DATA 52900002 * RECORD (BIT 2 IS ZERO) */ 53000001 * 4 DECOPRD BIT(1), /* TYPE OF OPERATION - 0 IS 53100001 * WRITE, 1 IS READ */ 53200001 * 4 DECSRKEY BIT(1), /* TYPE OF SEARCH ARGUMENT 53300001 * - 0 IS ID, 1 IS KEY */ 53400002 * 4 DECWRADD BIT(1), /* ADD OPTION OF WRITE 53500001 * OPERATION */ 53600001 * 4 DECRSV35 BIT(1), /* RESERVED */ 53700001 * 2 * FIXED(15), /* DECLNGTH - LENGTH OF 53800001 * DATA */ 53900001 * 2 * PTR(31), /* DECDCBAD - ADDRESS OF 54000001 * DCB TO WHICH THIS I/O 54100001 * REQUEST IS RELATED */ 54200001 * 2 * PTR(31), /* DECAREA - ADDRESS OF THE 54300002 * DATA */ 54400001 * 2 * PTR(31), /* DECIOBPT - ADDRESS OF THE 54500002 * IOB */ 54600001 * 2 DECKYADR PTR(31), /* ADDRESS OF THE KEY */ 54700002 * 2 DECRECPT PTR(31), /* ADDRESS OF THE BLOCK 54800002 * REFERENCE FIELD */ 54900001 * 2 DECNA PTR(31), /* SAME AS DECNAA BELOW */ 55000001 * 3 DECRSV36 CHAR(1), /* RESERVED */ 55100001 * 3 DECNAA PTR(24); /* ADDRESS OF THE NEXT 55200002 * ADDRESS FEEDBACK FIELD. 55300002 * PRESENT ONLY IF R OR RU 55400002 * IS CODED IN READ MACRO. */ 55500002 * 55600001 * 55700001 */* **************************************************************** */ 55800001 */* DATA EVENT CONTROL BLOCK FOR QTAM */ 55900001 */* **************************************************************** */ 56000001 * 56100001 *DECLARE 1 DECBS03 56200001 * BASED(DECBPT) BDY(WORD), 56300001 * 2 LINEDECB CHAR(4) BDY(WORD), /* ALWAYS ZERO */ 56400001 * 2 DECRSV37 CHAR(1), /* RESERVED */ 56500001 * 2 DECOPCOD CHAR(1), /* OPERATION CODE FOR 56600001 * CURRENT SEGMENT */ 56700001 * 2 * FIXED(15), /* DECLNGTH - LENGTH OF 56800001 * INPUT AREA FOR INITIAL 56900001 * READ */ 57000001 * 2 * PTR(31), /* DECDCBAD - ADDRESS OF 57100001 * DCB */ 57200001 * 2 * PTR(31), /* DECAREA - STARTING 57300001 * ADDRESS FOR DATA IN A 57400001 * BUFFER */ 57500001 * 2 DECRSV38 CHAR(4) BDY(WORD), /* RESERVED */ 57600001 * 2 DECCPOL PTR(31), /* SAME AS DECCPOLA BELOW */ 57700001 * 3 DECNMMSG PTR(8), /* NUMBER OF MESSAGES 57800001 * RECEIVED */ 57900001 * 3 DECCPOLA PTR(24), /* ADDRESS OF CURRENTLY 58000001 * ACTIVE ENTRY IN POLLING 58100001 * LIST */ 58200001 * 2 DECRSV39 CHAR(1), /* RESERVED */ 58300001 * 2 DECUCBDX PTR(8), /* INDEX TO UCB ADDRESS IN 58400001 * DEB */ 58500001 * 2 DECRSV40 CHAR(2) BDY(WORD,3), /* RESERVED */ 58600001 * 2 DECRSV41 CHAR(4) BDY(WORD), /* RESERVED */ 58700001 * 2 DECADRCH PTR(31), /* ADDRESS OF ADDRESSING 58800001 * CHARACTERS IN TERMINAL 58900001 * ENTRY */ 59000001 * 2 * PTR(31), /* DECPOLPT - ADDRESS OF 59100001 * POLLING LIST */ 59150001 * 3 DECRSV42 CHAR(1), /* RESERVED */ 59200001 * 3 * PTR(24); /* DECPOLPA - ADDRESS OF 59300001 * POLLING LIST */ 59400001 * 59500001 * 59600001 */* **************************************************************** */ 59700001 */* DATA EVENT CONTROL BLOCK FOR BTAM */ 59800001 */* **************************************************************** */ 59900001 * 60000001 *DECLARE 1 DECBS04 60100001 * BASED(DECBPT) BDY(WORD), 60200001 * 2 * CHAR(4) BDY(WORD), /* DECSDECB - EVENT CONTROL 60300001 * BLOCK */ 60400001 * 2 * CHAR(2), /* DECTYPE - PROGRAMMING 60500001 * INDICATORS */ 60550001 * 3 * CHAR(1), /* DECTYPE1 - FIRST BYTE OF 60600001 * DECTYPE */ 60700001 * 4 DECRDAPL BIT(1), /* READ, USING AUTOPOLL */ 60800001 * 4 DECRSV43 BIT(1), /* RESERVED */ 60900001 * 4 DECRSV44 BIT(1), /* RESERVED */ 60950001 * 4 DECRSV45 BIT(1), /* RESERVED */ 61000001 * 4 DECRSV46 BIT(1), /* RESERVED */ 61050001 * 4 DECSTRME BIT(1), /* 'S' CODED FOR TERMINAL 61300001 * ENTRY */ 61400001 * 4 DECSAREA BIT(1), /* 'S' CODED FOR AREA */ 61500001 * 4 DECSLNTH BIT(1), /* 'S' CODED FOR LENGTH */ 61600001 * 3 * CHAR(1), /* DECTYPE2 - COMMAND 61700002 * CODE */ 61800001 * 2 * FIXED(15), /* DECLNGTH - LENGTH OF 61900001 * BUFFER OR MESSAGE AREA */ 62000001 * 2 * PTR(31), /* DECDCBAD - ADDRESS OF 62100001 * ASSOCIATED DCB */ 62150001 * 3 DECBUFCT PTR(8), /* CONTAINS A RUNNING COUNT 62400001 * OF BUFFERS OBTAINED BY 62500001 * BTAM FOR THE CURRENT READ 62600002 * OPERATION. (DYNAMIC 62700001 * BUFFERING ONLY.) USE 62800001 * DIFFERS DURING BSC AND 62900001 * 2760 ONLINE TEST. */ 63000002 * 4 DECONLTT CHAR(1), /* FLAG BYTE FOR BSC AND 63050001 * 2760 ONLINE TEST */ 63060001 * 5 DECONLTS BIT(1), /* IF ZERO, ONLINE TEST 63100001 * REQUESTED BY RFT MESSAGE 63200001 * (BSC). IF ONE, ONLINE 63300001 * TEST INITIATED BY ONLTST 63400001 * MACRO INSTRUCTION (BSC). */ 63600001 * 5 DECRCVMS BIT(1), /* IF ZERO, SENDING TEST 63700001 * MESSAGES (BSC). IF ONE, 63800001 * RECEIVING TEST MESSAGES 63900001 * (BSC) OR TYPE 11 ONLINE 64000001 * TEST FOR 2760 OPTICAL 64100001 * IMAGE UNIT. */ 64200001 * 5 DECRSV47 BIT(1), /* RESERVED */ 64300001 * 5 DECRSV48 BIT(1), /* RESERVED */ 64350001 * 5 DECRSV49 BIT(1), /* RESERVED */ 64400001 * 5 DECRSV50 BIT(1), /* RESERVED */ 64450001 * 5 DECRSV51 BIT(1), /* RESERVED */ 64500001 * 5 DECRSV52 BIT(1), /* RESERVED */ 64550001 * 3 DECDCBAA PTR(24), /* ADDRESS OF ASSOCIATED 64900001 * DCB */ 65000001 * 2 * PTR(31), /* DECAREA - ADDRESS OF 65100001 * BUFFER OR MESSAGE AREA */ 65200001 * 2 DECSENS0 CHAR(1), /* SENSE INFORMATION */ 65300001 * 2 DECSENS1 CHAR(1), /* RESERVED */ 65400001 * 2 DECCOUNT FIXED(15), /* RESIDUAL COUNT FROM CSW 65500001 * FOR LAST CCW EXECUTED */ 65600001 * 2 DECENTRY PTR(31), /* ADDRESS OF THE TERMINAL 65700002 * LIST */ 65750002 * 3 DECCMCOD CHAR(1), /* COMMAND FOR WHICH THE 65800002 * ERROR OCCURRED */ 65900002 * 3 DECENTRA PTR(24), /* ADDRESS OF THE TERMINAL 66000002 * LIST */ 66050002 * 2 DECFLAGS CHAR(1), /* OPERATION STATUS */ 66100001 * 3 DECWACK BIT(2), /* WACK WAS RECEIVED (BSC) */ 66150001 * 4 DECERRMS BIT(1), /* ERROR STATUS MESSAGE WAS 66200001 * RECEIVED (BSC). BIT 1 IS 66300002 * OFF. */ 66400001 * 4 DECDIFAC BIT(1), /* ACKNOWLEDGMENT OTHER 66500001 * THAN ACK-0 OR ACK-1 66600001 * RECEIVED (BSC) */ 66700001 * 3 DECALTAC BIT(1), /* ACKNOWLEDGMENT 66800001 * ALTERNATION INCORRECT */ 66900001 * 3 DECBADID BIT(1), /* FOR TWX 33/35 STATION 67000001 * AND BSC STATION, 67100001 * INCORRECT ID RECEIVED. 67200001 * FOR AUTOPOLL, INDEX 67300001 * BYTE RECEIVED DOES NOT 67400001 * MATCH AN ACTIVE ONE. 67500001 * FOR BSC NONSWITCHED 67600001 * POINT-TO-POINT LINE, 67700001 * CONTENTION OCCURRED. FOR 67800001 * WTTA, CONTENTION 67900001 * OCCURRED OR INCORRECT 68000001 * ID RECEIVED. */ 68100001 * 3 DECNOBUF BIT(1), /* FOR READ, DYNAMIC 68200001 * BUFFERING, NO BUFFER 68300001 * WAS AVAILABLE. (MESSAGE 68400001 * LOST) */ 68500001 * 3 DECNEGRP BIT(1), /* FOR OPENLST, POLLING, 68600001 * NEGATIVE RESPONSE TO 68700001 * POLLING RECEIVED. FOR 68800001 * WRAPLST, ALL ENTRIES 68900001 * ARE INACTIVE. FOR 69000001 * ADDRESSING, NEGATIVE 69100001 * RESPONSE TO ADDRESSING 69200001 * RECEIVED. FOR WTTA, LAST 69300001 * MESSAGE RECEIVED ENDED 69400001 * WITH EOT OR TIME-OUT. 69500001 * FOR 2741, POWER IS OFF 69600001 * OR OTHER INTERVENTION 69700001 * REQUIRED CONDITION 69800001 * EXISTS. */ 69900001 * 3 DECREVRS BIT(1), /* FOR WTTA, MESSAGE ENDED 70000001 * WITH WRU SIGNAL. FOR 70100001 * BSC STATIONS, REVERSE 70200001 * INTERRUPT (RVI) SEQUENCE 70300001 * WAS RECEIVED (SEE ALSO 70400001 * BIT 1). FOR 2741, WRITE 70500001 * OPERATION WAS ENDED BY 70600001 * TERMINAL INTERRUPT. */ 70700001 * 4 DECSSMSG BIT(1), /* A 3270 REMOTE SENSE/STATUS 70750001 * MESSAGE WAS RECEIVED IF 70760001 * THIS BIT IS ONE AND BIT 1 70770001 * IS ZERO ICB479*/ 70780001 * 3 DECSTXNQ BIT(1), /* FOR WTTA, CONTENTION 70800001 * CONDITION WAS 70900001 * ENCOUNTERED. FOR BSC 71000001 * STATIONS, STX ENQ 71100001 * SEQUENCE WAS RECEIVED. */ 71200001 * 2 DECRLN PTR(8), /* RELATIVE LINE NUMBER */ 71300001 * 2 DECRESPN CHAR(2), /* FOR BSC OPERATIONS, 71400001 * RESPONSE FROM A 71500001 * TERMINAL TO ADDRESSING. 71600001 * FOR STOP-START 71700001 * OPERATIONS, BYTE 1 IS 71800001 * RESPONSE FROM A 71900001 * TERMINAL TO ADDRESSING 72000001 * AND BYTE 2 IS VERTICAL 72100001 * REDUNDANCY CHARACTER AND 72200001 * LONGITUDINAL REDUNDANCY 72300001 * CHARACTER (VRC/LRC) 72400001 * RESPONSE. */ 72500001 * 2 DECTPCOD CHAR(1), /* TP OPERATION CODE */ 72600001 * 2 DECERRST CHAR(1), /* I/O ERROR STATUS FLAGS */ 72700001 * 3 DECSIO3 BIT(1), /* SIO RESULTED IN A 72800001 * CONDITION CODE OF 3 */ 72900001 * 3 DECUNDEF BIT(1), /* UNDEFINED ERROR 73000001 * CONDITION */ 73100001 * 3 DECERPER BIT(1), /* AN ERROR CONDITION 73200001 * OCCURRED DURING AN I/O 73300001 * OPERATION INITIATED BY 73400001 * ERROR RECOVERY ROUTINES */ 73500002 * 3 DECDIAGN BIT(1), /* DIAGNOSTIC WRITE/READ 73600001 * OPERATION ENDED BECAUSE 73700001 * OF ERROR (2701 ONLY) */ 73800001 * 3 DECDSABL BIT(1), /* DISABLE COMMAND ISSUED 73900001 * TO SWITCHED LINE BY 74000001 * ERROR RECOVERY ROUTINE 74100001 * BECAUSE OF PERMANENT 74200001 * ERROR ON THAT LINE */ 74300001 * 3 DECRSV53 BIT(1), /* RESERVED */ 74400001 * 3 DECRSV54 BIT(1), /* RESERVED */ 74450001 * 3 DECRSV55 BIT(1), /* RESERVED */ 74500001 * 2 DECCSWST CHAR(2), /* STATUS BITS FROM CSW FOR 74700001 * LAST CCW EXECUTED */ 74800001 * 2 DECADRPT PTR(31), /* ADDRESS OF ADDRESSING 74900001 * LIST ENTRY USED IN 75000001 * PREVIOUS OPERATION */ 75100001 * 2 DECPOLPT PTR(31), /* SAME AS DECPOLPA BELOW */ 75200001 * 3 DECNDXPL PTR(8), /* FOR AUTOPOLL, INDEX TO 75300001 * CURRENT ENTRY IN 75400001 * POLLING LIST */ 75500001 * 3 DECPOLPA PTR(24), /* FOR PROGRAMMED POLLING, 75600001 * ADDRESS OF THE CURRENT 75700002 * ENTRY IN THE POLLING 75800002 * LIST. FOR AUTOPOLL, 75900002 * ADDRESS OF POLLING LIST. 76000002 * FOR BSC ON-LINE TEST, 76100002 * ADDRESS OF TEXT DATA. */ 76200001 * 76300001 */* BSC EXTENSION */ 76400001 */* FIELDS ARE PRESENT ONLY IF A SUBLIST IS CODED FOR THE */ 76500001 */* AREA AND LENGTH OPERANDS OF THE READ OR WRITE MACRO */ 76600001 */* INSTRUCTION THAT DEFINES THE DECB. */ 76700001 * 76800001 * 2 DECRSV56 CHAR(2), /* RESERVED */ 76900001 * 2 DECWLNG FIXED(15), /* LENGTH, IN BYTES, OF 77000001 * THE DATA AREA IN 77100002 * LEADING-GRAPHICS AND 77200001 * CONVERSATIONAL TYPE 77300001 * OPERATIONS OR OF THE AREA 77400002 * CONTAINING THE TONE 77500002 * CHARACTERS IN READ 77600001 * CONNECT WITH TONE (TCW) 77700001 * OPERATIONS */ 77800001 * 2 DECWAREA PTR(31); /* ADDRESS OF THE DATA AREA 77900002 * IN LEADING-GRAPHICS AND 78000002 * CONVERSATIONAL 78100001 * OPERATIONS, OR OF THE 78200002 * AREA CONTAINING THE TONE 78300002 * CHARACTERS IN READ TCW 78400001 * OPERATIONS */ 78500001