Thanks. Happy Hanukkah and merry Christmas from Israel to all. ITschak
נשלח מה-iPad שלי ב-23 בדצמ׳ 2016, בשעה 17:43, scott Ford <idfli...@gmail.com> כתב/ה: > Itschak, > > Wow, very interesting. I will have to experiment on my test machine. > > Scott. > > P.S. Happy Hanukkah > > On Fri, Dec 23, 2016 at 10:17 AM, Itschak Mugzach <imugz...@gmail.com> > wrote: > >> You can, but pairs are located in private area and shared by tasks in >> said. To place them in common you need to be authorized, key zero. >> >> ITschak >> >> נשלח מה-iPad שלי >> >> ב-23 בדצמ׳ 2016, בשעה 17:12, scott Ford <idfli...@gmail.com> כתב/ה: >> >>> Frank, >>> >>> Really good question. We initially call an Assembler routine to do a >>> getmain or 'storage obtain' for xxxxK's of storage. >>> The routine returns us the beginning storage address, where we place a >>> token. The storage we obtain is persistant, SP231 . >>> >>> I didnt know you could call IEANTCR in Cobol.. >>> >>> Regards, >>> Scott >>> >>> On Thu, Dec 22, 2016 at 7:02 PM, Frank Swarbrick < >>> frank.swarbr...@outlook.com> wrote: >>> >>>> Do you really need this assembler routine in order for COBOL to call the >>>> IEANTCR callable routine? I call it directly from COBOL: >>>> >>>> CALL 'IEANTCR' USING NTA-LEVEL NTA-NAME NTA-TOKEN >>>> NTA-NOPERSIST NTA-RC. >>>> with the following working storage: >>>> >>>> 05 NTA-LEVEL COMP-5 PICTURE S9(8). >>>> 05 NTA-NAME DISPLAY PICTURE X(16). >>>> 05 NTA-TOKEN DISPLAY PICTURE X(16). >>>> 05 REDEFINES NTA-TOKEN. >>>> 10 NTA-TOKEN-PTR POINTER. >>>> 10 DISPLAY PICTURE X(12). >>>> 05 NTA-NOPERSIST COMP-5 PICTURE S9(8). >>>> 05 NTA-RC COMP-5 PICTURE S9(8). >>>> >>>> >>>> Frank >>>> >>>> ________________________________ >>>> From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on >> behalf >>>> of scott Ford <idfli...@gmail.com> >>>> Sent: Thursday, December 22, 2016 8:32 AM >>>> To: IBM-MAIN@LISTSERV.UA.EDU >>>> Subject: Re: Do the Name/Token Pair callable services need R13 to point >> to >>>> save area? >>>> >>>> Peter: >>>> >>>> Heres what we do we call it from Cobol.. >>>> >>>> We pass in the address of where storage begins and where we want to >> place >>>> the token >>>> >>>> SAVE (14,12),,SETTOKEN >>>> LR R12,R15 R12 IS BASE REG >>>> USING SETTOKEN,R12 >>>> L R4,0(R1) 1ST PARM = WORK AREA >>>> ST R4,8(R13) SAVE AREA FORWARD LINK >>>> ST R13,4(R4) SAVE AREA BACK LINK >>>> LR R13,R4 WORK AREA IS NOW SAVE AREA + >>>> USING WORKAREA,R13 SAVEAREA AND LOCAL VARS >>>> >>>> LA R1,PARMS POINT R1 -> PARMS >>>> CALL IEANTCR CREATE NAME/TOKEN >>>> >>>> *------------------------------------------------------------- >>>> L R13,4(R13) CALLER SAVE AREA >>>> RETURN (14,12),RC=(15) >>>> >>>> WORKAREA DSECT >>>> SAVEAREA DS 18F >>>> *------------------------------------------------------------- >>>> PARMS DS 5F >>>> >>>> >>>> HTH >>>> >>>> Regards, >>>> Scott >>>> >>>>> On Thu, Dec 22, 2016 at 10:27 AM, scott Ford <idfli...@gmail.com> >> wrote: >>>>> >>>>> Peter, >>>>> >>>>> We use tokens all the time, I will look >>>>> >>>>> Scott >>>>> >>>>>> On Thu, Dec 22, 2016 at 9:58 AM, Greg Dyck <gregd...@pobox.com> >> wrote: >>>>>> >>>>>>> On 12/22/2016 1:47 AM, Peter Hunkeler wrote: >>>>>>> >>>>>>> When I get control, R13 points to a save area, which my code will >> use, >>>>>>> but I do not yet have storage for another save area before calling >>>> IEANTRT, >>>>>>> so I cannot change R13. >>>>>>> >>>>>> >>>>>> The Name Token Retrieve service uses BAKR to save and restore the >>>>>> caller's registers. You can do whatever you wish with the caller's >> save >>>>>> area pointed to by R13, including building the parameter list for the >>>>>> request in it. >>>>>> >>>>>> Regards, >>>>>> Greg >>>>>> >>>>>> >>>>>> ------------------------------------------------------------ >> ---------- >>>>>> 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 >>>> >>>> ---------------------------------------------------------------------- >>>> 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 >> >> ---------------------------------------------------------------------- >> 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN