🚀 go-pugleaf

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