* %GOTO BSLQCB; /* 00200022 MACRO 00500020 TQCBD 01000020 .*A-000000-999999 @X31X8X0 01200008 .* UPDATED 6/7/74 @Z30X8XE 01500008 .* CONVERTED TO A BILINGUAL DSECT 07/19/72 S22024 01700022 .* CHANGE ACTIVITY = AS FOLLOWS: 02000122 .*D015000,825000 SA51078 02000222 .*C820000,905000 SA51078 02000322 .*A024500 SA51078 02000422 .*A087000,125000 S22029 02020022 .*C015000 S22029 02040022 .*D230000 S22025 02060022 .*C015000 S22025 02120022 .*A020000,6950000 02200021 .*D110000-125000 S22026 02300022 .*A087000,110000-125000,337000,382000-384000,497000 S22026 02400022 .*A000000,055000,445000,936000 S22024 02405022 .*C935000,020000 S22024 02410022 .*D265000-270000 S22024 02415022 .*A230000 Y06327 02416005 .*C946800 Y06327 02417005 .*C015000 @Z30X8XE 02417108 .*C960000,965800 @XA11316 02417200 .*A145000,941800 @OX17153 02417500 .*A024350,1900000,944400,960000 @Y17XAXF 02417900 .*D024550 @Y17XAXF 02418600 .*C024600-024846,024900-024930,979200-981800 @Y17XAXF 02419300 .*A175000 02419600 .*A305000,949800 @OY20733 02419782 * S22024 02420022 * S22024 02430022 IEDNQCB DSECT S22024 02435022 QCBCHAIN DS AL4 . ADDR TO CHAIN OF QCB' @Y17XAXF 02436000 * WAITING FOR PLCB @Y17XAXF 02437000 * ALLOCATION @Y17XAXF 02438000 QCBSTAT1 DS XL1 . FLAG BYTE S22024 02440022 QCBPLCBN EQU X'80' . ON - FIELD CONTAINS PLCB ADDR 02445022 * OFF - CONTAINS TTCIN S22024 02450122 QCBWAITC EQU X'40' . FIELD CONTAINS WAIT @Y17XAXF 02460000 * CHAIN ADDR @Y17XAXF 02461000 QCBSNDRQ EQU X'20' . A PLCB HAS BEEN REQ @Y17XAXF 02462000 * HAVING THE SEND & @Y17XAXF 02463000 * RECV STCB'S IN ITS @Y17XAXF 02464000 * STCB CHAIN @Y17XAXF 02465000 QCBRCVRQ EQU X'10' . A PLCB HAS BEEN REQ @Y17XAXF 02466000 * HAVING THE RECV STCB @Y17XAXF 02467000 * IN ITS STCB CHAIN @Y17XAXF 02468000 QCBESIG EQU X'08' . ESIG IS NEEDED @Y17XAXF 02469000 QCBNDXRQ EQU X'04' . INDEXED PLCB REQUEST @Y17XAXF 02470000 QCBFLUSH EQU X'02' . QUEUE FLUSH IN PROGRESS 02471000 * @Y17XAXF 02471500 * EQU X'01' . RESERVED @Y17XAXF 02472000 * @Y17XAXF 02473000 * QCBSTAT1 MUST ALWAYS PRECEDE QCBPLCBA @Y17XAXF 02474000 * @Y17XAXF 02475000 QCBPLCBA DS 0AL3 . ADDR OF PLCB S22024 02485022 DS XL1 . @Y17XAXF 02490000 QCBTTCIN DS H . TNT INDEX S22024 02495022 * 02500020 * 03000020 * THIS IS A DSECT OF THE MASTER QCB FOLLOWED BY THE PRIORITY 03500020 * QCB. THERE IS A MASTER QCB FOR EVERY MESSAGE QUEUE. THERE 04000020 * IS A PRIORITY QCB FOR EACH PRIORITY LEVEL APPLICABLE FOR 04500020 * THIS DESTINATION QUEUE. 05000020 SPACE 05500020 IEDQQCB EQU * S22024 05700022 QCBDSFLG DS XL1 . FLAGS INDICATING A QCB FOR 06000020 * DISPATCHER AND WHICH DATA 06500020 * SET(S) THE MESSAGES FOR 07000020 * THIS DEST. ARE QUEUED ON 07500020 * BIT DEFINITIONS 08000020 QCBHELD EQU X'01' . STOP SENDING 08200020 QCBFQCB EQU X'02' . FLAG INDICATING A QCB 08500020 QCBDRQQ EQU X'04' . FLAG INDIC A DRQ S22026 08700022 QCBALTMH EQU X'08' . MSGS GO TO ALTERNATE MH S22029 08800022 QCBREUS EQU X'10' . FLAG FOR REUSEABLE DISK Q. 09000020 QCBNREUS EQU X'20' . FLAG FOR NONREUS. DISK Q. 09500020 QCBDISK EQU X'30' . DISK QUEUES USED 10000020 QCBCORE EQU X'40' . FLAG FOR MS QUEUES. 10500020 * X'50' INDICATES CORE Q'S WITH 11000022 * BACKUP ON REUSABLE DISK 11500022 * X'60' INDICATES CORE Q'S WITH 12000022 * BACKUP ON NONREUS DISK 12500022 QCBTSQ EQU X'80' . TIME-SHARING QUEUES S22029 12700022 * 13000020 QCBELCHN DS AL3 . ELEMENT CHAIN 13500020 * CONTAINS THE QCB ADDRESS TO BE POSTED TO WHEN THIS 14000020 * QCB IS REMOVED FROM THE TIME DELAY QUEUE. 14500020 * BIT DEFINITIONS 14550000 QCBCNTEN EQU X'01' . WACK TO ADDRESSING @OX17153 14600000 QCBPRI DS XL1 . PRIORITY 15000020 QCBLINK DS AL3 . POINTER TO NEXT STCB IN CHAIN 15500020 QCBSTVTO DS AL1 . INDEX TO THE ENTRY IN THE 16000020 * SUBTASK VECTOR TABLE 16500020 QCBSTCHN DS AL3 . STCB CHAIN 17000020 QCBSTPRI DS XL1 . PRIORITY OF THE STCB 17500020 QCBCALLN EQU X'50' . DIALNO=NONE CALL IN @Y17XAXF 17600000 * ONLY @Y17XAXF 17601000 QCBCNTVL EQU X'70' . CINTVL INDICATOR @Y17XAXF 17602000 QCBCLK EQU X'80' . CLOCK INDICATOR @Y17XAXF 17603000 QCBSLINK DS AL3 . POINTER TO NEXT STCB IN CHAIN 18000020 QCBEOLDT DS 0XL2 . INTERRUPT TIME @Y17XAXF 18500000 DS XL1 . RESERVED 18600000 QCBBYTE1 DS XL1 . QCB FLAGS 18700000 QCBRITRM EQU X'80' . REC IN TRANSIT MODE 18800000 * EQU X'40'-X'01' . RESERVED @Y17XAXF 18900000 QCBRETCT DS 0XL1 . TSO RETRY COUNTERS TSO 19000020 * QCBLOGCT BITS 0-1 TSO RETRY COUNTER @Y17XAXF 19040000 QCBLOG2 EQU X'80' . RETRY COUNTER 2 @Y17XAXF 19080000 QCBLOG1 EQU X'40' . RETRY COUNTER 1 @Y17XAXF 19120000 QCBNL EQU X'30' . TSO NEW LINE REQ @Y17XAXF 19160000 QCBCR EQU X'20' . TSO CARRIAGE RETURN REQ@Y17XAXF 19200000 QCBLF EQU X'10' . TSO LINE FEED REQ @Y17XAXF 19240000 QCBEND EQU X'08' . EDIT SPEC OUTPUT REQ @Y17XAXF 19280000 QCBIEND EQU X'04' . EDIT SPEC OUTPUT REQ OR@Y17XAXF 19320000 * OR 3270 FORMAT @Y17XAXF 19360000 *QCBHUCT EQU X'02'-X'01' TSO HANGUP COUNTS @Y17XAXF 19400000 QCBHUCT1 EQU X'01' . * @Y17XAXF 19410000 QCBHUCT2 EQU X'F2' . * @Y17XAXF 19420000 QCBHUCT3 EQU X'03' . * @Y17XAXF 19440000 QCBLKRLN DS XL1 . LOCK RELATIVE LINE NO. 19500020 * OFFSET TO QCB FOR TIME DELAY - FOR QCB = X'00' 20000020 QCBSTAT DS XL1 . STATUS OF THIS QCB 20500020 * BIT DEFINITIONS 21000020 QCBEOM EQU X'80' . END OF MESSAGE SENT 21500020 QCBTRMHO EQU X'40' . TERMINAL WAS HELD 21700022 QCBBUFRD EQU X'20' . BUFFERED TERMINAL 22000020 QCBSEND EQU X'10' . SENDING TO BUFFERED TERMINAL 22500020 QCBSMODE EQU X'08' SET MODE REQ FOR TSO TRM Y06327 23000005 QCBSCHDL EQU X'04' . PUT IN DELAY Q WHEN INACTIVE 23500020 QCBCLOCK EQU X'02' . ON = CLOCK, OFF = INTVL 24000020 QCBTIME EQU X'01' . DELAY GREATER THAN 12 HOURS 24500020 * 25000020 QCBSCBOF DS XL1 . OFFSET TO THE PROPER SCB 25500020 * FOR THIS TRANSMISSION. 26000020 QCBINSRC DS 0AL3 . CHAIN OF SOURCE LCB'S 27500020 * CURRENTLY SENDING INITIATE 28000020 * MODE MSGS TO THIS DEST. Q. 28500020 QCBSATCT DS XL1 . SIM ATTN OUTPUT LINE COUNT TSO 29000020 QCBTSOF2 DS XL1 . SECOND TSO FLAG BYTE TSO 29500020 * BIT DEFINITIONS TSO 30000020 QCBINHBN EQU X'80' . USE INHIBITS WITH THIS TERM TSO 30500020 QCBMTP EQU X'80' MID TPUT FOR 3270 @OY20733 30550082 QCBBUFQ EQU X'40' . TCAM BUFFER BEING HELD TSO 31000020 QCBPOSTO EQU X'20' . QCB POSTED TO ITSELF TSO 31500020 QCBDSSMI EQU X'10' . START MI CHARACTER SENT TSO 31700022 QCBSIMRD EQU X'08' . SIMATTN READ EXECUTING TSO 32100020 QCBSATCH EQU X'04' . SIMULATED ATTN BY CHARACTER TSO 32500020 QCBSATTI EQU X'02' . SIMULATED ATTN BY TIME TSO 33000020 QCBSATLC EQU X'01' . SIMULATED ATTN BY LINE TSO 33500020 * 33700022 QCBTSOF1 DS XL1 . FIRST TSO FLAG BYTE TSO 34000020 * BIT DEFINITIONS TSO 34500020 QCBWRBRK EQU X'80' . ISSUE A WRITE BREAK TSO 35000020 QCBTGET EQU X'40' . TGET REQUEST TSO 35500020 QCBTPUT EQU X'20' . TPUT REQUEST TSO 36000020 QCBNOBUF EQU X'10' . INSUFFICIENT BUFFERS TSO 36500020 QCBSATRD EQU X'08' . SIMULATED ATTN READ REQUEST TSO 37000020 QCBPARTO EQU X'04' . PARTIAL OUTPUT LINE TSO 37500020 QCBDELAY EQU X'02' . QCB IN DELAY QUEUE 38000020 QCBDISC EQU X'01' . USER TO BE LOGGED OFF TSO 38200022 * 38300022 QCBEXTO DS 0H . OFFSET TO EXT S22026 38400022 QCBINTVL DS XL2 . INTERVAL FOR POLL DELAY 38500020 QCBMSGCT DS H . COUNT OF MESSAGES IN THIS 39000020 * QUEUE 39500020 QCBPREN DS 0A . ADDRESS OF TERMINAL TABLE 40000020 * ENTRY IF QCB FOR A PROCESS 40500020 * ENTRY 41000020 QCBPRLVL DS XL1 . HIGHEST PRIORITY LEVEL MESSAGE 41500020 QCBLKRRN DS 0XL3 . LOCK RELATIVE RECORD NUM. 42000020 * LINK FIELD FOR QCB WHEN ON THE TIME DELAY QUEUE 42500020 QCBCARCT DS XL1 . CARRIAGE POSITION COUNT TSO 43000020 QCBTJID DS H . TSO JOB IDENTIFICATION TSO 43500020 QCBRELLN DS XL1 . RELATIVE LINE NO. FOR THE 44000020 * LINE THIS QCB REPRESENTS 44500020 QCBLGBAD DS 0AL3 . ADDRESS OF LGB S22024 44700022 QCBDCBAD DS AL3 . ADDRESS OF DCB 45000020 QCBFLAG DS XL1 . QCB STATUS BITS 45500020 * BIT DEFINITIONS 46000020 QCBTSSES EQU X'80' . TSO SESSION IN PROGRESS TSO 46500020 QCBNOBRK EQU X'40' . NO REVERSE BREAK FEATURE TSO 47000020 QCBREAD EQU X'20' . READ HAS PRIORITY TSO 47500020 QCBRSRV EQU X'10' . REUSE SERVICED BIT 48000020 QCBTERMQ EQU X'08' . QUEUING BY TERMINAL 48200022 QCBSDFFO EQU X'04' . CURRENTLY SENDING FEFO MSG 48500020 QCBPROC EQU X'02' . THIS QCB FOR A PROCESS ENTRY 49000020 QCBCKPT EQU X'01' . FLAG FOR CHECKPOINT 49500020 * 49700022 QCBQBACK DS AL3 . QBACK MESSAGE CHAIN 50000020 SPACE 2 50500020 * DEC HEX 51000020 * ********************************* 51500020 * 0 * DSFLG * ELCHN * 52000020 * ********************************* 52500020 * 4 * PRI * LINK * 4 53000020 * ********************************* 53500020 * 8 * VTO * STCHN * 8 54000020 * ********************************* ************** 54500020 * 12 * STPRI * SLINK * C * * 55000020 * ********************************* * MASTER QCB * 55500020 * 16 * EOLDT * LKRLN * STAT * 10 * 56000020 * ********************************* ************** 56500020 * 20 * SCBOF * INSRC * 14 57000020 * ********************************* 57500020 * 24 * INTVL * MSGCT * 18 58000020 * ********************************* 58500020 * 28 * PRILVL* PREN/LKRRN * 1C 59000020 * ********************************* 59500020 * 32 * RELLN * DCBAD/LGBAD * 20 S22024 60000022 * ********************************* 60500020 * 36 * FLAG * QBACK * 24 61000020 * ********************************* 61500020 SPACE 62000020 * 62500020 QCBMEND EQU * . 63000020 QCBMSIZE EQU QCBMEND-IEDQQCB . SIZE OF MASTER QCB 63500020 QCBPRFSZ EQU IEDQQCB-IEDNQCB SIZE OF 3705 PREFIX Y06327 63700005 * 64000020 SPACE 2 64500020 * 65000020 * THIS IS THE DSECT OF A PRIORITY QCB. THERE IS A PRIORITY 65500020 * QCB FOR EACH PRIORITY LEVEL APPLICABLE FOR THIS DEST. Q 66000020 * 66500020 IEDQPQCB EQU * . START OF PRI LEVEL QCB 67000020 QCBDNHDR DS XL3 . DISK RECORE NUMBER TO PUT 67500020 * THE NEXT HDR RECEIVED 68000020 QCBFHDLZ DS 0XL3 . DISK RECORD SA52971 68500022 QCBDATFL DS X . DATFLAGS FIELD OF LAST S21101 69600021 * MSG REMOVED FROM FEFO Q S21101 69650021 QCBPFEFO DS 0XL3 . IF TERM OF QUEUE HELD, SA52971 69700022 * PREVIOUS TO FIRST SA52971 69710022 * HELD MESSAGE SA52971 69720022 * IF TERM NOT HELD, SA52971 69730022 * PREVIOUS TO LAST SA52971 69740022 DS XL2 MESSAGE SERVICED SA52971 69750022 QCBFHDTZ DS 0XL3 . DISK RECORD SA52971 69760022 DS XL1 . PFEFO CONTINUED SA52971 69770022 QCBDATSQ DS XL2 . SEQUENC NUMBER OF LAST S21101 69800021 * MSG REMOVED FROM FEFO Q S21101 69850021 QCBINTFF DS XL3 . DISK REC.NO. OF THE FIRST 72000020 * INTERCEPTED MSG. - FEFO 72500020 * ORDER 73000020 QCBINTLF DS 0XL3 . LAST INTERCEPTED MSG SA52971 73500022 QCBPREVF DS XL3 . PREVIOUS TO LAST FFEFO SA52971 74000022 QCBFFEFO DS XL3 . DISK REC. NO. OF THE FIRST 74500020 * (FEFO) MSG. TO BE RECVD. 75000020 * CORE RECORD NO. IF THIS 75500020 * IS A CORE ONLY QUEUE. 76000020 QCBLFEFO DS XL3 . DISK RECORD NO. OF THE 76500020 * LAST FEFO MSG. RECEIVED. 77000020 * CORE REC. NO. IF THIS IS 77500020 * A CORE ONLY QUEUE. 78000020 QCBCFHDR DS XL3 . CORE REC. NO. OF THE FIRST 78500020 * HEADER APPEARING IN THIS 79000020 * QUEUE. 79500020 QCBPRIPQ DS XL1 . THE PRIORITY OF THIS PRITY 80000020 * LEVEL QCB. THIS WILL BE 80500020 * X'00' IF THIS IS THE 81000020 * LOWEST PRTY LEVEL. 81500020 QCBPQBCK DS XL3 . PQCB BACK CHAIN SA51078 82000022 SPACE 2 83000020 * DEC HEX 83500020 * ********************************* 84000020 * 0 * DNHDR * DATFL * 0 SA52971 84500022 * ********************************* 85000020 * 4 * PFEFO * DATSQ * 4 SA52971 85500022 * ********************************* **************** 86000020 * 8 *(DATSQ)* INTFF * 8 * SA52971 86500022 * ********************************* * PRIORITY QCB * 87000020 * 12 * PREVF * FFEFO * C * SA52971 87500022 * ********************************* **************** 88000020 * 16 * (FFEFO) * LFEFO * 10 88500020 * ********************************* 89000020 * 20 *(LFEFO)* CFHDR * 14 89500020 * ********************************* 90000020 * 24 * PRIPQ * PQBCK * 18 SA51078 90500022 * ********************************* 91000020 * 91500020 QCBPEND EQU * 92000020 QCBPSIZE EQU QCBPEND-IEDQPQCB 92500020 QCBLDCB EQU IEDQQCB+X'78' LOGTYPE DCB ADDR @XM05707 92700000 * 93000020 MEND , */ 93500022 *%BSLQCB : ; 93520022 *DECLARE 93540022 * 1 IEDQQCB BASED(IEDQQPTR) BDY(WORD), /* START OF THE MASTER QCB 93560022 * S22024*/ 93580022 */* */ 93600022 */* */ 93620022 */* THIS IS A DSECT OF THE MASTER QCB FOLLOWED BY THE PRIORITY */ 93640022 */* QCB. THERE IS A MASTER QCB FOR EVERY MESSAGE QUEUE. THERE */ 93660022 */* IS A PRIORITY QCB FOR EACH PRIORITY LEVEL APPLICABLE FOR */ 93680022 */* THIS DESTINATION QUEUE. */ 93700022 * 93720022 * 2 QCBDSFLG CHAR(1), /* FLAGS INDICATING A QCB FOR 93740022 * THE DISPATCHER AND WHICH DATA 93760022 * SET(S) THE MESSAGES FOR THIS 93780022 * DEST. ARE QUEUED ON */ 93800022 * 3 QCBTSQ BIT(1), /* TIME-SHARING QUEUES S22029*/ 93820022 * 3 QCBCORE BIT(1), /* FLAG FOR MS QUEUES */ 93840022 * 3 QCBDISK BIT(2), /* DISK QUEUES USED */ 93860022 * 4 QCBNREUS BIT(1), /* NON-REUSABLE DISK QUEUE */ 93880022 * 4 QCBREUS BIT(1), /* REUSABLE DISK QUEUE */ 93900022 * 3 QCBALTMH BIT(1), /* MSGS GO TO ALTER MH S22029*/ 93920022 * 3 QCBDRQQ BIT(1), /* FLAG INDIC A DRQ S22026*/ 93940022 * 3 QCBFQCB BIT(1), /* INDICATES A QCB */ 93960022 * 3 QCBHELD BIT(1), /* STOP SENDING 93980022 * X'60' INDICATES CORE Q'S WITH 94000022 * BACK UP ON NONR. DSK 94020022 * X'50' INDICATES CORE Q'S WITH 94040022 * BACKUP ON REUS. DISK */ 94060022 */* */ 94080022 * 2 QCBELCHN PTR(24) BDY(BYTE), /* ELEMENT CHAIN 94100022 * CONTAINS THE QCB ADDRESS 94120022 * TO BE POSTED TO WHEN THIS 94140022 * QCB IS REMOVED FROM THE 94160022 * TIME DELAY QUEUE */ 94180022 * 3 * CHAR(2), /* @OX17153*/ 94185000 * 3 * BIT(7), /* @OX17153*/ 94190000 * 3 QCBCNTEN BIT(1), /* WACK TO ADDRESSING@OX17153*/ 94195000 * 2 QCBPRI CHAR(1), /* PRIORITY */ 94200022 * 2 QCBLINK PTR(24) BDY(BYTE), /* POINTER TO NEXT STCB IN 94220022 * CHAIN */ 94240022 * 2 QCBSTVTO PTR(8), /* INDEX TO THE ENTRY IN THE 94260022 * SUBTASK VECTOR TABLE */ 94280022 * 2 QCBSTCHN PTR(24) BDY(BYTE), /* STCB CHAIN */ 94300022 * 2 QCBSTPRI CHAR(1), /* PRIORITY OF THE STCB */ 94320022 * 2 QCBSLINK PTR(24) BDY(BYTE), /* POINTER TO THE NEXT STCB 94340022 * IN CHAIN */ 94360022 * 2 QCBEOLDT FIXED(16) BDY(BYTE), /* INTERRUPT TIME @VS44899*/ 94380000 * 3 * CHAR(1), /* RESERVED @Y17XAXF*/ 94388000 * 3 QCBBYTE1 CHAR(1), /* QCB FLAGS @Y17XAXF*/ 94396000 * 4 QCBRITRM BIT(1), /* REC IN TRANS @Y17XAXF*/ 94404000 * /* MODE @Y17XAXF*/ 94408000 * 4 * BIT(7), /* RESERVED @Y17XAXF*/ 94412000 * 2 QCBLKRLN CHAR(1), /*LOCK RELATIVE LINE NUMBER */ 94420008 * 3 QCBRETCT CHAR(1), /* TSO RETRY COUNTERS TSO */ 94440008 * 4 QCBLOGCT BIT(2), /* TSO RETRY COUNTER @Y17XAXF*/ 94450000 * 4 QCBNL BIT(2), /* TSO NLINE REQUEST @Y17XAXF*/ 94460000 * 4 QCBEND BIT(1), /* EDT SPEC OUTPUT @Y17XAXF*/ 94470000 * /* REQUIRED @Y17XAXF*/ 94475000 * 4 QCBIEND BIT(1), /* EDT SPEC OUTPUT @Y17XAXF*/ 94480000 * /* REQ OR 3270 @Y17XAXF*/ 94486000 * /* FORMAT @Y17XAXF*/ 94492000 * 4 QCBHUCT BIT(2), /* TSO HANGUP COUNTS @Y17XAXF*/ 94500000 * 2 QCBSTAT CHAR(1), /* STATUS OF THE QCB */ 94560022 * 3 QCBEOM BIT(1), /* END OF MESSAGE SENT */ 94580022 * 3 QCBTRMHO BIT(1), /* TERMINAL WAS HELD */ 94600022 * 3 QCBBUFRD BIT(1), /* BUFFERED TERMINAL */ 94620022 * 3 QCBSEND BIT(1), /* SENDING TO BUFFER 94640022 * TERMINAL */ 94660022 * 3 QCBSMODE BIT(1), /* TSO SET MODE REQ Y06327*/ 94680005 * 3 QCBSCHDL BIT(1), /* PUT IN DELAY Q WHEN 94700022 * INACTIVE */ 94720022 * 3 QCBCLOCK BIT(1), /* ON = CLOCK, OFF = INTVL */ 94740022 * 3 QCBTIME BIT(1), /* DELAY GREATER THAN 12 94760022 * HOURS */ 94780022 * 2 QCBSCBOF PTR(8), /* OFFSET TO THE PROPER SCB 94800022 * FOR THIS TRANSMISSION. */ 94820022 * 2 QCBINSRC PTR(24) BDY(BYTE), /* CHAIN OF SOURCE LCB'S 94840022 * CURRENTLY SENDING INITIATE 94860022 * MODE MSGS TO THIS DEST. Q. */ 94880022 * 3 * PTR(24) BDY(BYTE), 94900022 * 4 QCBSATCT PTR(8), /* SIM ATTN OUTPUT LINE CNT */ 94920022 * 4 QCBTSOF2 CHAR(1), /* SECOND TSO FLAG BYTE TSO*/ 94940022 * 5 QCBINHBN BIT(1), /* USE INHIBITS WITH THIS 94960022 * TERM TSO*/ 94980022 * 6 QCBMTP BIT(1), /* 3270 MID TPUT @OY20733*/ 94990082 * 5 QCBBUFQ BIT(1), /* TCAM BUFFER BEING HELD TSO*/ 95000022 * 5 QCBPOSTO BIT(1), /* QCB POSTED TO ITSELF TSO*/ 95020022 * 5 QCBDSSMI BIT(1), /* START MI CHARACTER SENT 95040022 * TSO*/ 95060022 * 5 QCBSIMRD BIT(1), /* SIMATTN READ EXECUTING TSO*/ 95080022 * 5 QCBSATCH BIT(1), /* SIMULATED ATTN BY 95100022 * CHARACTER TSO*/ 95120022 * 5 QCBSATTI BIT(1), /* SIMULATED ATTN BY TIME TSO*/ 95140022 * 5 QCBSATLC BIT(1), /* SIMULATED ATTN BY LINE TSO*/ 95160022 * 4 QCBTSOF1 CHAR(1), /* FIRST TSO FLAG BYTE TSO*/ 95180022 * 5 QCBWRBRK BIT(1), /* ISSUE A WRITE BREAK TSO*/ 95200022 * 5 QCBTGET BIT(1), /* TGET REQUEST TSO*/ 95220022 * 5 QCBTPUT BIT(1), /* TPUT REQUEST TSO*/ 95240022 * 5 QCBNOBUF BIT(1), /* INSUFFICIENT BUFFERS TSO*/ 95260022 * 5 QCBSATRD BIT(1), /* SIMULATED ATTENTION READ 95280022 * REQUEST TSO*/ 95300022 * 5 QCBPARTO BIT(1), /* PARTIAL OUTPUT LINE TSO*/ 95320022 * 5 QCBDELAY BIT(1), /* QCB IN DELAY QUEUE */ 95340022 * 5 QCBDISC BIT(1), /* USER TO BE LOGGED OFF TSO*/ 95360022 * 2 QCBINTVL FIXED(16), /* INTERVAL FOR POLL DELAY 95380000 * @VS44899*/ 95390000 * 3 QCBEXTO FIXED(16) , /* OFFSET TO EXT @VS44899*/ 95400000 * 2 QCBMSGCT FIXED(15), /* COUNT OF MESSAGES IN 95420022 * THIS QUEUE */ 95440022 * 2 QCBPREN PTR(31), /* ADDRESS OF TERMINAL TABLE 95460022 * ENTRY IF QCB FOR A PROCESS 95480022 * ENTRY */ 95500022 * 3 QCBPRLVL CHAR(1), /* HIGHEST MESSAGE PRIORITY */ 95520022 * 3 QCBLKRRN CHAR(3), /* LOCK RELATIVE RECORD NO. 95540022 * LINK FIELD FOR QCB WHEN ON THE 95560022 * TIME DELAY QUEUE */ 95580022 * 4 QCBCARCT CHAR(1), /* CARRIAGE POSITION COUNT */ 95600022 * 4 QCBTJID FIXED(15) BDY(BYTE), /* TSO JOB IDENTIFICATION 95620022 * TSO*/ 95640022 * 2 QCBRELLN CHAR(1), /* RELATIVE LINE NUMBER 95660022 * FOR LINE THIS QCB REPRESENTS */ 95680022 * 2 QCBDCBAD PTR(24) BDY(BYTE), /* ADDRESS OF DCB */ 95700022 * 3 QCBLGBAD PTR(24) BDY(BYTE), /* ADDRESS OF LGB S22024*/ 95720022 * 2 QCBFLAG CHAR(1), /* QCB STATUS BITS */ 95740022 * 3 QCBTSSES BIT(1), /* TSO SESSION IN PROGRESS 95760022 * TSO*/ 95780022 * 3 QCBNOBRK BIT(1), /* NO REVERSE BREAK FEATURE 95800022 * TSO*/ 95820022 * 3 QCBREAD BIT(1), /* READ HAS PRIORITY TSO*/ 95840022 * 3 QCBRSRV BIT(1), /* REUSE SERVICED BIT */ 95860022 * 3 QCBTERMQ BIT(1), /* QUEUING BY TERMINAL */ 95880022 * 3 QCBSDFFO BIT(1), /* CURRENTLY SENDING FEFO 95900022 * MSG */ 95920022 * 3 QCBPROC BIT(1), /* THIS QCB FOR A PROCESS 95940022 * ENTRY */ 95960022 * 3 QCBCKPT BIT(1), /* FLAG FOR CHECKPOINT */ 95980022 * 2 QCBQBACK PTR(24) BDY(BYTE); /* QBACK MSG CHAIN @XA11316*/ 96000000 */* QCBHUCT VALUES @Y17XAXF*/ 96002000 * DCL QCBHUCT1 BIT(2) CONSTANT('01'B); 96002200 * DCL QCBHUCT2 BIT(8) CONSTANT('F2'X); 96002400 * DCL QCBHUCT3 BIT(2) CONSTANT('11'B); 96002600 */* QCBLOGCT VALUES @Y17XAXF*/ 96002800 * DCL QCBLOG2 BIT(2) CONSTANT('10'B); /* RETRY COUNTER 2 @Y17XAXF*/ 96003200 * DCL QCBLOG1 BIT(2) CONSTANT('01'B); /* RETRY COUNTER 1 @Y17XAXF*/ 96006000 */* QCBNL VALUES @Y17XAXF*/ 96008000 * DCL QCBCR BIT(2) CONSTANT('10'B); /* CARRIAGE RET @Y17XAXF*/ 96010000 * /* REQUIRED @Y17XAXF*/ 96011000 * DCL QCBLF BIT(2) CONSTANT('01'B); /* LINE FEED REQ @Y17XAXF*/ 96012000 */* QCBSTPRI VALUES @Y17XAXF*/ 96014000 * DCL QCBCALLN BIT(8) CONSTANT('50'X); /* DIALNO=NONE CALL IN ONLY */ 96016000 * /* @Y17XAXF*/ 96016600 * DCL QCBCNTVL BIT(8) CONSTANT('70'X); /* CINTVL IND @Y17XAXF*/ 96017200 * DCL QCBCLK BIT(8) CONSTANT('80'X); /* CLOCK IND @Y17XAXF*/ 96018000 */* */ 96020022 */* */ 96040022 */* DEC HEX */ 96060022 */* ********************************* */ 96080022 */* 0 * DSFLG * ELCHN * */ 96100022 */* ********************************* */ 96120022 */* 4 * PRI * LINK * 4 */ 96140022 */* ********************************* */ 96160022 */* 8 * VTO * STCHN * 8 */ 96180022 */* ********************************* ************** */ 96200022 */* 12 * STPRI * SLINK * C * * */ 96220022 */* ********************************* * MASTER QCB * */ 96240022 */* 16 * EOLDT * LKRLN * STAT * 10 * */ 96260022 */* ********************************* ************** */ 96280022 */* 20 * SCBOF * INSRC * 14 */ 96300022 */* ********************************* */ 96320022 */* 24 * INTVL * MSGCT * 18 */ 96340022 */* ********************************* */ 96360022 */* 28 * PRILVL* PREN/LKRRN * 1C */ 96380022 */* ********************************* */ 96400022 */* 32 * RELLN * DCBAD * 20 */ 96420022 */* ********************************* */ 96440022 */* 36 * FLAG * QBACK * 24 */ 96460022 */* ********************************* */ 96480022 */* */ 96500022 */* THIS IS THE DSECT OF A PRIORITY QCB. THERE IS A PRIORITY */ 96520022 */* QCB FOR EACH PRIORITY LEVEL APPLICABLE FOR THIS DEST. Q */ 96540022 */* */ 96560022 * DECLARE 1 IEDQPQCB CHAR(28) BASED(IEDQQPTR+LENGTH(IEDQQCB)), 96580000 * /* START OF PRTY QCB @YM06080*/ 96590000 * 3 QCBDNHDR CHAR(3), /* DISK RECORE NUMBER TO PUT 96600022 * THE NEXT HDR RECEIVED */ 96620022 * 3 QCBFHDLZ CHAR(3), /* DISK REC. NO OF THE FIRST 96640022 * HEADER ON THIS QUEUE */ 96660022 * 4 QCBDATFL CHAR(1), /* DATFLAGS FIELD OF LAST MSG 96680022 * REMOVED FROM FEFO Q S21101*/ 96700022 * 4 QCBPFEFO CHAR(3), /* IF TERM OF QUEUE HELD, 96720022 * PREVIOUS TO FIRST HELD 96740022 * MESSAGE SA52971*/ 96760022 * 5 * CHAR(2), /* IF TERM NOT HELD,PREVIOUS 96780022 * LAST MESSAGE SERVICED SA52971*/ 96800022 * 3 QCBFHDTZ CHAR(3), /* LAST ZONE USED. 96820022 * DISK REC. NO. OF THE FIRST 96840022 * HEADER PLACED IN THE CURRENT 96860022 * ZONE */ 96880022 * 4 * CHAR(1), /* PFEFO CONTINUED SA52971*/ 96900022 * 4 QCBDATSQ CHAR(2), /* SEQ NUMBER OF LAST MSG 96920022 * REMOVED FROM FEFO Q S21101*/ 96940022 * 3 QCBINTFF CHAR(3), /* DISK REC. NO. OF THE 96960022 * FIRST INTERCEPTED MSG. - 96980022 * FEFO ORDER */ 97000022 * 3 QCBINTLF CHAR(3), /* DISK REC. NO. OF THE LAST 97020022 * INTERCEPTED MSG. - FEFO */ 97040022 * 4 QCBPREVF CHAR(3), /* PREVIOUS TO LAST 97060022 * FFEFO SA52971*/ 97080022 * 3 QCBFFEFO CHAR(3), /* DISK REC. NO. OF THE 97100022 * FIRST (FEFO) MSG. TO BE 97120022 * RECVD. 97140022 * CORE RECORD NO. IF THIS IS 97160022 * A CORE ONLY QUEUE */ 97180022 * 3 QCBLFEFO CHAR(3), /* DISK RECORD NO. OF THE 97200022 * LAST FEFO MSG. RECEIVED 97220022 * CORE REC. NO. IF THIS IS A 97240022 * CORE ONLY QUEUE. */ 97260022 * 3 QCBCFHDR CHAR(3), /* CORE REC. NO. OF THE 97280022 * FIRST HEADER APPEARING IN 97300022 * THIS QUEUE. */ 97320022 * 3 QCBPRIPQ CHAR(1), /*PRIORITY OF THE PRIORITY 97340022 * LEVEL QCB. THIS WILL BE 97360022 * X'00' IF THIS IS THE LOWEST 97380022 * PRTY LEVEL */ 97400022 * 3 QCBPQBCK PTR(24) BDY(BYTE); /* PQCB BACK CHAIN SA51078*/ 97420000 */* */ 97460022 */* */ 97480022 */* DEC HEX */ 97500022 */* ********************************* */ 97520022 */* 0 * DNHDR * DATFL * 0 SA52971*/ 97540022 */* ********************************* */ 97560022 */* 4 * (PFEFO) * DATSQ * 4 SA52971*/ 97580022 */* ********************************* **************** */ 97600022 */* 8 *(DATSQ)* INTFF * 8 * SA52971*/ 97620022 */* ********************************* * PRIORITY QCB * */ 97640022 */* 12 * PREVF * FFEFO * C * SA52971*/ 97660022 */* ********************************* **************** */ 97680022 */* 16 * (FFEFO) * LFEFO * 10 */ 97700022 */* ********************************* */ 97720022 */* 20 *(LFEFO)* CFHDR * 14 */ 97740022 */* ********************************* */ 97760022 */* 24 * PRIPQ * PQBCK * 18 SA51078*/ 97780000 */* ********************************* */ 97800022 */* */ 97820022 */* */ 97840022 */* */ 97880022 *DECLARE 97900022 * 1 IEDNQCB BASED(ADDR(IEDQQCB)-LENGTH(IEDNQCB)), /* @Y17XAXF*/ 97920000 * 2 QCBCHAIN PTR(31), /* ADDR TO CHAIN OF @Y17XAXF*/ 97929000 * /* QCB'S WAITING @Y17XAXF*/ 97938000 * /* FOR PLCB @Y17XAXF*/ 97947000 * /* ALLOCATION @Y17XAXF*/ 97956000 * 2 QCBSTAT1 CHAR(1), /* FLAG BYTE @Y17XAXF*/ 97965000 * 3 QCBPLCBN BIT(1), /* FIELD HAS PLCB @Y17XAXF*/ 97974000 * /* ADDR @Y17XAXF*/ 97983000 * 3 QCBWAITC BIT(1), /* FIELD HAS WAIT @Y17XAXF*/ 97992000 * /* CHAIN ADDR @Y17XAXF*/ 98001000 * 3 QCBSNDRQ BIT(1), /* A PLCB HAS BEEN @Y17XAXF*/ 98010000 * /* REQ HAVING @Y17XAXF*/ 98019000 * /* SEND & RECV @Y17XAXF*/ 98028000 * /* STCB'S IN ITS @Y17XAXF*/ 98037000 * /* STCB CHAIN @Y17XAXF*/ 98046000 * 3 QCBRCVRQ BIT(1), /* A PLCB HAS BEEN @Y17XAXF*/ 98055000 * /* REQ HAVING @Y17XAXF*/ 98064000 * /* RECV STCB IN @Y17XAXF*/ 98073000 * /* ITS STCB CHN @Y17XAXF*/ 98082000 * 3 QCBESIG BIT(1), /* ESIG IS NEEDED @Y17XAXF*/ 98091000 * 3 QCBNDXRQ BIT(1), /* INDEXED PLCB REQUEST 98092000 * @Y17XAXF*/ 98093000 * 3 QCBFLUSH BIT(1), /* QUEUE FLUSH IN PROGRESS 98094000 * @Y17XAXF*/ 98104000 * 3 * BIT(1), /* RESERVED @Y17XAXF*/ 98118000 */* @Y17XAXF*/ 98127000 */* QCBSTAT1 MUST ALWAYS PRECEDE QCBPLCBA @Y17XAXF*/ 98136000 */* @Y17XAXF*/ 98145000 * 2 QCBPLCBA PTR(24) BDY(BYTE), /* ADDR OF PLCB @Y17XAXF*/ 98154000 * 3 * CHAR(1), /* @Y17XAXF*/ 98163000 * 3 QCBTTCIN FIXED(15) BDY(BYTE); /* TNT INDEX @Y17XAXF*/ 98172000 */* */ 98200022 * DECLARE 98700000 * QCBLDCB BASED(ADDR(IEDQQCB)+120); /*LOGTYPE DCB ADDR @XM05707*/ 99200000