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
