Good thought but alas... I added the SYSSTATE macro and tested again...
1319 SYSSTATE AMODE64=YES
1320+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P AMODE64=YES A
+ VL=2 OSREL=00000000
1321 *C POST STIMECB
1322 POST STIMECB,X'40' SET ATTN/TIMER ECB
1323+* MACDATE 03/11/11
1325+ LA 0,X'40'(0,0) . SET POST CODE
1326+ LA 1,STIMECB . LOAD ECB ADDRESS
1327+ SVC 2 . ISSUE THE POST SVC
ABEND S602-0!
However... this started me thinking... maybe the IRB is invoked in AMODE 31...
070C1000 813FABEA.
+ SAM64
+* SYSSTATE AMODE64=YES
+* THE VALUE OF SYSSTATE IS
+ VL=2 OSREL=0000000
+SE60081 DS 0H
*C POST STIMECB
POST STIMECB,X'40'
+* MACDATE 03/11/11
+ LA 0,X'40'(0,0)
+ LA 1,STIMECB
+ SVC 2
ABEND S602-0 PSW AT TIME OF ERROR 070C1000 813FABEA
Thanks for the idea, but did not seem to work.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
