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
