ENQ subcommand or DDLIST
John Hooper
having to go into DDLIST first. I searched the archives and didn't seen any
prior mention of this request. We would like to replace an antiquated home-
grown ENQ program called directly from a user panel with the ISPF supplied
one. We are trying to avoid the whining if we change how the TSO users get
into it.
Jim Moore
Note that you MUST use DDLIST as a line command in this context, followed by the "E".
Concentrated Logic
Pedro Vera
Pedro Vera
Wasserman, Hirschel
Address ISPEXEC
major = 'SYSDSN'
minor = thedsn
"QUERYENQ Table(QUERYENQ) Qname(MAJOR) Rname(MINOR) Req(*) XSYS"
/* creates table with cols: ZENJOB, ZENQNAME, ZENRNAME, ZENDISP
ZENHOLD, ZENSCOPE, ZENSTEP, ZENGLOBL, ZENSYST */
if rc < 8 then
"TBTOP QUERYENQ"
if rc < 8 then
"TBSKIP QUERYENQ"
Do While rc = 0
Say whatever
"TBSKIP QUERYENQ"
End
"TBEND QUERYENQ" /* delete the temp table */
There is also a freeware(?) assembler module called queryenq which provides similar function. Google it.
. . . . . . . . . . . . . . . . .
Hirschel Wasserman
IS3S ICBC HO 422 Tel 604.982.6879
Concentrated Logic
------------------------------------------------------------
This email and any attachments are intended only for the named
recipient and may contain confidential and/or privileged material.
Any unauthorized copying, dissemination or other use by a person
other than the named recipient of this communication is prohibited.
If you received this in error or are not named as a recipient,
please notify the sender and destroy all copies of this email
immediately.
Jim Moore
DDLIST is an ISPCMDS entry.
No mainframe for me!
Concentrated Logic
----- Forwarded Message -----
From: "Jim Moore" <conl...@comcast.net>
To: "ISPF discussion list" <ISP...@LISTSERV.ND.EDU>
Sent: Monday, February 2, 2009 3:27:32 PM GMT -06:00 US/Canada Central
Subject: Re: ENQ subcommand or DDLIST
Imbriale, Donald
It does work.
Don Imbriale
-----Original Message-----
From: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] On Behalf Of
Jim Moore
Sent: Monday, February 02, 2009 4:45 PM
To: ISP...@LISTSERV.ND.EDU
Subject: Fwd: ENQ subcommand or DDLIST
Ya know, I might've had this wrong. I think you have to enter: ISRDDN E,
not DDLIST E.
DDLIST is an ISPCMDS entry.
Generally, this communication is for informational purposes only
and it is not intended as an offer or solicitation for the purchase
or sale of any financial instrument or as an official confirmation
of any transaction. In the event you are receiving the offering
materials attached below related to your interest in hedge funds or
private equity, this communication may be intended as an offer or
solicitation for the purchase or sale of such fund(s). All market
prices, data and other information are not warranted as to
completeness or accuracy and are subject to change without notice.
Any comments or statements made herein do not necessarily reflect
those of JPMorgan Chase & Co., its subsidiaries and affiliates.
This transmission may contain information that is privileged,
confidential, legally privileged, and/or exempt from disclosure
under applicable law. If you are not the intended recipient, you
are hereby notified that any disclosure, copying, distribution, or
use of the information contained herein (including any reliance
thereon) is STRICTLY PROHIBITED. Although this transmission and any
attachments are believed to be free of any virus or other defect
that might affect any computer system into which it is received and
opened, it is the responsibility of the recipient to ensure that it
is virus free and no responsibility is accepted by JPMorgan Chase &
Co., its subsidiaries and affiliates, as applicable, for any loss
or damage arising in any way from its use. If you received this
transmission in error, please immediately contact the sender and
destroy the material in its entirety, whether in electronic or hard
copy format. Thank you.
Please refer to http://www.jpmorgan.com/pages/disclosures for
disclosures relating to UK legal entities.
Jim Moore
Concentrated Logic
----- Original Message -----
From: "Donald Imbriale" <Donald....@JPMORGAN.COM>
To: ISP...@LISTSERV.ND.EDU
Sent: Monday, February 2, 2009 4:15:57 PM GMT -06:00 US/Canada Central
Subject: Re: ENQ subcommand or DDLIST
John P Kalinich
Arg zdldsn
Address TSO
"ISRDDN ENQ "ZDLDSN
Exit
Jim Moore of the ISPF discussion list <ISP...@LISTSERV.ND.EDU> wrote on
02/02/2009 04:25:05 PM:
Ryerse, Robin
/* REXX */
Address TSO "ISRDDN ENQ" arg(1)
exit
John P Kalinich
Regards,
John K
Robin of the ISPF discussion list <ISP...@LISTSERV.ND.EDU> wrote on
02/03/2009 07:55:14 AM:
Imbriale, Donald
Don Imbriale
-----Original Message-----
From: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] On Behalf Of
Jim Moore
Sent: Monday, February 02, 2009 5:25 PM
To: ISP...@LISTSERV.ND.EDU
Subject: Re: ENQ subcommand or DDLIST
As a primary command, "DDLIST E dsn" probably does work. I meant as a
line command at 3.4. Here, you need to type ISRDDN E in front of the
DSN.
Ryerse, Robin
/* REXX */
address 'ISPEXEC'
parse source . . alias .
select
when alias = 'DSNENQ' | alias = 'ENQDSN' then
do
major = 'SYSDSN'
parse upper arg minor .
end
when alias = 'USERENQ' | alias = 'USERS' | alias = 'WHOISON' then
do
major = 'SPFUSER'
minor = ''
end
otherwise parse arg major minor
end
minor = strip(minor,"B","'")
zenqvrs = left(left('1'major,9)minor,69)'D'
'CONTROL ERRORS RETURN'
'VPUT ZENQVRS PROFILE'
'SELECT PGM(ISRDDN) PARM(ENQ)'
exit
-----Original Message-----
From: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] On Behalf Of Jim Moore
Sent: February 2, 2009 4:45 PM
To: ISP...@LISTSERV.ND.EDU
Subject: Fwd: ENQ subcommand or DDLIST