* %GOTO PLSRESPL; /*BILINGUAL HEADER 00500000 MACRO 01000020 &NAME RESPL &DSECT=YES,&EQUATES=NO 02000022 LCLC &A0010,&A0020,&A0030,&A0040,&A0050 03000020 LCLC &A0060,&A0070,&A0080,&A0090,&A0095,&A0096 @Y17XAUU 03050000 LCLC &A0097,&A0098,&A0099 @Y17XAXU 03120000 * 03200020 * TOTE RESIDENT CONTROL BLOCK 03300022 * 03400022 * STATUS = VERSION 10.0 @Y17XAXU 03600000 * 03800020 AIF ('&DSECT' EQ 'NO').BYP010 04000020 &A0010 SETC '0' 05000020 &A0020 SETC '0' 06000020 &A0030 SETC '0' 07000020 &A0040 SETC '0' 08000020 &A0050 SETC '0' 09000020 &A0060 SETC '0' 09200022 &A0070 SETC '0' 09400022 &A0080 SETC '0' 09600022 &A0090 SETC '0' 09800022 &A0095 SETC '0' S22024 09900000 &A0096 SETC '0' @Y17XAUU 09950000 &A0097 SETC '0' @Y17XAXU 09960000 &A0098 SETC '0' @Y17XAUU 09970000 &A0099 SETC '0' @Y17XAUU 09980000 AGO .BYP020 10000020 .BYP010 ANOP 11000020 &A0010 SETC 'ERROR' 12000020 &A0020 SETC 'SMGR' 13000020 &A0030 SETC 'IEDQWA' 14000020 &A0040 SETC 'OLTETXR' 15000020 &A0050 SETC 'PRFSTXT-PRFSUNIT' 16000020 &A0060 SETC 'QREMFRX' 16200022 &A0070 SETC 'QREMELX' 16400022 &A0080 SETC 'QADDNDX' 16600022 &A0090 SETC 'QADDAFX' 16800022 &A0095 SETC 'STAERT' S22024 16900000 &A0096 SETC 'HIERSCAN' @XM05672 16950010 &A0097 SETC 'POSTWAIT' @Y17XAXU 16955000 &A0098 SETC 'ALLOCBUF' @Y17XAXU 16970000 &A0099 SETC 'FREEBUF' @Y17XAUU 16980000 .BYP020 ANOP 17000020 AIF ('&DSECT' EQ 'NO').BYP030 18000020 &NAME DSECT 19000020 AGO .BYP040 20000020 .BYP030 ANOP 21000020 &NAME DS 0F 22000020 .BYP040 ANOP 23000020 RESTECBS DC A(0) PARAMETER LIST FOR TOTE WAIT 23800022 DC XL1'80' SET ECB CODE TO WAITING 24200022 DC AL3(RESTECB1) ADDRESS OF USBTASK ECB 24600022 RESTECB1 DC F'0' SUBTASK REQUEST ECB 25000022 * 25400022 RESOBQCB DS 0F OLTCB QUEUE CONTROL BLOCK 25800022 RESOBFWD DC A(RESOBQCB) OLTCB QUEUE FORWARD POINTER 26200022 RESOBBKW DC A(RESOBQCB) OLTCB QUEUE BACKWARD POINTER 26600022 * 27000022 RESTTLST DC A(0) LAST TOTE TNT ENTRY ADDRESS 27400022 RESBKTOT DC H'12' TOTAL STORAGE BLOCKS FOR TOTE S22024 27800000 RESBKAVL DC H'8' CURRENT FREE STORAGE BLOCKS 28200022 RESEFQCB DC A(RESEFQCB) EXTENDED AREA FREE QUEUE 28600022 * CONTROL BLOCK 29000022 RESTNTCT DC X'00' TOTAL NUMBER OF TNT ENTRIES 29400022 RESDMTTE DC AL3(0) POINTER TO TOTE EXTENDED AREA 29800022 * FOR TTE'S AND QCB'S 30200022 RESETXRA DC A(&A0040) END OF TASK EXIT ROUTINE ADDRESS 30600022 RESSTAEA DC A(&A0095) STAE EXIT ROUTINE ADDRESS S22024 30800000 RESSMGRA DC A(&A0020) SERVICE MANAGER ENTRY ADDRESS 31000022 RES#TBLE EQU RESSMGRA-28 BRANCH TABLE ADDRESS 31400022 RESWBFNC DC X'00' IEDQWB FUNCTION REQUEST CODE 31800022 * 32200022 RESFLAGS DC XL1'0' TOTE RESIDENT FLAG BYTE 32600022 * 33000022 RESINIT EQU X'80' TOTE INITIALIZED FLAG 33400022 RESFIRST EQU X'40' FIRST-TIME INDICATOR 33800022 * 34200022 DC XL2'0000' UNUSED @XM05672 34600010 RESTRMQ DC A(RESTRMQ) TOTE TRM QUEUE CONTROL BLOCK 35000022 DS XL1'0' UNUSED 35400022 RESTNTPT DS AL3(0) ADDRESS OF START OF TOTE TNT 35800022 * ENTRIES 36200022 * 36600022 * BRANCH TABLE FOR QUEUE HANDLERS 37000022 * 37400022 RESQHBL DS 0F ALIGN ON FULLWORD 37800022 RESREMFR DC A(&A0060) ADDRESS OF REMOVE ELEMENT FROM 38200022 * FRONT HANDLER 38600022 RESREMEL DC A(&A0070) ADDRESS OF REMOVE SPECIFIED 39000022 * ELEMENT HANDLER 39400022 RESADDND DC A(&A0080) ADDRESS OF ADD ELEMENT TO END 39800022 * HANDLER 40200022 RESADDAF DC A(&A0090) ADDRESS OF ADD ELEMENT AFTER 40600022 * ANOTHER SPECIFIED ELEMENT HANDLER 40610000 RESPLRVT DC A(&A0097) POST/WAIT ROUTINE @Y17XAXU 40610500 RESABUF DC A(&A0098) BUFFER ALLOCATION ROUTINE @Y17XAXU 40612000 RESFBUF DC A(&A0099) BUFFER DEALLOCATION ROUTINE @Y17XAXU 40613000 RESMHSRC DC H'0' . TOTE MH TTCIN @Y17XAXU 40614000 RESMHNAT DC H'0' . TOTE MH NETWORK ADDRESS @Y17XAXU 40615000 RESTOTMH DC A(0) . TOTE MH ADDRESS @Y17XAXU 40620000 RESPLADR DS 0F . SERVICE ROUTINE ADDRESSES @Y17XAXU 40630000 RESPLWO DC A(0) . I/O ACCESS MANAGER @Y17XAXU 40640000 RESPLAB DC A(0) . DATE ROUTINE @Y17XAXU 40650000 RESPLAJ DC A(0) . $CUTEST ROUTINE @Y17XAXU 40660000 RESPL35 DC A(0) . EXIO ROUTINE @Y17XAXU 40670000 RESPLAA DC A(0) . TIME ROUTINE @Y17XAXU 40680000 RESPL39 DC A(0) . DPRINT LOAD 1 ROUTINE @Y17XAXU 40690000 RESPLP1 DC A(0) . DPRINT LOAD 2 ROUTINE @Y17XAXU 40700000 RESPLP2 DC A(0) . DPRINT LOAD 2 ROUTINE @Y17XAXU 40710000 RESPL37 DC A(0) . CECOM ROUTINE @Y17XAXU 40720000 RESPL28 DC A(0) . PLINK ROUTINE @Y17XAXU 40730000 RESPL36 DC A(0) . WAITIO ROUTINE @Y17XAXU 40740000 RESPLAC DS 0F . $GRAB ROUTINE @Y17XAXU 40750000 RESPL21 DS A(0) . $LETGO ROUTINE @Y17XAXU 40760000 RESPL41 DC A(0) . CONVERT ROUTINE @Y17XAXU 40770000 RESPL16 DC A(0) . GETCONFIG ROUTINE @Y17XAXU 40780000 RESPL42 DS 0F . MORECORE ROUTINE @Y17XAXU 40790000 RESPL43 DC A(0) . FREECORE ROUTINE @Y17XAXU 40800000 RESPL44 DC A(0) . DIO ROUTINE @Y17XAXU 40810000 RESPL47 DC A(0) . ROUTINE ROUTINE @Y17XAXU 40820000 RESPLM2 DC A(0) . TRACE/RETURN CODE ROUTINE @Y17XAXU 40830000 RESPL25 DC A(0) . SEND ROUTINE @Y17XAXU 40840000 RESPL33 DC A(0) . RECEIVE ROUTINE @Y17XAXU 40850000 RESTLIB DC A(&A0096) ADDR OF HIERARCHY SCAN RTN @XM05672 40860010 RESPLA1 DC A(0) . TOTE INPUT PROCESSOR ADDRESS @Y17XAXU 40870000 RESAPDCB DCB DSORG=PS,MACRF=WC,DDNAME=DIAGMSG,BLKSIZE=80 SA21903 41100000 RESAPOPN EQU RESAPDCB+48 SA21903 41200000 MEND @Y17XAXU*/ 41300000 *%PLSRESPL: ; 41400000 *DECLARE 41500000 * 1 IEDRESPL BDY(WORD) BASED, /* @Y17XAXU*/ 41600000 */* @Y17XAXU*/ 41700000 */* TOTE RESIDENT CONTROL BLOCK @Y17XAXU*/ 41800000 */* STATUS = VERSION 10.0 (TCAM,TOTE) @Y17XAXU*/ 41900000 */* @Y17XAXU*/ 42000000 * 2 RESTECBS PTR(31), /* PARMLIST FOR TOTE WAIT @Y17XAXU*/ 42100000 * 2 * CHAR(1), /* ECSB CODE @Y17XAXU*/ 42200000 * 2 * PTR(24) BDY(BYTE), /* SUBTASK ECB ADDRESS @Y17XAXU*/ 42300000 * 2 RESTECB1 PTR(31), /* SUBTASK REQUEST ECB @Y17XAXU*/ 42400000 * 2 RESOBQCB BDY(WORD), /* OLTCB QUEUE CONTROL @Y17XAXU*/ 42500000 * /* BLOCK @Y17XAXU*/ 42600000 * 3 RESOBFWD PTR(31), /* OLTCB QUEUE FORWARD @Y17XAXU*/ 42700000 * /* POINTER @Y17XAXU*/ 42800000 * 3 RESOBBKW PTR(31), /* OLTCB QUEUE BACKWARD @Y17XAXU*/ 42900000 * /* POINTER @Y17XAXU*/ 43000000 * 2 RESTTLST PTR(31), /* LAST TOTE TNT ENTRY @Y17XAXU*/ 43100000 * /* ADDRESS @Y17XAXU*/ 43200000 * 2 RESBKTOT FIXED(15), /* TOTAL STORAGE BLOCKS @Y17XAXU*/ 43300000 * /* FOR TOTE @Y17XAXU*/ 43400000 * 2 RESBKAVL FIXED(15), /* CURRENT FREE STORAGE @Y17XAXU*/ 43500000 * /* BLOCKS @Y17XAXU*/ 43600000 * 2 RESEFQCB PTR(31), /* EXTENTED AREA FREE @Y17XAXU*/ 43700000 * /* QUEUE CONTROL BLOCK @Y17XAXU*/ 43800000 * 2 RESTNTCT PTR(8), /* TOTAL NUMBER OF TNT @Y17XAXU*/ 43900000 * /* ENTRIES @Y17XAXU*/ 44000000 * 2 RESDMTTE PTR(24) BDY(BYTE), /* POINTER TO TOTE @Y17XAXU*/ 44100000 * /* EXTENTED AREA FOR TTE'S,@Y17XAXU*/ 44200000 * /* QCB'S AND LGB'S @Y17XAXU*/ 44300000 * 2 RESETXRA PTR(31), /* END OF TASK EXIT ROUTINE@Y17XAXU*/ 44400000 * /* ADDRESS @Y17XAXU*/ 44500000 * 2 RESSTAEA PTR(31), /* STAE EXIT ROUTINE @Y17XAXU*/ 44600000 * /* ADDRESS @Y17XAXU*/ 44700000 * 2 RESSMGRA PTR(31), /* SERVICE MANAGER ENTRY @Y17XAXU*/ 44800000 * /* ADDRESS @Y17XAXU*/ 44900000 * 2 RESWBFNC CHAR(1), /* IEDQWB FUNCTION REQUEST @Y17XAXU*/ 45000000 * /* CODE @Y17XAXU*/ 45100000 * 2 RESFLAGS BIT(8), /* TOTE RESIDENT FLAGS @Y17XAXU*/ 45200000 * 3 RESINIT BIT(1), /* TOTE INITIALIZED FLAG @Y17XAXU*/ 45300000 * 3 RESFIRST BIT(1), /* FIRST-TIME INDICATOR @Y17XAXU*/ 45400000 * 3 * BIT(6), /* RESERVED @Y17XAXU*/ 45500000 * 2 * CHAR(2), /* RESERVED @Y17XAXU*/ 45600000 * 2 RESTRMQ PTR(31), /* TRM QUEUE CONTROL BLOCK @Y17XAXU*/ 45700000 * 2 * CHAR(1), /* RESERVED @Y17XAXU*/ 45800000 * 2 RESTNTPT PTR(24) BDY(BYTE), /* ADDRESS OF START OF @Y17XAXU*/ 45900000 * /* TOTE TNT ENTRIES @Y17XAXU*/ 46000000 */* @Y17XAXU*/ 46100000 */* BRANCH TABLE FOR QUEUE HANDLERS @Y17XAXU*/ 46200000 */* @Y17XAXU*/ 46300000 * 2 RESQHBL BDY(WORD), /* @Y17XAXU*/ 46400000 * 3 RESREMFR PTR(31), /* ADDRESS OF REMOVE @Y17XAXU*/ 46500000 * /* ELEMENT FROM FRONT @Y17XAXU*/ 46600000 * /* HANDLER @Y17XAXU*/ 46700000 * 3 RESREMEL PTR(31), /* ADDRESS OF REMOVE @Y17XAXU*/ 46800000 * /* SPECIFIED ELEMENT @Y17XAXU*/ 46900000 * /* HANDLER @Y17XAXU*/ 47000000 * 3 RESADDND PTR(31), /* ADDRESS OF ADD ELEMENT @Y17XAXU*/ 47100000 * /* TO END HANDLER @Y17XAXU*/ 47200000 * 3 RESADDAF PTR(31), /* ADD OF ADD ELEMENT AFTER@Y17XAXU*/ 47300000 * /* ANOTHER SPECIFIED @Y17XAXU*/ 47400000 * /* ELEMENT @Y17XAXU*/ 47500000 * 2 RESPLRVT PTR(31), /* POST/WAIT ROUTINE @Y17XAUU*/ 47510000 * 2 RESABUF PTR(31), /* BUFFER ALLOCATION RTN @Y17XAXU*/ 47520000 * 2 RESFBUF PTR(31), /* BUFFER DEALLOCATION RTN @Y17XAXU*/ 47530000 * 2 RESMHSRC FIXED(16), /* TOTE MH TTCIN @Y17XAXU*/ 47540000 * 2 RESMHNAT FIXED(16), /* TOTE MH NETWORK ADDRESS @Y17XAXU*/ 47550000 * 2 RESTOTMH PTR(31), /* TOTE MH ADDRESS @Y17XAXU*/ 47600000 * 2 RESPLADR BDY(WORD), /* SERVICE ROUTINE ADDR @Y17XAXU*/ 47700000 * 3 RESPLWO PTR(31), /* I/O ACCESS MANAGER @Y17XAXU*/ 47800000 * 3 RESPLAB PTR(31), /* DATE ROUTINE @Y17XAXU*/ 47900000 * 3 RESPLAJ PTR(31), /* $CUTEST ROUTINE @Y17XAXU*/ 48000000 * 3 RESPL35 PTR(31), /* EXIO ROUTINE @Y17XAXU*/ 48100000 * 3 RESPLAA PTR(31), /* TIME ROUTINE @Y17XAXU*/ 48200000 * 3 RESPL39 PTR(31), /* DPRINT LOAD 1 ROUTINE @Y17XAXU*/ 48300000 * 3 RESPLP1 PTR(31), /* DPRINT LOAD 2 ROUTINE @Y17XAXU*/ 48400000 * 3 RESPLP2 PTR(31), /* DPRINT LOAD 2 ROUTINE @Y17XAXU*/ 48500000 * 3 RESPL37 PTR(31), /* CECOM ROUTINE @Y17XAXU*/ 48600000 * 3 RESPL28 PTR(31), /* PLINK ROUTINE @Y17XAXU*/ 48700000 * 3 RESPL36 PTR(31), /* WAITIO ROUTINE @Y17XAXU*/ 48800000 * 3 RESPLAC PTR(31), /* $GRAB ROUTINE @Y17XAXU*/ 48900000 * 4 RESPL21 PTR(31), /* $LETGO ROUTINE @Y17XAXU*/ 49000000 * 3 RESPL41 PTR(31), /* CONVERT ROUTINE @Y17XAXU*/ 49100000 * 3 RESPL16 PTR(31), /* GETCONFIG ROUTINE @Y17XAXU*/ 49200000 * 3 RESPL42 PTR(31), /* MORECORE ROUTINE @Y17XAXU*/ 49300000 * 4 RESPL43 PTR(31), /* FREECORE ROUTINE @Y17XAXU*/ 49400000 * 3 RESPL44 PTR(31), /* DIO ROUTINE @Y17XAXU*/ 49500000 * 3 RESPL47 PTR(31), /* ROUTINE ROUTINE @Y17XAXU*/ 49600000 * 3 RESPLM2 PTR(31), /* TRACE/RETURN CODE @Y17XAXU*/ 49700000 * /* ROUTINE @Y17XAXU*/ 49800000 * 3 RESPL25 PTR(31), /* SEND ROUTINE @Y17XAXU*/ 49900000 * 3 RESPL33 PTR(31), /* RECEIVE ROUTINE @Y17XAXU*/ 50000000 * 2 RESTLIB PTR(31), /* ADDRESS OF OLTLIB DCB @Y17XAXU*/ 50100000 * 2 RESAPDCB BDY(WORD); /* START OF AP DCB AREA @Y17XAXU*/ 50200000 * /* @Y17XAXU*/ 50300000 *%RESPLEND: ; /* END OF RESPL @Y17XAXU*/ 50400000