* %GOTO QCBEPLS ; /* 00900010 MACRO 01800010 TQCBED 02700010 .* CONVERTED TO BILINGUAL ON 11/01/72 S22024 03600010 * UPDATED 01/05/73 S22024 04500010 .* CHANGE ACTIVITY = AS FOLLOWS: 05400010 .*A345000 SA52971 06300010 .*C460000,480000 SA52971 07200010 .*C709000-718000,763000 @Y17XAXF 08100010 .*A240000 @Y17XAXF 09000010 IEDQQCBE DSECT 09900010 * 10800010 * THIS IS A DSECT OF THE QCB EXTENSION. 11700010 * 12600010 QCBEFLG DS XL1 . FLAG BYTE 13500010 * BIT DEFINITIONS 14400010 QCBESTAT EQU X'80' . STATUS SPEC ON QCNTRL 15300010 QCBECNT EQU X'40' . INTEGER SPECIFIED 16200010 QCBEOPL EQU X'20' . PRIORITY LEVEL Q DEFN 17100010 QCBEHELD EQU X'10' . TEMPORARY HOLD 18000010 QCBESRVC EQU X'08' . INDICATES QCB SERVICED 18900010 QCBEOMSG EQU X'04' . INDICATES OUTMSG PENDING 19800010 QCBEDATA EQU X'02' . INDICATES DATA IN MSG 20700010 QCBEPEND EQU X'01' . QACTION OPERATION PENDING 21600010 * 22500010 QCBEHDR DS 0XL3 . SCBSCHDR SAVED 23400010 QCBECONC DS AL3 . ADDRESS OF CONC TERM ENTRY 24300010 QCBEOSEQ DS 0XL2 . SCBOSEQ SAVED 25200010 QCBEDAMT DS H . AMOUNT OF DATA TO TAKE FROM Q 26100010 QCBETCIN DS H . TTCIN OF LAST MSG FROM Q 27000010 QCBELGTH DS XL1 . LENGTH OF ENTRY 27900010 QCBENPLV DS FL1 . NUMBER OF PRTY LEVELS 28800010 QCBESAVE DS 0CL5 . SAVE AREA @Y17XAXF 29700010 QCBEPRI DS 0XL1 . SCBPRI SAVED 30600010 QCBEMACR DS 0XL3 . SCBMACR SAVED 31500010 DS XL1 . 32400010 QCBEFEFO DS 0XL3 . SCBFEFO SAVED 33300010 DS XL2 . 34200010 QCBEEOB DS 0XL2 . SCBEOB SAVED 35100010 DS XL1 . 36000010 QCBEQTYP DS XL1 . SCBQTYPE SAVED 36900010 * BIT DEFINITIONS 37800010 QCBEMM EQU X'01' . MIDDLE OF MSG 38700010 QCBELCB DS 0AL3 . QACTION LCB ADDRESS SA52971 39600010 QCBEDEOB DS XL4 . SCBDEOB SAVED 40500010 QCBELRS DS XL1 . LENGTH OF CTB CHARS - MAX=8 41400010 QCBERS DS XL1 . START OF CTB CHARS 42300010 * 43200010 * ******************************************************* 44100010 * 0 * FLG ** CONC/HDR * 45000010 * ******************************************************* 45900010 * 4 * DAMT/OSEQ ** TCIN * 46800010 * ******************************************************* 47700010 * 8 * LGTH ** NPLV ** MACR/PRI ** MACR/FEFO * 48600010 * ******************************************************* 49500010 * 12 * MACR/FEFO ** EOB/FEFO ** EOB/QTYPE ** LCB/DEOB * 50400010 * ******************************************************* 51300010 * 16 * LCB/DEOB ** LCB/DEOB ** DEOB ** LRS * 52200010 * ******************************************************* 53100010 * 20 * RS * 54000010 * ************* 54900010 MEND , */ 55800010 *%QCBEPLS : ; 56700010 */* UPDATED 01/05/73 S22024*/ 57600010 *DECLARE 58500010 * 1 IEDQQCBE BASED(IEDQEPTR) BDY(WORD), 59400010 * 2 QCBEFLG BIT(8), /* FLAG BYTE */ 60300010 * 3 QCBESTAT BIT(1), /* STATUS SPEC ON QCNTRL */ 61200010 * 3 QCBECNT BIT(1), /* INTEGER SPECIFIED */ 62100010 * 3 QCBEOPL BIT(1), /* PRIORITY LEVEL Q. DEFN */ 63000010 * 3 QCBEHELD BIT(1), /* TEMPORARY HOLD */ 63900010 * 3 QCBESRVC BIT(1), /* INDICATES QCB SERVICED */ 64800010 * 3 QCBEOMSG BIT(1), /* INDICATES OUTMSG PENDING */ 65700010 * 3 QCBEDATA BIT(1), /* INDICATES DATA IN MSG */ 66600010 * 3 QCBEPEND BIT(1), /* QACTION OPERATION PENDING */ 67500010 * 2 QCBECONC PTR(24), /* ADDR OF CONC TRM ENTRY */ 68400010 * 3 QCBEHDR CHAR(3), /* SCBSCHDR SAVED */ 69300010 * 2 QCBEDAMT FIXED(15), /* AMT OF DATA TO TAKE FROM Q*/ 70200010 * 3 QCBEOSEQ CHAR(2), /* SCBOSEQ SAVED */ 71100010 * 2 QCBETCIN FIXED(15), /* TTCIN OF LAST MSG FROM Q */ 72000010 * 2 QCBELGTH PTR(8), /* LENGTH OF ENTRY */ 72900010 * 2 QCBENPLV PTR(8), /* NUMBER OF PRIORITY LVLS */ 73800010 * 2 QCBESAVE CHAR(5) BDY(BYTE), /* SAVE AREA @Y17XAXF*/ 74700010 * 3 QCBEMACR CHAR(3), /* SCBMACR SAVED @Y17XAXF*/ 75600010 * 3 QCBEEOB FIXED(15) BDY(BYTE), /* SCBEOB SAVED @Y17XAXF*/ 76500010 * 2 QCBEDEOB CHAR(4), /* SCBDEOB SAVED */ 77400010 * 3 QCBELCB PTR(24) BDY(BYTE), /* QACTION LCB ADDR SA52971*/ 78300010 * 2 QCBELRS PTR(8), /* LEN OF CTB CHARS - MAX=8 */ 79200010 * 2 QCBERS (*) CHAR(1); /* START OF CTB CHARS */ 80100010 *DECLARE 81000010 * 1 * BASED(ADDR(QCBESAVE)) BDY(BYTE), /*@Y17XAXF*/ 81900010 * 2 QCBEPRI PTR(8), /* SCBPRI SAVED */ 82800010 * 2 QCBEFEFO CHAR(3), /* SCBFEFO SAVED */ 83700010 * 2 QCBEQTYP CHAR(1), /* SCBQTYPE SAVED */ 84600010 * 3 * BIT(7), 85500010 * 3 QCBEMM BIT(1); /* MIDDLE OF MSG */ 86400010 */* */ 87300010 */* ******************************************************** */ 88200010 */* 0 * FLG ** CONC/HDR */ 89100010 */* ******************************************************** */ 90000010 */* 4 * DAMT/OSEQ ** TCIN * */ 90900010 */* ******************************************************** */ 91800010 */* 8 * LGTH ** NPLV ** MACR/PRI ** MACR/FEFO * */ 92700010 */* ******************************************************** */ 93600010 */* 12 * MACR/FEFO ** EOB/FEFO ** EOB/QTYPE ** LCB/DEOB * */ 94500010 */* ******************************************************** */ 95400010 */* 16 * LCB/DEOB ** LCB/DEOB ** DEOB ** LRS * */ 96300010 */* ********************************************************* */ 97200010 */* 20 * RS * */ 98100010 */* ************* */ 99000010 */* */ 99900010