Thanks
> On Mar 19, 2018, at 9:38 PM, Charles Mills <[email protected]> wrote: > > If the WAIT bit, x'80', is on, then you need to do a real POST. Merely > turning on x'40' will not get a task out of a wait state. That is what you > are seeing I believe. > > If the x'80' bit is on, then do a POST, and that needs to be a POST with ASCB. > > You must use CS so that the 80 does not get turned on after you check it but > before you set the 40. > > Charles > > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of Joe Reichman > Sent: Monday, March 19, 2018 3:41 PM > To: [email protected] > Subject: Re: Using Pseudo Post > > I am using Quick Post Here is the code > > L R4,RECOV#ECB > L R8,RECOV#ECB Get ECB Address > L R4,0(,R4) get ecb > N R4,=X'3FFFFFFF' Turn of wait post bit > ICM R7,B'1000',=X'40' Insret Post bit > LA R11,5 try 5 times > > CSLOOP DS 0H > CS R4,R7,0(R8) > BZ POSTDONE > STIMER WAIT,DINTVL=TWOSECS WAIT A COUPLE > WTO 'ERROR POSTING...' > BCT R11,CSLOOP > Sent from Mail for Windows 10 > > From: Charles Mills > Sent: Monday, March 19, 2018 6:36 PM > To: [email protected] > Subject: Re: Using Pseudo Post > > Did you code ASCB= (correctly). You need that even if the ECB is in common. > > Charles > > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of Joe Reichman > Sent: Monday, March 19, 2018 3:25 PM > To: [email protected] > Subject: Re: Using Pseudo Post > > The ECB is in Fixed CSA running under a different Address space for some > reason even after posted the task is still not dispatched I know this because > I have placed a WTO right after > > I am running under TESTAUTH and can observe the ECB before with the 80 bit > and the RB and after with 40 bit using TASID with the storage view function > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > [email protected] with the message: INFO IBM-MAIN > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
