I was thinking about this last night. Exactly as Bin says! It's not like when you use a CS for buffer control or to update a counter: you don't need a loop on the CS. You get one of two outcomes from the CS:
- The CC is 0, in which case the task is not waiting and you are all done here. - The CC is not 0, in which case the task is waiting and you need a real POST. Isn't the example in Assembler Services Guide clear on the general flow of a fast POST? Charles -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Binyamin Dissen Sent: Tuesday, March 20, 2018 2:38 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Using Pseudo Post Logic issues. If the wait bit is on you will need a real post. Your CS will set the post bit but not wake up the task. If the CS fails because the post bit is on, it is perfectly fine and no need to retry. On Mon, 19 Mar 2018 18:40:59 -0400 Joe Reichman <reichman...@gmail.com> wrote: :>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: IBM-MAIN@LISTSERV.UA.EDU :>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:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joe Reichman :>Sent: Monday, March 19, 2018 3:25 PM :>To: IBM-MAIN@LISTSERV.UA.EDU :>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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN :> :> :>---------------------------------------------------------------------- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Binyamin Dissen <bdis...@dissensoftware.com> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
