Aye chihuahua, I just found the problem as I pasted the symbol list into
this email. :-)
Thank you.
My symbol table was coded with DS instead of DC statements, so the symbols
I THOUGHT were being looked for were who-knows-what.
There are no assembler warnings/errors... The source file begins with
*process compat(macrocase),rent,noxref
amode 31/rmode any
sysstate ascenv=p, primary address space +
amode64=no, We're not 64 bit +
archlvl=zarchitecture
symbolList ds 0h align for larl
ds cl(l'sydesymname)'VAR1' <== OOPS!
ds cl(l'sydesymname)'VAR2' <== OOPS!
symbolList# equ (*-symbolList)/l'sydesymname
The output areas are in getmain'd storage, :
* Allocate space for the JCL symbols I extract:
* Space for a header and each extracted symbol
symbolArea_ ds 0d
ds (sydhdr_len)x mapped by sydhdr
ds (symbolList#)xl(sydentry_len) mapped by sydentry
ds (symbolList#)xl255 space for value of each symbol
symbolArea equ symbolArea_,*-symbolArea_
diagData ds xl16 provided by iefsjsym
On Tue, Dec 30, 2014 at 9:30 AM, Elardus Engelbrecht <
[email protected]> wrote:
> Donald Russell wrote:
>
> >I wrote a small assembler program to try the JCL Symbol Services macro
> (IEFSJSYM) but am not having any success at getting any symbol values
> returned to my program. R15 is zero after the macro, and the eye-catcher is
> correct in the output
> area, but sydEntryCount is always zero.
>
> >I have a very simple test case with
> >// EXPORT SYMLIST=*
> >// SET VAR1=200
> >// SET VAR='Hello World'
> >// EXEC ASMACLG,...
> >larl r2,symbolList
> >la r3,symbolArea
> >la r4,diagData
> >iefsjsym request=getbyname,diagdata=(r4), +
> > symlistarray=(r2),numentries==y(symbolList#), +
> > symbarea=(r3),symbarealen==a(l'symbolArea), +
> > mf=(e,iefsjsym_l,complete)
>
> I see nothing strange in this macro, but ... how is the program assembled?
> AMODE, RMODE, RENT, etc? Do you see any assembler messages?
>
> Please post the symbolList, symbolArea, diagData definitions. Please post
> the areas where the macros results are placed (output area) and the results
> + eyecatcher as passed.
>
> Groete / Greetings
> Elardus Engelbrecht
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
