Sure. It's magical mystery code, but sure.
1669 ISAUTH EDCPRLG DSALEN=CDSALEN,BASEREG
1670+***------------------------------------
00000 00618 1671+IHB0092DS DSECT
1672+ DS D
1673+ DS CL(120+0)
00080 00000 1674+ ORG IHB0092DS
1675+ DS CL(CDSALEN+8)
00614 00614 1676+ ORG
1677+ DS 0D
00610 1678+IHB0092LG EQU *-IHB0092DS-8
00035 01510 1679+CZAMISC CSECT
1680+*--------------------------------------
1681+ DS 0H
R:F 00876 1682+ USING *,15
A7F4 0021 008B8 1685+ISAUTH BRC 15,IHB0092B (BC)
1686+* PPA1 constant area
14 1687+ DC AL1(IHB0092N+4-*) offs
CE 1688+ DC X'CE' . CEE
A0 1689+ DC X'A0' . CEE
10 1690+ DC AL1(0+0+16) . memb
00000894 1691+ DC AL4(IHB0092P) . A(
00000000 1692+ DC AL4(0) . A(
00000610 1693+ DC AL4(IHB0092LG) to
0006 1694+IHB0092N DC AL2(6) . leng
C9E2C1E4E3C8 1695+ DC C'ISAUTH' untr
1696+*--------------------------------------
1697+* PPA2 constant area
1698+IHB0092P DS 0F forc
03 1699+ DC X'03' . memb
00 1700+ DC X'00' . memb
33 1701+ DC X'33' . plis
00 1702+ DC X'00' . CEE
00000000 1703+ DC AL4(CEESTART)
00000000 1704+ DC AL4(0) A(
000008A4 1705+ DC AL4(IHB0092T) . A(
1706+*
1707+* Time stamp area
1708+IHB0092T DS 0F
F2F0F1F5 1709+ DC CL4'2015' . yyyy
F0F5F2F7 1710+ DC CL4'0527' . mmdd
F2F1F0F7F0F0 1711+ DC CL6'210700' . hhmm
F0F1 1712+ DC CL2'01' . vers
F0F1F0F0 1713+ DC CL4'0100' . rele
1714+*
1715+IHB0092B DS 0H
1716+***------------------------------------
90EC D00C 0000C 1717+ STM 14,12,12(13) . save
1718+***------------------------------------
5820 D04C 0004C 1719+ L 2,76(,13) get
5800 F010 00010 1720+ L 0,16(,15) size
1E02 1721+ ALR 0,2 old
5500 C00C 0000C 1722+ CL 0,12(,12) chec
A7D4 0005 008D4 1725+ BRC 13,*+10 (BC)
58F0 C074 00074 1726+ L 15,116(,12) load
05EF 1727+ BALR 14,15 invo
1728+* at this point R0 has the new NAB, R2
58F0 D048 00048 1729+ L 15,72(,13)
90F0 2048 00048 1730+ STM 15,0,72(2)
9210 2000 00000 1731+ MVI 0(2),X'10'
50D0 2004 00004 1732+ ST 13,4(,2) back
18D2 1733+ LR 13,2 acti
1734+***------------------------------------
1735+ DROP 15
1736+***------------------------------------
1756 EDCEPIL ,
58D0 D004 00004 1757+ L 13,4(,13) addre
58E0 D00C 0000C 1758+ L 14,12(,13) resto
982C D01C 0001C 1759+ LM 2,12,28(13) resto
051E 1760+ BALR 1,14 retur
00000876 1761+ DC AL4(ISAUTH)
Charles
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of glen herrmannsfeldt
Sent: Wednesday, May 27, 2015 8:08 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Mysterious U4088-63 from RPTSTG(ON)
In article <09a301d098e6$0607d120$12177360$@mcn.org> you wrote:
(snip)
> I have isolated the ABEND to a call to a self-written assembler
> function called ISAUTH. I execute a printf() immediately before the
> call but not a
> printf() after. I am posting below the entire code of ISAUTH. CDSALEN
> has a value of x'60C'. I think other than that the code snippet is
self-contained.
(snip)
> It used to work. What changed? I added some functions and the module
> grew to have addressability problems, so I added an IEABRCX DEFINE. I
> have eyeballed the code generated by EDCPRLG and it appears correct --
> now with a BRC 15 instead of a B. It would be inconvenient to get the
> IEABRCX back out of there as a test.
Can you post the expansions of EDCPRLG and EDCEPIL?
I presume they do save and restoring of registers, and appropriate save area
linkage, but it would be nice to see the expansion.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
