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:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Binyamin Dissen Sent: Sunday, January 26, 2014 11:50 AM To: IBM-MAIN@LISTSERV.UA.EDU 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 <michealb...@optonline.net> 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Binyamin Dissen <bdis...@dissensoftware.com> 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN