Hi I am posting my code in addition to some displays I captured as I am getting the feeling my IRB was not dispatched for some reason
So here is the code in my STIMER routine from where I issue the SCHEDIRB
pointing to the IQE generated by the CIRB
STIMER DS 0D
STM R14,R12,12(R13)
*
LR R2,R15
DROP R3
USING STIMER,R2
LR R10,R13
L R13,4(,R1) Get Save area
DROP R13
USING TIMERSVE,R13
ST R10,4(R13)
*
LA R5,IRBPTR
O R5,=X'80000000'
ST R5,IRBADD
* LA R5,IRBADD
*
L R4,PSATOLD
USING TCB,R4
L R4,TCBJSTCB
*
*
SETLOCK
OBTAIN,TYPE=LOCAL,MODE=UNCOND,REGS=SAVE
*
CIRB EP=(R5),
X
SVAREA=YES,
X
RETIQE=YES,
X
STAB=DYN,
X
WKAREA=255,
X
BRANCH=YES,
X
AMODE=DEFINED
*
USING RBBASIC,R1
L R5,RBNEXAV Get IQE
Pointer
USING IQESECT,R5
ST R5,IQEADD
ST R1,IQEIRB
LA R15,PLIST
ST R15,IQEPARAM
ST R4,IQETCB
*
*
*
SCHEDIRB IQEPTR=IQEADD,
X
MF=(E,IRBLST)
*
SETLOCK RELEASE,TYPE=LOCAL,REGS=SAVE
*
*
L R13,4(,R13)
XR R15,R15
L R14,12(R13)
LM R0,R12,20(R13)
BR R14
DROP R13
USING WORKAREA,R13
DROP R2
IRBPTR DS 0D
*
*
STM R14,R12,12(R13)
LR R5,R15
USING IRBPTR,R5
LR R10,R1 Save
Plist pointer
LOAD EP=GETVECT
ST R0,0(R10) Store
Pointer
XR R15,R15
L R14,12(R13)
LM R0,R12,20(R13)
BR R14
DROP R5
Here is a SJ display from SDSF to can see my IRB
Right before IKJEFT01
NP TCB RB Type Program
Storage FreeStor CPU-Ti
008FD6A0 TCB
839680 134584 0.0
008FD6A0 008FFF98 PRB IEAVAR00
0.0
008FED90 TCB
716800 94120 0.6
008FED90 008E7ED8 PRB IEFSD060
0.0
008FED90 008FEC80 PRB IEESB605
0.0
008E76D0 TCB
794624 101152 0.0
008E76D0 008AA7A8 IRB
0.0
008E76D0 008FEA90 PRB IKJEFT01
0.0
008B8E88 TCB
12288 5592 0.0
008B8E88 008E7048 PRB IKJEFT02
0.0
008B8BF8 TCB
49152 31688 12.1
008B8BF8 008E7298 PRB TESTAUTH
0.0
008B8968 TCB
61440 31432 1.0
008B8968 008FF9F0 SVRB
0.0
-VIEW *SDSF
Here using LOOK is a display of the IRB Address
8AA7A8 don't know Why RBEPA has bit 0 a 0 looking at the RBOPSW it's a 0
OOK COMMAND - DISPLAY VIRTUAL MEMORY CURRENT
ASID= 0013
ENTER CMD -
LAST CMD - 8AA7A8
00000000_008AA7A8 >000077B8 00000000 010F404E
9FF01E81 *>.......... +.0.a*
00000000_008AA7B8 078D0000 9FF01E80 008AA80C
008FEA90 *.....0....y.....*
00000000_008AA7C8 00000001 FF735894 852CAB40
052CBB3F *.......me.. ....*
00000000_008AA7D8 808CACD0 00000000 008CACA8
008CACD0 *...........y....*
00000000_008AA7E8 008CACD8 00000000 008C9AB8
052CCB3E *...Q............*
00000000_008AA7F8 008CA2C0 008CA2C0 852CB72C
808FEA90 *..s...s.e.......*
00000000_008AA808 008AA80C 00000000 00026A6C
008AA7A8 *..y........%..xy*
00000000_008AA818 008E76D0 00000000 00000000
00000000 *................*
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
