The CL8 left justified padded with blanks program name Thank
Sent from my iPhone > On Jan 27, 2014, at 7:32 AM, Walt Farrell <[email protected]> wrote: > > 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
