🚀 go-pugleaf

Some other points.

Are you writing a RENT program or not ? If yes you should use a different coding of IEANTRT (I think this is the relocatable error you got).

The S0C4-11 could be a RENT pgm modifying a static area (during IEANTRT for instance).

As Per wrote, look at this:

13.1.1 Environment

The requirements for the caller are:




   Minimum authorization:     Problem state and any PSW key
   Dispatchable unit mode:    Task
   Cross memory mode:         Any PASN, any HASN, any SASN
   AMODE:                     31-bit
   ASC mode:                  Primary or access register (AR)
   Interrupt status:          Enabled for I/O and external interrupts
   Locks:                     The caller can hold a local, CML, or CMS lock;
                              however, no locks are required.
   Control parameters:        The parameter list and all parameters must reside
                              in the caller's primary address space.

Hope this helps.

Best regards.

P.S. If you need I could find out a sample (written and ran in my site) and send to you.

-----Messaggio originale-----
Da: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] Per conto di Per Lofgren
Inviato: martedì 20 settembre 2005 8.53
A: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Oggetto: Re: IEANTRT troubles

Hello Ing

Do you get the S0C4 in the call to IEANTRT or when using the returned address ?

What is your Amode when calling IEANTRT ?

Per

-----Original Message-----
From: IBM Mainframe Assembler List
[mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU]On Behalf Of Ing usar
Sent: den 19 september 2005 21:29
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: IEANTRT troubles


Hello:

I have a service provider that places some data in SP 227 as follows:

GETMAIN RU,LV=splen,SP=227,BRANCH=(YES,GLOBAL)

This is page fixed and later puts the address of the above location in a N/T
pair:

CALL  IEANTCR,(LLEVEL,LNAME,LTOKEN,LPERSOPT,LRETCODE)

 LLEVEL         DC    A(IEANT_SYSTEM_LEVEL)
 LPERSOPT       DC    A(IEANT_NOPERSIST)
 LNAME          DC    CL16'SP00001'
 LRETCODE       DS    F
 LTOKEN         DS    0XL16
 DS1ADDR        DS    A
                DS    XL12

Once after this the service provider goes on a long wait. The service provider is set non swappable.


In the client I am trying to obtain the address through:

CALL IEANTRT,(LLEVEL,LNAME,TOKEN,RETCODE)

Initially I defined all parms in absolute storage. But I got an 0C4-11. Then later I placed just LLEVEL & LNAME in absolute storage while token & retcode are defined through a DSECT mapping to a storage obtained as follows:

GETMAIN  R,LV=LOCMLEN,SP=0

But the assembly fails with:

000080 00000000                      67+         DC    A(TOKEN)              PR
** ASMA032E Relocatable value found when absolute value required - TOKEN
** ASMA435I Record 176 in SYS1.MACLIB(IHBOPLTX)

I am at a loss to understand where I am going wrong. Any pointers will be deeply appreciated

Thanks

Ing