What's in AA.NAME at the time of the FIND? You didn't show us that. -- Walt
On Sun, 26 Jan 2014 15:58:10 -0500, MichealButz <[email protected]> wrote: >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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
