I see multiple issues with that code. 1. Turning off bits 0 and 1 of R4 will prevent an equal compare when you want one
2. You aren't initializing bits 8-31 of the post code in R7 3. If the wait bit is on then you need a real post 4. I don't see the point of the STIMER and WTO -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> on behalf of Joe Reichman <reichman...@gmail.com> Sent: Monday, March 19, 2018 6:40 PM To: IBM-MAIN@listserv.ua.edu 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: 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
