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
