>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 u
>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 beyo
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 scr
>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
-
>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
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
trun
>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 a
>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 thi
>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 mess
>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
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 ar
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 DYNA
>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
---
>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 ma
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 eas
>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 producti
>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 ba
>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 assem
>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 a
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 use
>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 subs
>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, app
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
--
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
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,
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 m
>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 acc
>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 Str
>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
&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 http://bama
>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) OPTA
ELSE IF &SUBSTR(&K,&L)=B THEN SET &X=&STR(&X) OPTB
ELSE IF &SUBSTR(&K,&L)=C THEN SET &X=&STR(&X) OPTC<
I've tried things like that; it is absolutely not th
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
&&OPTA &&OPTB &&OPTC
I.e., two ampersand characters concatenated to the relevant string (e.g.,
OPTA),
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 ca
33 matches
Mail list logo