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