Anyone,
I'm just getting familiar with the RACROUTE macro. I have a working example
of the macro with REQUEST=AUTH that generates a violation when
appropriate.
My question is: is there a way to interrogate RACF (presumably via the
RACROUTE macro) to simply *ask* whether or not a particular
Another way is to issue a RACROUTE REQUEST=EXTRACT
LOG=NONE
Am I correct when I say that both of these solutions require APF-authorization
(or similar)? Might there be a way that would not require this?
I wouldn't have thought that there would be a security issue with merely
interrogating an
For your own userid, you can use LISTDSD or RLIST to check resource
authorization without cutting audit records.
That would be perfect... is LISTDSD something I can do from within an
assembler program? Or is there an assembler macro equivalent?
All I really need to do is, from within an
All I really need to do is, from within an assembler application, invoke some
function that will tell me whether or not the current userid is authorized via
a
given RACF profile to *read* a resource. The userid will always be either the
person who is logged onto TSO or is the submitter of a
If the user has given you a data set name and asked you to operate on it,
and he does not have the proper authority, then it is most appropriate to
have the violation occur.
Not in this case, IMO.
The violations are occurring as a result of a text string scan across all
members of a
Anyone,
Might there be a way, from within an assembler module, to know whether or
not a given load module has been modified via SPZAP? I'm perfectly happy to
LOAD the load module, if that's any help.
I know that AMBLIST can tell me if something has been zapped, but that
didn't seem like an
it's possible to zap a module and not leave footprints, though it's not the
default.
Yikes!
Our programmers occasionally ZAP a load module in a test load library, which is
fine. When the time comes to promote the load module into a production load
library, however, I would like our change
You can browse the load module and see IDRDATA if you know what to look
for
I think I might start with that approach. I have the documentation.
Thanks so much, everyone, for all of your rapid and informative responses!
David
Anyone,
I have a mainframe assembler application which is invoking Unix system
services to get the names of all of the files in an NFS-mounted folder. The
application dynamically allocates and logically concatenates these files into
one giant dataset, then uses QSAM macros to read it.
The
Ed,
Field S99ERROR (after the dynamic concatenation request to DYNALLOC) is
coming back with a value of X'0238': Space unavailable in task input output
table (TIOT). The manual says that the application should Reduce the total
number of allocated DDs and devices. Deallocate data sets that are
Yes, it is a bit more difficult to program, but it is infinitely scalable.
Of course, you are correct. I took this approach because I have inherited a
pre-existing application that used to read a single mainframe dataset. It's
only
recently that the capability to read multiple files via NFS
Try putting DYNAMNBR=1024 on your EXEC card.
Just tried it; no good. Same result as before. Thanks, though.
David
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the
You didn't say what language you are writing in.
Mainframe assembler.
Your suggestion would work, but then I would have to get into an argument
with the network guys when I tell them that I need twice as much disk just so
that I can do a physical concatenation of all of the files. I don't
My apologies if this has already been answered but I haven't seen it.
No apologies necessary!
The entry that was filling up was actually not MYFILE; that entry remained at
20 bytes. The ever-growing entry seemed to contain all of the history of the
concatenated DDs. With each new allocation
Anyone,
I'm working with a skeleton that generates an EXEC statement that looks like
this:
//STEP1 EXEC PGM=MYPROG,REGION=4M,PARM='ZUSER'
I wish to pass the value in ZUSER to MYPROG, but I see that if the TSO userid
is 8 characters long, the trailing blanks from the ZUSER variable are
If you are z/OS 1.8 or later
Naturally, we are at z/OS 1.7.
This is the sort of thing I was looking for, however. For the time being, I'll
just
accept the truncated PARM= and deal with it in the application (as per Bill
Wilkie's earlier post).
Thanks, gentlemen.
David
If you have other parms at fixed offsets, then this won't work.
I don't have other parms right now, but I would like to reserve the right to do
so going forward. That's why I was hoping to force the length of the PARM
string to 8.
David
Anyone,
I'm an application programmer. We are on z/OS 1.7. If I wish to see the
system ENQ status of all ENQs for a given major name, I do this within
ISRDDN, option ENQ. I filter on the major name prefix, and I see all the ENQs;
voila. However, if the *entire* minor name doesn't fit on the
Is there a way *YOU* (as an application programmer) can do it
Of course I can, if I have to. The ISGQUERY macro provides all the info I need.
My point was that the precise tool that I need is already available in ISRDDN,
but unfortunately, the piece of the rname that I need to see is just
At the side of the dsn type the command ISRDDN E
It's not a dataset that has the enqueue. It's an application program (CA's
PanAPT) that has done an ENQ on a resource with an 84-byte minor name,
and I need to see the entire rname to know who has the enqueue.
I've coded my way out of this by
Anyone,
Is there a way for an executing assembler program to extract its own load
module name for programmatic examination? (If it matters, it would be the
original load module called via an EXEC statement in the JCL; it wouldn't have
been loaded by a previously executing program.)
Thanks so
Thanks, everyone. Someone e-mailed me with a beautiful solution. I coded
this:
L RF,PSATOLD-PSA(,0)
L RF,TCBJSTCB-TCB(,RF)
L RF,TCBJPQ-TCB(,RF)
MVC NAME,CDNAME-CDENTRY(RF)
and it seems to work.
David
Anyone,
I have a DFSORT question regarding symbol definitions in SYMNAMES. I did
check the manual, and I don't think that what I want to do is possible, but
here goes...
I have the following symbol defined in a sort record:
LAST_NAME,1,20,CH
I'm using that symbol to BUILD that field into two
Anyone,
I have inherited responsibility for a CLIST; this is not my forte. I'm trying
to do
something pertaining to the ampersand character, and despite my efforts, I
cannot figure this out. As God is my witness, this is not a homework
assignment (I'm a BAL programmer, not a sysprog).
I've
Follow up to my original post: the ampersands seem to have nailed me even in
my previous message. To clarify (I hope this shows up correctly): if the user
enters
ABC
the CLIST should produce
amp;OPTA amp;OPTB amp;OPTC
I.e., two ampersand characters concatenated to the relevant string (e.g.,
So, as you want 2 ampersands you need to use 4, and thus I suggest trying:
IF SUBSTR(K,L)=A THEN SET X=STR(X) amp;amp;OPTA
ELSE IF SUBSTR(K,L)=B THEN SET X=STR(amp;X) amp;amp;OPTB
ELSE IF SUBSTR(K,L)=C THEN SET X=STR(amp;X) amp;amp;OPTC
I've tried things like that; it is absolutely not
NRSTR did the trick!
Thank you so much, everyone!!!
David
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at
I doubt it; in fact, I doubt that you're old enough to have ever seen BAL.
And you're certainly not using it on z/OS.
I appreciate the CLIST information you provided in your post, but I don't
understand why you have accused me of being a liar when I came here for
help. This is the first time
I think he was picking on BAL because in some contexts that refers to an old
Assembler and is therefore not accurate for our context.
Right... someone else said the same thing.
So I'm a HLASM programmer. But for the record, whatever language it is, I
learned it originally in 1980 from the
We all know what you mean, David, but a few of us tend to prefer the terms
that are technically correct.
I see that!
Mea maxima culpa. I'll be more careful next time...
David
--
For IBM-MAIN subscribe / signoff / archive
Anyone,
I'm a newbie with IEBUPDTE, which I'm using to add members to a temporary
PDS for use in a later job step.
I checked the manual, but I can't seem to find a way to add
comments/remarks to the IEBUPDTE SYSIN input. Is there a way to do that?
Thanks so much.
David
Utility control cards adhere to the JCL/Assembler standard
allowing comments on the control cards after the last operand,
and with one or more separating spaces. If that's not enough
room, you're out of luck.
If you're updating to a temporary, why not include comments in
the contents, appropriate
the closest you'll come to that is to put a flower box (why tombstone?) as
comments preceding the SYSIN (using //* comments), or adding a dummy
member
Ah, so. Got it. Thanks so much for your help!
David
--
For IBM-MAIN
33 matches
Mail list logo