Trapping FTP terminal chatter
Laumann, James A. , Jim
I have a exec which is part of a ISPF dialog. Depending on what the user
enters on the panel, I need to run FTP in order to obtain a file which
exists on a non-mainframe platform. I can get FTP to launch ok, but am
not totally able to suppress the FTP line mode chatter as shown in the
trace below.
I've looked at /tried the base TSO PROFILE command - the WTPMSG and
INTERCOM options - but no joy.
I've also gone back thru all of the list emails I've got saved, looking
at the those which deal w/ running FTP, but if it's in there, I don't
recognize it.
Someone must have done this....
125 *-* x = OUTTRAP("ftp.","*","NOCONCAT") /* Trap msgs frpm
FTP */
>L> "ftp."
>L> "*"
>L> "NOCONCAT"
>F> "FTP."
126 *-* ADDRESS 'TSO'
127 *-* "FTP ROBM (EXIT" /* Run FTP, get a real
return code */
>L> "FTP ROBM (EXIT"
220-FTPSERVE IBM FTP CS V1R11 at MFDEVL1.MAYO.EDU, 11:48:14 on
2010-11-15.
220 Connection will close if idle for more than 10 minutes.
331 Send password please.
230 TS00004 is logged on. Working directory is "TS00004.".
221 Quit command received. Goodbye.
128 *-* SAY 'RC from FTP is: '||rc
>L> "RC from FTP is: "
>V> "0"
>O> "RC from FTP is: 0"
RC from FTP is: 0
129 *-* x = OUTTRAP("OFF") /* Turn off
nasty-gram trapping */
>L> "OFF"
>F> "OFF"
130 *-* SAY 'ftp.0 is '||ftp.0
>L> "ftp.0 is "
>V> "11"
>O> "ftp.0 is 11"
Thanks
Jim Laumann
Tech Specialist I
Data Center Infrastructure Services
Phone: 507-284-5510
E-mail: lauman...@mayo.edu
__________________________
Mayo Clinic
200 First Street S.W.
Rochester, MN 55905
www.mayoclinic.org
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
Paul Gilmartin
>
> I have a exec which is part of a ISPF dialog. Depending on what the user
> enters on the panel, I need to run FTP in order to obtain a file which
> exists on a non-mainframe platform. I can get FTP to launch ok, but am
> not totally able to suppress the FTP line mode chatter as shown in the
> trace below.
>
> I've looked at /tried the base TSO PROFILE command - the WTPMSG and
> INTERCOM options - but no joy.
>
> I've also gone back thru all of the list emails I've got saved, looking
> at the those which deal w/ running FTP, but if it's in there, I don't
> recognize it.
>
> Someone must have done this....
>
FTP will write to that.
Also try running the Unix Sytem Services FTP and redirecting
its output. FTP behaves differently according to whether it
believes it was invoked under:
o Batch JCL
o TSO TMP
o Unix shell.
-- gil
Tony Harminc
<lauman...@mayo.edu> wrote:
> I have a exec which is part of a ISPF dialog. Depending on what the user
> enters on the panel, I need to run FTP in order to obtain a file which
> exists on a non-mainframe platform. I can get FTP to launch ok, but am
> not totally able to suppress the FTP line mode chatter as shown in the
> trace below.
>
> I've looked at /tried the base TSO PROFILE command - the WTPMSG and
> INTERCOM options - but no joy.
Just FYI, these two options have nothing to do with this kind of problem.
WTPMSG controls whether a Write To Operator message with routing code
11 (WTP) issued by a program running in your address space is *also*
copied to your own terminal. Most application programs do not issue
WTO, and it is certainly not the right way to communicate with a
terminal user, not least because there is no way for the user to
reply.
INTERCOM controls whether another TSO user can send a message to your
terminal. This has nothing to do with any program running in your TSO
session. INTERCOM also controls *some* messages from the system
operator, but most of those are issued with a default option that
overrides NOINTERCOM.
Not any closer to solving your problem, I realize, other then to make
clear these two are definitely not it.
Tony H.
adrianstern
>
> - Show quoted text -
if not output then some ddname that ftp uses seems to be allocated to
the screen - check what's allocated when you run the exec
Bob Bridges
---
Bob Bridges, rhb...@attglobal.net, cell 336 382-7313
work bob.b...@libertymutual.com, 317 581-6487
/* Why did the string bass player get angry at the timpanist? A: Because
the timpanist turned a peg and wouldn't tell him which one. -from a
collection of musician jokes */
João Luís Matos Carvalho (DSI)
Does anyone have a example, or know how to access CICS to close/open a file using REXX?
Thanks in advance
JC
Lizette Koehler
And AFAIRC - there is a REXX-CICS functionality. So you might need to look at that area if you need something that will interface more with CICS other than CEMT.
To do it any other way, would probably be a console command to CICS
F CICS,CEMT FI(xxx) CLOSE
Lizette
Tony Netley
http://www-01.ibm.com/support/docview.wss?rs=1083&uid=swg24009233
Hi list,
Thanks in advance
JC
- ------------------------------------------------------------------------
This email has been scanned for all known viruses by the MessageLabs Email
Security Service and the Macro 4 internal virus protection system.
. ------------------------------------------------------------------------
- ------------------------------------------------------------------------
This email has been scanned for all known viruses by the MessageLabs Email
Security Service and the Macro 4 internal virus protection system.
. ------------------------------------------------------------------------
Bob Bridges
which security product is running, ie RACF, ACF2 or Top Secret. Is there a
quick way to do that?
I can turn on trapping and try running each command to see which one doesn't
bomb out. I could wish for something more elegant, though, especially as I
apparently can't prevent display of the error message if one of the commands
simply isn't present (or can I?)
Sysvar(SYSRACF) and sysvar(SYSLRACF) tell me that RACF is available in my
test LPAR even though it's currently turned off, so they're no good.
Is there, perhaps, a control block I can query?
/* I've decided life is too fragile to finish a book I dislike just because
it cost $16.95 and everyone else loved it. Or to eat a fried egg with a
broken yolk (which I hate) when the dog would leap over the St. Louis Arch
for it. -Erma Bombeck */
Michel Castelein
"Bob Bridges" <rhb...@ATTGLOBAL.NET> wrote in message
news:3787FA2A15EE4A18B1439577FFA9C0D9@RHBLaptop0001...
> which security product is running, ie RACF, ACF2 or Top Secret. Is there
> a
> quick way to do that?
>
> I can turn on trapping and try running each command to see which one
> doesn't
> bomb out. I could wish for something more elegant, though, especially as
> I
> apparently can't prevent display of the error message if one of the
> commands
> simply isn't present (or can I?)
>
> Sysvar(SYSRACF) and sysvar(SYSLRACF) tell me that RACF is available in my
> test LPAR even though it's currently turned off, so they're no good.
>
> Is there, perhaps, a control block I can query?
>
> ---
> Bob Bridges, rhb...@attglobal.net, cell 336 382-7313
>
(CVT), and contains the address of the "RACF CVT" (RCVT).
RCVTID is a 4-byte field at offset +X'0' in the RCVT, and contains RCVT if
RACF is used, ACF2 if ACF2 is used, and RTSS if Top Secret is used.
Michel Castelein
z/OS instructor
http://www.arcis-services.net/
Ken MacKenzie
http://www.mzelden.com/mvsutil.html
From:
Bob Bridges <rhb...@ATTGLOBAL.NET>
To:
TSO-...@VM.MARIST.EDU
Date:
01/05/2012 07:34
Subject:
[TSO-REXX] Which security product is running?
Sent by:
TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>
Lizette Koehler
If you look at Mark Zelden's code for IPLINFO (Wonderful tool), You will
find the following section
CVTVERID = Storage(D2x(CVT - 24),16) /* "user" software vers.*/
CVTRAC = C2d(Storage(D2x(CVT + 992),4)) /* point to RACF CVT */
RCVTID = Storage(D2x(CVTRAC),4) /* point to RCVTID */
/* RCVT, ACF2, or RTSS */
SECNAM = RCVTID /* ACF2 SECNAME = RCVTID*/
If RCVTID = 'RCVT' then SECNAM = 'RACF' /* RCVT is RACF */
If RCVTID = 'RTSS' then SECNAM = 'Top Secret' /* RTSS is Top Secret */
RACFVRM = Storage(D2x(CVTRAC + 616),4) /* RACF Ver/Rel/Mod */
RACFVER = Substr(RACFVRM,1,1) /* RACF Version */
RACFREL = Substr(RACFVRM,2,2) /* RACF Release */
If Bitand(CVTOSLV2,'01'x) <> '01'x then , /* below OS/390 R10 */
RACFREL = Format(RACFREL) /* Remove leading 0 */
RACFMOD = Substr(RACFVRM,4,1) /* RACF MOD level */
RACFLEV = RACFVER || '.' || RACFREL || '.' || RACFMOD
If RCVTID = 'RCVT' | RCVTID = 'RTSS' then ,
RCVTDSN = Strip(Storage(D2x(CVTRAC + 56),44)) /* RACF prim dsn or */
/* TSS Security File */
I usually browse Mark's code for these types of questions.
Lizette
> -----Original Message-----
> From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Of
> Sent: Monday, April 30, 2012 11:33 PM
> To: TSO-...@VM.MARIST.EDU
> Subject: [TSO-REXX] Which security product is running?
>
Brenton, Ren
To make it all work, you'll need this line too (somewhere before the CVTVERID line):
CVT = C2d(Storage(10,4))
:-)
Ren
Bob Bridges
/* Which security system is running? */
cvt=c2d(storage(10,4)) /* communications vector table */
cvtrac=c2d(storage(d2x(cvt+992),4)) /* RACF CVT */
secnam=storage(d2x(cvtrac),4) /* RCVT | ACF2 | RTSS */
/* It is a little unfair, I think, to criticize a person for not sharing the
enlightenment of a later epoch....The question raises nagging uncertainties
about which of the conventional truths of our own age will be considered
unforgivable bigotry by the next. -Carl Sagan, from "Broca's Brain" */
-----Original Message-----
From: Brenton, Ren
Sent: Tuesday, May 1, 2012 10:22
To make it all work, you'll need this line too (somewhere before the
CVTVERID line):
CVT = C2d(Storage(10,4))
From: Lizette Koehler
Sent: Tuesday, May 01, 2012 9:51 AM
If you look at Mark Zelden's code for IPLINFO (Wonderful tool), You will
find the following section
CVTVERID = Storage(D2x(CVT - 24),16) /* "user" software vers.*/
CVTRAC = C2d(Storage(D2x(CVT + 992),4)) /* point to RACF CVT */
RCVTID = Storage(D2x(CVTRAC),4) /* point to RCVTID */
/* RCVT, ACF2, or RTSS */
SECNAM = RCVTID /* ACF2 SECNAME = RCVTID*/
If RCVTID = 'RCVT' then SECNAM = 'RACF' /* RCVT is RACF */
If RCVTID = 'RTSS' then SECNAM = 'Top Secret' /* RTSS is Top Secret */
RACFVRM = Storage(D2x(CVTRAC + 616),4) /* RACF Ver/Rel/Mod */
RACFVER = Substr(RACFVRM,1,1) /* RACF Version */
RACFREL = Substr(RACFVRM,2,2) /* RACF Release */
If Bitand(CVTOSLV2,'01'x) <> '01'x then , /* below OS/390 R10 */
RACFREL = Format(RACFREL) /* Remove leading 0 */
RACFMOD = Substr(RACFVRM,4,1) /* RACF MOD level */
RACFLEV = RACFVER || '.' || RACFREL || '.' || RACFMOD
If RCVTID = 'RCVT' | RCVTID = 'RTSS' then ,
RCVTDSN = Strip(Storage(D2x(CVTRAC + 56),44)) /* RACF prim dsn or */
/* TSS Security File */
I usually browse Mark's code for these types of questions.
> From: Bob Bridges
> Sent: Monday, April 30, 2012 11:33 PM
>
> which security product is running, ie RACF, ACF2 or Top Secret. Is there
> a quick way to do that?
>
> I can turn on trapping and try running each command to see which one
> doesn't bomb out. I could wish for something more elegant, though,
> especially as I apparently can't prevent display of the error message if
> one of the commands simply isn't present (or can I?)
>
> Sysvar(SYSRACF) and sysvar(SYSLRACF) tell me that RACF is available in my
> test LPAR even though it's currently turned off, so they're no good.
>
> Is there, perhaps, a control block I can query?