I suggest some critical lines are missing:
On Mon, 18 Nov 2019 07:34:30 -0500 Joe Reichman <[email protected]> wrote:
:>Hers is the assembler listing
:>
:> 0000F 63+R15 EQU 15
:> 65 ENTRY FREAD24
:> 66 DBGRPRLG DSA=30
:>000000 EBEC D008 0024 00008 67+ STMG R14,R12,8(R13)
:>000006 B904 00AD 68+ LGR R10,R13
:>00000A C030 FFFF FFFB 00000 69+ LARL R3,SOPEN24
:> R:3 00000 70+ USING SOPEN24,R3
:> R:D 00000 71+ USING WS_DSECT,R13
:>000010 E3DD 0090 0004 00090 72+ LG R13,NAB-WS_DSECT
:>000016 E3A0 D080 0024 00080 73+ STG R10,128(,R13)
:>00001C 41B0 D090 00090 74+ LA R11,NAB
:>000020 4AB0 31D8 001D8 75+ AH R11,=H'30'
:>000024 E3B0 D090 0024 00090 76+ STG R11,NAB
:>00002A E340 1000 0004 00000 77 LG R4,0(,R1)
:>000030 E350 1008 0004 00008 78 LG R5,8(,R1)
We see
:> R:3 00000 79 USING SOPEN24,R3
:>
:> 171 DBGREPLG
:>00011E E3D0 D080 0004 00080 172+ LG R13,128(,R13)
:>000124 41BD 0090 00090 173+ LA R11,NAB-WS_DSECT
:>000128 E3B0 D090 0024 00090 174+ STG R11,NAB
:>00012E EBEC D008 0004 00008 175+ LMG R14,R12,8(R13)
:>
Yet
:> Active Usings: FREAD24,R3 WS_DSECT,R13
:> Loc Object Code Addr1 Addr2 Stmt Source Statement
:>000134 07FE 176+ BR R14
:>000000 00000 00098 177+WS_DSECT DSECT
:>000000 178+ DS 18FD
:>000090 179+NAB DS AD
?====== As you can see a DS CL30 wasnt generated
:>000136 00000 001DA 180+SOPEN24 CSECT
:>000136 181 EOF DS 0H
:>000136 E3F0 3122 0004 001B8 182 LG R15,=FD'-1'
:>00013C 58F0 312A 001C0 183 L R15,=AD(BAC
:>
:>
:>-----Original Message-----
:>From: IBM Mainframe Assembler List <[email protected]> On
Behalf Of Bernd Oppolzer
:>Sent: Monday, November 18, 2019 2:34 AM
:>To: [email protected]
:>Subject: Re: Global character not keeping value
:>
:>Hi Joe,
:>
:>IMO, this should work, if you do a PRLG 30 call before the EPLG call in the
open code.
:>
:>Could you please post the whole relevant part of the code (complete macro
definitions and the snippets of the open code in the correct sequence), so that
we can take a look at it?
:>
:>Another suggestion: please make sure that there is no reference of &DSASUM at
another place, which may reset its value to the empty string.
:>
:>Kind regards
:>
:>Bernd
:>
:>
:>
:>Am 18.11.2019 um 00:00 schrieb Joe Reichman:
:>> I have a prolog and eplog macros as exit and entry to program
:>>
:>>
:>>
:>> The prolog is coded as such
:>>
:>> MACRO
:>>
:>> &NAME PRLG &DSA
:>>
:>> GBLC &DSANUM
:>>
:>> &DSANUM SETC '&DSA'
:>>
:>>
:>>
:>> When used in the prolog
:>>
:>>
:>>
:>> As such
:>>
:>>
:>>
:>> AIF ('&DSANUM' EQ '').NODSA
:>>
:>> AH R11,=H'&DSANUM'
:>>
:>> .NODSA ANOP
:>>
:>>
:>>
:>> I get the value I coded e.g. PRLG 30
:>>
:>>
:>>
:>> GNERATES AH R11,=H'30'
:>>
:>>
:>>
:>> However when I used it in the EIPLOG it fails to retain its value and
:>> is null
:>>
:>>
:>>
:>> MACRO
:>>
:>> EPLG
:>>
:>> LCLC &CURCSECT
:>>
:>> GBLC &DSANUM
:>>
:>>
:>>
:>>
:>>
:>> As this code in the eplog is skipped
:>>
:>>
:>>
:>> WS_DSECT DSECT
:>>
:>> DS 18FD
:>>
:>> NAB DS AD
:>>
:>> AIF ('&DSANUM' EQ '').NODSA
:>>
:>> DS CL&DSANUM
:>>
:>> .NODSA ANOP
:>>
:>>
:>>
--
Binyamin Dissen <[email protected]>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.
