*% GO TO PLSRCTDA; /* 01000002 MACRO 02000000 IEARCTD &DSECT=YES 03000000 AIF ('&DSECT' EQ 'NO').RCTD10 04000000 RCTD DSECT 05000000 AGO .RCTD20 06000000 .RCTD10 ANOP 07000000 RCTD EQU * 08000000 .RCTD20 ANOP 09000000 RCTDBEGN DS 0D BEGINING OF RCTD 09050002 .*/ %PLSRCTDA:; 09060002 */********************************************************************/ 09070002 */* */ 09080002 */* MACMEAN REGION CONTROL TASK DATA AREA */ 09090002 */* */ 09094002 */* MACCOMP Y1 SC1CU / PZD81 */ 09096002 */* */ 09098002 */* MACSTAT Y1 73164 / Y02752 */ 09098402 */* */ 09098802 */********************************************************************/ 09099202 * %GO TO PLSRCTD; /* 09099602 RCTDISAV DS 18F INTERNAL SAVE AREA 09100002 RCTDTCBD DS A ADDRESS OF DUMP TCB 09150002 RCTDTCBS DS A ADDRESS OF STC TCB 09200002 RCTDWORK DS 0F WORK AREA 09250002 RCTDLMAC DS 0F LIST FORM MACROS 09260002 RCTDCLRL DS 0F CLEAR WORK AREA 09270002 RCTDTIME DS 0F CURRENT TIME 09280002 RCTDTMLH DS F LEFT HALF USED FOR 09290002 DS F CALCULATIONS 09292002 RCTDPRG DS 8F PURGE PARAMETER LIST 09294002 DS 8F 09296002 RCTDRES2 DS H RESERVED FOR FUTURE USE 09296303 * @ZA08100 09296603 RCTDCLST DS H COUNTER FOR ATTN STMT'S 09298003 * IN NESTED CLISTS @ZA08100 09299003 RCTDECBS DS 0F ECB LIST 09400002 RCTDTPTR DS A POINTER TO RCTDTECB 09450002 RCTDWPTR DS A POINTER TO ASCBECB 09500002 RCTDECBE EQU X'80' LAST ECB INDICATOR 09502002 * END OF ECB LIST 09510002 RCTDTECB DS A RCT TERMINATION ECB 09550002 RCTDPOST EQU X'40' TERMINATION ECB'S POST BIT 09560002 RCTDRET@ DS A AREA FOR SAVING INIT/TERM 09600002 * CALLER'S RETURN ADDRESS 09650002 RCTDTAXE DS A ADDRESS OF TAXE QUEUE 10000000 RCTDPIRL DS 0A ADDRESS OF PURGE I/O REQUEST 10400002 DS AL1 10450002 RCTDBASE DS AL3 ANCHOR FOR PURGE I/O 11000002 * REQUESTS 11050002 RCTDRC DS A SAVE AREA FOR INVALID 40050002 * RETURN CODES 40100002 RCTDRTRY DS A RECURSION INDICATOR 40150002 RCTDRTY@ DS A POTENTIAL RETRY ADDRESS 40202002 RCTDSCLR DS 0F CLEAR LIST AREA 40202402 RCTDSLST DS 6F AREA TO CONTAIN LIST FORM OF 40204002 * SDUMP MACRO 40206002 *********************************************************************** 40218002 * 40220002 * RECOVERY FOOTPRINTS 40230002 * 40240002 *********************************************************************** 40242002 RCTDRCTR DS 0F RECOVERY FOOTPRINTS 40250002 RCTDMOID DS XL1 MODULE IDENTIFIER 40300002 RCTDINIT EQU X'80' INITIALIZATION 40350002 RCTDCOMN EQU X'40' COMMON PROCESSING 40400002 RCTDQUIS EQU X'20' QUIESCE 40450002 RCTDREST EQU X'10' RESTORE 40500002 RCTDATTN EQU X'08' ATTENTION EXIT 40550002 RCTDTERM EQU X'04' TERMINATION 40600002 RCTDDUMP EQU X'02' DUMP REQUESTED BY RCT 40650002 * EQU X'01' RESERVED 40660002 RCTDFLGS DS XL3 RECOVERY FLAGS 40700002 *********************************************************************** 40710002 * 40720002 * WHEN RCTDINIT MODULE FLAG IS ON 40750002 * 40760002 *********************************************************************** 40770002 RCTDATTD EQU X'80' DUMP TASK BEING ATTACHED 40800002 RCTDRES3 EQU X'40' RESERVED FOR FUTURE USE 40850002 RCTDATTS EQU X'20' STC BEING ATTACHED 40900002 RCTDBRCP EQU X'10' BRANCHING TO COMMON PROC 40950002 *********************************************************************** 40960002 * 40970002 * WHEN THE RCTDCOMN MODULE FLAG IS ON 41000002 * 41000402 *********************************************************************** 41000802 RCTDWAIT EQU X'80' PREPARING TO ISSUE WAIT 41002002 RCTDLOOP EQU X'40' LOOKING FOR WORK REQUESTS 41010002 RCTDBR2T EQU X'20' BRANCHING TO TERMINATION 41030002 RCTDBR2Q EQU X'10' BRANCHING TO QUIESCE 41040002 RCTDBR2R EQU X'08' BRANCHING TO RESTORE 41042002 RCTDBR2A EQU X'04' BRANCHING TO ATTENTION EXIT 41044002 *********************************************************************** 41046202 * 41046602 * WHEN THE RCTDTERM MODULE FLAG IS ON 41047602 * 41047702 *********************************************************************** 41047802 RCTDRES4 EQU X'80' RESERVED FOR FUTURE USE 41048002 RCTDDETS EQU X'40' STC BEING DETACHED 41048402 RCTDDETD EQU X'20' DUMP BEING DETACHED 41048802 RCTDCANE EQU X'10' CANCEL ESTAE 41049202 *********************************************************************** 41049302 * 41049402 * WHEN THE RCTDATTN MODULE FLAG IS ON 41049502 * 41049602 *********************************************************************** 41052402 RCTDAFPE EQU X'80' ATTENTION SCHEDULING BEGUN 41054402 RCTDAFPC EQU X'40' ATTENTION SCHEDULING ENDED 41054802 RCTDPMSG EQU X'20' THE ATTENTION ERROR MESSAGE 41055202 * SHOULD BE ISSUED 41055602 *********************************************************************** 41061902 * 41063102 * WHEN THE RCTDQUIS MODULE FLAG IS ON 41064302 * 41065502 *********************************************************************** 41066902 * BYTE 1 41068902 RCTDENQ EQU X'80' ENQ INVOKED 41069302 RCTDOLL1 EQU X'40' SETLOCK OBTAIN INVOKED 41070302 * THE 1ST TIME FOR LOCAL LOCK 41070702 RCTDRLL1 EQU X'20' SETLOCK RELEASE INVOKED 41071502 * THE 1ST TIME FOR LOCAL LOCK 41071902 RCTDPSUB EQU X'10' STATUS INVOKED TO STOP 41072702 * SUBTASKS 41073902 RCTDSY12 EQU X'08' SYSEVENT 12 INVOKED 41075102 RCTDSV16 EQU X'04' SVC 16 INVOKED 41076302 RCTDDEQ EQU X'02' DEQ INVOKED 41077502 RCTDPSRB EQU X'01' STATUS INVOKED TO STOP 41078702 * SUBTASKS 41079902 * BYTE2 41081102 RCTDSY13 EQU X'80' SYSEVENT 13 INVOKED 41082302 RCTDSSUB EQU X'40' STATUS INVOKED TO START 41083502 * SUBTASKS 41084702 RCTDSSRB EQU X'20' STATUS INVOKED TO START SRBS 41085902 RCTDSWOT EQU X'10' SWAP-OUT INVOKED 41087102 RCTDQWAI EQU X'08' WAIT INVOKED 41088302 RCTDSLFL EQU X'04' SETLOCK FAILED 41089502 RCTDPRGF EQU X'02' PURGE FAILED 41089902 RCTDSYBC EQU X'01' SRM PROCESSING COMPLETE 41090302 * FOR BRANCH ENTRY 41090402 * BYTE 3 41090702 RCTDSWPF EQU X'80' SWAP-OUT RETURN CODE NON ZERO 41091902 RCTDOLL2 EQU X'40' SETLOCK OBTAIN INVOKED THE 41093102 * 2ND TIME FOR LOCAL LOCK 41093502 RCTDRLL2 EQU X'20' SETLOCK RELEASE INVOKED THE 41094302 * 2ND TIME FOR LOCAL LOCK 41094702 RCTDOGL1 EQU X'10' SETLOCK OBTAIN INVOKED THE 41095502 * 1ST TIME FOR GLOBAL DISPATCHER 41095902 * LOCK 41096302 RCTDRGL1 EQU X'08' SETLOCK RELEASE INVOKED THE 41096702 * 1ST TIME FOR GLOBAL DISPATCHER 41098702 * LOCK 41098802 ********************************************************************* 41099102 * 41100302 * WHEN THE RCTDREST MODULE FLAG IS ON 41101502 * 41102702 *********************************************************************** 41103902 * BYTE 1 41105102 RCTDRS17 EQU X'80' SVC 17 BEING INVOKED 41106302 RCTDOBLK EQU X'40' SETLOCK BEING INVOKED 41107502 RCTDSTAT EQU X'20' STATUS BEING INVOKED 41108702 RCTDRLLK EQU X'10' SETLOCK RELEASE INVOKED 41109902 RCTDSY19 EQU X'08' SYSEVENT 19 INVOKED 41119902 RCTDSY18 EQU X'04' SYSEVENT 18 INVOKED 41129902 RCTDFAIL EQU X'02' SETLOCK FAILED 41139902 RCTDRSLW EQU X'01' RESTORE FOUND ADDRESS SPACE 41141902 * IN LONG WAIT 41143902 * BYTE 2 41145902 RCTDRIOC EQU X'80' I/O PROCESSING COMPLETE 41147902 RCTDWTLB EQU X'40' WAIT LIMIT PROCESSING 41148302 * BEGINNING 41148402 RCTDSTAC EQU X'20' STATUS PROCESSING COMPLETE 41148702 RCTDRLWC EQU X'10' LONG WAIT PROC COMPLETE 41149102 RCTDRLWB EQU X'08' LONG WAIT PROC BEGINNING 41149502 * EQU X'04' RESERVED 41149602 * EQU X'02' RESERVED 41149702 * EQU X'01' RESERVED 41199802 * BYTE 3 41219802 * EQU X'80' RESERVED 41229802 RCTDWTLC EQU X'40' WAIT LIMIT PROCESSING 41239802 * COMPLETE 41241802 RCTDOPTC EQU X'20' SRM PROC COMPLETE 41243802 * 41243902 *********************************************************************** 41244002 * 41244102 * RCT INTERNAL ACTION FLAGS 41260802 * 41270802 *********************************************************************** 41272802 RCTDINTF DS 0F RCT INTERNAL ACTION @YM02646 41273802 * FLAGS @YM02646 41274802 RCTDRCTF DS XL1 RCT'S CROSS @YM02646 41277502 * COMMUNICATIONS @YM02646 41282502 * RECOVERY FLAGS @YM02646 41287502 RCTDRSBO EQU X'80' QUIESCE BACKOUT INVOKED 41294202 RCTDSUBN EQU X'40' WHEN ON (1) INDICATES QUIESCE 41294502 * HAS MADE SUBTASKS 41304502 * NON-DISPATCHABLE 41314502 RCTDPRGR EQU X'20' WHEN ON (1) INDICATES THAT 41324502 * RCT IS ENQUEUED ON PURGE 41334502 * RESOURCE 41336502 RCTDSRBN EQU X'10' SRB'S STOPPED 41338502 RCTDDLCK EQU X'08' QUIESCE HAS DISPATCHER LOCK 41340502 RCTDRES5 DS XL3 RESERVED @YM02646 41344502 RCTDRES1 DS 4F RESERVED 41394502 RCTDEND DS 0D END OF RCTD 41444502 MEND 42000000 **/ 43000000 *%PLSRCTD: ; 44000000 *DCL 1 RCTD BASED(ASXBRCTD), /* RCT DATA AREA */ 45000000 * 2 RCTDBEGN CHAR(0) BDY(DWORD), /* BEGINING OF RCTD */ 45050002 * 2 RCTDISAV(18) FIXED(32), /* INTERNAL SAVE AREA */ 45100002 * 2 RCTDTCBD PTR(31), /* ADDRESS OF DUMP TCB */ 45200002 * 2 RCTDTCBS PTR(31), /* ADDRESS OF STC TCB */ 45250002 * 2 RCTDWORK CHAR(72)BDY(WORD), /* WORK AREA */ 45300002 * 4 RCTDLMAC CHAR(60)BDY(WORD), /* LIST FORM MACROS */ 45310002 * 6 RCTDCLRL BIT(480)BDY(WORD),/* CLEAR WORK AREA */ 45320002 * 8 RCTDTIME BIT(64)BDY(WORD),/* CURRENT TIME */ 45330002 * 10 RCTDTMLH FIXED(32), /* LEFT HALF USED */ 45340002 * /* FOR CALCULATIONS */ 45342002 * 10 * FIXED(32), /* RESERVED */ 45344002 * 8 RCTDPRG CHAR(32) BDY(WORD), /* PURGE PARAMETER LIST */ 45346002 * 2 RCTDRES2 PTR(16), /* RESERVED FOR FUTURE USE */ 45350003 * 2 RCTDCLST FIXED(16), /* COUNT OF CLIST ATTN STMT'S 45380003 WITHIN NESTED CLISTS @ZA08100*/ 45410003 * 2 RCTDECBS, /* ECB LIST */ 45500002 * 4 RCTDTPTR PTR(31), /* POINTER TO RCTDTECB */ 45600002 * 4 RCTDWPTR PTR(32), /* POINTER TO ASCBECB */ 45650002 * 6 RCTDECBE BIT(1), /* LAST ECB INDICATOR */ 45660002 * /* END OF ECB LIST */ 45670002 * 2 RCTDTECB PTR(31), /* RCT TERMINATION ECB */ 45700002 * 4 * BIT(1), /* UNUSED */ 45710002 * 4 RCTDPOST BIT(1), /* TERMINATION ECB'S POST BIT */ 45720002 * 4 * BIT(30), /* UNUSED */ 45730002 * 2 RCTDRET@ PTR(31), /* AREA FOR SAVING INIT/TERM */ 45780002 * /* CALLER'S RETURN ADDRESS */ 45792002 * 2 RCTDTAXE PTR(31), /* ADDRESS OF TAXE QUEUE */ 46000000 * 2 RCTDPIRL PTR(31), /* ADDRESS OF PURGE I/O REQ */ 47000000 * 4 * CHAR(1), /* RESERVED */ 47050002 * 4 RCTDBASE PTR(24), /* ANCHOR FOR PURGE I/O */ 47100002 * /* REQUESTS */ 47150002 * 2 RCTDRC PTR(31), /* SAVE AREA FOR INVALID */ 76050002 * /* RETURN CODES */ 76100002 * 2 RCTDRTRY PTR(31), /* RECURSION INDICATOR */ 76150002 * 2 RCTDRTY@ PTR(31), /* POTENTIAL RETRY ADDRESS */ 76170002 * 2 RCTDSLST CHAR(24), /* AREA TO CONTAIN LIST FORM */ 76180002 * /* OF SDUMP MACRO */ 76190002 * 4 RCTDSCLR BIT(192), /* CLEAR LIST AREA */ 76202002 */********************************************************************/ 76210002 */* */ 76220002 */* RECOVERY FOOTPRINTS */ 76232002 */* */ 76240002 */********************************************************************/ 76242002 * 2 RCTDRCTR BIT(32), /* RECOVERY FOOTPRINTS */ 76250002 * 4 RCTDMOID BIT(8), /* MODULE IDENTIFIER */ 76300002 * 6 RCTDINIT BIT(1), /* INITIALIZATION */ 76400002 * 6 RCTDCOMN BIT(1), /* COMMON PROCESSING */ 76450002 * 6 RCTDQUIS BIT(1), /* QUIESCE */ 76500002 * 6 RCTDREST BIT(1), /* RESTORE */ 76550002 * 6 RCTDATTN BIT(1), /* ATTENTION EXIT */ 76600002 * 6 RCTDTERM BIT(1), /* TERMINATION */ 76650002 * 6 RCTDDUMP BIT(1), /* DUMP REQUESTED BY RCT */ 76700002 * 6 * BIT(1), /* RESERVED */ 76710002 * 4 RCTDFLGS BIT(24), /* RECOVERY FLAGS */ 76750002 */********************************************************************/ 76760002 */* */ 76770002 */* WHEN RCTDINIT MODULE FLAG IS ON */ 76800002 */* */ 76802002 */********************************************************************/ 76810002 * 6 RCTDATTD BIT(1), /* DUMP TASK BEING ATTACHED */ 76850002 * 6 RCTDRES3 BIT(1), /* RESERVED FOR FUTURE USE */ 76900002 * 6 RCTDATTS BIT(1), /* STC BEING ATTACHED */ 76950002 * 6 RCTDBRCP BIT(1), /* BRANCHING TO COMMON PROC */ 77000002 * 6 * BIT(20), /* RESERVED */ 77010002 */********************************************************************/ 77010102 */* */ 77010202 */* RCT INTERNAL ACTION FLAGS */ 77010302 */* */ 77011402 */********************************************************************/ 77013402 * 2 RCTDINTF BIT(32), /* RCT INTERNAL @YM02646*/ 77015902 * /* ACTION FLAGS @YM02646*/ 77016102 * 4 RCTDRCTF BIT(8), /* RCT'S CROSS @YM02646*/ 77016302 * /* COMMUNICATIONS @YM02646*/ 77016502 * /* RECOVERY FLAGS @YM02646*/ 77017002 * 6 RCTDRSBO BIT(1), /* QUIESCE BACKOUT @YM02646*/ 77017702 * /* INVOKED @YM02646*/ 77018402 * 6 RCTDSUBN BIT(1), /* RCT'S SUBTASKS @YM02646*/ 77019202 * /* STOPPED @YM02646*/ 77019702 * 6 RCTDPRGR BIT(1), /* RCT OWNS PURGE @YM02646*/ 77020302 * /* RESOURCE @YM02646*/ 77020802 * 6 RCTDSRBN BIT(1), /* SRB'S STOPPED @YM02646*/ 77021402 * 6 RCTDDLCK BIT(1), /* QUIESCE HAS @YM02646*/ 77022102 * /* DISPATCHER LOCK @YM02646*/ 77022802 * 6 * BIT(3), /* RESERVED @YM02646*/ 77023602 * 4 RCTDRES5 BIT(24), /* RESERVED @YM02646*/ 77024102 * 2 RCTDRES1 CHAR(16), /* RESERVED */ 77024702 * 2 RCTDEND CHAR(0) BDY(DWORD); /* END OF RCTD */ 77025802 */********************************************************************/ 77026902 */* */ 77028002 */* WHEN THE RCTDCOMMON MODULE FLAG IS ON */ 77029102 */* */ 77031602 */********************************************************************/ 77034402 *DCL 1 * BIT(24) DEF(RCTDFLGS), 77037202 * 6 RCTDWAIT BIT(1), /* PREPARING TO ISSUE WAIT */ 77040002 * 6 RCTDLOOP BIT(1), /* LOOKING FOR WORK REQUESTS */ 77042002 * 6 RCTDBR2T BIT(1), /* BRANCHING TO TERMINATION */ 77044002 * 6 RCTDBR2Q BIT(1), /* BRANCHING TO QUIESCE */ 77046002 * 6 RCTDBR2R BIT(1), /* BRANCHING TO RESTORE */ 77048002 * 6 RCTDBR2A BIT(1), /* BRANCHING TO ATTENTION EXIT*/ 77048402 * 6 * BIT(18); /* RESERVED */ 77048802 */********************************************************************/ 77048902 */* */ 77049002 */* WHEN THE RCTDTERM FLAG IS ON */ 77049202 */* */ 77049402 */********************************************************************/ 77049502 *DCL 1 * BIT(24) DEF(RCTDFLGS), 77049602 * 6 RCTDRES4 BIT(1), /* RESERVED FOR FUTURE USE */ 77049702 * 6 RCTDDETS BIT(1), /* STC BEING DETACHED */ 77049802 * 6 RCTDDETD BIT(1), /* DUMP BEING DETACHED */ 77050002 * 6 RCTDCANE BIT(1), /* CANCEL ESTAE */ 77099902 * 6 * BIT(20); /* RESERVED */ 77109902 */********************************************************************/ 77110002 */* */ 77110102 */* WHEN RCTDATTN MODULE FLAG IS ON */ 77110202 */* */ 77110902 */********************************************************************/ 77111302 *DCL 1 * BIT(24) DEF(RCTDFLGS), 77112402 * 6 RCTDAFPE BIT(1), /* ATTENTION SCHEDULING BEGUN */ 77113302 * 6 RCTDAFPC BIT(1), /* ATTENTION SCHEDULING ENDED */ 77115302 * 6 RCTDPMSG BIT(1), /* THE ATTENTION ERROR MESSAGE*/ 77116902 * /* SHOULD BE ISSUED */ 77118902 * 6 * BIT(21); /* RESERVED */ 77121802 */********************************************************************/ 77123402 */* */ 77125002 */* WHEN THE RCTDQUIS FLAG IS ON */ 77126602 */* */ 77128202 */********************************************************************/ 77129802 *DCL 1 * BIT(24) DEF(RCTDFLGS), 77131402 */* BYTE 1 */ 77133002 * 6 RCTDENQ BIT(1), /* ENQ INVOKED */ 77134602 * 6 RCTDOLL1 BIT(1), /* SETLOCK OBTAIN INVOKED */ 77136202 * /* THE 1ST TIME FOR LOCAL LOCK*/ 77136602 * 6 RCTDRLL1 BIT(1), /* SETLOCK RELEASE INVOKED */ 77137802 * /* THE 1ST TIME FOR LOCAL LOCK*/ 77138202 * 6 RCTDPSUB BIT(1), /* STATUS INVOKED TO STOP */ 77139402 * /* SUBTASKS */ 77141002 * 6 RCTDSY12 BIT(1), /* SYSEVENT 12 INVOKED */ 77142602 * 6 RCTDSV16 BIT(1), /* SVC 16 INVOKED */ 77144202 * 6 RCTDDEQ BIT(1), /* DEQ INVOKED */ 77145802 * 6 RCTDPSRB BIT(1), /* STATUS INVOKED TO STOP SRBS*/ 77147402 */* BYTE 2 */ 77149002 * 6 RCTDSY13 BIT(1), /* SYSEVENT 13 INVOKED */ 77150602 * 6 RCTDSSUB BIT(1), /* STATUS INVOKED TO START */ 77152202 * /* SUBTASKS */ 77153802 * 6 RCTDSSRB BIT(1), /* STATUS INVOKED TO START SRB*/ 77155402 * 6 RCTDSWOT BIT(1), /* SWAP-OUT INVOKED */ 77157002 * 6 RCTDQWAI BIT(1), /* WAIT INVOKED */ 77158602 * 6 RCTDSLFL BIT(1), /* SETLOCK FAILED */ 77160202 * 6 RCTDPRGF BIT(1), /* PURGE FAILED */ 77160602 * 6 RCTDSYBC BIT(1), /* SRM PROCESSING */ 77161802 * /* COMPLETE FOR BRANCH ENTRY */ 77162202 */* BYTE 3 */ 77163402 * 6 RCTDSWPF BIT(1), /* SWAP-OUT RETURN CODE */ 77165002 * /* NON ZERO */ 77166602 * 6 RCTDOLL2 BIT(1), /* SETLOCK OBTAIN INVOKED THE */ 77168202 * /* 2ND TIME FOR THE LOCAL LOCK*/ 77168602 * 6 RCTDRLL2 BIT(1), /* SETLOCK RELEASE INVOKED THE*/ 77169802 * /* 2ND TIME FOR THE LOCAL LOCK*/ 77170202 * 6 RCTDOGL1 BIT(1), /* SETLOCK OBTAIN INVOKED THE */ 77171402 * /* 1ST TIME FOR THE GLOBAL */ 77171802 * /* DISPATCHER LOCK */ 77172202 * 6 RCTDRGL1 BIT(1), /* SETLOCK RELEASE INVOKED THE*/ 77173002 * /* 1ST TIME FOR THE GLOBAL */ 77174602 * /* DISPATCHER LOCK */ 77176602 * 6 * BIT(3); /* RESERVED */ 77177802 */********************************************************************/ 77179402 */* */ 77181002 */* WHEN THE RCTDREST FLAG IS ON */ 77182602 */* */ 77184202 */********************************************************************/ 77185802 *DCL 1 * BIT(24) DEF(RCTDFLGS), 77187402 */* BYTE 1 */ 77189002 * 6 RCTDRS17 BIT(1), /* SVC 17 BEING INVOKED */ 77190602 * 6 RCTDOBLK BIT(1), /* SETLOCK OBTAIN INVOKED */ 77192202 * 6 RCTDSTAT BIT(1), /* STATUS BEING INVOKED */ 77193802 * 6 RCTDRLLK BIT(1), /* SETLOCK RELEASE INVOKED */ 77195402 * 6 RCTDSY19 BIT(1), /* SYSEVENT 19 INVOKED */ 77197002 * 6 RCTDSY18 BIT(1), /* SYSEVENT 18 INVOKED */ 77198602 * 6 RCTDFAIL BIT(1), /* SETLOCK FAILED */ 77200202 * 6 RCTDRSLW BIT(1), /* RESTORE FOUND ADDRESS SPACE*/ 77201802 * /* IN LONG WAIT */ 77203402 */* BYTE 2 */ 77205002 * 6 RCTDRIOC BIT(1), /* I/O PROCESSING COMPLETE */ 77206602 * 6 RCTDWTLB BIT(1), /* WAIT LIMIT PROCESSING */ 77208202 * /* BEGINNING */ 77208602 * 6 RCTDSTAC BIT(1), /* STATUS PROCESSING COMPLETE */ 77209802 * 6 RCTDRLWC BIT(1), /* LONG WAIT PROC COMPLETE */ 77219802 * 6 RCTDRLWB BIT(1), /* LONG WAIT PROC BEGINNING */ 77239802 * 6 * BIT(3), /* RESERVED */ 77241802 */* BYTE 3 */ 77243802 * 6 * BIT(1), /* RESERVED */ 77249402 * 6 RCTDWTLC BIT(1), /* WAIT LIMIT PROCESSIMG */ 77249502 * /* COMPLETE */ 77249602 * 6 RCTDOPTC BIT(1), /* SRM PROC COMPLETE */ 77249702 * 6 * BIT(5); /* RESERVED */ 77299702