I have used the CSR table before, it's where the name-token services pointers are (cool service by the way, see IEANTxx in Auth Asm Services).

This is working code that finds it on post-OS390 systems. I have cut-n-pasted this little segment into lots of routines. CVTCSRT = CVT+544.

  l     r2,cvtptr                     |CVTPTR=absolute x'10'
  using cvtmap,r2                     |
* *------------------------------------------------------------------*
* * Sequence to find in-storage addresses of Name/Token routines.
* * Refer to current Assembler Services Reference.
* *------------------------------------------------------------------*
  l     r15,cvtcsrt                   | Callable Services table
  l     r15,x'14'(r15,0)              | Sorry, no DSECT.
  l     r1,x'08'(r15,0)               |Addr of IEANTRT
  st    r1,pwa_ieantrt                | Save for use later
  drop  r2                            | Done with CVT base

I think the doc is correct.

On 11/18/2013 2:36 PM, [email protected] wrote:
Tom Marchant and others pointed out
I don't have an answer to your questions, but I think you mean
     LA   15,16


And I agree, However From
z/OS UNIX System Services Programming: Assembler Callable Services Reference
SA23-2281-00


The following is an example of code that specifies the offset. The example 
assumes that register 1 is set up with the address of the parameter list. 
Replace offset with the appropriate value from the following offset table.
L     15,16           CVT - common vector table
L     15,544(15)      CSRTABLE
L     15,24(15)       CSR slot
L     15,offset(15)   Address of the service
BALR  14,15           Branch and link

I suspect the documentation is wrong


---------- Original Message ----------
From: Tom Marchant <[email protected]>
To: [email protected]
Subject: Re: USS Callable Assembler Services
Date: Mon, 18 Nov 2013 12:47:43 -0600

On Mon, 18 Nov 2013 17:20:34 GMT, [email protected] wrote:

L     15,16           CVT - communication vector table
I don't have an answer to your questions, but I think you mean
     LA   15,16


--
-- Jim Blalock
   z/OS Support Manager
   CCIT, Clemson University
   (864) 656-3680

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to