First
TSOLIB ACTIVATE DATASET('IBMUSER.TEST.LOAD')
READY
Then
BROWSE IBMUSER.TEST.LOAD Browse
substituted
Command ===> Scroll ===>
PAGE
Name Prompt Alias-of Size TTR AC AM
RM
. DACEE 00001310 00091E 01 31
24
**End**
Look If its in the task lib
L R15,X'21C'
L R7,TCBJLB-TCB(,R15)
FIND (R7),AA.NAME,D
LR 1,R7
LA 0,AA.NAME
LTR 1,1
BNZ *+16
LA 15,8
LA 0,16
B *+8
LCR 1,1
SVC 18
LTR R15,R15
BNZ STEP_LIB
The listtcb proves that I have the right TCB and TCBJLB values
TESTAUTH
AT +8E6
TESTAUTH
GO
IKJ57024I AT +8E6
TESTAUTH
L 15R
15R 008B1478
TESTAUTH
AT +8EA
TESTAUTH
GO
IKJ57024I AT +8EA
TESTAUTH
L 7R
7R 0002EF60
TESTAUTH
IKJ57652I TCB LOCATED AT 8B1478
RBP PIE DEB TIO CMP TRN MSS PKF
008FD358 00000000 00000000 008D2FD0 00000000 448B8A80 7F529700 80
FLGS LMP DSP LLS JLB JPQ
0000000401 FF FE 008B1668 0002EF60 00000000
l 3r?+10 l(48) xc
00065BB8. C4C1C3C5 C5404040 00091E00 052C0009 *DACEE ........*
23000000 0000C2E2 00131013 10000000 *......BS........*
00065BD8. 88020101 01000000 00000000 00000000 *h...............*
And I get rc 4 from FIND
15R 00000004
TESTAUTH
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of Binyamin Dissen
Sent: Sunday, January 26, 2014 11:50 AM
To: [email protected]
Subject: Re: With What macros Can the DCB specified by TCBJLB be used for
That would suggest that you did not do it properly.
I would suggest taking an abend after the FIND or BLDL and confirm that the
addresses are what you expect.Show all your code.
On Sun, 26 Jan 2014 10:32:55 -0500 MichealButz <[email protected]>
wrote:
:>Hi,
:>
:>
:>
:>I have tried a whole slew of macros with DCB specified by TCBJLB and none
:>give a clean return code from OPEN, CLOSE FIND,BLDL :> :> :> :>The only
one thing I was successful in using it was to get the offset within :>the
TIOT of that entry :> :> :> :>Thanks :> :>
:>----------------------------------------------------------------------
:>For IBM-MAIN subscribe / signoff / archive access instructions, :>send
email to [email protected] with the message: INFO IBM-MAIN
--
Binyamin Dissen <[email protected]> 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 [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
