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 use GETBYNAME, but have not tried the GETALL.I also tried wildcard names
in my symbol list.
If I can get GETBYNAME working the way I want, I plan to use that to pass
run-time options to the program instead of parsing a PARM=/PARMDD string.
Thanks for any suggestions...
Donald Russell
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
