Article View: bit.listserv.asm370
Article #364Re: IEANTRT troubles
From: Per Lofgren
Date: Tue, 20 Sep 2005 06:53
Date: Tue, 20 Sep 2005 06:53
61 lines
3628 bytes
3628 bytes
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
Technical Details
Message-ID:
<8B27F717E7B0A5499ADD0534F21B3EDF196B49@fid1ms09.fid1.root4.net>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!wns13feed!worldnet.att.net!207.217.77.102!elnk-nf2-pas!elnk-pas-nf1!newsfeed.earthlink.net!sn-xit-03!sn-xit-08!sn-xit-14!supernews.com!149.173.6.116.MISMATCH!foggy!vm.sas.com!consult.nordea.com!per.lofgrenShow Full Headers
Complete Article Headers
X-Google-Thread: fcdcb,927eeb516005eb2d
X-Google-Attributes: gidfcdcb,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!wns13feed!worldnet.att.net!207.217.77.102!elnk-nf2-pas!elnk-pas-nf1!newsfeed.earthlink.net!sn-xit-03!sn-xit-08!sn-xit-14!supernews.com!149.173.6.116.MISMATCH!foggy!vm.sas.com!consult.nordea.com!per.lofgren
From: Per Lofgren <per.lofgren@consult.nordea.com>
Newsgroups: bit.listserv.asm370
Subject: Re: IEANTRT troubles
Date: Tue, 20 Sep 2005 09:53:22 +0300
Organization: SAS Inc.
Lines: 61
Sender: IBM Mainframe Assembler List <ASSEMBLER-LIST@LISTSERV.UGA.EDU>
Message-ID: <8B27F717E7B0A5499ADD0534F21B3EDF196B49@fid1ms09.fid1.root4.net>
NNTP-Posting-Host: mozart.unx.sas.com
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 7bit
X-Trace: foggy.unx.sas.com 1127222977 22532 10.19.150.41 (20 Sep 2005 13:29:37 GMT)
X-Complaints-To: usenet@unx.sas.com
NNTP-Posting-Date: Tue, 20 Sep 2005 13:29:37 +0000 (UTC)
Comments: Gated by NETNEWS@VM.SAS.COM
Return-Path: <owner-assembler-list@LISTSERV.UGA.EDU>
X-MimeOLE: Produced By Microsoft Exchange V6.0.6603.0
content-class: urn:content-classes:message
Thread-Topic: IEANTRT troubles
Thread-Index: AcW9UNv1SU4v5tzeSgSYcoSc3enwVQAXewuA
X-OriginalArrivalTime: 20 Sep 2005 06:53:22.0614 (UTC)
FILETIME=[FDDF8D60:01C5BDAF]
X-imss-version: 2.031
X-imss-result: Passed
X-imss-scores: Clean:99.90000 C:2 M:3 S:5 R:5
X-imss-settings: Baseline:1 C:1 M:1 S:1 R:1 (0.0000 0.0000)
X-MIME-Autoconverted: from quoted-printable to 8bit by listserv.cc.uga.edu id
j8K6rRlc012653
Approved-By: per.lofgren@CONSULT.NORDEA.COM
Return-Path: owner-assembler-list@LISTSERV.UGA.EDU
X-Mime-Autoconverted: from 8bit to 7bit by mime827
Originator: daemon@mozart.unx.sas.com