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 <[email protected]> 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 <[email protected]> כתב/ה: > > > 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 < > > [email protected]> 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 <[email protected]> on > behalf > >> of scott Ford <[email protected]> > >> Sent: Thursday, December 22, 2016 8:32 AM > >> To: [email protected] > >> 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 <[email protected]> > wrote: > >>> > >>> Peter, > >>> > >>> We use tokens all the time, I will look > >>> > >>> Scott > >>> > >>>> On Thu, Dec 22, 2016 at 9:58 AM, Greg Dyck <[email protected]> > 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 [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 > > ---------------------------------------------------------------------- > 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
